X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsForeign.lhs;h=4b2c1de26fc7a0540f44aee387f7bf47693cc264;hb=837824d2ff329a0f68c1434ae6812bea3ac7ec5f;hp=269274ce5a3c62fea9fb0c315f827ad7b8f21d74;hpb=fadd15c6abed2f915ef61fd8df9ea5056f392f69;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsForeign.lhs b/ghc/compiler/deSugar/DsForeign.lhs
index 269274c..4b2c1de 100644
--- a/ghc/compiler/deSugar/DsForeign.lhs
+++ b/ghc/compiler/deSugar/DsForeign.lhs
@@ -78,8 +78,8 @@ dsForeigns fos
   combine (ForeignStubs acc_h acc_c acc_hdrs acc_feb, acc_f) 
 	  (L loc (ForeignImport id _ spec depr))
     = traceIf (text "fi start" <+> ppr id)	`thenDs` \ _ ->
-      dsFImport (unLoc id) spec	           `thenDs` \ (bs, h, c, mbhd) -> 
-      warnDepr depr loc		   `thenDs` \ _                ->
+      dsFImport (unLoc id) spec	                `thenDs` \ (bs, h, c, mbhd) -> 
+      warnDepr depr loc				`thenDs` \ _                ->
       traceIf (text "fi end" <+> ppr id)	`thenDs` \ _ ->
       returnDs (ForeignStubs (h $$ acc_h)
       			     (c $$ acc_c)