typeable/bloodhound
1
0
Fork 0
mirror of https://github.com/typeable/bloodhound.git synced 2024-09-11 08:25:32 +03:00
Code Issues Projects Releases Wiki Activity

Qualify some troublesome imports

Browse Source
This commit is contained in:
Michael Xavier 2017-02-01 13:02:52 -08:00
parent edaac67fcb
commit 0e0ed4a877
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Database/V1/Bloodhound/Types.hs
View File

@ -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,

11
src/Database/V5/Bloodhound/Types.hs
View File

@ -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