-- | Changes the alias.
--
-- This is used only during the building of the data structures.
setAlias :: Node -> String -> Node
setAlias t s = t { alias = s }
setAlias :: Node -> String -> Node
setAlias t s = t { alias = s }
setAlias t s = t { alias = s }