cgi-3001.5.2.0: examples/error.hs
import Network.CGI (CGI, CGIResult, runCGI, liftIO, output, handleErrors) cgiMain :: CGI CGIResult cgiMain = liftIO (readFile "foo") >> output "bar" main :: IO () main = runCGI (handleErrors cgiMain)
import Network.CGI (CGI, CGIResult, runCGI, liftIO, output, handleErrors) cgiMain :: CGI CGIResult cgiMain = liftIO (readFile "foo") >> output "bar" main :: IO () main = runCGI (handleErrors cgiMain)