@@ -140,10 +140,11 @@ runSettingsConnectionMakerSecure set getConnMaker app = do
140140 -- that no async exception is throw between the call to getConnLoop and the
141141 -- registering of connClose.
142142 D.withDateCache $ \dc ->
143− F.withFdCache (settingsFdCacheDuration set * 1000000) $ \fc ->
143+ F.withFdCache fdCacheDurationInSeconds $ \fc ->
144144 withTimeoutManager $ \tm ->
145145 mask_ $ acceptConnection set getConnMaker app dc fc tm
146146 where
147+ fdCacheDurationInSeconds = settingsFdCacheDuration set * 1000000
147148 withTimeoutManager f =
148149 case settingsManager set of
149150 Nothing -> bracket