Update Internal.hs
commit44df92b9261837ca1c231ba52c94d8935dbab8a1
authorSeanRBurton <burton.seanr@gmail.com>
dateMon 8 Dec 2014, 00:02 (12 years ago)
parent2e62d41
Data/Attoparsec/Text/Internal.hs+1−1
@@ -504,4 +504,4 @@ lengthOf :: Buffer -> Pos
504504lengthOf = Pos . Buf.length
505505
506506length :: Text -> Pos
507−length = Pos . T.length
507+length (Text _ _ l) = Pos l