hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor cleanup

Browse Source
This commit is contained in:
Alan Zimmerman 2017-05-03 15:26:51 +02:00
parent 597ffd02ea
commit 36fbe25e07
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/GhcMod/DynFlagsTH.hs
View File

@ -172,10 +172,8 @@ deriveEqDynFlags qds = do
uni = IS.union aa bb uni = IS.union aa bb
dif = IS.intersection aa bb dif = IS.intersection aa bb
delta = IS.difference uni dif delta = IS.difference uni dif
-- deltaStr = show $ map toEnum $( (IS.toList delta) :: [GeneralFlag] )
r = if delta == IS.empty r = if delta == IS.empty
then [(True, "")] then [(True, "")]
-- else [(False, "generalFlags:delta=" ++ deltaStr )]
else [(False, fieldName ++ ":delta=" ++ (show delta) )] else [(False, fieldName ++ ":delta=" ++ (show delta) )]
in fn in fn
|] |]