day15

2024-12-14 22:27:03 -08:00
parent d22f3844f6
commit 6e487b011c
3 changed files with 133 additions and 1 deletions
--- a/src/Lib/Parser/Impl.idr
+++ b/src/Lib/Parser/Impl.idr
@@ -195,7 +195,8 @@ token' k = pred (\t => t.val.kind == k) "Expected a \{show k} token"

 export
 keyword' : String -> Parser ()
-keyword' kw = ignore $ pred (\t => t.val.text == kw) "Expected \{kw}"
+-- FIXME make this an appropriate whitelist
+keyword' kw = ignore $ pred (\t => t.val.text == kw && t.val.kind /= Character) "Expected \{kw}"

 ||| expect indented token of given kind
 export