Merge pull request #242 from gumberss/feat/cart-module

feat: removing wires. resolve #237

src/purchase_listinator/adapters/in/cart.clj

@@ -1,9 +1,9 @@
 (ns purchase-listinator.adapters.in.cart
   (:require
     [purchase-listinator.models.internal.cart :as models.internal.cart]
-    [purchase-listinator.wires.in.shopping-cart :as wires.in.shopping-cart]
+    [purchase-listinator.wires.in.cart :as wires.in.cart]
     [schema.core :as s]))
 
 (s/defn wire->internal :- models.internal.cart/Cart
-  [wire :- wires.in.shopping-cart/Cart]
+  [wire :- wires.in.cart/Cart]
   wire)

src/purchase_listinator/endpoints/http/client/shopping.clj

@@ -3,10 +3,9 @@
     [purchase-listinator.components.http :as components.http]
     [purchase-listinator.models.internal.cart :as models.internal.cart]
     [purchase-listinator.models.internal.price-suggestion :as models.internal.price-suggestion]
-    [purchase-listinator.models.internal.shopping-cart :as models.internal.shopping-cart]
     [purchase-listinator.wires.in.price-suggestion :as wires.in.price-suggestion]
     [purchase-listinator.adapters.in.price-suggestion :as adapters.in.price-suggestion]
-    [purchase-listinator.wires.in.shopping-cart :as wires.in.shopping-cart]
+    [purchase-listinator.wires.in.cart :as wires.in.cart]
     [purchase-listinator.adapters.in.cart :as adapters.in.cart]
     [schema.core :as s]))
 
@@ -48,5 +47,5 @@
                                      :url           :shopping-cart/cart
                                      :user-id       user-id
                                      :query-params  {:list-id purchase-list-id}
-                                     :result-schema wires.in.shopping-cart/Cart})
+                                     :result-schema wires.in.cart/Cart})
       (adapters.in.cart/wire->internal)))

src/purchase_listinator/wires/in/cart.clj

@@ -1,6 +1,9 @@
 (ns purchase-listinator.wires.in.cart
-  (:require [schema.core :as s]
-            [purchase-listinator.models.internal.cart-events :as internal.cart-events]))
+  (:require
+    [purchase-listinator.misc.schema :as misc.schema]
+    [purchase-listinator.models.internal.shopping.purchase-list :as internal.shopping.purchase-list]
+    [schema.core :as s]
+    [purchase-listinator.models.internal.cart-events :as internal.cart-events]))
 
 (s/defn of-type
   [expected-event-type {:keys [event-type]}]
@@ -21,3 +24,6 @@
     (partial of-type "reorder-item") internal.cart-events/ReorderItemEvent
     (partial of-type "change-item") internal.cart-events/ChangeItemEvent))
 
+(misc.schema/loose-schema Cart
+  {:purchase-list        internal.shopping.purchase-list/PurchaseList
+   :shopping-cart-events [CartEvent]})