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

I would prefer a more direct route: something that just turns Result String Int into Maybe String (not the more usual Maybe Int) or that lets me map a function over the Errs and not the Oks. Haskell has Either.lefts, which would give me a path:

failureView = List.singleton >> Result.lefts >> (map Html.text)

(I think that's right. I'm still a beginner here.)

Suggestions?!

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

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