From a6dc94435648dfeeb10a691a1fd6d3ad2f6dd154 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 6 Dec 2005 12:39:36 +0000 Subject: opers in cnc --- src/GF/Source/SourceToGrammar.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Source') diff --git a/src/GF/Source/SourceToGrammar.hs b/src/GF/Source/SourceToGrammar.hs index 2e63e68d4..00e7c0c56 100644 --- a/src/GF/Source/SourceToGrammar.hs +++ b/src/GF/Source/SourceToGrammar.hs @@ -339,7 +339,7 @@ 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] - _ -> Bad $ "illegal definition in concrete syntax:" ++++ printTree x + _ -> errIn ("illegal definition in concrete syntax:") $ transResDef x transPrintDef :: PrintDef -> Err [(Ident,G.Term)] transPrintDef x = case x of -- cgit v1.2.3