diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2017-02-25 16:56:48 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-02-25 16:57:30 -0700 |
| commit | 46c595fd9a8ace2c5d00facf192e4f64ea3ac3c8 (patch) | |
| tree | 640fd184c4bedaa2b2c54ff2b040b8b16e8d3d33 /Types | |
| parent | 2e280d3001080cb3fc508485933a0eb798d29148 (diff) | |
| download | sscan-46c595fd9a8ace2c5d00facf192e4f64ea3ac3c8.tar.gz | |
add OutputFormat and set initial output dir
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/State.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Types/State.hs b/Types/State.hs index c8948a0..f8b8bc5 100644 --- a/Types/State.hs +++ b/Types/State.hs @@ -27,6 +27,9 @@ cyclePaper Auto = A4 -- | DPI to scan type DPI = Int +-- | Output format +data OutputFormat = PDF | PNG + -- | Application state data St = St { _stScanningSession :: Maybe FilePath -- ^ if a session is in @@ -37,7 +40,10 @@ data St = , _stPaper :: Paper -- ^ currently selected paper size , _stDefaultPaper :: Paper -- ^ locale's default paper size , _stDPI :: DPI + , _stOutFormat :: OutputFormat , _stOutdir :: FilePath -- ^ where to save final PDFs } +-- other device-specific scanimage options we could support: --swdespeck; --color-filter; --depth + makeLenses ''St |