diff --git a/src/Prelude.hs b/src/Prelude.hs
index 596792e002d37644f81e8616d1e99286e03a8a81..edac7c4fd8244fd1fbc1b11b93f9b1acb1498f57 100644
--- a/src/Prelude.hs
+++ b/src/Prelude.hs
@@ -3,11 +3,16 @@
 module Prelude
   ( module BasePrelude,
     ByteString.ByteString,
+    Control.Monad.forever,
+    Control.Monad.unless,
+    Control.Monad.void,
+    Control.Monad.when,
+    Control.Monad.IO.Class.MonadIO,
+    Control.Monad.IO.Class.liftIO,
     Text.Text,
     Maybe.listToMaybe,
     error,
     errorWithoutStackTrace,
-    forever,
     head,
     intercalate,
     trace,
@@ -16,10 +21,7 @@ module Prelude
     traceShowId,
     traceM,
     traceShowM,
-    undefined,
-    unless,
-    void,
-    when
+    undefined
   )
 where
 
@@ -30,7 +32,8 @@ import BasePrelude hiding
     undefined,
   )
 import qualified BasePrelude as P
-import Control.Monad (forever, void, when, unless)
+import qualified Control.Monad
+import qualified Control.Monad.IO.Class
 import qualified Data.ByteString as ByteString
 import qualified Data.Maybe as Maybe
 import qualified Data.Text.Lazy as Text
diff --git a/src/QBar/Blocks/Date.hs b/src/QBar/Blocks/Date.hs
index 6546484f4f7c36afa272d876db4a59071e8a698e..a8658d1482fbbd174a2df5387bf4f2cd8f3291d3 100644
--- a/src/QBar/Blocks/Date.hs
+++ b/src/QBar/Blocks/Date.hs
@@ -7,7 +7,6 @@ import QBar.Time
 import qualified Data.Text.Lazy as T
 import Data.Time.Format
 import Data.Time.LocalTime
-import Pipes
 import Control.Lens