git.iko.soy/text
on master help sign in
Eliminate a warning
79ee891Bryan O'Sullivan
Data/Text.hs+1−1
compare with master
unifiedsplit
@@ -117,7 +117,7 @@ pack str = (unstream (stream_list str))
117unpack :: Text -> String
117unpack :: Text -> String
118unpack txt = (unstream_list (stream txt))
118unpack txt = (unstream_list (stream txt))
119 where
119 where
120− unstream_list (S.Stream next s0 len) = unfold s0
120+ unstream_list (S.Stream next s0 _len) = unfold s0
121 where
121 where
122 unfold !s = case next s of
122 unfold !s = case next s of
123 S.Done -> []
123 S.Done -> []