diff options
| author | aarne <unknown> | 2004-09-14 17:05:46 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-09-14 17:05:46 +0000 |
| commit | fe045070cf4333cee0e634db5c877493d1b16030 (patch) | |
| tree | 285273eb564dbd3ad510a183a1c701ec02a1b57a /src/GF/Source/TestGF.hs | |
| parent | 35f884ddfd984edb7d580cd54c6f2f1ad9358a34 (diff) | |
gfcm header
Diffstat (limited to 'src/GF/Source/TestGF.hs')
| -rw-r--r-- | src/GF/Source/TestGF.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/Source/TestGF.hs b/src/GF/Source/TestGF.hs index b236f1347..d6c026487 100644 --- a/src/GF/Source/TestGF.hs +++ b/src/GF/Source/TestGF.hs @@ -11,6 +11,7 @@ import SkelGF import PrintGF import AbsGF + import ErrM type ParseFun a = [Token] -> Err a @@ -28,6 +29,7 @@ run p s = case (p (myLLexer s)) of putStrLn $ "\n[Abstract Syntax]\n\n" ++ show tree putStrLn $ "\n[Linearized tree]\n\n" ++ printTree tree + main :: IO () main = do args <- getArgs case args of |