This commit is contained in:
nek0 2017-10-21 16:14:33 +02:00
parent e63c06d28e
commit f41f2db25d

View file

@ -33,9 +33,9 @@ getSearchR = do
case res of case res of
FormSuccess query -> do FormSuccess query -> do
mediumList <- runDB $ 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] [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] [PersistText query]
return $ sortBy (\ sa sb -> compare return $ sortBy (\ sa sb -> compare
(T.unpack $ mediumTitle $ entityVal sa) (T.unpack $ mediumTitle $ entityVal sa)