From 06d44a42926d6d3e8a6ea6c8022251ded664df8a Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Wed, 30 Jan 2019 11:12:35 +0100
Subject: [PATCH] Minor cleanup

---
 src/Foundation.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Foundation.hs b/src/Foundation.hs
index 901c6c124..b3dfb271f 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -269,7 +269,7 @@ instance HasRoute UniWorX MenuItem where
   urlRoute MenuItem{..} = urlRoute menuItemRoute
 
 menuItemAccessCallback :: MenuItem -> Handler Bool
-menuItemAccessCallback MenuItem{..} = (&&) <$> ((==) Authorized <$> authCheck) <*> menuItemAccessCallback'
+menuItemAccessCallback MenuItem{..} = and2M ((==) Authorized <$> authCheck) menuItemAccessCallback'
   where
     authCheck = handleAny (\_ -> return . Unauthorized $ error "authCheck caught exception") $ isAuthorized (urlRoute menuItemRoute) False