| definition: |
fillBreak :: Int -> Doc -> Doc
fillBreak i d = d <> fill'
where w = width d
fill' = if w >= i then nest i linebreak
else spaces (i - w)
|
| demand: |
argument 2 |
| deterministic: |
deterministic operation |
| documentation: |
--- The document `(fillBreak i d)` first renders document `d`. It --- than appends `space`s until the width is equal to `i`. If the --- width of `d` is already larger than `i`, the nesting level is --- increased by `i` and a `line` is appended. When we redefine `ptype` --- in the previous example to use `fillBreak`, we get a useful --- variation of the previous output: --- --- ptype (name,tp) --- = fillBreak 6 (text name) <+> text "::" <+> text tp --- --- The output will now be: --- --- let empty :: Doc --- nest :: Int -> Doc -> Doc --- linebreak --- :: Doc --- --- Note that `fillBreak` is not guaranteed to be linear-time bounded since it --- has to compute the width of a document before pretty printing it |
| failfree: |
(_, _) |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{(_,_) |-> _}
|
| name: |
fillBreak |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
Prelude.Int -> Text.PrettyImpl.Doc -> Text.PrettyImpl.Doc |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |