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

Add more weapons to attachment chain effects

Browse Source
This commit is contained in:
justin
2024-09-18 19:06:57 +01:00
parent 2c96a514ea
commit 765e08117a
11 changed files with 263 additions and 183 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ghcidOutput
+27 -34
View File
@@ -1,38 +1,31 @@
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:(44,25)-(322,30): warning: [-Wincomplete-patterns]
Pattern match(es) are non-exhaustive
In a case alternative: Patterns not matched: MachineGunMod
|
44 | heldEffect effecttype = case effecttype of
| ^^^^^^^^^^^^^^^^^^...
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:(487,43)-(500,9): warning: [-Wincomplete-patterns]
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:(493,66)-(498,55): warning: [-Wincomplete-patterns]
Pattern match(es) are non-exhaustive
In a case alternative:
Patterns not matched:
MuzzleLaser
MuzzleTesla
MuzzleTractor
MuzzleLauncher
...
MuzzleFlame
MuzzleGas
|
487 | useLoadedAmmo itm cr (cme,w) (mz,x,mid) = case _mzEffect mz of
| ^^^^^^^^^^^^^^^^^^^^...
/home/justin/Haskell/loop/src/Dodge/Bullet.hs:6:1-30: warning: [-Wunused-imports]
The import of ‘Dodge.Data.ComposedItem’ is redundant
|
6 | import Dodge.Data.ComposedItem
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Bullet.hs:7:1-28: warning: [-Wunused-imports]
The import of ‘Dodge.Data.DoubleTree’ is redundant
|
7 | import Dodge.Data.DoubleTree
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Bullet.hs:13:1-28: warning: [-Wunused-imports]
The import of ‘Dodge.Base.Coordinate’ is redundant
|
13 | import Dodge.Base.Coordinate
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Bullet.hs:14:1-29: warning: [-Wunused-imports]
The import of ‘Dodge.Creature.HandPos’ is redundant
|
14 | import Dodge.Creature.HandPos
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
493 | removeAmmoFromMag x mid cr . makeMuzzleFlare mz itm cr $ case _mzEffect mz of
| ^^^^^^^^^^^^^^^^^^^^...
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:539:1-17: warning: [-Wmissing-signatures]
Top-level binding with no type signature:
removeAmmoFromMag :: Int -> Maybe Int -> Creature -> World -> World
|
539 | removeAmmoFromMag x mid cr = fromMaybe id $ do
| ^^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:552:5-7: warning: [-Wunused-local-binds]
Defined but not used: ‘cid’
|
552 | cid = _crID cr
| ^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:(595,13)-(817,9): warning: [-Wincomplete-patterns]
Pattern match(es) are non-exhaustive
In a case alternative: Patterns not matched: TractorMod
|
595 | useMod hm = case hm of
| ^^^^^^^^^^...
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:1083:21-22: warning: [-Wunused-matches]
Defined but not used: ‘mz’
|
1083 | shootTeslaArc it cr mz w =
| ^^