@@ -40,7 +40,13 @@ run' vars inputH outputH app = do
40 servername = lookup' "SERVER_NAME" vars
40 servername = lookup' "SERVER_NAME" vars
41 serverport = safeRead 80 $ lookup' "SERVER_PORT" vars
41 serverport = safeRead 80 $ lookup' "SERVER_PORT" vars
42 contentLength = safeRead 0 $ lookup' "CONTENT_LENGTH" vars
42 contentLength = safeRead 0 $ lookup' "CONTENT_LENGTH" vars
43− remoteHost' = safeRead "" $ lookup' "REMOTE_HOST" vars
44+ case lookup "REMOTE_HOST" vars of
47+ case lookup "REMOTE_ADDR" vars of
44 urlScheme' =
50 urlScheme' =
45 case map toLower $ lookup' "SERVER_PROTOCOL" vars of
51 case map toLower $ lookup' "SERVER_PROTOCOL" vars of
46 "https" -> HTTPS
52 "https" -> HTTPS