From 147f818a72f4561ed57131e0d181704b599d09f6 Mon Sep 17 00:00:00 2001 From: tv Date: Fri, 25 Jan 2019 14:30:10 +0100 Subject: Reaktor: use stripSGR from blessings --- reaktor2.cabal | 2 +- src/Reaktor.hs | 7 ------- 2 files changed, 1 insertion(+), 8 deletions(-) diff --git a/reaktor2.cabal b/reaktor2.cabal index f93d918..3be93a0 100644 --- a/reaktor2.cabal +++ b/reaktor2.cabal @@ -1,5 +1,5 @@ name: reaktor2 -version: 0.1.3 +version: 0.1.4 license: MIT author: tv maintainer: tv 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