diff options
| author | aarne <unknown> | 2004-03-24 15:31:38 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-03-24 15:31:38 +0000 |
| commit | 2433403b6247022ac56133ca935307868fcef6b9 (patch) | |
| tree | a53994e4d7dd1a253171c4d78f13ef8ffe3a0ee4 /src/GF/API | |
| parent | dc71ffcf5bae1f2b91467de273c71e7c3294acb3 (diff) | |
Making cf2gf to work...
Diffstat (limited to 'src/GF/API')
| -rw-r--r-- | src/GF/API/IOGrammar.hs | 6 |
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,[])) |
