Skip to content

Instantly share code, notes, and snippets.

@saurabhnanda
Created June 5, 2020 06:48
Show Gist options
  • Save saurabhnanda/835b359f7996a9459ac9101c1d087f4f to your computer and use it in GitHub Desktop.
Save saurabhnanda/835b359f7996a9459ac9101c1d087f4f to your computer and use it in GitHub Desktop.
let elmApps = [("File1.elm", "File1.js"), ("File2.elm", "File2.js")]
(buildDir </> "elm-apps.shake") %> \out -> do
srcFiles <- getDirectoryFiles "" ["elm-ui/src//*.elm"]
need ("elm-ui/elm-package.json":srcFiles)
forM_ elmApps $ \(elmSrc, outFile) -> do
cmd_ (Cwd "elm-ui") ["elm-make", "--output", "../dist" </> outFile, "--yes", "src" </> elmSrc]
cmd_ (Cwd "elm-ui") ["gulp", "checksum", "../dist"]
writeFile' out ""
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment