vlFilter' :: (LookupDataSet Lvl l, Enum a) => a -> Log l -> Bool
lvlFilter' lvl l = (i >= fromEnum lvl) where
    LevelData i _ = readData Lvl l

lvlFilter' :: (LookupDataSet Lvl l, Enum a) => a -> Log l -> Bool
lvlFilter' lvl l = (i >= fromEnum lvl) where
    LevelData i _ = readData Lvl l
lvlFilter' lvl l = (i >= fromEnum lvl) where
    LevelData i _ = readData Lvl l