Fix #11287.
[ghc.git] / testsuite / tests / th / T5700a.hs
1 {-# LANGUAGE TemplateHaskell #-}
2 module T5700a where
3
4 import Language.Haskell.TH
5
6 class C a where
7 inlinable :: a -> ()
8
9 mkC :: Name -> Q [Dec]
10 mkC n = return
11 [InstanceD [] (AppT (ConT ''C) (ConT n))
12 [ FunD 'inlinable [Clause [WildP] (NormalB (ConE '())) []],
13 PragmaD (InlineP 'inlinable Inline FunLike AllPhases)
14 ]
15 ]