Quiet a warning.
commitad260b0df7f4cfa42b66208c6d7d65a818e4c7d3
authorBryan O'Sullivan <bos@serpentine.com>
dateFri 4 Nov 2011, 16:05 (15 years ago)
parent604b137
tests/tests/src/Data/Text/Tests/QuickCheckUtils.hs+1−1
@@ -320,7 +320,7 @@ write_read :: (NFData a, Eq a)
320320 -> IO.BufferMode
321321 -> [a]
322322 -> Property
323−write_read unline filt writer reader (E _ enc) nl buf ts =
323+write_read unline filt writer reader (E _ _) nl buf ts =
324324 monadicIO $ assert . (==t) =<< run act
325325 where t = unline . map (filt (not . (`elem` "\r\n"))) $ ts
326326 act = withTempFile $ \path h -> do