From 649319b1dafb130801638c5a156e37d9e865ba5c Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Sat, 29 Jan 2022 23:11:03 +0200
Subject: Implement strings as phrases of chars

---
 src/utils.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/utils.hs')

diff --git a/src/utils.hs b/src/utils.hs
index 7618f5b..beff25e 100644
--- a/src/utils.hs
+++ b/src/utils.hs
@@ -31,5 +31,10 @@ isIntStr str =
         Just _ -> True
         Nothing -> False
 
+isCharStr str =
+  case str of
+    ['\'', c, '\''] -> True
+    _ -> False
+
 breakOn :: (a -> Bool) -> [a] -> ([a], [a])
 breakOn cond xs = break cond xs $> B.second (drop 1)
-- 
cgit v1.3