Ticket #5857: Singletons.hs

File Singletons.hs, 272 bytes (added by goldfire, 16 months ago)

Template Haskell code

Line 
1module Singletons where
2
3import Language.Haskell.TH
4
5bar :: Q [Dec]
6bar = do
7  indexName <- newName "n"
8  return [DataD []
9                (mkName "Foo")
10                []
11                [NormalC (mkName "Baz") [(NotStrict, VarT indexName)]]
12                []]
13
14
15