Typos in comments

3 files changed, 9 insertions, 9 deletions

diff --git a/testsuite/tests/ffi/should_run/ffi005.hs b/testsuite/tests/ffi/should_run/ffi005.hs
index 63de9558f9..9c17441954 100644
--- a/testsuite/tests/ffi/should_run/ffi005.hs
+++ b/testsuite/tests/ffi/should_run/ffi005.hs
@@ -1,4 +1,4 @@
--- !!! test for foreign import dynamic/wrapper, orignally by Alastair Reid,
+-- !!! test for foreign import dynamic/wrapper, originally by Alastair Reid,
 -- with a few changes to get it to run on GHC by Simon Marlow.
 
 import Foreign hiding ( unsafePerformIO )
diff --git a/testsuite/tests/polykinds/T7332.hs b/testsuite/tests/polykinds/T7332.hs
index a18b32b838..0d3e7e5a13 100644
--- a/testsuite/tests/polykinds/T7332.hs
+++ b/testsuite/tests/polykinds/T7332.hs
@@ -63,8 +63,8 @@ hence
 Now things are delicate.  Either the instance Monoid (DC d) will fire or,
 if we are lucky, we might spot that (Monoid (DC d)) is a superclass of
 a given.  But now (Decl 15) we add superclasses lazily, so that is less
-likely to happen, and was always fragile.  So include (MOnoid d) in the
-signature, as was the case in the orignal ticket.
+likely to happen, and was always fragile.  So include (Monoid d) in the
+signature, as was the case in the original ticket.
 -}
 
 
diff --git a/testsuite/tests/typecheck/should_compile/tc080.hs b/testsuite/tests/typecheck/should_compile/tc080.hs
index 78e413ffd9..8b08d2d584 100644
--- a/testsuite/tests/typecheck/should_compile/tc080.hs
+++ b/testsuite/tests/typecheck/should_compile/tc080.hs
@@ -1,4 +1,4 @@
---module Parse(Parse(..),whiteSpace,seperatedBy) where
+--module Parse(Parse(..),whiteSpace,separatedBy) where
 --import StdLib
 module ShouldSucceed where
 
@@ -27,14 +27,14 @@ instance Parse Char where
        forced n = True
 
 instance (Parse a) => Parse [a] where
-        parseType more = (map parseLine (seperatedBy ',' (l++",")),out)
+        parseType more = (map parseLine (separatedBy ',' (l++",")),out)
                        where    (l,']':out) = span' (\x->x/=']') (tail more)
         forced = all forced
 
-seperatedBy :: Char -> String -> [String]
-seperatedBy ch [] = []
-seperatedBy ch xs = twaddle ch (span' (\x->x/=ch) xs)
-               where    twaddle ch (l,_:r) = l:seperatedBy ch r
+separatedBy :: Char -> String -> [String]
+separatedBy ch [] = []
+separatedBy ch xs = twaddle ch (span' (\x->x/=ch) xs)
+               where    twaddle ch (l,_:r) = l:separatedBy ch r
 
 whiteSpace :: String -> String
 whiteSpace = dropWhile isSpace