From 713e883ad7816f0bb0e3cb7f3cb8fc2a636c805b Mon Sep 17 00:00:00 2001 From: hallgren Date: Mon, 28 Jan 2013 16:12:56 +0000 Subject: Better error message for Predef.error + Instead of "Internal error in ...", you now get a proper error message with a source location and a function name. + Also added some missing error value propagation in the partial evaluator. + Also some other minor cleanup and error handling fixes. --- src/compiler/GF/Compile/Compute/Predef.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/compiler/GF/Compile/Compute/Predef.hs') diff --git a/src/compiler/GF/Compile/Compute/Predef.hs b/src/compiler/GF/Compile/Compute/Predef.hs index 813ee78d4..588b98959 100644 --- a/src/compiler/GF/Compile/Compute/Predef.hs +++ b/src/compiler/GF/Compile/Compute/Predef.hs @@ -109,7 +109,7 @@ delta f vs = [v1,v2] -> toValue `fmap` (f `fmap` fromValue v1 `ap` fromValue v2) _ -> delay - unimpl id = bug $ "unimplemented predefined function: "++showIdent id +-- unimpl id = bug $ "unimplemented predefined function: "++showIdent id -- problem id vs = bug $ "unexpected arguments: Predef."++showIdent id++" "++show vs tk i s = take (max 0 (length s - i)) s :: String -- cgit v1.2.3