@@ -24,7 +24,6 @@ import GHC.Generics (Generic)
2424import Network.HTTP.Conduit
2525import qualified Network.HTTP.Types.Method as NHTM
2626import qualified Network.HTTP.Types.Status as NHTS
27−import qualified Control.Exception as E
2827
2928data Version = Version { number :: T.Text
3029 , build_hash :: T.Text
@@ -54,8 +53,6 @@ instance (FromJSON a, ToJSON a) => FromJSON (Status a) where
5453-- instance ToJSON (Status a)
5554-- instance FromJSON (Status a)
5655
57−muhServer = "http://localhost:9200"
58−
5956-- bloo <- (liftM responseBody $ parseUrl "http://localhost:9200/" >>= \r -> withManager (httpLbs r))
6057
6158-- rootPath :: String