add log levels, make output less noisy

2025-01-25 22:11:46 -08:00
parent afc6146050
commit 1490fc601b
5 changed files with 66 additions and 58 deletions
--- a/port/Lib/TopContext.newt
+++ b/port/Lib/TopContext.newt
@@ -44,7 +44,7 @@ emptyTop : ∀ io. {{Monad io}} {{HasIO io}} -> io TopContext
 emptyTop = do
  mcctx <- newIORef (MC EmptyMap 0 CheckAll)
  errs <- newIORef $ the (List Error) Nil
-  pure $ MkTop EmptyMap Nil Nil EmptyMap mcctx False errs EmptyMap
+  pure $ MkTop EmptyMap Nil Nil EmptyMap mcctx 0 errs EmptyMap


 setDef : QName -> FC -> Tm -> Def -> M Unit