chore: adjustments to runLinter so it can be used downstream (#370)

Co-authored-by: Mario Carneiro <di.gama@gmail.com>

scripts/runLinter.lean

@@ -31,17 +31,19 @@ unsafe def main (args : List String) : IO Unit := do
   let some module :=
       match args with
       | [] => some `Std
-      | [mod] => Syntax.decodeNameLit s!"`{mod}"
+      | [mod] => match mod.toName with
+        | .anonymous => none
+        | name => some name
       | _ => none
     | IO.eprintln "Usage: runLinter [--update] [Std.Data.Nat.Basic]" *> IO.Process.exit 1
   let nolintsFile := "scripts/nolints.json"
   let nolints ← readJsonFile NoLints nolintsFile
   searchPathRef.set compile_time_search_path%
   withImportModules #[{module}] {} (trustLevel := 1024) fun env =>
-    let ctx := {fileName := "", fileMap := default}
-    let state := {env}
+    let ctx := { fileName := "", fileMap := default }
+    let state := { env }
     Prod.fst <$> (CoreM.toIO · ctx state) do
-      let decls ← getDeclsInPackage `Std
+      let decls ← getDeclsInPackage module.getRoot
       let linters ← getChecks (slow := true) (useOnly := false)
       let results ← lintCore decls linters
       if update then
@@ -56,7 +58,7 @@ unsafe def main (args : List String) : IO Unit := do
       if failed then
         let fmtResults ←
           formatLinterResults results decls (groupByFilename := true) (useErrorFormat := true)
-            "in Std" (runSlowLinters := true) .medium linters.size
+            s!"in {module}" (runSlowLinters := true) .medium linters.size
         IO.print (← fmtResults.toString)
         IO.Process.exit 1
       else