Discussion has gotten going again about harmonizing between the names findWithDefault and lookupDefault in containers and unordered-containers:

findWithDefault :: Ord k

=> a -> k -> Map k a -> a

lookupDefault :: (Eq k, Hashable k)

=> a -> k -> HashMap k a -> a

I've been fairly unenthusiastic about adding extra names for this function in one package or the other, in large part because I don't like the function. I'd much rather have something in the spirit of `either`, `maybe`, `bool`, etc.:

lurkup :: Ord k

=> r -> (a -> r) -> k -> Map k a -> r

lurkup r f k = maybe r f . lookup k

lookup k = lurkup Nothing Just k

Unfortunately, I haven't been able to come up with a decent name for this function. Can anyone help?