hoogle-4.2: src/Web/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
action q = do
    res <- response "datadir/resources" q
    putStrLn $ intercalate "\n" $ map (takeWhile (`notElem` "\r\n") . show) (rspHeaders res) ++ ["",rspBody res]