From 36fbe25e07c34ba81fbba735d4046a98ae75db3a Mon Sep 17 00:00:00 2001
From: Alan Zimmerman <alan.zimm@gmail.com>
Date: Wed, 3 May 2017 15:26:51 +0200
Subject: [PATCH] Minor cleanup

---
 core/GhcMod/DynFlagsTH.hs | 2 --
 1 file changed, 2 deletions(-)

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
                           |]