Allow equipment on both wrists

src/Dodge/Data.hs

@@ -278,7 +278,7 @@ data Creature = Creature
     , _crInvCapacity    :: Int
     , _crInvLock        :: Bool
     , _crInvEquipped    :: IM.IntMap EquipPosition
-    , _crEquipment      :: CreatureEquipment
+    , _crEquipment      :: M.Map EquipPosition Int
     , _crLeftInvSel     :: Maybe Int
     , _crState          :: CreatureState
     , _crCorpse         :: Picture
@@ -297,14 +297,6 @@ data Creature = Creature
     , _crHammerPosition :: HammerPosition
     , _crName           :: String
     }
-data CreatureEquipment = CreatureEquipment
-    {_onHead    :: Maybe' Int
-    ,_onChest   :: Maybe' Int
-    ,_onBack    :: Maybe' Int
-    ,_onWristL  :: Maybe' Int
-    ,_onWristR  :: Maybe' Int
-    ,_onLegs    :: Maybe' Int
-    }
 data Vocalization 
     = Mute
     | Vocalization
@@ -1315,4 +1307,3 @@ makeLenses ''Beam
 makeLenses ''BeamType
 makeLenses ''WorldBeams
 makeLenses ''ArcStep
-makeLenses ''CreatureEquipment