fix minor issues

Author: tamizhvendan

clojure/wheel/src/wheel/marketplace/channel.clj

@@ -1,4 +1,5 @@
 (ns wheel.marketplace.channel
   (:require [clojure.spec.alpha :as s]))
 
+(s/def ::id pos-int?)
 (s/def ::name #{:tata-cliq :amazon :flipkart})

clojure/wheel/src/wheel/middleware/event.clj

@@ -7,21 +7,23 @@
 (s/def ::parent-id ::id)
 (s/def ::name qualified-keyword?)
 (s/def ::level #{:info :warn :debug :error :fatal})
-(s/def ::type #{:domain :system})
 (s/def ::timestamp ::offset-date-time/ist-timestamp)
+(s/def ::type #{:domain :system})
 
-(s/def ::channel-id integer?)
+(s/def ::channel-id ::channel/id)
 (s/def ::channel-name ::channel/name)
 
 (defmulti event-type :type)
 (defmethod event-type :system [_]
   (s/keys :req-un [::id ::name ::type ::level ::timestamp]
           :opt-un [::parent-id]))
 (defmethod event-type :domain [_]
-  (s/keys :req-un [::id ::name ::type ::level ::timestamp ::channel-id ::channel-name]
+  (s/keys :req-un [::id ::name ::type ::level ::timestamp 
+                   ::channel-id ::channel-name]
           :opt-un [::parent-id]))
 (defmethod event-type :default [_]
   (s/keys :req-un [::type]))
+
 (s/def ::event (s/multi-spec event-type :type))
 
 (comment

clojure/wheel/src/wheel/offset_date_time.clj

@@ -16,7 +16,9 @@
        "+05:30")
     false))
 
-(ist? "2007-04-05T12:30-02:00")
-
 (s/def ::iso-8061-format (s/and string? iso-8061-format?))
 (s/def ::ist-timestamp (s/and ::iso-8061-format ist?))
+
+(comment
+  (s/valid? ::ist-timestamp "2007-04-05T12:30-02:00")
+  (s/valid? ::ist-timestamp "2019-10-01T06:56+05:30"))