ANSI.Codes handling removed

include/TestAppendix.curry

@@ -13,7 +13,7 @@ runPropertyTests withcolor withtime props = do
                 >>= return . Maybe.catMaybes
   if null failedmsgs
    then return 0
-   else do putStrLn $ (if withcolor then AnsiCodes.red else id) $
+   else do putStrLn $ ({- if withcolor then AnsiCodes.red else -} id) $
                       line ++
                       "\nFAILURES OCCURRED IN SOME TESTS:\n" ++
                       unlines failedmsgs ++ line

src/CC/Options.curry

@@ -151,7 +151,7 @@ putStrIfDetails opts s = when (optVerb opts > 1) (putStr s >> hFlush stdout)
 putStrLnIfDebug :: Options -> String -> IO ()
 putStrLnIfDebug opts s = when (optVerb opts > 3) (putStrLn s >> hFlush stdout)
 
---- use some coloring (from library AnsiCodes) if color option is on:
+--- use some coloring (from System.Console.ANSI.Codes) if color option is on:
 withColor :: Options -> (String -> String) -> String -> String
 withColor opts coloring = if optColor opts then coloring else id
 

src/CurryCheck.curry

@@ -1363,8 +1363,8 @@ genMainTestModule opts mainmod orgtestmods = do
   let mainFunction = genMainFunction opts mainmod testfuncs
       imports      = nub $ [ easyCheckModule, easyCheckExecModule
                            , searchTreeModule, generatorModule
-                           , "List", "AnsiCodes", "Char", "Maybe", "System"
-                           , "Profile" ] ++
+                           , "List", "Char", "Maybe", "System", "Profile"
+                           ] ++ -- TODO: import also System.Console.ANSI.Codes
                            map (fst . fst) testtypes ++
                            map testModuleName testmods
   appendix <- readFile (packagePath </> "include" </> "TestAppendix.curry")