From 213fcc3828b71bac122fa03a247eb5a0a453566e Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 25 Mar 2002 14:41:05 +0000
Subject: [PATCH] [project @ 2002-03-25 14:41:05 by simonpj] Comments

---
 ghc/compiler/utils/Util.lhs |    1 +
 1 file changed, 1 insertion(+)

diff --git a/ghc/compiler/utils/Util.lhs b/ghc/compiler/utils/Util.lhs
index 8c86eea..93e759b 100644
--- a/ghc/compiler/utils/Util.lhs
+++ b/ghc/compiler/utils/Util.lhs
@@ -257,6 +257,7 @@ atLength atLenPred atEndPred ls n
 
 -- special cases.
 lengthExceeds :: [a] -> Int -> Bool
+-- (lengthExceeds xs n) = (length xs > n)
 lengthExceeds = atLength (not.null) (const False)
 
 lengthAtLeast :: [a] -> Int -> Bool
-- 
1.7.10.4