Add part3

advanced/part3/src/Loading.elm

@@ -0,0 +1,21 @@
+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 ++ ".")