slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

drop data-pprint for now, does not support ghc 7.8

Browse Source 
The data-pprint and pretty-show packages used for debugging
tend to be poorly supported, drop one of them for now.
This commit is contained in:
Simon Michael 2014-03-19 16:11:46 -07:00
parent 7d36789b74
commit 59cbc230d8
3 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
hledger-lib/Hledger/Utils.hs
View File

@ -21,7 +21,7 @@ module Hledger.Utils (---- provide these frequently used modules - or not, for c
---- all of this one:
module Hledger.Utils,
Debug.Trace.trace,
module Data.PPrint,
-- module Data.PPrint,
-- module Hledger.Utils.UTF8IOCompat
SystemString,fromSystemString,toSystemString,error',userError',
ppShow
@ -36,7 +36,7 @@ import Data.Data
import Data.List
import qualified Data.Map as M
import Data.Maybe
import Data.PPrint
-- import Data.PPrint
import Data.Time.Clock
import Data.Time.LocalTime
import Data.Tree
@ -418,18 +418,18 @@ dbgppshow level
| debugLevel >= level = \s -> traceWith (((s++": ")++) . ppShow)
| otherwise = flip const
-- | Print a showable value to the console, with a message, if the
-- debug level is at or above the specified level (uses
-- unsafePerformIO).
-- Values are displayed with pprint. Field names are not shown, but the
-- output is compact with smart line wrapping, long data elided,
-- and slow calculations timed out.
dbgpprint :: Data a => Int -> String -> a -> a
dbgpprint level msg a
| debugLevel >= level = unsafePerformIO $ do
pprint a >>= putStrLn . ((msg++": \n") ++) . show
return a
| otherwise = a
-- -- | Print a showable value to the console, with a message, if the
-- -- debug level is at or above the specified level (uses
-- -- unsafePerformIO).
-- -- Values are displayed with pprint. Field names are not shown, but the
-- -- output is compact with smart line wrapping, long data elided,
-- -- and slow calculations timed out.
-- dbgpprint :: Data a => Int -> String -> a -> a
-- dbgpprint level msg a
-- | debugLevel >= level = unsafePerformIO $ do
-- pprint a >>= putStrLn . ((msg++": \n") ++) . show
-- return a
-- | otherwise = a
-- | Like dbg, then exit the program. Uses unsafePerformIO.

4
hledger-lib/hledger-lib.cabal
View File

@ -60,7 +60,7 @@ library
,cmdargs >= 0.10 && < 0.11
,containers
,csv
,data-pprint >= 0.2.3 && < 0.3
-- ,data-pprint >= 0.2.3 && < 0.3
,directory
,filepath
,mtl
@ -91,7 +91,7 @@ test-suite tests
, cmdargs
, containers
, csv
, data-pprint >= 0.2.3 && < 0.3
-- , data-pprint >= 0.2.3 && < 0.3
, directory
, filepath
, HUnit

6
hledger/hledger.cabal
View File

@ -67,7 +67,7 @@ library
-- ,cabal-file-th
,containers
,cmdargs >= 0.10 && < 0.11
,data-pprint >= 0.2.1 && < 0.3
-- ,data-pprint >= 0.2.1 && < 0.3
,directory
,filepath
,haskeline >= 0.6 && <= 0.8
@ -124,7 +124,7 @@ executable hledger
,base >= 4.3 && < 5
,containers
,cmdargs >= 0.10 && < 0.11
,data-pprint >= 0.2.1 && < 0.3
-- ,data-pprint >= 0.2.1 && < 0.3
,directory
,filepath
,haskeline >= 0.6 && <= 0.8
@ -155,7 +155,7 @@ test-suite tests
, cmdargs
, containers
, csv
, data-pprint >= 0.2.1 && < 0.3
-- , data-pprint >= 0.2.1 && < 0.3
, directory
, filepath
, haskeline