From 1d366295ad881c0834530936a30e446b9aed843d Mon Sep 17 00:00:00 2001
From: Vidir Valberg Gudmundsson <valberg@orn.li>
Date: Sun, 23 Jul 2017 02:08:59 +0200
Subject: [PATCH] Adding some type annotations to DayView functions.

---
 schedule/src/Views/DayView.elm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/schedule/src/Views/DayView.elm b/schedule/src/Views/DayView.elm
index 6d4d5340..77d15ec3 100644
--- a/schedule/src/Views/DayView.elm
+++ b/schedule/src/Views/DayView.elm
@@ -3,7 +3,7 @@ module Views.DayView exposing (dayView)
 -- Local modules
 
 import Messages exposing (Msg(..))
-import Models exposing (Model, Day, EventInstance)
+import Models exposing (Model, Day, EventInstance, EventLocation)
 
 
 -- Core modules
@@ -56,6 +56,7 @@ dayView day model =
             ]
 
 
+locationColumns : List EventInstance -> List EventLocation -> Int -> Html Msg
 locationColumns eventInstances eventLocations offset =
     let
         columnWidth =
@@ -73,6 +74,7 @@ locationColumns eventInstances eventLocations offset =
             (List.map (\location -> locationColumn columnWidth eventInstances offset location) eventLocations)
 
 
+locationColumn : Float -> List EventInstance -> Int -> EventLocation -> Html Msg
 locationColumn columnWidth eventInstances offset location =
     let
         locationInstances =
@@ -104,6 +106,7 @@ locationColumn columnWidth eventInstances offset location =
             )
 
 
+renderGroup : Int -> List EventInstance -> Html Msg
 renderGroup offset group =
     let
         sortedGroup =