vdorr

{-# LANGUAGE ForeignFunctionInterface  #-} 

module RawSocket where

import Foreign.C
import Network.Socket

foreign import ccall "setsockopt"
    setsockopt_cstr :: CInt -> CInt -> CInt -> CString -> CInt -> IO CInt

vdorr

-- important: compile with -threaded

import Control.Concurrent.STM
import Control.Applicative

-- |Wait for STM action specified amount of time and return value of action or default value if action times out
stmTimeout' :: Int -> a -> STM a -> IO a
stmTimeout' microseconds defVal f
	= registerDelay microseconds

vdorr

{-# LANGUAGE RankNTypes #-}

-- |Maybe without algebraic data types and typeclasses, including monadic ops

newtype Maybe' a = Maybe' (forall b. b -> (a -> b) -> b)

just' :: a -> Maybe' a
nothing' :: Maybe' a
fromMaybe' :: a -> Maybe' a -> a
maybe' :: b -> (a -> b) -> Maybe' a -> b