Fix warnings

[ghc-base.git] / include / HsBase.h

diff --git a/include/HsBase.h b/include/HsBase.h
index afbff12..c8de454 100644 (file)
--- 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