@@ -30,7 +30,8 @@ instance ToJSON Tweet
30instance FromJSON Tweet
30instance FromJSON Tweet
32exampleTweet = Tweet { user = "bitemyapp"
32exampleTweet = Tweet { user = "bitemyapp"
33− , postDate = UTCTime (ModifiedJulianDay 55000)
34+ (ModifiedJulianDay 55000)
34 (secondsToDiffTime 10)
35 (secondsToDiffTime 10)
35 , message = "Use haskell!" }
36 , message = "Use haskell!" }
@@ -48,6 +49,7 @@ main = hspec $ do
48 it "indexes, gets, and then deletes the generated document" $ do
49 it "indexes, gets, and then deletes the generated document" $ do
49 let tweet = exampleTweet
50 let tweet = exampleTweet
50 let encoded = encode tweet
51 let encoded = encode tweet
52+ _ <- deleteExampleIndex
51 created <- createExampleIndex
53 created <- createExampleIndex
52 docCreated <- indexDocument (Server "http://localhost:9200") "twitter" "tweet" tweet "1"
54 docCreated <- indexDocument (Server "http://localhost:9200") "twitter" "tweet" tweet "1"
53 docInserted <- getDocument (Server "http://localhost:9200") "twitter" "tweet" "1"
55 docInserted <- getDocument (Server "http://localhost:9200") "twitter" "tweet" "1"