Rename ItemAttachments

2022-06-15 08:21:53 +01:00
parent 485c42eb24
commit bf1bfa5453
15 changed files with 98 additions and 80 deletions
@@ -67,8 +67,8 @@ basicItemDisplay it = Prelude.take (itSlotsTaken it) $

 maybeModeStatus :: Item -> Maybe String
 maybeModeStatus it = case it ^? itAttachment of
-    Just ItCharMode {_itCharMode = (c :<| _)} -> Just [' ',c]
-    Just ItMode {_itMode = i} -> Just $ show i
+    Just AttachCharMode {_atCharMode = (c :<| _)} -> Just [' ',c]
+    Just AttachMode {_atMode = i} -> Just $ show i
    _   -> Nothing

 maybeRateStatus :: Item -> Maybe String