MFlow patch

This commit is contained in:
Michael Snoyman 2014-06-10 05:52:13 +03:00
parent ec656a912c
commit 69986d75a5
3 changed files with 13157 additions and 32 deletions

View File

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

View File

@ -1,12 +0,0 @@
diff -ru orig/MFlow.cabal new/MFlow.cabal
--- orig/MFlow.cabal 2014-04-03 19:38:07.181525338 +0300
+++ new/MFlow.cabal 2014-04-03 19:38:07.000000000 +0300
@@ -104,7 +104,7 @@
utf8-string -any, wai >=2.0.0, case-insensitive -any,
http-types -any, conduit -any, text -any, parsec -any, warp -any,
warp-tls -any, random -any, blaze-html -any, blaze-markup -any,
- monadloc -any, clientsession ==0.9.0.3
+ monadloc -any, clientsession ==0.9.0.3, conduit-extra
exposed-modules: MFlow MFlow.Wai.Blaze.Html.All MFlow.Forms
MFlow.Forms.Admin MFlow.Cookies MFlow.Wai
MFlow.Forms.Blaze.Html MFlow.Forms.Test

File diff suppressed because it is too large Load Diff