Escape newline characters in embedded mode

Inline math may contain those.

1 files changed, 1 insertions, 0 deletions

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