Move intercalate for Monoid to Prelude

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

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,