From 4e795bab9b0e5dfcad903eb4c9d0aa0a5dab6e94 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 10 Oct 2008 15:53:17 +0000 Subject: a first version of PGF.AbsCompute --- src/GF/Command/Commands.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/GF/Command/Commands.hs') diff --git a/src/GF/Command/Commands.hs b/src/GF/Command/Commands.hs index 27ac61c81..2aa616739 100644 --- a/src/GF/Command/Commands.hs +++ b/src/GF/Command/Commands.hs @@ -384,7 +384,7 @@ allCommands cod pgf = Map.fromList [ "p \"foo\" | pt -typecheck -- type check parse results" ], exec = \opts -> return . fromTrees . treeOps (map prOpt opts), - options = treeOpOptions + options = treeOpOptions pgf }), ("q", emptyCommandInfo { longname = "quit", @@ -608,7 +608,7 @@ allCommands cod pgf = Map.fromList [ app f = maybe id id (stringOp f) treeOps opts s = foldr app s (reverse opts) where - app f = maybe id id (treeOp f) + app f = maybe id id (treeOp pgf f) showAsString t = case t of Lit (LStr s) -> s @@ -641,7 +641,7 @@ stringOpOptions = [ ("words","lexer that assumes tokens separated by spaces (default)") ] -treeOpOptions = [(op,expl) | (op,(expl,_)) <- allTreeOps] +treeOpOptions pgf = [(op,expl) | (op,(expl,_)) <- allTreeOps pgf] translationQuiz :: String -> PGF -> Language -> Language -> Category -> IO () translationQuiz cod pgf ig og cat = do -- cgit v1.2.3