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
handleEvent
:: C.Event
-- ^ The even being handled
-- ^ The event being handled
-> Action Bool
handleEvent e = do
m <- gets $ view progMode