@@ -3,6 +3,7 @@
33{-# LANGUAGE ScopedTypeVariables #-}
44{-# LANGUAGE TupleSections #-}
55{-# LANGUAGE PatternGuards #-}
6+{-# LANGUAGE BangPatterns #-}
67{-# OPTIONS_GHC -fno-warn-deprecations #-}
78
89module Network.Wai.Handler.Warp.Run where
@@ -181,12 +182,13 @@ runSettingsConnectionMakerSecure set getConnMaker app = do
181182 let ii0 = InternalInfo0 tm dc fdc fic
182183 action ii0
183184
184− fdCacheDurationInSeconds = settingsFdCacheDuration set * 1000000
185− fdFileInfoDurationInSeconds = settingsFileInfoCacheDuration set * 1000000
185+ !fdCacheDurationInSeconds = settingsFdCacheDuration set * 1000000
186+ !fdFileInfoDurationInSeconds = settingsFileInfoCacheDuration set * 1000000
187+ !timeoutInSeconds = settingsTimeout set * 1000000
186188 withTimeoutManager f = case settingsManager set of
187189 Just tm -> f tm
188190 Nothing -> bracket
189− (T.initialize $ settingsTimeout set * 1000000)
191+ (T.initialize timeoutInSeconds)
190192 T.stopManager
191193 f
192194