From 73c585d02d2ec7fc1bd6894192bad8f2b1138163 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 2 Mar 2017 07:11:57 -0700 Subject: fix duplicate & unused vars --- Brick/Widgets/DefnList.hs | 2 +- Main.hs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Brick/Widgets/DefnList.hs b/Brick/Widgets/DefnList.hs index 1465964..016a522 100644 --- a/Brick/Widgets/DefnList.hs +++ b/Brick/Widgets/DefnList.hs @@ -55,7 +55,7 @@ defnList align attr defns = vBox $ line <$> defns maxWidth = maximum $ map (\(x,y) -> length sep + length x + length y) defns - maxLabelWidth = maximum $ map (\(x,y) -> length x) defns + maxLabelWidth = maximum $ map (\(x,_) -> length x) defns sep = if align == AlignRight then ": " else ": " labelAttr = maybe V.defAttr id attr diff --git a/Main.hs b/Main.hs index 9b33887..0d3abc7 100644 --- a/Main.hs +++ b/Main.hs @@ -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 -- cgit v1.2.3