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

Hlint: Error: Monad law, left identity

Browse Source
This commit is contained in:
marko.kocic 2009-09-22 10:46:03 +00:00
parent c06580ff2a
commit 96aa730951
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Utils.hs
View File

@ -34,8 +34,8 @@ withLedgerDo opts args cmdname cmd = do
tc <- getClockTime tc <- getClockTime
let go = cmd opts args . filterAndCacheLedgerWithOpts opts args t rawtext . (\rl -> rl{filepath=f,filereadtime=tc}) let go = cmd opts args . filterAndCacheLedgerWithOpts opts args t rawtext . (\rl -> rl{filepath=f,filereadtime=tc})
case creating of case creating of
True -> return rawLedgerEmpty >>= go True -> go rawLedgerEmpty
False -> return f >>= runErrorT . parseLedgerFile t >>= either (hPutStrLn stderr) go False -> (runErrorT . parseLedgerFile t) f >>= either (hPutStrLn stderr) go
-- | Get a Ledger from the given string and options, or raise an error. -- | Get a Ledger from the given string and options, or raise an error.
ledgerFromStringWithOpts :: [Opt] -> [String] -> LocalTime -> String -> IO Ledger ledgerFromStringWithOpts :: [Opt] -> [String] -> LocalTime -> String -> IO Ledger