remove most noLocs

2023-11-27 21:01:36 +01:00 · 2023-11-27 21:01:36 +01:00 · f337625801
commit f337625801
parent 1f01cec322
16 changed files with 178 additions and 161 deletions
--- a/lib/Quox/Parser/FromParser.idr
+++ b/lib/Quox/Parser/FromParser.idr
@ -302,7 +302,7 @@ mutual
                    Eff FromParserPure (DScopeTermN s d n)
  fromPTermDScope ds ns xs t =
    if all isUnused xs then
-      SN <$> fromPTermWith ds ns t
+      SN {f = \d => Term d n} <$> fromPTermWith ds ns t
    else
      DST (fromSnocVect $ map fromPatVar xs) <$> fromPTermWith (ds ++ xs) ns t