HAppSHelpers 0.7 → 0.8

raw patch · 2 files changed

+4/−2 lines, 2 files

Files

HAppS/Server/Helpers.hs +3/−1
HAppSHelpers.cabal +1/−1

HAppS/Server/Helpers.hs view

@@ -7,8 +7,10 @@ import System.Environment import Control.Concurrent import System.Time+import HAppS.Server.CookieFixer  -- run the happs server on some port+-- include cookie fix, various other enhancements that make things simpler smartserver :: (Methods st, Component st, ToMessage a) =>                Conf -> String -> [ServerPartT IO a] -> Proxy st -> IO () smartserver conf progName c stateProxy = withProgName progName $ do@@ -17,7 +19,7 @@        putStrLn . ( "happs state started" ++ ) =<< time -      tid <- forkIO $ simpleHTTP conf c+      tid <- forkIO $ simpleHTTP conf ( map cookieFixer c)       putStrLn . ( ( "simpleHttp started on port " ++ (show . port $ conf) ++ "\n" ++                  "shut down with ctrl-c" ) ++) =<< time

HAppSHelpers.cabal view

@@ -1,5 +1,5 @@ Name: HAppSHelpers-Version: 0.7+Version: 0.8 License: BSD3 License-file: bsd3.txt Description: Functions I found I was using repeatedly when programming HAppS based web-apps.