module Eventloop.DefaultConfiguration where
import Eventloop.EventloopCore
import Eventloop.Types.EventTypes
import Eventloop.RouteEvent
import Eventloop.Module.Websocket.Keyboard
import Eventloop.Module.Websocket.Mouse
import Eventloop.Module.File
import Eventloop.Module.StdOut
import Eventloop.Module.StdIn
import Eventloop.Module.Timer
allModulesEventloopConfiguration :: progstateT ->
(progstateT -> In -> (progstateT, [Out])) ->
EventloopConfiguration progstateT
allModulesEventloopConfiguration beginProgstate eventloop = (EventloopConfiguration
beginProgstate
eventloop
routeOutEvent
defaultSharedIOState
[ defaultFileModuleConfiguration
, defaultTimerModuleConfiguration
, defaultKeyboardModuleConfiguration
, defaultMouseModuleConfiguration
, defaultStdInModuleConfiguration
, defaultStdOutModuleConfiguration
]
)
defaultSharedIOState :: SharedIOState
defaultSharedIOState = SharedIOState undefined