|
0 |
From ba4154155f6ebf3d56b60a64db0f4fdbb1bcad6f Mon Sep 17 00:00:00 2001
|
|
1 |
From: Scott Talbert <swt@techie.net>
|
|
2 |
Date: Sat, 5 Aug 2023 01:51:26 -0400
|
|
3 |
Subject: [PATCH] Correct definition of gTypeError to a run-time type (#414)
|
|
4 |
|
|
5 |
Fixes #413
|
|
6 |
---
|
|
7 |
base/Data/GI/Base/GType.hsc | 10 ++++++----
|
|
8 |
1 file changed, 6 insertions(+), 4 deletions(-)
|
|
9 |
|
|
10 |
diff --git a/base/Data/GI/Base/GType.hsc b/base/Data/GI/Base/GType.hsc
|
|
11 |
index 027147b..30d265e 100644
|
|
12 |
--- a/Data/GI/Base/GType.hsc
|
|
13 |
+++ b/Data/GI/Base/GType.hsc
|
|
14 |
@@ -107,10 +107,6 @@ gtypeInvalid = GType #const G_TYPE_INVALID
|
|
15 |
gtypeVariant :: GType
|
|
16 |
gtypeVariant = GType #const G_TYPE_VARIANT
|
|
17 |
|
|
18 |
--- | The `GType` corresponding to 'Data.GI.Base.GError.GError'.
|
|
19 |
-gtypeError :: GType
|
|
20 |
-gtypeError = GType #const G_TYPE_ERROR
|
|
21 |
-
|
|
22 |
-- | The `GType` corresponding to 'Data.GI.Base.BasicTypes.GParamSpec'.
|
|
23 |
gtypeParam :: GType
|
|
24 |
gtypeParam = GType #const G_TYPE_PARAM
|
|
25 |
@@ -140,3 +136,9 @@ foreign import ccall haskell_gi_StablePtr_get_type :: CGType
|
|
26 |
-- | The `GType` for boxed `StablePtr`s.
|
|
27 |
gtypeStablePtr :: GType
|
|
28 |
gtypeStablePtr = GType haskell_gi_StablePtr_get_type
|
|
29 |
+
|
|
30 |
+foreign import ccall "g_error_get_type" g_error_get_type :: CGType
|
|
31 |
+
|
|
32 |
+-- | The `GType` corresponding to 'Data.GI.Base.GError.GError'.
|
|
33 |
+gtypeError :: GType
|
|
34 |
+gtypeError = GType g_error_get_type
|
|
35 |
--
|
|
36 |
2.40.1
|
|
37 |
|