insert

[tolysz]

Works

let
   s = "test string scoped"
in $(genTypedQuery [qq|
 INSERT INTO 
     test ( str -- String -- < s
          )
|] )

Do not work

let
   s = "test string scoped" :: String
in $(genTypedQuery [qq|
 INSERT INTO 
     test ( str -- < s
          )
|] )

More sensitive parser

first gives:

[TAInsIS "s"]
[]
[TACast "String "]

second:

[TAInsIS "s"]
[]
[]