aboutsummaryrefslogtreecommitdiffstats
path: root/src/Reaktor.hs
diff options
context:
space:
mode:
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 =