Switch from readline to haskeline

examples/Catalog.hs

@@ -2,21 +2,21 @@ module Catalog (catalog) where
 
 import Control.Arrow (second)
 import Control.Monad
-import Control.Monad.Base
 import Control.Monad.Catch
+import Control.Monad.IO.Class
 import Data.Function
 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'.
-printLn :: MonadBase IO m => String -> m ()
-printLn = liftBase . putStrLn
+printLn :: MonadIO m => String -> m ()
+printLn = liftIO . putStrLn
 
 -- | Get connection string from command line argument.
 getConnSettings :: IO ConnectionSettings
@@ -144,13 +144,12 @@ 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 . fix $ \next ->
+      getInputLine "> "
         >>= maybe
           (printLn "")
           ( \cmd -> do
               when (cmd /= "quit") $ do
-                processCommand pool cmd
-                addHistory cmd
+                liftIO $ processCommand pool cmd
                 next
           )

hpqtypes.cabal

@@ -196,7 +196,7 @@ test-suite hpqtypes-tests
                      , monad-control >= 1.0.3
                      , mtl >= 2.1
                      , random >= 1.0
-                     , readline >= 1.0.3.0
+                     , haskeline >= 0.8.0.0
                      , resource-pool >= 0.4
                      , scientific
                      , test-framework >= 0.8