diff --git a/glfw-group.cabal b/glfw-group.cabal
--- a/glfw-group.cabal
+++ b/glfw-group.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           glfw-group
-version:        0.1.0.2
+version:        0.1.0.3
 synopsis:       GLFW package with window groups destroyed together
 description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/glfw-group#readme>
 category:       Graphics
diff --git a/src/Graphics/UI/GlfwG.hs b/src/Graphics/UI/GlfwG.hs
--- a/src/Graphics/UI/GlfwG.hs
+++ b/src/Graphics/UI/GlfwG.hs
@@ -7,8 +7,10 @@
 
 module Graphics.UI.GlfwG (
 
-	init, ErrorMessage, getRequiredInstanceExtensions,
+	init, setErrorCallback, ErrorMessage,
 
+	GlfwB.vulkanSupported, getRequiredInstanceExtensions,
+
 	GlfwB.pollEvents, GlfwB.waitEvents
 
 	) where
@@ -30,6 +32,11 @@
 	(hdl $ "Gpu.Vulkan.Khr.Surface.Glfw: " ++
 		"GLFW-b.Graphics.UI.GLFW.init return False")
 	(finally cmp GlfwB.terminate)
+
+setErrorCallback :: Maybe ErrorCallback -> IO ()
+setErrorCallback = GlfwB.setErrorCallback
+
+type ErrorCallback = GlfwB.Error -> ErrorMessage -> IO ()
 
 type ErrorMessage = String