Elm toErrString

import Http exposing (..)

toErrString : Http.Error -> String
toErrString err =
    case err of 
    BadUrl s ->
        "Bad URL: " ++ s
    Timeout -> 
        "Timeout"
    NetworkError -> 
        "Network Error"
    BadStatus resp -> 
        "Status Error: " 
            ++ String.fromInt resp.status.code
            ++ " " 
            ++ resp.status.message
    BadPayload s _ -> 
        "Payload Error: "
            ++ s