@@ -348,6 +348,9 @@ foreign import ccall unsafe "yaml_emitter_set_unicode"
348348foreign import ccall unsafe "yaml_emitter_set_output_file"
349349 c_yaml_emitter_set_output_file :: Emitter -> File -> IO ()
350350
351+foreign import ccall unsafe "yaml_emitter_set_width"
352+ c_yaml_emitter_set_width :: Emitter -> CInt -> IO ()
353+
351354foreign import ccall unsafe "yaml_emitter_emit"
352355 c_yaml_emitter_emit :: Emitter -> EventRaw -> IO CInt
353356
@@ -648,6 +651,7 @@ runEmitter allocI closeI =
648651#ifndef __NO_UNICODE__
649652 c_yaml_emitter_set_unicode emitter 1
650653#endif
654+ c_yaml_emitter_set_width emitter (-1) -- prevent libyaml from wrapping strings at 80 chars
651655 a <- allocI emitter
652656 return (emitter, a)
653657 cleanup (emitter, _) = do