itemInInventory :: [Entity Item] -> (Entity Item) -> Bool
itemInInventory [] _ = False
itemInInventory :: [Entity Item] -> (Entity Item) -> Bool
itemInInventory [] _ = False
itemInInventory [] _ = False