typeable/bloodhound
1
0
Fork 0
mirror of https://github.com/typeable/bloodhound.git synced 2024-12-02 14:34:23 +03:00
Code Issues Projects Releases Wiki Activity

Hopefully resolve type error in doctests

Browse Source 
Doctests won't even run for me due to some sort of env issue, so I'm
afraid I've resorted to debug-via-travis.
This commit is contained in:
Michael Xavier 2015-11-03 20:00:43 -08:00
parent 8d75ef9f7c
commit 6faa544839
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Database/Bloodhound/Client.hs
View File

@ -69,9 +69,10 @@ import Control.Monad.IO.Class
import Data.Aeson
import Data.ByteString.Lazy.Builder
import qualified Data.ByteString.Lazy.Char8 as L
import Data.Foldable (toList)
import Data.Ix
import qualified Data.List as LS (filter)
import qualified Data.List.NonEmpty as NE
import Data.List.NonEmpty (NonEmpty (..))
import Data.Maybe (fromMaybe, isJust)
import Data.Monoid
import Data.Text (Text)
@ -361,11 +362,11 @@ closeIndex = openOrCloseIndexes CloseIndex
-- True
-- >> respIsTwoHunna <$> runBH' (indexExists aliasName)
-- True
updateIndexAliases :: MonadBH m => NE.NonEmpty IndexAliasAction -> m Reply
updateIndexAliases :: MonadBH m => NonEmpty IndexAliasAction -> m Reply
updateIndexAliases actions = bindM2 post url (return body)
where url = joinPath ["_aliases"]
body = Just (encode bodyJSON)
bodyJSON = object [ "actions" .= NE.toList actions]
bodyJSON = object [ "actions" .= toList actions]
-- | Get all aliases configured on the server.
getIndexAliases :: (MonadBH m, MonadThrow m)