@@ -82,7 +82,7 @@ addBlock (Node _ (LIST listAttrs) nodes) =
82 delim = case listDelim listAttrs of
82 delim = case listDelim listAttrs of
83 PERIOD_DELIM -> Period
83 PERIOD_DELIM -> Period
84 PAREN_DELIM -> OneParen
84 PAREN_DELIM -> OneParen
85−addBlock (Node _ ITEM nodes) = id -- handled in LIST
85+addBlock (Node _ ITEM _) = id -- handled in LIST
86addBlock _ = id
86addBlock _ = id
88children :: Node -> [Node]
88children :: Node -> [Node]