Cleanup

src/Dodge/Render/HUD.hs

@@ -99,12 +99,11 @@ getRootItemBounds i inv = do
     y <- locLeftmost root ^? locLDT . ldtValue . cItem . itLocation . ilInvID
     return (x, y)
 
--- this should display while dragging a single inv item
 drawMouseOver :: Configuration -> World -> Picture
 drawMouseOver cfig w =
     concat
         ( invsel <|> combinvsel
-            <|> drawDragSelect cfig w
+            <|> drawDragSelecting cfig w
         )
         <> concat (drawDragSelected cfig w)
   where
@@ -141,8 +140,8 @@ drawDragSelected cfig w = do
         . IS.foldr f mempty
         $ ys
 
-drawDragSelect :: Configuration -> World -> Maybe Picture
-drawDragSelect cfig w = do
+drawDragSelecting :: Configuration -> World -> Maybe Picture
+drawDragSelecting cfig w = do
     OverInvDragSelect (i, j) mselend <- w ^? input . mouseContext
     (a, b) <- mselend
     guard $ i == a