22 lines
515 B
Elm
22 lines
515 B
Elm
module Loading exposing (error, icon)
|
|
|
|
{-| A loading spinner icon.
|
|
-}
|
|
|
|
import Html exposing (Attribute, Html, div, li)
|
|
import Html.Attributes exposing (class, style)
|
|
|
|
|
|
icon : Html msg
|
|
icon =
|
|
li [ class "sk-three-bounce", style "float" "left", style "margin" "8px" ]
|
|
[ div [ class "sk-child sk-bounce1" ] []
|
|
, div [ class "sk-child sk-bounce2" ] []
|
|
, div [ class "sk-child sk-bounce3" ] []
|
|
]
|
|
|
|
|
|
error : String -> Html msg
|
|
error str =
|
|
Html.text ("Error loading " ++ str ++ ".")
|