createESMapping.hs

{-# LANGUAGE DataKinds         #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes       #-}
{-# LANGUAGE TypeOperators     #-}

import           Data.Aeson
import           Data.Maybe
import           Data.Proxy
import           Data.String.QQ
import           Network.HTTP.Client (defaultManagerSettings, newManager)
import           Servant.API
import           Servant.Client

-- elasticsearch API
guardianMapping :: Maybe Value
guardianMapping = decode [s|
{
    "mappings": {
        "articles": {
            "properties": {
                "wordcount": {
                    "type": "integer"
                },
                "bodyText": {
                    "type": "text"
                }
            }
        }
    }
}|]

-- Create a new index called "guardian" with a mapping in the ReqBody
type ESAPI = "guardian"
  :> ReqBody '[JSON] Value
  :> Put '[JSON] Value
-- The only boilerplate code
esAPI :: Proxy ESAPI
esAPI = Proxy
-- Generate the Haskell Client
createMapping = client esAPI

main :: IO ()
main = do
  manager' <- newManager defaultManagerSettings
  res <- runClientM
           (createMapping (fromJust guardianMapping))
           (mkClientEnv manager' (BaseUrl Http "localhost" 9200 ""))
  case res of
    Right r -> print r
    Left x  -> print x