diff --git a/src/parser/lexer.mll b/src/parser/lexer.mll index 83d1ca7707..864c32c25b 100644 --- a/src/parser/lexer.mll +++ b/src/parser/lexer.mll @@ -730,6 +730,9 @@ and media tok_descr buffer nesting_level start_offset input = parse ~what:(Token.describe `End) ~in_what:tok_descr); Buffer.contents buffer} + | (newline) + { Buffer.add_char buffer ' '; + media tok_descr buffer nesting_level start_offset input lexbuf } | _ as c { Buffer.add_char buffer c; media tok_descr buffer nesting_level start_offset input lexbuf } diff --git a/src/parser/test/test.ml b/src/parser/test/test.ml index 4f5858fa9f..175828dc67 100644 --- a/src/parser/test/test.ml +++ b/src/parser/test/test.ml @@ -2167,8 +2167,7 @@ let%expect_test _ = {| ((output (((f.ml (1 0) (2 5)) - (simple ((f.ml (1 8) (2 -6)) (Reference foo)) "bar \ - \n baz" image)))) + (simple ((f.ml (1 8) (2 -6)) (Reference foo)) "bar baz" image)))) (warnings ())) |}] end in ()