From 80ffd8979949788f951b32ebf67d401f1cd26a25 Mon Sep 17 00:00:00 2001 From: Jan Sucan Date: Tue, 5 Aug 2025 11:01:59 +0200 Subject: ch23: Add info about compiling and running the application --- ch23/support/patches/gtk-0.14.5.patch | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 ch23/support/patches/gtk-0.14.5.patch (limited to 'ch23/support/patches/gtk-0.14.5.patch') diff --git a/ch23/support/patches/gtk-0.14.5.patch b/ch23/support/patches/gtk-0.14.5.patch new file mode 100644 index 0000000..baf753a --- /dev/null +++ b/ch23/support/patches/gtk-0.14.5.patch @@ -0,0 +1,24 @@ +diff -rupN gtk-0.14.3/Graphics/UI/Gtk/Embedding/Types.chs new-gtk-0.14.3/Graphics/UI/Gtk/Embedding/Types.chs +--- gtk-0.14.3/Graphics/UI/Gtk/Embedding/Types.chs 2016-05-22 03:45:58.000000000 +0200 ++++ new-gtk-0.14.3/Graphics/UI/Gtk/Embedding/Types.chs 2025-08-01 21:34:55.810556987 +0200 +@@ -45,7 +45,7 @@ import Foreign.ForeignPtr (ForeignPtr, c + #if __GLASGOW_HASKELL__ >= 707 + import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) + #else +-import Foreign.ForeignPtr (unsafeForeignPtrToPtr) ++import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) + #endif + import Foreign.C.Types (CULong(..), CUInt(..), CULLong(..)) + import System.Glib.GType (GType, typeInstanceIsA) +diff -rupN gtk-0.14.3/Graphics/UI/Gtk/Types.chs new-gtk-0.14.3/Graphics/UI/Gtk/Types.chs +--- gtk-0.14.3/Graphics/UI/Gtk/Types.chs 2016-05-22 03:45:58.000000000 +0200 ++++ new-gtk-0.14.3/Graphics/UI/Gtk/Types.chs 2025-08-01 21:35:08.841037917 +0200 +@@ -772,7 +772,7 @@ import Foreign.ForeignPtr (ForeignPtr, c + #if __GLASGOW_HASKELL__ >= 707 + import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) + #else +-import Foreign.ForeignPtr (unsafeForeignPtrToPtr) ++import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) + #endif + import Foreign.C.Types (CULong(..), CUInt(..), CULLong(..)) + import System.Glib.GType (GType, typeInstanceIsA) -- cgit v1.2.3