- = let (# sCode, sMsg #) = statusCode status
- sig = concat [ A.toString (cnfServerSoftware conf)
- , " at "
- , T.unpack (cnfServerHost conf)
- ]
+ = let sStr = A.toString $ printStatusCode status
+ sig = concat [ A.toString (cnfServerSoftware conf)
+ , " at "
+ , T.unpack (cnfServerHost conf)
+ ]