tracks/fsharp/generators/Common.fs in trackler-2.2.1.51 vs tracks/fsharp/generators/Common.fs in trackler-2.2.1.52
- old
+ new
@@ -55,9 +55,19 @@
match value with
| :? int64 as i -> if i < 0L then None else Some value
| :? int32 as i -> if i < 0 then None else Some value
| _ -> None
+ let ofNonFalse (value: obj) =
+ match value with
+ | :? bool as b when not b -> None
+ | _ -> Some value
+
+ let ofNonError (value: obj) =
+ match value with
+ | :? JToken as jToken when not (isNull jToken.["error"]) -> None
+ | _ -> Some value
+
module String =
open Humanizer
let equals (x: string) (y: string) = String.Equals(x, y, StringComparison.OrdinalIgnoreCase)
\ No newline at end of file