@@ -858,7 +858,7 @@ indent i d = hang i (spaces i <> d)
858858-- list [1,20,300,4000]
859859--
860860-- If there is not enough space, then the input is split into lines entry-wise
861- -- therwise they are laid out vertically, with separators put in the front:
861+ -- otherwise they are laid out vertically, with separators put in the front:
862862--
863863-- >>> putDocW 10 doc
864864-- list [1
@@ -1364,7 +1364,7 @@ annotate = Annotated
13641364-- @
13651365--
13661366-- it should not be used without caution, for each invocation traverses the
1367- -- entire contained document. If possible, it is preferrable to unannotate after
1367+ -- entire contained document. If possible, it is preferable to unannotate after
13681368-- producing the layout by using 'unAnnotateS'.
13691369unAnnotate :: Doc ann -> Doc xxx
13701370unAnnotate = alterAnnotations (const [] )
@@ -1375,7 +1375,7 @@ unAnnotate = alterAnnotations (const [])
13751375-- generally annotated document.
13761376--
13771377-- Since this traverses the entire @'Doc'@ tree, including parts that are not
1378- -- rendered due to other layouts fitting better, it is preferrable to reannotate
1378+ -- rendered due to other layouts fitting better, it is preferable to reannotate
13791379-- after producing the layout by using @'reAnnotateS'@.
13801380--
13811381-- Since @'reAnnotate'@ has the right type and satisfies @'reAnnotate id = id'@,
@@ -1396,7 +1396,7 @@ reAnnotate re = alterAnnotations (pure . re)
13961396-- not vice-versa.
13971397--
13981398-- Since this traverses the entire @'Doc'@ tree, including parts that are not
1399- -- rendered due to other layouts fitting better, it is preferrable to reannotate
1399+ -- rendered due to other layouts fitting better, it is preferable to reannotate
14001400-- after producing the layout by using @'alterAnnotationsS'@.
14011401alterAnnotations :: (ann -> [ann' ]) -> Doc ann -> Doc ann'
14021402alterAnnotations re = go
@@ -1871,7 +1871,7 @@ layoutPretty (LayoutOptions Unbounded) = layoutUnbounded
18711871-- |------------------------|
18721872--
18731873-- Note that this exceeds the desired 26 character page width. The same
1874- -- document, rendered with @'layoutSmart'@, fits the layout contstraints :
1874+ -- document, rendered with @'layoutSmart'@, fits the layout constraints :
18751875--
18761876-- >>> go layoutSmart doc
18771877-- |------------------------|
@@ -1986,7 +1986,7 @@ layoutWadlerLeijen
19861986 where
19871987
19881988 -- * current column >= current nesting level
1989- -- * current column - current indentaion = number of chars inserted in line
1989+ -- * current column - current indentation = number of chars inserted in line
19901990 best
19911991 :: Int -- Current nesting level
19921992 -> Int -- Current column, i.e. "where the cursor is"
0 commit comments