From 1e05f32ead3da5bf8c81f78f2c7ccb2971e69044 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 4 Feb 2024 22:01:26 -0800
Subject: Typst reader: fix character used for `norm`.

See jgm/typst-hs#38.
---
 src/Text/Pandoc/Readers/Typst/Math.hs | 2 +-
 test/typst-reader.native              | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Text/Pandoc/Readers/Typst/Math.hs b/src/Text/Pandoc/Readers/Typst/Math.hs
index fdd6771a8..e06e1c680 100644
--- a/src/Text/Pandoc/Readers/Typst/Math.hs
+++ b/src/Text/Pandoc/Readers/Typst/Math.hs
@@ -229,7 +229,7 @@ handleMath tok =
       pure $ EDelimited "\8968" "\8969" [Right body]
     Elt "math.norm" _ fields -> do
       body <- getField "body" fields >>= pMathGrouped
-      pure $ EDelimited "\8741" "\8741" [Right body]
+      pure $ EDelimited "\8214" "\8214" [Right body]
     Elt "math.round" _ fields -> do
       body <- getField "body" fields >>= pMathGrouped
       pure $ EDelimited "\8970" "\8969" [Right body]
diff --git a/test/typst-reader.native b/test/typst-reader.native
index 0e00bc1ab..3095cea29 100644
--- a/test/typst-reader.native
+++ b/test/typst-reader.native
@@ -4045,7 +4045,7 @@ Pandoc
                                   ( "" , [ "box" ] , [] )
                                   [ Math
                                       InlineMath
-                                      "\\left. \\parallel{} \\right.\\parallel"
+                                      "\\left\\| {} \\right\\|"
                                   , Str "\8192"
                                   , Code ( "" , [] , [] ) "norm(\"\")"
                                   ]
-- 
cgit v1.2.3