simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-08 07:09:28 +03:00
Code Issues Projects Releases Wiki Activity

utils tweaks

Browse Source
This commit is contained in:
Simon Michael 2008-12-10 07:08:50 +00:00
parent da70e00e3b
commit 130e3bcd30
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Ledger/Utils.hs
View File

@ -192,7 +192,9 @@ showforest = concatMap showtree
-- debugging -- debugging
-- | trace a showable expression -- | trace (print on stdout at runtime) a showable expression
-- (for easily tracing in the middle of a complex expression)
strace :: Show a => a -> a
strace a = trace (show a) a strace a = trace (show a) a
p = putStr p = putStr
@ -208,7 +210,7 @@ parsewith :: Parser a -> String -> Either ParseError a
parsewith p ts = parse p "" ts parsewith p ts = parse p "" ts
fromparse :: Either ParseError a -> a fromparse :: Either ParseError a -> a
fromparse = either (\e -> error $ "ledger parse error at "++(show e)) id fromparse = either (\e -> error $ "parse error at "++(show e)) id
nonspace :: GenParser Char st Char nonspace :: GenParser Char st Char
nonspace = satisfy (not . isSpace) nonspace = satisfy (not . isSpace)