1. Bryan O'Sullivan
  2. text

Commits

Bryan O'Sullivan  committed 4860449

Eliminate a warning

  • Participants
  • Parent commits e55aef9
  • Branches default

Comments (0)

Files changed (1)

File Data/Text.hs

View file
 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       -> []