matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use proper sum type wrapped.t 

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-08-29 15:00:21 +03:00
parent f9ad608e8c
commit d0b937c25e
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/dune_file.ml
View File

@ -865,11 +865,11 @@ module Library = struct
| Yes_with_transition of string | Yes_with_transition of string
let dparse = let dparse =
if_list sum
~then_:( [ "true", return (Simple true)
Syntax.since Stanza.syntax (1, 2) >>= fun () -> ; "false", return (Simple false)
sum ["transition", string >>| fun x -> Yes_with_transition x]) ; "transition", string >>| fun x -> Yes_with_transition x
~else_:(bool >>| fun w -> Simple w) ]
let field = field "wrapped" ~default:(Simple true) dparse let field = field "wrapped" ~default:(Simple true) dparse