better searchhost configuration

Handler/Commons.hs

@@ -151,7 +151,6 @@ deleteIndexES input = do
 runBH' action = do
   master <- getYesod
   let s = appSearchHost $ appSettings master
-  let p = show $ appSearchPort $ appSettings master
+  let server = Server s
-  let server = Server $ T.pack $ (T.unpack s) ++ ":" ++ show p
   manager <- liftIO $ newManager defaultManagerSettings
   runBH (BHEnv server manager) action

Settings.hs

@@ -75,10 +75,9 @@ data AppSettings = AppSettings
     , appTos1                   :: Text
     , appTos2                   :: Text
     -- ^ Terms of Service
-    , appSearchHost		:: Text
+    , appSearchHost             :: Text
-    , appSearchPort		:: Int
+    , appShards                 :: Int
-    , appShards                    :: Int
+    , appReplicas               :: Int
-    , appReplicas                  :: Int
     -- ^ Settings for Elasticsearch
     }
 
@@ -111,10 +110,9 @@ instance FromJSON AppSettings where
         appTos1                   <- o .: "tos1"
         appTos2                   <- o .: "tos2"
 
-        appSearchHost                <- o .: "searchhost"
+        appSearchHost             <- o .: "searchhost"
-        appSearchPort                <- o .: "searchport"
+        appShards                 <- o .: "shards"
-        appShards                    <- o .: "shards"
+        appReplicas               <- o .: "replicas"
-        appReplicas                  <- o .: "replicas"
 
         return AppSettings {..}
 

config/settings.yml

@@ -53,7 +53,6 @@ tos1: "Terms of Service 1"
 tos2: "Terms of Service 2"
 
 # Elasticsearcha settings
-searchhost: "localhost"
+searchhost: "http://localhost:9200"
-searchport: 9200
 shards: 1
 replicas: 2