From 67a213e550f82936dadf83918f40ff68f2cb51f9 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Tue, 28 Feb 2017 21:55:16 -0700
Subject: Revert "rewrite ifScanSess"

This reverts commit 751303aa5effc5277a89bcbdeedb338f396d8f0b.
---
 Types/State.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Types/State.hs b/Types/State.hs
index 9d11019..5100c9a 100644
--- a/Types/State.hs
+++ b/Types/State.hs
@@ -101,7 +101,7 @@ data St =
 makeLenses ''St
 
 ifScanSess :: St -> a -> a -> a
-ifScanSess st a b = maybe b (const a) (st^.stScanSess)
+ifScanSess st a b = if isJust $ st^.stScanSess then a else b
 
 -- | Update a state when there is no scanning session in progress (the
 -- state should not be changed when some pages have already been
-- 
cgit v1.2.3