File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -7,7 +7,7 @@ import Control.Monad.IO.Class
77import Data.Char
88import Data.Function (fix )
99
10- import Data.Text.Prettyprint.Doc
10+ import Prettyprinter
1111import System.Terminal
1212
1313main :: IO ()
Original file line number Diff line number Diff line change @@ -6,7 +6,7 @@ import Control.Concurrent
66import Control.Monad
77import Control.Monad.IO.Class
88
9- import Data.Text.Prettyprint.Doc
9+ import Prettyprinter
1010import System.Terminal
1111
1212import Prelude hiding (putString )
Original file line number Diff line number Diff line change @@ -6,7 +6,7 @@ import Control.Concurrent
66import Control.Monad
77import Control.Monad.IO.Class
88
9- import Data.Text.Prettyprint.Doc
9+ import Prettyprinter
1010import System.Terminal
1111
1212import Prelude hiding ((<>) )
Original file line number Diff line number Diff line change @@ -7,7 +7,7 @@ import Control.Monad.Catch
77import Control.Monad
88import Control.Monad.IO.Class
99
10- import Data.Text.Prettyprint.Doc
10+ import Prettyprinter
1111import System.Terminal
1212
1313import Prelude hiding ((<>) )
Original file line number Diff line number Diff line change 11module System.Terminal.Pretty where
22
33import Data.Text as T
4- import Data.Text.Prettyprint.Doc
4+ import Prettyprinter
55import Prelude hiding (putChar )
66
77import System.Terminal.MonadPrinter
@@ -12,7 +12,7 @@ import System.Terminal.MonadPrinter
1212--
1313-- @
1414-- import System.Terminal
15- -- import Data.Text.Prettyprint.Doc
15+ -- import Prettyprinter
1616--
1717-- printer :: (`MonadFormatingPrinter` m, `MonadColorPrinter` m) => m ()
1818-- printer = `putDoc` $ `annotate` (foreground $ `bright` `blue`) "This is blue!" <> `line`
You can’t perform that action at this time.
0 commit comments