[ bsd3, library, unclassified ] [ Propose Tags ]

Please see the README on Github at https://git.localcooking.com/tooling/wai-transformers#readme

[Skip to Readme]
Versions 0.0.1, 0.0.2, 0.0.3, 0.0.4, 0.0.5,, 0.0.6, 0.0.7, 0.1.0 (info)
Dependencies base (>=4.8 && <5), exceptions, extractable-singleton (>=0.0.1), monad-control-aligned (>=0.0.1), transformers, wai (>=3.2.1), wai-websockets, websockets (>=0.12.4) [details]
License BSD-3-Clause
Copyright 2018 Athan Clark
Author Athan Clark
Maintainer athan.clark@localcooking.com
Home page https://github.com/athanclark/wai-transformers#readme
Bug tracker https://github.com/athanclark/wai-transformers/issues
Source repo head: git clone https://github.com/athanclark/wai-transformers
Uploaded by athanclark at Thu Mar 22 14:10:30 UTC 2018
Distributions LTSHaskell:0.0.7, NixOS:0.1.0, Stackage:0.1.0, openSUSE:0.0.7
Downloads 1781 total (19 in the last 30 days)
Rating (no votes yet) [estimated by rule of succession]
Your Rating
  • λ
  • λ
  • λ
Status Docs available [build log]
Last success reported on 2018-03-22 [all 1 reports]
Hackage Matrix CI




Maintainer's Corner

For package maintainers and hackage trustees

Readme for wai-transformers-0.1.0

[back to package description]


Simple parameterization of Wai's Application and Middleware types.


Wai's Application type is defined as follows:

type Application = Request -> (Response -> IO ResponseReceived) -> IO ResponseReceived

This is great for the server - we can just flip ($) the middlewares together to get an effectful server. However, what if we want to encode useful information in our middleware chain / end-point application? Something like a ReaderT Env environment, where useful data like a universal salt, current hostname, or global mutable references can be referenced later if it were wedged-in.

The design looks like this:

type ApplicationT m = Request -> (Response -> IO ResponseReceived) -> m ResponseReceived

Now we can encode MTL-style contexts with applications we write

type MiddlewareT m = ApplicationT m -> ApplicationT m

data AuthConfig = AuthConfig
  { authFunction :: Request -> Either AuthException (Response -> Response)

simpleAuth :: ( MonadReader AuthConfig m
              , MonadError AuthException m
              ) => MiddlewareT m
simpleAuth app req resp = do
  auth <- authFunction <$> ask
  case auth req of
    Left e = throwError e
    Right f = app req (resp . f)

simpleAuth' :: Middleware
simpleAuth' app req resp =
  eReceived <- runExceptT $ runReaderT (simpleAuth app req resp) myAuthConfig
  case eReceived of
    Left e = resp $ respondLBS "Unauthorized!"
    Right r = return r