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
|
{- | 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!)
|
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 =
|
|||||||
]
|
]
|
||||||
[]
|
[]
|
||||||
]
|
]
|
||||||
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user