slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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 -- Eg: cabal-dev/bin/wai-handler-devel 5001 AppRun withWaiHandlerDevelApp
withWaiHandlerDevelApp :: (Application -> IO ()) -> IO () withWaiHandlerDevelApp :: (Application -> IO ()) -> IO ()
withWaiHandlerDevelApp func = do withWaiHandlerDevelApp func = do
let f = "/repos/hledger/hledger-web/demo.journal" let f = "./test.journal"
ej <- readJournalFile Nothing f ej <- readJournalFile Nothing f
let Right j = ej let Right j = ej
let a = App{ let a = App{
getStatic=static Hledger.Web.Settings.staticdir getStatic=static Hledger.Web.Settings.staticdir
,appRoot=Settings.defapproot ,appRoot="http://localhost:5002"
,appOpts=defwebopts{cliopts_=defcliopts{file_=Just f}} ,appOpts=defwebopts{cliopts_=defcliopts{file_=Just f}}
,appArgs=[] ,appArgs=[]
,appJournal=j ,appJournal=j