diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2017-02-25 22:19:35 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-02-25 22:19:35 -0700 |
| commit | 007af28c2abe60fb4cb10482683a335a3366e462 (patch) | |
| tree | 5c77ab61de0594d668660da4cb2c956c48f79015 /Types | |
| parent | 47a77b3d359d23166ee72462154617611fdfb98e (diff) | |
| download | sscan-007af28c2abe60fb4cb10482683a335a3366e462.tar.gz | |
store page count in app state
There has to be a place to store this or the UI cannot display the
number of pages scanned thus far.
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/State.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Types/State.hs b/Types/State.hs index befba24..e37d7a8 100644 --- a/Types/State.hs +++ b/Types/State.hs @@ -38,6 +38,9 @@ data St = St { _stScanningSession :: Maybe FilePath -- ^ if a session is in -- progress, accmulate -- scans in this dir + , _stPageCount :: Maybe Int -- ^ if a session is in + -- progress, the number of + -- pages scanned thus far , _stOCR :: Bool -- ^ whether to use OCRmyPDF , _stColour :: Colour , _stPaper :: Paper -- ^ currently selected paper size |