Implement modules changing shell payloads

2024-12-24 21:13:58 +00:00
parent e82ef26b3e
commit 81fd2131e0
18 changed files with 82 additions and 18 deletions
@@ -84,6 +84,6 @@ closeButtonToSelectionItem w i = do

 closeItemToTextPictures :: FloorItem -> ([String], Color)
 closeItemToTextPictures flit = 
-    (basicItemDisplay it, itemInvColor $ basePCI it)
+    (basicItemDisplay it, itemInvColor $ baseCI it)
  where
    it = _flIt flit