1 files changed, 1 insertions, 1 deletions
diff --git a/UI.hs b/UI.hs
index d224be1..b3482aa 100644
--- a/UI.hs
+++ b/UI.hs
@@ -101,7 +101,7 @@ drawUI st = [ui]
 handleQ :: St -> EventM () (Next St)
 handleQ st = halt $ ifScanSess st
     (setScanSessCommand Finalise st)
-    (resetScanSess st)
+    (resetScanSess st)          -- misnomer: this causes sscan to exit
 
 handleRET :: St -> EventM () (Next St)
 handleRET st = halt $ setScanSessCommand FinalPage st