iritmaximus/haskell
1
0
Fork 0
mirror of https://github.com/iritmaximus/haskell.git synced 2026-10-12 19:13:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

upgrade to stackage snapshot lts-17.10, GHC 8.10.4

Browse Source
This commit is contained in:
Joel Kaasinen
2021-05-03 09:16:01 +03:00
parent 1a58de3de2
commit d5edf0b902
3 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
exercises/Mooc/Th.hs
+3 -3
View File
@@ -9,8 +9,8 @@ where
import Data.Char
import Data.List
import Data.Maybe
import Language.Haskell.TH
import Language.Haskell.TH.Syntax
import Language.Haskell.TH hiding (reifyType)
import Language.Haskell.TH.Syntax hiding (reifyType)
-- testing presence of definitions
@@ -238,7 +238,7 @@ unqualify (AppE f x) = AppE (unqualify f) (unqualify x)
unqualify (InfixE mleft op mright) = InfixE (fmap unqualify mleft) (unqualify op) (fmap unqualify mright)
unqualify (UInfixE left op right) = UInfixE (unqualify left) (unqualify op) (unqualify right)
unqualify (LitE l) = LitE l
unqualify (TupE exps) = TupE (map unqualify exps)
unqualify (TupE exps) = TupE (map (fmap unqualify) exps)
unqualify (ListE exps) = ListE (map unqualify exps)
unqualify (ArithSeqE (FromR x)) = ArithSeqE (FromR (unqualify x))
unqualify x = error $ "Unsupported: " ++ show x