module Link
( link
) where

import System.Process (runProcess, waitForProcess)

link :: [String] -> String -> IO ()
link objects output = do
    _ <- waitForProcess =<< runProcess "gcc" (objects ++ ["-o", output]) Nothing Nothing Nothing Nothing Nothing
    return ()
