export compile() sub

css-raku · Nov 1, 2023 · 4d0b37a · 4d0b37a
1 parent 984736e
commit 4d0b37a
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 7 deletions.
diff --git a/lib/CSS/Specification/Compiler.rakumod b/lib/CSS/Specification/Compiler.rakumod
@@ -1,13 +1,13 @@
 unit class CSS::Specification::Compiler;
 
 use CSS::Specification::Compiler::RakuAST::Actions;
-also does  CSS::Specification::Compiler::RakuAST::Actions;
+also does CSS::Specification::Compiler::RakuAST::Actions;
 
 use CSS::Specification::Compiler::RakuAST::Grammars;
-also does  CSS::Specification::Compiler::RakuAST::Grammars;
+also does CSS::Specification::Compiler::RakuAST::Grammars;
 
 use CSS::Specification::Compiler::RakuAST::Roles;
-also does  CSS::Specification::Compiler::RakuAST::Roles;
+also does CSS::Specification::Compiler::RakuAST::Roles;
 
 use CSS::Specification;
 use CSS::Specification::Compiler::Actions;

diff --git a/lib/CSS/Specification/Compiler/RakuAST.rakumod b/lib/CSS/Specification/Compiler/RakuAST.rakumod
@@ -2,7 +2,7 @@ unit module CSS::Specification::Compiler::RakuAST;
 
 use experimental :rakuast;
 
-our proto sub compile (|c) is export {
+our proto sub compile (|c) is export(:compile) {
     {*}
 }
 

diff --git a/lib/CSS/Specification/Compiler/RakuAST/Roles.rakumod b/lib/CSS/Specification/Compiler/RakuAST/Roles.rakumod
@@ -11,8 +11,7 @@ method role-ast(@role-id) {
     my @expression = @methods.map(-> $expression { RakuAST::Statement::Expression.new: :$expression });
     my RakuAST::Blockoid $body .= new: RakuAST::StatementList.new(|@expression);
     my RakuAST::Name $name .= from-identifier-parts(|@role-id);
-    RakuAST::Package.new(
-        :declarator<role>,
+    RakuAST::Role.new(
         :$name,
         :body(RakuAST::Block.new: :$body),
         :scope<unit>,

diff --git a/t/00compile.t b/t/00compile.t
@@ -6,7 +6,7 @@ use CSS::Grammar::Test;
 use CSS::Specification;
 use CSS::Specification::Compiler;
 use CSS::Specification::Compiler::Actions;
-use CSS::Specification::Compiler::RakuAST;
+use CSS::Specification::Compiler::RakuAST :&compile;
 
 lives-ok {require CSS::Grammar:ver(v0.3.0..*) }, "CSS::Grammar version";