testsuite/tests/th/T11046_helper.hs


1
2
3
4
5
6
7
8
9

{-# Language TemplateHaskell #-}
module T11046_helper where
import Language.Haskell.TH

check :: String -> Q [Dec]
check x = do mb <- lookupTypeName x
             case mb of
               Nothing -> fail "Bug #11046 is still present."
               Just _  -> return []