{-# LANGUAGE UnicodeSyntax #-}
module Control.Eternal.System.Exec
  ( exec
  , exc
  ) where

import System.Directory (setCurrentDirectory)
import System.Process (waitForProcess)
import System.Cmd (system)

import Control.Eternal.Syntax

exec :: String → IO()
exec args = system args ≫ return ()

exc :: String → String → IO()
exc path args = setCurrentDirectory path ≫ exec args