From 2adc4bf1654781508edf84ef0f84bafff93cc4ea Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Sat, 26 Mar 2022 10:47:58 +0000 Subject: [PATCH 1/2] Fix Show instance --- ghcide/src/Development/IDE/Core/RuleTypes.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/ghcide/src/Development/IDE/Core/RuleTypes.hs b/ghcide/src/Development/IDE/Core/RuleTypes.hs index 3683104745..183db2c5a5 100644 --- a/ghcide/src/Development/IDE/Core/RuleTypes.hs +++ b/ghcide/src/Development/IDE/Core/RuleTypes.hs @@ -421,7 +421,10 @@ 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" pattern GhcSessionDeps :: GhcSessionDeps pattern GhcSessionDeps = GhcSessionDeps_ False From 1621deec645bb405c76070502a813ec6b11c403b Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Tue, 29 Mar 2022 20:40:04 +0100 Subject: [PATCH 2/2] include fullModSummary --- ghcide/src/Development/IDE/Core/RuleTypes.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ghcide/src/Development/IDE/Core/RuleTypes.hs b/ghcide/src/Development/IDE/Core/RuleTypes.hs index 183db2c5a5..e4c9bcafcd 100644 --- a/ghcide/src/Development/IDE/Core/RuleTypes.hs +++ b/ghcide/src/Development/IDE/Core/RuleTypes.hs @@ -424,7 +424,8 @@ newtype GhcSessionDeps = GhcSessionDeps_ deriving newtype (Eq, Typeable, Hashable, NFData) instance Show GhcSessionDeps where - show _ = "GhcSessionDeps" + show (GhcSessionDeps_ False) = "GhcSessionDeps" + show (GhcSessionDeps_ True) = "GhcSessionDepsFull" pattern GhcSessionDeps :: GhcSessionDeps pattern GhcSessionDeps = GhcSessionDeps_ False