monadic.ex

  import Monad

  @doc """
  Read and decode a file

  Returns {:ok, result} or {:error, reason}
  """
  def decode_file(fh) do
    monad ErrorM do
      contents <- File.read(fh)
      decode contents
    end
  end