This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "snap-server".

The branch, master has been updated
       via  44e84b0bab6cd681edb71b4d8e94c4249ef40b4e (commit)
      from  051fc184e6c21c57729f2da50950091ea03c3179 (commit)


Summary of changes:
 src/Snap/Internal/Http/Server/SimpleBackend.hs |   10 ----------
 1 files changed, 0 insertions(+), 10 deletions(-)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 44e84b0bab6cd681edb71b4d8e94c4249ef40b4e
Author: Gregory Collins <[email protected]>
Date:   Fri Apr 29 22:06:43 2011 +0200

    Fix -fportable.

diff --git a/src/Snap/Internal/Http/Server/SimpleBackend.hs 
b/src/Snap/Internal/Http/Server/SimpleBackend.hs
index 0175ada..5546789 100644
--- a/src/Snap/Internal/Http/Server/SimpleBackend.hs
+++ b/src/Snap/Internal/Http/Server/SimpleBackend.hs
@@ -278,13 +278,8 @@ enumerate port session sock = loop
           (Error e)      -> throwError e
 
     fd = fdSocket sock
-#ifdef PORTABLE
-    timeoutRecv = Listen.recv port sock (threadWaitRead $
-                  fromIntegral fd) session
-#else
     timeoutRecv = Listen.recv port (threadWaitRead $
                   fromIntegral fd) session
-#endif
 
 
 ------------------------------------------------------------------------------
@@ -317,10 +312,5 @@ writeOut port session sock tickle = loop
               loop
 
     fd = fdSocket sock
-#ifdef PORTABLE
-    timeoutSend = Listen.send port sock tickle
-                              (threadWaitWrite $ fromIntegral fd) session
-#else
     timeoutSend = Listen.send port tickle
                               (threadWaitWrite $ fromIntegral fd) session
-#endif
-----------------------------------------------------------------------


hooks/post-receive
-- 
snap-server
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap

Reply via email to