X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FStgCmmForeign.hs;h=af00c79e4e8076f590893ebeaa6524886de3d5ed;hb=5dd61c6680eb9c2091048cacbfa53ab9e55ddcb6;hp=64d0203957090c7020aff9e16297bce9569e67ba;hpb=0c84eb9d40b4fab76cc4d72913f9ead409cdbd47;p=ghc-hetmet.git

diff --git a/compiler/codeGen/StgCmmForeign.hs b/compiler/codeGen/StgCmmForeign.hs
index 64d0203..af00c79 100644
--- a/compiler/codeGen/StgCmmForeign.hs
+++ b/compiler/codeGen/StgCmmForeign.hs
@@ -58,7 +58,8 @@ cgForeignCall results result_hints (CCall (CCallSpec target cconv safety)) stg_a
                 = case target of
                     StaticTarget lbl ->
                       (unzip cmm_args,
-                       CmmLit (CmmLabel (mkForeignLabel lbl (call_size cmm_args) False IsFunction)))
+                       CmmLit (CmmLabel (mkForeignLabel lbl (call_size cmm_args)
+                                                        False IsFunction)))
                     DynamicTarget    ->  case cmm_args of
                                            (fn,_):rest -> (unzip rest, fn)
                                            [] -> panic "cgForeignCall []"