From 33a42b1c7ca74fd4484fd143b5396d61fa924eb7 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 20 Sep 2011 16:00:56 +0000
Subject: module for analysing source grammars

---
 src/compiler/GF/Grammar/Grammar.hs | 17 -----------------
 1 file changed, 17 deletions(-)

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

diff --git a/src/compiler/GF/Grammar/Grammar.hs b/src/compiler/GF/Grammar/Grammar.hs
index 2c84351af..686164539 100644
--- a/src/compiler/GF/Grammar/Grammar.hs
+++ b/src/compiler/GF/Grammar/Grammar.hs
@@ -16,7 +16,6 @@
 
 module GF.Grammar.Grammar (SourceGrammar,
         emptySourceGrammar,mGrammar,
-        stripSourceGrammar,
         SourceModInfo,
         SourceModule,
         mapSourceModule,
@@ -241,19 +240,3 @@ label2ident :: Label -> Ident
 label2ident (LIdent s) = identC s
 label2ident (LVar i)   = identC (BS.pack ('$':show i))
 
-
-stripSourceGrammar :: SourceGrammar -> SourceGrammar
-stripSourceGrammar sgr = sgr --mGrammar [(i, m{jments = Map.map }) | (i,m) <- modules sgr]
-
-stripInfo :: Info -> Info
-stripInfo i = case i of
-  AbsCat _ -> i
-  AbsFun mt mi me mb -> AbsFun mt mi Nothing mb
-  ResParam mp mt -> ResParam mp Nothing
-  ResValue lt -> i ----
-  ResOper mt md -> ResOper mt Nothing
-  ResOverload is fs -> ResOverload is [(lty, L loc (EInt 0)) | (lty,L loc _) <- fs]
-  CncCat mty mte mtf -> CncCat mty Nothing Nothing
-  CncFun mict mte mtf -> CncFun mict Nothing Nothing
-  AnyInd b f -> i
-
-- 
cgit v1.2.3