@@ -336,9 +336,12 @@ let search = mkSearch (Just query) Nothing
337#+BEGIN_SRC haskell
337#+BEGIN_SRC haskell
339+let posQuery = QueryMatchQuery $
339−let posQuery = QueryMatchQuery $ mkMatchQuery (FieldName "user") (QueryString "bitemyapp")
340+ mkMatchQuery (FieldName "user") (QueryString "bitemyapp")
341+let negQuery = QueryMatchQuery $
340−let negQuery = QueryMatchQuery $ mkMatchQuery (FieldName "user") (QueryString "notmyapp")
342+ mkMatchQuery (FieldName "user") (QueryString "notmyapp")
343+let query = QueryBoostingQuery $
341−let query = QueryBoostingQuery $ BoostingQuery posQuery negQuery (Boost 0.2)
344+ BoostingQuery posQuery negQuery (Boost 0.2)