From a6d664de65542e7bd352027b739fe777f3e8c267 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Wed, 1 Mar 2017 07:29:14 -0700
Subject: tidy up

---
 UI.hs | 15 ---------------
 1 file changed, 15 deletions(-)

(limited to 'UI.hs')

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