fix: correctly create page modules

Author: mhanberg

lib/tableau/extensions/page_extension.ex

@@ -75,7 +75,7 @@ defmodule Tableau.PageExtension do
 
         for {mod, _, _} <- :code.all_available(),
             mod = Module.concat([to_string(mod)]),
-            Tableau.Graph.Node.type(mod) == :page,
+            {:ok, :page} == Tableau.Graph.Node.type(mod),
             mod.__tableau_opts__()[:__tableau_page_extension__] do
           :code.purge(mod)
           :code.delete(mod)
@@ -84,8 +84,9 @@ defmodule Tableau.PageExtension do
         pages =
           for page <- apply(Tableau.PageExtension.Pages, :pages, []) do
             {:module, _module, _binary, _term} =
-              Module.create(
-                :"#{System.unique_integer()}",
+              [:"#{System.unique_integer()}"]
+              |> Module.concat()
+              |> Module.create(
                 quote do
                   use Tableau.Page, unquote(Macro.escape(Keyword.new(page)))
 

lib/tableau/extensions/post_extension.ex

@@ -89,7 +89,7 @@ defmodule Tableau.PostExtension do
 
         for {mod, _, _} <- :code.all_available(),
             mod = Module.concat([to_string(mod)]),
-            Tableau.Graph.Node.type(mod) == :page,
+            {:ok, :page} == Tableau.Graph.Node.type(mod),
             mod.__tableau_opts__()[:__tableau_post_extension__] do
           :code.purge(mod)
           :code.delete(mod)
@@ -98,8 +98,9 @@ defmodule Tableau.PostExtension do
         posts =
           for post <- apply(Tableau.PostExtension.Posts, :posts, []) do
             {:module, _module, _binary, _term} =
-              Module.create(
-                :"#{System.unique_integer()}",
+              [:"#{System.unique_integer()}"]
+              |> Module.concat()
+              |> Module.create(
                 quote do
                   use Tableau.Page, unquote(Macro.escape(Keyword.new(post)))