@@ -1,4 +1,4 @@
1−{-# LANGUAGE DeriveGeneric, OverloadedStrings, TemplateHaskell #-}
1+{-# LANGUAGE DeriveGeneric, OverloadedStrings #-}
22
33module Main where
44
@@ -51,8 +51,11 @@ main = hspec $ do
5151 let encoded = encode tweet
5252 _ <- deleteExampleIndex
5353 created <- createExampleIndex
54− docCreated <- indexDocument (Server "http://localhost:9200") "twitter" "tweet" tweet "1"
55− docInserted <- getDocument (Server "http://localhost:9200") "twitter" "tweet" "1"
56− let newTweet = decode (responseBody docInserted) :: Maybe (EsResult Tweet)
54+ docCreated <- indexDocument (Server "http://localhost:9200")
55+ "twitter" "tweet" tweet "1"
56+ docInserted <- getDocument (Server "http://localhost:9200")
57+ "twitter" "tweet" "1"
58+ let newTweet = decode
59+ (responseBody docInserted) :: Maybe (EsResult Tweet)
5760 deleted <- deleteExampleIndex
5861 Just tweet `shouldBe` fmap _source newTweet