diff options
-rw-r--r-- | Brick/Widgets/DefnList.hs | 2 | ||||
-rw-r--r-- | 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 @@ -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 |