[Pkg-haskell-commits] darcs: tools: Improve error messgaes in ./haskell-pkg-debcheck.hs

[Joachim Breitner]

Wed Apr 13 09:21:10 UTC 2011  Joachim Breitner <mail at joachim-breitner.de>
  * Improve error messgaes in ./haskell-pkg-debcheck.hs
  Ignore-this: 207ee2af9b6f83e41cc019ed76e41a8c

    M ./haskell-pkg-debcheck.hs -1 +1

Wed Apr 13 09:21:10 UTC 2011  Joachim Breitner <mail at joachim-breitner.de>
  * Improve error messgaes in ./haskell-pkg-debcheck.hs
  Ignore-this: 207ee2af9b6f83e41cc019ed76e41a8c
diff -rN -u old-tools/haskell-pkg-debcheck.hs new-tools/haskell-pkg-debcheck.hs
--- old-tools/haskell-pkg-debcheck.hs	2011-04-13 09:21:18.565934031 +0000
+++ new-tools/haskell-pkg-debcheck.hs	2011-04-13 09:21:18.569934241 +0000
@@ -27,7 +27,7 @@
 
 m ! k = case M.lookup k m of
     Just x -> x 
-    Nothing -> error $ "Could not find " ++ show m ++ " in map " ++ show (take 2 (M.toList m)) ++ ".."
+    Nothing -> error $ "Could not find " ++ show k ++ " in map " ++ take 50 (show m) ++ "..."
 
 type Arch = String