bend-lint 0.1.0 → 0.2.0

package/src/linter/cli.bend

@@ -2,12 +2,52 @@
 import Base
 import ../files/main.bend as Files
 import ../json/main.bend as Json
-import bend-lint-api@0.1.0.0/shared/lists.bend as Lists
-import bend-lint-api@0.1.0.0/shared/names.bend as Names
+import bend-lint-api@0.2.0.0/shared/lists.bend as Lists
+import bend-lint-api@0.2.0.0/shared/names.bend as Names
+import bend-lint-api@0.2.0.0/shared/sets.bend as Sets
 import ../text/main.bend as Text
 import ./directives.bend as Directives
 import ./fixes.bend as Fixes
-import bend-lint-api@0.1.0.0/linter/lint.bend as Lint
+import bend-lint-api@0.2.0.0/linter/lint.bend as Lint
+
+# Errors
+# ======
+
+# What a JSON run prints when an error ends it: `ok` false, and the error: what it says, and the file it is about, if
+# one (seam.ts prints the same for the errors it finds).
+def Error.json(+path: String, text: String) -> Json.Json:
+  Json.JObject{
+    [
+      Json.JField{"ok", Json.JFalse{}},
+      Json.JField{
+        "errors",
+        Json.JArray{
+          [
+            Json.JObject{
+              Lists.push(
+                Json.JField,
+                Lists.when(
+                  Json.JField,
+                  Bool.not(String.is_empty(path)),
+                  Json.JField{"path", Json.JString{path}}
+                ),
+                [Json.JField{"message", Json.JString{text}}]
+              )
+            }
+          ]
+        }
+      }
+    ]
+  }
+
+# Ends the run with `status`, as `text` says on stderr, about the file at `path` ("" for none); a JSON run (`json`)
+# first prints the error (see Error.json).
+def Error.end(-A: Type, json: Bool, status: U32, path: String, +text: String) -> IO(A):
+  match json:
+    case True{}:
+      IO.bind(Unit, A, IO.print(Json.show(Error.json(path, text))), u => IO.die(A, status, text))
+    case False{}:
+      IO.die(A, status, text)
 
 # Config
 # ======
@@ -67,7 +107,7 @@ def Parsed.value(value: Json.Json) -> Maybe<&2, Lint.Value>:
     case Json.JFalse{}:
       Some{Lint.Flag{False{}}}
     case Json.JString{text}:
-      Some{Lint.Text{text}}
+      Some{Lint.Chars{text}}
     case _:
       None{}
 
@@ -261,59 +301,91 @@ def Parsed.of(folder: String, json: Maybe<&2, Json.Json>) -> Result<&2, &2, Stri
       Fail{"not a JSON object"}
 
 # The config at `path`, if each of its entries is a file (`missing` lists those that are not); else the run ends.
-def Config.entered(missing: List<&2, String>, path: String, config: Project) -> IO(Project):
+def Config.entered(
+  json: Bool,
+  missing: List<&2, String>,
+  +path: String,
+  config: Project
+) -> IO(Project):
   match missing:
     case Nil{}:
       IO.pure(Project, config)
     case Con{entry, rest}:
-      IO.die(Project, 2, "bend-lint: " ++ path ++ ": the entry " ++ entry ++ " is not a file")
+      Error.end(
+        Project,
+        json,
+        2,
+        path,
+        "bend-lint: " ++ path ++ ": the entry " ++ entry ++ " is not a file"
+      )
 
-def Config.parsed(path: String, parsed: Result<&2, &2, String, Project>) -> IO(Project):
+def Config.parsed(
+  json: Bool,
+  +path: String,
+  parsed: Result<&2, &2, String, Project>
+) -> IO(Project):
   match parsed:
     case Done{Project{+entries, imports, rules}}:
       IO.bind(
         List<&2, String>,
         Project,
         Files.missing(entries, []),
-        missing => Config.entered(missing, path, Project{entries, imports, rules})
+        missing => Config.entered(json, missing, path, Project{entries, imports, rules})
       )
     case Fail{why}:
-      IO.die(Project, 2, "bend-lint: " ++ path ++ ": " ++ why)
+      Error.end(Project, json, 2, path, "bend-lint: " ++ path ++ ": " ++ why)
 
-def Config.read(+folder: String, text: Result<&2, &2, String, String>) -> IO(Project):
+def Config.read(json: Bool, +folder: String, text: Result<&2, &2, String, String>) -> IO(Project):
   match text:
     case Done{t}:
-      Config.parsed(folder ++ "/bend-lint.json", Parsed.of(folder, Json.read(t)))
+      Config.parsed(json, folder ++ "/bend-lint.json", Parsed.of(folder, Json.read(t)))
     case Fail{why}:
-      IO.die(Project, 2, "bend-lint: reading a config failed: " ++ why)
+      Error.end(
+        Project,
+        json,
+        2,
+        folder ++ "/bend-lint.json",
+        "bend-lint: reading a config failed: " ++ why
+      )
 
-def Config.opened(folder: String, opened: Result<&1, &1, U32 & String, File>) -> IO(Project):
+def Config.opened(
+  json: Bool,
+  +folder: String,
+  opened: Result<&1, &1, U32 & String, File>
+) -> IO(Project):
   match opened:
     case Done{file}:
       IO.bind(
         Result<&2, &2, String, String>,
         Project,
         Files.read(file),
-        text => Config.read(folder, text)
+        text => Config.read(json, folder, text)
       )
     case Fail{Tuple{code, why}}:
-      IO.die(Project, 2, "bend-lint: reading " ++ folder ++ "/bend-lint.json failed: " ++ why)
+      Error.end(
+        Project,
+        json,
+        2,
+        folder ++ "/bend-lint.json",
+        "bend-lint: reading " ++ folder ++ "/bend-lint.json failed: " ++ why
+      )
 
-def Config.at(+folder: String) -> IO(Project):
+def Config.at(json: Bool, +folder: String) -> IO(Project):
   IO.bind(
     Result<&1, &1, U32 & String, File>,
     Project,
     File.open(folder ++ "/bend-lint.json", "r"),
-    opened => Config.opened(folder, opened)
+    opened => Config.opened(json, folder, opened)
   )
 
-# The run's config: the bend-lint.json the server found, in the folder it names in BEND_LINT_PROJECT.
-def Config.load() -> IO(Project):
+# The run's config: the bend-lint.json the server found, in the folder it names in BEND_LINT_PROJECT. Its errors end
+# the run, in JSON if `json`.
+def Config.load(json: Bool) -> IO(Project):
   IO.bind(
     String,
     Project,
     IO.try(String, IO.get_env("BEND_LINT_PROJECT")),
-    folder => Config.at(folder)
+    folder => Config.at(json, folder)
   )
 
 # Seam
@@ -454,7 +526,9 @@ def Wire.receive(
         Socket.close(s)
         IO.die(List<&2, String>, 1, "bend-lint: the checker's answer is too long")
 
-def Wire.sent(r: Socket & Result<&1, &1, (U32 & String) & String, Unit>) -> IO(List<&2, String>):
+def Wire.sent(
+  r: Socket & Result<&1, &1, (U32 & String) & List<&2, U32>, Unit>
+) -> IO(List<&2, String>):
   match r:
     case Tuple{s, Done{u}}:
       IO.bind(
@@ -497,7 +571,11 @@ def Wire.ask(request: List<&2, String>) -> IO(List<&2, List<&2, String>>):
     p: U32 <- Wire.port()
     sock: Socket <- IO.try(Socket, TCP.connect("127.0.0.1", p))
     s: Socket
-      & Result<&1, &1, (U32 & String) & String, Unit> <- TCP.send(sock, Wire.line(request, ""))
+      & Result<
+        &1,
+        &1,
+        (U32 & String) & List<&2, U32>,
+        Unit> <- TCP.send(sock, Wire.line(request, ""))
     got: List<&2, String> <- Wire.sent(s)
     Wire.answered(Wire.records(List.reverse(&2, String, got), Reading{False{}, "", [], []}))
 
@@ -959,12 +1037,14 @@ def About.needs_every(about: About) -> Bool:
     case _:
       False{}
 
+# Whether a rule of this setting runs: one the config does not name is off, as the runner can hold more rules than the
+# config turns on (see getBuiltRules in seam.ts).
 def Setting.is_on(setting: Maybe<&2, Setting>) -> Bool:
   match setting:
-    case Some{RuleOff{}}:
-      False{}
-    case _:
+    case Some{RuleOn{severity, options}}:
       True{}
+    case _:
+      False{}
 
 def Setting.severity(setting: Maybe<&2, Setting>) -> Maybe<&2, Lint.Severity>:
   match setting:
@@ -1071,9 +1151,9 @@ def Spec.accepts(spec: Lint.Spec, value: Lint.Value) -> Bool:
       U32.is_le(min, n) && U32.is_le(n, max)
     case Lint.FlagOption{} Lint.Flag{on}:
       True{}
-    case Lint.TextOption{Nil{}} Lint.Text{text}:
+    case Lint.TextOption{Nil{}} Lint.Chars{text}:
       True{}
-    case Lint.TextOption{choices} Lint.Text{text}:
+    case Lint.TextOption{choices} Lint.Chars{text}:
       List.contains(~String, ~String.eq, choices, text)
     case _ _:
       False{}
@@ -1202,7 +1282,7 @@ def About.settle.of(about: About, setting: Maybe<&2, Setting>) -> Names.Named<Se
     case About{id, needs, options, every} Some{RuleOn{severity, given}}:
       Names.Named{id, RuleOn{severity, Option.values(options, given, [])}}
     case About{id, needs, options, every} None{}:
-      Names.Named{id, RuleOn{None{}, Option.values(options, [], [])}}
+      Names.Named{id, RuleOff{}}
 
 # Each rule's setting, its option values settled: off, or on with its severity, if any, and every option it declares.
 def About.settle(
@@ -1591,7 +1671,7 @@ def Found.keys(founds: List<&2, Lint.Found>, keys: Set()) -> Set():
       Found.keys(rest, Set.add(keys, Found.key(f)))
 
 def Found.is_among(keys: Set(), found: Lint.Found) -> Bool:
-  Pair.snd(Set(), Bool, Set.has(keys, Found.key(found)))
+  Sets.has(keys, Found.key(found))
 
 def Found.keep(hit: Bool, found: Lint.Found, out: List<&2, Lint.Found>) -> List<&2, Lint.Found>:
   match hit:
@@ -1967,21 +2047,43 @@ def Object.fixes(
     case _ _:
       List.reverse(&2, Json.Json, out)
 
+# Where a rule of bend-lint's own, from the package bend-lint-rules, is explained: its file, whose header says what it
+# reports, what its fix does, and its options. Its id is its path in bend-lint's repo.
+def Docs.of(+rule: String) -> Maybe<&2, String>:
+  Lists.when(
+    String,
+    String.starts_with(rule, "bend-lint-rules/"),
+    "https://github.com/MattCozendey/bend-lint/blob/main/" ++ rule ++ ".bend"
+  )
+
 def Object.finding(resolved: Resolved, +places: Map<&2, Text.Position>) -> Json.Json:
   match resolved:
     case Resolved{
-      Lint.Found{rule, Lint.Finding{severity, Lint.Span{+path, beg, end}, message, fixes}},
+      Lint.Found{+rule, Lint.Finding{severity, Lint.Span{+path, beg, end}, message, fixes}},
       edits
     }:
       Json.JObject{
-        [
-          Json.JField{"code", Json.JString{rule}},
-          Json.JField{"severity", Json.JString{Lint.Severity.show(severity)}},
-          Json.JField{"message", Json.JString{message}},
-          Json.JField{"path", Json.JString{path}},
-          Json.JField{"range", Object.range(places, path, beg, end)},
-          Json.JField{"fixes", Json.JArray{Object.fixes(fixes, edits, places, [])}}
-        ]
+        Json.JField{
+          "code",
+          Json.JString{rule}
+        }
+          <> Lists.push(
+            Json.JField,
+            Maybe.map(
+              &2,
+              String,
+              Json.JField,
+              d => Json.JField{"docs", Json.JString{d}},
+              Docs.of(rule)
+            ),
+            [
+              Json.JField{"severity", Json.JString{Lint.Severity.show(severity)}},
+              Json.JField{"message", Json.JString{message}},
+              Json.JField{"path", Json.JString{path}},
+              Json.JField{"range", Object.range(places, path, beg, end)},
+              Json.JField{"fixes", Json.JArray{Object.fixes(fixes, edits, places, [])}}
+            ]
+          )
       }
 
 def Shown.one(json: Bool, resolved: Resolved, places: Map<&2, Text.Position>) -> Shown:
@@ -2042,25 +2144,28 @@ def Declarations.of(need: Bool, sources: List<&2, Lint.Source>) -> List<&2, Lint
 # ------
 
 # What linting named files gave: how many findings stay; those to show at the end, and those directives suppressed
-# (both last first); whether a file fails the run; and how many fixes the run made.
+# (both last first); whether a file fails the run; how many fixes the run made; and why rules did not run on some
+# files, in order, as JSON (see Skipped).
 type Outcome is Data:
   Outcome{
     count: Nat,
     findings: List<&2, Shown>,
     suppressed: List<&2, Shown>,
     failed: Bool,
-    fixed: U32
+    fixed: U32,
+    skipped: List<&2, Json.Json>
   }
 
 def Outcome.add(a: Outcome, b: Outcome) -> Outcome:
   match a b:
-    case Outcome{n, f, s, e, x} Outcome{m, g, t, d, y}:
+    case Outcome{n, f, s, e, x, w} Outcome{m, g, t, d, y, z}:
       Outcome{
         Nat.add(n, m),
         Lists.append(&2, Shown, g, f),
         Lists.append(&2, Shown, t, s),
         e || d,
-        (x + y: U32)
+        (x + y: U32),
+        Lists.append(&2, Json.Json, w, z)
       }
 
 def summary.fixed(fixing: Bool, fixed: U32) -> String:
@@ -2120,15 +2225,15 @@ def end.json(failed: Bool, summary: String) -> IO(Unit):
 
 def end(json: Bool, total: Outcome, show: Bool, fixing: Bool) -> IO(Unit):
   match json total:
-    case False{} Outcome{n, f, s, True{}, x}:
+    case False{} Outcome{n, f, s, True{}, x, w}:
       do IO<Unit>:
         say(suppressed.lines(show, s))
         IO.die(Unit, 1, "bend-lint: FAIL")
-    case False{} Outcome{n, f, +s, False{}, x}:
+    case False{} Outcome{n, f, +s, False{}, x, w}:
       do IO<Unit>:
         say(suppressed.lines(show, s))
         IO.print(summary(n, Lists.length(&2, Shown, s), summary.fixed(fixing, x)))
-    case True{} Outcome{n, f, +s, +failed, x}:
+    case True{} Outcome{n, f, +s, +failed, x, w}:
       do IO<Unit>:
         IO.print(
           Json.show(
@@ -2136,7 +2241,8 @@ def end(json: Bool, total: Outcome, show: Bool, fixing: Bool) -> IO(Unit):
               [
                 Json.JField{"ok", Bool.pick(Json.Json, failed, Json.JFalse{}, Json.JTrue{})},
                 Json.JField{"findings", Json.JArray{Shown.values(f, [])}},
-                Json.JField{"suppressed", Json.JArray{Shown.values(s, [])}}
+                Json.JField{"suppressed", Json.JArray{Shown.values(s, [])}},
+                Json.JField{"skipped", Json.JArray{w}}
               ]
             }
           )
@@ -2147,14 +2253,15 @@ def end(json: Bool, total: Outcome, show: Bool, fixing: Bool) -> IO(Unit):
 # (first first; a line as a JSON string, an object as itself).
 def Outcome.json(total: Outcome) -> Json.Json:
   match total:
-    case Outcome{n, f, s, failed, x}:
+    case Outcome{n, f, s, failed, x, w}:
       Json.JArray{
         [
           Json.JNumber{Nat.show(n)},
           Json.JNumber{U32.show(x)},
           Bool.pick(Json.Json, failed, Json.JTrue{}, Json.JFalse{}),
           Json.JArray{Shown.values(f, [])},
-          Json.JArray{Shown.values(s, [])}
+          Json.JArray{Shown.values(s, [])},
+          Json.JArray{w}
         ]
       }
 
@@ -2172,11 +2279,12 @@ def Outcome.of(
   n: Maybe<&2, U32>,
   x: Maybe<&2, U32>,
   f: List<&2, Json.Json>,
-  s: List<&2, Json.Json>
+  s: List<&2, Json.Json>,
+  w: List<&2, Json.Json>
 ) -> Maybe<&2, Outcome>:
   match n x:
     case Some{n} Some{x}:
-      Some{Outcome{U32.to_nat(n), Shown.back(f, []), Shown.back(s, []), failed, x}}
+      Some{Outcome{U32.to_nat(n), Shown.back(f, []), Shown.back(s, []), failed, x, w}}
     case _ _:
       None{}
 
@@ -2187,20 +2295,26 @@ def Outcome.read(answer: Maybe<&2, Json.Json>) -> Maybe<&2, Outcome>:
       Json.JArray{
         Con{
           Json.JNumber{n},
-          Con{Json.JNumber{x}, Con{Json.JTrue{}, Con{Json.JArray{f}, Con{Json.JArray{s}, Nil{}}}}}
+          Con{
+            Json.JNumber{x},
+            Con{Json.JTrue{}, Con{Json.JArray{f}, Con{Json.JArray{s}, Con{Json.JArray{w}, Nil{}}}}}
+          }
         }
       }
     }:
-      Outcome.of(True{}, U32.read(n), U32.read(x), f, s)
+      Outcome.of(True{}, U32.read(n), U32.read(x), f, s, w)
     case Some{
       Json.JArray{
         Con{
           Json.JNumber{n},
-          Con{Json.JNumber{x}, Con{Json.JFalse{}, Con{Json.JArray{f}, Con{Json.JArray{s}, Nil{}}}}}
+          Con{
+            Json.JNumber{x},
+            Con{Json.JFalse{}, Con{Json.JArray{f}, Con{Json.JArray{s}, Con{Json.JArray{w}, Nil{}}}}}
+          }
         }
       }
     }:
-      Outcome.of(False{}, U32.read(n), U32.read(x), f, s)
+      Outcome.of(False{}, U32.read(n), U32.read(x), f, s, w)
     case _:
       None{}
 
@@ -2248,7 +2362,8 @@ def outcome(report: Report, +json: Bool, +fixing: Bool, program: Lint.Program) -
           List.reverse(&2, Shown, Shown.kept(json, List.take(&2, Shown, shown, n))),
           List.reverse(&2, Shown, List.drop(&2, Shown, shown, n)),
           Lists.any(~Lint.Found, ~Found.is_error, founds),
-          fixed
+          fixed,
+          []
         }
 
 # CLI
@@ -2405,19 +2520,25 @@ def linted(imports: Bool, path: String, sources: List<&2, Lint.Source>) -> List<
         []
       )
 
-# Says, if the named file's check failed, which rules on did not run on it, as they need its facts (`skipped`), if any.
-def unchecked(failed: Bool, skipped: List<&2, String>, path: String) -> IO(Unit):
-  match failed skipped:
+# Why rules did not run on a file: Bend does not load it, so none ran (`Unloaded`); its check fails, so those that
+# need its facts did not (`Unchecked`); or an entry that reads it fails its check, so it was linted without it, and the
+# rules whose findings every entry must find report nothing on it (`Unentered`).
+type Skip is Data:
+  Unloaded{}
+  Unchecked{rules: List<&2, String>}
+  Unentered{entry: String, rules: List<&2, String>}
+
+# Why rules did not run on the file at `path`.
+type Skipped is Data:
+  Skipped{path: String, skip: Skip}
+
+# The skip, if the named file's check failed (`failed`), of the rules on that need its facts (`facts`), if any.
+def unchecked(failed: Bool, facts: List<&2, String>, path: String) -> List<&2, Skipped>:
+  match failed facts:
     case True{} Con{id, rest}:
-      IO.print_err(
-        "bend-lint: Bend's check of "
-          ++ path
-          ++ " fails, so the rules that need its facts did not run on it: "
-          ++ String.join(Con{id, rest}, ", ")
-          ++ "; `bend <file> --check-only` says why"
-      )
+      [Skipped{path, Unchecked{Con{id, rest}}}]
     case _ _:
-      IO.pure(Unit, Unit{})
+      []
 
 # What a note on a failed entry adds of the rules on whose findings every entry must find (`every`): they report
 # nothing.
@@ -2429,30 +2550,99 @@ def silenced(every: List<&2, String>) -> String:
       ", and the rules whose findings every entry must find report nothing on it: "
         ++ String.join(Con{id, rest}, ", ")
 
-# Says, for each entry of `failing` that reads the named file and failed its check, that the file was linted without
-# it, and which rules report nothing on it (`every`). If the file's own check failed too (`failed`), `unchecked` says
-# so instead.
+# The skips, for each entry of `failing` that reads the named file and failed its check, of the rules whose findings
+# every entry must find (`every`), onto `out` (last first). If the file's own check failed too (`failed`), `unchecked`
+# gives its skip instead.
 def unentered(
   failed: Bool,
   failing: List<&2, String>,
   +every: List<&2, String>,
-  +path: String
-) -> IO(Unit):
+  +path: String,
+  out: List<&2, Skipped>
+) -> List<&2, Skipped>:
   match failed failing:
     case False{} Con{entry, rest}:
-      do IO<Unit>:
-        IO.print_err(
-          "bend-lint: Bend's check of the entry "
-            ++ entry
-            ++ " fails, so "
-            ++ path
-            ++ " was linted without it"
-            ++ silenced(every)
-            ++ "; `bend <file> --check-only` says why"
-        )
-        unentered(False{}, rest, every, path)
+      unentered(False{}, rest, every, path, Skipped{path, Unentered{entry, every}} <> out)
     case _ _:
-      IO.pure(Unit, Unit{})
+      out
+
+def Skipped.text(skipped: Skipped) -> String:
+  match skipped:
+    case Skipped{path, Unloaded{}}:
+      "bend-lint: Bend does not load "
+        ++ path
+        ++ ", so no rule ran on it; `bend <file> --check-only` says why"
+    case Skipped{path, Unchecked{rules}}:
+      "bend-lint: Bend's check of "
+        ++ path
+        ++ " fails, so the rules that need its facts did not run on it: "
+        ++ String.join(rules, ", ")
+        ++ "; `bend <file> --check-only` says why"
+    case Skipped{path, Unentered{entry, rules}}:
+      "bend-lint: Bend's check of the entry "
+        ++ entry
+        ++ " fails, so "
+        ++ path
+        ++ " was linted without it"
+        ++ silenced(rules)
+        ++ "; `bend <file> --check-only` says why"
+
+def Skipped.strings(texts: List<&2, String>, out: List<&2, Json.Json>) -> Json.Json:
+  match texts:
+    case Nil{}:
+      Json.JArray{List.reverse(&2, Json.Json, out)}
+    case Con{t, rest}:
+      Skipped.strings(rest, Json.JString{t} <> out)
+
+# A skip as a JSON run gives it: the file, why (`reason`), the rules it is about, the entry, if Unentered, and what the
+# text run says.
+def Skipped.json(+skipped: Skipped) -> Json.Json:
+  match skipped:
+    case Skipped{+path, Unloaded{}}:
+      Json.JObject{
+        [
+          Json.JField{"path", Json.JString{path}},
+          Json.JField{"reason", Json.JString{"unloaded"}},
+          Json.JField{"message", Json.JString{Skipped.text(skipped)}}
+        ]
+      }
+    case Skipped{+path, Unchecked{+rules}}:
+      Json.JObject{
+        [
+          Json.JField{"path", Json.JString{path}},
+          Json.JField{"reason", Json.JString{"unchecked"}},
+          Json.JField{"rules", Skipped.strings(rules, [])},
+          Json.JField{"message", Json.JString{Skipped.text(skipped)}}
+        ]
+      }
+    case Skipped{+path, Unentered{+entry, +rules}}:
+      Json.JObject{
+        [
+          Json.JField{"path", Json.JString{path}},
+          Json.JField{"reason", Json.JString{"unentered"}},
+          Json.JField{"entry", Json.JString{entry}},
+          Json.JField{"rules", Skipped.strings(rules, [])},
+          Json.JField{"message", Json.JString{Skipped.text(skipped)}}
+        ]
+      }
+
+# Says each of `skips` on stderr; gives them, in order, as JSON.
+def Skipped.said(skips: List<&2, Skipped>, out: List<&2, Json.Json>) -> IO(List<&2, Json.Json>):
+  match skips:
+    case Nil{}:
+      IO.pure(List<&2, Json.Json>, List.reverse(&2, Json.Json, out))
+    case Con{+s, rest}:
+      IO.bind(
+        Unit,
+        List<&2, Json.Json>,
+        IO.print_err(Skipped.text(s)),
+        u => Skipped.said(rest, Skipped.json(s) <> out)
+      )
+
+def Outcome.skip(outcome: Outcome, skipped: List<&2, Json.Json>) -> Outcome:
+  match outcome:
+    case Outcome{n, f, s, e, x, w}:
+      Outcome{n, f, s, e, x, Lists.append(&2, Json.Json, skipped, w)}
 
 def checked(
   ~rules: List<&1, Rule>,
@@ -2466,9 +2656,24 @@ def checked(
   match checks:
     case Checks{Con{Lint.Program{+sources}, rest}, +failing, +failed, forget}:
       +on = About.on(About.all(rules, []), settings, [])
+      skips = Lists.append(
+        &2,
+        Skipped,
+        unchecked(failed, About.ids(List.filter(~About, ~About.needs_facts, on), []), path),
+        List.reverse(
+          &2,
+          Skipped,
+          unentered(
+            failed,
+            failing,
+            About.ids(List.filter(~About, ~About.needs_every, on), []),
+            path,
+            []
+          )
+        )
+      )
       do IO<Outcome>:
-        unchecked(failed, About.ids(List.filter(~About, ~About.needs_facts, on), []), path)
-        unentered(failed, failing, About.ids(List.filter(~About, ~About.needs_every, on), []), path)
+        skipped: List<&2, Json.Json> <- Skipped.said(skips, [])
         o: Outcome <- lint(
           ~rules,
           linted(imports, path, sources),
@@ -2479,15 +2684,11 @@ def checked(
           json,
           fixing
         )
-        forgotten(forget, o)
+        forgotten(forget, Outcome.skip(o, skipped))
     case Checks{Nil{}, failing, failed, forget}:
       do IO<Outcome>:
-        IO.print_err(
-          "bend-lint: Bend does not load "
-            ++ path
-            ++ ", so no rule ran on it; `bend <file> --check-only` says why"
-        )
-        return Outcome{0n, [], [], False{}, 0}
+        skipped: List<&2, Json.Json> <- Skipped.said([Skipped{path, Unloaded{}}], [])
+        return Outcome{0n, [], [], False{}, 0, skipped}
 
 # The named file's own check, as the checks to lint it in, after the entries that read it and failed (`failing`). If
 # it fails, the rules that need no facts run on what it parsed, if it parsed the files.
@@ -2601,10 +2802,10 @@ def Check.of(imports: Bool, entries: List<&2, String>, +path: String, +facts: Bo
         c => IO.pure(Checks, Check.own([], c))
       )
 
-def Options.checked(problem: Maybe<&2, String>) -> IO(Unit):
+def Options.checked(json: Bool, problem: Maybe<&2, String>) -> IO(Unit):
   match problem:
     case Some{why}:
-      IO.die(Unit, 2, "bend-lint config: " ++ why)
+      Error.end(Unit, json, 2, "", "bend-lint config: " ++ why)
     case None{}:
       IO.pure(Unit, Unit{})
 
@@ -2626,6 +2827,11 @@ type Options is Data:
     jobs: Jobs
   }
 
+def Options.is_json(options: Options) -> Bool:
+  match options:
+    case Options{inputs, fixing, shown, json, worker, jobs}:
+      json
+
 # Whether a run with the fix flag `fixing` makes its fixes: `--fix-dangerously` does. `--fix` makes none until Bend's
 # checker in Bend can prove that a fix keeps the program, and says so (`Options.note`).
 def Options.fixes(fixing: Maybe<&2, Bool>) -> Bool:
@@ -2641,10 +2847,10 @@ def Options.note(fixing: Maybe<&2, Bool>) -> IO(Unit):
       IO.pure(Unit, Unit{})
 
 # Stops the run if it lints the imports of more than one file: a run with imports has one root.
-def Options.single(imports: Bool, many: Bool) -> IO(Unit):
+def Options.single(json: Bool, imports: Bool, many: Bool) -> IO(Unit):
   match imports many:
     case True{} True{}:
-      IO.die(Unit, 2, "bend-lint: a config with \"imports\" lints one file at a time")
+      Error.end(Unit, json, 2, "", "bend-lint: a config with \"imports\" lints one file at a time")
     case _ _:
       IO.pure(Unit, Unit{})
 
@@ -2678,11 +2884,11 @@ def configured(
   project: Project
 ) -> IO(Outcome):
   match options project:
-    case Options{inputs, fixing, shown, json, worker, jobs} Project{entries, from, +settings}:
+    case Options{inputs, fixing, shown, +json, worker, jobs} Project{entries, from, +settings}:
       +on = Maybe.default(&2, Bool, from, False{})
       do IO<Outcome>:
-        Options.checked(About.problem(About.all(rules, []), settings))
-        Options.single(on, many)
+        Options.checked(json, About.problem(About.all(rules, []), settings))
+        Options.single(json, on, many)
         settled(
           ~rules,
           path,
@@ -2788,11 +2994,11 @@ def Options.read(args: List<String>, options: Maybe<&2, Options>, jobs: Bool) ->
         String.eq(a, "--jobs")
       )
 
-def File.lint(~rules: List<&1, Rule>, path: String, options: Options, many: Bool) -> IO(Outcome):
+def File.lint(~rules: List<&1, Rule>, path: String, +options: Options, many: Bool) -> IO(Outcome):
   IO.bind(
     Project,
     Outcome,
-    Config.load(),
+    Config.load(Options.is_json(options)),
     project => configured(~rules, path, options, many, project)
   )
 
@@ -2823,27 +3029,84 @@ def Paths.lint(
         o => Paths.lint(~rules, rest, options, many, Outcome.add(total, o))
       )
 
-def files.of(found: Result<&2, &2, String, List<&2, String>>) -> IO(List<&2, String>):
+# The paths the server holds an overlay for (`--overlays`, see seam.ts), one a line in BEND_LINT_OVERLAYS: none, if it
+# gives none.
+def Overlays.of(given: Result<&1, &1, U32 & String, String>) -> List<&2, String>:
+  match given:
+    case Done{text}:
+      List.filter(~String, ~(n => Bool.not(String.is_empty(n))), String.split(text, '
+'))
+    case Fail{why}:
+      []
+
+# Stops a run that makes fixes (`fixes`) to files with overlays: a fix writes the file on disk, not the text it linted.
+def Overlays.fixing(json: Bool, fixes: Bool, overlays: List<&2, String>) -> IO(Unit):
+  match fixes overlays:
+    case True{} Con{o, rest}:
+      Error.end(
+        Unit,
+        json,
+        2,
+        "",
+        "bend-lint: --fix-dangerously does not go with --overlays: a fix writes the file on disk"
+      )
+    case _ _:
+      IO.pure(Unit, Unit{})
+
+def files.of(
+  json: Bool,
+  kept: List<&2, String>,
+  found: Result<&2, &2, String, List<&2, String>>
+) -> IO(List<&2, String>):
   match found:
     case Done{paths}:
-      IO.pure(List<&2, String>, paths)
+      IO.pure(List<&2, String>, Lists.append(&2, String, kept, paths))
     case Fail{why}:
-      IO.die(List<&2, String>, 2, "bend-lint: " ++ why)
-
-# The files the inputs name; with none, the .bend files under the current folder (see Files.listed). An input that
-# names none ends the run with a usage error.
-def files(inputs: List<&2, String>) -> IO(List<&2, String>):
+      Error.end(List<&2, String>, json, 2, "", "bend-lint: " ++ why)
+
+# The inputs that name a file with an overlay (`overlays`), onto `kept`, and the others, onto `rest` (both last first).
+def files.sort(
+  inputs: List<&2, String>,
+  +overlays: List<&2, String>,
+  kept: List<&2, String>,
+  rest: List<&2, String>
+) -> List<&2, String>
+  & List<&2, String>:
   match inputs:
     case Nil{}:
-      Files.listed("*.bend")
-    case Con{first, more}:
+      (kept, rest)
+    case Con{+input, more}:
+      +hit = List.contains(~String, ~String.eq, overlays, input)
+      files.sort(
+        more,
+        overlays,
+        Lists.push(String, Lists.when(String, hit, input), kept),
+        Lists.push(String, Lists.when(String, Bool.not(hit), input), rest)
+      )
+
+# The files of `sorted` (see files.sort): those with an overlay, which need not be on disk, then those the others name.
+def files.named(json: Bool, sorted: List<&2, String> & List<&2, String>) -> IO(List<&2, String>):
+  match sorted:
+    case Tuple{kept, Nil{}}:
+      IO.pure(List<&2, String>, List.reverse(&2, String, kept))
+    case Tuple{kept, Con{r, rest}}:
       IO.bind(
         Result<&2, &2, String, List<&2, String>>,
         List<&2, String>,
-        Files.named(Con{first, more}),
-        found => files.of(found)
+        Files.named(List.reverse(&2, String, Con{r, rest})),
+        found => files.of(json, List.reverse(&2, String, kept), found)
       )
 
+# The files the inputs name; with none, the .bend files under the current folder (see Files.listed). An input that
+# names none ends the run with a usage error (in JSON if `json`); one that names a file with an overlay (in `overlays`) names it, on disk
+# or not.
+def files(json: Bool, inputs: List<&2, String>, overlays: List<&2, String>) -> IO(List<&2, String>):
+  match inputs:
+    case Nil{}:
+      Files.listed("*.bend")
+    case Con{first, more}:
+      files.named(json, files.sort(Con{first, more}, overlays, [], []))
+
 # Workers
 # -------
 
@@ -2947,8 +3210,10 @@ def Worker.flag(on: Bool, flag: String) -> List<String>:
 def Worker.args(options: Options, path: String, threads: String) -> List<String>:
   match options:
     case Options{inputs, fixing, shown, json, worker, jobs}:
-      "--threads"
+      "+RTS"
+        <> "--threads"
         <> threads
+        <> "-RTS"
         <> "--worker"
         <> List.append(
           &1,
@@ -3051,7 +3316,7 @@ def Workers.run(
           paths,
           []
         )
-        total: Outcome <- Workers.collect(workers, Outcome{0n, [], [], False{}, 0})
+        total: Outcome <- Workers.collect(workers, Outcome{0n, [], [], False{}, 0, []})
         ended(options, total)
 
 # Lints `paths` in workers of `program`, as `options` say.
@@ -3106,7 +3371,7 @@ def Paths.go(
         paths,
         options,
         Options.is_many(options, paths),
-        Outcome{0n, [], [], False{}, 0}
+        Outcome{0n, [], [], False{}, 0, []}
       )
 
 # Lints `paths` as `options` say: in workers, if the run can (see Workers), else here.
@@ -3120,13 +3385,16 @@ def Paths.run(
 
 def checking(~rules: List<&1, Rule>, program: String, options: Maybe<&2, Options>) -> IO(Unit):
   match options:
-    case Some{Options{+inputs, +fixing, shown, json, worker, jobs}}:
+    case Some{Options{+inputs, +fixing, shown, +json, worker, jobs}}:
       do IO<Unit>:
         Options.note(fixing)
+        given: Result<&1, &1, U32 & String, String> <- IO.get_env("BEND_LINT_OVERLAYS")
+        +overlays: List<&2, String> = Overlays.of(given)
+        Overlays.fixing(json, Options.fixes(fixing), overlays)
         IO.bind(
           List<&2, String>,
           Unit,
-          files(inputs),
+          files(json, inputs, overlays),
           +paths => Paths.run(
             ~rules,
             program,
@@ -3138,7 +3406,7 @@ def checking(~rules: List<&1, Rule>, program: String, options: Maybe<&2, Options
       IO.die(
         Unit,
         2,
-        "usage: bend-lint [<file or glob>...] [--fix | --fix-dangerously] [--show-suppressed] [--json] [--jobs <number or max>]"
+        "usage: bend-lint [<file or glob>...] [--fix | --fix-dangerously] [--show-suppressed] [--json] [--jobs <number or max>] [--overlays] [--report <file>]"
       )
 
 # Runs the command line `args`: the program as invoked, then its arguments.