git.iko.soy/denis
on master help sign in
Improved faculty search
b920ecbiko
denis/src/Data/Query.hs+8−1
compare with master
unifiedsplit
@@ -974,7 +974,14 @@ rowToUser UserRow{..} = User {
974 }
974 }
975
975
976queryFromText :: Text -> Text
976queryFromText :: Text -> Text
977−queryFromText = T.unwords . L.intersperse "&" . map (`T.append` ":*") . filter (not . T.null) . T.split (not . isAlphaNum)
977+queryFromText = T.unwords . L.intersperse "&" . map processTerm . filter (not . T.null) . T.split (not . isAlphaNum)
978+ where
979+ processTerm :: Text -> Text
980+ processTerm t = "(" <> t <> ":*" <> (
981+ if T.length t <= 5
982+ then (" | (" <>) . (<> ")") . T.unwords . L.intersperse "<->" . map (<> ":*") . map T.singleton . T.unpack $ t
983+ else mempty
984+ ) <> ")"
978
985
979directionToOperator
986directionToOperator
980 :: P.PaginationDirection
987 :: P.PaginationDirection