[project @ 2004-04-02 16:46:57 by simonpj]

[ghc-hetmet.git] / ghc / compiler / main / HscStats.lhs

diff --git a/ghc/compiler/main/HscStats.lhs b/ghc/compiler/main/HscStats.lhs
index cb3c70f..170175a 100644 (file)
--- a/ghc/compiler/main/HscStats.lhs
+++ b/ghc/compiler/main/HscStats.lhs
@@ -123,7 +123,7 @@ ppSourceStats short (L _ (HsModule _ exports imports ldecls _))
 
     data_info (TyData {tcdCons = cs, tcdDerivs = derivs})
        = (length cs, case derivs of Nothing -> 0
-                                    Just ds -> length (unLoc ds))
+                                    Just ds -> length ds)
     data_info other = (0,0)
 
     class_info decl@(ClassDecl {})