hledger.hs exports cleanup

This commit is contained in:
Simon Michael 2009-06-02 19:01:21 +00:00
parent e91560989c
commit df3eb6a2cb

View File

@ -1,4 +1,4 @@
-- sp doesn't like.. #!/usr/bin/env runhaskell -- #!/usr/bin/env runhaskell <- sp doesn't like
{-# OPTIONS_GHC -cpp #-} {-# OPTIONS_GHC -cpp #-}
{-| {-|
hledger - a ledger-compatible text-based accounting tool. hledger - a ledger-compatible text-based accounting tool.
@ -35,13 +35,7 @@ or ghci:
See "Ledger.Ledger" for more examples. See "Ledger.Ledger" for more examples.
-} -}
module Main (-- export for easy ghci access: module Main where
module Main,
module Utils,
module Options,
module Commands.All,
)
where
import Control.Monad.Error import Control.Monad.Error
import Prelude hiding (putStr, putStrLn) import Prelude hiding (putStr, putStrLn)
import System.IO (stderr) import System.IO (stderr)
@ -55,7 +49,6 @@ import Tests
import Utils (withLedgerDo) import Utils (withLedgerDo)
import Version (versionmsg, binaryfilename) import Version (versionmsg, binaryfilename)
main :: IO () main :: IO ()
main = do main = do
(opts, cmd, args) <- parseArguments (opts, cmd, args) <- parseArguments
@ -80,4 +73,3 @@ main = do
#endif #endif
| cmd `isPrefixOf` "test" = runtests opts args >> return () | cmd `isPrefixOf` "test" = runtests opts args >> return ()
| otherwise = putStr $ usage | otherwise = putStr $ usage