show-please 0.5.3 → 0.5.4

raw patch · 2 files changed

+5/−1 lines, 2 files

Files

• Debug/Show.hs +4/−0
• show-please.cabal +1/−1

@@ -95,7 +95,11 @@ instance Show (V BlockedIndefinitelyOnSTM) where show (V e) = "BlockedIndefinitelyOnSTM: " ++ show e instance Show (V Deadlock) where show (V e) = "Deadlock: " ++ show e -- instance Show (V Dynamic) where show (V e) = "Dynamic: " ++ show e+#if MIN_VERSION_base(4,9,0) instance Show (V ErrorCall) where show (V (ErrorCallWithLocation s t)) = "ErrorCallWithLocation " ++ show s ++ " " ++ show t+#else+instance Show (V ErrorCall) where show (V (ErrorCall s)) = "ErrorCallWithLocation " ++ show s+#endif instance Show (V ExitCode) where show (V e) = "ExitCode: " ++ show e -- instance Show (V IOException) where show (V e) = "IOException: " ++ show e -- defined above instance Show (V NestedAtomically) where show (V e) = "NestedAtomically: " ++ show e

@@ -1,5 +1,5 @@ Name:           show-please-Version:        0.5.3+Version:        0.5.4 License:        BSD3 Author:         David Fox <dsf@seereason.com> Category:       debug