From d7d08354aee5ecea6a1de2e4708ac0161b2be3e3 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 25 Jan 2009 12:52:28 +0000
Subject: [PATCH] cleanups

---
 hledger.hs | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/hledger.hs b/hledger.hs
index 60fcae7d4..47787730a 100644
--- a/hledger.hs
+++ b/hledger.hs
@@ -34,12 +34,16 @@ or ghci:
 -}
 
 module Main (
+             -- for easy ghci access
              module Main,
              module Utils,
              module Options,
              module BalanceCommand,
              module PrintCommand,
              module RegisterCommand,
+#ifdef HAPPS
+             module WebCommand,
+#endif
 )
 where
 import Control.Monad.Error
@@ -55,13 +59,13 @@ import BalanceCommand
 import PrintCommand
 import RegisterCommand
 #ifdef VTY
-import qualified UICommand
+import UICommand
 #endif
 #ifdef ANSI
-import qualified ANSICommand
+import ANSICommand
 #endif
 #ifdef HAPPS
-import qualified WebCommand
+import WebCommand
 #endif
 
 
@@ -77,13 +81,13 @@ main = do
        | cmd `isPrefixOf` "print"    = parseLedgerAndDo opts args print'
        | cmd `isPrefixOf` "register" = parseLedgerAndDo opts args register
 #ifdef VTY
-       | cmd `isPrefixOf` "ui"       = parseLedgerAndDo opts args UICommand.ui
+       | cmd `isPrefixOf` "ui"       = parseLedgerAndDo opts args ui
 #endif
 #ifdef ANSI
-       | cmd `isPrefixOf` "ansi"     = parseLedgerAndDo opts args ANSICommand.ansi
+       | cmd `isPrefixOf` "ansi"     = parseLedgerAndDo opts args ansi
 #endif
 #ifdef HAPPS
-       | cmd `isPrefixOf` "web"      = parseLedgerAndDo opts args WebCommand.web
+       | cmd `isPrefixOf` "web"      = parseLedgerAndDo opts args web
 #endif
        | cmd `isPrefixOf` "test"     = runtests opts args >> return ()
        | otherwise                   = putStr $ usage