tidy up

2 files changed, 3 insertions, 15 deletions

diff --git a/Main.hs b/Main.hs
index c2ba55d..10685f9 100644
--- a/Main.hs
+++ b/Main.hs
@@ -111,6 +111,9 @@ makeInitialState = do
 scanPage :: St -> FilePath -> IO ()
 scanPage st dir = do
     outH <- openFile outF WriteMode
+    -- TODO 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
     createProcessWait_ "scanimage" (proc "scanimage" (scanimageArgs st))
         { std_in = NoStream
         , std_out = UseHandle outH
diff --git a/UI.hs b/UI.hs
index c10e2cf..b685c18 100644
--- a/UI.hs
+++ b/UI.hs
@@ -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