@@ -597,9 +597,8 @@ isBadServerName = \sn ->
597597-- Plain ip match (sessions with empty ip skip the check).
598598matchIp = \clientIp sessionIp -> sessionIp == "" || clientIp == sessionIp
599599
600−extractToken = \authHeader ->
601− let rest = drop 7 authHeader in
602− if hasPrefix "Bearer " authHeader && rest != "" then Just {value: rest} else Nothing {}
600+extractToken = \h ->
601+ if hasPrefix "Bearer " h && drop 7 h != "" then Just {value: drop 7 h} else Nothing {}
603602
604603verifyMaintenanceAuth : Text -> IO Bool
605604verifyMaintenanceAuth = \authorization -> do