funnyprint 0.0.3 → 0.0.4

raw patch · 4 files changed

+15/−16 lines, 4 filesdep +posix-escapedep −textPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependencies added: posix-escape

Dependencies removed: text

API changes (from Hackage documentation)

Files

• funnyprint.cabal +4/−4
• library/FunnyPrint.hs +6/−8
• package.yaml +4/−4
• stack.yaml +1/−0

@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack  name:           funnyprint-version:        0.0.3+version:        0.0.4 synopsis:       funnyPrint function to colorize GHCi output. description:    see FunnyPrint.funnyPrint. category:       Text@@ -34,7 +34,7 @@       base >= 2 && < 6     , hscolour     , ipprint == 0.6-    , text+    , posix-escape   exposed-modules:       FunnyPrint   default-language: Haskell2010@@ -49,7 +49,7 @@       base >= 2 && < 6     , hscolour     , ipprint == 0.6-    , text+    , posix-escape     , funnyprint     , tasty     , tasty-hspec@@ -65,7 +65,7 @@       base >= 2 && < 6     , hscolour     , ipprint == 0.6-    , text+    , posix-escape     , funnyprint     , criterion   default-language: Haskell2010

@@ -1,15 +1,13 @@ -- | funnyPrint function to colorize GHCi output. See @FunnyPrint.funnyPrint@. module FunnyPrint ( Colored-                  , escape+                  , escapeQuotes                   , funnyPrint                   , funnyPrintC                   , prompt                   , prompt2                   ) where -import Prelude hiding ( putStrLn )-import Data.Text.IO ( putStrLn )-import Data.Text ( pack )+import System.Posix.Escape.Unicode ( escape ) import IPPrint ( pshow ) import Language.Haskell.HsColour.Output ( TerminalType(..) ) import Language.Haskell.HsColour.Colourise ( Colour(..)@@ -24,9 +22,9 @@                                       , highlightOff                                       ) -- | Escape quoutes in string.-escape :: String -- ^ handled string-       -> String-escape arg = "'" ++ ((\c -> if c == '\'' then "'\"'\"'" else [c]) =<< arg) ++"'"+escapeQuotes :: String -- ^ handled string+             -> String+escapeQuotes arg = "'" ++ ((\c -> if c == '\'' then "'\"'\"'" else [c]) =<< arg) ++"'"  term    :: TerminalType term    = XTerm256Compatible@@ -74,7 +72,7 @@ funnyPrint'   :: (Show a) => Colored -- ^ enable colors in prompt               -> a                   -- ^ printed input               -> IO ()-funnyPrint' c = putStrLn . pack . if c then colorize . pshow else pshow+funnyPrint' c = putStrLn .escape . if c then colorize . pshow else pshow   where     prefs = TTYg term     colorize = hscolour prefs colours False False "" False

@@ -7,7 +7,7 @@     - base >= 2 && < 6     - hscolour     - ipprint == 0.6-    - text+    - posix-escape     - funnyprint     - criterion     ghc-options:@@ -31,7 +31,7 @@   - base >= 2 && < 6   - hscolour   - ipprint == 0.6-  - text+  - posix-escape   source-dirs: library license: MIT license-file: LICENSE.md@@ -44,7 +44,7 @@     - base >= 2 && < 6     - hscolour     - ipprint == 0.6-    - text+    - posix-escape     - funnyprint     - tasty     - tasty-hspec@@ -54,4 +54,4 @@     - -with-rtsopts=-N     main: Main.hs     source-dirs: test-suite-version: '0.0.3'+version: '0.0.4'

@@ -42,6 +42,7 @@ extra-deps:   - ipprint-0.6   - sr-extra-1.46.3.2+  - posix-escape-0.1  # Override default flag values for local packages and extra-deps flags: {}