-hPutStatus ∷ HandleLike h => h → StatusCode → IO ()
-hPutStatus h sc
- = case statusCode sc of
- (# num, msg #)
- → do hPutStr h (fmtDec 3 num)
- hPutChar h ' '
- hPutBS h msg
+hPutStatus ∷ HandleLike h ⇒ h → StatusCode → IO ()
+hPutStatus h (statusCode → (# num, msg #))
+ = do hPutBS h (A.toByteString $ A.fromAsciiBuilder $ fmtDec 3 num)
+ hPutChar h ' '
+ hPutBS h (A.toByteString msg)