Commit 76c7a645 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

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

parent 345e841d
...@@ -96,7 +96,7 @@ tcCheckFIType _ arg_tys res_ty (DNImport spec) = do ...@@ -96,7 +96,7 @@ tcCheckFIType _ arg_tys res_ty (DNImport spec) = do
checkCg checkDotnet checkCg checkDotnet
dflags <- getDOpts dflags <- getDOpts
checkForeignArgs (isFFIDotnetTy dflags) arg_tys 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 let (DNCallSpec isStatic kind _ _ _ _) = spec
case kind of case kind of
DNMethod | not isStatic -> DNMethod | not isStatic ->
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment