summaryrefslogtreecommitdiff
path: root/src/GF/Command/Importing.hs
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-25 16:43:48 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-25 16:43:48 +0000
commitb96b36f43de3e2f8b58d5f539daa6f6d47f25870 (patch)
tree0992334be13cec6538a1dea22fbbf26ad6bdf224 /src/GF/Command/Importing.hs
parentfe367412e0aeb4ad5c02de68e6eca382e0f96984 (diff)
removed src for 2.9
Diffstat (limited to 'src/GF/Command/Importing.hs')
-rw-r--r--src/GF/Command/Importing.hs28
1 files changed, 0 insertions, 28 deletions
diff --git a/src/GF/Command/Importing.hs b/src/GF/Command/Importing.hs
deleted file mode 100644
index a09ba8de6..000000000
--- a/src/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