time-manager 0.1.0 → 0.1.1
raw patch · 3 files changed
+9/−5 lines, 3 filesdep −unliftio
Dependencies removed: unliftio
Files
- ChangeLog.md +4/−0
- System/TimeManager.hs +4/−3
- time-manager.cabal +1/−2
ChangeLog.md view
@@ -1,5 +1,9 @@ # ChangeLog for time-manager +## 0.1.1++* Removing `unliftio`.+ ## 0.1.0 * [#986](https://github.com/yesodweb/wai/pull/986)
System/TimeManager.hs view
@@ -1,5 +1,5 @@-{-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE BangPatterns #-}+{-# LANGUAGE DeriveDataTypeable #-} module System.TimeManager ( -- ** Types@@ -29,11 +29,11 @@ ) where import Control.Concurrent (myThreadId)+import qualified Control.Exception as E import Control.Reaper import Data.IORef (IORef) import qualified Data.IORef as I import Data.Typeable (Typeable)-import qualified UnliftIO.Exception as E ---------------------------------------------------------------- @@ -61,6 +61,7 @@ defaultReaperSettings { reaperAction = mkListAction prune , reaperDelay = timeout+ , reaperThreadName = "WAI timeout manager (Reaper)" } where prune m@(Handle _ actionRef stateRef) = do@@ -143,7 +144,7 @@ | stateRef == stateRef' = hs | otherwise =- let !hs'= filt hs+ let !hs' = filt hs in h : hs' -- | Setting the state to paused.
time-manager.cabal view
@@ -1,5 +1,5 @@ Name: time-manager-Version: 0.1.0+Version: 0.1.1 Synopsis: Scalable timer License: MIT License-file: LICENSE@@ -16,7 +16,6 @@ Library Build-Depends: base >= 4.12 && < 5 , auto-update >= 0.2 && < 0.3- , unliftio Default-Language: Haskell2010 Exposed-modules: System.TimeManager Ghc-Options: -Wall