Commit before changes to item grammar

2024-09-25 11:13:01 +01:00
parent f765b02f2c
commit 600b8cd309
23 changed files with 152 additions and 150 deletions
@@ -1,7 +1,7 @@
 module Dodge.Item.Scope (
    zoomScope,
    targetingScope,
-    rocketRemoteScreen,
+    remoteScreen,
 ) where

 import Control.Lens
@@ -21,8 +21,8 @@ targetingScope tt =
        & itType . iyBase .~ ATTACH (TARGETATTACH tt)
        & itUse .~ AttachUse Nothing

-rocketRemoteScreen :: Item
-rocketRemoteScreen =
+remoteScreen :: Item
+remoteScreen =
    defaultHeldItem
-        & itType . iyBase .~ ATTACH ROCKETREMOTESCREEN
+        & itType . iyBase .~ ATTACH REMOTESCREEN
        & itUse .~ AttachUse Nothing