X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Futils%2FUtil.lhs;h=279a10863e4b58750f7d2b07825930cfc568c481;hb=931515abf853065116e4b984b9b0ff2f2ec851b1;hp=e692ff1aa3afcd868b7deaafcf44f9e9ea5bc39e;hpb=c295ee8ac9d7afb4d660dc3b63c10cca0a0b26e7;p=ghc-hetmet.git

diff --git a/compiler/utils/Util.lhs b/compiler/utils/Util.lhs
index e692ff1..279a108 100644
--- a/compiler/utils/Util.lhs
+++ b/compiler/utils/Util.lhs
@@ -12,7 +12,10 @@ module Util (
 	mapFst, mapSnd,
 	mapAndUnzip, mapAndUnzip3,
 	nOfThem, filterOut,
-	lengthExceeds, lengthIs, lengthAtLeast, listLengthCmp, atLength,
+
+	lengthExceeds, lengthIs, lengthAtLeast, 
+	listLengthCmp, atLength, equalLength, compareLength,
+
 	isSingleton, only, singleton,
 	notNull, snocView,
 
@@ -34,7 +37,7 @@ module Util (
 	takeList, dropList, splitAtList, split,
 
 	-- comparisons
-	isEqual, eqListBy, equalLength, compareLength,
+	isEqual, eqListBy, 
 	thenCmp, cmpList, prefixMatch, suffixMatch, maybePrefixMatch,
 	removeSpaces,