summaryrefslogtreecommitdiff
path: root/src/GF/API
diff options
context:
space:
mode:
authoraarne <unknown>2004-03-24 15:31:38 +0000
committeraarne <unknown>2004-03-24 15:31:38 +0000
commit2433403b6247022ac56133ca935307868fcef6b9 (patch)
treea53994e4d7dd1a253171c4d78f13ef8ffe3a0ee4 /src/GF/API
parentdc71ffcf5bae1f2b91467de273c71e7c3294acb3 (diff)
Making cf2gf to work...
Diffstat (limited to 'src/GF/API')
-rw-r--r--src/GF/API/IOGrammar.hs6
1 files changed, 0 insertions, 6 deletions
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,[]))