del: index.html

Modules/Website/src/MainPage.elm

@@ -13,6 +13,7 @@ import Http
 import Json.Decode exposing (Decoder, int, string, succeed)
 import Json.Decode.Pipeline exposing (required)
 import Json.Encode as Encode
+import Html.Events exposing (onMouseOver)
 
 
 type alias Form =
@@ -286,6 +287,7 @@ formatButton position label state =
         , Border.widthEach borders
         , Border.color color.blue
         , width (px 80)
+        , mouseOver [ Background.color color.lightBlue ]
         , Background.color <|
             if state == Input.Selected then
                 color.lightBlue
@@ -370,6 +372,7 @@ view model =
             , Border.color color.darkBlue
             , paddingXY 32 16
             , Border.rounded 3
+            , mouseOver [ Background.color color.darkBlue ]
             ]
             { onPress = Just (PostForm model.form)
             , label = Element.text "Download"