FilesExpand file tree

master

/

clean.ml

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

29 lines (22 loc) · 719 Bytes

master

/

clean.ml

Copy path

Top

File metadata and controls

• Code
• Blame

29 lines (22 loc) · 719 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

(* [@@@bs.config{no_export}] *)

module Fs = Node.Fs

let clean () =

match [%node __dirname] with

| Some dir ->

let bin_dir = Node.Path.join [|dir ; ".."; "bin"|] in

let files = Fs.readdirSync bin_dir in

Js.log ("cleaning now", files);

files |> Js.Array.forEach (fun f ->

if (not @@ Js.String.startsWith "bs" f

&& f <> ".gitignore" && f <> "ninja.exe")

then

let p = Node.Path.join [| bin_dir; f|] in

try

Js.log ("removing", p, "now");

Fs.unlinkSync p

with _ -> Js.log ("removing", p, "failure")

);

| None -> assert false

(* local variables: *)

(* compile-command: "bscc -c clean.ml" *)

(* end: *)