qn for metas

src/Lib/Elab.idr

@@ -1251,7 +1251,7 @@ check ctx tm ty = case (tm, !(forceType ctx.env ty)) of
     clauses <- traverse (\(MkAlt pat rawRHS) => pure $ MkClause (getFC pat) [(scnm, !(mkPat top (pat, Explicit)))] [] rawRHS ) alts
     -- buildCase expects scrutinee to be a name in the context, so we need to let it.
     -- if it's a Bnd and not shadowed we could skip the let, but that's messy.
-    let ctx' = extend ctx scnm scty
+    let ctx' = withPos (extend ctx scnm scty) (getFC tm)
     pure $ Let fc scnm sc !(buildTree ctx' $ MkProb clauses ty)
 
   -- rendered in ProcessDecl

src/Main.idr

@@ -139,7 +139,12 @@ processModule importFC base stk qn@(QN ns nm) = do
 
   -- we don't want implict errors from half-processed functions
   -- but suppress them all on error for simplicity.
-  errors <- readIORef top.errors
+  [] <- readIORef top.errors
+    | errors => do
+      for_ errors $ \err =>
+        putStrLn (showError src err)
+      exitFailure
+
   if stk == [] then logMetas mstart else pure ()
   pure src
   where