fromMaybe is working, but stuff feels a little messy/fragile

2024-09-02 14:14:35 -07:00
parent 27432840a8
commit 31a30ff7dc
6 changed files with 198 additions and 43 deletions
--- a/src/Lib/Types.idr
+++ b/src/Lib/Types.idr
@@ -367,6 +367,9 @@ record Context where
  metas : IORef MetaContext
  fc : FC

+export withPos : Context -> FC -> Context
+withPos ctx fc = { fc := fc } ctx
+
 export
 names : Context -> List String
 names ctx = toList $ map fst ctx.types