Haskell bindings to libpg_query
Access the entire PostgreSQL lexing / parsing phase from Haskell.
Returns PostgreSQL-flavored SQL as an AST in JSON form.
Install libpg_query
git clone -b 13-latest git:https://github.com/pganalyze/libpg_query
cd libpg_query
make
sudo make installgit clone https://github.com/dmjio/pg-query
cd pg-query && cabal buildnix-build
{-# LANGUAGE TypeApplications #-}
module Main where
import Data.Aeson (decode)
import Data.Aeson.Encode.Pretty (encodePretty)
import qualified Data.ByteString.Lazy.Char8 as B8
import Postgres.Query.Parse (parseSQL, parse_tree)
import System.Environment (getArgs)
main :: IO ()
main = do
bytes <- B8.pack . parse_tree <$> parseSQL "select 1"
case decode @Value bytes of
Just val -> B8.putStrLn (encodePretty val)
_ -> pure (){
"stmts": [
{
"stmt": {
"SelectStmt": {
"op": "SETOP_NONE",
"targetList": [
{
"ResTarget": {
"location": 7,
"val": {
"A_Const": {
"location": 7,
"val": {
"Integer": {
"ival": 1
}
}
}
}
}
}
],
"limitOption": "LIMIT_OPTION_DEFAULT"
}
}
}
],
"version": 130003
}