defmodule Virtfs.Dumper do
  def run(%Virtfs.FS{} = fs, dest) do
    files = fs.files
    Enum.each(files, &create_file(dest, elem(&1, 1)))
  end

  def create_file(dest, %Virtfs.File{kind: :dir, path: path}) do
    full_path = full_path(dest, path)
    File.mkdir_p!(full_path)
  end

  def create_file(dest, %Virtfs.File{kind: :file, content: content, path: path}) do
    full_path = full_path(dest, path)
    File.write!(full_path, content)
  end

  def full_path(dest, path) do
    Path.join(dest, path)
  end
end