Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Quiet a warning.

  • Loading branch information...
commit ad260b0df7f4cfa42b66208c6d7d65a818e4c7d3 1 parent 604b137
@bos authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  tests/tests/src/Data/Text/Tests/QuickCheckUtils.hs
View
2  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
Please sign in to comment.
Something went wrong with that request. Please try again.