@@ -26,6 +26,7 @@ module Database.V5.Bloodhound.Client
2626 -- ** Indices
2727 , createIndex
2828 , createIndexWith
29+ , flushIndex
2930 , deleteIndex
3031 , updateIndexSettings
3132 , getIndexSettings
@@ -534,7 +535,13 @@ createIndexWith updates shards (IndexName indexName) =
534535 )
535536 ]
536537
537−-- | 'deleteIndex' will delete an index given a 'Server', and an 'IndexName'.
538+-- | 'flushIndex' will flush an index given a 'Server' and an 'IndexName'.
539+flushIndex :: MonadBH m => IndexName -> m Reply
540+flushIndex (IndexName indexName) = do
541+ path <- joinPath [indexName, "_flush"]
542+ post path Nothing
543+
544+-- | 'deleteIndex' will delete an index given a 'Server' and an 'IndexName'.
538545--
539546-- >>> _ <- runBH' $ createIndex defaultIndexSettings (IndexName "didimakeanindex")
540547-- >>> response <- runBH' $ deleteIndex (IndexName "didimakeanindex")