show-please 0.4.2 → 0.5.1

raw patch · 2 files changed

+14/−3 lines, 2 filesdep +th-orphans

Dependencies added: th-orphans

Files

• Debug/Show.hs +12/−1
• show-please.cabal +2/−2

@@ -1,7 +1,7 @@ -- | A wrapper type and associated Show instances that generate -- correct haskell code, especially for exception types. -{-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE CPP, FlexibleInstances #-}  module Debug.Show (V(V)) where @@ -13,6 +13,8 @@ import GHC.IO.Exception import GHC.IO.Handle import GHC.Show+import Language.Haskell.TH.Instances ()+import Language.Haskell.TH.Syntax import Text.Parsec.Error import Text.Parsec.Pos @@ -110,3 +112,12 @@  instance Show (V UTCTime) where     show (V t) = "(read " ++ show (show t) ++ " :: UTCTime)"++instance Show (V Name) where+    show (V (Name o f)) = "Name (" ++ show o ++ ") (" ++ show (V f) ++ ")"+instance Show (V NameFlavour) where+    show (V NameS) = "NameS"+    show (V (NameQ m)) = "NameQ " ++ show m+    show (V (NameU n)) = "NameU " ++ show n+    show (V (NameL n)) = "NameL " ++ show n+    show (V (NameG s p m)) = "NameG (" ++ show (s) ++ ") (" ++ show (p) ++ ") (" ++ show (m) ++ ")"

@@ -1,5 +1,5 @@ Name:           show-please-Version:        0.4.2+Version:        0.5.1 License:        BSD3 Author:         David Fox <dsf@seereason.com> Category:       debug@@ -14,6 +14,6 @@  Library  Build-Depends:-  base >= 4 && < 5, mtl, parsec, template-haskell, time >= 1.5+  base >= 4 && < 5, mtl, parsec, template-haskell, th-orphans, time >= 1.5  Exposed-Modules:   Debug.Show