From e0e6079c9141a0c2d7d2a6dda50496e237bfc8bb Mon Sep 17 00:00:00 2001 From: hallgren Date: Tue, 2 Sep 2014 12:27:47 +0000 Subject: src/server: refactoring to isolate dependencies on the cgi/fastcgi packages * Introducing the module CGI, re-exporting a subset of the cgi package. It might complete replace the cgi package in the future. * Introducing the module CGIUtils, containing functions from FastCGIUtils that have nothing to do with fastcgi. Some low level hackery with unsafePerformIO and global variables was left in FastCGIUtils, but it is actually not used, neither for gf -server nor exec/pgf-fcgi.hs. --- src/server/RunHTTP.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/server/RunHTTP.hs') diff --git a/src/server/RunHTTP.hs b/src/server/RunHTTP.hs index 2b4627add..9f46b1a6f 100644 --- a/src/server/RunHTTP.hs +++ b/src/server/RunHTTP.hs @@ -1,9 +1,9 @@ module RunHTTP(runHTTP,Options(..),cgiHandler) where import Network.URI(uriPath,uriQuery) -import Network.CGI(ContentType(..)) -import Network.CGI.Protocol(CGIResult(..),CGIRequest(..),Input(..), +import CGI(ContentType(..)) +import CGI(CGIResult(..),CGIRequest(..),Input(..), Headers,HeaderName(..)) -import Network.CGI.Monad(runCGIT) +import CGI(runCGIT) import Network.Shed.Httpd(initServer,Request(..),Response(..)) import qualified Data.ByteString.Lazy.Char8 as BS(pack,unpack) import qualified Data.Map as M(fromList) -- cgit v1.2.3