Formatting tweaks

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-07-05 23:36:04 +07:00
parent f121a1546e
commit 7fbe0bc172
1 changed files with 12 additions and 10 deletions

View File

@ -326,21 +326,23 @@ module Dep_conf = struct
open Sexp open Sexp
let sexp_of_t = function let sexp_of_t = function
| File t -> | File t ->
List [Sexp.unsafe_atom_of_string "file" ; String_with_vars.sexp_of_t t] List [ Sexp.unsafe_atom_of_string "file"
; String_with_vars.sexp_of_t t ]
| Alias t -> | Alias t ->
List [Sexp.unsafe_atom_of_string "alias" ; String_with_vars.sexp_of_t t] List [ Sexp.unsafe_atom_of_string "alias"
; String_with_vars.sexp_of_t t ]
| Alias_rec t -> | Alias_rec t ->
List [Sexp.unsafe_atom_of_string "alias_rec" ; List [ Sexp.unsafe_atom_of_string "alias_rec"
String_with_vars.sexp_of_t t] ; String_with_vars.sexp_of_t t ]
| Glob_files t -> | Glob_files t ->
List [Sexp.unsafe_atom_of_string "glob_files" ; List [ Sexp.unsafe_atom_of_string "glob_files"
String_with_vars.sexp_of_t t] ; String_with_vars.sexp_of_t t ]
| Source_tree t -> | Source_tree t ->
List [Sexp.unsafe_atom_of_string "files_recursively_in" ; List [ Sexp.unsafe_atom_of_string "files_recursively_in"
String_with_vars.sexp_of_t t] ; String_with_vars.sexp_of_t t ]
| Package t -> | Package t ->
List [Sexp.unsafe_atom_of_string "package" ; List [ Sexp.unsafe_atom_of_string "package"
String_with_vars.sexp_of_t t] ; String_with_vars.sexp_of_t t]
| Universe -> | Universe ->
Sexp.unsafe_atom_of_string "universe" Sexp.unsafe_atom_of_string "universe"
end end