Switch from readline to haskeline

Apparently `readline` doesn't build with newer versions of cabal.

Author: joncol

.github/workflows/haskell-ci.yml

@@ -27,7 +27,7 @@ jobs:
     timeout-minutes:
       60
     container:
-      image: buildpack-deps:bionic
+      image: buildpack-deps:jammy
     services:
       postgres:
         image: postgres:14

CHANGELOG.md

@@ -1,3 +1,7 @@
+# hpqtypes-1.12.1.0 (????-??-??)
+* Switch from `readline` to `haskeline`, to make example compile with newer
+  Cabal versions.
+
 # hpqtypes-1.12.0.0 (2024-03-18)
 * Drop support for GHC 8.8.
 * Attach `CallStack` and `BackendPid` to `DBException`.

cabal.haskell-ci

@@ -1,3 +1,4 @@
+distribution:   jammy
 branches:       master
 doctest:        False
 tests:          True

examples/Catalog.hs

@@ -4,14 +4,14 @@ import Control.Arrow (second)
 import Control.Monad
 import Control.Monad.Base
 import Control.Monad.Catch
-import Data.Function
+import Control.Monad.IO.Class (liftIO)
 import Data.Int
 import Data.Monoid.Utils
 import Data.Pool
 import Data.Text qualified as T
 import Database.PostgreSQL.PQTypes
 import Database.PostgreSQL.PQTypes.Internal.Utils (mread)
-import System.Console.Readline
+import System.Console.Haskeline
 import System.Environment
 
 -- | Generic 'putStrLn'.
@@ -144,13 +144,14 @@ catalog = do
   cs <- getConnSettings
   withCatalog cs $ do
     ConnectionSource pool <- poolSource (cs {csComposites = ["book_"]}) (\connect disconnect -> defaultPoolConfig connect disconnect 1 10)
-    fix $ \next ->
-      readline "> "
+    runInputT defaultSettings (loop pool)
+  where
+    loop pool = do
+      getInputLine "> "
         >>= maybe
-          (printLn "")
+          (outputStrLn "")
           ( \cmd -> do
               when (cmd /= "quit") $ do
-                processCommand pool cmd
-                addHistory cmd
-                next
+                liftIO $ processCommand pool cmd
+                loop pool
           )