diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2017-02-26 20:28:20 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-02-26 20:28:20 -0700 |
commit | 81fcdbc447efc3df3e7fabd4d124dea76981a6b5 (patch) | |
tree | 0b26e318885f99b24ebc187280d2fa308f719b93 | |
parent | 5bb55ee72688f46ca7b92a8f59d121e2ec1622ba (diff) | |
download | sscan-81fcdbc447efc3df3e7fabd4d124dea76981a6b5.tar.gz |
implement resetScanSess
-rw-r--r-- | Types/State.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Types/State.hs b/Types/State.hs index 68ef188..1ec6c56 100644 --- a/Types/State.hs +++ b/Types/State.hs @@ -3,7 +3,7 @@ module Types.State where import Data.Maybe -import Lens.Micro ((^.)) +import Lens.Micro ((&), (.~), (^.)) import Lens.Micro.TH (makeLenses) -- | Whether to do colour, grey or b&w scans @@ -61,3 +61,6 @@ ifScanSess st a b = if isJust $ st^.stScanSess then a else b -- scanned) updateSt :: St -> (St -> St) -> St updateSt st f = ifScanSess st st (f st) + +resetScanSess :: St -> St +resetScanSess st = st & stScanSess .~ Nothing |