git.iko.soy/typeable/wai
on master help sign in
Merge pull request #736 from yesodweb/better_port_environment_lookup

Use lookupEnv instead of getEnvironment

commit63a76aa228301a8edb74b255c3d046559e392e3a authorMichael Snoyman <michael@snoyman.com> dateSat 30 Mar 2019, 20:12 (8 years ago) parentfce40291ce1704
2 files changed+8−2
compare with master
unifiedsplit
warp/ChangeLog.md+6 warp/Network/Wai/Handler/Warp/Run.hs+2−2
warp/ChangeLog.md+6
@@ -1,3 +1,9 @@
1+## 3.2.27
2+
3+* Internally, use `lookupEnv` instead of `getEnvironment` to get the
4+ value of the `PORT` environment variable
5+ [#736](https://github.com/yesodweb/wai/pull/736)
6+
17## 3.2.26
28
39* Support network package version 3
warp/Network/Wai/Handler/Warp/Run.hs+2−2
@@ -23,7 +23,7 @@ import Network.Socket (Socket, close, accept, withSocketsDo, SockAddr(SockAddrIn
2323import qualified Network.Socket.ByteString as Sock
2424import Network.Wai
2525import Network.Wai.Internal (ResponseReceived (ResponseReceived))
26−import System.Environment (getEnvironment)
26+import System.Environment (lookupEnv)
2727import System.Timeout (timeout)
2828
2929import Network.Wai.Handler.Warp.Buffer
@@ -80,7 +80,7 @@ run p = runSettings defaultSettings { settingsPort = p }
8080-- Since 3.0.9
8181runEnv :: Port -> Application -> IO ()
8282runEnv p app = do
83− mp <- lookup "PORT" <$> getEnvironment
83+ mp <- lookupEnv "PORT"
8484
8585 maybe (run p app) runReadPort mp
8686