From 27508654c01c5ebad3c495629ccbd49c067429ab Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 6 Mar 2008 21:27:14 +0000 Subject: option -mac to vt command (uses open with ps) --- src/GF/Devel/Compile/SourceToGF.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/GF/Devel/Compile/SourceToGF.hs') diff --git a/src/GF/Devel/Compile/SourceToGF.hs b/src/GF/Devel/Compile/SourceToGF.hs index 7e3228dc1..a62179c18 100644 --- a/src/GF/Devel/Compile/SourceToGF.hs +++ b/src/GF/Devel/Compile/SourceToGF.hs @@ -266,7 +266,8 @@ transResDef x = case x of returnl [(f, resOper pt pe) | (f,(pt,pe)) <- defs'] DefFlag defs -> liftM (Right . concat) $ mapM transFlagDef defs - _ -> Bad $ "illegal definition form in resource" +++ printTree x + _ -> return $ Left [] ---- +---- _ -> Bad $ "illegal definition form in resource" +++ printTree x where mkParamDefs (p,pars) = @@ -317,7 +318,8 @@ transCncDef x = case x of let defs2 = [(f, termInPattern t) | (f,(_,Yes t)) <- defs'] returnl [(f, G.CncFun Nothing (yes t) nope) | (f,t) <- defs2] -} - _ -> errIn ("illegal definition in concrete syntax:") $ transResDef x + _ -> return $ Left [] ---- +---- _ -> errIn ("illegal definition in concrete syntax:") $ transResDef x transPrintDef :: Def -> Err [(Ident,G.Term)] transPrintDef x = case x of -- cgit v1.2.3