X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=include%2FHsBase.h;fp=include%2FHsBase.h;h=c8de4546b824b4dfdd8354ea94de688a3fcbd0e2;hb=cff68443bca2341d0ea62f7bd75d01eab2024202;hp=afbff123b480d9ed7d56ba21b7d7b146df01a6ab;hpb=45a54fd09e281c1b4eef3b610e90ea04e1def9b2;p=ghc-base.git

diff --git a/include/HsBase.h b/include/HsBase.h
index afbff12..c8de454 100644
--- a/include/HsBase.h
+++ b/include/HsBase.h
@@ -770,13 +770,13 @@ void debugBelch2(const char*s, char *t);
 #if !defined(mingw32_HOST_OS) && !defined(__MINGW32__)
 
 INLINE int fcntl_read(int fd, int cmd) {
-    fcntl(fd, cmd);
+    return fcntl(fd, cmd);
 }
 INLINE int fcntl_write(int fd, int cmd, long arg) {
-    fcntl(fd, cmd, arg);
+    return fcntl(fd, cmd, arg);
 }
 INLINE int fcntl_lock(int fd, int cmd, struct flock *lock) {
-    fcntl(fd, cmd, lock);
+    return fcntl(fd, cmd, lock);
 }
 
 #endif