display more settings

2 files changed, 6 insertions, 4 deletions

diff --git a/Main.hs b/Main.hs
index 0457f8d..489fb7b 100644
--- a/Main.hs
+++ b/Main.hs
@@ -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 =