quit :: Handle -> IO ()
quit h = do
    sendRequest  opQuit "" 0 nop 0 nop 0 (CAS 0) h
    peekResponse (\_ -> return ()) (\_ -> return ()) h
quit :: Handle -> IO ()
quit h = do
    sendRequest  opQuit "" 0 nop 0 nop 0 (CAS 0) h
    peekResponse (\_ -> return ()) (\_ -> return ()) h
quit h = do
    sendRequest  opQuit "" 0 nop 0 nop 0 (CAS 0) h
    peekResponse (\_ -> return ()) (\_ -> return ()) h