module Dodge.Equipment.Text (eqPosText) where

import Dodge.Data.Equipment.Misc

eqPosText :: EquipSite -> String
eqPosText ep = case ep of
    OnHead -> "HEAD"
    OnChest -> "CHEST"
    OnBack -> "BACK"
    OnLeftWrist -> "L.WRIST"
    OnRightWrist -> "R.WRIST"
    OnLegs -> "LEGS"
    OnSpecial -> "EQUIPPED"