getDrawerContents :: [Int] -> Map.Map Int a -> [Maybe a]
getDrawerContents ids' catalog = map getIdsContents ids' 
    where getIdsContents = \ drawerId -> Map.lookup drawerId catalog
getDrawerContents :: [Int] -> Map.Map Int a -> [Maybe a]
getDrawerContents ids' catalog = map getIdsContents ids' 
    where getIdsContents = \ drawerId -> Map.lookup drawerId catalog
getDrawerContents ids' catalog = map getIdsContents ids' 
    where getIdsContents = \ drawerId -> Map.lookup drawerId catalog