@@ -320,7 +320,7 @@ write_read :: (NFData a, Eq a)
320 -> IO.BufferMode
320 -> IO.BufferMode
322 -> Property
322 -> Property
323−write_read unline filt writer reader (E _ enc) nl buf ts =
323+write_read unline filt writer reader (E _ _) nl buf ts =
324 monadicIO $ assert . (==t) =<< run act
324 monadicIO $ assert . (==t) =<< run act
325 where t = unline . map (filt (not . (`elem` "\r\n"))) $ ts
325 where t = unline . map (filt (not . (`elem` "\r\n"))) $ ts
326 act = withTempFile $ \path h -> do
326 act = withTempFile $ \path h -> do