handle unhandled case

This commit is contained in:
Joey Hess 2021-11-04 14:36:48 -04:00
parent 07158b7cf6
commit d706b49979
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -49,7 +49,7 @@ pktLineToString (PktLine b) =
let s = decodeBS b
in case lastMaybe s of
Just '\n' -> beginning s
Nothing -> s
_ -> s
{- Reads the next PktLine from a Handle. Returns Nothing on EOF or when
- there is a protocol error. -}