MFlow 0.4.5.13 → 0.4.6.0

raw patch · 3 files changed

+3/−9 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

MFlow.cabal +2/−2
src/MFlow/Forms/Internals.hs +1/−6
src/MFlow/Wai.hs +0/−1

MFlow.cabal view

@@ -1,5 +1,5 @@ name: MFlow
-version: 0.4.5.13
+version: 0.4.6.0
 cabal-version: >=1.8
 build-type: Simple
 license: BSD3
@@ -188,7 +188,7 @@     buildable: True
     hs-source-dirs: src .
     other-modules:  MFlow.Wai.Response
-
+    build-tools: cpphs
 
 --executable demos-blaze
 --    build-depends: MFlow , RefSerialize , TCache ,

src/MFlow/Forms/Internals.hs view

@@ -1105,16 +1105,11 @@   evalStateT (runSup . runFlowM $   f )  mFlowState0{mfToken=t} >>= return . fromFailBack   -- >> return ()
 
 
--- | Run a transient Flow from the IO monad.
---runNav :: String -> FlowM Html IO () -> IO ()
---runNav ident f= exec1 ident $ runFlowOnce (transientNav f) undefined
-
-
 -- | Clears the environment
 clearEnv :: MonadState (MFlowState view) m =>  m ()
 clearEnv= modify $ \s -> s{ mfEnv= []}
 
--- | clear the request paramenters and the rest path.
+-- | clear the request paramters and the rest path.
 clearEnv' :: MonadState (MFlowState view) m =>  m ()
 clearEnv'= modify $ \s -> s{ mfEnv= [], mfPath=[], mfPagePath=[""]}

src/MFlow/Wai.hs view

@@ -1,5 +1,4 @@ {-# LANGUAGE   UndecidableInstances
-             , CPP
              , TypeSynonymInstances
              , MultiParamTypeClasses
              , DeriveDataTypeable