23_a_1: Patch the code for compiling with GHC from support of this chapter

1 files changed, 2 insertions, 2 deletions

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}