@@ -0,0 +1,20 @@
1+diff -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)
12+
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
20+