From ae69a216aca8d3812eca0291232f06636b8a659b Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Tue, 7 Apr 2009 21:16:42 +0000 Subject: [PATCH] whitespace --- hledger.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/hledger.hs b/hledger.hs index d8a0a4fae..4c48f448f 100644 --- a/hledger.hs +++ b/hledger.hs @@ -78,19 +78,19 @@ main = do run cmd opts args where run cmd opts args - | Help `elem` opts = putStr $ usage - | Version `elem` opts = putStr versionmsg - | cmd `isPrefixOf` "balance" = withLedgerDo opts args balance - | cmd `isPrefixOf` "print" = withLedgerDo opts args print' - | cmd `isPrefixOf` "register" = withLedgerDo opts args register + | Help `elem` opts = putStr $ usage + | Version `elem` opts = putStr versionmsg + | cmd `isPrefixOf` "balance" = withLedgerDo opts args balance + | cmd `isPrefixOf` "print" = withLedgerDo opts args print' + | cmd `isPrefixOf` "register" = withLedgerDo opts args register | cmd `isPrefixOf` "histogram" = withLedgerDo opts args histogram | cmd `isPrefixOf` "add" = withLedgerDo opts args add #ifdef VTY - | cmd `isPrefixOf` "ui" = withLedgerDo opts args ui + | cmd `isPrefixOf` "ui" = withLedgerDo opts args ui #endif #ifdef HAPPS - | cmd `isPrefixOf` "web" = withLedgerDo opts args web + | cmd `isPrefixOf` "web" = withLedgerDo opts args web #endif - | cmd `isPrefixOf` "test" = runtests opts args >> return () - | otherwise = putStr $ usage + | cmd `isPrefixOf` "test" = runtests opts args >> return () + | otherwise = putStr $ usage