From 2433403b6247022ac56133ca935307868fcef6b9 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 24 Mar 2004 15:31:38 +0000
Subject: Making cf2gf to work...

---
 src/GF/API/IOGrammar.hs | 6 ------
 1 file changed, 6 deletions(-)

(limited to 'src/GF/API')

diff --git a/src/GF/API/IOGrammar.hs b/src/GF/API/IOGrammar.hs
index 53b056c46..9b6fe0c5a 100644
--- a/src/GF/API/IOGrammar.hs
+++ b/src/GF/API/IOGrammar.hs
@@ -6,7 +6,6 @@ import PGrammar
 import TypeCheck
 import Compile
 import ShellState
-import GetGrammar
 
 import Modules
 import Option
@@ -38,11 +37,6 @@ string2annotTree gr m = annotate gr . string2absTerm (prt m) ---- prt
 
 shellStateFromFiles :: Options -> ShellState -> FilePath -> IOE ShellState
 shellStateFromFiles opts st file = case fileSuffix file of
-  "cf" -> do
-     let opts' = addOptions (options [beVerbose]) opts
-     sgr <- getCFGrammar opts' file
-     ioeIO $ print sgr -----
-     return st
   "gfcm" -> do
      (_,_,cgr) <- compileOne opts (compileEnvShSt st []) file
      ioeErr $ updateShellState opts st (cgr,(emptyMGrammar,[]))  
-- 
cgit v1.2.3