diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-05-21 09:26:44 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-05-21 09:26:44 +0000 |
| commit | 055c0d0d5a5bb0dc75904fe53df7f2e4f5732a8f (patch) | |
| tree | 0e63fb68c69c8f6ad0f78893c63420f0a3600e1c /src-2.9/GF/Command/Importing.hs | |
| parent | 915a1de71783ab8446b1af9e72c7ba7dfbc12d3f (diff) | |
GF/src is now for 2.9, and the new sources are in src-3.0 - keep it this way until the release of GF 3
Diffstat (limited to 'src-2.9/GF/Command/Importing.hs')
| -rw-r--r-- | src-2.9/GF/Command/Importing.hs | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/src-2.9/GF/Command/Importing.hs b/src-2.9/GF/Command/Importing.hs deleted file mode 100644 index a09ba8de6..000000000 --- a/src-2.9/GF/Command/Importing.hs +++ /dev/null @@ -1,28 +0,0 @@ -module GF.Command.Importing (importGrammar) where - -import GF.Compile.API -import GF.GFCC.DataGFCC -import GF.GFCC.API - -import GF.Devel.UseIO -import GF.Infra.Option -import GF.Data.ErrM - -import Data.List (nubBy) -import System.FilePath - --- import a grammar in an environment where it extends an existing grammar -importGrammar :: MultiGrammar -> Options -> [FilePath] -> IO MultiGrammar -importGrammar mgr0 opts files = - case takeExtensions (last files) of - s | elem s [".gf",".gfo"] -> do - res <- appIOE $ compileToGFCC opts files - case res of - Ok gfcc2 -> do let gfcc3 = unionGFCC (gfcc mgr0) gfcc2 - return $ MultiGrammar gfcc3 - Bad msg -> do putStrLn msg - return mgr0 - ".gfcc" -> do - gfcc2 <- mapM file2gfcc files >>= return . foldl1 unionGFCC - let gfcc3 = unionGFCC (gfcc mgr0) gfcc2 - return $ MultiGrammar gfcc3
\ No newline at end of file |