testsuite/tests/th/T9738.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{-# LANGUAGE TemplateHaskell #-}

module T9738 where

import System.IO
import Language.Haskell.TH

data Foo = MkFoo

$( do decs <- [d| {-# ANN type Foo "hi" #-}
                  {-# ANN MkFoo "there" #-}
                  {-# ANN module "Charley" #-}
                   |]
      runIO $ print decs
      runIO $ hFlush stdout
      return [] )