lookupOr :: (Eq key) => a -> key -> [(key, a)] -> a
lookupOr d key = fromMaybe d . lookup key
lookupOr :: (Eq key) => a -> key -> [(key, a)] -> a
lookupOr d key = fromMaybe d . lookup key
lookupOr d key = fromMaybe d . lookup key