mirror of
https://github.com/commercialhaskell/stackage.git
synced 2026-01-12 23:38:29 +01:00
21 lines
852 B
Diff
21 lines
852 B
Diff
diff -ru orig/src/MFlow/Wai/Blaze/Html/All.hs new/src/MFlow/Wai/Blaze/Html/All.hs
|
|
--- orig/src/MFlow/Wai/Blaze/Html/All.hs 2014-03-11 21:46:17.260400422 +0200
|
|
+++ new/src/MFlow/Wai/Blaze/Html/All.hs 2014-03-11 21:46:16.000000000 +0200
|
|
@@ -36,7 +36,7 @@
|
|
import Text.Blaze.Html5 hiding (map)
|
|
import Text.Blaze.Html5.Attributes hiding (label,span,style,cite,title,summary,step,form)
|
|
import Network.Wai
|
|
-import Network.Wai.Handler.Warp
|
|
+import qualified Network.Wai.Handler.Warp as Warp
|
|
import Data.TCache
|
|
import Text.Blaze.Internal(text)
|
|
|
|
@@ -74,6 +74,6 @@
|
|
when(not $ null n) $ setNoScript n
|
|
addMessageFlows[(n, runFlow f)]
|
|
porti <- getPort
|
|
- wait $ run porti waiMessageFlow
|
|
+ wait $ Warp.run porti waiMessageFlow
|
|
--runSettings defaultSettings{settingsTimeout = 20, settingsPort= porti} waiMessageFlow
|
|
|