haskell: lazy : + ranges + Prelude (repeat/iterate/fibs/take, +25 tests, 359/359)

2026-04-24 23:58:21 +00:00
parent 0e53e88b02
commit cc5315a5e6
4 changed files with 302 additions and 9 deletions
--- a/lib/haskell/parser.sx
+++ b/lib/haskell/parser.sx
@@ -473,10 +473,16 @@
                  ((hk-match? "reservedop" "..")
                    (do
                      (hk-advance!)
-                      (let
-                        ((end-e (hk-parse-expr-inner)))
-                        (hk-expect! "rbracket" nil)
-                        (list :range first-e end-e))))
+                      (cond
+                        ((hk-match? "rbracket" nil)
+                          (do
+                            (hk-advance!)
+                            (list :range-from first-e)))
+                        (:else
+                          (let
+                            ((end-e (hk-parse-expr-inner)))
+                            (hk-expect! "rbracket" nil)
+                            (list :range first-e end-e))))))
                  ((hk-match? "reservedop" "|")
                    (do
                      (hk-advance!)