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

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

import Data.Record.Label
import Network.Protocol.Http (uri)
import Network.Protocol.Uri (extension, path)
import Network.Salvia.Handlers.Dispatching
import Network.Salvia.Httpd (request)

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

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