diff --git a/ChangeLog b/ChangeLog --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,13 @@ +2014-02-19 Sam Truzjan + + 0.6.0.0 + + API changes: + + * Added isActive: this predicate can be used to implement + MonadActive instance and useful for resource + initialization/finalization sanity check. + 2014-01-08 Sam Truzjan 0.6.0.0: Logging + exceptions. diff --git a/krpc.cabal b/krpc.cabal --- a/krpc.cabal +++ b/krpc.cabal @@ -1,5 +1,5 @@ name: krpc -version: 0.6.0.0 +version: 0.6.1.0 license: BSD3 license-file: LICENSE author: Sam Truzjan @@ -32,7 +32,7 @@ type: git location: git://github.com/cobit/krpc.git branch: master - tag: v0.6.0.0 + tag: v0.6.1.0 library default-language: Haskell2010 diff --git a/src/Network/KRPC.hs b/src/Network/KRPC.hs --- a/src/Network/KRPC.hs +++ b/src/Network/KRPC.hs @@ -74,6 +74,7 @@ , newManager , closeManager , withManager + , isActive , listen -- * Re-exports diff --git a/src/Network/KRPC/Manager.hs b/src/Network/KRPC/Manager.hs --- a/src/Network/KRPC/Manager.hs +++ b/src/Network/KRPC/Manager.hs @@ -24,6 +24,7 @@ , newManager , closeManager , withManager + , isActive , listen -- * Queries @@ -191,6 +192,12 @@ maybe (return ()) killThread =<< tryTakeMVar listenerThread -- TODO unblock calls close sock + +-- | Check if the manager is still active. Manager becomes active +-- until 'closeManager' called. +isActive :: Manager m -> IO Bool +isActive Manager {..} = liftIO $ isBound sock +{-# INLINE isActive #-} -- | Normally you should use Control.Monad.Trans.Resource.allocate -- function. diff --git a/tests/Network/KRPCSpec.hs b/tests/Network/KRPCSpec.hs --- a/tests/Network/KRPCSpec.hs +++ b/tests/Network/KRPCSpec.hs @@ -25,6 +25,13 @@ spec :: Spec spec = do + describe "manager" $ do + it "is active until closeManager called" $ do + m <- newManager opts servAddr [] + isActive m `shouldReturn` True + closeManager m + isActive m `shouldReturn` False + describe "query" $ do it "run handlers" $ do let int = 0xabcd :: Int