Allow for equipment items to set a minimum view distance

src/Dodge/Equipment.hs

@@ -0,0 +1,9 @@
+module Dodge.Equipment where
+import Dodge.Data
+
+import qualified Data.IntMap.Strict as IM
+import Data.IntMap.Merge.Strict
+
+getCrEquipment :: Creature -> IM.IntMap Item
+getCrEquipment cr = merge dropMissing dropMissing (zipWithMatched $ \_ _ -> id)
+    (_crInvEquipped cr)  (_crInv cr)