Enforce backward-compatibility when encoding NominalDiffTime.

  Keep encoding as integer when the value is a whole number of seconds. Otherwise, this may break clients down the line.

clients/TypeScript/packages/schema/src/index.ts

@@ -330,7 +330,7 @@ export type RelativeTime = number;
  */
 export type QueryUnavailableInCurrentEra = "QueryUnavailableInCurrentEra";
 /**
- * A slot length, in seconds.
+ * A slot length, in seconds. Starting from v5.5.4, this can be a floating number. Before v5.5.4, the floating value would be rounded to the nearest second.
  */
 export type SlotLength = number;
 /**

docs/static/ogmios.wsp.json

@@ -3641,10 +3641,9 @@
     }
 
   , "RelativeTime":
-    { "type": "integer"
-    , "description": "A time in seconds relative to another one (typically, system start or era start)."
+    { "type": "number"
+    , "description": "A time in seconds relative to another one (typically, system start or era start). Starting from v5.5.4, this can be a floating number. Before v5.5.4, the floating value would be rounded to the nearest second."
     , "minimum": 0
-    , "maximum": 18446744073709552999
     }
 
   , "Relay":
@@ -4169,9 +4168,8 @@
     }
 
   , "SlotLength":
-    { "type": "integer"
-    , "description": "A slot length, in seconds."
-    , "maximum": 18446744073709552000
+    { "type": "number"
+    , "description": "A slot length, in seconds. Starting from v5.5.4, this can be a floating number. Before v5.5.4, the floating value would be rounded to the nearest second."
     }
 
   , "SoftwareVersion":

server/src/Ogmios/Data/Json/Prelude.hs

@@ -125,6 +125,8 @@ import Data.ByteString.Bech32
     ( HumanReadablePart, encodeBech32 )
 import Data.IP
     ( IPv4, IPv6 )
+import Data.Ratio
+    ( (%) )
 import Data.Scientific
     ( Scientific )
 import Data.Sequence.Strict
@@ -295,8 +297,13 @@ encodeNatural =
 {-# INLINABLE encodeNatural #-}
 
 encodeNominalDiffTime :: NominalDiffTime -> Json
-encodeNominalDiffTime =
-    Json.double . fromRational . toRational
+encodeNominalDiffTime t =
+    -- TODO / NOTE: Backward-compatibility prior to v5.5.4. Should encode only
+    -- as Double in v6+
+    if i % 1 == r then Json.integer i else Json.double (fromRational r)
+  where
+    r = toRational t
+    i = round t
 {-# INLINABLE encodeNominalDiffTime #-}
 
 encodeNonNegativeInterval :: NonNegativeInterval -> Json

server/test/unit/Ogmios/Data/JsonSpec.hs

@@ -385,7 +385,7 @@ spec = do
                     \7A80D87A801A002625A0D87983D879801A000F4240D879811A000FA92E"
 
     context "SlotLength" $ do
-        let matrix = [ ( mkSlotLength 1, Json.double 1 )
+        let matrix = [ ( mkSlotLength 1, Json.integer 1 )
                      , ( mkSlotLength 0.1, Json.double 0.1 )
                      ]
         forM_ matrix $ \(slotLength, json) ->