Skip to content

Instantly share code, notes, and snippets.

@wcauchois
Created January 14, 2012 23:08
Show Gist options
  • Save wcauchois/1613294 to your computer and use it in GitHub Desktop.
Save wcauchois/1613294 to your computer and use it in GitHub Desktop.
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment