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

drop some experimental pprint logging

Browse Source
This commit is contained in:
Simon Michael 2013-12-06 13:26:08 -08:00
parent 3eac48871c
commit 6e7610c1b7
2 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger/Hledger/Cli/Main.hs
View File

@ -40,7 +40,6 @@ module Hledger.Cli.Main where
import Control.Monad import Control.Monad
import Data.List import Data.List
import Data.PPrint
import Safe import Safe
import System.Console.CmdArgs.Explicit (modeHelp) import System.Console.CmdArgs.Explicit (modeHelp)
-- import System.Console.CmdArgs.Helper -- import System.Console.CmdArgs.Helper
@ -114,9 +113,8 @@ main = do
version = putStrLn prognameandversion version = putStrLn prognameandversion
badCommandError = error' ("command "++rawcmd++" is not recognized, run with no command to see a list") >> exitFailure badCommandError = error' ("command "++rawcmd++" is not recognized, run with no command to see a list") >> exitFailure
f `orShowHelp` mode = if hasHelp args then putStr (showModeHelp mode) else f f `orShowHelp` mode = if hasHelp args then putStr (showModeHelp mode) else f
when (debug_ opts) $ do when (debug_ opts > 0) $ do
putStrLn $ "processed opts:\n" ++ show opts putStrLn $ "processed opts:\n" ++ ppShow opts
putStrLn . show =<< pprint opts
putStrLn $ "command matched: " ++ show cmd putStrLn $ "command matched: " ++ show cmd
putStrLn $ "isNullCommand: " ++ show isNullCommand putStrLn $ "isNullCommand: " ++ show isNullCommand
putStrLn $ "isInternalCommand: " ++ show isInternalCommand putStrLn $ "isInternalCommand: " ++ show isInternalCommand

2
hledger/Hledger/Cli/Options.hs
View File

@ -90,7 +90,6 @@ import Control.Monad (when)
import Data.List import Data.List
import Data.List.Split import Data.List.Split
import Data.Maybe import Data.Maybe
import Data.PPrint (pprint)
import Data.Time.Calendar import Data.Time.Calendar
import Safe import Safe
import System.Console.CmdArgs import System.Console.CmdArgs
@ -715,7 +714,6 @@ debugArgs args opts =
putStrLn $ "running: " ++ progname putStrLn $ "running: " ++ progname
putStrLn $ "raw args: " ++ show args putStrLn $ "raw args: " ++ show args
putStrLn $ "processed opts:\n" ++ show opts putStrLn $ "processed opts:\n" ++ show opts
putStrLn . show =<< pprint opts
d <- getCurrentDay d <- getCurrentDay
putStrLn $ "search query: " ++ (show $ queryFromOpts d $ reportopts_ opts) putStrLn $ "search query: " ++ (show $ queryFromOpts d $ reportopts_ opts)