Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[fix] bsljsparse: read @noProjection right.

  • Loading branch information...
commit 8b2ebf23baa632acdd27929c69eb97c61b70a5da 1 parent 81febd0
Arthur Azevedo de Amorim arthuraa authored
Showing with 6 additions and 1 deletion.
  1. +6 −1 compiler/libbsl/bslJsParse.ml
7 compiler/libbsl/bslJsParse.ml
View
@@ -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)}
Please sign in to comment.
Something went wrong with that request. Please try again.