4a7cc88 · typeable/yaml

git.iko.soy/typeable/yaml

Removed unnecesary tag allocations

commit4a7cc882875cb84f2b17ac26357b98dc2e84eb3b authorMichael Snoyman <michael@snoyman.com> dateSun 10 Jan 2010, 19:35 (17 years ago) parentdd7204b

2 files changed+5−5

unifiedsplit

Data/Object/Yaml.hs−4

@@ -39,7 +39,6 @@ import Control.Monad ((<=<), join)

3939import System.IO.Unsafe

4040

4141#if TEST

42−import Data.Object

4342import Test.Framework (testGroup, Test)

4443import Test.Framework.Providers.HUnit

4544import Test.Framework.Providers.QuickCheck (testProperty)

@@ -47,10 +46,7 @@ import Test.HUnit hiding (Test, path)

4746import Test.QuickCheck

4847

4948import Control.Monad (replicateM)

50−import qualified Data.Text.Lazy as LT

5149import qualified Data.ByteString.Lazy as BL

52−import qualified Data.ByteString as B

53−import Data.Attempt

5450import Control.Arrow ((***))

5551#endif

5652

Data/Object/Yaml/Lib.hs+5−1

@@ -15,6 +15,7 @@ module Data.Object.Yaml.Lib

1515 ) where

1616

1717import qualified Data.ByteString.Internal as B

18+import qualified Data.ByteString

1819import Control.Monad

1920import Foreign.C

2021import Foreign.Ptr

@@ -163,7 +164,10 @@ getEvent er = do

163164 let ylen' = fromEnum ylen

164165 let ylen'' = toEnum $ fromEnum ylen

165166 bs <- B.create ylen' $ \dest -> B.memcpy dest yvalue' ylen''

166− tagbs <- B.create ytag_len'

167+ tagbs <-

168+ if ytag_len' == 0

169+ then return Data.ByteString.empty

170+ else B.create ytag_len'

167171 $ \dest -> B.memcpy dest ytag' (toEnum ytag_len')

168172 let style = toEnum $ fromEnum ystyle

169173 return $ EventScalar bs (convertSuccess tagbs) style