sphinx 0.5.0 → 0.5.1
raw patch · 2 files changed
+19/−6 lines, 2 files
Files
- Text/Search/Sphinx.hs +14/−2
- sphinx.cabal +5/−4
Text/Search/Sphinx.hs view
@@ -1,3 +1,5 @@+{-# LANGUAGE CPP #-}+ -- The following functions are not yet implemented: -- setFilterFloatRange, setGeoAnchor -- resetFilters, resetGroupBy@@ -72,7 +74,7 @@ T.QueryOk result -> T.Warning warning result T.QueryWarning w result -> T.Warning (BS.append warning w) result T.QueryError code e -> T.Error code e- + connect :: String -> Int -> IO Handle connect host port = do connection <- connectTo host (PortNumber $ fromIntegral $ port)@@ -183,10 +185,20 @@ where numQueries = length qs queryReq = foldPuts qs+ request = runPut $ do cmd T.ScSearch verCmd T.VcSearch- num $ 4 + (fromEnum $ BS.length (runPut queryReq))+ num $ +#ifdef ONE_ONE_BETA+ 4+#else+ 8+#endif+ + (fromEnum $ BS.length (runPut queryReq))+#ifdef ONE_ONE_BETA+ num 0+#endif num numQueries queryReq
sphinx.cabal view
@@ -1,7 +1,7 @@ Name: sphinx-Version: 0.5.0+Version: 0.5.1 Synopsis: Haskell bindings to the Sphinx full-text searching deamon.-Description: Haskell bindings to the Sphinx full-text searching deamon. Compatible with sphinx version 1.1+Description: Haskell bindings to the Sphinx full-text searching deamon. Compatible with Sphinx version 2.0 Category: Text, Search, Database License: BSD3 License-file: LICENSE@@ -13,8 +13,8 @@ Build-Type: Simple Flag version-1-1-beta- Description: By default this library is compatible with version 1.10 beta of sphinx- you could try it without the flag on version 2, but should use this flag.+ Description: By default this library is compatible with version 2.0 beta of Sphinx.+ Use this flag if you use Sphinx 1.1 Default: False library@@ -33,3 +33,4 @@ if flag(version-1-1-beta) cpp-options: -DONE_ONE_BETA+