Add fix bug in terminal destruction effects

src/Dodge/Event.hs

@@ -47,7 +47,7 @@ handleEvent e = case eventPayload e of
     TextInputEvent tev         -> handleTextInput (textInputEventText tev)
     KeyboardEvent kev          -> handleKeyboardEvent kev
     MouseMotionEvent mmev      -> return . handleMouseMotionEvent mmev
-    MouseButtonEvent mbev      -> return . handleMouseButtonEvent mbev
+    MouseButtonEvent mbev      -> return . Just . over uvWorld (handleMouseButtonEvent mbev)
     MouseWheelEvent mwev       -> return . handleMouseWheelEvent mwev
     WindowSizeChangedEvent sev -> handleResizeEvent sev
     WindowMovedEvent mev       -> return . handleWindowMoveEvent mev
@@ -61,13 +61,12 @@ handleMouseMotionEvent mmev u = Just $ u & uvWorld . mousePos .~ V2
     cfig = _config u
     P (V2 x y) = mouseMotionEventPos mmev
 
-handleMouseButtonEvent :: MouseButtonEventData -> Universe -> Maybe Universe
+handleMouseButtonEvent :: MouseButtonEventData -> World -> World
 handleMouseButtonEvent mbev = case mouseButtonEventMotion mbev of
-    Released -> Just . updateButtons S.delete
-    Pressed  -> Just . over uvWorld (handlePressedMouseButton thebutton) . updateButtons S.insert
+    Released -> mouseButtons %~ S.delete thebutton
+    Pressed  -> handlePressedMouseButton thebutton . (mouseButtons %~ S.insert thebutton)
   where
     thebutton = mouseButtonEventButton mbev
-    updateButtons f = uvWorld . mouseButtons %~ f thebutton
 
 {- | Sets window position in config. -}
 handleWindowMoveEvent :: WindowMovedEventData -> Universe -> Maybe Universe
@@ -183,7 +182,7 @@ nullCommand = TerminalCommand
     , _tcHelp   = ""
     , _tcArgumentType = Nothing
     , _tcArguments  = const (const [])
-    , _tcEffect = const $ \_ w -> Right w
+    , _tcEffect = \_ _ _ -> Right []
     }
 
 scrollRBOption :: Float -> World -> World