[project @ 2003-07-25 14:36:38 by ralf]

[ghc-base.git] / Data / Generics / Counts.hs

diff --git a/Data/Generics/Counts.hs b/Data/Generics/Counts.hs
index 0fc3f6f..bb2c5d6 100644 (file)
--- a/Data/Generics/Counts.hs
+++ b/Data/Generics/Counts.hs
@@ -40,7 +40,7 @@ import Data.Generics.Schemes
 
 -- | Count the number of immediate subterms of the given term
 glength :: GenericQ Int
-glength = length . gmapL (const ())
+glength = length . gmapQ (const ())
 
 
 -- | Determine the number of all suitable nodes in a given term