{-# LANGUAGE ScopedTypeVariables #-}

module NetRoutines where

import Network.Socket

import System.IO

import Control.Concurrent.Chan

import qualified Control.Exception as Exception

import Data.Time

-----------------------------

import CoreTypes

import Utils

    Exception.handle

        (\(_ :: Exception.IOException) -> putStrLn "exception on connect") $

        do

        hSetBuffering cHandle LineBuffering

        clientHost <- sockAddr2String sockAddr

        currentTime <- getCurrentTime

        let newClient =

                (ClientInfo

                    cHandle

                    clientHost

                    currentTime

                    ""

                    ""

                    False

                    0

                    0

                    0

                    False

                    False

                    False

                    undefined

                    undefined

                    )

        return ()