package Ġorg . jetbrains . haskell . psi Ċ Ċ import Ġcom . intellij . lang . AST Node Ċ import Ġcom . intellij . ext api . psi . AST Wrapper Psi Element Ċ import Ġcom . intellij . psi . Psi Element Ċ import Ġcom . intellij . psi . util . Psi Tree Util ĊĊ Ċ class ĠDo Expression ( node Ġ: ĠAST Node ) Ġ: ĠExpression ( node ) Ġ{ ĊĠĠĠ Ġoverride Ġfun Ġtraverse ( visitor : Ġ( Expression ) Ġ-> ĠUnit ) Ġ{ ĊĠĠĠĠĠĠĠ Ġvisitor ( this ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġfun Ġget Statement List () Ġ: ĠList < Statement > Ġ= ĊĠĠĠĠĠĠĠĠĠĠĠ ĠPsi Tree Util . getChildren OfType As List ( this , ĠStatement :: class . java ) Ċ }