Add loading cycles to magazines
This commit is contained in:
+101
-115
@@ -1,40 +1,3 @@
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Display.hs:11:1-26: warning: [-Wunused-imports]
|
||||
The import of ‘Control.Applicative’ is redundant
|
||||
|
|
||||
11 | import Control.Applicative
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Display.hs:12:1-20: warning: [-Wunused-imports]
|
||||
The import of ‘Control.Monad’ is redundant
|
||||
|
|
||||
12 | import Control.Monad
|
||||
| ^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Display.hs:15:1-22: warning: [-Wunused-imports]
|
||||
The import of ‘Dodge.Item.Info’ is redundant
|
||||
|
|
||||
15 | import Dodge.Item.Info
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Display.hs:87:16-17: warning: [-Wname-shadowing]
|
||||
This binding for ‘at’ shadows the existing binding
|
||||
imported from ‘LensHelp’ at /home/justin/Haskell/loop/src/Dodge/Item/Display.hs:18:1-15
|
||||
(and originally defined in ‘Control.Lens.At’)
|
||||
|
|
||||
87 | showAttachItem at = case at of
|
||||
| ^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Display.hs:132:21-22: warning: [-Wunused-matches]
|
||||
Defined but not used: ‘cr’
|
||||
|
|
||||
132 | showEquipmentNumber cr itm = case _eeUse ee of
|
||||
| ^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Display.hs:155:20-21: warning: [-Wunused-matches]
|
||||
Defined but not used: ‘cr’
|
||||
|
|
||||
155 | showReloadProgress cr itm = fromMaybe [] $ do
|
||||
| ^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Draw/SPic.hs:10:1-39: warning: [-Wunused-imports]
|
||||
The import of ‘Dodge.Item.Weapon.FractionLoaded’ is redundant
|
||||
|
|
||||
10 | import Dodge.Item.Weapon.FractionLoaded
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Draw/SPic.hs:68:1-12: warning: [-Wunused-top-binds]
|
||||
Defined but not used: ‘ammoPosition’
|
||||
|
|
||||
@@ -90,91 +53,21 @@
|
||||
|
|
||||
448 | lasGunPic it =
|
||||
| ^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Weapon/FractionLoaded.hs:6:1-19: warning: [-Wunused-imports]
|
||||
The import of ‘Control.Lens’ is redundant
|
||||
|
|
||||
6 | import Control.Lens
|
||||
| ^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Weapon/FractionLoaded.hs:7:1-17: warning: [-Wunused-imports]
|
||||
The import of ‘Data.Maybe’ is redundant
|
||||
|
|
||||
7 | import Data.Maybe
|
||||
| ^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Weapon/FractionLoaded.hs:8:1-22: warning: [-Wunused-imports]
|
||||
The import of ‘Dodge.Data.Item’ is redundant
|
||||
|
|
||||
8 | import Dodge.Data.Item
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Euse.hs:4:1-20: warning: [-Wunused-imports]
|
||||
The import of ‘Control.Monad’ is redundant
|
||||
|
|
||||
4 | import Control.Monad
|
||||
| ^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Euse.hs:47:15-17: warning: [-Wunused-matches]
|
||||
Defined but not used: ‘itm’
|
||||
|
|
||||
47 | trySiphonFuel itm cr = id
|
||||
| ^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Euse.hs:47:19-20: warning: [-Wunused-matches]
|
||||
Defined but not used: ‘cr’
|
||||
|
|
||||
47 | trySiphonFuel itm cr = id
|
||||
| ^^
|
||||
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:488:22-23: warning: [-Wunused-matches]
|
||||
Defined but not used: ‘it’
|
||||
|
|
||||
488 | caneStickSoundChoice it = tap3S
|
||||
| ^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Weapon/TriggerType.hs:657:55: warning: [-Wtype-defaults]
|
||||
• Defaulting the following constraints to type ‘Integer’
|
||||
(Num a0)
|
||||
arising from the literal ‘1’
|
||||
at /home/justin/Haskell/loop/src/Dodge/Item/Weapon/TriggerType.hs:657:55
|
||||
(Enum a0)
|
||||
arising from the arithmetic sequence ‘1 .. ’
|
||||
at /home/justin/Haskell/loop/src/Dodge/Item/Weapon/TriggerType.hs:657:54-60
|
||||
• In the expression: 1
|
||||
In the second argument of ‘take’, namely ‘[1 .. ]’
|
||||
In the third argument of ‘foldr’, namely ‘(take numbul [1 .. ])’
|
||||
|
|
||||
657 | duplicateLoaded eff it cr w = foldr f w (take numbul [1 .. ])
|
||||
| ^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Held/BatteryGuns.hs:10:1-29: warning: [-Wunused-imports]
|
||||
The import of ‘Dodge.Reloading.Action’ is redundant
|
||||
|
|
||||
10 | import Dodge.Reloading.Action
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Held/Cone.hs:6:1-29: warning: [-Wunused-imports]
|
||||
The import of ‘Dodge.Reloading.Action’ is redundant
|
||||
|
|
||||
6 | import Dodge.Reloading.Action
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Held/Launcher.hs:4:1-29: warning: [-Wunused-imports]
|
||||
The import of ‘Dodge.Reloading.Action’ is redundant
|
||||
|
|
||||
4 | import Dodge.Reloading.Action
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Held/SprayGuns.hs:12:1-29: warning: [-Wunused-imports]
|
||||
The import of ‘Dodge.Reloading.Action’ is redundant
|
||||
|
|
||||
12 | import Dodge.Reloading.Action
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Held/Rod.hs:13:1-29: warning: [-Wunused-imports]
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Held/Launcher.hs:4:1-29: warning: [-Wunused-imports]
|
||||
The import of ‘Dodge.Reloading.Action’ is redundant
|
||||
|
|
||||
13 | import Dodge.Reloading.Action
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Info.hs:(62,16)-(107,62): warning: [-Wincomplete-patterns]
|
||||
Pattern match(es) are non-exhaustive
|
||||
In a case alternative: Patterns not matched: MULTIGUN _
|
||||
|
|
||||
62 | heldInfo hit = case hit of
|
||||
| ^^^^^^^^^^^...
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Held/Cane.hs:14:1-29: warning: [-Wunused-imports]
|
||||
|
|
||||
4 | import Dodge.Reloading.Action
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Held/Cone.hs:6:1-29: warning: [-Wunused-imports]
|
||||
The import of ‘Dodge.Reloading.Action’ is redundant
|
||||
|
|
||||
14 | import Dodge.Reloading.Action
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
|
|
||||
6 | import Dodge.Reloading.Action
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Base/You.hs:45:19-20: warning: [-Wunused-matches]
|
||||
Defined but not used: ‘cr’
|
||||
|
|
||||
@@ -195,6 +88,99 @@
|
||||
|
|
||||
12 | import Dodge.Reloading.Action
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Held/BatteryGuns.hs:10:1-29: warning: [-Wunused-imports]
|
||||
The import of ‘Dodge.Reloading.Action’ is redundant
|
||||
|
|
||||
10 | import Dodge.Reloading.Action
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Weapon/TriggerType.hs:657:55: warning: [-Wtype-defaults]
|
||||
• Defaulting the following constraints to type ‘Integer’
|
||||
(Num a0)
|
||||
arising from the literal ‘1’
|
||||
at /home/justin/Haskell/loop/src/Dodge/Item/Weapon/TriggerType.hs:657:55
|
||||
(Enum a0)
|
||||
arising from the arithmetic sequence ‘1 .. ’
|
||||
at /home/justin/Haskell/loop/src/Dodge/Item/Weapon/TriggerType.hs:657:54-60
|
||||
• In the expression: 1
|
||||
In the second argument of ‘take’, namely ‘[1 .. ]’
|
||||
In the third argument of ‘foldr’, namely ‘(take numbul [1 .. ])’
|
||||
|
|
||||
657 | duplicateLoaded eff it cr w = foldr f w (take numbul [1 .. ])
|
||||
| ^
|
||||
/home/justin/Haskell/loop/src/Dodge/Euse.hs:4:1-20: warning: [-Wunused-imports]
|
||||
The import of ‘Control.Monad’ is redundant
|
||||
|
|
||||
4 | import Control.Monad
|
||||
| ^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Euse.hs:47:15-17: warning: [-Wunused-matches]
|
||||
Defined but not used: ‘itm’
|
||||
|
|
||||
47 | trySiphonFuel itm cr = id
|
||||
| ^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Euse.hs:47:19-20: warning: [-Wunused-matches]
|
||||
Defined but not used: ‘cr’
|
||||
|
|
||||
47 | trySiphonFuel itm cr = id
|
||||
| ^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Held/Rod.hs:13:1-29: warning: [-Wunused-imports]
|
||||
The import of ‘Dodge.Reloading.Action’ is redundant
|
||||
|
|
||||
13 | import Dodge.Reloading.Action
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Held/Cane.hs:14:1-29: warning: [-Wunused-imports]
|
||||
The import of ‘Dodge.Reloading.Action’ is redundant
|
||||
|
|
||||
14 | import Dodge.Reloading.Action
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item.hs:(29,25)-(34,40): warning: [-Wincomplete-patterns]
|
||||
Pattern match(es) are non-exhaustive
|
||||
In a case alternative: Patterns not matched: AMMOATTACH REVOLVEMAG
|
||||
|
|
||||
29 | itemFromAttachType at = case at of
|
||||
| ^^^^^^^^^^...
|
||||
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:488:22-23: warning: [-Wunused-matches]
|
||||
Defined but not used: ‘it’
|
||||
|
|
||||
488 | caneStickSoundChoice it = tap3S
|
||||
| ^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Info.hs:(62,16)-(107,62): warning: [-Wincomplete-patterns]
|
||||
Pattern match(es) are non-exhaustive
|
||||
In a case alternative: Patterns not matched: MULTIGUN _
|
||||
|
|
||||
62 | heldInfo hit = case hit of
|
||||
| ^^^^^^^^^^^...
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Display.hs:11:1-26: warning: [-Wunused-imports]
|
||||
The import of ‘Control.Applicative’ is redundant
|
||||
|
|
||||
11 | import Control.Applicative
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Display.hs:12:1-20: warning: [-Wunused-imports]
|
||||
The import of ‘Control.Monad’ is redundant
|
||||
|
|
||||
12 | import Control.Monad
|
||||
| ^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Display.hs:15:1-22: warning: [-Wunused-imports]
|
||||
The import of ‘Dodge.Item.Info’ is redundant
|
||||
|
|
||||
15 | import Dodge.Item.Info
|
||||
| ^^^^^^^^^^^^^^^^^^^^^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Display.hs:87:16-17: warning: [-Wname-shadowing]
|
||||
This binding for ‘at’ shadows the existing binding
|
||||
imported from ‘LensHelp’ at /home/justin/Haskell/loop/src/Dodge/Item/Display.hs:18:1-15
|
||||
(and originally defined in ‘Control.Lens.At’)
|
||||
|
|
||||
87 | showAttachItem at = case at of
|
||||
| ^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Display.hs:132:21-22: warning: [-Wunused-matches]
|
||||
Defined but not used: ‘cr’
|
||||
|
|
||||
132 | showEquipmentNumber cr itm = case _eeUse ee of
|
||||
| ^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Item/Display.hs:155:20-21: warning: [-Wunused-matches]
|
||||
Defined but not used: ‘cr’
|
||||
|
|
||||
155 | showReloadProgress cr itm = fromMaybe [] $ do
|
||||
| ^^
|
||||
/home/justin/Haskell/loop/src/Dodge/Default/Item/Use/Consumption.hs:6:1-29: warning: [-Wunused-imports]
|
||||
The import of ‘Dodge.Reloading.Action’ is redundant
|
||||
|
|
||||
|
||||
Reference in New Issue
Block a user