[expose connection Evan Martin **20060217044544] { hunk ./MPD.hs 9 - ReconnectableConnection, rcConnect, rcDo + ReconnectableConnection, rcConnect, + rcConnection, rcDo hunk ./MPD.hs 64 + +rcConnection :: ReconnectableConnection -> IO Connection +rcConnection (connref, _) = readIORef connref }