All.hs

module Web.All(action) where

import CmdLine.All
import Web.Server
import Web.Response
import Data.List
import Network.HTTP

action :: CmdLine -> IO ()
action q@Server{} = server q

-- FIXME: Should use datadir, but not sure how
-- FIXME: Only server will preserve extra flags
action q = do
    res <- response "datadir/resources" [] q
    putStrLn $ intercalate "\n" $ map show (rspHeaders res) ++ ["",rspBody res]