Simplify a test
--HG--
extra : convert_revision : f2857c41385e27c2a4d8e12bcd5433fbd9db2163
commit1a839c4ac3ff360eade0710746310a6d48cf2175
authorBryan O'Sullivan <bos@serpentine.com>
dateSat 3 Jul 2010, 19:12 (16 years ago)
parentf50288b
tests/Properties.hs+1−1
@@ -195,7 +195,7 @@ tl_null = null `eqP` TL.null
195195s_length = length `eqP` S.length
196196sf_length p = (length . L.filter p) `eqP` (S.length . S.filter p)
197197t_length = length `eqP` T.length
198−tl_length = length `eqP` (fromIntegral . TL.length)
198+tl_length = L.genericLength `eqP` TL.length
199199
200200s_map f = map f `eqP` (unpackS . S.map f)
201201s_map_s f = map f `eqP` (unpackS . S.unstream . S.map f)