Skip to content
Snippets Groups Projects
Commit 704751d3 authored by Jens Nolte's avatar Jens Nolte
Browse files

Remove undefined subscribeDeltaC

parent a943da9d
No related branches found
No related tags found
No related merge requests found
...@@ -3,7 +3,7 @@ module Qd.Observable.Delta where ...@@ -3,7 +3,7 @@ module Qd.Observable.Delta where
import Qd.Observable import Qd.Observable
import Qd.Prelude import Qd.Prelude
import Conduit --import Conduit
import qualified Data.HashMap.Strict as HM import qualified Data.HashMap.Strict as HM
import Data.Binary (Binary(..)) import Data.Binary (Binary(..))
import Data.IORef import Data.IORef
...@@ -29,10 +29,9 @@ instance (Eq k, Hashable k, Binary k, Binary v) => Binary (Delta k v) where ...@@ -29,10 +29,9 @@ instance (Eq k, Hashable k, Binary k, Binary v) => Binary (Delta k v) where
class Observable (HM.HashMap k v) o => DeltaObservable k v o | o -> k, o -> v where class Observable (HM.HashMap k v) o => DeltaObservable k v o | o -> k, o -> v where
subscribeDelta :: o -> (Delta k v -> IO ()) -> IO SubscriptionHandle subscribeDelta :: o -> (Delta k v -> IO ()) -> IO SubscriptionHandle
subscribeDelta = undefined --subscribeDeltaC :: o -> ConduitT () (Delta k v) IO ()
subscribeDeltaC :: o -> ConduitT () (Delta k v) IO () --subscribeDeltaC = undefined
subscribeDeltaC = undefined --{-# MINIMAL subscribeDelta | subscribeDeltaC #-}
{-# MINIMAL subscribeDelta | subscribeDeltaC #-}
observeHashMapDefaultImpl :: forall k v o. (Eq k, Hashable k) => DeltaObservable k v o => o -> (HM.HashMap k v -> IO ()) -> IO SubscriptionHandle observeHashMapDefaultImpl :: forall k v o. (Eq k, Hashable k) => DeltaObservable k v o => o -> (HM.HashMap k v -> IO ()) -> IO SubscriptionHandle
observeHashMapDefaultImpl o callback = do observeHashMapDefaultImpl o callback = do
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment