handle unhandled case

diff --git a/Git/PktLine.hs b/Git/PktLine.hs
index dce62d75fdf873160cd4b71fb79858ad259c882f..c554ce70260187bd83d5bc1a0deb719ece66ca52 100644 (file)
--- 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. -}