Allow dropping items by dragging off inventory

2024-11-19 22:24:03 +00:00
parent 13339c9a12
commit 2dc5d35744
11 changed files with 145 additions and 123 deletions
@@ -111,7 +111,7 @@ selSecDrawCursorAt ::
    IM.IntMap (SelectionSection a) ->
    (Int, Int) ->
    Picture
-selSecDrawCursorAt xsize ldp curs sss (i, j) = fromMaybe mempty $ do
+selSecDrawCursorAt xsize ldp curs sss (i, j) = fold $ do
    yint <- selSecYint i j sss
    xint <- sss ^? ix i . ssIndent
    si <- sss ^? ix i . ssItems . ix j