 DB → String → IO (Maybe Node)
tagNodeNamed db name =
  tagEntityNamed db name >>= entityToNode


----------------

tagNodeNamed ∷ DB → String → IO (Maybe Node)
tagNodeNamed db name =
  tagEntityNamed db name >>= entityToNode
tagNodeNamed db name =
  tagEntityNamed db name >>= entityToNode