Miniflux and Woodpecker (#13)

This commit is contained in:
Patrick Stevens
2023-07-20 13:21:41 +01:00
committed by GitHub
parent d08cf9bec3
commit 8218d37a15
18 changed files with 250 additions and 62 deletions

View File

@@ -97,18 +97,24 @@ type WellKnownSubdomain =
| Nextcloud
| Gitea
| Radicale
| Rss
| Woodpecker
override this.ToString () =
match this with
| Nextcloud -> "nextcloud"
| Gitea -> "gitea"
| Radicale -> "calendar"
| Rss -> "rss"
| Woodpecker -> "woodpecker"
static member Parse (s : string) =
match s with
| "nextcloud" -> WellKnownSubdomain.Nextcloud
| "gitea" -> WellKnownSubdomain.Gitea
| "calendar" -> WellKnownSubdomain.Radicale
| "rss" -> WellKnownSubdomain.Rss
| "woodpecker" -> WellKnownSubdomain.Woodpecker
| _ -> failwith $"Failed to deserialise: {s}"