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

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

import Data.List (isPrefixOf)

import Network.Salvia.Httpd
import Network.Protocol.Http
import Network.Salvia.Handlers.Dispatching

-- isSuffixOf?

hVirtualHosting1 :: Dispatcher String a
hVirtualHosting1 = hDispatch (getHost . request) isPrefixOf

hVirtualHosting :: ListDispatcher String a
hVirtualHosting = hListDispatch hVirtualHosting1