Move function fields outside equipment

src/Dodge/Data/CamouflageStatus.hs

@@ -0,0 +1,5 @@
+module Dodge.Data.CamouflageStatus where
+data CamouflageStatus
+    = FullyVisible
+    | Invisible
+  deriving (Eq,Ord,Enum)

src/Dodge/Data/Creature.hs

@@ -1,14 +1,14 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
-module Dodge.Data.Creature where
+module Dodge.Data.Creature 
+    ( module Dodge.Data.Creature
+    , module Dodge.Data.CamouflageStatus
+    ) where
+import Dodge.Data.CamouflageStatus
 import Sound.Data
 import Geometry.Data
 import Color
 import Control.Lens
-data CamouflageStatus
-    = FullyVisible
-    | Invisible
-  deriving (Eq,Ord,Enum)
 data CreatureStatistics = CreatureStatistics
     { _strength       :: Int
     , _dexterity      :: Int

src/Dodge/Data/Item/HeldUse.hs

@@ -1,5 +1,6 @@
 module Dodge.Data.Item.HeldUse where
 import Dodge.Combine.Data
+import Dodge.Data.CamouflageStatus
 
 data HeldUse = HeldDoNothing 
     | HeldUseAmmoParams
@@ -18,6 +19,20 @@ data HeldUse = HeldDoNothing
     | HeldForceField
     | HeldShatter
 
+data Cuse = CDoNothing
+    | CHeal Int
+
+data Euse = EDoNothing
+    | EDetector Detector
+    | EMagShield
+    | EWristShield
+    | EHeadLamp
+    | ECamouflage CamouflageStatus
+
+    | EonWristShield
+
+    | EoffWristShield
+
 data Luse = LDoNothing
     | LRewind
     | LShrink