fix small issue

semigroups · Aug 7, 2024 · 2b441e0 · 2b441e0
1 parent bf02a27
commit 2b441e0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/gap/attributes/attr.gi b/gap/attributes/attr.gi
@@ -831,7 +831,7 @@ function(S, a)
   if IsEmpty(f) then
     return fail;
   fi;
-  f := Idempotents(L);
+  f := f[1];
   s := RightGreensMultiplierNC(S, a, e);
   return  f * s * e;
 end);