Use Thoth.Json.Net everywhere consistently about femto HOT 3 CLOSED

type RawPackage =
    {
      Dependencies : Map<string, string> option
      DevDependencies : Map<string, string> option }

let topLevelPackages =
        match Decode.Auto.fromString<RawPackage>(file, isCamelCase = true) with
        | Ok rawPackage ->
            let inline createInstalledPackage name version isDevDependency = {
                Name = name;
                Range = Some (SemVer.Range(version));
                Installed = None;
                DevDependency = isDevDependency
            }
            let inline createInstalledPackages isDevDependency (dependencies: Map<string, string> option) =
                 dependencies
                 |> Option.map (fun deps -> deps |> Seq.map (fun kvp -> createInstalledPackage kvp.Value kvp.Key isDevDependency))
                 |> Option.defaultValue Seq.empty 
            
            ResizeArray [
                yield! (false, rawPackage.Dependencies) ||> createInstalledPackages;
                yield! (true, rawPackage.DevDependencies) ||> createInstalledPackages
            ]
        | Error _ -> ResizeArray []

let createInstalledPackages isDevDependency (dependencies: Map<string, string> option) =
    dependencies
    |> Option.defaultValue Map.empty
    |> Seq.map (fun pair -> {
        Name = pair.Key
        Range = Some (SemVer.Range(pair.Value))
        Installed = None
        DevDependency = isDevDependency
    })