gistfile1.txt

Network/HTTP/Server.hs:127:7:
    Couldn't match expected type `IO b'
           against inferred type `Socket -> b1'
    In a stmt of a 'do' expression: conn <- socketConnection name sock
    In the expression:
        do { let name = ppSockAddr addr "";
             logInfo lg 0 ("Accepted connection from " ++ name);
             conn <- socketConnection name sock;
             setStreamHooks
               conn
               (nullHooks
                  {hook_close = logInfo
                                  lg 0 ("Closing  connection to " ++ ppSockAddr addr "")});
             .... }
    In the definition of `client':
        client sock addr
                 = do { let name = ...;
                        logInfo lg 0 ("Accepted connection from " ++ name);
                        conn <- socketConnection name sock;
                        .... }
cabal: Error: some packages failed to install:
http-server-1 failed during the building phase. The exception was:
ExitFailure 1