dac4bc8 · typeable/yaml

git.iko.soy/typeable/yaml

Prevent thunking (see #147)

commitdac4bc8007b4c2123a680fc86ca949a692731516 authorSimon Hengel <sol@typeful.net> dateThu 23 Aug 2018, 01:08 (8 years ago) parente03c9ac

1 file changed+2−1

unifiedsplit

src/Data/Yaml/Internal.hs+2−1

@@ -2,6 +2,7 @@

22{-# LANGUAGE DeriveDataTypeable #-}

33{-# LANGUAGE PatternGuards #-}

44{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE BangPatterns #-}

56module Data.Yaml.Internal

67 (

78 ParseException(..)

@@ -215,7 +216,7 @@ parseS :: Int

215216 -> Y.Anchor

216217 -> ([Value] -> [Value])

217218 -> ConduitM Event o Parse Value

218−parseS n a front = do

219+parseS !n a front = do

219220 me <- CL.peek

220221 case me of

221222 Just EventSequenceEnd -> do