Clean up project representation

unisonweb · Nov 14, 2023 · 67488d2 · 67488d2
1 parent 3b40089
commit 67488d2
Show file tree

Hide file tree

Showing 14 changed files with 272 additions and 812 deletions.
diff --git a/elm-watch.json b/elm-watch.json
@@ -65,8 +65,6 @@
         "src/Code/Namespace.elm",
         "src/Code/Namespace/NamespaceRef.elm",
         "src/Code/Perspective.elm",
-        "src/Code/Project.elm",
-        "src/Code/Project/ProjectRef.elm",
         "src/Code/BranchRef.elm",
         "src/Code/ProjectListing.elm",
         "src/Code/Syntax.elm",

diff --git a/elm.json b/elm.json
@@ -55,18 +55,16 @@
         "Code.Finder",
         "Code.FullyQualifiedName",
         "Code.FullyQualifiedNameSet",
-        "Code.Project",
-        "Code.ProjectListing",
-        "Code.Project.Release",
         "Code.Version",
-        "Code.Project.ProjectRef",
+        "Code.ProjectListing",
+        "Code.Project.ProjectName",
+        "Code.Project.ProjectSlug",
         "Code.Hash",
         "Code.HashQualified",
         "Code.Hashvatar",
         "Code.EmptyState",
         "Code.Namespace",
         "Code.Perspective",
-        "Code.Project",
         "Code.ReadmeCard",
         "Code.Syntax",
         "Code.UrlParsers",

diff --git a/src/Code/Branch.elm b/src/Code/Branch.elm
@@ -2,7 +2,6 @@ module Code.Branch exposing (..)
 
 import Code.BranchRef as BranchRef exposing (BranchRef)
 import Code.Hash as Hash exposing (Hash)
-import Code.Project as Project exposing (Project)
 import Json.Decode as Decode
 import Json.Decode.Pipeline exposing (required)
 import UI.DateTime as DateTime exposing (DateTime)
@@ -17,12 +16,12 @@ type alias Branch b =
     }
 
 
-type alias BranchSummary =
-    Branch { project : Project {} }
+type alias BranchSummary p =
+    Branch { project : p }
 
 
-decodeSummary : Decode.Decoder BranchSummary
-decodeSummary =
+decodeSummary : Decode.Decoder p -> Decode.Decoder (BranchSummary p)
+decodeSummary projectDecoder =
     let
         makeBranch branchRef project createdAt updatedAt causalHash =
             { ref = branchRef
@@ -34,7 +33,7 @@ decodeSummary =
     in
     Decode.succeed makeBranch
         |> required "branchRef" BranchRef.decode
-        |> required "project" Project.decode
+        |> required "project" projectDecoder
         |> required "createdAt" DateTime.decode
         |> required "updatedAt" DateTime.decode
         |> required "causalHash" Hash.decode
diff --git a/src/Code/Project.elm b/src/Code/Project.elm