diff --git a/Handler/Search.hs b/Handler/Search.hs index db1a727..d20f09e 100755 --- a/Handler/Search.hs +++ b/Handler/Search.hs @@ -33,9 +33,9 @@ getSearchR = do case res of FormSuccess query -> do mediumList <- runDB $ do - a <- rawSql "select ?? from medium where any(string_to_array(title, ' ') % ?" + a <- rawSql "select ?? from medium where ? % any(string_to_array(title, ' ')" [PersistText query] - b <- rawSql "select ?? from medium where any(string_to_array(description, ' ') % ?" + b <- rawSql "select ?? from medium where ? % any(string_to_array(description, ' ')" [PersistText query] return $ sortBy (\ sa sb -> compare (T.unpack $ mediumTitle $ entityVal sa)