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

@@ -76,7 +76,6 @@ data AppSettings = AppSettings
     , appTos2                   :: Text
     -- ^ Terms of Service
     , appSearchHost             :: Text
-    , appSearchPort		:: Int
     , appShards                 :: Int
     , appReplicas               :: Int
     -- ^ Settings for Elasticsearch
@@ -112,7 +111,6 @@ instance FromJSON AppSettings where
         appTos2                   <- o .: "tos2"
 
         appSearchHost             <- o .: "searchhost"
-        appSearchPort                <- o .: "searchport"
         appShards                 <- o .: "shards"
         appReplicas               <- o .: "replicas"
 

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