Correct promote-until-clean atom

This commit is contained in:
David Allsopp 2018-01-26 16:51:28 +00:00
parent 437211f74f
commit b6eec7a33d
1 changed files with 4 additions and 4 deletions

View File

@ -741,10 +741,10 @@ module Rule = struct
let t =
enum
[ "standard" , Standard
; "fallback" , Fallback
; "promote" , Promote
; "promote-unil-clean", Promote_but_delete_on_clean
[ "standard" , Standard
; "fallback" , Fallback
; "promote" , Promote
; "promote-until-clean", Promote_but_delete_on_clean
]
let field = field "mode" t ~default:Standard