((do class_JHaskellHelper
class_JTree
head <- getHead_JTree t ()
- strx <- toString_JObject ((castTLRef head) :: Jjava_lang_Object) ()
- str <- getStringUTF strx
+ isNull <- getIsNothing head
+ str <- if isNull then (return "") else (toString_JObject ((castTLRef head) :: Jjava_lang_Object) () >>= getStringUTF >>= \x -> return (showUTF8 x))
numChildren <- size_JTree t()
children <- if numChildren == 0
then do return []
$ iterate (+1) 0
h <- mapM (\c -> haskifyTree (castTLRef c)) children
return h
- return $ Tree (showUTF8 str) children nullRegion
+ return $ Tree str children nullRegion
) :: JVM Tree)