show-please 0.5.1 → 0.5.2

raw patch · 2 files changed

+7/−7 lines, 2 files

Files

Debug/Show.hs +6/−6
show-please.cabal +1/−1

Debug/Show.hs view

@@ -2,17 +2,17 @@ -- correct haskell code, especially for exception types.  {-# LANGUAGE CPP, FlexibleInstances #-}+{-# OPTIONS -Wincomplete-patterns -Werror #-}  module Debug.Show (V(V)) where- import Control.Exception import Data.Maybe import Data.Time-import Foreign.C.Types-import GHC.Base+-- import Foreign.C.Types+-- import GHC.Base import GHC.IO.Exception-import GHC.IO.Handle-import GHC.Show+-- import GHC.IO.Handle+-- import GHC.Show import Language.Haskell.TH.Instances () import Language.Haskell.TH.Syntax import Text.Parsec.Error@@ -95,7 +95,7 @@ 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-instance Show (V ErrorCall) where show (V (ErrorCall s)) = "ErrorCall " ++ show s+instance Show (V ErrorCall) where show (V (ErrorCallWithLocation s t)) = "ErrorCallWithLocation " ++ show s ++ " " ++ show t 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

show-please.cabal view

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