diff --git a/core/GhcMod/DynFlagsTH.hs b/core/GhcMod/DynFlagsTH.hs index fbcee1f..1b03851 100644 --- 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 |]