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 {- | 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!) 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 exposing (Html, h1, img, section, text)
import Html.Attributes exposing (alt, src, style) 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 = main =
Html.programWithFlags
{ init = \_ -> ( (), Cmd.none )
, update = \() () -> ( (), Cmd.none )
, subscriptions = \() -> Sub.none
, view =
\() ->
section section
[ style [ style
[ ( "margin", "40px auto" ) [ ( "margin", "40px auto" )
@@ -39,3 +52,4 @@ main =
] ]
[] []
] ]
}