Work on AttachUse -> UseAttach

src/Dodge/Item/Scope.hs

@@ -10,6 +10,7 @@ module Dodge.Item.Scope (
     bulletPayloadModule,
 ) where
 
+import Dodge.Item.Attach
 import Control.Lens
 import Dodge.Data.Item
 import Dodge.Default.Item
@@ -25,9 +26,7 @@ targetingScope tt = defaultHeldItem
     & itUse .~ TargetingUse Nothing Nothing False
 
 homingModule :: Item
-homingModule = defaultHeldItem
-     & itType .~ ATTACH HOMINGMODULE
-     & itUse .~ AttachUse Nothing
+homingModule = makeAttach HOMINGMODULE
 
 fletchingModule :: Item
 fletchingModule = bulletTargetingModule FlechetteTrajectoryType
@@ -45,12 +44,8 @@ bulletPayloadModule :: BulletPayload -> Item
 bulletPayloadModule = bulletModule . BulletModPayload
 
 augmentedHUD :: Item
-augmentedHUD = defaultHeldItem
-        & itType .~ ATTACH AUGMENTEDHUD
-        & itUse .~ AttachUse Nothing
+augmentedHUD = makeAttach AUGMENTEDHUD
 
 remoteScreen :: Item
-remoteScreen =
-    defaultHeldItem
-        & itType .~ ATTACH REMOTESCREEN
-        & itUse .~ AttachUse Nothing
+remoteScreen = makeAttach REMOTESCREEN
+