main :: IO ()
main = do
	args <- getArgs
	-- Parse options, getting a list of option actions
	let (actions, _, _) = getOpt RequireOrder options args
	opts <- foldl (>>=) (return startOptions) actions
	hlockx (optSLock opts) (optTimeout opts) (optKiosk opts)
main :: IO ()
main = do
	args <- getArgs
	-- Parse options, getting a list of option actions
	let (actions, _, _) = getOpt RequireOrder options args
	opts <- foldl (>>=) (return startOptions) actions
	hlockx (optSLock opts) (optTimeout opts) (optKiosk opts)
main = do
	args <- getArgs
	-- Parse options, getting a list of option actions
	let (actions, _, _) = getOpt RequireOrder options args
	opts <- foldl (>>=) (return startOptions) actions
	hlockx (optSLock opts) (optTimeout opts) (optKiosk opts)