From d706b49979a221d5f463d83e9556d2bfb1dca3c1 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 4 Nov 2021 14:36:48 -0400 Subject: [PATCH] handle unhandled case --- Git/PktLine.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Git/PktLine.hs b/Git/PktLine.hs index dce62d75fd..c554ce7026 100644 --- a/Git/PktLine.hs +++ b/Git/PktLine.hs @@ -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. -}