Date: 2008-08-20 09:01 am (UTC)
Там проблема в том, что digit не инлайнится. Вчера увидел по -ddump-simpl-iterations.

Написал свой

{-# INLINE myDigit #-}
myDigit :: Parsec BS.ByteString () Char
myDigit = satisfy isDigit -- "digit"

так инлайнится, а заменю () на u - нет. Имеется в виду тип

myDigit :: Parsec BS.ByteString u Char
This account has disabled anonymous posting.
If you don't have an account you can create one now.
HTML doesn't work in the subject.
More info about formatting

Profile

lomeo: (Default)
Dmitry Antonyuk

April 2024

S M T W T F S
 123456
7891011 1213
14151617181920
21222324252627
282930    

Style Credit

Expand Cut Tags

No cut tags
Page generated Jun. 23rd, 2025 03:07 am
Powered by Dreamwidth Studios