Commits

Bryan O'Sullivan committed 4860449

Eliminate a warning

Comments (0)

Files changed (1)

 unpack :: Text -> String
 unpack txt = (unstream_list (stream txt))
     where
-      unstream_list (S.Stream next s0 len) = unfold s0
+      unstream_list (S.Stream next s0 _len) = unfold s0
           where
             unfold !s = case next s of
                           S.Done       -> []