SortedMap uses any comparator

2025-09-01 15:39:35 -07:00
parent 27d9250d34
commit 1432316fac
13 changed files with 139 additions and 123 deletions
--- a/src/Lib/TopContext.newt
+++ b/src/Lib/TopContext.newt
@@ -42,9 +42,9 @@ instance Show TopContext where
 -- TODO need to get class dependencies working
 emptyTop : ∀ io. {{Monad io}} {{HasIO io}} -> io TopContext
 emptyTop = do
-  let mcctx = MC EmptyMap Nil 0 CheckAll
+  let mcctx = MC emptyMap Nil 0 CheckAll
  errs <- newIORef $ the (List Error) Nil
-  pure $ MkTop EmptyMap Nil EmptyMap Nil EmptyMap mcctx 0 errs EmptyMap
+  pure $ MkTop emptyMap Nil emptyMap Nil emptyMap mcctx 0 errs emptyMap


 setFlag : QName → FC → EFlag → M Unit