Add body height style

Author: dmsnell

src/GrammarExplorer.elm

@@ -1,7 +1,7 @@
 module GrammarExplorer exposing (main)
 
 import Http
-import Html exposing (Html, button, div, input, label, programWithFlags, text, textarea)
+import Html exposing (Html, button, div, input, label, node, programWithFlags, text, textarea)
 import Html.Attributes exposing (style, type_, value)
 import Html.Events exposing (onClick, onInput)
 import Json.Decode as JD
@@ -208,7 +208,8 @@ inputStyle =
 view : Model -> Html Msg
 view model =
     div [ style appStyle ]
-        [ div [ style loaderStyle ]
+        [ node "style" [] [ text "body { height: 100% }" ]
+        , div [ style loaderStyle ]
             [ div []
                 [ label [ style labelStyle ] [ text "Parser service URL" ]
                 , input