@@ -32,6 +32,7 @@ appearsSecure request = isSecure request || any (uncurry matchHeader)
3232 , ("HTTP_X_FORWARDED_SSL" , (== "on"))
3333 , ("HTTP_X_FORWARDED_SCHEME", (== "https"))
3434 , ("HTTP_X_FORWARDED_PROTO" , ((== ["https"]) . take 1 . C.split ','))
35+ , ("X-Forwarded-Proto" , (== "https")) -- Used by Nginx and AWS ELB.
3536 ]
3637
3738 where