diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2016-06-18 22:44:19 +0200 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2016-06-20 16:22:07 +0200 |
| commit | 915e07c33b143126e3c8de1d2ec22ccc709a9a24 (patch) | |
| tree | fcde0a7ffc1466b6e53dbee6df835af07e9a7ecc /testsuite/tests/safeHaskell | |
| parent | 46ff80f26d1892e1b50e3f10c5d3fded33da6e81 (diff) | |
| download | haskell-915e07c33b143126e3c8de1d2ec22ccc709a9a24.tar.gz | |
Testsuite: tabs -> spaces [skip ci]
Diffstat (limited to 'testsuite/tests/safeHaskell')
| -rw-r--r-- | testsuite/tests/safeHaskell/safeLanguage/SafeLang11_B.hs | 10 | ||||
| -rw-r--r-- | testsuite/tests/safeHaskell/safeLanguage/SafeLang12_B.hs | 10 |
2 files changed, 10 insertions, 10 deletions
diff --git a/testsuite/tests/safeHaskell/safeLanguage/SafeLang11_B.hs b/testsuite/tests/safeHaskell/safeLanguage/SafeLang11_B.hs index 2bcc5a8a84..1f0052da51 100644 --- a/testsuite/tests/safeHaskell/safeLanguage/SafeLang11_B.hs +++ b/testsuite/tests/safeHaskell/safeLanguage/SafeLang11_B.hs @@ -4,13 +4,13 @@ module SafeLang11_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)) []]]] 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)) []]]] |