Move equipType out of record

src/Dodge/Item/Info.hs

@@ -4,6 +4,7 @@ module Dodge.Item.Info (
     itemInfo,
 ) where
 
+import Dodge.Data.EquipType
 import Dodge.Data.AimStance
 import Data.Char
 --import qualified Data.Map.Strict as M
@@ -245,7 +246,7 @@ aimStanceInfo as = case as of
     OneHand -> "It is held in one hand."
 
 itmEquipSiteInfo :: Item -> String
-itmEquipSiteInfo = maybe "" equipSiteInfo . (^? itUse . uequipEffect . eeType)
+itmEquipSiteInfo = maybe "" equipSiteInfo . equipType-- (^? itUse . uequipEffect . eeType)
 
 equipSiteInfo :: EquipType -> String
 equipSiteInfo es = case es of