Added support for list categories.

1 files changed, 20 insertions, 8 deletions

diff --git a/src/GF/Source/TestGF.hs b/src/GF/Source/TestGF.hs
index 65c238db2..b05baade9 100644
--- a/src/GF/Source/TestGF.hs
+++ b/src/GF/Source/TestGF.hs
@@ -1,6 +1,5 @@
-
 -- automatically generated by BNF Converter
-module GF.Source.TestGF where
+module Main where
 
 
 import System.IO ( stdin, hGetContents )
@@ -13,6 +12,8 @@ import GF.Source.PrintGF
 import GF.Source.AbsGF
 
 
+
+
 import GF.Data.ErrM
 
 type ParseFun a = [Token] -> Err a
@@ -29,14 +30,20 @@ runFile v p f = putStrLn f >> readFile f >>= run v p
 
 run :: (Print a, Show a) => Verbosity -> ParseFun a -> String -> IO ()
 run v p s = let ts = myLLexer s in case p ts of
-           Bad s    -> do  putStrLn "\nParse              Failed...\n"
-                           putStrV v "Tokens:"
-                           putStrV v $ show ts
-                           putStrLn s
+           Bad s    -> do putStrLn "\nParse              Failed...\n"
+                          putStrV v "Tokens:"
+                          putStrV v $ show ts
+                          putStrLn s
            Ok  tree -> do putStrLn "\nParse Successful!"
-                          putStrV v $ "\n[Abstract Syntax]\n\n" ++ show tree
-                          putStrV v $ "\n[Linearized tree]\n\n" ++ printTree tree
+                          showTree v tree
+
+
 
+showTree :: (Show a, Print a) => Int -> a -> IO ()
+showTree v tree
+ = do
+      putStrV v $ "\n[Abstract Syntax]\n\n" ++ show tree
+      putStrV v $ "\n[Linearized tree]\n\n" ++ printTree tree
 
 main :: IO ()
 main = do args <- getArgs
@@ -44,3 +51,8 @@ main = do args <- getArgs
             [] -> hGetContents stdin >>= run 2 pGrammar
             "-s":fs -> mapM_ (runFile 0 pGrammar) fs
             fs -> mapM_ (runFile 2 pGrammar) fs
+
+
+
+
+