module Hails.MVC.Model.ProtectedModel.Initialisation where
import qualified Hails.MVC.Model.ReactiveModel.Initialisation as RM
import Hails.MVC.Model.ReactiveModel.Events
import Hails.MVC.Model.ProtectedModel
initialiseSystem :: InitialisedEvent c => ProtectedModel a c -> IO ()
initialiseSystem :: ProtectedModel a c -> IO ()
initialiseSystem = (ProtectedModel a c
-> (ReactiveModelIO a c -> ReactiveModelIO a c) -> IO ()
forall b a.
Event b =>
ProtectedModel a b
-> (ReactiveModelIO a b -> ReactiveModelIO a b) -> IO ()
`applyToReactiveModel` ReactiveModelIO a c -> ReactiveModelIO a c
forall b a c.
InitialisedEvent b =>
ReactiveModel a b c -> ReactiveModel a b c
RM.initialiseSystem)