aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortv <tv@krebsco.de>2019-01-25 14:30:10 +0100
committertv <tv@krebsco.de>2019-01-25 14:30:10 +0100
commit147f818a72f4561ed57131e0d181704b599d09f6 (patch)
tree2b43b0d6a9458a7af06b56c0dfe65cec945b39a4
parent3c0cc6e6143ff40238948e6ffbba67ccd2236777 (diff)
Reaktor: use stripSGR from blessingsv0.1.4
-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 =