diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-02 07:11:57 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-02 07:12:16 -0700 |
commit | 73c585d02d2ec7fc1bd6894192bad8f2b1138163 (patch) | |
tree | 8aa11c7c1e743eb9c6462f33caa1cb72a1e2ef61 /Main.hs | |
parent | 5b9576b50078ce8f67e911f60978d601ecc414cd (diff) | |
download | sscan-73c585d02d2ec7fc1bd6894192bad8f2b1138163.tar.gz |
fix duplicate & unused vars
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -171,7 +171,7 @@ scanimageArgs st = processCommand :: St -> IO () processCommand st = case st^.stScanSess of Nothing -> return () -- quit sscan - Just (ScanSess command pages maybeDir) -> case maybeDir of + Just (ScanSess command _ maybeDir) -> case maybeDir of Nothing -> withSystemTempDirectory "sscan" $ \dir -> processCommand (setScanSessDir dir st) Just dir -> case command of @@ -185,7 +185,7 @@ processCommand st = case st^.stScanSess of Finalise -> finaliseSession st dir >> newSession where newSession = presentUI $ resetScanSess st - finaliseSession st dir = forkIO $ processScanSessDir st dir + finaliseSession st' dir = forkIO $ processScanSessDir st' dir presentUI :: St -> IO () presentUI st = runTheApp st >>= processCommand |