Make item display universal

2022-06-19 12:56:30 +01:00
parent df1f3ad6b0
commit 541a04f1bc
22 changed files with 349 additions and 358 deletions
@@ -139,10 +139,6 @@ flatShield = defaultEquipment
        , _heldScroll = \_ _ -> id
        }
    , _itInvSize = 3
-    , _itInvDisplay = \it -> head (basicItemDisplay it) : 
-        ["*" ++ replicate 13 ' ' ++ "*"
-        ,"*" ++ replicate 13 ' ' ++ "*"
-        ]
    }
    & itType . iyBase .~ FLATSHIELD
 flatShieldEquipSPic :: Item -> SPic