Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

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
@@ -134,8 +134,8 @@
134 134 (ann ^:no-check cljs.core.async/alts!!
135 135 (All [x d]
136 136 (Fn [(Seqable (U (Port x) '[(Port x) x])) (Seqable (Port x)) & :mandatory {:default d} :optional {:priority (U nil true)} ->
137   - (U '[d ':default] '[x (Port x)])]
138   - [(Seqable (U (Port x) '[(Port x) x])) & :optional {:priority (U nil true)} -> '[x (Port x)]])))
  137 + (U '[d ':default] '[(U nil x) (Port x)])]
  138 + [(Seqable (U (Port x) '[(Port x) x])) & :optional {:priority (U nil true)} -> '[(U nil x) (Port x)]])))
139 139
140 140 (ann ^:no-check cljs.core.async/close! [(ReadOnlyChan Any) -> nil])
141 141
4 src/main/clojure/clojure/core/typed/async.clj
@@ -136,8 +136,8 @@
136 136 (ann ^:no-check clojure.core.async/alts!!
137 137 (All [x d]
138 138 (Fn [(Seqable (U (Port x) '[(Port x) x])) (Seqable (Port x)) & :mandatory {:default d} :optional {:priority (U nil true)} ->
139   - (U '[d ':default] '[x (Port x)])]
140   - [(Seqable (U (Port x) '[(Port x) x])) & :optional {:priority (U nil true)} -> '[x (Port x)]])))
  139 + (U '[d ':default] '[(U nil x) (Port x)])]
  140 + [(Seqable (U (Port x) '[(Port x) x])) & :optional {:priority (U nil true)} -> '[(U nil x) (Port x)]])))
141 141
142 142 (ann ^:no-check clojure.core.async/close! [(ReadOnlyChan Any) -> nil])
143 143

0 comments on commit 88a6e86

Please sign in to comment.
Something went wrong with that request. Please try again.