X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=src%2FSBP.hs;h=2fec7932d4850efa85ee5e2613dfe6c9992fbd5f;hp=510a2d41fac5bab7f0d267c4aec0dde39e0fcbdc;hb=972303162555284f8066047d3caead8df139afd4;hpb=a09bae7235677c1b3b77f827bdd6722a9e88a122;ds=sidebyside

diff --git a/src/SBP.hs b/src/SBP.hs
index 510a2d4..2fec793 100644
--- a/src/SBP.hs
+++ b/src/SBP.hs
@@ -58,8 +58,8 @@ module SBP
     ((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 []
@@ -68,7 +68,7 @@ module SBP
                                                 $ 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)