diff options
| author | Akshay Nair <phenax5@gmail.com> | 2024-12-19 22:40:41 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2024-12-19 22:40:41 +0530 |
| commit | 5dc3696f38433c79939bb182c4590a6ce04f4c63 (patch) | |
| tree | 4329988cad9afa9c58f8a4c66419d23bc0ddc55d /src/Chelleport.hs | |
| parent | d44103add77718ae650bc0ad5e708e984192c29d (diff) | |
| download | chelleport-5dc3696f38433c79939bb182c4590a6ce04f4c63.tar.gz chelleport-5dc3696f38433c79939bb182c4590a6ce04f4c63.zip | |
Test mock setup for update + 1 spec for update case
Diffstat (limited to 'src/Chelleport.hs')
| -rw-r--r-- | src/Chelleport.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Chelleport.hs b/src/Chelleport.hs index 2a95a9a..6b443b5 100644 --- a/src/Chelleport.hs +++ b/src/Chelleport.hs @@ -11,7 +11,7 @@ import Chelleport.Types import Chelleport.Utils (intToCInt) import qualified Chelleport.View import Control.Monad.IO.Class (MonadIO) -import Control.Monad.Reader (MonadReader, ReaderT (runReaderT)) +import Control.Monad.Reader (ReaderT (runReaderT)) import Data.List ((\\)) import Data.Maybe (fromMaybe, isJust) import qualified SDL @@ -66,7 +66,7 @@ eventToAction _state event = _ -> Nothing update :: - (MonadIO m, MonadAppShell m, MonadDraw m, MonadControl m, MonadReader DrawContext m) => + (MonadAppShell m, MonadDraw m, MonadControl m) => State -> AppAction -> m (State, Maybe AppAction) |