;cln: Remove unused debugArgs
A variant of it is present as a local definition in getHledgerCliOpts'
This commit is contained in:
parent
11ff329a8e
commit
a1bcdcd157
@ -898,18 +898,6 @@ getDirectoryContentsSafe :: FilePath -> IO [String]
|
||||
getDirectoryContentsSafe d =
|
||||
(filter (not . (`elem` [".",".."])) `fmap` getDirectoryContents d) `C.catch` (\(_::C.IOException) -> return [])
|
||||
|
||||
-- not used:
|
||||
-- -- | Print debug info about arguments and options if --debug is present.
|
||||
-- debugArgs :: [String] -> CliOpts -> IO ()
|
||||
-- debugArgs args opts =
|
||||
-- when ("--debug" `elem` args) $ do
|
||||
-- progname <- getProgName
|
||||
-- putStrLn $ "running: " ++ progname
|
||||
-- putStrLn $ "raw args: " ++ show args
|
||||
-- putStrLn $ "processed opts:\n" ++ show opts
|
||||
-- d <- getCurrentDay
|
||||
-- putStrLn $ "search query: " ++ (show $ queryFromOpts d $ reportopts_ opts)
|
||||
|
||||
-- ** Lenses
|
||||
|
||||
makeHledgerClassyLenses ''CliOpts
|
||||
|
||||
Loading…
Reference in New Issue
Block a user