Add link to trac in internal error messages
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 22 Apr 2010 10:11:45 +0000 (10:11 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 22 Apr 2010 10:11:45 +0000 (10:11 +0000)
Data/Vector/Internal/Check.hs

index c1c1f68..a5e2753 100644 (file)
@@ -54,8 +54,8 @@ error :: String -> Int -> Checks -> String -> String -> a
 error file line kind loc msg
   = P.error $ unlines $
       (if kind == Internal
-         then (["*** Internal error in package vector"
-               ,"*** Please submit a bug report"]++)
+         then (["*** Internal error in package vector ***"
+               ,"*** Please submit a bug report at http://trac.haskell.org/vector"]++)
          else id) $
       [ file ++ ":" ++ show line ++ " (" ++ loc ++ "): " ++ msg ]