mirror of
https://github.com/typeable/bloodhound.git
synced 2024-09-11 08:25:32 +03:00
Qualify some troublesome imports
This commit is contained in:
parent
edaac67fcb
commit
0e0ed4a877
@ -369,8 +369,9 @@ import Control.Applicative as A
|
||||
import Control.Arrow (first)
|
||||
import Control.Monad.Catch
|
||||
import Control.Monad.Except
|
||||
import Control.Monad.Reader
|
||||
import Control.Monad.State
|
||||
import Control.Monad.Reader (MonadReader (..),
|
||||
ReaderT (..))
|
||||
import Control.Monad.State (MonadState)
|
||||
import Control.Monad.Writer (MonadWriter)
|
||||
import Data.Aeson
|
||||
import Data.Aeson.Types (Pair, Parser,
|
||||
|
@ -368,9 +368,10 @@ import Control.Applicative as A
|
||||
import Control.Arrow (first)
|
||||
import Control.Monad.Catch
|
||||
import Control.Monad.Except
|
||||
import Control.Monad.Reader
|
||||
import Control.Monad.State
|
||||
import Control.Monad.Writer
|
||||
import Control.Monad.Reader (MonadReader (..),
|
||||
ReaderT (..))
|
||||
import Control.Monad.State (MonadState)
|
||||
import Control.Monad.Writer (MonadWriter)
|
||||
import Data.Aeson
|
||||
import Data.Aeson.Types (Pair, Parser,
|
||||
emptyObject,
|
||||
@ -1469,8 +1470,8 @@ data BoolQuery =
|
||||
} deriving (Eq, Read, Show, Generic, Typeable)
|
||||
|
||||
mkBoolQuery :: [Query] -> [Filter] -> [Query] -> [Query] -> BoolQuery
|
||||
mkBoolQuery must filter mustNot should =
|
||||
BoolQuery must filter mustNot should Nothing Nothing Nothing
|
||||
mkBoolQuery must filt mustNot should =
|
||||
BoolQuery must filt mustNot should Nothing Nothing Nothing
|
||||
|
||||
data BoostingQuery =
|
||||
BoostingQuery { positiveQuery :: Query
|
||||
|
Loading…
Reference in New Issue
Block a user