Make items recoverable from base type

2022-06-14 22:09:26 +01:00
parent f3e1a34164
commit 485c42eb24
15 changed files with 537 additions and 241 deletions
@@ -85,5 +85,5 @@ maybeWarmupStatus it = case it ^? itUse . useDelay . warmMax of
                in Just $ Prelude.take (5 - Prelude.length n) "*WARM" ++ n

 defaultItemType :: ItemType
-defaultItemType = ItemType NOTDEFINED mempty
+defaultItemType = ItemType NOTDEFINED mempty NoStack