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

Fix myocamlbuild expunge code that broke after 0.3->0.4 OASIS migration.

This commit is contained in:
Peter Zotov 2014-10-20 19:53:18 +04:00
parent 789417bfce
commit c1bcb5abc5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
myocamlbuild.ml
View File

@ -57,8 +57,8 @@ let () =
let packages = let packages =
Tags.fold Tags.fold
(fun tag packages -> (fun tag packages ->
if String.is_prefix "pkg_" tag && not (String.is_suffix tag ".syntax") then if String.is_prefix "package(" tag then
String.after tag 4 :: packages String.sub tag 8 (String.length tag - 9) :: packages
else else
packages) packages)
(tags_of_pathname "src/top/uTop_top.byte") (tags_of_pathname "src/top/uTop_top.byte")