fix string/char parser with spaces involved

HigherOrderCO · Oct 20, 2024 · 0173609 · 0173609
1 parent 9a7b578
commit 0173609
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Kind/Parse.hs b/src/Kind/Parse.hs
@@ -433,13 +433,13 @@ parseTxtChr = P.choice
   ]
 
 parseTxt = withSrc $ do
-  char_skp '"'
+  char_end '"'
   txt <- P.many parseTxtChr
   char_end '"'
   return $ Txt txt
 
 parseChr = withSrc $ do
-  char_skp '\''
+  char_end '\''
   chr <- parseTxtChr
   char_end '\''
   return $ Num (fromIntegral $ ord chr)