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

The data-pprint and pretty-show packages used for debugging
tend to be poorly supported, drop one of them for now.

hledger-lib/Hledger/Utils.hs

@@ -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
+-- -- | Print a showable value to the console, with a message, if the
--- debug level is at or above the specified level (uses
+-- -- debug level is at or above the specified level (uses
--- unsafePerformIO).
+-- -- unsafePerformIO).
--- Values are displayed with pprint. Field names are not shown, but the
+-- -- Values are displayed with pprint. Field names are not shown, but the
--- output is compact with smart line wrapping, long data elided,
+-- -- output is compact with smart line wrapping, long data elided,
--- and slow calculations timed out.
+-- -- and slow calculations timed out.
-dbgpprint :: Data a => Int -> String -> a -> a
+-- dbgpprint :: Data a => Int -> String -> a -> a
-dbgpprint level msg a
+-- dbgpprint level msg a
-    | debugLevel >= level = unsafePerformIO $ do
+--     | debugLevel >= level = unsafePerformIO $ do
-                              pprint a >>= putStrLn . ((msg++": \n") ++) . show
+--                               pprint a >>= putStrLn . ((msg++": \n") ++) . show
-                              return a
+--                               return a
-    | otherwise           = a
+--     | otherwise           = a
 
 
 -- | Like dbg, then exit the program. Uses unsafePerformIO.

hledger-lib/hledger-lib.cabal

@@ -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

hledger/hledger.cabal

@@ -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