diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-09-25 13:03:33 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-09-25 13:03:33 +0000 |
| commit | 902ff81773fc6eb63512fbb95fc8e3d5ead0e738 (patch) | |
| tree | 9b3e77be37806fa7144f9a4a5f7ad3641eafeb59 /src/GF/Canon/GFCC/RunGFCC.hs | |
| parent | 9ae36df22079e072b302ad966fc98963d97d2654 (diff) | |
some fixes in gfcc compilation
Diffstat (limited to 'src/GF/Canon/GFCC/RunGFCC.hs')
| -rw-r--r-- | src/GF/Canon/GFCC/RunGFCC.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/GF/Canon/GFCC/RunGFCC.hs b/src/GF/Canon/GFCC/RunGFCC.hs index a013d7ccb..5caa5e8d2 100644 --- a/src/GF/Canon/GFCC/RunGFCC.hs +++ b/src/GF/Canon/GFCC/RunGFCC.hs @@ -39,9 +39,11 @@ treat grammar s = case words s of _ -> putStrLn "no parse found" _ -> lins $ readExp s where - lins t = mapM_ (lin t) $ cncnames grammar + lins t = mapM_ (lint t) $ cncnames grammar + lint t lang = do + putStrLn $ printTree $ linExp grammar lang t + lin t lang lin t lang = do - -- putStrLn $ printTree $ linExp grammar lang t putStrLn $ linearize grammar lang t prlins t = do putStrLn $ printTree t @@ -54,7 +56,7 @@ file2gfcc f = readFile f >>= err (error "no parse") (return . mkGFCC) . pGrammar . myLexer readExp :: String -> Exp -readExp = err (error "no parse") id . (pExp . myLexer) +readExp = errVal exp0 . (pExp . myLexer) {- |