Fix VerifyWorkshopSetup.
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
module VerifyWorkshopSetup exposing (main)
|
||||
port module Main exposing (..)
|
||||
|
||||
{- | Displays “You’re 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 =
|
||||
]
|
||||
[]
|
||||
]
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user