From 5bfaf10de597af504e6d2784309e533b09a6451c Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Fri, 28 Aug 2015 13:59:43 +0000
Subject: Comment out some dead code found with -fwarn-unused-binds

Also fixed some warnings and tightened some imports
---
 src/compiler/GF/Grammar/Analyse.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/compiler/GF/Grammar/Analyse.hs')

diff --git a/src/compiler/GF/Grammar/Analyse.hs b/src/compiler/GF/Grammar/Analyse.hs
index 5883ad4ff..4c8f2020f 100644
--- a/src/compiler/GF/Grammar/Analyse.hs
+++ b/src/compiler/GF/Grammar/Analyse.hs
@@ -119,22 +119,22 @@ sizeInfo i = case i of
   msize mt = case mt of
     Just (L _ t) -> sizeTerm t
     _ -> 0
-
+{-
 -- the size of a module
 sizeModule :: SourceModule -> Int
 sizeModule = fst . sizesModule
-
+-}
 sizesModule :: SourceModule -> (Int, [(Ident,Int)])
 sizesModule (_,m) = 
   let 
     js = Map.toList (jments m) 
     tb = [(i,k) | (i,j) <- js, let k = sizeInfo j, k >= 0]
   in (length tb + sum (map snd tb),tb)
-
+{-
 -- the size of a grammar
 sizeGrammar :: Grammar -> Int
 sizeGrammar = fst . sizesGrammar
-
+-}
 sizesGrammar :: Grammar -> (Int,[(ModuleName,(Int,[(Ident,Int)]))])
 sizesGrammar g = 
   let 
-- 
cgit v1.2.3