diff options
| author | askeblad <74082607+askeblad@users.noreply.github.com> | 2022-03-16 03:44:27 -0500 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-03-16 09:44:27 +0100 |
| commit | e187816f64f0c54dc924f8283fe4c75a6e1f67b2 (patch) | |
| tree | 9cf5f44bb6df8f728ce46ae1b40073638c0df9e7 /haddock-library/src/Documentation/Haddock/Parser.hs | |
| parent | 0c19a8847844a4a45b9fe7c115effcec461cfe5c (diff) | |
typos (#1464)
Diffstat (limited to 'haddock-library/src/Documentation/Haddock/Parser.hs')
| -rw-r--r-- | haddock-library/src/Documentation/Haddock/Parser.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/haddock-library/src/Documentation/Haddock/Parser.hs b/haddock-library/src/Documentation/Haddock/Parser.hs index de336d45..0943c4e7 100644 --- a/haddock-library/src/Documentation/Haddock/Parser.hs +++ b/haddock-library/src/Documentation/Haddock/Parser.hs @@ -177,7 +177,7 @@ specialChar = "_/<@\"&'`# " -- | Plain, regular parser for text. Called as one of the last parsers -- to ensure that we have already given a chance to more meaningful parsers --- before capturing their characers. +-- before capturing their characters. string' :: Parser (DocH mod a) string' = DocString . unescape . T.unpack <$> takeWhile1_ (`notElem` specialChar) where @@ -710,7 +710,7 @@ stripSpace = fromMaybe <*> mapM strip' Just (' ',t') -> Just t' _ -> Nothing --- | Parses examples. Examples are a paragraph level entitity (separated by an empty line). +-- | Parses examples. Examples are a paragraph level entity (separated by an empty line). -- Consecutive examples are accepted. examples :: Parser (DocH mod a) examples = DocExamples <$> (many (try (skipHorizontalSpace *> "\n")) *> go) |