如何访问Haskell Graphviz中DotNode的UnknownAttribute‘consumes’值？

如果你有一个带有UnknownAttribute类型的consumes属性的DotNode，在图构建完成后想要提取该属性值，却没找到源码里的现成获取函数，可以用以下自定义函数实现：

consumes :: Attributes -> [TL.Text]
consumes = foldl f []
             where 
               f b a = case a of
                         UnkownAttribute "consumes" t -> b <> TL.words t
                         _ -> b <> []

调用时只需传入目标节点的属性集合：

consumes (nodeAttributes n)

内容的提问来源于stack exchange，提问作者adi