Resolving dependencies...
Configuring hans-2.4.0.0...
cabal: No 'main-is' field found for executable tcp-test-client
Failed to install hans-2.4.0.0
cabal: Error: some packages failed to install:
hans-2.4.0.0 failed during the configure step. The exception was:
ExitFailure 1

import Hans.Address.IP4
import Hans.Device.Xen
import Hans.DhcpClient
import Hans.Layer.Dns(DnsException)
import qualified Hans.NetworkStack as NS

import Network.Socket
import Network.Socket.Internal(setNetworkHansStack)
import Control.Monad
import Control.Concurrent
import System.IO

import Hypervisor.Debug
import Hypervisor.Console
import Hypervisor.XenStore
import XenDevice.NIC

main = do
  con <- initXenConsole

  xs <- initXenStore
  nics <- listNICs xs
  let macstr = head nics
      mac = read macstr

  ns <- NS.newNetworkStack
  nic <- openNIC xs macstr
  NS.addDevice ns mac (xenSend nic) (xenReceiveLoop nic)
  NS.deviceUp ns mac

  ipMV <- newEmptyMVar
  dhcpDiscover ns mac (putMVar ipMV)
  ipaddr <- takeMVar ipMV

  setNetworkHansStack ns

  addr:_ <- getAddrInfo (Just defaultHints) (Just $ show ipaddr) (Just "2222")
  ssock <- socket (addrFamily addr) Stream defaultProtocol
  bind ssock (addrAddress addr)
  listen ssock 5
  writeDebugConsole $ "listen on " ++ show (addrAddress addr) ++ "\n"

  forkIO $ do
    (connsock, caddr) <- accept ssock
    writeDebugConsole $ "connection from " ++ show caddr ++ "\n"
    h <- socketToHandle connsock WriteMode
    hPutStrLn h "hello, world"
    hClose h
    close ssock

  threadDelay 500000
  -- NS.startTcpLayer ns
  csock <- NS.connect ns ipaddr (fromIntegral 2222) Nothing
  writeDebugConsole "csock created\n"

{-
  csock <- socket (addrFamily addr) Stream defaultProtocol
  connect csock (addrAddress addr)
  h <- socketToHandle csock ReadMode
  msg <- hGetLine h
  hClose h
  writeDebugConsole msg
-}

case trimSeg (fromTcpSeqNum (segEnd x - segStart y)) x of

case trimSeg (fromTcpSeqNum (segEnd x - segStart y)) y of

Just x' -> [x', y]

Just y' -> [x, y']