From 902ff81773fc6eb63512fbb95fc8e3d5ead0e738 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 25 Sep 2006 13:03:33 +0000 Subject: some fixes in gfcc compilation --- src/GF/Canon/GFCC/RunGFCC.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'src/GF/Canon/GFCC/RunGFCC.hs') 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) {- -- cgit v1.2.3