happstack-foundation 0.2.1 → 0.2.2
raw patch · 2 files changed
+10/−5 lines, 2 filesdep ~mtl
Dependency ranges changed: mtl
Files
Happstack/Foundation.hs view
@@ -171,15 +171,20 @@ whereami = here <$> get -- | get the 'requestState' value-getRequestState :: (Functor m, Monad m) => FoundationT url acidState requestState m requestState+getRequestState :: (Functor m, MonadState (AppState url acidState requestState) m) => m requestState getRequestState = reqSt <$> get -- | set the 'requestState' value-setRequestState :: (Functor m, Monad m) => requestState -> FoundationT url acidState requestState m ()+setRequestState :: (Functor m, MonadState (AppState url acidState requestState) m) =>+ requestState+ -> m () setRequestState st = modify $ \appState -> appState { reqSt = st } -- | set the 'requestState' value-modifyRequestState :: (Functor m, Monad m) => (requestState -> requestState) -> FoundationT url acidState requestState m ()+modifyRequestState :: MonadState (AppState url acidState requestState) m =>+ (requestState -> requestState)+ -> m ()+ modifyRequestState f = modify $ \appState -> appState { reqSt = f (reqSt appState) } instance (Functor m, Monad m) => HasAcidState (FoundationT url acidState requestState m) acidState where
happstack-foundation.cabal view
@@ -1,5 +1,5 @@ Name: happstack-foundation-Version: 0.2.1+Version: 0.2.2 Synopsis: Glue code for using Happstack with acid-state, web-routes, reform, and HSP Description: happstack-foundation is a library which builds on top of existing components to provide a powerful and type-safe environment for web development. It uses:@@ -32,7 +32,7 @@ hsp == 0.7.*, lifted-base == 0.1.*, monad-control == 0.3.*,- mtl == 2.1.*,+ mtl >= 2.0 && < 2.2, reform == 0.1.*, reform-happstack == 0.1.*, reform-hsp == 0.1.*,