X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnSource.lhs;h=9e1d592a707b76d4145001ce18f96c6f2893ebee;hb=4216e402f6b50a611cd593873fd9c6597b2fe0e7;hp=8e2e6608bdd9839e49c41691ccd4e49dd9a4eaa0;hpb=d0ba2040b0dfefea0c30b109fb58a405e46d878e;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index 8e2e660..9e1d592 100644
--- a/ghc/compiler/rename/RnSource.lhs
+++ b/ghc/compiler/rename/RnSource.lhs
@@ -335,8 +335,8 @@ rnDecl (ForD (ForeignDecl name imp_exp ty ext_nm cconv src_loc))
 	   addImplicitOccRn deRefStablePtr_NAME `thenRn_`
 	   addImplicitOccRn bindIO_NAME         `thenRn_`
 	   returnRn name'
-	_ -> returnRn name')		`thenRn_`
-    rnHsSigType fo_decl_msg ty		`thenRn` \ (ty', fvs) ->
+	_ -> returnRn name')		        `thenRn_`
+    rnHsSigType fo_decl_msg ty		        `thenRn` \ (ty', fvs) ->
     returnRn (ForD (ForeignDecl name' imp_exp ty' ext_nm cconv src_loc), fvs)
  where
   fo_decl_msg = ptext SLIT("a foreign declaration")