mirror of
https://github.com/simonmichael/hledger.git
synced 2024-10-07 11:27:15 +03:00
clean up hledger.hs description
This commit is contained in:
parent
0879ba959d
commit
a74fb9692c
20
hledger.hs
20
hledger.hs
@ -1,10 +1,16 @@
|
|||||||
#!/usr/bin/env runhaskell
|
#!/usr/bin/env runhaskell
|
||||||
{-
|
{-|
|
||||||
hledger - ledger-compatible money management tool (& haskell study)
|
hledger - a ledger-compatible text-based accounting tool.
|
||||||
GPLv3, (c) Simon Michael & contributors
|
|
||||||
A port of John Wiegley's ledger at http://newartisans.com/ledger.html
|
|
||||||
|
|
||||||
See Types.hs for a code overview.
|
Copyright 2007-, Simon Michael & contributors, released under GPLv3 or
|
||||||
|
later.
|
||||||
|
|
||||||
|
This is a basic haskell clone of John Wiegley's ledger
|
||||||
|
<http://newartisans.com/software/ledger.html>. hledger does basic
|
||||||
|
register & balance reports, and demonstrates a (naive) purely
|
||||||
|
functional implementation of ledger.
|
||||||
|
|
||||||
|
See the "Types" module for a code overview.
|
||||||
-}
|
-}
|
||||||
|
|
||||||
module Main
|
module Main
|
||||||
@ -71,7 +77,7 @@ balance opts pats = do
|
|||||||
|
|
||||||
-- helpers for interacting in ghci
|
-- helpers for interacting in ghci
|
||||||
|
|
||||||
-- | returns a Ledger parsed from the file your LEDGER environment variable
|
-- | return a Ledger parsed from the file your LEDGER environment variable
|
||||||
-- points to or (WARNING:) an empty one if there was a problem.
|
-- points to or (WARNING:) an empty one if there was a problem.
|
||||||
myledger :: IO Ledger
|
myledger :: IO Ledger
|
||||||
myledger = do
|
myledger = do
|
||||||
@ -79,7 +85,7 @@ myledger = do
|
|||||||
let ledgerfile = either (\_ -> LedgerFile [] [] [] "") id parsed
|
let ledgerfile = either (\_ -> LedgerFile [] [] [] "") id parsed
|
||||||
return $ cacheLedger (argpats [] []) ledgerfile
|
return $ cacheLedger (argpats [] []) ledgerfile
|
||||||
|
|
||||||
-- | similar, but accepts a file path
|
-- | return a Ledger parsed from the given file path
|
||||||
ledgerfromfile :: String -> IO Ledger
|
ledgerfromfile :: String -> IO Ledger
|
||||||
ledgerfromfile f = do
|
ledgerfromfile f = do
|
||||||
parsed <- ledgerFilePath [File f] >>= parseLedgerFile
|
parsed <- ledgerFilePath [File f] >>= parseLedgerFile
|
||||||
|
Loading…
Reference in New Issue
Block a user