defmodule Haex do
  @moduledoc """
  Haskell As Elixir - Haex (pronounced "hacks")

  Using Elixir's macro system to define a DSL that _sort of_ looks like
  Haskell's syntax for succinctly defining data types
  """

  @spec data(Macro.t()) :: Macro.output()
  defmacro data(ast) do
    ast
    # |> IO.inspect(label: "ast")
    |> Haex.Data.data()

    # |> macro_puts()
    # |> IO.inspect(label: "quoted module")
  end

  @spec macro_puts(Macro.output()) :: Macro.output()
  def macro_puts(ast) do
    ast
    |> Macro.to_string()
    |> IO.puts()

    ast
  end
end