hPutCommand :: Handle -> Command -> IO ()
hPutCommand h cmd =
  B.hPutStr h $ B.append (showCommand cmd) "\r\n"
hPutCommand :: Handle -> Command -> IO ()
hPutCommand h cmd =
  B.hPutStr h $ B.append (showCommand cmd) "\r\n"
hPutCommand h cmd =
  B.hPutStr h $ B.append (showCommand cmd) "\r\n"