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