From: keithw <unknown>
Date: Wed, 5 May 1999 11:39:09 +0000 (+0000)
Subject: [project @ 1999-05-05 11:39:09 by keithw]
X-Git-Tag: Approximately_9120_patches~6252
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3f3b8b41769ae70444c0fb0b4390814848453674;p=ghc-hetmet.git

[project @ 1999-05-05 11:39:09 by keithw]
Add a space to panic message from zipWith*Equal.
---

diff --git a/ghc/compiler/utils/Util.lhs b/ghc/compiler/utils/Util.lhs
index d9fbaa9..dea1e7f 100644
--- a/ghc/compiler/utils/Util.lhs
+++ b/ghc/compiler/utils/Util.lhs
@@ -115,21 +115,21 @@ zipWith4Equal _ = zipWith4
 #else
 zipEqual msg []     []     = []
 zipEqual msg (a:as) (b:bs) = (a,b) : zipEqual msg as bs
-zipEqual msg as     bs     = panic ("zipEqual: unequal lists:"++msg)
+zipEqual msg as     bs     = panic ("zipEqual: unequal lists: "++msg)
 
 zipWithEqual msg z (a:as) (b:bs)=  z a b : zipWithEqual msg z as bs
 zipWithEqual msg _ [] []	=  []
-zipWithEqual msg _ _ _		=  panic ("zipWithEqual: unequal lists:"++msg)
+zipWithEqual msg _ _ _		=  panic ("zipWithEqual: unequal lists: "++msg)
 
 zipWith3Equal msg z (a:as) (b:bs) (c:cs)
 				=  z a b c : zipWith3Equal msg z as bs cs
 zipWith3Equal msg _ [] []  []	=  []
-zipWith3Equal msg _ _  _   _	=  panic ("zipWith3Equal: unequal lists:"++msg)
+zipWith3Equal msg _ _  _   _	=  panic ("zipWith3Equal: unequal lists: "++msg)
 
 zipWith4Equal msg z (a:as) (b:bs) (c:cs) (d:ds)
 				=  z a b c d : zipWith4Equal msg z as bs cs ds
 zipWith4Equal msg _ [] [] [] []	=  []
-zipWith4Equal msg _ _  _  _  _	=  panic ("zipWith4Equal: unequal lists:"++msg)
+zipWith4Equal msg _ _  _  _  _	=  panic ("zipWith4Equal: unequal lists: "++msg)
 #endif
 \end{code}