Elm - Simulating Maybe.map6

maybe.elm

    Maybe.map5
        (\year month day hour minute ->
            { year = year
            , month = month
            , day = day
            , hour = hour
            , minute = minute
            , second = 0
            }
        )
        (parseIsoYear str)
        (parseIsoMonth str)
        (parseIsoDay str)
        (parseIsoHour str)
        (parseIsoMinute str)
        |> Maybe.andThen
            (\val ->
                case parseIsoSecond str of
                    Just seconds ->
                        Just { val | second = seconds }
                    Nothing ->
                        Nothing
            )