guide/Setup.hs

import Distribution.Simple
import System.Process

main = do
  hooks <- buildJS simpleUserHooks
  defaultMainWithHooks hooks

buildJS hooks = do
  let originalPostBuild = postBuild hooks
  return $ hooks {
    postBuild = \args flags pkgDesc localBuildInfo  -> do
      let npmbuild = proc "sh" ["./scripts/buildjs.sh"]
      (_, _, _, buildHandle) <- createProcess npmbuild
      waitForProcess buildHandle
      originalPostBuild args flags pkgDesc localBuildInfo
  }