246 lines
13 KiB
FSharp
246 lines
13 KiB
FSharp
/// <summary>Converters for discriminated union types</summary>
|
|
module MyWebLog.Converters
|
|
|
|
open MyWebLog
|
|
open System
|
|
|
|
/// <summary>JSON.NET converters for discriminated union types</summary>
|
|
module Json =
|
|
|
|
open Newtonsoft.Json
|
|
|
|
/// <summary>Converter for the <see cref="AutoHtmxType" /> type</summary>
|
|
type AutoHtmxTypeConverter() =
|
|
inherit JsonConverter<AutoHtmxType>()
|
|
override _.WriteJson(writer: JsonWriter, value: AutoHtmxType, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: AutoHtmxType, _: bool, _: JsonSerializer) =
|
|
// Backups prior to v3 will still have true/false for this field
|
|
match reader.TokenType with
|
|
| JsonToken.Boolean -> if reader.Value :?> bool then AutoHtmx else NoAutoHtmx
|
|
| _ -> (string >> AutoHtmxType.Parse) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="CategoryId" /> type</summary>
|
|
type CategoryIdConverter() =
|
|
inherit JsonConverter<CategoryId>()
|
|
override _.WriteJson(writer: JsonWriter, value: CategoryId, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: CategoryId, _: bool, _: JsonSerializer) =
|
|
(string >> CategoryId) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="CommentId" /> type</summary>
|
|
type CommentIdConverter() =
|
|
inherit JsonConverter<CommentId>()
|
|
override _.WriteJson(writer: JsonWriter, value: CommentId, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: CommentId, _: bool, _: JsonSerializer) =
|
|
(string >> CommentId) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="CommentStatus" /> type</summary>
|
|
type CommentStatusConverter() =
|
|
inherit JsonConverter<CommentStatus>()
|
|
override _.WriteJson(writer: JsonWriter, value: CommentStatus, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: CommentStatus, _: bool, _: JsonSerializer) =
|
|
(string >> CommentStatus.Parse) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="CustomFeedId" /> type</summary>
|
|
type CustomFeedIdConverter() =
|
|
inherit JsonConverter<CustomFeedId>()
|
|
override _.WriteJson(writer: JsonWriter, value: CustomFeedId, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: CustomFeedId, _: bool, _: JsonSerializer) =
|
|
(string >> CustomFeedId) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="CustomFeedSource" /> type</summary>
|
|
type CustomFeedSourceConverter() =
|
|
inherit JsonConverter<CustomFeedSource>()
|
|
override _.WriteJson(writer: JsonWriter, value: CustomFeedSource, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: CustomFeedSource, _: bool, _: JsonSerializer) =
|
|
(string >> CustomFeedSource.Parse) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="ExplicitRating" /> type</summary>
|
|
type ExplicitRatingConverter() =
|
|
inherit JsonConverter<ExplicitRating>()
|
|
override _.WriteJson(writer: JsonWriter, value: ExplicitRating, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: ExplicitRating, _: bool, _: JsonSerializer) =
|
|
(string >> ExplicitRating.Parse) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="MarkupText" /> type</summary>
|
|
type MarkupTextConverter() =
|
|
inherit JsonConverter<MarkupText>()
|
|
override _.WriteJson(writer: JsonWriter, value: MarkupText, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: MarkupText, _: bool, _: JsonSerializer) =
|
|
(string >> MarkupText.Parse) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="OpenGraphType" /> type</summary>
|
|
type OpenGraphTypeConverter() =
|
|
inherit JsonConverter<OpenGraphType>()
|
|
override _.WriteJson(writer: JsonWriter, value: OpenGraphType, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: OpenGraphType, _: bool, _: JsonSerializer) =
|
|
(string >> OpenGraphType.Parse) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="PageId" /> type</summary>
|
|
type PageIdConverter() =
|
|
inherit JsonConverter<PageId>()
|
|
override _.WriteJson(writer: JsonWriter, value: PageId, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: PageId, _: bool, _: JsonSerializer) =
|
|
(string >> PageId) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="Permalink" /> type</summary>
|
|
type PermalinkConverter() =
|
|
inherit JsonConverter<Permalink>()
|
|
override _.WriteJson(writer: JsonWriter, value: Permalink, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: Permalink, _: bool, _: JsonSerializer) =
|
|
(string >> Permalink) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="PersonGroup" /> type</summary>
|
|
type PersonGroupConverter() =
|
|
inherit JsonConverter<PersonGroup>()
|
|
override _.WriteJson(writer: JsonWriter, value: PersonGroup, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: PersonGroup, _: bool, _: JsonSerializer) =
|
|
(string >> PersonGroup.Parse) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="PersonRole" /> type</summary>
|
|
type PersonRoleConverter() =
|
|
inherit JsonConverter<PersonRole>()
|
|
override _.WriteJson(writer: JsonWriter, value: PersonRole, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: PersonRole, _: bool, _: JsonSerializer) =
|
|
(string >> PersonRole.Parse) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="PodcastMedium" /> type</summary>
|
|
type PodcastMediumConverter() =
|
|
inherit JsonConverter<PodcastMedium>()
|
|
override _.WriteJson(writer: JsonWriter, value: PodcastMedium, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: PodcastMedium, _: bool, _: JsonSerializer) =
|
|
(string >> PodcastMedium.Parse) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="PostId" /> type</summary>
|
|
type PostIdConverter() =
|
|
inherit JsonConverter<PostId>()
|
|
override _.WriteJson(writer: JsonWriter, value: PostId, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: PostId, _: bool, _: JsonSerializer) =
|
|
(string >> PostId) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="TagMapId" /> type</summary>
|
|
type TagMapIdConverter() =
|
|
inherit JsonConverter<TagMapId>()
|
|
override _.WriteJson(writer: JsonWriter, value: TagMapId, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: TagMapId, _: bool, _: JsonSerializer) =
|
|
(string >> TagMapId) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="ThemeAssetId" /> type</summary>
|
|
type ThemeAssetIdConverter() =
|
|
inherit JsonConverter<ThemeAssetId>()
|
|
override _.WriteJson(writer: JsonWriter, value: ThemeAssetId, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: ThemeAssetId, _: bool, _: JsonSerializer) =
|
|
(string >> ThemeAssetId.Parse) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="ThemeId" /> type</summary>
|
|
type ThemeIdConverter() =
|
|
inherit JsonConverter<ThemeId>()
|
|
override _.WriteJson(writer: JsonWriter, value: ThemeId, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: ThemeId, _: bool, _: JsonSerializer) =
|
|
(string >> ThemeId) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="UploadId" /> type</summary>
|
|
type UploadIdConverter() =
|
|
inherit JsonConverter<UploadId>()
|
|
override _.WriteJson(writer: JsonWriter, value: UploadId, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: UploadId, _: bool, _: JsonSerializer) =
|
|
(string >> UploadId) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="WebLogId" /> type</summary>
|
|
type WebLogIdConverter() =
|
|
inherit JsonConverter<WebLogId>()
|
|
override _.WriteJson(writer: JsonWriter, value: WebLogId, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: WebLogId, _: bool, _: JsonSerializer) =
|
|
(string >> WebLogId) reader.Value
|
|
|
|
/// <summary>Converter for the <see cref="WebLogUserId" /> type</summary>
|
|
type WebLogUserIdConverter() =
|
|
inherit JsonConverter<WebLogUserId> ()
|
|
override _.WriteJson(writer: JsonWriter, value: WebLogUserId, _: JsonSerializer) =
|
|
writer.WriteValue(string value)
|
|
override _.ReadJson(reader: JsonReader, _: Type, _: WebLogUserId, _: bool, _: JsonSerializer) =
|
|
(string >> WebLogUserId) reader.Value
|
|
|
|
open Microsoft.FSharpLu.Json
|
|
open NodaTime
|
|
open NodaTime.Serialization.JsonNet
|
|
|
|
/// <summary>Configure a serializer to use these converters (and other settings)</summary>
|
|
let configure (ser: JsonSerializer) =
|
|
// Our converters
|
|
[ AutoHtmxTypeConverter() :> JsonConverter
|
|
CategoryIdConverter()
|
|
CommentIdConverter()
|
|
CommentStatusConverter()
|
|
CustomFeedIdConverter()
|
|
CustomFeedSourceConverter()
|
|
ExplicitRatingConverter()
|
|
MarkupTextConverter()
|
|
OpenGraphTypeConverter()
|
|
PageIdConverter()
|
|
PermalinkConverter()
|
|
PersonGroupConverter()
|
|
PersonRoleConverter()
|
|
PodcastMediumConverter()
|
|
PostIdConverter()
|
|
TagMapIdConverter()
|
|
ThemeAssetIdConverter()
|
|
ThemeIdConverter()
|
|
UploadIdConverter()
|
|
WebLogIdConverter()
|
|
WebLogUserIdConverter() ]
|
|
|> List.iter ser.Converters.Add
|
|
// NodaTime
|
|
let _ = ser.ConfigureForNodaTime DateTimeZoneProviders.Tzdb
|
|
// Handles DUs with no associated data, as well as option fields
|
|
ser.Converters.Add(CompactUnionJsonConverter())
|
|
ser.NullValueHandling <- NullValueHandling.Ignore
|
|
ser.MissingMemberHandling <- MissingMemberHandling.Ignore
|
|
ser
|
|
|
|
/// Serializer settings extracted from a JsonSerializer (a property sure would be nice...)
|
|
let mutable private serializerSettings : JsonSerializerSettings option = None
|
|
|
|
/// <summary>Extract settings from the serializer to be used in <c>JsonConvert</c> calls</summary>
|
|
/// <param name="ser">The serializer from which settings will be extracted if required</param>
|
|
/// <returns>The serializer settings to use for <c>JsonConvert</c> calls</returns>
|
|
let settings (ser: JsonSerializer) =
|
|
if Option.isNone serializerSettings then
|
|
serializerSettings <- JsonSerializerSettings (
|
|
ConstructorHandling = ser.ConstructorHandling,
|
|
ContractResolver = ser.ContractResolver,
|
|
Converters = ser.Converters,
|
|
DefaultValueHandling = ser.DefaultValueHandling,
|
|
DateFormatHandling = ser.DateFormatHandling,
|
|
DateParseHandling = ser.DateParseHandling,
|
|
MetadataPropertyHandling = ser.MetadataPropertyHandling,
|
|
MissingMemberHandling = ser.MissingMemberHandling,
|
|
NullValueHandling = ser.NullValueHandling,
|
|
ObjectCreationHandling = ser.ObjectCreationHandling,
|
|
ReferenceLoopHandling = ser.ReferenceLoopHandling,
|
|
SerializationBinder = ser.SerializationBinder,
|
|
TraceWriter = ser.TraceWriter,
|
|
TypeNameAssemblyFormatHandling = ser.TypeNameAssemblyFormatHandling,
|
|
TypeNameHandling = ser.TypeNameHandling)
|
|
|> Some
|
|
serializerSettings.Value
|