From a1bcdcd15792cf05c1dfdf7f3dc48c98a7478a98 Mon Sep 17 00:00:00 2001
From: gesh <gesh@gesh.uni.cx>
Date: Sun, 2 Mar 2025 17:04:00 +0200
Subject: [PATCH] ;cln: Remove unused debugArgs

A variant of it is present as a local definition in getHledgerCliOpts'
---
 hledger/Hledger/Cli/CliOptions.hs | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/hledger/Hledger/Cli/CliOptions.hs b/hledger/Hledger/Cli/CliOptions.hs
index 7ab6a5e56..02b780bce 100644
--- a/hledger/Hledger/Cli/CliOptions.hs
+++ b/hledger/Hledger/Cli/CliOptions.hs
@@ -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