Permalink
Browse files

Quiet a warning.

  • Loading branch information...
1 parent 604b137 commit ad260b0df7f4cfa42b66208c6d7d65a818e4c7d3 @bos committed Nov 4, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 tests/tests/src/Data/Text/Tests/QuickCheckUtils.hs
@@ -320,7 +320,7 @@ write_read :: (NFData a, Eq a)
-> IO.BufferMode
-> [a]
-> Property
-write_read unline filt writer reader (E _ enc) nl buf ts =
+write_read unline filt writer reader (E _ _) nl buf ts =
monadicIO $ assert . (==t) =<< run act
where t = unline . map (filt (not . (`elem` "\r\n"))) $ ts
act = withTempFile $ \path h -> do

0 comments on commit ad260b0

Please sign in to comment.