--   = debugStrLn $ "IGNORING> <" ++ msgPrefix msg ++
--      "> [" ++ msgCommand msg ++ "] " ++ show (body msg)


doPING :: Callback
doPING msg
    = debugStrLn $ errShowMsg msg
doPING :: Callback
doPING msg
    = debugStrLn $ errShowMsg msg
doPING msg
    = debugStrLn $ errShowMsg msg