From 38d58478eb653603adfc931f6f7bcaf2f0238f71 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 3 May 2001 15:53:47 +0000
Subject: [PATCH] [project @ 2001-05-03 15:53:47 by simonmar] oops, fix braino

---
 ghc/compiler/deSugar/DsForeign.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ->
-- 
1.7.10.4