mirror of
https://github.com/typeable/bloodhound.git
synced 2024-09-11 08:25:32 +03:00
cleanup
This commit is contained in:
parent
3ec86b38d0
commit
d6d411200c
@ -24,7 +24,6 @@ import GHC.Generics (Generic)
|
||||
import Network.HTTP.Conduit
|
||||
import qualified Network.HTTP.Types.Method as NHTM
|
||||
import qualified Network.HTTP.Types.Status as NHTS
|
||||
import qualified Control.Exception as E
|
||||
|
||||
data Version = Version { number :: T.Text
|
||||
, build_hash :: T.Text
|
||||
@ -54,8 +53,6 @@ instance (FromJSON a, ToJSON a) => FromJSON (Status a) where
|
||||
-- instance ToJSON (Status a)
|
||||
-- instance FromJSON (Status a)
|
||||
|
||||
muhServer = "http://localhost:9200"
|
||||
|
||||
-- bloo <- (liftM responseBody $ parseUrl "http://localhost:9200/" >>= \r -> withManager (httpLbs r))
|
||||
|
||||
-- rootPath :: String
|
||||
|
Loading…
Reference in New Issue
Block a user