shake-ext-2.7.0.2: src/Development/Shake/CCJS.hs

module Development.Shake.CCJS ( ccjs
                              ) where

import           Data.Semigroup
import           Development.Shake
import           Development.Shake.FilePath
import           System.Directory           (createDirectoryIfMissing)

ccjs :: [FilePath] -> FilePattern -> Rules ()
ccjs sources fp =
    fp %> \out -> do
        need sources
        (Stdout sout) <- command mempty "ccjs" (sources <> ["--externs=node"])
        liftIO $ createDirectoryIfMissing True (takeDirectory out)
        liftIO $ writeFile out sout