Hasql extension for composable, dynamic construction of SQL statements.
This library provides a Snippet API that simplifies building SQL statements where the structure depends on runtime parameters. It abstracts over placeholder management and encoder matching, eliminating boilerplate and reducing bugs.
- Composable: Build statements using
Semigroup/Monoidoperations - Type-safe: Automatic parameter encoding with type-driven encoder derivation
- Dynamic: Construct SQL conditionally based on parameters
- Clean API: No manual placeholder numbering or encoder alignment
import Hasql.DynamicStatements.Snippet
-- Build a dynamic substring query
selectSubstring :: Text -> Maybe Int32 -> Maybe Int32 -> Snippet
selectSubstring string from to =
"select substring(" <> param string <>
foldMap (\x -> " from " <> param x) from <>
foldMap (\x -> " for " <> param x) to <>
")"
-- Execute in a session
result <- toSession (selectSubstring "hello" (Just 2) Nothing)
(singleRow $ column $ nonNullable text)Compare the above to manual construction:
selectSubstring' :: Text -> Maybe Int32 -> Maybe Int32 -> Statement () Text
selectSubstring' string from to =
let sql = case (from, to) of
(Just _, Just _) -> "select substring($1 from $2 to $3)"
(Just _, Nothing) -> "select substring($1 from $2)"
(Nothing, Just _) -> "select substring($1 to $2)"
(Nothing, Nothing) -> "select substring($1)"
encoder =
Encoders.param (string >$ Encoders.text) <>
foldMap (\x -> Encoders.param (x >$ Encoders.int8)) from <>
foldMap (\x -> Encoders.param (x >$ Encoders.int8)) to
decoder = singleRow $ column $ nonNullable text
in Statement.preparable sql encoder decoderThe Snippet API eliminates placeholder numbering, pattern matching on parameter presence, and manual encoder sequencing.
sql- Raw SQL textparam- Parameter with implicit encoderencoderAndParam- Parameter with explicit encoder
toSql- Compile to SQL text with placeholderstoStatement- Create aStatementtoSession- Execute directly inSessiontoPipeline- Execute inPipeline