blob: 20602dfd858ef069cdfee81a7d85d0077320e3ac (
plain)
1
2
3
4
5
6
7
8
9
10
|
{-# LANGUAGE TemplateHaskell #-}
module Types where
import qualified Hospital
import Language.Haskell.TH
genCode :: Q [Dec]
genCode =
let s = Hospital.foo 5
in [d|string = s|]
|