From a4877c2a453011b5571b279bf8a8ac131d831fd3 Mon Sep 17 00:00:00 2001
From: Maxime Mangel <mangel.maxime@protonmail.com>
Date: Sat, 24 Aug 2024 16:55:27 +0200
Subject: [PATCH] feat: lower FSharp.Core requirements

---
 src/Faqt/Faqt.fsproj    | 2 +-
 src/Faqt/SubjectName.fs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Faqt/Faqt.fsproj b/src/Faqt/Faqt.fsproj
index a230a1e..958d837 100644
--- a/src/Faqt/Faqt.fsproj
+++ b/src/Faqt/Faqt.fsproj
@@ -48,7 +48,7 @@
   </ItemGroup>
 
   <ItemGroup>
-    <PackageReference Update="FSharp.Core" Version="7.0.400" />
+    <PackageReference Update="FSharp.Core" Version="5.0.2" />
     <PackageReference Include="FracturedJson" Version="4.0.2" />
     <PackageReference Include="FSharp.SystemTextJson" Version="1.3.13" />
     <PackageReference Include="YamlDotNet" Version="16.0.0" />
diff --git a/src/Faqt/SubjectName.fs b/src/Faqt/SubjectName.fs
index 0a614f8..5b12724 100644
--- a/src/Faqt/SubjectName.fs
+++ b/src/Faqt/SubjectName.fs
@@ -265,7 +265,7 @@ module internal SubjectName =
             |> Seq.skip (origin.LineNumber - 1)
             |> Seq.scan
                 (fun (countsLeft: Map<_, _>, _) line ->
-                    if countsLeft.Values |> Seq.forall ((=) 0) then
+                    if countsLeft |> Map.forall (fun _ v -> v = 0) then
                         countsLeft, None
                     else
                         let newCountsLeft =