BNFC-meta-0.1: examples/sql/UseSql.hs

{-# Language QuasiQuotes #-}
module UseSQL where
-- import Language.LBNF

import SQL;

del x uid= [$sqlStatement| 
  DELETE FROM Tables.Table WHERE 
      [:x:]
      AND Owner = [Integer:uid:]
  |]

stm = del [$boolExpression|text = "Value"|] 0