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 | |
parent | 0c19a8847844a4a45b9fe7c115effcec461cfe5c (diff) |
typos (#1464)
Diffstat (limited to 'haddock-library/src/Documentation/Haddock')
-rw-r--r-- | haddock-library/src/Documentation/Haddock/Parser.hs | 4 | ||||
-rw-r--r-- | haddock-library/src/Documentation/Haddock/Parser/Monad.hs | 2 |
2 files changed, 3 insertions, 3 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) diff --git a/haddock-library/src/Documentation/Haddock/Parser/Monad.hs b/haddock-library/src/Documentation/Haddock/Parser/Monad.hs index 7c73a168..109e104e 100644 --- a/haddock-library/src/Documentation/Haddock/Parser/Monad.hs +++ b/haddock-library/src/Documentation/Haddock/Parser/Monad.hs @@ -40,7 +40,7 @@ import Documentation.Haddock.Types ( Version ) import Prelude hiding (takeWhile) import CompatPrelude --- | The only bit of information we really care about truding along with us +-- | The only bit of information we really care about trudging along with us -- through parsing is the version attached to a @\@since@ annotation - if -- the doc even contained one. newtype ParserState = ParserState { |