See <http://buildbot.snapframework.com/job/snap-server/100/changes>

Changes:

[Shu-yu Guo] Fix compilation issues with sendfile... I hope

[Shu-yu Guo] Revert previous fix, move ifdefs to backends

------------------------------------------
[...truncated 575 lines...]
                                                     conn (rspBody rsp)",
             or by using the flag -fno-warn-unused-do-bind
[18 of 18] Compiling Network.Browser  ( Network/Browser.hs, 
dist/build/Network/Browser.o )

Network/Browser.hs:1:0:
    Warning: Module `Prelude' is deprecated:
               You are using the old package `base' version 3.x.
               Future GHC versions will not support base version 3.x. You
               should update your code to use the new base version 4.x.

Network/Browser.hs:963:2:
    Warning: A do-notation statement discarded a result of type (BrowserState
                                                                   t,
                                                                 ()).
             Suppress this warning by saying "_ <- (lift (evh x)) st",
             or by using the flag -fno-warn-unused-do-bind
Registering HTTP-4000.0.9...
Installing library in /home/hudson/.cabal/lib/HTTP-4000.0.9/ghc-6.12.1
Registering HTTP-4000.0.9...
Configuring hlibev-0.2.3...
Preprocessing library hlibev-0.2.3...
Building hlibev-0.2.3...
[1 of 1] Compiling Network.Libev    ( dist/build/Network/Libev.hs, 
dist/build/Network/Libev.o )

Network/Libev.hsc:132:5:
    Warning: Defined but not used:
               type constructor or class `EvWatcherPtr'
Registering hlibev-0.2.3...
Installing library in /home/hudson/.cabal/lib/hlibev-0.2.3/ghc-6.12.1
Registering hlibev-0.2.3...
[1 of 1] Compiling Main             ( 
/tmp/network-bytestring-0.1.325746/network-bytestring-0.1.3/Setup.hs, 
/tmp/network-bytestring-0.1.325746/network-bytestring-0.1.3/dist/setup/Main.o )
Linking 
/tmp/network-bytestring-0.1.325746/network-bytestring-0.1.3/dist/setup/setup ...
Configuring network-bytestring-0.1.3...
Preprocessing library network-bytestring-0.1.3...
Building network-bytestring-0.1.3...
[1 of 5] Compiling Network.Socket.ByteString.IOVec ( 
dist/build/Network/Socket/ByteString/IOVec.hs, 
dist/build/Network/Socket/ByteString/IOVec.o )
[2 of 5] Compiling Network.Socket.ByteString.MsgHdr ( 
dist/build/Network/Socket/ByteString/MsgHdr.hs, 
dist/build/Network/Socket/ByteString/MsgHdr.o )
[3 of 5] Compiling Network.Socket.ByteString.Internal ( 
Network/Socket/ByteString/Internal.hs, 
dist/build/Network/Socket/ByteString/Internal.o )
[4 of 5] Compiling Network.Socket.ByteString ( Network/Socket/ByteString.hs, 
dist/build/Network/Socket/ByteString.o )
[5 of 5] Compiling Network.Socket.ByteString.Lazy ( 
dist/build/Network/Socket/ByteString/Lazy.hs, 
dist/build/Network/Socket/ByteString/Lazy.o )
Registering network-bytestring-0.1.3...
Installing library in
/home/hudson/.cabal/lib/network-bytestring-0.1.3/ghc-6.12.1
Registering network-bytestring-0.1.3...
Configuring sendfile-0.6.2...
Preprocessing library sendfile-0.6.2...
Building sendfile-0.6.2...
[1 of 3] Compiling Network.Socket.SendFile.Linux ( 
dist/build/Network/Socket/SendFile/Linux.hs, 
dist/build/Network/Socket/SendFile/Linux.o )
[2 of 3] Compiling Network.Socket.SendFile.Internal ( 
src/Network/Socket/SendFile/Internal.hs, 
dist/build/Network/Socket/SendFile/Internal.o )

src/Network/Socket/SendFile/Internal.hs:22:0:
    Warning: The import of `flushWriteBuffer'
             from module `GHC.IO.Handle.Internals' is redundant

src/Network/Socket/SendFile/Internal.hs:23:0:
    Warning: The import of `HandleType'
             from module `GHC.IO.Handle.Types' is redundant
[3 of 3] Compiling Network.Socket.SendFile ( src/Network/Socket/SendFile.hs, 
dist/build/Network/Socket/SendFile.o )
Registering sendfile-0.6.2...
Installing library in /home/hudson/.cabal/lib/sendfile-0.6.2/ghc-6.12.1
Registering sendfile-0.6.2...
Configuring snap-server-testsuite-0.1.1...
Warning: 'hs-source-dirs: ../src' is a relative path outside of the source
tree. This will not work when generating a tarball with 'sdist'.
Warning: 'hs-source-dirs: ../src' is a relative path outside of the source
tree. This will not work when generating a tarball with 'sdist'.
Warning: 'hs-source-dirs: ../src' is a relative path outside of the source
tree. This will not work when generating a tarball with 'sdist'.
Preprocessing executables for snap-server-testsuite-0.1.1...
Building snap-server-testsuite-0.1.1...
[ 1 of 10] Compiling Snap.Test.Common ( suite/Snap/Test/Common.hs, 
dist/build/testsuite/testsuite-tmp/Snap/Test/Common.o )

suite/Snap/Test/Common.hs:10:0:
    Warning: The import of `Test.QuickCheck.Gen' is redundant
               except perhaps to import instances from `Test.QuickCheck.Gen'
             To import instances alone, use: import Test.QuickCheck.Gen()
[ 2 of 10] Compiling Paths_snap_server ( suite/Paths_snap_server.hs, 
dist/build/testsuite/testsuite-tmp/Paths_snap_server.o )
[ 3 of 10] Compiling Snap.Internal.Http.Server.Date ( 
../src/Snap/Internal/Http/Server/Date.hs, 
dist/build/testsuite/testsuite-tmp/Snap/Internal/Http/Server/Date.o )
[ 4 of 10] Compiling Snap.Internal.Http.Server.LibevBackend ( 
../src/Snap/Internal/Http/Server/LibevBackend.hs, 
dist/build/testsuite/testsuite-tmp/Snap/Internal/Http/Server/LibevBackend.o )
[ 5 of 10] Compiling System.FastLogger ( ../src/System/FastLogger.hs, 
dist/build/testsuite/testsuite-tmp/System/FastLogger.o )
[ 6 of 10] Compiling Snap.Internal.Http.Parser ( 
../src/Snap/Internal/Http/Parser.hs, 
dist/build/testsuite/testsuite-tmp/Snap/Internal/Http/Parser.o )
[ 7 of 10] Compiling Snap.Internal.Http.Parser.Tests ( 
suite/Snap/Internal/Http/Parser/Tests.hs, 
dist/build/testsuite/testsuite-tmp/Snap/Internal/Http/Parser/Tests.o )

suite/Snap/Internal/Http/Parser/Tests.hs:181:8:
    Warning: Defined but not used: `buf'

suite/Snap/Internal/Http/Parser/Tests.hs:220:8:
    Warning: Defined but not used: `buf'

suite/Snap/Internal/Http/Parser/Tests.hs:261:8:
    Warning: Defined but not used: `buf'

suite/Snap/Internal/Http/Parser/Tests.hs:302:8:
    Warning: Defined but not used: `buf'
[ 8 of 10] Compiling Snap.Internal.Http.Server ( 
../src/Snap/Internal/Http/Server.hs, 
dist/build/testsuite/testsuite-tmp/Snap/Internal/Http/Server.o )
[ 9 of 10] Compiling Snap.Internal.Http.Server.Tests ( 
suite/Snap/Internal/Http/Server/Tests.hs, 
dist/build/testsuite/testsuite-tmp/Snap/Internal/Http/Server/Tests.o )

suite/Snap/Internal/Http/Server/Tests.hs:301:64:
    Couldn't match expected type `Int -> IO (WrappedByteString Word8)'
           against inferred type `IO (WrappedByteString Word8)'
    In the fifth argument of `sendResponse', namely `onSendFile'
    In the first argument of `(>>=)', namely
        `sendResponse rsp1 copyingStream2stream buf (return ()) onSendFile'
    In the second argument of `($)', namely
        `sendResponse rsp1 copyingStream2stream buf (return ()) onSendFile
       >>= return . fromWrap . snd'

suite/Snap/Internal/Http/Server/Tests.hs:327:65:
    Couldn't match expected type `Int -> IO (WrappedByteString Word8)'
           against inferred type `IO (WrappedByteString Word8)'
    In the fifth argument of `sendResponse', namely `onSendFile'
    In the first argument of `(>>=)', namely
        `sendResponse rsp2 copyingStream2stream buf (return ()) onSendFile'
    In the second argument of `($)', namely
        `sendResponse rsp2 copyingStream2stream buf (return ()) onSendFile
       >>= return . fromWrap . snd'

suite/Snap/Internal/Http/Server/Tests.hs:353:65:
    Couldn't match expected type `Int -> IO (WrappedByteString Word8)'
           against inferred type `IO (WrappedByteString Word8)'
    In the fifth argument of `sendResponse', namely `onSendFile'
    In the first argument of `(>>=)', namely
        `sendResponse rsp3 copyingStream2stream buf (return ()) onSendFile'
    In the second argument of `($)', namely
        `sendResponse rsp3 copyingStream2stream buf (return ()) onSendFile
       >>= return . fromWrap . snd'

suite/Snap/Internal/Http/Server/Tests.hs:416:42:
    Couldn't match expected type `Int -> IO ()'
           against inferred type `IO ()'
    In the 10th argument of `runHTTP', namely `onSendFile'
    In a stmt of a 'do' expression:
        runHTTP
          "localhost"
          "127.0.0.1"
          80
          "127.0.0.1"
          58384
          Nothing
          Nothing
          enumBody
          iter
          onSendFile
          (return ())
          echoServer
    In the second argument of `($)', namely
        `do { let enumBody = enumBS sampleRequest >. enumBS sampleRequest2;
              ref <- newIORef "";
              let (iter, onSendFile) = mkIter ref;
              runHTTP
                "localhost"
                "127.0.0.1"
                80
                "127.0.0.1"
                58384
                Nothing
                Nothing
                enumBody
                iter
                onSendFile
                (return ())
                echoServer;
              .... }'

suite/Snap/Internal/Http/Server/Tests.hs:461:42:
    Couldn't match expected type `Int -> IO ()'
           against inferred type `IO ()'
    In the 10th argument of `runHTTP', namely `onSendFile'
    In a stmt of a 'do' expression:
        runHTTP
          "localhost"
          "127.0.0.1"
          80
          "127.0.0.1"
          58384
          Nothing
          Nothing
          enumBody
          iter
          onSendFile
          (return ())
          f
    In the second argument of `($)', namely
        `do { let enumBody = enumBS sampleRequest1_0;
              ref <- newIORef "";
              let (iter, onSendFile) = mkIter ref;
              runHTTP
                "localhost"
                "127.0.0.1"
                80
                "127.0.0.1"
                58384
                Nothing
                Nothing
                enumBody
                iter
                onSendFile
                (return ())
                f;
              .... }'

suite/Snap/Internal/Http/Server/Tests.hs:509:12:
    Couldn't match expected type `Int -> IO ()'
           against inferred type `IO ()'
    In the 10th argument of `runHTTP', namely `onSendFile'
    In a stmt of a 'do' expression:
        runHTTP
          "localhost"
          "127.0.0.1"
          80
          "127.0.0.1"
          58384
          Nothing
          Nothing
          enumBody
          iter
          onSendFile
          (return ())
          echoServer2
    In the second argument of `($)', namely
        `do { let enumBody = enumBS sampleRequest4
                           >.
                             enumBS sampleRequest2;
              ref <- newIORef "";
              let (iter, onSendFile) = mkIter ref;
              runHTTP
                "localhost"
                "127.0.0.1"
                80
                "127.0.0.1"
                58384
                Nothing
                Nothing
                enumBody
                iter
                onSendFile
                (return ())
                echoServer2;
              .... }'
cabal: Error: some packages failed to install:
snap-server-testsuite-0.1.1 failed during the building phase. The exception
was:
ExitFailure 1
Publishing Javadoc
Recording test results
[htmlpublisher] Archiving HTML reports...
[htmlpublisher] Archiving at PROJECT level 
<http://buildbot.snapframework.com/job/snap-server/ws/test/dist/hpc> to 
/home/hudson/data/jobs/snap-server/htmlreports/HTML_Report
ERROR: Specified HTML directory 
'<http://buildbot.snapframework.com/job/snap-server/ws/test/dist/hpc'> does not 
exist.


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

Reply via email to