handle unhandled case
This commit is contained in:
parent
07158b7cf6
commit
d706b49979
1 changed files with 1 additions and 1 deletions
|
@ -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. -}
|
||||
|
|
Loading…
Add table
Reference in a new issue