feat: lowercase package identifers on a parser level

Author: nikhedonia

buckaroo-tests/PackageIdentifier.fs

@@ -5,7 +5,7 @@ open Xunit
 open Buckaroo
 
 [<Fact>]
-let ``PackageIdentifier.parse works correctly`` () = 
+let ``PackageIdentifier.parse works correctly`` () =
   let cases = [
     ("github.com/abc/def", PackageIdentifier.GitHub { Owner = "abc"; Project = "def" });
     ("github.com/abc/def.ghi", PackageIdentifier.GitHub { Owner = "abc"; Project = "def.ghi" });
@@ -14,6 +14,9 @@ let ``PackageIdentifier.parse works correctly`` () =
     ("bitbucket.org/abc/def", PackageIdentifier.BitBucket { Owner = "abc"; Project = "def" });
     ("gitlab.com/abc/def", PackageIdentifier.GitLab { Owner = "abc"; Project = "def" });
     ("gitlab.com/abc-def/xyz", PackageIdentifier.GitLab { Owner = "abc-def"; Project = "xyz" });
+    ("github.com/ABC-DEF/XYZ", PackageIdentifier.GitHub { Owner = "abc-def"; Project = "xyz" });
+    ("gitlab.com/ABC-DEF/XYZ", PackageIdentifier.GitLab { Owner = "abc-def"; Project = "xyz" });
+    ("bitbucket.org/ABC-DEF/XYZ", PackageIdentifier.BitBucket { Owner = "abc-def"; Project = "xyz" });
   ]
 
   for (input, expected) in cases do

buckaroo/PackageIdentifier.fs

@@ -38,7 +38,7 @@ module PackageIdentifier =
     let! owner = gitHubIdentifierParser
     do! CharParsers.skipString "/"
     let! project = gitHubIdentifierParser
-    return { Owner = owner; Project = project }
+    return { Owner = owner.ToLower(); Project = project.ToLower() }
   }
 
   let parseAdhocIdentifier (x : string) : Result<AdhocPackageIdentifier, string> =
@@ -52,7 +52,7 @@ module PackageIdentifier =
     let! owner = gitHubIdentifierParser
     do! CharParsers.skipString "/"
     let! project = gitHubIdentifierParser
-    return { Owner = owner; Project = project }
+    return { Owner = owner.ToLower(); Project = project.ToLower() }
   }
 
   let parseGitHubIdentifier (x : string) =
@@ -65,7 +65,7 @@ module PackageIdentifier =
     let! owner = gitHubIdentifierParser
     do! CharParsers.skipString "/"
     let! project = gitHubIdentifierParser
-    return { Owner = owner; Project = project }
+    return { Owner = owner.ToLower(); Project = project.ToLower() }
   }
 
   let parseBitBucketIdentifier (x : string) =
@@ -78,7 +78,7 @@ module PackageIdentifier =
     let! owner = gitHubIdentifierParser
     do! CharParsers.skipString "/"
     let! project = gitHubIdentifierParser
-    return { Owner = owner; Project = project }
+    return { Owner = owner.ToLower(); Project = project.ToLower() }
   }
 
   let parseGitLabIdentifier (x : string) =