From ccf3105ab3dc4b5ffb5a2fb510c2c503876b96f5 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sat, 25 Feb 2017 17:03:55 -0700
Subject: display more settings

---
 Main.hs        | 9 +++++----
 Types/State.hs | 1 +
 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 =
-- 
cgit v1.2.3