simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-14 02:14:14 +03:00
Code Issues Projects Releases Wiki Activity

web: better settings for wai-handler-devel

Browse Source
This commit is contained in:
Simon Michael 2011-06-03 23:11:53 +00:00
parent 737f908383
commit 1c3a5da1fa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-web/Hledger/Web/AppRun.hs
View File

@ -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