REVIEW: creating optional HTML from a Result in Elm

1-before-the-long-way.elm

-- This becomes the typical pop-up error message at the top of an HTML page
failureView : Result String Int -> List (Html Update)
failureView possibleNumericInput =
    case possibleNumericInput of
        Err message ->
            [ text message ]

        Ok _ ->
            []

2-after-using-exts-result.elm

-- I like this version, but wonder if there's a more direct way.
-- I need the exact opposite of Result.withDefault that provides a default value for Ok instead of Err.
failureView : Result String Int -> List (Html Update)
failureView possibleNumericInput =
    either
        (text >> List.singleton)
        (\_ -> [])
        possibleNumericInput

3-after-using-fromErr.elm

-- This is pretty close to what I thought I wanted.
failureView : Result String Int -> List (Html Update)
failureView =
    Exts.Result.fromErr >> Exts.List.maybeSingleton >> List.map Html.text

Of course! Now I see Result.fromErr. Can I do better?

Now that I've refactored a little, it's pretty good. :)