epoll-0.1: src/Util.hs

module Util (intToNum, toWord32, forkIO_) where

import Data.Word
import Control.Concurrent (forkIO)

intToNum :: (Integral a, Num b) => a -> b
intToNum = fromIntegral . toInteger

toWord32 :: Int -> Maybe Word32
toWord32 i | i < 0     = Nothing
           | otherwise = Just (fromIntegral i)

forkIO_ :: IO () -> IO ()
forkIO_ act = forkIO act >> return ()