This commit is contained in:
Jonathan Lamothe 2019-08-23 09:50:21 -04:00
parent 923c143826
commit a3ccb47128

View File

@ -33,7 +33,7 @@ import Mtlstats.Types
-- | Event handler -- | Event handler
handleEvent handleEvent
:: C.Event :: C.Event
-- ^ The even being handled -- ^ The event being handled
-> Action Bool -> Action Bool
handleEvent e = do handleEvent e = do
m <- gets $ view progMode m <- gets $ view progMode