+ do _ <- installHandler sigPIPE Ignore Nothing
+
+ case cnfSSLConfig cnf of
+ Nothing
+ -> return ()
+ Just scnf
+ -> do so <- listenOn (sslServerPort scnf)
+ _loopTID <- forkIO $ httpLoop (sslContext scnf, so)
+ return ()
+
+ httpLoop =<< listenOn (cnfServerPort cnf)