refactor: remove common namespace. just use the top level namespace

AngelMunoz · Nov 3, 2024 · 2cd4475 · 2cd4475
1 parent 5577c1b
commit 2cd4475
Show file tree

Hide file tree

Showing 19 changed files with 46 additions and 55 deletions.
diff --git a/Sample/Profile.fs b/Sample/Profile.fs
@@ -18,7 +18,7 @@ open Navs
 open Navs.Avalonia
 
 open Threads.Lib
-open Threads.Lib.Common
+
 open Threads.Lib.Profiles
 
 module Profile =

diff --git a/Threads.Lib.Tests/Media.fs b/Threads.Lib.Tests/Media.fs
@@ -13,7 +13,7 @@ open Flurl.Http
 open Flurl.Http.Testing
 
 open Threads.Lib
-open Threads.Lib.Common
+
 open Threads.Lib.Media
 
 

diff --git a/Threads.Lib.Tests/Pagination.fs b/Threads.Lib.Tests/Pagination.fs
@@ -6,7 +6,7 @@ open Flurl.Util
 open Flurl.Http.Testing
 open Microsoft.VisualStudio.TestTools.UnitTesting
 open Threads.Lib
-open Threads.Lib.Common
+
 
 [<TestClass>]
 type PaginationTests() =

diff --git a/Threads.Lib.Tests/Posts.fs b/Threads.Lib.Tests/Posts.fs
@@ -5,7 +5,7 @@ open System.Threading.Tasks
 open Flurl.Util
 open Microsoft.VisualStudio.TestTools.UnitTesting
 open Flurl.Http.Testing
-open Threads.Lib.Common
+
 open Threads.Lib.Posts
 
 

diff --git a/Threads.Lib.Tests/Profiles.fs b/Threads.Lib.Tests/Profiles.fs
@@ -11,7 +11,7 @@ open Flurl.Http
 open Flurl.Http.Testing
 
 open Threads.Lib
-open Threads.Lib.Common
+
 open Threads.Lib.Profiles
 
 [<TestClass>]

diff --git a/Threads.Lib.Tests/ReplyManagement.fs b/Threads.Lib.Tests/ReplyManagement.fs
@@ -10,7 +10,7 @@ open Flurl.Http
 open Flurl.Http.Testing
 
 open Threads.Lib
-open Threads.Lib.Common
+
 open Threads.Lib.ReplyManagement
 
 

diff --git a/Threads.Lib/Common.fs b/Threads.Lib/Common.fs
diff --git a/Threads.Lib/Common.fsi b/Threads.Lib/Common.fsi
diff --git a/Threads.Lib/Media.fs b/Threads.Lib/Media.fs
@@ -6,8 +6,6 @@ open Thoth.Json.Net
 open Flurl
 open Flurl.Http
 
-open Threads.Lib.Common
-
 module Media =
 
   [<Struct>]

diff --git a/Threads.Lib/Media.fsi b/Threads.Lib/Media.fsi
@@ -1,7 +1,7 @@
 namespace Threads.Lib
 
 open System
-open Threads.Lib.Common
+
 
 module Media =
 

diff --git a/Threads.Lib/Pagination.fs b/Threads.Lib/Pagination.fs
@@ -3,6 +3,24 @@
 open System
 open Thoth.Json.Net
 
+
+[<Struct>]
+type IdLike = { id: string }
+
+module IdLike =
+  let Decode: Decoder<IdLike> =
+    Decode.object(fun get -> {
+      id = get.Required.Field "id" Decode.string
+    })
+
+[<Struct>]
+type MediaProductType = | Threads
+
+module MediaProductType =
+  let asString =
+    function
+    | Threads -> "THREADS"
+
 type Cursor = { before: string; after: string }
 
 module Cursor =

diff --git a/Threads.Lib/Pagination.fsi b/Threads.Lib/Pagination.fsi
@@ -3,6 +3,20 @@ namespace Threads.Lib
 open System
 open Thoth.Json.Net
 
+[<Struct>]
+type IdLike = { id: string }
+
+module internal IdLike =
+
+  val Decode: Decoder<IdLike>
+
+[<Struct>]
+type MediaProductType = | Threads
+
+module internal MediaProductType =
+  val asString: MediaProductType -> string
+
+
 type Cursor = { before: string; after: string }
 
 module internal Cursor =

diff --git a/Threads.Lib/Posts.fs b/Threads.Lib/Posts.fs
@@ -4,7 +4,7 @@ open System
 open Flurl
 open Flurl.Http
 open FsToolkit.ErrorHandling
-open Threads.Lib.Common
+
 
 module Posts =
 

diff --git a/Threads.Lib/Posts.fsi b/Threads.Lib/Posts.fsi
@@ -1,7 +1,7 @@
 namespace Threads.Lib
 
 open System
-open Threads.Lib.Common
+
 
 module Posts =
   [<Struct>]

diff --git a/Threads.Lib/ReplyManagement.fs b/Threads.Lib/ReplyManagement.fs
@@ -4,7 +4,7 @@ open System.Collections.Generic
 open Thoth.Json.Net
 open Flurl
 open Flurl.Http
-open Threads.Lib.Common
+
 
 module ReplyManagement =
   open System

diff --git a/Threads.Lib/ReplyManagement.fsi b/Threads.Lib/ReplyManagement.fsi
@@ -1,6 +1,6 @@
 namespace Threads.Lib
 
-open Threads.Lib.Common
+
 
 module ReplyManagement =
   open System

diff --git a/Threads.Lib/Threads.Lib.fsproj b/Threads.Lib/Threads.Lib.fsproj
@@ -12,8 +12,6 @@
     <PackageProjectUrl>https://AngelMunoz.github.io/Threads.Lib</PackageProjectUrl>
   </PropertyGroup>
   <ItemGroup>
-    <Compile Include="Common.fsi" />
-    <Compile Include="Common.fs" />
     <Compile Include="Pagination.fsi" />
     <Compile Include="Pagination.fs" />
     <Compile Include="Posts.fsi" />
@@ -39,4 +37,4 @@
   <ItemGroup>
     <InternalsVisibleTo Include="$(AssemblyName).Tests" />
   </ItemGroup>
-</Project>
+</Project>
diff --git a/Threads.Lib/Threads.fs b/Threads.Lib/Threads.fs
@@ -3,7 +3,7 @@ namespace Threads.Lib
 open System.Threading
 open System.Threading.Tasks
 open System.Runtime.InteropServices
-open Threads.Lib.Common
+
 
 type InsightsService =
   abstract FetchMediaInsights:

diff --git a/Threads.Lib/Threads.fsi b/Threads.Lib/Threads.fsi
@@ -4,7 +4,7 @@ open System.Threading
 open System.Threading.Tasks
 open System.Runtime.InteropServices
 
-open Threads.Lib.Common
+
 
 /// <summary>
 /// The Threads Insights API allows you to read the insights from users' own Threads.