690cadb · typeable/wai

git.iko.soy/typeable/wai

Using void.

commit690cadb33fe45729fd2d05235c57a856c138fe3c authorKazu Yamamoto <kazu@iij.ad.jp> dateTue 14 Aug 2012, 15:55 (14 years ago) parentb2aa857

2 files changed+3−2

unifiedsplit

warp/Network/Wai/Handler/Warp/Run.hs+1−1

@@ -44,7 +44,7 @@ runSettings :: Settings -> Application -> IO ()

4444runSettings set app = withSocketsDo $ do

4545 var <- MV.newMVar Nothing

4646 let clean = MV.modifyMVar_ var $ \s -> maybe (return ()) sClose s >> return Nothing

47− _ <- forkIO $ bracket

47+ void . forkIO $ bracket

4848 (bindPort (settingsPort set) (settingsHost set))

4949 (const clean)

5050 (\s -> do

warp/Network/Wai/Handler/Warp/Timeout.hs+2−1

@@ -14,6 +14,7 @@ module Network.Wai.Handler.Warp.Timeout (

1414import Control.Concurrent (forkIO, threadDelay, myThreadId, killThread)

1515import qualified Control.Exception as E

1616import Control.Monad (forever)

17+import Control.Monad (void)

1718import qualified Data.IORef as I

1819

1920-- FIXME implement stopManager

@@ -26,7 +27,7 @@ data State = Active | Inactive | Paused | Canceled

2627initialize :: Int -> IO Manager

2728initialize timeout = do

2829 ref <- I.newIORef []

29− _ <- forkIO $ forever $ do

30+ void . forkIO $ forever $ do

3031 threadDelay timeout

3132 ms <- I.atomicModifyIORef ref (\x -> ([], x))

3233 ms' <- go ms id