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

module Network.Salvia.Handlers.VirtualHosting (hVirtualHosting) where

import Data.List (isPrefixOf)
import Data.Record.Label
import Network.Protocol.Http (hostname)
import Network.Salvia.Handlers.Dispatching (Dispatcher, ListDispatcher, hListDispatch, hDispatch)
import Network.Salvia.Httpd (request)

-- isSuffixOf?

hVirtualHosting1 :: Dispatcher String a
hVirtualHosting1 = hDispatch (hostname % request) isPrefixOf

hVirtualHosting :: ListDispatcher String a
hVirtualHosting = hListDispatch hVirtualHosting1