Commit on returning to work

2023-09-21 09:17:49 +01:00
parent b8f03f7d8c
commit 9ee925f13a
17 changed files with 56 additions and 32 deletions
@@ -88,6 +88,7 @@ itemBaseName it = case _iyBase $ _itType it of
    EQUIP eit -> showEquipItem eit
    AMMO ait -> show ait
    Consumable cit -> show cit
+    ATTACH ait -> show ait

 showEquipItem :: EquipItemType -> String
 showEquipItem eit = case eit of