MFlow 0.0.2 → 0.0.3

raw patch · 7 files changed

+12/−12 lines, 7 files

Files

• Demos/ShoppingCart1.hs +3/−3
• MFlow.cabal +1/−1
• MFlow.hs +1/−1
• MFlow/Forms.hs +3/−3
• MFlow/Forms/XHtml.hs +1/−1
• MFlow/Hack.hs +1/−1
• MFlow/Hack/Response.hs +2/−2

@@ -101,10 +101,10 @@ mainProds ::  FlowM Html (Workflow IO) () mainProds   = do    setTimeouts (10*60) (24*60*60)---   setHeader $ \w -> bold << "Please enter user/password (pepe/pepe)" +++ br +++ w---   us <-  getUser+   setHeader $ \w -> bold << "Please enter user/password (pepe/pepe)" +++ br +++ w+   us <-  getUser -   setHeader  $ appheader  "user"+   setHeader  $ appheader  us    mainProds1 [] $ V.fromList [0]    where    mainProds1  prods cart=  do

@@ -2,7 +2,7 @@ synopsis:  (Web) application server. Stateful server processes. Simple, statically correct widget combinators.  -version: 0.0.2+version: 0.0.3 cabal-version: -any build-type: Simple license: BSD3

@@ -57,7 +57,7 @@ 
 import qualified Data.Map as M
 -import Control.Workflow.Text+import Control.Workflow  import MFlow.Cookies 

@@ -158,18 +158,18 @@ ,setCookie ) where import Data.TCache-import Data.Persistent.Queue.Text+import Data.Persistent.Queue import MFlow import MFlow.Cookies import Data.RefSerialize (Serialize)-import Control.Workflow.Text as WF+import Control.Workflow as WF import Data.Typeable import Data.Monoid import Control.Monad.State import Control.Monad.Trans.Maybe import Control.Applicative import Control.Exception-import Control.Workflow.Text(exec1,Workflow, waitUntilSTM, step, unsafeIOtoWF)+import Control.Workflow(exec1,Workflow, waitUntilSTM, step, unsafeIOtoWF)  --import Debug.Trace --

@@ -80,7 +80,7 @@   instance Typeable X.Html where
-     typeOf =  \_ -> mkTyConApp (mkTyCon "Text.XHtml.Strict.Html") []
+     typeOf =  \_ -> mkTyConApp (mkTyCon3 "XHtml" "Text.XHtml.Strict" "Html") []
  instance    FormInput  Html  where --    column vs= concatHtml [tr  v  | v <- vs]

@@ -26,7 +26,7 @@ 
 import Data.TCache 
-import Control.Workflow.Text
+import Control.Workflow
 
 import MFlow
 import MFlow.Cookies

@@ -88,7 +88,7 @@ 
 
 instance Typeable Env where
-     typeOf = \_-> mkTyConApp (mkTyCon "Hack.Env") []
+     typeOf = \_-> mkTyConApp (mkTyCon3 "hack" "Hack" "Env") []
 
 instance Typeable Response where
-     typeOf = \_-> mkTyConApp (mkTyCon "Hack.Response")[]
+     typeOf = \_-> mkTyConApp (mkTyCon3 "Hack" "Hack" "Response")[]