Adding some type annotations to DayView functions.

This commit is contained in:
Vidir Valberg Gudmundsson 2017-07-23 02:08:59 +02:00
parent 99c48130d2
commit 1d366295ad

View file

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