main :: IO () main = runCGI (handleErrors cgiMain)
を、
main :: IO () main = runFastCGIorCGI (handleErrors cgiMain)
にすると、CGIとしてもFastCGIとしても動くようになります。