From 8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679 Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 3 Jun 2016 20:27:16 +0200
Subject: Migrate to elm 0.17

---
 src/client/elm/View.elm | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

(limited to 'src/client/elm/View.elm')

diff --git a/src/client/elm/View.elm b/src/client/elm/View.elm
index 90808aa..38734bc 100644
--- a/src/client/elm/View.elm
+++ b/src/client/elm/View.elm
@@ -1,12 +1,11 @@
-module View
+module View exposing
   ( view
-  ) where
+  )
 
 import Html exposing (..)
-import Signal exposing (Address)
 
 import Model exposing (Model)
-import Action exposing (Action)
+import Msg exposing (Msg)
 import Model.View exposing (..)
 import LoggedData
 
@@ -15,18 +14,18 @@ import View.Header exposing (renderHeader)
 import SignIn.View as SignInView
 import LoggedIn.View as LoggedInView
 
-view : Address Action -> Model -> Html
-view address model =
+view : Model -> Html Msg
+view model =
   div
     []
-    [ renderHeader address model
-    , renderMain address model
+    [ renderHeader model
+    , renderMain model
     ]
 
-renderMain : Address Action -> Model -> Html
-renderMain address model =
+renderMain : Model -> Html Msg
+renderMain model =
   case model.view of
     SignInView signIn ->
-      SignInView.view address model signIn
+      SignInView.view model signIn
     LoggedInView loggedIn ->
       LoggedInView.view model loggedIn
-- 
cgit v1.2.3