Move UseDelay out of records

src/Dodge/Item/Display.hs

@@ -7,6 +7,7 @@ module Dodge.Item.Display (
     itemInternalValue,
 ) where
 
+import Dodge.Item.UseDelay
 import ShortShow
 import Data.Maybe
 import Dodge.Data.World
@@ -41,7 +42,7 @@ itemInternalValue itm
 
 
 maybeWarmupStatus :: Item -> Maybe String
-maybeWarmupStatus it = case it ^? itUse . heldDelay . warmMax of
+maybeWarmupStatus it = case useDelay it ^? warmMax of
     Nothing -> Nothing
     --Just m -> case m - (_warmTime . _heldDelay $ _itUse it) of
     Just m -> case m - (_wTime $ _itParams it) of