Permalink
Browse files

adding create_group.

  • Loading branch information...
1 parent 9cc383d commit c39246785c9c8494a00762e6875f06b6223721d7 @kazu-yamamoto committed Oct 5, 2011
Showing with 4 additions and 1 deletion.
  1. +4 −1 Network/Web/Server/CGI.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE OverloadedStrings, CPP #-}
module Network.Web.Server.CGI (tryGetCGI) where
@@ -32,6 +32,9 @@ tryGetCGI cnf req cgi = processCGI `catch` const internalError
, std_out = CreatePipe
, std_err = Inherit
, close_fds = True
+#if __GLASGOW_HASKELL__ >= 702
+ , create_group = True
+#endif
}
(Just whdl,Just rhdl,_,_) <- createProcess pro
maybe (return ()) (L.hPut whdl) (reqBody req)

0 comments on commit c392467

Please sign in to comment.