Eliminate a warning
--HG--
extra : convert_revision : 9230882d6145320d36ffdfef6af2faf89e19620a
commit79ee891ac340e8e0b8d8ae3d6d77f05763d57739
authorBryan O'Sullivan <bos@serpentine.com>
dateMon 19 Jan 2009, 10:45 (18 years ago)
parent87759c7
Data/Text.hs+1−1
@@ -117,7 +117,7 @@ pack str = (unstream (stream_list str))
117117unpack :: Text -> String
118118unpack txt = (unstream_list (stream txt))
119119 where
120− unstream_list (S.Stream next s0 len) = unfold s0
120+ unstream_list (S.Stream next s0 _len) = unfold s0
121121 where
122122 unfold !s = case next s of
123123 S.Done -> []