reynir
/
bornhack-website
1
0
Fork 0
Code Issues Pull Requests 1 Releases Wiki Activity

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
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
schedule/src/Views/DayView.elm
View File

@ -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 =