From: simonmar <unknown>
Date: Thu, 3 May 2001 15:53:47 +0000 (+0000)
Subject: [project @ 2001-05-03 15:53:47 by simonmar]
X-Git-Tag: Approximately_9120_patches~2005
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=38d58478eb653603adfc931f6f7bcaf2f0238f71;p=ghc-hetmet.git

[project @ 2001-05-03 15:53:47 by simonmar]
oops, fix braino
---

diff --git a/ghc/compiler/deSugar/DsForeign.lhs b/ghc/compiler/deSugar/DsForeign.lhs
index 79e7076..46ea86c 100644
--- a/ghc/compiler/deSugar/DsForeign.lhs
+++ b/ghc/compiler/deSugar/DsForeign.lhs
@@ -146,7 +146,7 @@ dsFImport fn_id ty unsafe ext_name cconv
 	maybe_arg_ids | unsafe    = []
 		      | otherwise = work_arg_ids
     in
-    boxResult work_arg_ids io_res_ty   		`thenDs` \ (ccall_result_ty, res_wrapper) ->
+    boxResult maybe_arg_ids io_res_ty  		`thenDs` \ (ccall_result_ty, res_wrapper) ->
 
     getUniqueDs					`thenDs` \ ccall_uniq ->
     getUniqueDs					`thenDs` \ work_uniq ->