From 2b8045c8706660995d372294b171f15d672f8651 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Wed, 1 Mar 2017 10:00:28 -0700
Subject: comment

---
 UI.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3