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 | 5b03dc69389dc387b922c589ab9a8b92079e6a96 (patch) | |
| tree | 807db4d3e26cc078cab86def2df40afcd59803db /testsuite/tests/th/TH_genExLib.hs | |
| parent | 915e07c33b143126e3c8de1d2ec22ccc709a9a24 (diff) | |
| download | haskell-5b03dc69389dc387b922c589ab9a8b92079e6a96.tar.gz | |
Testsuite: tabs -> spaces [skip ci]
Diffstat (limited to 'testsuite/tests/th/TH_genExLib.hs')
| -rw-r--r-- | testsuite/tests/th/TH_genExLib.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/testsuite/tests/th/TH_genExLib.hs b/testsuite/tests/th/TH_genExLib.hs index 25091c4ecf..d8b646ac90 100644 --- a/testsuite/tests/th/TH_genExLib.hs +++ b/testsuite/tests/th/TH_genExLib.hs @@ -5,10 +5,10 @@ import Language.Haskell.TH genAny :: Q Info -> Q [Dec] genAny decl = do { d <- decl - ; case d of - ClassI (ClassD _ name _ _ decls) _ -> return [genAnyClass name decls] - _ -> error "genAny can be applied to classes only" - } + ; case d of + ClassI (ClassD _ name _ _ decls) _ -> return [genAnyClass name decls] + _ -> error "genAny can be applied to classes only" + } genAnyClass :: Name -> [Dec] -> Dec genAnyClass name decls @@ -16,6 +16,6 @@ genAnyClass name decls where anyName = mkName ("Any" ++ nameBase name ++ "1111") constructor = ForallC [PlainTV var_a] [AppT (ConT name) (VarT var_a)] $ - NormalC anyName - [(Bang NoSourceUnpackedness NoSourceStrictness, VarT var_a)] + NormalC anyName + [(Bang NoSourceUnpackedness NoSourceStrictness, VarT var_a)] var_a = mkName "a" |