sendNoSuchNick :: MVar U.User -> S.Server -> String -> IO ()
sendNoSuchNick userVar serv cmd = do
  use <- takeMVar userVar
  let pref = M.ServerName (S.hostname serv)
  let rep = R.Reply pref 461 [U.nickname use, cmd] "No such nick/channel"
  R.sendReply (U.handle use) rep
  putMVar userVar use
sendNoSuchNick :: MVar U.User -> S.Server -> String -> IO ()
sendNoSuchNick userVar serv cmd = do
  use <- takeMVar userVar
  let pref = M.ServerName (S.hostname serv)
  let rep = R.Reply pref 461 [U.nickname use, cmd] "No such nick/channel"
  R.sendReply (U.handle use) rep
  putMVar userVar use
sendNoSuchNick userVar serv cmd = do
  use <- takeMVar userVar
  let pref = M.ServerName (S.hostname serv)
  let rep = R.Reply pref 461 [U.nickname use, cmd] "No such nick/channel"
  R.sendReply (U.handle use) rep
  putMVar userVar use