git.iko.soy/typeable/wai
on master help sign in
Better exception support
735f7b9Michael
Network/Wai/Handler/Launch.hs+4−1
compare with master
unifiedsplit
@@ -45,7 +45,10 @@ launch = rawSystem "xdg-open" ["http://localhost:4587/"] >> return ()
45run :: Application -> IO ()
45run :: Application -> IO ()
46run app = do
46run app = do
47 x <- newIORef True
47 x <- newIORef True
48+ forkIO $ Warp.runSettings Warp.defaultSettings
49+ { Warp.settingsPort = 4587
50+ , Warp.settingsOnException = const $ return ()
48− forkIO $ Warp.run 4587 $ ping x app
51+ } $ ping x app
49 launch
52 launch
50 loop x
53 loop x
51
54
wai-handler-launch.cabal+1−1
@@ -18,7 +18,7 @@ Library
18 , http-types >= 0.6 && < 0.7
18 , http-types >= 0.6 && < 0.7
19 , transformers >= 0.2 && < 0.3
19 , transformers >= 0.2 && < 0.3
20 , bytestring >= 0.9 && < 1
20 , bytestring >= 0.9 && < 1
21− , blaze-builder >= 0.3 && < 0.4
21+ , blaze-builder >= 0.2 && < 0.4
22 , enumerator >= 0.4 && < 0.5
22 , enumerator >= 0.4 && < 0.5
23 if os(windows)
23 if os(windows)
24 c-sources: windows.c
24 c-sources: windows.c