git.iko.soy/stackage
on bf52f1d help sign in
stackage/patching/patches/MFlow-0.3.3.patch
20 lines 852 B history raw
1diff -ru orig/src/MFlow/Wai/Blaze/Html/All.hs new/src/MFlow/Wai/Blaze/Html/All.hs
2--- orig/src/MFlow/Wai/Blaze/Html/All.hs 2014-03-11 21:46:17.260400422 +0200
3+++ new/src/MFlow/Wai/Blaze/Html/All.hs 2014-03-11 21:46:16.000000000 +0200
4@@ -36,7 +36,7 @@
5 import Text.Blaze.Html5 hiding (map)
6 import Text.Blaze.Html5.Attributes hiding (label,span,style,cite,title,summary,step,form)
7 import Network.Wai
8-import Network.Wai.Handler.Warp
9+import qualified Network.Wai.Handler.Warp as Warp
10 import Data.TCache
11 import Text.Blaze.Internal(text)
13@@ -74,6 +74,6 @@
14 when(not $ null n) $ setNoScript n
15 addMessageFlows[(n, runFlow f)]
16 porti <- getPort
17- wait $ run porti waiMessageFlow
18+ wait $ Warp.run porti waiMessageFlow
19 --runSettings defaultSettings{settingsTimeout = 20, settingsPort= porti} waiMessageFlow