slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

webyesod: run simpleserver directly to avoid inaccurate startup message

Browse Source
This commit is contained in:
Simon Michael 2010-07-07 09:00:46 +00:00
parent fcd88ed178
commit ac1dbb07ef
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Hledger/Cli/Commands/WebYesod.hs
View File

@ -7,6 +7,7 @@ module Hledger.Cli.Commands.WebYesod
where where
import Control.Concurrent -- (forkIO) import Control.Concurrent -- (forkIO)
import Data.Either import Data.Either
import Network.Wai.Handler.SimpleServer (run)
import System.FilePath ((</>)) import System.FilePath ((</>))
import System.IO.Storage (withStore, putValue, getValue) import System.IO.Storage (withStore, putValue, getValue)
import Text.Hamlet import Text.Hamlet
@ -58,7 +59,7 @@ server url port opts args j = do
} }
withStore "hledger" $ do -- IO () withStore "hledger" $ do -- IO ()
putValue "hledger" "journal" j putValue "hledger" "journal" j
toWaiApp app >>= basicHandler port toWaiApp app >>= run port
data HledgerWebApp = HledgerWebApp { data HledgerWebApp = HledgerWebApp {
appOpts::[Opt] appOpts::[Opt]

1
hledger.cabal
View File

@ -120,6 +120,7 @@ executable hledger
,hamlet >= 0.3.1 && < 0.4 ,hamlet >= 0.3.1 && < 0.4
,io-storage >= 0.3 && < 0.4 ,io-storage >= 0.3 && < 0.4
,wai >= 0.1 && < 0.2 ,wai >= 0.1 && < 0.2
,wai-extra >= 0.1 && < 0.2
,yesod >= 0.3.1 && < 0.4 ,yesod >= 0.3.1 && < 0.4
if flag(chart) if flag(chart)