From 112717de4e5228b0e4a3bc12fd424ed07a262a8f Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 20 Dec 2010 19:09:01 -0800
Subject: Renamed 'enclosed' to 'inside'.

This avoids conflict with 'enclosed' in Text.Pandoc.Parsing.
---
 src/Text/Pandoc/Pretty.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'src/Text')

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 ')')
-- 
cgit v1.2.3