MFlow 0.4.0 → 0.4.1

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• MFlow.cabal +1/−1
• src/MFlow/Wai/Blaze/Html/All.hs +2/−2

@@ -1,5 +1,5 @@ name: MFlow-version: 0.4.0+version: 0.4.1 cabal-version: >=1.8 build-type: Simple license: BSD3

@@ -37,7 +37,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 Network.Wai.Handler.Warp(run,defaultSettings,Settings,settingsPort)
 import Data.TCache
 import Text.Blaze.Internal(text)
 
@@ -75,7 +75,7 @@ runNavigation n f= do
     unless (null n) $ setNoScript n
     addMessageFlows[(n, runFlow f)]
-    porti <- MFlow.Wai.Blaze.Html.All.getPort
+    porti <- getPort
     wait $ run porti waiMessageFlow
     --runSettings defaultSettings{settingsTimeout = 20, settingsPort= porti} waiMessageFlow