Add a case in clientConnect (main.hs)