refactor: fix compilation issues

AngelMunoz · Nov 3, 2024 · 4369d73 · 4369d73
1 parent 2cd4475
commit 4369d73
Show file tree

Hide file tree

Showing 5 changed files with 11 additions and 8 deletions.
diff --git a/Threads.Lib.Tests/Posts.fs b/Threads.Lib.Tests/Posts.fs
@@ -6,6 +6,7 @@ open Flurl.Util
 open Microsoft.VisualStudio.TestTools.UnitTesting
 open Flurl.Http.Testing
 
+open Threads.Lib
 open Threads.Lib.Posts
 
 

diff --git a/Threads.Lib.Tests/ReplyManagement.fs b/Threads.Lib.Tests/ReplyManagement.fs
@@ -10,7 +10,6 @@ open Flurl.Http
 open Flurl.Http.Testing
 
 open Threads.Lib
-
 open Threads.Lib.ReplyManagement
 
 
@@ -182,7 +181,7 @@ type ReplyManagementTests() =
         ReplyFieldValue.Timestamp(
           DateTimeOffset.Parse("2024-01-01T18:20:00+0000")
         )
-        ReplyFieldValue.MediaProductType Threads
+        ReplyFieldValue.MediaProductType MediaProductType.Threads
         ReplyFieldValue.MediaType TextPost
         ReplyFieldValue.MediaUrl(Uri("https://example.com"))
         ReplyFieldValue.Shortcode "abcdefg"
@@ -285,7 +284,7 @@ type ReplyManagementTests() =
       ReplyFieldValue.Timestamp(
         DateTimeOffset.Parse("2024-01-01T18:20:00+0000")
       )
-      ReplyFieldValue.MediaProductType Threads
+      ReplyFieldValue.MediaProductType MediaProductType.Threads
       ReplyFieldValue.MediaType TextPost
       ReplyFieldValue.Shortcode "abcdefg"
       ReplyFieldValue.HasReplies true
@@ -377,7 +376,7 @@ type ReplyManagementTests() =
         ReplyFieldValue.Timestamp(
           DateTimeOffset.Parse("2024-01-01T18:20:00+0000")
         )
-        ReplyFieldValue.MediaProductType Threads
+        ReplyFieldValue.MediaProductType MediaProductType.Threads
         ReplyFieldValue.MediaType TextPost
         ReplyFieldValue.Shortcode "abcdefg"
         ReplyFieldValue.HasReplies true

diff --git a/Threads.Lib/Media.fs b/Threads.Lib/Media.fs
@@ -92,7 +92,8 @@ module Media =
 
     let decodeMediaProductType(get: Decode.IGetters, fields: _ ResizeArray) =
       match get.Optional.Field "media_product_type" Decode.string with
-      | Some "THREADS" -> ThreadValue.MediaProductType Threads |> fields.Add
+      | Some "THREADS" ->
+        ThreadValue.MediaProductType MediaProductType.Threads |> fields.Add
       | Some value -> () // new value added?
       | None -> ()
 

diff --git a/Threads.Lib/Pagination.fsi b/Threads.Lib/Pagination.fsi
@@ -10,7 +10,7 @@ module internal IdLike =
 
   val Decode: Decoder<IdLike>
 
-[<Struct>]
+[<Struct; RequireQualifiedAccess>]
 type MediaProductType = | Threads
 
 module internal MediaProductType =

diff --git a/Threads.Lib/ReplyManagement.fs b/Threads.Lib/ReplyManagement.fs
@@ -227,7 +227,8 @@ module ReplyManagement =
       get.Optional.Field "media_product_type" Decode.string
       |> Option.map(fun value ->
         match value with
-        | "THREADS" -> values.Add(ReplyFieldValue.MediaProductType Threads)
+        | "THREADS" ->
+          values.Add(ReplyFieldValue.MediaProductType MediaProductType.Threads)
         | other -> () // new value added?
       )
       |> Option.defaultValue()
@@ -246,7 +247,8 @@ module ReplyManagement =
         | "CAROUSEL_ALBUM" ->
           values.Add(ReplyFieldValue.MediaType CarouselAlbum)
         | "AUDIO" -> values.Add(ReplyFieldValue.MediaType Audio)
-        | "THREADS" -> values.Add(ReplyFieldValue.MediaProductType Threads)
+        | "THREADS" ->
+          values.Add(ReplyFieldValue.MediaProductType MediaProductType.Threads)
         | other -> () // new value added?
       )
       |> Option.defaultValue()