Permalink
Browse files

[fix] bsljsparse: read @noProjection right.

  • Loading branch information...
1 parent 81febd0 commit 8b2ebf23baa632acdd27929c69eb97c61b70a5da @arthuraa arthuraa committed Aug 28, 2012
Showing with 6 additions and 1 deletion.
  1. +6 −1 compiler/libbsl/bslJsParse.ml
@@ -104,7 +104,12 @@ let collect_bsl_tags tags =
(* List of tags, their formats and how they update a BslTags.t *)
let updates = [
strings "noProjection" (fun t v ->
- {t with BslTags.no_projection = Some (StringSet.from_list v)}
+ let tags =
+ if List.is_empty v then
+ None
+ else
+ Some (StringSet.from_list v) in
+ {t with BslTags.no_projection = tags}
);
strings "backend" (fun t v ->
{t with BslTags.backend_restriction = Some (StringSet.from_list v)}

0 comments on commit 8b2ebf2

Please sign in to comment.