From a024fa5dd9009eeb2fa30930682c1827af5d6412 Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 19 Oct 2015 02:10:31 +0200 Subject: [PATCH] oops. my bad. wrong index. --- Migrations/0.0.4-0.0.5/Migration.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Migrations/0.0.4-0.0.5/Migration.hs b/Migrations/0.0.4-0.0.5/Migration.hs index 1c8e4c2..22f5104 100755 --- a/Migrations/0.0.4-0.0.5/Migration.hs +++ b/Migrations/0.0.4-0.0.5/Migration.hs @@ -120,7 +120,7 @@ main = do let c = SComment (decodeUtf8 author) (zonedTimeToUTC time) (decodeUtf8 content) let dId = DocId $ T.pack $ show theId liftIO $ putStrLn $ (show c) ++ "\n" - resp <- indexDocument (IndexName "medium") (MappingName "medium") defaultIndexDocumentSettings c dId + resp <- indexDocument (IndexName "comment") (MappingName "comment") defaultIndexDocumentSettings c dId case statusCode (responseStatus resp) of 200 -> liftIO $ putStrLn $ "OK: " ++ (BL.unpack $ responseBody resp) 201 -> liftIO $ putStrLn $ "OK: " ++ (BL.unpack $ responseBody resp)