From 2d3ac6f032383754e8c4f34a3cd0e62745ff468f Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 14 Jun 2011 19:48:52 +0000
Subject: [PATCH] web: don't run tests when just creating support files

---
 hledger-web/hledger-web.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger-web/hledger-web.hs b/hledger-web/hledger-web.hs
index 20fa164e1..70b6df056 100644
--- a/hledger-web/hledger-web.hs
+++ b/hledger-web/hledger-web.hs
@@ -68,14 +68,14 @@ main = do
 -- | The web command.
 web :: [Opt] -> [String] -> Journal -> IO ()
 web opts args j = do
-  putStrLn $ "Running self-tests..."
-  runTestsOrExit opts args
   created <- createFilesIfMissing
   if created
    then do
      putStrLn $ "Installing support files in "++datadir++" - done, please run again."
      exitFailure
    else do
+     putStrLn $ "Running self-tests..."
+     runTestsOrExit opts args
      putStrLn $ "Using support files in "++datadir
      let host    = defhost
          port    = fromMaybe defport $ portFromOpts opts