haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ensure -package lwt.syntax is not passed for executables 

Ignore-this: 3337806c6b44ce638ff9cb3d98778277

darcs-hash:20120122143643-c41ad-5471d1c391b95a8e7fbefe61a1f99b23ef541ed3
This commit is contained in:
Jeremie Dimino 2012-01-22 15:36:43 +01:00
parent cf0fde1559
commit f5663a80f4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
myocamlbuild.ml
View File

@ -30,8 +30,8 @@ let () =
tag_file tag_file
dst dst
(List.filter (List.filter
(* Remove the "file:..." tag *) (* Remove the "file:..." tag and syntax extensions. *)
(fun tag -> not (String.is_prefix "file:" tag)) (fun tag -> not (String.is_prefix "file:" tag) && not (String.is_suffix tag ".syntax"))
(Tags.elements (tags_of_pathname src)))) (Tags.elements (tags_of_pathname src))))
toplevels; toplevels;
@ -64,7 +64,7 @@ let () =
let packages = let packages =
Tags.fold Tags.fold
(fun tag packages -> (fun tag packages ->
if String.is_prefix "pkg_" tag then if String.is_prefix "pkg_" tag && not (String.is_suffix tag ".syntax") then
String.after tag 4 :: packages String.after tag 4 :: packages
else else
packages) packages)