diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2017-02-28 21:53:04 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-02-28 21:53:04 -0700 |
| commit | 0f4a73c745602fc2a3f837e7c6e829eff44de68a (patch) | |
| tree | 9cf389724f2adc9ba5cb07954856f9211c04a49b /UI.hs | |
| parent | 7ac129947a5ec83e6ab6cd0650c91f3955d09047 (diff) | |
| download | sscan-0f4a73c745602fc2a3f837e7c6e829eff44de68a.tar.gz | |
put command into scansess & rework
Diffstat (limited to 'UI.hs')
| -rw-r--r-- | UI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -66,7 +66,7 @@ drawUI st = [ui] ] status = str $ maybe "Ready to scan first page" - (\(ScanSess _ p) -> "Scanned " ++ show p ++ " pages") + (\(ScanSess _ p _) -> "Scanned " ++ show p ++ " pages") (st^.stScanSess) settingsBox = defnList AlignRight Nothing [ ("run OCRmyPDF", if st^.stOCR then "yes" else "no") |