Make error messages Windows proof
authorThomas Miedema <thomasmiedema@gmail.com>
Sat, 12 Sep 2015 21:10:23 +0000 (23:10 +0200)
committerThomas Miedema <thomasmiedema@gmail.com>
Sat, 12 Sep 2015 21:10:23 +0000 (23:10 +0200)
Before, we ended up with too many slashes, which caused a test failure
in T10529a.

  show "foo\\bar" == "\"foo\\\\bar\""

Trace/Hpc/Mix.hs
tests/simple/tixs/T10529a.stderr

index 0a5f054..2066284 100644 (file)
@@ -22,6 +22,7 @@ module Trace.Hpc.Mix
         )
   where
 
+import Data.List
 import Data.Maybe (catMaybes, fromMaybe)
 import Data.Time (UTCTime)
 import Data.Tree
@@ -113,9 +114,10 @@ readMix dirNames mod' = do
               -- Only complain if multiple *different* `Mix` files with the
               -- same name are found (#9619).
               error $ "found " ++ show(length xs) ++ " different instances of "
-                      ++ modName ++ " in " ++ show dirNames
+                      ++ modName ++ " in " ++ intercalate ", " dirNames
      (x:_) -> return x
-     _     -> error $ "can not find " ++ modName ++ " in " ++ show dirNames
+     _     -> error $ "can not find "
+                      ++ modName ++ " in " ++ intercalate ", " dirNames
 
 mixName :: FilePath -> String -> String
 mixName dirName name = dirName </> name <.> "mix"
index 945c633..5107218 100644 (file)
@@ -1 +1 @@
-hpc: can not find NonExistingModule in ["./.hpc"]
+hpc: can not find NonExistingModule in ./.hpc