diff options
| author | aarne <aarne@chalmers.se> | 2009-12-07 10:29:53 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-12-07 10:29:53 +0000 |
| commit | 7f47802cd20bebaaa7b04d8ad38d348c577776b7 (patch) | |
| tree | 4de0972b5981989f016a05fd2decced9861cc5bc /src/GF/Compile | |
| parent | 8798ff76f98d268ef073ad4ec16b29f845a13f38 (diff) | |
Constructors.str2numeral for making numerals from strings
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/Concrete/AppPredefined.hs | 4 |
1 files 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 |