From: simonpj@microsoft.com <unknown>
Date: Mon, 23 Feb 2009 10:16:59 +0000 (+0000)
Subject: Use 'nonIOok' instead of 'True'; cosmetics only
X-Git-Tag: 2009-03-13~43
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=76c7a6456ee80947188ea81051b8bf02a80e2839

Use 'nonIOok' instead of 'True'; cosmetics only
---

diff --git a/compiler/typecheck/TcForeign.lhs b/compiler/typecheck/TcForeign.lhs
index b1dda2d..d3a24a0 100644
--- a/compiler/typecheck/TcForeign.lhs
+++ b/compiler/typecheck/TcForeign.lhs
@@ -96,7 +96,7 @@ tcCheckFIType _ arg_tys res_ty (DNImport spec) = do
     checkCg checkDotnet
     dflags <- getDOpts
     checkForeignArgs (isFFIDotnetTy dflags) arg_tys
-    checkForeignRes True{-non IO ok-} (isFFIDotnetTy dflags) res_ty
+    checkForeignRes nonIOok (isFFIDotnetTy dflags) res_ty
     let (DNCallSpec isStatic kind _ _ _ _) = spec
     case kind of
        DNMethod | not isStatic ->