[project @ 2003-12-15 17:59:05 by panne]

[ghc-base.git] / cbits / inputReady.c

diff --git a/cbits/inputReady.c b/cbits/inputReady.c
index 8677f26..30e140b 100644 (file)
--- a/cbits/inputReady.c
+++ b/cbits/inputReady.c
@@ -34,7 +34,7 @@ inputReady(int fd, int msecs, int isSock)
         */
        maxfd = fd + 1;
        tv.tv_sec  = msecs / 1000;
-       tv.tv_usec = msecs % 1000;
+       tv.tv_usec = (msecs % 1000) * 1000;
        
        while ((ready = select(maxfd, &rfd, NULL, NULL, &tv)) < 0 ) {
            if (errno != EINTR ) {