From 7f47802cd20bebaaa7b04d8ad38d348c577776b7 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 7 Dec 2009 10:29:53 +0000 Subject: [PATCH] Constructors.str2numeral for making numerals from strings --- src/GF/Compile/Concrete/AppPredefined.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/GF/Compile/Concrete/AppPredefined.hs b/src/GF/Compile/Concrete/AppPredefined.hs index 95316a4ea..c05127191 100644 --- a/src/GF/Compile/Concrete/AppPredefined.hs +++ b/src/GF/Compile/Concrete/AppPredefined.hs @@ -100,8 +100,8 @@ appPredefined t = case t of (y,_) <- appPredefined y0 (z,_) <- appPredefined z0 case (z, y, x) of - (ty,op,t) | f == cMapStr -> retf $ mapStr ty op t - _ -> retb t ---- prtBad "cannot compute predefined" t + (ty,op,t) | f == cMapStr -> retf $ mapStr ty op t + _ -> retb t ---- prtBad "cannot compute predefined" t _ -> retb t ---- prtBad "cannot compute predefined" t _ -> retb t