[Converted unnecessary Show instance to local function.
Nils Anders Danielsson <nad@cs.chalmers.se>**20050527132450] {
hunk ./Test/ChasingBottoms/TestUtilities.hs 30
-  mapM_ (putStr . show) results
+  mapM_ (putStr . showTR) results
hunk ./Test/ChasingBottoms/TestUtilities.hs 44
--- | Show instance for 'TestResult' suitable for 'runQuickCheckTests'.
-
-instance Show TestResult where
-  show (TestOk _ n args) =
+  showTR (TestOk _ n args) =
hunk ./Test/ChasingBottoms/TestUtilities.hs 46
-  show (TestExausted _ n args) =
+  showTR (TestExausted _ n args) =
hunk ./Test/ChasingBottoms/TestUtilities.hs 48
-  show (TestFailed _ _) = "Test failed.\n"
-  show (TestAborted _) = "Test resulted in exception.\n"
+  showTR (TestFailed _ _) = "Test failed.\n"
+  showTR (TestAborted _) = "Test resulted in exception.\n"
hunk ./Test/ChasingBottoms/TestUtilities.hs 51
--- | Helper function for the 'TestResult' 'Show' instance.
-
-showArgs :: [[String]] -> String
-showArgs args
-  | all null args = ""
-  | otherwise     = unlines . map (indent . concat . intersperse ", ") $ args
-  where indent = ("  " ++)
+  showArgs :: [[String]] -> String
+  showArgs args
+    | all null args = ""
+    | otherwise     = unlines . map (indent . concat . intersperse ", ") $ args
+    where indent = ("  " ++)
}