@@ -24,7 +24,6 @@ import GHC.Generics (Generic)
24import Network.HTTP.Conduit
24import Network.HTTP.Conduit
25import qualified Network.HTTP.Types.Method as NHTM
25import qualified Network.HTTP.Types.Method as NHTM
26import qualified Network.HTTP.Types.Status as NHTS
26import qualified Network.HTTP.Types.Status as NHTS
27−import qualified Control.Exception as E
29data Version = Version { number :: T.Text
28data Version = Version { number :: T.Text
30 , build_hash :: T.Text
29 , build_hash :: T.Text
@@ -54,8 +53,6 @@ instance (FromJSON a, ToJSON a) => FromJSON (Status a) where
54-- instance ToJSON (Status a)
53-- instance ToJSON (Status a)
55-- instance FromJSON (Status a)
54-- instance FromJSON (Status a)
57−muhServer = "http://localhost:9200"
59-- bloo <- (liftM responseBody $ parseUrl "http://localhost:9200/" >>= \r -> withManager (httpLbs r))
56-- bloo <- (liftM responseBody $ parseUrl "http://localhost:9200/" >>= \r -> withManager (httpLbs r))
61-- rootPath :: String
58-- rootPath :: String