diff options
Diffstat (limited to 'testsuite/tests/safeHaskell/safeLanguage/SafeLang12_B.hs')
| -rw-r--r-- | testsuite/tests/safeHaskell/safeLanguage/SafeLang12_B.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/testsuite/tests/safeHaskell/safeLanguage/SafeLang12_B.hs b/testsuite/tests/safeHaskell/safeLanguage/SafeLang12_B.hs index 1a483dabab..7219b7a200 100644 --- a/testsuite/tests/safeHaskell/safeLanguage/SafeLang12_B.hs +++ b/testsuite/tests/safeHaskell/safeLanguage/SafeLang12_B.hs @@ -5,13 +5,13 @@ module SafeLang12_B ( Class(..), mkSimpleClass ) where import Language.Haskell.TH class Class a where - c :: a + c :: a mkSimpleClass :: Name -> Q [Dec] mkSimpleClass name = do - TyConI (DataD [] dname [] Nothing cs _) <- reify name - ((NormalC conname []):_) <- return cs - ClassI (ClassD [] cname [_] [] [SigD mname _]) _ <- reify ''Class - return [InstanceD Nothing [] (AppT (ConT cname) (ConT dname)) [FunD mname + TyConI (DataD [] dname [] Nothing cs _) <- reify name + ((NormalC conname []):_) <- return cs + ClassI (ClassD [] cname [_] [] [SigD mname _]) _ <- reify ''Class + return [InstanceD Nothing [] (AppT (ConT cname) (ConT dname)) [FunD mname [Clause [] (NormalB (ConE conname)) []]]] |