beautify :: Text -> IO Text
beautify src = do
  result <- readAllFromProcess "/home/chris/Projects/js-beautify/python/js-beautify"
                               ["-i","-s","2","-d","-w","80"]
                               src
  case result of
    Left err -> error (T.unpack err)
    Right (_,out) -> return out

-- | Compress the given JS with Closure with advanced compilation.
beautify :: Text -> IO Text
beautify src = do
  result <- readAllFromProcess "/home/chris/Projects/js-beautify/python/js-beautify"
                               ["-i","-s","2","-d","-w","80"]
                               src
  case result of
    Left err -> error (T.unpack err)
    Right (_,out) -> return out

-- | Compress the given JS with Closure with advanced compilation.
beautify src = do
  result <- readAllFromProcess "/home/chris/Projects/js-beautify/python/js-beautify"
                               ["-i","-s","2","-d","-w","80"]
                               src
  case result of
    Left err -> error (T.unpack err)
    Right (_,out) -> return out

-- | Compress the given JS with Closure with advanced compilation.