From 147f818a72f4561ed57131e0d181704b599d09f6 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Fri, 25 Jan 2019 14:30:10 +0100
Subject: Reaktor: use stripSGR from blessings

---
 src/Reaktor.hs | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'src')

diff --git a/src/Reaktor.hs b/src/Reaktor.hs
index 3c9e280..9ac0f25 100644
--- a/src/Reaktor.hs
+++ b/src/Reaktor.hs
@@ -188,13 +188,6 @@ prefixTimestamp s = do
     t <- SGR [38,5,239] . Plain . T.pack <$> getTimestamp
     return (t <> " " <> s)
 
-stripSGR :: Blessings a -> Blessings a
-stripSGR = \case
-    Append t1 t2 -> Append (stripSGR t1) (stripSGR t2)
-    SGR _ t -> stripSGR t
-    Plain x -> Plain x
-    Empty -> Empty
-
 
 getTimestamp :: IO String
 getTimestamp =
-- 
cgit v1.2.3