From 80d4a03332e09064e5542924f2897d7eb573f19e Mon Sep 17 00:00:00 2001 From: Gabor Greif Date: Mon, 31 Oct 2016 12:08:50 +0100 Subject: Typos in comments --- testsuite/tests/ffi/should_run/ffi005.hs | 2 +- testsuite/tests/polykinds/T7332.hs | 4 ++-- testsuite/tests/typecheck/should_compile/tc080.hs | 12 ++++++------ 3 files changed, 9 insertions(+), 9 deletions(-) (limited to 'testsuite') 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 -- cgit v1.2.1