Group exports so that all length functions are together; no semantic change

931515ab · simonpj@microsoft.com · c295ee8a · 931515ab
Commit 931515ab authored Aug 08, 2006 by simonpj@microsoft.com
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 2 deletions

compiler/utils/Util.lhs compiler/utils/Util.lhs +5 -2

No files found.
--- 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,