- = let (sCode, sMsg) = statusCode status
- sig = cnfServerSoftware conf
- ++ " at "
- ++ cnfServerHost conf
- ++ ( case cnfServerPort conf of
- Service serv -> ", service " ++ serv
- PortNumber num -> ", port " ++ show num
- UnixSocket path -> ", unix socket " ++ show path
- )
+ = conf `seq` status `seq` msgA `seq`
+ let (# sCode, sMsg #) = statusCode status
+ sig = C8.unpack (cnfServerSoftware conf)
+ ++ " at "
+ ++ C8.unpack (cnfServerHost conf)
+ ++ ( case cnfServerPort conf of
+ Service serv -> ", service " ++ serv
+ PortNumber num -> ", port " ++ show num
+ UnixSocket path -> ", unix socket " ++ show path
+ )