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

Tweak mouse context/cursors

Browse Source
This commit is contained in:
justin
2024-11-15 22:53:33 +00:00
parent 4434093d81
commit 0621709f7b
7 changed files with 288 additions and 205 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ghcidOutput
+42 -10
View File
@@ -1,3 +1,23 @@
/home/justin/Haskell/loop/src/Dodge/Render/Picture.hs:100:1-19: warning: [-Wunused-top-binds]
Defined but not used: ‘determineTermCursor’
|
100 | determineTermCursor tmid u = fromMaybe (drawPlus 5) $ do
| ^^^^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Render/Picture.hs:100:21-24: warning: [-Wunused-matches]
Defined but not used: ‘tmid’
|
100 | determineTermCursor tmid u = fromMaybe (drawPlus 5) $ do
| ^^^^
/home/justin/Haskell/loop/src/Dodge/Render/Picture.hs:100:26: warning: [-Wunused-matches]
Defined but not used: ‘u’
|
100 | determineTermCursor tmid u = fromMaybe (drawPlus 5) $ do
| ^
/home/justin/Haskell/loop/src/Dodge/Render/Picture.hs:113:1-18: warning: [-Wunused-top-binds]
Defined but not used: ‘drawWireRectCursor’
|
113 | drawWireRectCursor = scale 0.1 0.1 $ text [cWireRect]
| ^^^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Update.hs:306:1-27: warning: [-Wunused-top-binds]
Defined but not used: ‘updateMouseInventoryEffects’
|
@@ -8,18 +28,30 @@
|
306 | updateMouseInventoryEffects cfig w = w
| ^^^^
/home/justin/Haskell/loop/src/Dodge/Render/Picture.hs:106:21-24: warning: [-Wunused-matches]
/home/justin/Haskell/loop/src/Dodge/Update.hs:419:9-12: warning: [-Wunused-matches]
Defined but not used: ‘tmid’
|
106 | determineTermCursor tmid u = fromMaybe (drawPlus 5) $ do
| ^^^^
/home/justin/Haskell/loop/src/Dodge/Render/Picture.hs:106:26: warning: [-Wunused-matches]
Defined but not used: ‘u’
419 | tmid <- w ^? hud . hudElement . subInventory . termID
| ^^^^
/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:(121,24)-(128,71): warning: [GHC-62161] [-Wincomplete-patterns]
Pattern match(es) are non-exhaustive
In a case alternative:
Patterns of type ‘MouseContext’ not matched:
NoMouseContext
MouseAiming
OverInvSelect _
OverInvFilt _
...
|
106 | determineTermCursor tmid u = fromMaybe (drawPlus 5) $ do
121 | trydocombination = case w ^. input . mouseContext of
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:126:26: warning: [-Wunused-matches]
Defined but not used: ‘i’
|
126 | OverCombCombine (i,j) -> (worldEventFlags . at InventoryChange ?~ ()) . maybeExitCombine $
| ^
/home/justin/Haskell/loop/src/Dodge/Render/Picture.hs:113:1-18: warning: [-Wunused-top-binds]
Defined but not used: ‘drawWireRectCursor’
/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:126:28: warning: [-Wunused-matches]
Defined but not used: ‘j’
|
113 | drawWireRectCursor = scale 0.1 0.1 $ text [cWireRect]
| ^^^^^^^^^^^^^^^^^^
126 | OverCombCombine (i,j) -> (worldEventFlags . at InventoryChange ?~ ()) . maybeExitCombine $
| ^