diff options
Diffstat (limited to 'plug/src/Montis/Dsl/Input.hs')
| -rw-r--r-- | plug/src/Montis/Dsl/Input.hs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/plug/src/Montis/Dsl/Input.hs b/plug/src/Montis/Dsl/Input.hs index 4855951..a295a19 100644 --- a/plug/src/Montis/Dsl/Input.hs +++ b/plug/src/Montis/Dsl/Input.hs @@ -24,7 +24,6 @@ module Montis.Dsl.Input ) where -import Control.Concurrent (threadDelay) import Control.Monad import Control.Monad.Cont (MonadCont) import Control.Monad.Loops (andM) @@ -164,8 +163,6 @@ replayEvents events = do ) InputM $ modify $ \st -> st {inputSource = newInput} - where - delay to act = liftIO (threadDelay to) >> act -- | Call in the reset handler with the InputM handler you wolud like to use. useInputHandler :: (InputProxy spy) => InputM spy () -> W () |