Skip to content

Commit 3191525

Browse files
Cody ButzCody Butz
Cody Butz
authored and
Cody Butz
committed
temp fix
1 parent 90c24ac commit 3191525

File tree

1 file changed

+5
-1
lines changed

1 file changed

+5
-1
lines changed

src/Internal/QueryM/Ogmios.purs

+5-1
Original file line numberDiff line numberDiff line change
@@ -540,8 +540,12 @@ instance DecodeAeson OgmiosEraSummaries where
540540
-- `Maybe`).
541541
end' <- getField o "end"
542542
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
543547
parameters <- decodeEraSummaryParameters =<< getField o "parameters"
544-
pure $ wrap { start, end, parameters }
548+
pure $ wrap { start, end: end2, parameters }
545549

546550
decodeEraSummaryParameters
547551
:: Object Aeson -> Either JsonDecodeError EraSummaryParameters

0 commit comments

Comments
 (0)