From 2a53fe50c62d4b7aec0f422998c743f68aa523c1 Mon Sep 17 00:00:00 2001 From: Joris Guyonvarch Date: Tue, 21 Jul 2015 23:25:58 +0200 Subject: Adding the payment without reloading the page --- src/client/Model.elm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src/client/Model.elm') diff --git a/src/client/Model.elm b/src/client/Model.elm index 8005429..45fdf87 100644 --- a/src/client/Model.elm +++ b/src/client/Model.elm @@ -3,13 +3,17 @@ module Model , initialModel ) where +import Time exposing (Time) + import Model.View exposing (..) type alias Model = { view : View + , currentTime : Time } -initialModel : Model -initialModel = +initialModel : Time -> Model +initialModel initialTime = { view = LoadingView + , currentTime = initialTime } -- cgit v1.2.3