;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 =
|
getDirectoryContentsSafe d =
|
||||||
(filter (not . (`elem` [".",".."])) `fmap` getDirectoryContents d) `C.catch` (\(_::C.IOException) -> return [])
|
(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
|
-- ** Lenses
|
||||||
|
|
||||||
makeHledgerClassyLenses ''CliOpts
|
makeHledgerClassyLenses ''CliOpts
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user