-- | a small helper function for reading UTF8-encoded text.
parseStr :: Parser String
parseStr = toString <$> (anyWord64le >>= A.take . fI)
parseStr :: Parser String
parseStr = toString <$> (anyWord64le >>= A.take . fI)
parseStr = toString <$> (anyWord64le >>= A.take . fI)