aboutsummaryrefslogtreecommitdiffstats
path: root/src/Reaktor.hs
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 /src/Reaktor.hs
parent3c0cc6e6143ff40238948e6ffbba67ccd2236777 (diff)
Reaktor: use stripSGR from blessingsv0.1.4
Diffstat (limited to 'src/Reaktor.hs')
-rw-r--r--src/Reaktor.hs7
1 files changed, 0 insertions, 7 deletions
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 =