king: don't kill on C-d

This commit is contained in:
ryjm 2021-06-09 05:10:15 -04:00
parent a41c3adcdd
commit 971da9ab82

View File

@ -566,7 +566,6 @@ localClient doneSignal = fst <$> mkRAcquire start stop
loop rd loop rd
else if w <= 26 then do else if w <= 26 then do
case pack [BS.w2c (w + 97 - 1)] of case pack [BS.w2c (w + 97 - 1)] of
"d" -> atomically doneSignal
c -> do sendBelt $ Ctl $ Cord c c -> do sendBelt $ Ctl $ Cord c
loop rd loop rd
else if w == 27 then do else if w == 27 then do