Cleanup combining code, flatten modules

2024-10-01 10:01:21 +01:00
parent f69d150e00
commit 87cbaf911f
17 changed files with 143 additions and 173 deletions
@@ -84,6 +84,7 @@ showAttachItem t itm = case t of

 showEquipItem :: EquipItemType -> String
 showEquipItem eit = case eit of
+    INVISIBILITYEQUIPMENT esite -> "INVISIBILITY " ++ show esite
    _ -> show eit

 showAutoRechargeProgress :: LeftConsumption -> String