:param dict j: JSON response from TryHaskell.
        :rtype: TryHaskell.Result

def parse(cls, j):
        """
        :param dict j: JSON response from TryHaskell.
        :rtype: TryHaskell.Result
        """
        error = j.get('error')
        if error:
            return cls._bad_result(error)
        success = j.get('success')
        if success:
            try:
                return cls.Result(ok=True, **j.get('success'))
            except (TypeError, ValueError) as e:
                raise cls.Error(e)
        # If there was neither a success nor an error, the service
        # is probably expecting something from stdin, which is not
        # currently implemented.
        # TODO: Implement stdin.
        return cls._bad_result('Unsupported operation.')