slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

in a web-enabled build on windows, run the web ui by default

Browse Source
This commit is contained in:
Simon Michael 2010-07-13 21:53:03 +00:00
parent 4dac3af181
commit efa5545c0d
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Hledger/Cli/Main.hs
View File

@ -39,6 +39,7 @@ See "Hledger.Data.Ledger" for more examples.
-} -}
module Hledger.Cli.Main where module Hledger.Cli.Main where
import System.Info (os)
#if __GLASGOW_HASKELL__ <= 610 #if __GLASGOW_HASKELL__ <= 610
import Prelude hiding (putStr, putStrLn) import Prelude hiding (putStr, putStrLn)
import System.IO.UTF8 import System.IO.UTF8
@ -62,7 +63,7 @@ main = do
| HelpAll `elem` opts = putStr $ help1 ++ "\n" ++ help2 | HelpAll `elem` opts = putStr $ help1 ++ "\n" ++ help2
| Version `elem` opts = putStrLn versionmsg | Version `elem` opts = putStrLn versionmsg
| BinaryFilename `elem` opts = putStrLn binaryfilename | BinaryFilename `elem` opts = putStrLn binaryfilename
| null cmd = putStr help1 | null cmd = maybe (putStr help1) (withJournalDo opts args cmd) defaultcmd
| cmd `isPrefixOf` "balance" = withJournalDo opts args cmd balance | cmd `isPrefixOf` "balance" = withJournalDo opts args cmd balance
| cmd `isPrefixOf` "convert" = withJournalDo opts args cmd convert | cmd `isPrefixOf` "convert" = withJournalDo opts args cmd convert
| cmd `isPrefixOf` "print" = withJournalDo opts args cmd print' | cmd `isPrefixOf` "print" = withJournalDo opts args cmd print'
@ -81,3 +82,11 @@ main = do
#endif #endif
| cmd `isPrefixOf` "test" = runtests opts args >> return () | cmd `isPrefixOf` "test" = runtests opts args >> return ()
| otherwise = putStr help1 | otherwise = putStr help1
-- in a web-enabled build on windows, run the web ui by default
#if defined(WEB) || defined(WEB610)
defaultcmd | os=="mingw32" = Just web
| otherwise = Nothing
#else
defaultcmd = Nothing
#endif