No title

1
2
3
gConnectMany :: (Traversable t) => (a -> (b -> c) -> c) -> t a -> (t b -> c) -> c
gConnectMany make hosts = runCont (traverse (cont . make) hosts)