diff --git a/gsk/gskshaderbuilder.c b/gsk/gskshaderbuilder.c
index 5142e43ae1..b17c41abee 100644
--- a/gsk/gskshaderbuilder.c
+++ b/gsk/gskshaderbuilder.c
@@ -395,3 +395,11 @@ gsk_shader_builder_get_attribute_location (GskShaderBuilder *builder,
 
   return -1;
 }
+
+int
+gsk_shader_builder_get_program (GskShaderBuilder *builder)
+{
+  g_return_val_if_fail (GSK_IS_SHADER_BUILDER (builder), -1);
+
+  return builder->program_id;
+}
diff --git a/gsk/gskshaderbuilderprivate.h b/gsk/gskshaderbuilderprivate.h
index f5f7ff89df..ce069eddeb 100644
--- a/gsk/gskshaderbuilderprivate.h
+++ b/gsk/gskshaderbuilderprivate.h
@@ -35,6 +35,7 @@ int                     gsk_shader_builder_create_program               (GskShad
                                                                          int               fragment_id,
                                                                          GError          **error);
 
+int                     gsk_shader_builder_get_program                  (GskShaderBuilder *builder);
 int                     gsk_shader_builder_get_uniform_location         (GskShaderBuilder *builder,
                                                                          GQuark            uniform_quark);
 int                     gsk_shader_builder_get_attribute_location       (GskShaderBuilder *builder,