Fix Show instance (haskell#2802)

sloorush · May 21, 2022 · ea95359 · ea95359
1 parent 14c5fb1
commit ea95359
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/ghcide/src/Development/IDE/Core/RuleTypes.hs b/ghcide/src/Development/IDE/Core/RuleTypes.hs
@@ -421,7 +421,11 @@ newtype GhcSessionDeps = GhcSessionDeps_
         -- Required for interactive evaluation, but leads to more cache invalidations
         fullModSummary :: Bool
     }
-    deriving newtype (Eq, Show, Typeable, Hashable, NFData)
+    deriving newtype (Eq, Typeable, Hashable, NFData)
+
+instance Show GhcSessionDeps where
+    show (GhcSessionDeps_ False) = "GhcSessionDeps"
+    show (GhcSessionDeps_ True) = "GhcSessionDepsFull"
 
 pattern GhcSessionDeps :: GhcSessionDeps
 pattern GhcSessionDeps = GhcSessionDeps_ False