Commits

Bryan O'Sullivan committed 8936348

Use correct variable if peekWord8 successfully prompts for input

This fixes gh-74.

Comments (0)

Files changed (1)

Data/Attoparsec/ByteString/Internal.hs

      | more == Complete ->
        succ t pos more Nothing
      | otherwise ->
-       let succ' t' pos' more' = let !w = Buf.unsafeIndex t pos_
+       let succ' t' pos' more' = let !w = Buf.unsafeIndex t' pos_
                                  in succ t' pos' more' (Just w)
            lose' t' pos' more' = succ t' pos' more' Nothing
        in prompt t pos more lose' succ'