From: simonpj <unknown>
Date: Mon, 25 Mar 2002 14:41:05 +0000 (+0000)
Subject: [project @ 2002-03-25 14:41:05 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~2234
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=213fcc3828b71bac122fa03a247eb5a0a453566e;p=ghc-hetmet.git

[project @ 2002-03-25 14:41:05 by simonpj]
Comments
---

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