diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-12-04 11:18:55 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-12-04 11:18:55 +0000 |
| commit | 4698dfbe7848e87a2e62a776925435a888bc6923 (patch) | |
| tree | 43707a579e6c6a7f81247a88680f038cb5180e4c /src/GF/Devel/TestGF3.hs | |
| parent | 7051331c20d5a9f1eaf5f9f25bca2891f9277370 (diff) | |
some missing cases in SourceToGF
Diffstat (limited to 'src/GF/Devel/TestGF3.hs')
| -rw-r--r-- | src/GF/Devel/TestGF3.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/Devel/TestGF3.hs b/src/GF/Devel/TestGF3.hs index 3f3b9f358..d8aad44d1 100644 --- a/src/GF/Devel/TestGF3.hs +++ b/src/GF/Devel/TestGF3.hs @@ -3,13 +3,14 @@ module Main where import GF.Devel.Grammar.LexGF import GF.Devel.Grammar.ParGF ---- import GF.Devel.Grammar.PrintGF -import GF.Devel.Grammar.AbsGF +import GF.Devel.Grammar.Modules import GF.Devel.Grammar.SourceToGF import qualified GF.Devel.Grammar.ErrM as GErr ---- import GF.Data.Operations +import Data.Map import System (getArgs) main = do @@ -23,7 +24,7 @@ main = do compile g = do let eg = transGrammar g case eg of - Ok _ -> putStrLn "OK" + Ok gr -> print (length (assocs (gfmodules gr))) >> putStrLn "OK" Bad s -> putStrLn s return () |