aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--reaktor2.cabal2
-rw-r--r--src/Reaktor.hs7
2 files changed, 1 insertions, 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 <tv@krebsco.de>
maintainer: tv <tv@krebsco.de>
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 =