module Dodge.ItemUseCondition (itUseCondition) where import Dodge.Data.Item import Dodge.Data.UseCondition itUseCondition :: Item -> UseCondition itUseCondition itm = case _itType itm of DETECTOR _ -> UseableAnytime HELD BLINKER -> UseableAnytime HELD BLINKERUNSAFE -> UseableAnytime _ -> UseableWhenAimed