postgresql-simple-interpolate
Write natural SQL statements in Haskell using a QuasiQuotes!
{-# LANGUAGE QuasiQuotes #-}
import Data.Char (toLower)
import qualified Database.PostgreSQL.Simple as Pg
import Database.PostgreSQL.Simple.SqlQQ.Interpolated (isql)
import Control.Exception (bracket)
main :: IO ()
main = do
bracket (Pg.connectPostgreSQL "host=localhost") Pg.close $ \conn -> do
let limit = 10
ages <- uncurry (query conn) [isql|SELECT age FROM table WHERE name = ${map toLower "CLIVE"} LIMIT ${limit}|]
print (ages :: [Pg.Only Int])
|]Hacking
With Nix you can quickly play around with this using a PostgreSQL database:
nix-shell -p '(import ./. {}).haskellPackages.ghcWithPackages (p: [p.gargoyle-postgresql-connect p.postgresql-simple-interpolate])' --run ghci
Then run
:set -XQuasiQuotes
import Gargoyle.PostgreSQL.Connect (withDb)
import Data.Pool (withResource)
import Database.PostgreSQL.Simple (Only (..), query)
import Database.PostgreSQL.Simple.SqlQQ.Interpolated (isql)
[isql|SELECT ${1 + 1}|]
-- ("SELECT ?",[Plain "2"])
withDb "db" $ \pool -> withResource pool $ \c -> (uncurry (query c) [isql|SELECT ${1 + 1}, ${reverse "HELLO"}::text|] :: IO [(Int, String)])
-- [(2,"OLLEH")]Acknowledgements
This library is basically just a copy of the here package by Taylor M. Hedberg with slight modifications!
