Support units of measure in JsonParse (#170)

2025-10-06 04:28:42 +00:00 · 2024-06-24 23:23:23 +01:00
parent db4694f6e7
commit 85929d49d5
10 changed files with 124 additions and 50 deletions
--- a/ConsumePlugin/GeneratedPureGymDto.fs
+++ b/ConsumePlugin/GeneratedPureGymDto.fs
@@ -148,6 +148,7 @@ module GymLocation =
                        reraise ()
                else
                    reraise ()
+            |> LanguagePrimitives.FloatWithMeasure

        let arg_0 =
            try
--- a/ConsumePlugin/PureGymDto.fs
+++ b/ConsumePlugin/PureGymDto.fs
@@ -19,13 +19,16 @@ type GymAccessOptions =
        QrCodeAccess : bool
    }

+[<Measure>]
+type measure
+
 [<WoofWare.Myriad.Plugins.JsonParse>]
 type GymLocation =
    {
        [<JsonNumberHandling(JsonNumberHandling.AllowReadingFromString)>]
        Longitude : float
        [<JsonNumberHandling(JsonNumberHandling.AllowReadingFromString)>]
-        Latitude : float
+        Latitude : float<measure>
    }

 [<WoofWare.Myriad.Plugins.JsonParse>]