Minor cleanup

2017-05-03 15:26:51 +02:00 · 2017-05-03 15:26:51 +02:00 · 36fbe25e07
parent 597ffd02ea
commit 36fbe25e07
1 changed files with 0 additions and 2 deletions
--- a/core/GhcMod/DynFlagsTH.hs
+++ b/core/GhcMod/DynFlagsTH.hs
@ -172,10 +172,8 @@ deriveEqDynFlags qds = do
                                     uni = IS.union aa bb
                                     dif = IS.intersection aa bb
                                     delta = IS.difference uni dif
-                                     -- deltaStr = show $ map toEnum $( (IS.toList delta) :: [GeneralFlag] )
                                     r = if delta == IS.empty
                                           then [(True, "")]
-                                           -- else [(False, "generalFlags:delta=" ++ deltaStr )]
                                           else [(False, fieldName ++ ":delta=" ++ (show delta) )]
                             in fn
                          |]