Cleanup

src/Dodge/Item/Display.hs

@@ -5,13 +5,13 @@ module Dodge.Item.Display (
     basicItemDisplay,
 ) where
 
-import Dodge.Item.InvSize
-import Dodge.Data.ComposedItem
-import ShortShow
 import Data.Maybe
+import Dodge.Data.ComposedItem
 import Dodge.Data.Creature
+import Dodge.Item.InvSize
 import LensHelp
 import Padding
+import ShortShow
 
 itemDisplay :: Creature -> ComposedItem -> [String]
 itemDisplay cr ci =
@@ -60,8 +60,12 @@ showAttachItem :: AttachType -> Item -> String
 showAttachItem t itm = case t of
     ZOOMSCOPE -> "ZOOMSCOPE"
     BULLETSYNTH -> "BSYNTH"
-    REMOTESCREEN -> "REMOTE SCREEN " ++ maybe mempty show 
-        (itm ^? itUse . uaParams . apLinkedProjectile . _Just)
+    REMOTESCREEN ->
+        "REMOTE SCREEN "
+            ++ maybe
+                mempty
+                show
+                (itm ^? itUse . uaParams . apLinkedProjectile . _Just)
     HOMINGMODULE -> "HOMING MOD"
     AUGMENTEDHUD -> "AUGMENTED HUD"
 
@@ -72,13 +76,13 @@ showEquipItem eit = case eit of
 
 itemNumberDisplay :: Creature -> ComposedItem -> [String]
 itemNumberDisplay cr ci
-    | EQUIP WRIST_ECG <- ci ^. _1 . itType
-          = [displayPulse $ cr ^?! crType . avatarPulse . pulseProgress]
-    | WeaponTargetingSF <- ci ^. _2
-      = [maybe "" (const "!TARG!") (ci ^? _1 . itTargeting . itTgPos . _Just)]
+    | EQUIP WRIST_ECG <- ci ^. _1 . itType =
+        [displayPulse $ cr ^?! crType . avatarPulse . pulseProgress]
+    | isJust $ ci ^? _1 . itTargeting . itTgPos . _Just =
+        ["!TARG!"]
     | Just x <- ci ^? _1 . itConsumables . magLoadStatus . iaLoaded = [shortShow x]
     | UseAttach (APInt i) <- ci ^. _1 . itUse = [show i]
-    | UseScope OpticScope {_opticZoom = x} <- ci ^. _1 . itUse = [shortShow x]
+    | UseScope OpticScope{_opticZoom = x} <- ci ^. _1 . itUse = [shortShow x]
     | otherwise = mempty
 
 displayPulse :: Int -> String