From: Ian Lynagh <igloo@earth.li>
Date: Sat, 14 Jun 2008 21:53:46 +0000 (+0000)
Subject: Fix a warning in DsForeign
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a1e077c2ecbab045b748941e5bca25c2a677eb55

Fix a warning in DsForeign
---

diff --git a/compiler/deSugar/DsForeign.lhs b/compiler/deSugar/DsForeign.lhs
index 9df0911..b4c938c 100644
--- a/compiler/deSugar/DsForeign.lhs
+++ b/compiler/deSugar/DsForeign.lhs
@@ -619,7 +619,9 @@ insertRetAddr _ args = args
 -- need to flush a register argument to the stack (See rts/Adjustor.c for
 -- details).
 insertRetAddr CCallConv args = go 0 args
-  where  go 6 args = ret_addr_arg : args
+  where  go :: Int -> [(SDoc, SDoc, Type, MachRep)]
+                   -> [(SDoc, SDoc, Type, MachRep)]
+         go 6 args = ret_addr_arg : args
 	 go n (arg@(_,_,_,rep):args)
 	  | I64 <- rep = arg : go (n+1) args
 	  | otherwise  = arg : go n     args