Commit f6848710 authored by Vlad Dumitru's avatar Vlad Dumitru
Browse files

solve tier naming funkyness

parent f80b0b26
......@@ -35,10 +35,10 @@ let get_textgrid ~db ~tiers =
List.map tiers ~f:(fun (uuid, version) ->
let open Result.Monad_infix in
get_tier (uuid, version)
>>| fun tier ->
let name = Annotation.Tier.name tier.data in
>>| fun doc ->
let name = List.last_exn doc.key in
let info = Speechcake.Info.known ~uuid ~parents:[version] name in
let tier = Speechcake.stamp info tier.data in
let tier = Speechcake.stamp info doc.data in
None, tier)
|> Result.combine_errors in
match tiers with
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment