Adds Json.Decode.andThen simplifications listed in #2 and more
Json.Decode.andThen f (Json.Decode.fail x)
--> Json.Decode.fail x
Json.Decode.andThen f (Json.Decode.succeed a)
--> f a
Json.Decode.andThen Json.Decode.succeed decoder
--> decoder
Json.Decode.andThen (\a -> Json.Decode.succeed b) decoder
--> Json.Decode.map (\a -> b) decoder
Bonus: Correcting one Task.andThen simplification in the summary
Adds
Json.Decode.andThen
simplifications listed in #2 and moreBonus: Correcting one Task.andThen simplification in the summary