Lines Matching refs:Pretty
107 import qualified GHC.Utils.Ppr as Pretty
380 let deeper 0 = Pretty.text "..."
399 = Pretty.text "..."
485 Pretty.printDoc_ mode cols handle (runSDoc doc ctx)
487 Pretty.printDoc_ mode cols handle
513 Pretty.bufLeftRender bufHandle (runSDoc doc ctx)
556 = let s = Pretty.style{ Pretty.mode = PageMode,
557 Pretty.lineLength = sdocLineLength ctx } function
558 in Pretty.renderStyle s $ runSDoc sdoc ctx
565 = let s = Pretty.style{ Pretty.mode = OneLineMode,
566 Pretty.lineLength = sdocLineLength ctx } in function
567 Pretty.renderStyle s $
572 = let s = Pretty.style{ Pretty.mode = OneLineMode,
573 Pretty.lineLength = irrelevantNCols } in function
574 Pretty.renderStyle s $
582 isEmpty ctx sdoc = Pretty.isEmpty $ runSDoc sdoc (ctx {sdocPprDebug = True})
600 empty = docToSDoc $ Pretty.empty
601 char c = docToSDoc $ Pretty.char c
603 text s = docToSDoc $ Pretty.text s
606 ftext s = docToSDoc $ Pretty.ftext s
607 ptext s = docToSDoc $ Pretty.ptext s
608 ztext s = docToSDoc $ Pretty.ztext s
609 int n = docToSDoc $ Pretty.int n
610 integer n = docToSDoc $ Pretty.integer n
611 float n = docToSDoc $ Pretty.float n
612 double n = docToSDoc $ Pretty.double n
613 rational n = docToSDoc $ Pretty.rational n
616 True -> docToSDoc $ Pretty.hex n
617 False -> docToSDoc $ Pretty.integer n
627 parens d = SDoc $ Pretty.parens . runSDoc d
628 braces d = SDoc $ Pretty.braces . runSDoc d
629 brackets d = SDoc $ Pretty.brackets . runSDoc d
630 quote d = SDoc $ Pretty.quote . runSDoc d
631 doubleQuotes d = SDoc $ Pretty.doubleQuotes . runSDoc d
635 cparen b d = SDoc $ Pretty.maybeParens b . runSDoc d
648 _other -> Pretty.quotes pp_d
654 blankLine = docToSDoc $ Pretty.text ""
655 dcolon = unicodeSyntax (char '∷') (docToSDoc $ Pretty.text "::")
656 arrow = unicodeSyntax (char '→') (docToSDoc $ Pretty.text "->")
657 lollipop = unicodeSyntax (char '⊸') (docToSDoc $ Pretty.text "%1 ->")
658 larrow = unicodeSyntax (char '←') (docToSDoc $ Pretty.text "<-")
659 darrow = unicodeSyntax (char '⇒') (docToSDoc $ Pretty.text "=>")
660 arrowt = unicodeSyntax (char '⤚') (docToSDoc $ Pretty.text ">-")
661 larrowt = unicodeSyntax (char '⤙') (docToSDoc $ Pretty.text "-<")
662 arrowtt = unicodeSyntax (char '⤜') (docToSDoc $ Pretty.text ">>-")
663 larrowtt = unicodeSyntax (char '⤛') (docToSDoc $ Pretty.text "-<<")
664 semi = docToSDoc $ Pretty.semi
665 comma = docToSDoc $ Pretty.comma
666 colon = docToSDoc $ Pretty.colon
667 equals = docToSDoc $ Pretty.equals
668 space = docToSDoc $ Pretty.space
672 lparen = docToSDoc $ Pretty.lparen
673 rparen = docToSDoc $ Pretty.rparen
674 lbrack = docToSDoc $ Pretty.lbrack
675 rbrack = docToSDoc $ Pretty.rbrack
676 lbrace = docToSDoc $ Pretty.lbrace
677 rbrace = docToSDoc $ Pretty.rbrace
714 nest n d = SDoc $ Pretty.nest n . runSDoc d
715 (<>) d1 d2 = SDoc $ \sty -> (Pretty.<>) (runSDoc d1 sty) (runSDoc d2 sty)
716 (<+>) d1 d2 = SDoc $ \sty -> (Pretty.<+>) (runSDoc d1 sty) (runSDoc d2 sty)
717 ($$) d1 d2 = SDoc $ \sty -> (Pretty.$$) (runSDoc d1 sty) (runSDoc d2 sty)
718 ($+$) d1 d2 = SDoc $ \sty -> (Pretty.$+$) (runSDoc d1 sty) (runSDoc d2 sty)
737 hcat ds = SDoc $ \sty -> Pretty.hcat [runSDoc d sty | d <- ds]
738 hsep ds = SDoc $ \sty -> Pretty.hsep [runSDoc d sty | d <- ds]
739 vcat ds = SDoc $ \sty -> Pretty.vcat [runSDoc d sty | d <- ds]
740 sep ds = SDoc $ \sty -> Pretty.sep [runSDoc d sty | d <- ds]
741 cat ds = SDoc $ \sty -> Pretty.cat [runSDoc d sty | d <- ds]
742 fsep ds = SDoc $ \sty -> Pretty.fsep [runSDoc d sty | d <- ds]
743 fcat ds = SDoc $ \sty -> Pretty.fcat [runSDoc d sty | d <- ds]
749 hang d1 n d2 = SDoc $ \sty -> Pretty.hang (runSDoc d1 sty) n (runSDoc d2 sty)
755 SDoc $ \sty -> Pretty.hangNotEmpty (runSDoc d1 sty) n (runSDoc d2 sty)
791 Pretty.zeroWidthText (Col.renderColour col)
792 Pretty.<> runSDoc sdoc ctx'
793 Pretty.<> Pretty.zeroWidthText (Col.renderColourAfresh lastCol)