diff options
| author | tv <tv@krebsco.de> | 2019-01-25 14:30:10 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2019-01-25 14:30:10 +0100 |
| commit | 147f818a72f4561ed57131e0d181704b599d09f6 (patch) | |
| tree | 2b43b0d6a9458a7af06b56c0dfe65cec945b39a4 /src/Reaktor.hs | |
| parent | 3c0cc6e6143ff40238948e6ffbba67ccd2236777 (diff) | |
Reaktor: use stripSGR from blessingsv0.1.4
Diffstat (limited to 'src/Reaktor.hs')
| -rw-r--r-- | src/Reaktor.hs | 7 |
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 = |