fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

Draft: Resolve "GHC und Dependencies auf die neuste Version bringen" #206

Open
savau wants to merge 583 commits from 144-ghc-update into master
pull from: 144-ghc-update
merge into: fraport:master
Conversation 127 Commits 583 Files Changed 196 +4 -1
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit df89d4a379 - Show all commits

5
src/Utils/TH.hs
View File

@ -111,6 +111,9 @@ afterN n = do
deriveShowWith :: (String -> String) -> Name -> Q [Dec]
deriveShowWith = deriveSimpleWith ''Show 'show
unitTypeOut :: () -> ()
unitTypeOut = id
deriveSimpleWith :: Name -> Name -> (String -> String) -> Name -> Q [Dec]
deriveSimpleWith cls fun strOp ty = do
(TyConI tyCon) <- reify ty
@ -125,7 +128,7 @@ deriveSimpleWith cls fun strOp ty = do
genClause :: Con -> Q Clause
genClause (NormalC name []) =
let pats = [ConP name []]
let pats = [ConP name [] []]
body = NormalB $ LitE $ StringL $ strOp $ nameBase name
in return $ Clause pats body []
genClause _ = fail "deriveShowTheme: constructors not allowed to have arguments"