mirror of
https://github.com/simonmichael/hledger.git
synced 2024-11-08 07:09:28 +03:00
31 lines
669 B
Haskell
31 lines
669 B
Haskell
#!/usr/bin/runhaskell
|
|
-- hledger - ledger-compatible money management utilities (& haskell workout)
|
|
-- GPLv3, (c) Simon Michael & contributors,
|
|
-- John Wiegley's ledger is at http://newartisans.com/ledger.html .
|
|
|
|
import System (getArgs)
|
|
|
|
import Options
|
|
import Types
|
|
import Parse
|
|
import Tests
|
|
|
|
main :: IO ()
|
|
main = do
|
|
(opts, args) <- getArgs >>= getOptions
|
|
if "reg" `elem` args
|
|
then register
|
|
else if "test" `elem` args
|
|
then test
|
|
else return ()
|
|
|
|
-- commands
|
|
|
|
register :: IO ()
|
|
register = do
|
|
p <- parseLedgerFile ledgerFilePath
|
|
case p of
|
|
Left e -> do putStr "ledger parse error at "; print e
|
|
Right l -> putStr $ showLedger l
|
|
|