From 783d9301c1aea111f0d31302cc85fa7d3d5799a9 Mon Sep 17 00:00:00 2001
From: Richard Feldman <richard.t.feldman@gmail.com>
Date: Tue, 1 May 2018 20:57:47 -0400
Subject: [PATCH] Fix VerifyWorkshopSetup.

---
 VerifyWorkshopSetup.elm | 70 ++++++++++++++++++++++++-----------------
 1 file changed, 42 insertions(+), 28 deletions(-)

diff --git a/VerifyWorkshopSetup.elm b/VerifyWorkshopSetup.elm
index d1490df..cfd9324 100644
--- a/VerifyWorkshopSetup.elm
+++ b/VerifyWorkshopSetup.elm
@@ -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,33 +9,47 @@ 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 =
-    section
-        [ style
-            [ ( "margin", "40px auto" )
-            , ( "width", "960px" )
-            , ( "text-align", "center" )
-            ]
-        ]
-        [ h1
-            [ style
-                [ ( "margin", "40px auto" )
-                , ( "font-family", "Helvetica, Arial, sans-serif" )
-                , ( "font-size", "128px" )
-                , ( "color", "rgb(90, 99, 120)" )
-                ]
-            ]
-            [ text "You’re all set!" ]
-        , img
-            [ alt "Heart in the style of the Elm logo, by Marco Perone"
-            , src "https://user-images.githubusercontent.com/1094080/39399444-a90f2746-4aeb-11e8-9bd6-4fe45e535921.png"
-            , style
-                [ ( "width", "368px" )
-                , ( "height", "305px" )
-                ]
-            ]
-            []
-        ]
+    Html.programWithFlags
+        { init = \_ -> ( (), Cmd.none )
+        , update = \() () -> ( (), Cmd.none )
+        , subscriptions = \() -> Sub.none
+        , view =
+            \() ->
+                section
+                    [ style
+                        [ ( "margin", "40px auto" )
+                        , ( "width", "960px" )
+                        , ( "text-align", "center" )
+                        ]
+                    ]
+                    [ h1
+                        [ style
+                            [ ( "margin", "40px auto" )
+                            , ( "font-family", "Helvetica, Arial, sans-serif" )
+                            , ( "font-size", "128px" )
+                            , ( "color", "rgb(90, 99, 120)" )
+                            ]
+                        ]
+                        [ text "You’re all set!" ]
+                    , img
+                        [ alt "Heart in the style of the Elm logo, by Marco Perone"
+                        , src "https://user-images.githubusercontent.com/1094080/39399444-a90f2746-4aeb-11e8-9bd6-4fe45e535921.png"
+                        , style
+                            [ ( "width", "368px" )
+                            , ( "height", "305px" )
+                            ]
+                        ]
+                        []
+                    ]
+        }