FEA: added error message that shows if a given config was not found

mechsym · May 14, 2021 · 4e7e15f · 4e7e15f
1 parent 6881362
commit 4e7e15f
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/MechSym.SnapperReplicator/Snapper.Serialization.fs b/src/MechSym.SnapperReplicator/Snapper.Serialization.fs
@@ -28,7 +28,11 @@ module Config =
 
         let parse (result: Map<string, Config list>) =
             result.["configs"]
-            |> List.find (fun config -> config.Name = configName)
+            |> List.tryFind (fun config -> config.Name = configName)
+            |> Option.defaultWith (fun () ->
+                let availableConfigs = result.["configs"] |> List.map (fun config -> config.Name.Value) |> String.concat ", "
+                let message = $"Cannot find config '{configName.Value}'. Available configs: {availableConfigs}"
+                failwith message)
 
         Decode.fromString configsDecoder snapperListConfigsOutput
         |> Result.map parse