Move function fields outside equipment

2022-07-20 20:40:13 +01:00
parent e9f0130013
commit 845c1f282e
14 changed files with 87 additions and 29 deletions
@@ -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