We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 90c24ac commit 3191525Copy full SHA for 3191525
src/Internal/QueryM/Ogmios.purs
@@ -540,8 +540,12 @@ instance DecodeAeson OgmiosEraSummaries where
540
-- `Maybe`).
541
end' <- getField o "end"
542
end <- if isNull end' then pure Nothing else Just <$> decodeAeson end'
543
+ let end2 =
544
+ case end of
545
+ Just x -> if (unwrap x).time > (unwrap start).time then Just x else Nothing
546
+ Nothing -> Nothing
547
parameters <- decodeEraSummaryParameters =<< getField o "parameters"
- pure $ wrap { start, end, parameters }
548
+ pure $ wrap { start, end: end2, parameters }
549
550
decodeEraSummaryParameters
551
:: Object Aeson -> Either JsonDecodeError EraSummaryParameters
0 commit comments