@@ -274,15 +274,19 @@ toEventRaw e f = withEventRaw $ \er -> do
274274 EventDocumentEnd ->
275275 c_yaml_document_end_event_initialize er 1
276276 EventScalar bs -> do
277+ putStrLn $ "EventScalar " ++ show bs
277278 let (fvalue, offset, len) = B.toForeignPtr bs
278279 withForeignPtr fvalue $ \value -> do
279280 let value' = value `plusPtr` offset
280281 len' = fromIntegral len
282+ value'' = if ptrToIntPtr value' == 0
283+ then intPtrToPtr 1 -- c/api.c:827
284+ else value'
281285 c_yaml_scalar_event_initialize
282286 er
283287 nullPtr
284288 nullPtr
285− value'
289+ value''
286290 len'
287291 0
288292 1