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

Adding some type annotations to DayView functions.

Browse source
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 -- 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 =