salvia-0.0.4: src/Network/Salvia/Handlers/ExtensionDispatcher.hs

module Network.Salvia.Handlers.ExtensionDispatcher (
    hExtension
  , hExtensionRouter
  ) where

import Network.Salvia.Httpd (request)
import Network.Protocol.Http (uri)
import Network.Protocol.Uri (extension)
import Network.Salvia.Handlers.Dispatching

hExtension :: Dispatcher (Maybe String) a
hExtension = hDispatch (extension . uri . request) (==)

hExtensionRouter :: ListDispatcher (Maybe String) a
hExtensionRouter = hListDispatch hExtension