Commit 752b5e21 authored by eir@cis.upenn.edu's avatar eir@cis.upenn.edu

Test #9738 in th/T9738

parent 17265c03
{-# 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 [] )
[PragmaD (AnnP (TypeAnnotation T9738.Foo) (LitE (StringL "hi"))),PragmaD (AnnP (ValueAnnotation T9738.MkFoo) (LitE (StringL "there"))),PragmaD (AnnP ModuleAnnotation (LitE (StringL "Charley")))]
......@@ -334,3 +334,4 @@ test('T9199', normal, compile, ['-v0'])
test('T9692', normal, compile, ['-v0'])
test('T8953', normal, compile, ['-v0'])
test('T9084', normal, compile_fail, ['-v0'])
test('T9738', normal, compile, ['-v0'])
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment