5699a8d · typeable/bloodhound

git.iko.soy/typeable/bloodhound

on master help sign in

ripping stuff out of travis.yml, made doctests version agnostic

5699a8dChris Allen12 years ago

.travis.yml−10

compare with master

unifiedsplit

@@ -50,14 +50,4 @@ script:

50 # tests that a source-distribution can be generated

51 - cabal-1.20 sdist

53− # check that the generated source-distribution can be built & installed

54− - export SRC_TGZ=$(cabal-1.20 info . | awk '{print $2 ".tar.gz";exit}') ;

55− cd dist/;

56− if [ -f "$SRC_TGZ" ]; then

57− cabal-1.20 install "$SRC_TGZ";

58− else

59− echo "expected '$SRC_TGZ' not found";

60− exit 1;

61− fi

62−

63# EOF

53# EOF

src/Database/Bloodhound/Client.hs+3−2

@@ -164,8 +164,9 @@ post = dispatch NHTM.methodPost

164

165-- | 'getStatus' fetches the 'Status' of a 'Server'

166--

167−-- >>> getStatus testServer

167+-- >>> serverStatus <- getStatus testServer

168−-- Just (Status {ok = Nothing, status = 200, name = "Arena", version = Version {number = "1.4.1", build_hash = "89d3241d670db65f994242c8e8383b169779e2d4", build_timestamp = 2014-11-26 15:49:29 UTC, build_snapshot = False, lucene_version = "4.10.2"}, tagline = "You Know, for Search"})

168+-- >>> fmap status (serverStatus)

169+-- Just 200

169getStatus :: Server -> IO (Maybe Status)

170getStatus :: Server -> IO (Maybe Status)

170getStatus (Server server) = do

171getStatus (Server server) = do

171 request <- parseUrl $ joinPath [server]

172 request <- parseUrl $ joinPath [server]