Happstack.Server.Monads

This module provides four classes and some related functions which provide ServerPartT with much of its web-centric behavior.

1. ServerMonad provides access to the HTTP Request
2. FilterMonad provides the ability to apply filters and transformations to a Response
3. WebMonad provides a way to escape a computation early and return a Response
4. HasRqData which provides access to the decoded QUERY_STRING and request body/form data

ServerPartT

data ServerPartT m a

ServerPartT is a rich, featureful monad for web development.

see also: simpleHTTP, ServerMonad, FilterMonad, WebMonad, and HasRqData

Instances

MonadTrans ServerPartT

Methods

lift :: Monad m => m a -> ServerPartT m a

MonadTransControl ServerPartT

Associated Types

type StT (ServerPartT :: (* -> *) -> * -> *) a :: *

Methods

liftWith :: Monad m => (Run ServerPartT -> m a) -> ServerPartT m a

restoreT :: Monad m => m (StT ServerPartT a) -> ServerPartT m a

MonadBase b m => MonadBase b (ServerPartT m)

Methods

liftBase :: b α -> ServerPartT m α

MonadBaseControl b m => MonadBaseControl b (ServerPartT m)

Associated Types

type StM (ServerPartT m :: * -> *) a :: *

Methods

liftBaseWith :: (RunInBase (ServerPartT m) b -> b a) -> ServerPartT m a

restoreM :: StM (ServerPartT m) a -> ServerPartT m a

(Monad m, MonadWriter w m) => MonadWriter w (ServerPartT m)

Methods

writer :: (a, w) -> ServerPartT m a

tell :: w -> ServerPartT m ()

listen :: ServerPartT m a -> ServerPartT m (a, w)

pass :: ServerPartT m (a, w -> w) -> ServerPartT m a

(Monad m, MonadState s m) => MonadState s (ServerPartT m)

Methods

get :: ServerPartT m s

put :: s -> ServerPartT m ()

state :: (s -> (a, s)) -> ServerPartT m a

(Monad m, MonadReader r m) => MonadReader r (ServerPartT m)

Methods

ask :: ServerPartT m r

local :: (r -> r) -> ServerPartT m a -> ServerPartT m a

reader :: (r -> a) -> ServerPartT m a

(Monad m, MonadError e m) => MonadError e (ServerPartT m)

Methods

throwError :: e -> ServerPartT m a

catchError :: ServerPartT m a -> (e -> ServerPartT m a) -> ServerPartT m a

Monad m => WebMonad Response (ServerPartT m)

Methods

finishWith :: Response -> ServerPartT m b

Monad m => FilterMonad Response (ServerPartT m)

Methods

setFilter :: (Response -> Response) -> ServerPartT m ()

composeFilter :: (Response -> Response) -> ServerPartT m ()

getFilter :: ServerPartT m b -> ServerPartT m (b, Response -> Response)

Monad m => Monad (ServerPartT m)

Methods

(>>=) :: ServerPartT m a -> (a -> ServerPartT m b) -> ServerPartT m b

(>>) :: ServerPartT m a -> ServerPartT m b -> ServerPartT m b

return :: a -> ServerPartT m a

fail :: String -> ServerPartT m a

Functor m => Functor (ServerPartT m)

Methods

fmap :: (a -> b) -> ServerPartT m a -> ServerPartT m b

(<$) :: a -> ServerPartT m b -> ServerPartT m a

(Monad m, Functor m) => Applicative (ServerPartT m)

Methods

pure :: a -> ServerPartT m a

(<*>) :: ServerPartT m (a -> b) -> ServerPartT m a -> ServerPartT m b

liftA2 :: (a -> b -> c) -> ServerPartT m a -> ServerPartT m b -> ServerPartT m c

(*>) :: ServerPartT m a -> ServerPartT m b -> ServerPartT m b

(<*) :: ServerPartT m a -> ServerPartT m b -> ServerPartT m a

MonadIO m => MonadIO (ServerPartT m)

Methods

liftIO :: IO a -> ServerPartT m a

(Functor m, MonadPlus m) => Alternative (ServerPartT m)

Methods

empty :: ServerPartT m a

(<|>) :: ServerPartT m a -> ServerPartT m a -> ServerPartT m a

some :: ServerPartT m a -> ServerPartT m [a]

many :: ServerPartT m a -> ServerPartT m [a]

MonadPlus m => MonadPlus (ServerPartT m)

Methods

mzero :: ServerPartT m a

mplus :: ServerPartT m a -> ServerPartT m a -> ServerPartT m a

MonadThrow m => MonadThrow (ServerPartT m)

Methods

throwM :: Exception e => e -> ServerPartT m a

MonadCatch m => MonadCatch (ServerPartT m)

Methods

catch :: Exception e => ServerPartT m a -> (e -> ServerPartT m a) -> ServerPartT m a

Monad m => ServerMonad (ServerPartT m)

Methods

askRq :: ServerPartT m Request

localRq :: (Request -> Request) -> ServerPartT m a -> ServerPartT m a

(MonadIO m, MonadPlus m) => HasRqData (ServerPartT m)

Methods

askRqEnv :: ServerPartT m RqEnv

localRqEnv :: (RqEnv -> RqEnv) -> ServerPartT m a -> ServerPartT m a

rqDataError :: Errors String -> ServerPartT m a

(Functor m, Monad m, MonadPlus m, MonadIO m) => Happstack (ServerPartT m)

(Monad m, MonadPlus m) => Semigroup (ServerPartT m a)

Methods

(<>) :: ServerPartT m a -> ServerPartT m a -> ServerPartT m a

sconcat :: NonEmpty (ServerPartT m a) -> ServerPartT m a

stimes :: Integral b => b -> ServerPartT m a -> ServerPartT m a

(Monad m, MonadPlus m) => Monoid (ServerPartT m a)

Methods

mempty :: ServerPartT m a

mappend :: ServerPartT m a -> ServerPartT m a -> ServerPartT m a

mconcat :: [ServerPartT m a] -> ServerPartT m a

type StT ServerPartT a

type StT ServerPartT a = StT WebT (StT (ReaderT * Request) a)

type StM (ServerPartT m) a

type StM (ServerPartT m) a = ComposeSt ServerPartT m a

type ServerPart a = ServerPartT IO a

An alias for ServerPartT IO

Happstack class

class (ServerMonad m, WebMonad Response m, FilterMonad Response m, MonadIO m, MonadPlus m, HasRqData m, Monad m, Functor m, Applicative m, Alternative m) => Happstack m

A class alias for all the classes a standard server monad (such as ServerPartT) is expected to have instances for. This allows you to keep your type signatures shorter and easier to understand.

Instances

(Functor m, Monad m, MonadPlus m, MonadIO m) => Happstack (ServerPartT m)

(Happstack m, Monoid e) => Happstack (ExceptT e m)

(Happstack m, Monoid w) => Happstack (WriterT w m)

Happstack m => Happstack (StateT s m)

(Happstack m, Error e) => Happstack (ErrorT e m)

Happstack m => Happstack (StateT s m)

(Happstack m, Monoid w) => Happstack (WriterT w m)

Happstack m => Happstack (ReaderT * r m)

(Happstack m, Monoid w) => Happstack (RWST r w s m)

(Happstack m, Monoid w) => Happstack (RWST r w s m)

ServerMonad

class Monad m => ServerMonad m where

The ServerMonad class provides methods for reading or locally modifying the Request. It is essentially a specialized version of the MonadReader class. Providing the unique names, askRq and localRq makes it easier to use ServerPartT and ReaderT together.

Minimal complete definition

askRq, localRq

Methods

askRq :: m Request

localRq :: (Request -> Request) -> m a -> m a

Instances

Monad m => ServerMonad (ServerPartT m)

Methods

askRq :: ServerPartT m Request

localRq :: (Request -> Request) -> ServerPartT m a -> ServerPartT m a

ServerMonad m => ServerMonad (ExceptT e m)

Methods

askRq :: ExceptT e m Request

localRq :: (Request -> Request) -> ExceptT e m a -> ExceptT e m a

(ServerMonad m, Monoid w) => ServerMonad (WriterT w m)

Methods

askRq :: WriterT w m Request

localRq :: (Request -> Request) -> WriterT w m a -> WriterT w m a

ServerMonad m => ServerMonad (StateT s m)

Methods

askRq :: StateT s m Request

localRq :: (Request -> Request) -> StateT s m a -> StateT s m a

(Error e, ServerMonad m) => ServerMonad (ErrorT e m)

Methods

askRq :: ErrorT e m Request

localRq :: (Request -> Request) -> ErrorT e m a -> ErrorT e m a

ServerMonad m => ServerMonad (StateT s m)

Methods

askRq :: StateT s m Request

localRq :: (Request -> Request) -> StateT s m a -> StateT s m a

(ServerMonad m, Monoid w) => ServerMonad (WriterT w m)

Methods

askRq :: WriterT w m Request

localRq :: (Request -> Request) -> WriterT w m a -> WriterT w m a

ServerMonad m => ServerMonad (ReaderT * r m)

Methods

askRq :: ReaderT * r m Request

localRq :: (Request -> Request) -> ReaderT * r m a -> ReaderT * r m a

(ServerMonad m, Monoid w) => ServerMonad (RWST r w s m)

Methods

askRq :: RWST r w s m Request

localRq :: (Request -> Request) -> RWST r w s m a -> RWST r w s m a

(ServerMonad m, Monoid w) => ServerMonad (RWST r w s m)

Methods

askRq :: RWST r w s m Request

localRq :: (Request -> Request) -> RWST r w s m a -> RWST r w s m a

mapServerPartT :: (UnWebT m a -> UnWebT n b) -> ServerPartT m a -> ServerPartT n b

Apply a function to transform the inner monad of ServerPartT m.

Often used when transforming a monad with ServerPartT, since simpleHTTP requires a ServerPartT IO a. Refer to UnWebT for an explanation of the structure of the monad.

Here is an example. Suppose you want to embed an ErrorT into your ServerPartT to enable throwError and catchError in your Monad.

type MyServerPartT e m a = ServerPartT (ErrorT e m) a

Now suppose you want to pass MyServerPartT into a function that demands a ServerPartT IO a (e.g. simpleHTTP). You can provide the function:

  unpackErrorT :: (Monad m, Show e) => UnWebT (ErrorT e m) a -> UnWebT m a
  unpackErrorT et = do
     eitherV <- runErrorT et
     return $ case eitherV of
         Left err -> Just (Left $ toResponse $
                                  "Catastrophic failure " ++ show err
                          , filterFun $ \r -> r{rsCode = 500})
         Right x -> x

With unpackErrorT you can now call simpleHTTP. Just wrap your ServerPartT list.

 simpleHTTP nullConf $ mapServerPartT unpackErrorT (myPart `catchError` myHandler)

Or alternatively:

 simpleHTTP' unpackErrorT nullConf (myPart `catchError` myHandler)

Also see spUnwrapErrorT for a more sophisticated version of this function.

mapServerPartT' :: (Request -> UnWebT m a -> UnWebT n b) -> ServerPartT m a -> ServerPartT n b

A variant of mapServerPartT where the first argument also takes a Request. Useful if you want to runServerPartT on a different ServerPartT inside your monad (see spUnwrapErrorT).

type UnWebT m a = m (Maybe (Either Response a, FilterFun Response))

UnWebT is almost exclusively used with mapServerPartT. If you are not using mapServerPartT then you do not need to wrap your head around this type. If you are -- the type is not as complex as it first appears.

It is worth discussing the unpacked structure of WebT a bit as it's exposed in mapServerPartT and mapWebT.

A fully unpacked WebT has a structure that looks like:

ununWebT $ WebT m a :: m (Maybe (Either Response a, FilterFun Response))

So, ignoring m, as it is just the containing Monad, the outermost layer is a Maybe. This is Nothing if mzero was called or Just (Either Response a, SetAppend (Endo Response)) if mzero wasn't called. Inside the Maybe, there is a pair. The second element of the pair is our filter function FilterFun Response. FilterFun Response is a type alias for SetAppend (Dual (Endo Response)). This is just a wrapper for a Response -> Response function with a particular Monoid behavior. The value

 Append (Dual (Endo f))

Causes f to be composed with the previous filter.

 Set (Dual (Endo f))

Causes f to not be composed with the previous filter.

Finally, the first element of the pair is either Left Response or Right a.

Another way of looking at all these pieces is from the behaviors they control. The Maybe controls the mzero behavior. Set (Endo f) comes from the setFilter behavior. Likewise, Append (Endo f) is from composeFilter. Left Response is what you get when you call finishWith and Right a is the normal exit.

An example case statement looks like:

 ex1 webt = do
   val <- ununWebT webt
   case val of
       Nothing -> Nothing  -- this is the interior value when mzero was used
       Just (Left r, f) -> Just (Left r, f) -- r is the value that was passed into "finishWith"
                                            -- f is our filter function
       Just (Right a, f) -> Just (Right a, f) -- a is our normal monadic value
                                              -- f is still our filter function

filterFun :: (a -> a) -> FilterFun a

turn a function into a FilterFun. Primarily used with mapServerPartT

FilterMonad

class Monad m => FilterMonad a m | m -> a where

A set of functions for manipulating filters.

ServerPartT implements FilterMonad Response so these methods are the fundamental ways of manipulating Response values.

Minimal complete definition

setFilter, composeFilter, getFilter

Methods

setFilter :: (a -> a) -> m ()

Ignores all previous alterations to your filter

As an example:

do
  composeFilter f
  setFilter g
  return "Hello World"

The setFilter g will cause the first composeFilter f to be ignored.

composeFilter :: (a -> a) -> m ()

Composes your filter function with the existing filter function.

getFilter :: m b -> m (b, a -> a)

Retrieves the filter from the environment.

Instances

Monad m => FilterMonad Response (WebT m)

Methods

setFilter :: (Response -> Response) -> WebT m ()

composeFilter :: (Response -> Response) -> WebT m ()

getFilter :: WebT m b -> WebT m (b, Response -> Response)

Monad m => FilterMonad Response (ServerPartT m)

Methods

setFilter :: (Response -> Response) -> ServerPartT m ()

composeFilter :: (Response -> Response) -> ServerPartT m ()

getFilter :: ServerPartT m b -> ServerPartT m (b, Response -> Response)

FilterMonad a m => FilterMonad a (ExceptT e m)

Methods

setFilter :: (a -> a) -> ExceptT e m ()

composeFilter :: (a -> a) -> ExceptT e m ()

getFilter :: ExceptT e m b -> ExceptT e m (b, a -> a)

(Error e, FilterMonad a m) => FilterMonad a (ErrorT e m)

Methods

setFilter :: (a -> a) -> ErrorT e m ()

composeFilter :: (a -> a) -> ErrorT e m ()

getFilter :: ErrorT e m b -> ErrorT e m (b, a -> a)

(FilterMonad res m, Monoid w) => FilterMonad res (WriterT w m)

Methods

setFilter :: (res -> res) -> WriterT w m ()

composeFilter :: (res -> res) -> WriterT w m ()

getFilter :: WriterT w m b -> WriterT w m (b, res -> res)

(FilterMonad res m, Monoid w) => FilterMonad res (WriterT w m)

Methods

setFilter :: (res -> res) -> WriterT w m ()

composeFilter :: (res -> res) -> WriterT w m ()

getFilter :: WriterT w m b -> WriterT w m (b, res -> res)

FilterMonad res m => FilterMonad res (StateT s m)

Methods

setFilter :: (res -> res) -> StateT s m ()

composeFilter :: (res -> res) -> StateT s m ()

getFilter :: StateT s m b -> StateT s m (b, res -> res)

FilterMonad res m => FilterMonad res (StateT s m)

Methods

setFilter :: (res -> res) -> StateT s m ()

composeFilter :: (res -> res) -> StateT s m ()

getFilter :: StateT s m b -> StateT s m (b, res -> res)

Monad m => FilterMonad a (FilterT a m)

Methods

setFilter :: (a -> a) -> FilterT a m ()

composeFilter :: (a -> a) -> FilterT a m ()

getFilter :: FilterT a m b -> FilterT a m (b, a -> a)

FilterMonad res m => FilterMonad res (ReaderT * r m)

Methods

setFilter :: (res -> res) -> ReaderT * r m ()

composeFilter :: (res -> res) -> ReaderT * r m ()

getFilter :: ReaderT * r m b -> ReaderT * r m (b, res -> res)

(FilterMonad res m, Monoid w) => FilterMonad res (RWST r w s m)

Methods

setFilter :: (res -> res) -> RWST r w s m ()

composeFilter :: (res -> res) -> RWST r w s m ()

getFilter :: RWST r w s m b -> RWST r w s m (b, res -> res)

(FilterMonad res m, Monoid w) => FilterMonad res (RWST r w s m)

Methods

setFilter :: (res -> res) -> RWST r w s m ()

composeFilter :: (res -> res) -> RWST r w s m ()

getFilter :: RWST r w s m b -> RWST r w s m (b, res -> res)

ignoreFilters :: FilterMonad a m => m ()

Resets all your filters. An alias for setFilter id.

addHeaderM :: FilterMonad Response m => String -> String -> m ()

Add headers into the response. This method does not overwrite any existing header of the same name, hence the name addHeaderM. If you want to replace a header use setHeaderM.

getHeaderM :: ServerMonad m => String -> m (Maybe ByteString)

Get a header out of the request.

setHeaderM :: FilterMonad Response m => String -> String -> m ()

Set a header into the response. This will replace an existing header of the same name. Use addHeaderM if you want to add more than one header of the same name.

neverExpires :: FilterMonad Response m => m ()

Set a far-future Expires header. Useful for static resources. If the browser has the resource cached, no extra request is spent.

WebMonad

class Monad m => WebMonad a m | m -> a where

WebMonad provides a means to end the current computation and return a Response immediately. This provides an alternate escape route. In particular it has a monadic value of any type. And unless you call setFilter id first your response filters will be applied normally.

Extremely useful when you're deep inside a monad and decide that you want to return a completely different content type, since it doesn't force you to convert all your return types to Response early just to accommodate this.

see also: escape and escape'

Minimal complete definition

finishWith

Methods

finishWith

Arguments

:: a

value to return (For ServerPart, a will always be the type Response)

-> m b

Instances

Monad m => WebMonad Response (WebT m)

Methods

finishWith :: Response -> WebT m b

Monad m => WebMonad Response (ServerPartT m)

Methods

finishWith :: Response -> ServerPartT m b

WebMonad a m => WebMonad a (ExceptT e m)

Methods

finishWith :: a -> ExceptT e m b

(Error e, WebMonad a m) => WebMonad a (ErrorT e m)

Methods

finishWith :: a -> ErrorT e m b

(WebMonad a m, Monoid w) => WebMonad a (WriterT w m)

Methods

finishWith :: a -> WriterT w m b

(WebMonad a m, Monoid w) => WebMonad a (WriterT w m)

Methods

finishWith :: a -> WriterT w m b

WebMonad a m => WebMonad a (StateT s m)

Methods

finishWith :: a -> StateT s m b

WebMonad a m => WebMonad a (StateT s m)

Methods

finishWith :: a -> StateT s m b

WebMonad a m => WebMonad a (ReaderT * r m)

Methods

finishWith :: a -> ReaderT * r m b

(WebMonad a m, Monoid w) => WebMonad a (RWST r w s m)

Methods

finishWith :: a -> RWST r w s m b

(WebMonad a m, Monoid w) => WebMonad a (RWST r w s m)

Methods

finishWith :: a -> RWST r w s m b

escape :: (WebMonad a m, FilterMonad a m) => m a -> m b

Used to ignore all your filters and immediately end the computation. A combination of ignoreFilters and finishWith.

escape' :: (WebMonad a m, FilterMonad a m) => a -> m b

An alternate form of escape that can be easily used within a do block.

MonadPlus helpers

require :: (MonadIO m, MonadPlus m) => IO (Maybe a) -> (a -> m r) -> m r

Run an IO action and, if it returns Just, pass it to the second argument.

requireM :: (MonadTrans t, Monad m, MonadPlus (t m)) => m (Maybe a) -> (a -> t m r) -> t m r

A variant of require that can run in any monad, not just IO.

escapeHTTP

escapeHTTP :: (ServerMonad m, MonadIO m) => (TimeoutIO -> IO ()) -> m a