Cleanup

src/Dodge/Item/Display.hs

@@ -73,7 +73,7 @@ itemBaseName it = case _iyBase $ _itType it of
 
 showAttachItem :: AttachType -> String
 showAttachItem t = case t of
-    SCROLLATTACH x -> show x
+    ZOOMSCOPE -> "ZOOMSCOPE"
     TARGETATTACH x -> show x
     BULLETSYNTHESIZER -> "BSYNTH"
     ROCKETREMOTESCREEN -> "REMOTE SCREEN"

src/Dodge/Item/Grammar.hs

@@ -34,7 +34,7 @@ baseComposedItem ibt itm = case ibt of
     AMMOMAG _ -> ammoComposedItem itm
     ATTACH BULLETSYNTHESIZER -> (AmmoModifierCI BulletAmmo, [], [])
     ATTACH (TARGETATTACH{}) -> (WeaponTargetingCI, [], [])
-    ATTACH (SCROLLATTACH ZOOMSCOPE) -> (WeaponScopeCI, [], [])
+    ATTACH ZOOMSCOPE -> (WeaponScopeCI, [], [])
     ATTACH ROCKETHOMER -> (AmmoModifierCI ProjectileAmmo, [], [])
     ATTACH ROCKETREMOTESCREEN -> (AmmoModifierCI ProjectileAmmo, [], [])
     _ -> (UncomposableCI, [], [])

src/Dodge/Item/Scope.hs

@@ -11,7 +11,7 @@ import Dodge.Default.Item
 zoomScope :: Item
 zoomScope =
     defaultHeldItem
-        & itType . iyBase .~ ATTACH (SCROLLATTACH ZOOMSCOPE)
+        & itType . iyBase .~ ATTACH ZOOMSCOPE
 --        & itUse .~ AttachUse (ScrollAttachParams (ZoomScrollParams{_opticPos = 0, _opticZoom = 1, _opticDefaultZoom = 0.5}))
         & itScope .~ OpticScope{_opticPos = 0, _opticZoom = 1, _opticDefaultZoom = 0.5}