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

;dev: cleanup

Browse Source
This commit is contained in:
Simon Michael 2025-06-12 18:48:21 -10:00
parent 57031b0e78
commit 16fd84166a
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
hledger-lib/Hledger/Utils/IO.hs
View File

@ -238,9 +238,8 @@ ansiFormatWarning = (<> sgrresetall) . ((sgrbrightyellow <> sgrbold) <>)
modifyFirstLine :: (String -> String) -> String -> String modifyFirstLine :: (String -> String) -> String -> String
modifyFirstLine f s = intercalate "\n" $ map f l <> ls where (l,ls) = splitAt 1 $ lines s -- total modifyFirstLine f s = intercalate "\n" $ map f l <> ls where (l,ls) = splitAt 1 $ lines s -- total
{- | Print an error message to stderr, with a consistent "programname: " prefix, -- | Print an error message to stderr, with a consistent "programname: " prefix,
and applying ANSI styling (bold bright red) to the first line if that is supported and allowed. -- and applying ANSI styling (bold bright red) to the first line if that is supported and allowed.
-}
printError :: String -> IO () printError :: String -> IO ()
printError msg = do printError msg = do
progname <- getProgName progname <- getProgName
@ -256,9 +255,8 @@ printError msg = do
<> (if "Error:" `isPrefixOf` msg then "" else "Error: ") <> (if "Error:" `isPrefixOf` msg then "" else "Error: ")
hPutStrLn stderr $ style $ prefix <> msg hPutStrLn stderr $ style $ prefix <> msg
{- | Print an error message with printError, -- | Print an error message with printError,
then exit the program with a non-zero exit code. -- then exit the program with a non-zero exit code.
-}
exitWithErrorMessage :: String -> IO () exitWithErrorMessage :: String -> IO ()
exitWithErrorMessage msg = printError msg >> exitFailure exitWithErrorMessage msg = printError msg >> exitFailure