@@ -274,7 +274,6 @@ 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
278 let (fvalue, offset, len) = B.toForeignPtr bs
277 let (fvalue, offset, len) = B.toForeignPtr bs
279 withForeignPtr fvalue $ \value -> do
278 withForeignPtr fvalue $ \value -> do
280 let value' = value `plusPtr` offset
279 let value' = value `plusPtr` offset