diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-01 07:29:14 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-01 07:29:14 -0700 |
| commit | a6d664de65542e7bd352027b739fe777f3e8c267 (patch) | |
| tree | 2d38f0ea12b446cda6a7d8225ee3ac33aac6a8f1 /UI.hs | |
| parent | bbe73c757a12abc857d263aac04fc1cdeaa78f6e (diff) | |
| download | sscan-a6d664de65542e7bd352027b739fe777f3e8c267.tar.gz | |
tidy up
Diffstat (limited to 'UI.hs')
| -rw-r--r-- | UI.hs | 15 |
1 files changed, 0 insertions, 15 deletions
@@ -110,21 +110,6 @@ handleSPC st = undefined handleESC :: St -> EventM () (Next St) handleESC st = undefined -beginScanSess :: St -> EventM () St -beginScanSess st = undefined - -abortScanSess :: St -> EventM () (Next St) -abortScanSess st = undefined - -finishScanSess :: St -> EventM () (Next St) -finishScanSess st = undefined - --- run scanimage with appropriate arguments. If scanimage exists --- non-zero, inform the user that we will abort the scan session, --- pause for them to read the output, and then abort the scan session -scanNextPage :: St -> IO St -scanNextPage st = undefined - handleHotKey :: St -> Char -> EventM () (Next St) handleHotKey st 'q' = handleQ st handleHotKey st ' ' = handleSPC st |