1 files changed, 0 insertions, 44 deletions
diff --git a/src/GF/UseGrammar/Statistics.hs b/src/GF/UseGrammar/Statistics.hs
deleted file mode 100644
index 46e4fcc3b..000000000
--- a/src/GF/UseGrammar/Statistics.hs
+++ /dev/null
@@ -1,44 +0,0 @@
-----------------------------------------------------------------------
--- |
--- Module      : Statistics
--- Maintainer  : AR
--- Stability   : (stable)
--- Portability : (portable)
---
--- > CVS $Date: 2005/09/04 11:45:38 $ 
--- > CVS $Author: aarne $
--- > CVS $Revision: 1.1 $
---
--- statistics on canonical grammar: amounts of generated code
--- AR 4\/9\/2005.
--- uses canonical grammar
------------------------------------------------------------------------------
-
-module GF.UseGrammar.Statistics (prStatistics) where
-
-import GF.Infra.Modules
-import GF.Infra.Option
-import GF.Grammar.PrGrammar
-import GF.Canon.GFC
-import GF.Canon.MkGFC
-
-import GF.Data.Operations
-
-import Data.List (sortBy)
-
--- | the top level function
-prStatistics :: CanonGrammar -> String
-prStatistics can = unlines $ [
-  show (length mods)  ++ "\t\t modules",
-  show chars ++ "\t\t gfc size",
-  "",
-  "Top 40 definitions"
-  ] ++
-  [show d ++ "\t\t " ++ f | (d,f) <- tops]
- where
-   tops = take 40 $ reverse $ sortBy (\ (i,_) (j,_) -> compare i j) defs
-   defs = [(length (prt (info2def j)), name m j) | (m,j) <- infos]
-   infos = [(m,j) | (m,ModMod mo) <- mods, j <- tree2list (jments mo)]
-   name m (f,_) = prt m ++ "." ++ prt f
-   mods = modules can
-   chars = length $ prCanon can