如何在Opaleye中实现这个模糊搜索sql查询?

Question

我有一个SQL查询，我正在尝试将其转换为Opaleye。

我将简化我的代码以专注于我的问题点，即如何使用 Opaleye 进行模糊搜索。

Haskell(具有一些现有的Opaleye结构(是

namesTable :: O.Table NamesColumnWrite NamesColumnRead
namesTable = O.Table "names" (pNames Names { id = O.optional "id"
, licenseNumber = O.required "license_number"
, fullName = O.required "full_name"
})
import qualified Database.PostgreSQL.Simple as PGS
data Names' id' licenseNumber' fullName' =
Names
{ id           :: id'
, licenseNumber     :: licenseNumber'
, fullName          :: fullName'
} deriving (Show, Eq)
namesQuery :: Query NamesColumnRead
namesQuery = queryTable NamesTable
type NamesRead = Names' Int String String
type NamesWrite = Names' (Maybe Int) String String
type NamesColumnWrite = Names' (Maybe (O.Column O.PGInt4)) (O.Column O.PGText) (O.Column O.PGText)
type NamesColumnRead = Names' (O.Column O.PGInt4) (O.Column O.PGText) (O.Column O.PGText)
getNamesByFuzzyLicenseNumber :: PGS.Connection -> String -> IO [NamesRead]
getNamesByFuzzyLicenseNumber conn licNumber = do
let query' = "SELECT id, license_number, full_name FROM get_names_by_fuzzy_license_number_fn(?)"
PGS.query conn query' [licNumber]

而 Sql 是

CREATE OR REPLACE FUNCTION get_names_by_license_number_fuzzy_fn(p_license_number VARCHAR)
RETURNS TABLE
(id INT
,license_number VARCHAR
,full_name TEXT
)
AS $$
SELECT
id,
license_number,
full_name
FROM names
WHERE license_number LIKE '%' || p_license_number || '%'
$$
LANGUAGE sql;

通过"模糊搜索"，我的意思是它搜索任何带有许可证号的行，其中包含搜索参数p_license_number值作为子字符串。

如何将此模糊搜索查询转换为 Opaleye？

这将涉及删除SQL文件并将getNamesByLicenseNumber替换为Haskell Opaleye查询。 我希望答案可能是这样的

getNamesByLicenseNumber :: String -> Query NamesColumnRead
getNamesByLicenseNumber licNumber = proc () -> do
names <- namesQuery -< ()
restrict -< pgString licNumber .== licenseNumber (names :: NamesColumnRead)
returnA -< names

除非使用模糊而不是严格匹配。

Answer 1

我不确定你的问题到底是什么，因为你所拥有的看起来很好。 有两件事我会改进。 首先，将字符串作为参数传递给QueryArr，而不是作为函数参数传递。 其次使用like而不是.==。

getNamesByLicenseNumber :: QueryArr (Column PGText) NamesColumnRead
getNamesByLicenseNumber = proc licNumber -> do
names <- namesQuery -< ()
restrict -< licNumber `like` licenseNumber (names :: NamesColumnRead)
returnA -< names

这能做到你想要的吗？