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
|
let s = decodeBS b
|
||||||
in case lastMaybe s of
|
in case lastMaybe s of
|
||||||
Just '\n' -> beginning s
|
Just '\n' -> beginning s
|
||||||
Nothing -> s
|
_ -> s
|
||||||
|
|
||||||
{- Reads the next PktLine from a Handle. Returns Nothing on EOF or when
|
{- Reads the next PktLine from a Handle. Returns Nothing on EOF or when
|
||||||
- there is a protocol error. -}
|
- there is a protocol error. -}
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue