diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2017-02-28 20:21:50 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-02-28 20:21:50 -0700 |
| commit | 448f0e1193a9681b66068e7595aeef8c43e99a33 (patch) | |
| tree | f80c97d867686b8846a1ee93ec5bc88718fa0312 | |
| parent | eb0acbc48e683362829ec83c791772ab0d327482 (diff) | |
| download | sscan-448f0e1193a9681b66068e7595aeef8c43e99a33.tar.gz | |
command data type
| -rw-r--r-- | Types/State.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Types/State.hs b/Types/State.hs index 2e86fab..31bb960 100644 --- a/Types/State.hs +++ b/Types/State.hs @@ -61,6 +61,14 @@ data ScanSess = ScanSess FilePath -- ^ session's tmpdir Int -- ^ total pages scanner thus far +-- | An sscan operation selected by the user in the UI +data Command + = NextPage -- ^ scan first page or another page + | FinalPage -- ^ scan final page (might be the first page) + | Finalise -- ^ make the previous scanned page the final page of the document + | Abort -- ^ abandon the current scan session + | Quit -- ^ quit sscan + -- | Application state data St = St { _stScanSess :: Maybe ScanSess @@ -71,6 +79,7 @@ data St = , _stDPI :: DPI , _stOutFormat :: OutputFormat , _stOutdir :: FilePath -- ^ where to save final PDFs + , _stCommand :: Command } -- other device-specific scanimage options the old script supported: --swdespeck; --color-filter; --depth |