justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Reimplement dragging upwards with mouse

Browse Source
This commit is contained in:
justin
2024-10-25 10:29:27 +01:00
parent 388064895f
commit 0c5a21765a
10 changed files with 204 additions and 187 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ghcidOutput
+8 -13
View File
@@ -1,15 +1,10 @@
/home/justin/Haskell/loop/src/Dodge/Update.hs:357:15: warning: [-Wunused-matches]
Defined but not used: ‘x’
/home/justin/Haskell/loop/src/Dodge/Update.hs:356:5-9: warning: [-Wunused-local-binds]
Defined but not used: ‘mysel’
|
357 | shiftInvItems x w = w
| ^
/home/justin/Haskell/loop/src/Dodge/Inventory/Location.hs:13:1-31: warning: [-Wunused-imports]
The import of ‘Dodge.Data.SelectionList’ is redundant
|
13 | import Dodge.Data.SelectionList
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Inventory/Location.hs:75:9-11: warning: [-Wunused-matches]
356 | mysel = inverseSelSecYint (posSelSecYint cfig ldp (mpos ^. _y)) sss
| ^^^^^
/home/justin/Haskell/loop/src/Dodge/Update.hs:359:17-19: warning: [-Wunused-matches]
Defined but not used: ‘sss’
|
75 | sss <- w ^? hud . hudElement . diSections
| ^^^
|
359 | shiftInvItemsUp sss (_,i) w = fromMaybe w $ do
| ^^^