cedartrunk-wai.hs

{-# LANGUAGE OverloadedStrings #-}
import Network.Wai
import Network.Wai.Handler.Warp (run)
import Network.HTTP.Types (status200)

cedartrunk request = do
    case referer of
        Nothing -> return $ ResponseFile status200 [("Content-Type", "text/html")] "index.html" Nothing
        Just _  -> return $ ResponseFile status200 [] path Nothing
    where   path = tail . tail . init . show . rawPathInfo $ request
            referer = lookup "Referer" (requestHeaders request)

main = run 3000 $ cedartrunk