lookupMaybe :: Ord k => Maybe k -> Map k v -> Maybe v
lookupMaybe x m = x >>= (`Map.lookup` m)
lookupMaybe :: Ord k => Maybe k -> Map k v -> Maybe v
lookupMaybe x m = x >>= (`Map.lookup` m)
lookupMaybe x m = x >>= (`Map.lookup` m)