diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-12-20 19:09:01 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-12-20 19:09:01 -0800 |
| commit | 112717de4e5228b0e4a3bc12fd424ed07a262a8f (patch) | |
| tree | 8120c3f45dcc38648da0caf3d04a84277ddd8319 | |
| parent | 2fe271d1632a070c02174a2478a3960cbcce0dfe (diff) | |
| download | pandoc-112717de4e5228b0e4a3bc12fd424ed07a262a8f.tar.gz | |
Renamed 'enclosed' to 'inside'.
This avoids conflict with 'enclosed' in Text.Pandoc.Parsing.
| -rw-r--r-- | src/Text/Pandoc/Pretty.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Pretty.hs b/src/Text/Pandoc/Pretty.hs index 458719129..90dbf7684 100644 --- a/src/Text/Pandoc/Pretty.hs +++ b/src/Text/Pandoc/Pretty.hs @@ -59,7 +59,7 @@ module Text.Pandoc.Pretty ( , hsep , vcat , vsep - , enclosed + , inside , braces , brackets , parens @@ -334,7 +334,7 @@ blankline :: Doc blankline = Doc $ singleton BlankLine -- | Uses the specified string as a prefix for every line of --- the enclosed document (except the first, if not at the beginning +-- the inside document (except the first, if not at the beginning -- of the line). prefixed :: String -> Doc -> Doc prefixed pref doc = Doc $ singleton $ Prefixed pref doc @@ -398,18 +398,18 @@ chop n cs = case break (=='\n') cs of where len = length xs -- | Encloses a 'Doc' inside a start and end 'Doc'. -enclosed :: Doc -> Doc -> Doc -> Doc -enclosed start end contents = +inside :: Doc -> Doc -> Doc -> Doc +inside start end contents = start <> contents <> end -- | Puts a 'Doc' in curly braces. braces :: Doc -> Doc -braces = enclosed (char '{') (char '}') +braces = inside (char '{') (char '}') -- | Puts a 'Doc' in square brackets. brackets :: Doc -> Doc -brackets = enclosed (char '[') (char ']') +brackets = inside (char '[') (char ']') -- | Puts a 'Doc' in parentheses. parens :: Doc -> Doc -parens = enclosed (char '(') (char ')') +parens = inside (char '(') (char ')') |