diff options
| -rw-r--r-- | Types/State.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Types/State.hs b/Types/State.hs index 31bb960..1230e31 100644 --- a/Types/State.hs +++ b/Types/State.hs @@ -86,7 +86,7 @@ data St = makeLenses ''St ifScanSess :: St -> a -> a -> a -ifScanSess st a b = if isJust $ st^.stScanSess then a else b +ifScanSess st a b = maybe b (const a) (st^.stScanSess) -- | Update a state when there is no scanning session in progress (the -- state should not be changed when some pages have already been |