pagilatest: use streamingRunSelect

haskell-beam · Dec 10, 2024 · c5212eb · c5212eb
1 parent ab3e6c7
commit c5212eb
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/beam-postgres/examples/test/pagilatest.hs b/beam-postgres/examples/test/pagilatest.hs
@@ -5,6 +5,7 @@
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE DeriveGeneric #-}
 module Main where
@@ -30,10 +31,10 @@ import Data.Time.LocalTime (LocalTime)
 
 import Data.Conduit ((=$=), runConduit)
 import qualified Data.Conduit.List as CL (mapM_)
+import Database.Beam.Postgres.Conduit (streamingRunSelect)
 
 -- TODO
--- runSelect deprecated?
--- testQuery conn q = runConduit (runSelect conn (select q) =$= CL.mapM_ (putStrLn . show))
+-- testQuery conn q = runConduit (streamingRunSelect conn (select q) =$= CL.mapM_ (putStrLn . show))
 
 main :: IO ()
 main = pure ()