diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-02-01 20:26:42 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-02-02 22:02:45 +0100 |
| commit | 3630677c07768781376242f5c0919a6c9cb5d7fe (patch) | |
| tree | 0836480692fd2bd80c24a2e72d69a90c6bba0905 /src/Erebos/TextFormat/Ansi.hs | |
| parent | 0c36f490719f613dc23b6632a4098bd17fb0ab7c (diff) | |
Diffstat (limited to 'src/Erebos/TextFormat/Ansi.hs')
| -rw-r--r-- | src/Erebos/TextFormat/Ansi.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Erebos/TextFormat/Ansi.hs b/src/Erebos/TextFormat/Ansi.hs index 504e098..c0ff978 100644 --- a/src/Erebos/TextFormat/Ansi.hs +++ b/src/Erebos/TextFormat/Ansi.hs @@ -9,6 +9,7 @@ module Erebos.TextFormat.Ansi ( import Control.Applicative +import Data.String import Data.Text (Text) import Data.Text qualified as T @@ -16,6 +17,8 @@ import Erebos.TextFormat.Types newtype AnsiText = AnsiText { fromAnsiText :: Text } + deriving (Eq, Ord, Semigroup, Monoid, IsString) + renderAnsiText :: FormattedText -> AnsiText renderAnsiText = AnsiText . go ( Nothing, Nothing ) |