testsuite/tests/driver/T12983/src/Types.hs


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|]