-- | Find the requester for the NAMES query, unhook and invoke it.
namesResponse :: String -> [User] -> Bot ()
namesResponse ch cL = do
    cbs <- consumeGlobal nameCallbacks (\(c, cb) -> "#"++c == ch)
    mapM_ (($cL) . snd) cbs
namesResponse :: String -> [User] -> Bot ()
namesResponse ch cL = do
    cbs <- consumeGlobal nameCallbacks (\(c, cb) -> "#"++c == ch)
    mapM_ (($cL) . snd) cbs
namesResponse ch cL = do
    cbs <- consumeGlobal nameCallbacks (\(c, cb) -> "#"++c == ch)
    mapM_ (($cL) . snd) cbs