simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2025-01-08 11:49:44 +03:00
Code Issues Projects Releases Wiki Activity

imp: cli: demote some debug output

Browse Source
This commit is contained in:
Simon Michael 2024-07-06 17:03:01 +01:00
parent 65ac41e155
commit cdc6987e76
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger/Hledger/Cli/Conf.hs
View File

@ -86,7 +86,7 @@ getConf rawopts
Nothing -> return Nothing Nothing -> return Nothing
case (mspecifiedconf, defconffiles) of case (mspecifiedconf, defconffiles) of
(Just f, _ ) -> readConfFile f (Just f, _ ) -> readConfFile f
(Nothing,f:_) -> dbg1IO "found config files" defconffiles >> dbg1IO "using config file" f >> readConfFile f (Nothing,f:_) -> dbg8IO "found config files" defconffiles >> dbg1IO "using config file" f >> readConfFile f
(Nothing,[] ) -> return $ traceAt 1 "no config file found" (nullconf, Nothing) (Nothing,[] ) -> return $ traceAt 1 "no config file found" (nullconf, Nothing)
where where
noconf = boolopt "no-conf" rawopts noconf = boolopt "no-conf" rawopts
@ -122,7 +122,7 @@ confDirs = do
dirs <- getDirsUpToRoot here dirs <- getDirsUpToRoot here
let dirs2 = if home `elem` dirs then dirs else dirs <> [home] let dirs2 = if home `elem` dirs then dirs else dirs <> [home]
let dirs3 = if xdgc `elem` dirs2 then dirs2 else dirs2 <> [xdgc] let dirs3 = if xdgc `elem` dirs2 then dirs2 else dirs2 <> [xdgc]
return $ dbg1 "searching config dirs" dirs3 return $ dbg8 "searching config dirs" dirs3
-- | Get this directory and all of its parents up to /. -- | Get this directory and all of its parents up to /.
getDirsUpToRoot :: FilePath -> IO [FilePath] getDirsUpToRoot :: FilePath -> IO [FilePath]