for {
  ns <- getNode(s); //get source
  nt <- getNode(t); //get target
  l <- link(ns, nt); //link them
} yield l //yield the link