diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2022-03-25 08:38:10 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2022-03-25 08:38:10 -0700 |
| commit | dafdd16e10b9c3d2a8f06090385c381ca02d66e3 (patch) | |
| tree | 04e9ff169e950c858055bfce24393bc6605c2f0b /src | |
| parent | 36786e86fb20cd5da1ab0f31f039dcb5931c8ab6 (diff) | |
Sources: small strictness optimization
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Sources.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Sources.hs b/src/Text/Pandoc/Sources.hs index 2c67c21a6..f17e566c9 100644 --- a/src/Text/Pandoc/Sources.hs +++ b/src/Text/Pandoc/Sources.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE BangPatterns #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE MultiParamTypeClasses #-} @@ -144,7 +145,7 @@ satisfy :: (Monad m, Stream s m Char, UpdateSourcePos s Char) => (Char -> Bool) -> ParsecT s u m Char satisfy f = P.tokenPrim show updateSourcePos matcher where - matcher c = if f c then Just c else Nothing + matcher !c = if f c then Just c else Nothing oneOf :: (Monad m, Stream s m Char, UpdateSourcePos s Char) => [Char] -> ParsecT s u m Char |