Commit cc3cf678 authored by simonm's avatar simonm
Browse files

[project @ 1999-01-22 10:25:44 by simonm]

Fix a use of [ e1..e2 ] in the light of the new Haskell 98 semantics.
parent e5efd651
......@@ -347,8 +347,12 @@ tcMonoExpr (CCall lbl args may_gc is_asm ignored_fake_result_ty) res_ty
in
-- Arguments
mapNF_Tc (\ _ -> newTyVarTy_OpenKind) [1..(length args)] `thenNF_Tc` \ arg_tys ->
tcMonoExprs args arg_tys `thenTc` \ (args', args_lie) ->
let n_args = length args
tv_idxs | n_args == 0 = []
| otherwise = [1..n_args]
in
mapNF_Tc (\ _ -> newTyVarTy_OpenKind) tv_idxs `thenNF_Tc` \ arg_tys ->
tcMonoExprs args arg_tys `thenTc` \ (args', args_lie) ->
-- The argument types can be unboxed or boxed; the result
-- type must, however, be boxed since it's an argument to the IO
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment