typeable/bloodhound
1
0
Fork 0
mirror of https://github.com/typeable/bloodhound.git synced 2024-09-11 08:25:32 +03:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Chris Allen 2014-04-05 00:25:33 -05:00
parent 3ec86b38d0
commit d6d411200c
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Database/Bloodhound/Client.hs
View File

@ -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