Add missing file

arnavb · Jun 1, 2024 · 37e2504 · 37e2504
1 parent 9ca35fc
commit 37e2504
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/Converters.fs b/Converters.fs
@@ -0,0 +1,10 @@
+module JimBroBot.Converters
+
+open JimBroBot.DomainTypes
+
+let stringToExerciseType str =
+    match str with
+    | "set" -> SetBased
+    | "speed" -> SpeedBased
+    | "time" -> TimeBased
+    | _ -> failwith "Unexpected exercise type"