From 36fc1e924d6920629d764d934e8939a48ac1ff0f Mon Sep 17 00:00:00 2001
From: Jan Sucan <jan@jansucan.com>
Date: Fri, 12 Sep 2025 09:33:50 +0200
Subject: 23_a_1: Patch the code for compiling with GHC from support of this
 chapter

---
 ch23/23_a_1/PodMainGUI.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'ch23/23_a_1/PodMainGUI.hs')

diff --git a/ch23/23_a_1/PodMainGUI.hs b/ch23/23_a_1/PodMainGUI.hs
index 943be01..e557d8b 100644
--- a/ch23/23_a_1/PodMainGUI.hs
+++ b/ch23/23_a_1/PodMainGUI.hs
@@ -119,7 +119,7 @@ guiAdd gui dbh =
     where procOK =
               do url <- entryGetText (awEntry gui)
                  widgetHide (addWin gui) -- Remove the dialog
-                 add dbh url             -- Add to the DB
+                 addUrl dbh url             -- Add to the DB
 {-- /snippet guiAdd --}
 
 {-- snippet statusWindow --}
@@ -184,7 +184,7 @@ guiFetch gui dbh =
 {-- /snippet statusWindowFuncs --}
 
 {-- snippet workerFuncs --}
-add dbh url = 
+addUrl dbh url = 
     do addPodcast dbh pc
        commit dbh
     where pc = Podcast {castId = 0, castURL = url}
-- 
cgit v1.2.3