From f070a412a1256b39e60b3a819e18c61922a7fe79 Mon Sep 17 00:00:00 2001
From: peb <unknown>
Date: Thu, 14 Apr 2005 10:42:05 +0000
Subject: "Committed_by_peb"

---
 src/GF/Conversion/GFC.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'src/GF/Conversion/GFC.hs')

diff --git a/src/GF/Conversion/GFC.hs b/src/GF/Conversion/GFC.hs
index 5b5c4491e..21b52d2b1 100644
--- a/src/GF/Conversion/GFC.hs
+++ b/src/GF/Conversion/GFC.hs
@@ -4,9 +4,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/04/12 10:49:44 $ 
+-- > CVS $Date: 2005/04/14 11:42:05 $ 
 -- > CVS $Author: peb $
--- > CVS $Revision: 1.2 $
+-- > CVS $Revision: 1.3 $
 --
 -- All conversions from GFC 
 -----------------------------------------------------------------------------
@@ -21,6 +21,7 @@ import GF.Conversion.Types (CGrammar, MGrammar, SGrammar)
 
 import qualified GF.Conversion.GFCtoSimple as G2S
 import qualified GF.Conversion.SimpleToFinite as S2Fin
+import qualified GF.Conversion.RemoveSingletons as RemSing
 import qualified GF.Conversion.SimpleToMCFG as S2M
 import qualified GF.Conversion.MCFGtoCFG as M2C
 
@@ -30,6 +31,9 @@ gfc2simple = G2S.convertGrammar
 simple2finite :: SGrammar -> SGrammar
 simple2finite = S2Fin.convertGrammar
 
+removeSingletons :: SGrammar -> SGrammar
+removeSingletons = RemSing.convertGrammar
+
 simple2mcfg_nondet :: SGrammar -> MGrammar
 simple2mcfg_nondet = S2M.convertGrammarNondet
 
-- 
cgit v1.2.3