diff options
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 |