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"