From 6ebaa972a88ddf93e5c83b6941057698b4bd6243 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Fri, 3 Nov 2017 05:42:37 +0300
Subject: Escape newline characters in embedded mode

Inline math may contain those.
---
 Pancake.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Pancake.hs')

diff --git a/Pancake.hs b/Pancake.hs
index 6c845d5..770b862 100644
--- a/Pancake.hs
+++ b/Pancake.hs
@@ -636,6 +636,7 @@ showSexps ro =
     encodeStr s = concat ["\"", concatMap escape s, "\""]
     escape '\\' = "\\\\"
     escape '"' = "\\\""
+    escape '\n' = "\\n"
     escape other = pure other
     showSexp :: Styled -> String
     showSexp (Plain s) = encodeStr s
-- 
cgit v1.2.3