diff options
-rw-r--r-- | Main.hs | 9 | ||||
-rw-r--r-- | Types/State.hs | 1 |
2 files changed, 6 insertions, 4 deletions
@@ -38,10 +38,11 @@ drawUI st = [ui] status = str "Ready to scan first page" settingsBox = defnList [ ("run OCRmyPDF", if st^.stOCR then "yes" else "no") - , ("colour data", show $ st^.stColour) - , ("page size", show $ st^.stPaper) - , ("DPI", show $ st^.stDPI) - , ("output dir", st^.stOutdir) + , ("colour data", show $ st^.stColour) + , ("page size", show $ st^.stPaper) + , ("DPI", show $ st^.stDPI) + , ("output format", show $ st^.stOutFormat) + , ("output dir", st^.stOutdir) ] presetsBox = vBox $ (\(Preset k desc _) -> diff --git a/Types/State.hs b/Types/State.hs index f8b8bc5..c3f1ecf 100644 --- a/Types/State.hs +++ b/Types/State.hs @@ -29,6 +29,7 @@ type DPI = Int -- | Output format data OutputFormat = PDF | PNG + deriving (Eq, Show) -- | Application state data St = |