Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix CTYP-82

async annotations
  • Loading branch information...
commit 88a6e868ebc6f58362e089dfd4d5060e340c379c 1 parent a502e2a
Ambrose Bonnaire-Sergeant frenchy64 authored
4 src/main/cljs/cljs/core/typed/async.cljs
View
@@ -134,8 +134,8 @@
(ann ^:no-check cljs.core.async/alts!!
(All [x d]
(Fn [(Seqable (U (Port x) '[(Port x) x])) (Seqable (Port x)) & :mandatory {:default d} :optional {:priority (U nil true)} ->
- (U '[d ':default] '[x (Port x)])]
- [(Seqable (U (Port x) '[(Port x) x])) & :optional {:priority (U nil true)} -> '[x (Port x)]])))
+ (U '[d ':default] '[(U nil x) (Port x)])]
+ [(Seqable (U (Port x) '[(Port x) x])) & :optional {:priority (U nil true)} -> '[(U nil x) (Port x)]])))
(ann ^:no-check cljs.core.async/close! [(ReadOnlyChan Any) -> nil])
4 src/main/clojure/clojure/core/typed/async.clj
View
@@ -136,8 +136,8 @@
(ann ^:no-check clojure.core.async/alts!!
(All [x d]
(Fn [(Seqable (U (Port x) '[(Port x) x])) (Seqable (Port x)) & :mandatory {:default d} :optional {:priority (U nil true)} ->
- (U '[d ':default] '[x (Port x)])]
- [(Seqable (U (Port x) '[(Port x) x])) & :optional {:priority (U nil true)} -> '[x (Port x)]])))
+ (U '[d ':default] '[(U nil x) (Port x)])]
+ [(Seqable (U (Port x) '[(Port x) x])) & :optional {:priority (U nil true)} -> '[(U nil x) (Port x)]])))
(ann ^:no-check clojure.core.async/close! [(ReadOnlyChan Any) -> nil])
Please sign in to comment.
Something went wrong with that request. Please try again.