From 1d366295ad881c0834530936a30e446b9aed843d Mon Sep 17 00:00:00 2001 From: Vidir Valberg Gudmundsson 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 =