Lines Matching refs:Pretty
102 import qualified Pretty
106 import Pretty ( Doc, Mode(..) )
352 SDC{sdocStyle=PprUser _ (PartWay 0) _} -> Pretty.text "..."
364 | n==0 = Pretty.text "..."
450 Pretty.printDoc_ mode cols handle (runSDoc doc ctx)
452 Pretty.printDoc_ mode cols handle
484 Pretty.bufLeftRender bufHandle (runSDoc doc (initSDocContext dflags sty))
523 = let s = Pretty.style{ Pretty.mode = PageMode,
524 Pretty.lineLength = pprCols dflags } function
525 in Pretty.renderStyle s $ runSDoc sdoc (initSDocContext dflags sty)
532 = let s = Pretty.style{ Pretty.mode = OneLineMode,
533 Pretty.lineLength = pprCols dflags } in function
534 Pretty.renderStyle s $
539 = let s = Pretty.style{ Pretty.mode = OneLineMode,
540 Pretty.lineLength = irrelevantNCols } in function
541 Pretty.renderStyle s $
549 isEmpty dflags sdoc = Pretty.isEmpty $ runSDoc sdoc dummySDocContext
568 empty = docToSDoc $ Pretty.empty
569 char c = docToSDoc $ Pretty.char c
571 text s = docToSDoc $ Pretty.text s
574 ftext s = docToSDoc $ Pretty.ftext s
575 ptext s = docToSDoc $ Pretty.ptext s
576 ztext s = docToSDoc $ Pretty.ztext s
577 int n = docToSDoc $ Pretty.int n
578 integer n = docToSDoc $ Pretty.integer n
579 float n = docToSDoc $ Pretty.float n
580 double n = docToSDoc $ Pretty.double n
581 rational n = docToSDoc $ Pretty.rational n
585 then docToSDoc $ Pretty.hex n
586 else docToSDoc $ Pretty.integer n
596 parens d = SDoc $ Pretty.parens . runSDoc d
597 braces d = SDoc $ Pretty.braces . runSDoc d
598 brackets d = SDoc $ Pretty.brackets . runSDoc d
599 quote d = SDoc $ Pretty.quote . runSDoc d
600 doubleQuotes d = SDoc $ Pretty.doubleQuotes . runSDoc d
604 cparen b d = SDoc $ Pretty.maybeParens b . runSDoc d
619 _other -> Pretty.quotes pp_d
625 blankLine = docToSDoc $ Pretty.text ""
626 dcolon = unicodeSyntax (char '∷') (docToSDoc $ Pretty.text "::")
627 arrow = unicodeSyntax (char '→') (docToSDoc $ Pretty.text "->")
628 larrow = unicodeSyntax (char '←') (docToSDoc $ Pretty.text "<-")
629 darrow = unicodeSyntax (char '⇒') (docToSDoc $ Pretty.text "=>")
630 arrowt = unicodeSyntax (char '⤚') (docToSDoc $ Pretty.text ">-")
631 larrowt = unicodeSyntax (char '⤙') (docToSDoc $ Pretty.text "-<")
632 arrowtt = unicodeSyntax (char '⤜') (docToSDoc $ Pretty.text ">>-")
633 larrowtt = unicodeSyntax (char '⤛') (docToSDoc $ Pretty.text "-<<")
634 semi = docToSDoc $ Pretty.semi
635 comma = docToSDoc $ Pretty.comma
636 colon = docToSDoc $ Pretty.colon
637 equals = docToSDoc $ Pretty.equals
638 space = docToSDoc $ Pretty.space
642 lparen = docToSDoc $ Pretty.lparen
643 rparen = docToSDoc $ Pretty.rparen
644 lbrack = docToSDoc $ Pretty.lbrack
645 rbrack = docToSDoc $ Pretty.rbrack
646 lbrace = docToSDoc $ Pretty.lbrace
647 rbrace = docToSDoc $ Pretty.rbrace
685 nest n d = SDoc $ Pretty.nest n . runSDoc d
686 (<>) d1 d2 = SDoc $ \sty -> (Pretty.<>) (runSDoc d1 sty) (runSDoc d2 sty)
687 (<+>) d1 d2 = SDoc $ \sty -> (Pretty.<+>) (runSDoc d1 sty) (runSDoc d2 sty)
688 ($$) d1 d2 = SDoc $ \sty -> (Pretty.$$) (runSDoc d1 sty) (runSDoc d2 sty)
689 ($+$) d1 d2 = SDoc $ \sty -> (Pretty.$+$) (runSDoc d1 sty) (runSDoc d2 sty)
708 hcat ds = SDoc $ \sty -> Pretty.hcat [runSDoc d sty | d <- ds]
709 hsep ds = SDoc $ \sty -> Pretty.hsep [runSDoc d sty | d <- ds]
710 vcat ds = SDoc $ \sty -> Pretty.vcat [runSDoc d sty | d <- ds]
711 sep ds = SDoc $ \sty -> Pretty.sep [runSDoc d sty | d <- ds]
712 cat ds = SDoc $ \sty -> Pretty.cat [runSDoc d sty | d <- ds]
713 fsep ds = SDoc $ \sty -> Pretty.fsep [runSDoc d sty | d <- ds]
714 fcat ds = SDoc $ \sty -> Pretty.fcat [runSDoc d sty | d <- ds]
720 hang d1 n d2 = SDoc $ \sty -> Pretty.hang (runSDoc d1 sty) n (runSDoc d2 sty)
726 SDoc $ \sty -> Pretty.hangNotEmpty (runSDoc d1 sty) n (runSDoc d2 sty)
755 Pretty.zeroWidthText (Col.renderColour col)
756 Pretty.<> runSDoc sdoc ctx'
757 Pretty.<> Pretty.zeroWidthText (Col.renderColourAfresh lastCol)