fix duplicate & unused vars

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