@@ -77,14 +77,14 @@ getPort = do
77 port <- I.atomicModifyIORef nextPort $ \p -> (p + 1, p)
77 port <- I.atomicModifyIORef nextPort $ \p -> (p + 1, p)
78 esocket <- try $ bindPort port HostIPv4
78 esocket <- try $ bindPort port HostIPv4
79 case esocket of
79 case esocket of
80− Left (_ :: IOException) -> getPort
80+ Left (_ :: IOException) -> RunSpec.getPort
81 Right socket -> do
81 Right socket -> do
82 sClose socket
82 sClose socket
83 return port
83 return port
85withApp :: Settings -> Application -> (Int -> IO a) -> IO a
85withApp :: Settings -> Application -> (Int -> IO a) -> IO a
86withApp settings app f = do
86withApp settings app f = do
87− port <- getPort
87+ port <- RunSpec.getPort
88 baton <- newEmptyMVar
88 baton <- newEmptyMVar
89 let settings' = setPort port
89 let settings' = setPort port
90 $ setBeforeMainLoop (putMVar baton ())
90 $ setBeforeMainLoop (putMVar baton ())