show-please 0.4.1 → 0.4.2

raw patch · 2 files changed

+1/−27 lines, 2 files

Files

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

@@ -6,7 +6,6 @@ module Debug.Show (V(V)) where  import Control.Exception-import Data.Data import Data.Maybe import Data.Time import Foreign.C.Types@@ -105,31 +104,6 @@ instance Show (V RecSelError) where show (V e) = "RecSelError: " ++ show e instance Show (V RecUpdError) where show (V e) = "RecUpdError: " ++ show e instance Show (V SomeAsyncException) where show (V e) = "SomeAsyncException: " ++ show e--#if 0--- | Data.Data--instance Show (V DataType) where-    show (V x) = "mkDataType (" ++ show (dataTypeName x) ++ ") (" ++ (show . V . dataTypeRep) x ++ ")"--instance Show (V DataRep) where-    show (V (AlgRep constrs)) = "AlgRep [" ++ intercalate ", " (map (show . V) constrs) ++ "]"-    show (V x) = show x--instance Show (V Constr) where-    show (V x) = "mkConstr" ++-                 " (" ++ show (constrtype x) ++ ")" ++-                 " (" ++ show (showConstr x) ++ ")" ++-                 " (" ++ show (V (constrFields x)) ++ ")" ++-                 " (" ++ show (V (constrFixity x)) ++ ")"-{--                 " {conrep = " ++ show (V (constrRep x)) ++-                 ", constring = " ++ show (V (showConstr x)) ++-                 ", confields = " ++ show (V (constrFields x)) ++-                 ", confixity = " ++ show (V (constrFixity x)) ++-                 ", datatype = " ++ show (V (constrtype x)) ++ "}"--}-#endif  maybeFrom :: Maybe c -> c -> c maybeFrom = flip fromMaybe

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