summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2017-11-06 06:56:21 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2017-11-06 06:56:21 +0300
commit38ad0b32041aed9e5459b79b6e97af5d6ba74985 (patch)
tree4e0a02f21147e6b046bc0f2195748929ecfa22d3 /src
parent5ece5d729df68bf4eb5d5c3d2006af20768fd66f (diff)
Spellcheck comments
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Odt/ContentReader.hs4
-rw-r--r--src/Text/Pandoc/Readers/Odt/StyleReader.hs8
2 files changed, 6 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Readers/Odt/ContentReader.hs b/src/Text/Pandoc/Readers/Odt/ContentReader.hs
index 4189d5aaa..cc9b798b3 100644
--- a/src/Text/Pandoc/Readers/Odt/ContentReader.hs
+++ b/src/Text/Pandoc/Readers/Odt/ContentReader.hs
@@ -247,7 +247,7 @@ getPrettyAnchor = proc (baseIdent, uglyAnchor) -> do
modifyExtraState (putPrettyAnchor uglyAnchor newPretty) -<< newPretty
-- | Input: basis for a new header anchor
--- Ouput: saved new anchor
+-- Output: saved new anchor
getHeaderAnchor :: OdtReaderSafe Inlines Anchor
getHeaderAnchor = proc title -> do
state <- getExtraState -< ()
@@ -566,7 +566,7 @@ read_text_seq = matchingElement NsText "sequence"
-- specifically. I honor that, although the current implementation of '(<>)'
--- for 'Inlines' in "Text.Pandoc.Builder" will collaps them agein.
+-- for 'Inlines' in "Text.Pandoc.Builder" will collapse them again.
-- The rational is to be prepared for future modifications.
read_spaces :: InlineMatcher
read_spaces = matchingElement NsText "s" (
diff --git a/src/Text/Pandoc/Readers/Odt/StyleReader.hs b/src/Text/Pandoc/Readers/Odt/StyleReader.hs
index 1384072d1..6129c1664 100644
--- a/src/Text/Pandoc/Readers/Odt/StyleReader.hs
+++ b/src/Text/Pandoc/Readers/Odt/StyleReader.hs
@@ -104,7 +104,7 @@ instance Lookupable FontPitch where
instance Default FontPitch where
def = PitchVariable
--- The font pitch can be specifed in a style directly. Normally, however,
+-- The font pitch can be specified in a style directly. Normally, however,
-- it is defined in the font. That is also the specs' recommendation.
--
-- Thus, we want
@@ -340,8 +340,8 @@ instance Read XslUnit where
readsPrec _ "em" = [(XslUnitEM , "")]
readsPrec _ _ = []
--- | Rough conversion of measures into millimeters.
--- Pixels and em's are actually implemetation dependant/relative measures,
+-- | Rough conversion of measures into millimetres.
+-- Pixels and em's are actually implementation dependant/relative measures,
-- so I could not really easily calculate anything exact here even if I wanted.
-- But I do not care about exactness right now, as I only use measures
-- to determine if a paragraph is "indented" or not.
@@ -425,7 +425,7 @@ instance Read ListItemNumberFormat where
--------------------------------------------------------------------------------
-- Readers
--
--- ...it seems like a whole lot of this should be automatically deriveable
+-- ...it seems like a whole lot of this should be automatically derivable
-- or at least moveable into a class. Most of this is data concealed in
-- code.
--------------------------------------------------------------------------------