mirror of
https://github.com/simonmichael/hledger.git
synced 2024-11-10 05:39:31 +03:00
hledger.hs exports cleanup
This commit is contained in:
parent
e91560989c
commit
df3eb6a2cb
12
hledger.hs
12
hledger.hs
@ -1,4 +1,4 @@
|
||||
-- sp doesn't like.. #!/usr/bin/env runhaskell
|
||||
-- #!/usr/bin/env runhaskell <- sp doesn't like
|
||||
{-# OPTIONS_GHC -cpp #-}
|
||||
{-|
|
||||
hledger - a ledger-compatible text-based accounting tool.
|
||||
@ -35,13 +35,7 @@ or ghci:
|
||||
See "Ledger.Ledger" for more examples.
|
||||
-}
|
||||
|
||||
module Main (-- export for easy ghci access:
|
||||
module Main,
|
||||
module Utils,
|
||||
module Options,
|
||||
module Commands.All,
|
||||
)
|
||||
where
|
||||
module Main where
|
||||
import Control.Monad.Error
|
||||
import Prelude hiding (putStr, putStrLn)
|
||||
import System.IO (stderr)
|
||||
@ -55,7 +49,6 @@ import Tests
|
||||
import Utils (withLedgerDo)
|
||||
import Version (versionmsg, binaryfilename)
|
||||
|
||||
|
||||
main :: IO ()
|
||||
main = do
|
||||
(opts, cmd, args) <- parseArguments
|
||||
@ -80,4 +73,3 @@ main = do
|
||||
#endif
|
||||
| cmd `isPrefixOf` "test" = runtests opts args >> return ()
|
||||
| otherwise = putStr $ usage
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user