riak

defmodule Riak.CRDT.Register do
  @moduledoc """
  Encapsulates a binary data to be used on CRDT.Map's
  """
  require Record

  @doc """
  Creates a new register
  """
  def new(), do: :riakc_register.new()

  @doc """
  Creates a new register with the initial `value`
  """
  def new(value) when is_binary(value), do: set(new(), value)

  @doc """
  Extracts current value of `register`
  """
  def value(register) when Record.is_record(register, :register) do
    :riakc_register.value(register)
  end
  def value(nil), do: {:error, :nil_object}
  def value({:error, term}), do: {:error, term}

  @doc """
  Set the `value` on the `register`
  """
  def set(register, value) when Record.is_record(register, :register)
                           and is_binary(value) do
    :riakc_register.set(value, register)
  end
  def set(nil, _), do: {:error, :nil_object}
  def set({:error, term}, _), do: {:error, term}
end