diff options
| author | simonpj@microsoft.com <unknown> | 2009-02-23 10:16:59 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-02-23 10:16:59 +0000 |
| commit | 76c7a6456ee80947188ea81051b8bf02a80e2839 (patch) | |
| tree | 515f1ce1954ef5fca844627cd625358c86055452 /compiler | |
| parent | 345e841d577eadf30ebca399cc4b8bfd48f9522e (diff) | |
| download | haskell-76c7a6456ee80947188ea81051b8bf02a80e2839.tar.gz | |
Use 'nonIOok' instead of 'True'; cosmetics only
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/typecheck/TcForeign.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/typecheck/TcForeign.lhs b/compiler/typecheck/TcForeign.lhs index b1dda2d715..d3a24a0630 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 -> |