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

dev: Hledger.Utils.IO: warn

Browse Source
This commit is contained in:
Simon Michael 2024-12-03 16:05:01 -10:00
parent a47dce073d
commit 05ae105b42
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,6 +19,7 @@ module Hledger.Utils.IO (
-- * Errors -- * Errors
error', error',
usageError, usageError,
warn,
-- * Time -- * Time
getCurrentLocalTime, getCurrentLocalTime,
@ -121,6 +122,7 @@ import qualified Data.Text.Lazy.Builder as TB
import Data.Time.Clock (getCurrentTime) import Data.Time.Clock (getCurrentTime)
import Data.Time.LocalTime (LocalTime, ZonedTime, getCurrentTimeZone, utcToLocalTime, utcToZonedTime) import Data.Time.LocalTime (LocalTime, ZonedTime, getCurrentTimeZone, utcToLocalTime, utcToZonedTime)
import Data.Word (Word16) import Data.Word (Word16)
import Debug.Trace (trace)
import Foreign.C.Error (Errno(..), ePIPE) import Foreign.C.Error (Errno(..), ePIPE)
import GHC.IO.Exception (IOException(..), IOErrorType (ResourceVanished)) import GHC.IO.Exception (IOException(..), IOErrorType (ResourceVanished))
import Language.Haskell.TH.Syntax (Q, Exp) import Language.Haskell.TH.Syntax (Q, Exp)
@ -192,6 +194,13 @@ error' = errorWithoutStackTrace . ("Error: " <>)
usageError :: String -> a usageError :: String -> a
usageError = error' . (++ " (use -h to see usage)") usageError = error' . (++ " (use -h to see usage)")
-- | Show a warning message on stderr before returning the given value.
-- Use this when you want to show the user a message on stderr, without stopping the program.
-- Currently we do this very sparingly in hledger; we prefer to either quietly work,
-- or loudly raise an error. Variable output can make scripting harder.
warn :: String -> a -> a
warn msg = trace ("Warning: " <> msg)
-- Time -- Time