fix: final review findings

Co-Authored-By: Claude Opus 5.5 <[email protected]>
This commit is contained in:
Lucas Winther
2026-10-29 01:43:48 +01:00
co-authored by Claude Opus 5.5
parent 82f47fb3ee
commit b46a3611af
7 changed files with 23 additions and 11 deletions
+7 -1
View File
@@ -29,7 +29,13 @@ let private violations (code: string) =
let private fsFiles () =
if Directory.Exists srcDir then
Directory.GetFiles(srcDir, "*.fs", SearchOption.AllDirectories) |> Array.sort |> List.ofArray
Directory.GetFiles(srcDir, "*.fs", SearchOption.AllDirectories)
|> Array.filter (fun f ->
// skip generated output: any path component named bin or obj
let rel = Path.GetRelativePath(srcDir, f)
not (rel.Split([| '/'; '\\' |]) |> Array.exists (fun d -> d = "bin" || d = "obj")))
|> Array.sort
|> List.ofArray
else
[]