@@ -274,15 +274,19 @@ toEventRaw e f = withEventRaw $ \er -> do
274 EventDocumentEnd ->
274 EventDocumentEnd ->
275 c_yaml_document_end_event_initialize er 1
275 c_yaml_document_end_event_initialize er 1
276 EventScalar bs -> do
276 EventScalar bs -> do
277+ putStrLn $ "EventScalar " ++ show bs
277 let (fvalue, offset, len) = B.toForeignPtr bs
278 let (fvalue, offset, len) = B.toForeignPtr bs
278 withForeignPtr fvalue $ \value -> do
279 withForeignPtr fvalue $ \value -> do
279 let value' = value `plusPtr` offset
280 let value' = value `plusPtr` offset
280 len' = fromIntegral len
281 len' = fromIntegral len
282+ value'' = if ptrToIntPtr value' == 0
283+ then intPtrToPtr 1 -- c/api.c:827
281 c_yaml_scalar_event_initialize
285 c_yaml_scalar_event_initialize