diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-01 10:00:28 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-01 10:00:28 -0700 |
| commit | 2b8045c8706660995d372294b171f15d672f8651 (patch) | |
| tree | 1d64004d59e72506b883ecfaf5b83297517974b1 | |
| parent | b1fc6f4aecb5b372d30254576c11f08bc909efe7 (diff) | |
| download | sscan-2b8045c8706660995d372294b171f15d672f8651.tar.gz | |
comment
| -rw-r--r-- | UI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |