diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-01 09:48:47 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-01 09:48:47 -0700 |
| commit | bb17a258054d190724f81062dca9cefba818d69a (patch) | |
| tree | 914d5e1574e53157e5bb6b62ca022f65d17ae3d4 /Types | |
| parent | 120161665af41b254acfbb851f83bef83efc5522 (diff) | |
| download | sscan-bb17a258054d190724f81062dca9cefba818d69a.tar.gz | |
implement new action handlers in UI
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/State.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Types/State.hs b/Types/State.hs index f49ee31..2fb081f 100644 --- a/Types/State.hs +++ b/Types/State.hs @@ -116,6 +116,13 @@ setScanSessDir dir st = case st^.stScanSess of Just (ScanSess c p _) -> st & stScanSess .~ (Just $ ScanSess c p (Just dir)) +setScanSessCommand :: Command -> St -> St +setScanSessCommand c st = case st^.stScanSess of + Just (ScanSess _ p d) -> + st & stScanSess .~ (Just $ ScanSess c p d) + Nothing -> + st & stScanSess .~ (Just $ ScanSess c 0 Nothing) + incrementPages :: St -> St incrementPages st = case st^.stScanSess of Nothing -> st |