:param TryHaskell.Result result: Parse result of JSON data.
        :rtype: str|unicode

def show(cls, result):
        """
        :param TryHaskell.Result result: Parse result of JSON data.
        :rtype: str|unicode
        """
        if result.ok:
            if result.stdout:
                out = '\n'.join(result.stdout)
                if result.value and result.value != '()':
                    return '\n'.join([out, result.value])
                return out
            if result.value and not cls._is_function_value(result.value):
                return result.value
            return cls.show_type(result)
        return result.value