From f1a7f5d035ba4185caafb6c5b16f1aec38f8b16b Mon Sep 17 00:00:00 2001
From: Eric Lindblad <askeblad@outlook.com>
Date: Tue, 15 Mar 2022 06:30:42 -0500
Subject: [PATCH] Fix typos

---
 ChangeLog.md                       | 2 +-
 src/Text/Parsec/ByteString.hs      | 2 +-
 src/Text/Parsec/ByteString/Lazy.hs | 2 +-
 src/Text/Parsec/Language.hs        | 4 ++--
 src/Text/Parsec/Prim.hs            | 2 +-
 src/Text/Parsec/Text.hs            | 2 +-
 src/Text/Parsec/Token.hs           | 2 +-
 test/Bugs/Bug9.hs                  | 2 +-
 8 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/ChangeLog.md b/ChangeLog.md
index 690c717..42659da 100644
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -59,7 +59,7 @@
 
 ### 3.1.9
 
-- Many and various updates to documentation and package description (inlcuding
+- Many and various updates to documentation and package description (including
   the homepage links).
 - Add an `Eq` instance for `ParseError`
 - Fixed a regression from 3.1.6: `runP` is again exported from module
diff --git a/src/Text/Parsec/ByteString.hs b/src/Text/Parsec/ByteString.hs
index bb1f39b..edc7ca0 100644
--- a/src/Text/Parsec/ByteString.hs
+++ b/src/Text/Parsec/ByteString.hs
@@ -10,7 +10,7 @@
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- Convinience definitions for working with 'C.ByteString's.
+-- Convenience definitions for working with 'C.ByteString's.
 --
 -----------------------------------------------------------------------------
 
diff --git a/src/Text/Parsec/ByteString/Lazy.hs b/src/Text/Parsec/ByteString/Lazy.hs
index 1b1ac62..d499713 100644
--- a/src/Text/Parsec/ByteString/Lazy.hs
+++ b/src/Text/Parsec/ByteString/Lazy.hs
@@ -10,7 +10,7 @@
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- Convinience definitions for working with lazy 'C.ByteString's.
+-- Convenience definitions for working with lazy 'C.ByteString's.
 --
 -----------------------------------------------------------------------------
 
diff --git a/src/Text/Parsec/Language.hs b/src/Text/Parsec/Language.hs
index a3d68f9..cd63070 100644
--- a/src/Text/Parsec/Language.hs
+++ b/src/Text/Parsec/Language.hs
@@ -98,7 +98,7 @@ emptyDef    = LanguageDef
 -- Haskell
 -----------------------------------------------------------
 
--- | A lexer for the haskell language.
+-- | A lexer for the Haskell language.
 
 haskell :: TokenParser st
 haskell      = makeTokenParser haskellDef
@@ -135,7 +135,7 @@ haskell98Def = haskellStyle
 -- Mondrian
 -----------------------------------------------------------
 
--- | A lexer for the mondrian language.
+-- | A lexer for the Mondrian language.
 
 mondrian :: TokenParser st
 mondrian    = makeTokenParser mondrianDef
diff --git a/src/Text/Parsec/Prim.hs b/src/Text/Parsec/Prim.hs
index 9da4b48..bfcf8c2 100644
--- a/src/Text/Parsec/Prim.hs
+++ b/src/Text/Parsec/Prim.hs
@@ -322,7 +322,7 @@ parserBind m k
           | errorIsUnknown err = unParser (k x) s cok cerr cok cerr
           | otherwise =
             let
-                 -- if (k x) consumes, those go straigt up
+                 -- if (k x) consumes, those go straight up
                  pcok = cok
                  pcerr = cerr
 
diff --git a/src/Text/Parsec/Text.hs b/src/Text/Parsec/Text.hs
index 0939593..7994786 100644
--- a/src/Text/Parsec/Text.hs
+++ b/src/Text/Parsec/Text.hs
@@ -10,7 +10,7 @@
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- Convinience definitions for working with 'Text.Text'.
+-- Convenience definitions for working with 'Text.Text'.
 --
 -----------------------------------------------------------------------------
 
diff --git a/src/Text/Parsec/Token.hs b/src/Text/Parsec/Token.hs
index e5f7049..fd68ecd 100644
--- a/src/Text/Parsec/Token.hs
+++ b/src/Text/Parsec/Token.hs
@@ -330,7 +330,7 @@ data GenTokenParser s u m
 -- defined using the definitions in the @language@ record.
 --
 -- The use of this function is quite stylized - one imports the
--- appropiate language definition and selects the lexical parsers that
+-- appropriate language definition and selects the lexical parsers that
 -- are needed from the resulting 'GenTokenParser'.
 --
 -- >  module Main where
diff --git a/test/Bugs/Bug9.hs b/test/Bugs/Bug9.hs
index 615363f..7fb664b 100644
--- a/test/Bugs/Bug9.hs
+++ b/test/Bugs/Bug9.hs
@@ -24,7 +24,7 @@ main =
     result :: [String]
     result = parseErrors parseTopLevel "4 >> 5"
 
--- Syntax analaysis
+-- Syntax analysis
 
 parseTopLevel :: Parser Expr
 parseTopLevel = parseExpr <* eof
-- 
GitLab