From: Ian Lynagh <igloo@earth.li>
Date: Sat, 23 May 2009 22:45:08 +0000 (+0000)
Subject: Fix warnings
X-Git-Tag: 2009-06-25~31
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cff68443bca2341d0ea62f7bd75d01eab2024202;p=ghc-base.git

Fix warnings
---

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