fearOfView-0.2.0.0: Equipment.hs

module Equipment where

data Equipment
    = Bag
    | Charm
    | Hook
    | Key
    | Siphon
    deriving (Eq, Ord, Show, Enum, Bounded)

allEquipment :: [Equipment]
allEquipment = [minBound..maxBound]