Add flags to TopEntry, detect duplicate constructors, fix issue with missing constructors in CompileExp.

2025-04-05 14:31:00 -07:00
parent 2a042c0092
commit 549cca19e3
17 changed files with 177 additions and 117 deletions
--- a/src/Main.newt
+++ b/src/Main.newt
@@ -32,7 +32,7 @@ jsonTopContext = do
  where
    jsonDef : TopEntry -> Json
    -- There is no FC here...
-    jsonDef (MkEntry fc (QN ns name) type def) = JsonObj
+    jsonDef (MkEntry fc (QN ns name) type def _) = JsonObj
      (  ("fc", toJson fc)
      :: ("name", toJson name)
      :: ("type", toJson (render 80 $ pprint Nil type) )