From 91912ac858f2626559ba521da6d96682ce3413d8 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Fri, 23 Oct 2020 03:48:15 +0200
Subject: [PATCH] Explicitly import prelude in every module

This fixes ghci.
---
 src/lib/Qd/Observable.hs                     | 2 ++
 src/lib/Qd/Observable/ObservableMap.hs       | 2 +-
 src/lib/Qd/Observable/ObservablePriority.hs  | 1 +
 test/Qd/Observable/ObservablePrioritySpec.hs | 2 ++
 test/Qd/ObservableSpec.hs                    | 5 +++--
 5 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/src/lib/Qd/Observable.hs b/src/lib/Qd/Observable.hs
index abd9a9f..b0829c6 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 82451dc..69cfad3 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 94cd8ef..e9f34dd 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 52ecf63..25b7984 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 8268fa8..62b4699 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
-- 
GitLab