Fix VerifyWorkshopSetup.

This commit is contained in:
Richard Feldman
2018-05-01 20:57:47 -04:00
parent a9ff651ebd
commit 783d9301c1

View File

@@ -1,4 +1,4 @@
module VerifyWorkshopSetup exposing (main)
port module Main exposing (..)
{- | Displays Youre all set! and a heart in the style of the Elm logo (created
by Marco Perone, CC-BY-SA-4.0 - thanks for sharing it, Marco!)
@@ -9,10 +9,23 @@ module VerifyWorkshopSetup exposing (main)
import Html exposing (Html, h1, img, section, text)
import Html.Attributes exposing (alt, src, style)
import Json.Decode exposing (Value)
main : Html msg
port storeSession : Maybe String -> Cmd msg
port onSessionChange : (Value -> msg) -> Sub msg
main : Program Value () ()
main =
Html.programWithFlags
{ init = \_ -> ( (), Cmd.none )
, update = \() () -> ( (), Cmd.none )
, subscriptions = \() -> Sub.none
, view =
\() ->
section
[ style
[ ( "margin", "40px auto" )
@@ -39,3 +52,4 @@ main =
]
[]
]
}