1. Bryan O'Sullivan
  2. attoparsec


tibbe  committed f80493b

Document optimizations in ensure

  • Participants
  • Parent commits 467d58a
  • Branches default

Comments (0)

Files changed (1)

File Data/Attoparsec/ByteString/Internal.hs

View file
  • Ignore whitespace
 ensure :: Int -> Parser B.ByteString
 ensure !n = T.Parser $ \i0 a0 m0 kf ks ->
     if B.length (unI i0) >= n
+    -- Inline the success continuation to avoid creating a closure in
+    -- the common case of enough data in the buffer:
     then inline ks i0 a0 m0 (unI i0)
+    -- The uncommon case is kept out-of-line to reduce code size:
     else ensure' n i0 a0 m0 kf ks
+-- Non-recursive so the bounds check can be inlined:
 {-# INLINE ensure #-}
 -- | Ask for input.  If we receive any, pass it to a success