Cleanup constructors FooUse -> UseFoo

2024-10-03 20:39:41 +01:00
parent 6b4cf596b1
commit 127d85e7ce
10 changed files with 49 additions and 92 deletions
@@ -51,21 +51,21 @@ data ItemUse
        }
    | UseConsume { _cUse :: Cuse }
    | UseEquip { _uequipEffect :: EquipEffect }
-    | CraftUse
+    | UseCraft
    | UseAttach {_uaParams :: AttachParams}
    | UseAmmoMag
        { _amagLoadStatus :: ReloadStatus
        , _amagParams :: AmmoParams
        , _amagType :: AmmoType
        }
-    | ScopeUse { _scopeScope :: Scope }
-    | TargetingUse
+    | UseScope { _uScope :: Scope }
+    | UseTargeting
        { _tgPos :: Maybe Point2
        , _tgID :: Maybe Int
        , _tgActive :: Bool
        }
-    | BulletModUse
-        { _buMod :: BulletMod
+    | UseBulletMod
+        { _ubMod :: BulletMod
        }
    deriving (Eq, Show, Read)