diff --git a/src/Data/Argonaut/Decode/Combinators.purs b/src/Data/Argonaut/Decode/Combinators.purs index 932a944..9ce6fc6 100644 --- a/src/Data/Argonaut/Decode/Combinators.purs +++ b/src/Data/Argonaut/Decode/Combinators.purs @@ -65,7 +65,7 @@ getFieldOptional' o s = decode json = if isNull json then pure Nothing - else Just <$> decodeJson json + else Just <$> (elaborateFailure s <<< decodeJson) json infix 7 getFieldOptional' as .:?