From 1c3a5da1fadc278d2ea7a6d71f9c22ea06cf621a Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 3 Jun 2011 23:11:53 +0000
Subject: [PATCH] web: better settings for wai-handler-devel

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

diff --git a/hledger-web/Hledger/Web/AppRun.hs b/hledger-web/Hledger/Web/AppRun.hs
index 34070e940..08a232abe 100644
--- a/hledger-web/Hledger/Web/AppRun.hs
+++ b/hledger-web/Hledger/Web/AppRun.hs
@@ -48,12 +48,12 @@ withDevelApp = toDyn (withApp a :: (Application -> IO ()) -> IO ())
 -- Eg: cabal-dev/bin/wai-handler-devel 5001 AppRun withWaiHandlerDevelApp
 withWaiHandlerDevelApp :: (Application -> IO ()) -> IO ()
 withWaiHandlerDevelApp func = do
-  let f = "/repos/hledger/hledger-web/demo.journal"
+  let f = "./test.journal"
   ej <- readJournalFile Nothing f
   let Right j = ej
   let a = App{
               getStatic=static Hledger.Web.Settings.staticdir
-             ,appRoot=Settings.defapproot
+             ,appRoot="http://localhost:5002"
              ,appOpts=defwebopts{cliopts_=defcliopts{file_=Just f}}
              ,appArgs=[]
              ,appJournal=j