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

View File

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