Common.fs in trackler-2.2.1.89

- old
+ new

@@ -3,23 +3,10 @@
 
 open System
 open Serilog
 open Newtonsoft.Json.Linq
 
-type CanonicalDataCase = 
-    { Properties: Map<string, obj>
-      DescriptionPath: string list } with 
-        member this.Description = string this.Properties.["description"]
-        member this.Property = string this.Properties.["property"]
-        member this.Expected = this.Properties.["expected"]
-        member this.Input = this.Properties.["input"]
-
-type CanonicalData = 
-    { Exercise: string
-      Version: string
-      Cases: CanonicalDataCase list }
-
 type TestMethod = 
     { Skip: bool
       Name: string
       Body: string }
 
@@ -92,9 +79,13 @@
     let upperCaseFirst (str: string) = 
         match str with
         | "" -> str
         | _  -> sprintf "%c%s" (Char.ToUpper(str.[0])) str.[1..]
 
+    let lowerCaseFirst (str: string) = 
+        match str with
+        | "" -> str
+        | _  -> sprintf "%c%s" (Char.ToLower(str.[0])) str.[1..]
 
 module Json =
     let rec parentsAndSelf (currentToken: JToken) =
         let rec helper acc (token: JToken) =
             match token with
\ No newline at end of file