MonadMPD: provide getHandle() accessor to reach underlying handle

this is needed in order to allow proper non-blocking idle support
joachifm · Sep 7, 2010 · dc57273 · dc57273
1 parent bf9d289
commit dc57273
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/Network/MPD/Core.hs b/Network/MPD/Core.hs
@@ -70,6 +70,7 @@ instance MonadMPD MPD where
     open  = mpdOpen
     close = mpdClose
     send  = mpdSend
+    getHandle = MPD $ get
     getPassword = MPD $ ask >>= \(_,_,pw) -> return pw
 
 -- | A response is either an 'MPDError' or some result.

diff --git a/Network/MPD/Core/Class.hs b/Network/MPD/Core/Class.hs
@@ -10,6 +10,8 @@
 
 module Network.MPD.Core.Class where
 
+import System.IO (Handle)
+
 import Network.MPD.Core.Error (MPDError)
 
 import Control.Monad.Error (MonadError)
@@ -25,6 +27,8 @@ class (Monad m, MonadError MPDError m) => MonadMPD m where
     close :: m ()
     -- | Send a string to the server and return its response.
     send  :: String -> m String
+    -- | Get underlying Handle (or Nothing, if no connection is estabilished)
+    getHandle :: m (Maybe Handle)
     -- | Produce a password to send to the server should it ask for
     --   one.
     getPassword :: m Password