[ refactor ] fix test regression

Author: GulinSS

src/Core/Case/CaseBuilder.idr

@@ -1019,12 +1019,12 @@ mutual
            case mix of
              Nothing =>
                do log "compile.casetree.intermediate" 25 "match: No clauses"
-                  pure (Unmatched "No clauses")
+                  pure (Unmatched "No clauses in \{show fn}")
              Just m =>
                do log "compile.casetree.intermediate" 25 $ "match: new case tree " ++ show m
                   Core.pure m
   match {todo = []} fc fn phase [] err
-       = maybe (pure (Unmatched "No patterns"))
+       = maybe (pure (Unmatched "No patterns in \{show fn}"))
                pure err
   match {todo = []} fc fn phase ((MkPatClause pvars [] pid (Erased _ Impossible)) :: _) err
        = pure Impossible
@@ -1066,7 +1066,7 @@ mutual
             List (PatClause (a :: todo) vars) ->
             Maybe (CaseTree vars) ->
             Core (CaseTree vars)
-  conRule fc fn phase [] err = maybe (pure (Unmatched "No constructor clauses")) pure err
+  conRule fc fn phase [] err = maybe (pure (Unmatched "No constructor clauses in \{show fn}")) pure err
   -- ASSUMPTION, not expressed in the type, that the patterns all have
   -- the same variable (pprf) for the first argument. If not, the result
   -- will be a broken case tree... so we should find a way to express this
@@ -1214,7 +1214,7 @@ patCompile : {auto c : Ref Ctxt Defs} ->
              Maybe (CaseTree Scope.empty) ->
              Core (args ** CaseTree args)
 patCompile fc fn phase ty [] def
-    = maybe (pure (Scope.empty ** Unmatched "No definition"))
+    = maybe (pure (Scope.empty ** Unmatched "\{show fn} not defined"))
             (\e => pure (Scope.empty ** e))
             def
 patCompile fc fn phase ty (p :: ps) def
@@ -1372,7 +1372,7 @@ getPMDef : {auto c : Ref Ctxt Defs} ->
 getPMDef fc phase fn ty []
     = do log "compile.casetree.getpmdef" 20 "getPMDef: No clauses!"
          defs <- get Ctxt
-         pure (cast !(getArgs 0 !(nf defs Env.empty ty)) ** (Unmatched "No clauses", []))
+         pure (cast !(getArgs 0 !(nf defs Env.empty ty)) ** (Unmatched "No clauses in \{show fn}", []))
   where
     getArgs : Int -> ClosedNF -> Core (List Name)
     getArgs i (NBind fc x (Pi _ _ _ _) sc)