It looks like you want SOCK_RAW, not AF_RAW. GHC does support this, with the 'Raw' socket type, something like this:

proto <- getProtocolByName "icmp" s <- socket AF_INT Raw proto

should be: s <- socket AF_INET Raw (protoNumber proto) and of course you have to be root to send raw packets to the network. Cheers, Simon