spelling errors (#61)

Author: askeblad

core/src/Test/Framework/Runners/Console.hs

@@ -151,7 +151,7 @@ defaultMainWithOpts tests ropts = do
         K (Just file) -> XML.produceReport (unK (ropt_xml_nested ropts')) test_statistics' fin_tests >>= writeFile file
         _ -> return ()
 
-    -- Set the error code depending on whether the tests succeded or not
+    -- Set the error code depending on whether the tests succeeded or not
     exitWith $ if ts_no_failures test_statistics'
                then ExitSuccess
                else ExitFailure 1

core/src/Test/Framework/Runners/Console/Run.hs

@@ -39,7 +39,7 @@ showRunTestsTop isplain hide_successes running_tests = (if isplain then id else
     return finished_tests
 
 
--- This code all /really/ sucks.  There must be a better way to seperate out the console-updating
+-- This code all /really/ sucks.  There must be a better way to separate out the console-updating
 -- and the improvement-traversing concerns - but how?
 showRunTest :: Bool -> Bool -> Int -> TestStatistics -> RunningTest -> IO (TestStatistics, FinishedTest)
 showRunTest isplain hide_successes indent_level test_statistics (RunTest name test_type (SomeImproving improving_result)) = do