diff --git a/src/Prelude.hs b/src/Prelude.hs
index 29aed664eef3b74b56fa9edc52d1d8a7b312754f..1c06223a674ee9ae30a74ed2163342d313a125ac 100644
--- a/src/Prelude.hs
+++ b/src/Prelude.hs
@@ -13,6 +13,7 @@ module Prelude
     traceShow,
     traceShowId,
     Maybe.listToMaybe,
+    intercalate
   )
 where
 
@@ -60,3 +61,9 @@ traceShow = Trace.traceShow
 {-# DEPRECATED traceShowId "Partitial Function." #-}
 traceShowId :: Show a => a -> a
 traceShowId = Trace.traceShowId
+
+
+intercalate :: Monoid a => a -> [a] -> a
+intercalate _ [] = mempty
+intercalate _ [x] = x
+intercalate inter (x:xs) = x <> inter <> intercalate inter xs
diff --git a/src/QBar/BlockOutput.hs b/src/QBar/BlockOutput.hs
index f5144ea020e2b9b6ec84065840301ce6e6fddc87..cce0087c212638b9a783e3beeaf375c3d1f378f0 100644
--- a/src/QBar/BlockOutput.hs
+++ b/src/QBar/BlockOutput.hs
@@ -25,11 +25,6 @@ instance Semigroup BlockText where
 instance Monoid BlockText where
   mempty = BlockText []
 
-intercalate :: Monoid a => a -> [a] -> a
-intercalate _ [] = mempty
-intercalate _ [x] = x
-intercalate inter (x:xs) = x <> inter <> intercalate inter xs
-
 data BlockTextSegment = BlockTextSegment {
     active :: Bool,
     importance :: Importance,