diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2026-01-01 20:47:17 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2026-01-01 20:47:17 -0700 |
| commit | 4c5a5cc0eb92319719773e382fb43d5cb4098b13 (patch) | |
| tree | 4ad36814f75397af0515449a0753395f0dee5eb0 /plug/src/Montis/Dsl/Input.hs | |
| parent | cb657fa9fc8124bdab42eb148e9b4a8ac69fc05e (diff) | |
| download | montis-main.tar.gz montis-main.tar.bz2 montis-main.zip | |
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 () |