diff --git a/src/lib/Qd/Observable.hs b/src/lib/Qd/Observable.hs index abd9a9f69af3f3b4ee816c0e022146a4bff92afb..b0829c61af09ab02c9a36e47ff4d60cd47871e94 100644 --- a/src/lib/Qd/Observable.hs +++ b/src/lib/Qd/Observable.hs @@ -25,6 +25,8 @@ module Qd.Observable ( FnObservable(..), ) where +import Qd.Prelude + import Control.Concurrent.MVar import Control.Monad.Fix (mfix) import Data.Binary (Binary) diff --git a/src/lib/Qd/Observable/ObservableMap.hs b/src/lib/Qd/Observable/ObservableMap.hs index 82451dc766fbc6c78299ea33e0fb38970eb7a4c8..69cfad35533e9f77de25991c206d3ac5bb700910 100644 --- a/src/lib/Qd/Observable/ObservableMap.hs +++ b/src/lib/Qd/Observable/ObservableMap.hs @@ -10,12 +10,12 @@ module Qd.Observable.ObservableMap ( ) where import Qd.Observable +import Qd.Prelude hiding (lookup, lookupDelete) import Qd.Utils.GetT import Control.Concurrent.MVar import qualified Data.HashMap.Strict as HM import Data.Unique -import Prelude hiding (lookup, lookupDelete) newtype ObservableMap k v = ObservableMap (MVar (HM.HashMap k (ObservableValue v))) diff --git a/src/lib/Qd/Observable/ObservablePriority.hs b/src/lib/Qd/Observable/ObservablePriority.hs index 94cd8ef4879cdf26474fd7f4bb9f65818182d05e..e9f34dde71a542667a80f9255a595f01dc66a19e 100644 --- a/src/lib/Qd/Observable/ObservablePriority.hs +++ b/src/lib/Qd/Observable/ObservablePriority.hs @@ -5,6 +5,7 @@ module Qd.Observable.ObservablePriority ( ) where import Qd.Observable +import Qd.Prelude import Control.Concurrent.MVar import qualified Data.HashMap.Strict as HM diff --git a/test/Qd/Observable/ObservablePrioritySpec.hs b/test/Qd/Observable/ObservablePrioritySpec.hs index 52ecf637ff08476cb2a0b249f3adcd4629e64428..25b79846bdb33dd8f21f01aa8531e80752368319 100644 --- a/test/Qd/Observable/ObservablePrioritySpec.hs +++ b/test/Qd/Observable/ObservablePrioritySpec.hs @@ -6,8 +6,10 @@ import qualified Qd.Observable.ObservablePriority as OP import Control.Monad (void) import Data.IORef +import Prelude import Test.Hspec + spec :: Spec spec = do describe "ObservablePriority" $ parallel $ do diff --git a/test/Qd/ObservableSpec.hs b/test/Qd/ObservableSpec.hs index 8268fa879b85b36e4296e4b080df297dc8d9c082..62b469954889b9f20416c7f6401717a69c47f04b 100644 --- a/test/Qd/ObservableSpec.hs +++ b/test/Qd/ObservableSpec.hs @@ -1,11 +1,12 @@ module Qd.ObservableSpec where -import Test.Hspec - import Qd.Observable import Control.Monad (void) import Data.IORef +import Prelude +import Test.Hspec + spec :: Spec spec = do