GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-09 03:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

some missing cases in SourceToGF

Browse Source
This commit is contained in:
aarne
2007-12-04 11:18:55 +00:00
parent 67528a5c18
commit 836583cfac
3 changed files with 28 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/GF/Devel/TestGF3.hs
View File

@@ -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 ()