Named ∷ DB → String → IO (Maybe Node)
fileNodeNamed db name =
  fileEntityNamed db name >>= entityToNode


tagNodeName
fileNodeNamed ∷ DB → String → IO (Maybe Node)
fileNodeNamed db name =
  fileEntityNamed db name >>= entityToNode
fileNodeNamed db name =
  fileEntityNamed db name >>= entityToNode