Fix compiler warning
commit5df16c43427749fe5c40cb02f78cd36e3b6f85a4
authorBryan O'Sullivan <bos@serpentine.com>
dateTue 13 May 2014, 21:18 (12 years ago)
parent9bf5f96
tests/QC/ByteString.hs+1−1
@@ -67,7 +67,7 @@ skipWhile w s =
6767takeCount (Positive k) s =
6868 case maybeP (P.take k) s of
6969 Nothing -> fromIntegral k > L.length s
70− Just s' -> fromIntegral k <= L.length s
70+ Just _ -> fromIntegral k <= L.length s
7171
7272takeWhile w s =
7373 let (h,t) = L.span (==w) s