From: rrt <unknown>
Date: Thu, 12 Jul 2001 12:59:48 +0000 (+0000)
Subject: [project @ 2001-07-12 12:59:48 by rrt]
X-Git-Tag: Approximately_9120_patches~1573
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=36d394f32e5617a9fca6061bdd1683032812b829;p=ghc-hetmet.git

[project @ 2001-07-12 12:59:48 by rrt]
Fix spacing
---

diff --git a/ghc/compiler/typecheck/TcForeign.lhs b/ghc/compiler/typecheck/TcForeign.lhs
index 761fd10..5812a76 100644
--- a/ghc/compiler/typecheck/TcForeign.lhs
+++ b/ghc/compiler/typecheck/TcForeign.lhs
@@ -124,7 +124,7 @@ tcCheckFIType sig_ty arg_tys res_ty (CImport (CCallSpec target _ safety))
 
   | otherwise 		-- Normal foreign import
   = checkCg (if isCasmTarget target
-	     then checkC else checkCOrAsmOrDotNet)			`thenNF_Tc_`
+	     then checkC else checkCOrAsmOrDotNet)		`thenNF_Tc_`
     checkCTarget target						`thenNF_Tc_`
     getDOptsTc							`thenNF_Tc` \ dflags ->
     checkForeignArgs (isFFIArgumentTy dflags safety) arg_tys	`thenNF_Tc_`