-- | Contains only one operation to notify that the system's been -- initialised. -- -- Copyright : (C) Keera Studios Ltd, 2013 -- License : BSD3 -- Maintainer : support@keera.co.uk module Hails.MVC.Model.ReactiveModel.Initialisation where import Hails.MVC.Model.ReactiveModel import Hails.MVC.Model.ReactiveModel.Events initialiseSystem :: InitialisedEvent b => ReactiveModel a b c -> ReactiveModel a b c initialiseSystem :: ReactiveModel a b c -> ReactiveModel a b c initialiseSystem = (ReactiveModel a b c -> b -> ReactiveModel a b c forall b a c. Event b => ReactiveModel a b c -> b -> ReactiveModel a b c `triggerEvent` b forall a. InitialisedEvent a => a initialisedEvent)