From 096b92f300b6e5b23f47f1d068084b8f72695be1 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Wed, 15 Apr 2020 13:19:47 +0200
Subject: [PATCH] refactor: hlint

---
 src/Settings.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Settings.hs b/src/Settings.hs
index 87b638b92..c176f2731 100644
--- a/src/Settings.hs
+++ b/src/Settings.hs
@@ -492,9 +492,9 @@ instance FromJSON AppSettings where
         appServerSessionConfig'    <- o .: "server-sessions"
         let appServerSessionConfig = ServerSessionSettings $ httpOnlyCookie . secureCookie . applyServerSessionSettings appServerSessionConfig'
               where httpOnlyCookie :: forall a. ServerSession.State a -> ServerSession.State a
-                    httpOnlyCookie = fromMaybe id $ ServerSession.setHttpOnlyCookies <$> cookieHttpOnly (appCookieSettings CookieSession)
+                    httpOnlyCookie = maybe id ServerSession.setHttpOnlyCookies . cookieHttpOnly $ appCookieSettings CookieSession
                     secureCookie :: forall a. ServerSession.State a -> ServerSession.State a
-                    secureCookie = fromMaybe id $ ServerSession.setSecureCookies <$> cookieSecure (appCookieSettings CookieSession)
+                    secureCookie = maybe id ServerSession.setSecureCookies . cookieSecure $ appCookieSettings CookieSession
         appSessionTokenExpiration  <- o .:? "session-token-expiration"
         appSessionTokenEncoding    <- o .: "session-token-encoding"