Add file

src/Dodge/Equipment/Text.hs

@@ -0,0 +1,14 @@
+module Dodge.Equipment.Text
+    where
+
+import Dodge.Data.Equipment.Misc
+
+eqPosText :: EquipPosition -> String
+eqPosText ep = case ep of
+    OnHead -> "HEAD"
+    OnChest -> "CHESt"
+    OnBack -> "BACK"
+    OnLeftWrist -> "L.WRIST"
+    OnRightWrist -> "R.WRIST"
+    OnLegs -> "LEGS"
+    OnSpecial -> "EQUIPPED"