15 lines
314 B
Haskell
15 lines
314 B
Haskell
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"
|
|
|