Add chapter data type (#6)

2023-07-31 22:17:14 -04:00
parent 79c304493c
commit b84a0f711f
3 changed files with 42 additions and 0 deletions
--- a/src/MyWebLog.Domain/ViewModels.fs
+++ b/src/MyWebLog.Domain/ViewModels.fs
@@ -788,6 +788,7 @@ type EditPostModel =
                            ImageUrl           = noneIfBlank this.ImageUrl
                            Subtitle           = noneIfBlank this.Subtitle
                            Explicit           = noneIfBlank this.Explicit |> Option.map ExplicitRating.parse
+                            Chapters           = match post.Episode with Some e -> e.Chapters | None -> None
                            ChapterFile        = noneIfBlank this.ChapterFile
                            ChapterType        = noneIfBlank this.ChapterType
                            TranscriptUrl      = noneIfBlank this.TranscriptUrl