diff options
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Citeproc.hs | 5 | ||||
| -rw-r--r-- | src/Text/Pandoc/Class/PandocMonad.hs | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Error.hs | 4 | ||||
| -rw-r--r-- | src/Text/Pandoc/Lua/Marshaling/MediaBag.hs | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Readers/Creole.hs | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Readers/Odt/Generic/Utils.hs | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Readers/Org/Blocks.hs | 2 |
7 files changed, 8 insertions, 11 deletions
diff --git a/src/Text/Pandoc/Citeproc.hs b/src/Text/Pandoc/Citeproc.hs index ee78bb3ff..c00c8ca09 100644 --- a/src/Text/Pandoc/Citeproc.hs +++ b/src/Text/Pandoc/Citeproc.hs @@ -197,7 +197,7 @@ getRefsFromBib locale idpred t = do case formatFromExtension fp of Just f -> getRefs locale f idpred (Just fp) raw Nothing -> throwError $ PandocAppError $ - "Could not deterine bibliography format for " <> t + "Could not determine bibliography format for " <> t getRefs :: PandocMonad m => Locale @@ -532,6 +532,3 @@ removeFinalPeriod ils = case lastMay ils of Just (Str ".") -> initSafe ils _ -> ils - - - diff --git a/src/Text/Pandoc/Class/PandocMonad.hs b/src/Text/Pandoc/Class/PandocMonad.hs index 6042973ab..1903d73d8 100644 --- a/src/Text/Pandoc/Class/PandocMonad.hs +++ b/src/Text/Pandoc/Class/PandocMonad.hs @@ -600,7 +600,7 @@ makeCanonical = Posix.joinPath . transformPathParts . splitDirectories go (_:as) ".." = as go as x = x : as --- | Trys to run an action on a file: for each directory given, a +-- | Tries to run an action on a file: for each directory given, a -- filepath is created from the given filename, and the action is run on -- that filepath. Returns the result of the first successful execution -- of the action, or throws a @PandocResourceNotFound@ exception if the diff --git a/src/Text/Pandoc/Error.hs b/src/Text/Pandoc/Error.hs index 63973bd05..bd24fec6f 100644 --- a/src/Text/Pandoc/Error.hs +++ b/src/Text/Pandoc/Error.hs @@ -10,8 +10,8 @@ Stability : alpha Portability : portable -This module provides a standard way to deal with possible errors encounted -during parsing. +This module provides a standard way to deal with possible errors +encountered during parsing. -} module Text.Pandoc.Error ( diff --git a/src/Text/Pandoc/Lua/Marshaling/MediaBag.hs b/src/Text/Pandoc/Lua/Marshaling/MediaBag.hs index e9b0c5770..2cf5b8893 100644 --- a/src/Text/Pandoc/Lua/Marshaling/MediaBag.hs +++ b/src/Text/Pandoc/Lua/Marshaling/MediaBag.hs @@ -34,7 +34,7 @@ instance Peekable MediaItems where peek = peekMediaItems -- | Push an iterator triple to be used with Lua's @for@ loop construct. --- Each iterator invokation returns a tripple consisting of an item's +-- Each iterator invocation returns a triple containing the item's -- filename, MIME type, and content. pushIterator :: MediaBag -> Lua NumResults pushIterator mb = do diff --git a/src/Text/Pandoc/Readers/Creole.hs b/src/Text/Pandoc/Readers/Creole.hs index 0bd02d17c..2658dfea2 100644 --- a/src/Text/Pandoc/Readers/Creole.hs +++ b/src/Text/Pandoc/Readers/Creole.hs @@ -252,7 +252,7 @@ inlineNowiki = B.code <$> (start >> manyTillChar (noneOf "\n\r") end) end = try $ string "}}}" >> lookAhead (noneOf "}") placeholder :: PandocMonad m => CRLParser m B.Inlines --- The semantics of the placeholder is basicallly implementation +-- The semantics of the placeholder is basically implementation -- dependent, so there is no way to DTRT for all cases. -- So for now we just drop them. placeholder = B.text <$> try (string "<<<" >> manyTill anyChar (string ">>>") diff --git a/src/Text/Pandoc/Readers/Odt/Generic/Utils.hs b/src/Text/Pandoc/Readers/Odt/Generic/Utils.hs index 1999469ee..146f35319 100644 --- a/src/Text/Pandoc/Readers/Odt/Generic/Utils.hs +++ b/src/Text/Pandoc/Readers/Odt/Generic/Utils.hs @@ -41,7 +41,7 @@ import Data.Maybe -- > foldr (.) id -- where '(.)' are 'id' are the ones from "Control.Category" -- and 'foldr' is the one from "Data.Foldable". --- The noun-form was chosen to be consistend with 'sum', 'product' etc +-- The noun-form was chosen to be consistent with 'sum', 'product' etc -- based on the discussion at -- <https://groups.google.com/forum/#!topic/haskell-cafe/VkOZM1zaHOI> -- (that I was not part of) diff --git a/src/Text/Pandoc/Readers/Org/Blocks.hs b/src/Text/Pandoc/Readers/Org/Blocks.hs index 8eb7cfdd3..cd91e9ecc 100644 --- a/src/Text/Pandoc/Readers/Org/Blocks.hs +++ b/src/Text/Pandoc/Readers/Org/Blocks.hs @@ -289,7 +289,7 @@ verseBlock blockType = try $ do return (trimInlinesF $ pure nbspIndent <> line) -- | Read a code block and the associated results block if present. Which of --- boths blocks is included in the output is determined using the "exports" +-- the blocks is included in the output is determined using the "exports" -- argument in the block header. codeBlock :: PandocMonad m => BlockAttributes -> Text -> OrgParser m (F Blocks) codeBlock blockAttrs blockType = do |