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