Shake .min.js build system

Shakefile.hs

{-# LANGUAGE DeriveDataTypeable, GeneralizedNewtypeDeriving #-}

module Temp where

import Development.Shake
import Development.Shake.Classes
import Development.Shake.FilePath
import Data.Char


newtype JsFiles = JsFiles () deriving (Show,Typeable,Eq,Hashable,Binary,NFData)


main = shakeArgs shakeOptions $ do
    want ["tester/bundle.jsz"]

    "//*.min.js" *> \out -> do
        putNormal "Running minimizer"
        let src = dropExtension out -<.> "js"
        writeFile' out . filter (not . isSpace) =<< readFile' src

    jsFiles <- addOracle $ \(JsFiles _) ->
        fmap (filter $ \x -> takeExtensions x == ".js") $ getDirectoryFiles "" ["tester//*.js"]

    "//*.jsz" *> \out -> do
        putNormal "Running compressor"
        js <- jsFiles $ JsFiles ()
        let mjs = map (-<.> "min.js") js
        need mjs
        writeFile' out . unlines =<< mapM readFile' mjs