@@ -69,9 +69,10 @@ import Control.Monad.IO.Class
6969import Data.Aeson
7070import Data.ByteString.Lazy.Builder
7171import qualified Data.ByteString.Lazy.Char8 as L
72+import Data.Foldable (toList)
7273import Data.Ix
7374import qualified Data.List as LS (filter)
74−import qualified Data.List.NonEmpty as NE
75+import Data.List.NonEmpty (NonEmpty (..))
7576import Data.Maybe (fromMaybe, isJust)
7677import Data.Monoid
7778import Data.Text (Text)
@@ -361,11 +362,11 @@ closeIndex = openOrCloseIndexes CloseIndex
361362-- True
362363-- >> respIsTwoHunna <$> runBH' (indexExists aliasName)
363364-- True
364−updateIndexAliases :: MonadBH m => NE.NonEmpty IndexAliasAction -> m Reply
365+updateIndexAliases :: MonadBH m => NonEmpty IndexAliasAction -> m Reply
365366updateIndexAliases actions = bindM2 post url (return body)
366367 where url = joinPath ["_aliases"]
367368 body = Just (encode bodyJSON)
368− bodyJSON = object [ "actions" .= NE.toList actions]
369+ bodyJSON = object [ "actions" .= toList actions]
369370
370371-- | Get all aliases configured on the server.
371372getIndexAliases :: (MonadBH m, MonadThrow m)