Vleanup

2025-06-05 16:21:30 +01:00
parent 4b326433ab
commit 16f5c05f19
24 changed files with 488 additions and 599 deletions
@@ -1,16 +1,11 @@
 module Dodge.Default.Item.Use (
    module Dodge.Default.Item.Use,
-    module Dodge.Default.Item.Use.Equipment,
 ) where

 import Dodge.Data.Item.Use
-import Dodge.Default.Item.Use.Equipment

 defaultEquipUse :: ItemUse
-defaultEquipUse =
-    UseEquip
-        { _uequipEffect = defaultEquip
-        }
+defaultEquipUse = UseEquip

 --defaultHeldUse :: ItemUse
 --defaultHeldUse =
@@ -1,15 +0,0 @@
-module Dodge.Default.Item.Use.Equipment where
-
-import Dodge.Data.Item.Use.Equipment
-
-defaultEquip :: EquipEffect
-defaultEquip =
-    EquipEffect
-        { --_eeType = GoesOnHead
--         _eeUse = EDoNothing
--        , _eeOnEquip = ItmCrWdWdDoNothing
--        , _eeOnRemove = ItmCrWdWdDoNothing
--        , _eeParams = NoEquipParams
--        , _eeViewDist = Nothing
--        , _eeAttachPos = 0
-        }