pretty-display 0.1.7 → 0.1.8

raw patch · 2 files changed

+12/−3 lines, 2 files

Files

• pretty-display.cabal +2/−1
• src/Text/Display.hs +10/−2

@@ -1,5 +1,5 @@ name:                pretty-display-version:             0.1.7+version:             0.1.8 synopsis:            Typeclass for human-readable display description:         Typeclass for human-readable display. Provides tools for                      working interactively within ghci.@@ -12,6 +12,7 @@ category:            Text build-type:          Simple cabal-version:       >=1.10+tested-with:         GHC==8.0.1, GHC==7.10.3, GHC==7.10.2  library   hs-source-dirs:      src

@@ -1,5 +1,9 @@ {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE UndecidableInstances #-}+{-# LANGUAGE CPP #-}+#if __GLASGOW_HASKELL__ < 710+{-# LANGUAGE OverlappingInstances #-}+#endif module Text.Display   ( mkDisplayText   , unDisplayText@@ -12,7 +16,7 @@   , dPrint    -- * Re-exports-  , ppShow+  , Pretty.ppShow   , pPrint    -- * Types@@ -25,7 +29,7 @@ import qualified Data.Text as Text import qualified Data.Text.IO as TextIO -import Text.Show.Pretty as Pretty+import qualified Text.Show.Pretty as Pretty  newtype DisplayText = DisplayText { _fromDisplayText :: Text } deriving (Eq) @@ -77,3 +81,7 @@ -- | Print 'Display' instance. dPrint :: Display a => a -> IO () dPrint a = TextIO.putStrLn (dShow a)++-- | Pretty print 'Show' instance.+pPrint :: Show a => a -> IO ()+pPrint a = putStrLn (Pretty.ppShow a)