From 754e4bc05a11daa0b952230a7e2e861e9e16ded4 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 2 Apr 2020 16:27:36 -0700
Subject: [PATCH] force one para

---
 quad/quadwriter/markup.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/quad/quadwriter/markup.rkt b/quad/quadwriter/markup.rkt
index 457a4f88..3bdfe191 100644
--- a/quad/quadwriter/markup.rkt
+++ b/quad/quadwriter/markup.rkt
@@ -15,4 +15,6 @@
   (define read-syntax
     (make-read-syntax 'quadwriter/markup
                       (λ (path-string ip)
-                        (detect-paragraphs (syntax->datum (quad-at-reader path-string ip)))))))
\ No newline at end of file
+                        (decode-paragraphs
+                         (syntax->datum (quad-at-reader path-string ip))
+                         #:force? #true)))))
\ No newline at end of file