5699a8d · typeable/bloodhound

git.iko.soy/typeable/bloodhound

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

commit5699a8dde99ba3ffa963bd80b0a8a87287711747 authorChris Allen <cma@bitemyapp.com> dateFri 12 Dec 2014, 02:24 (12 years ago) parenta283eb7

2 files changed+3−12

compare with master

unifiedsplit

.travis.yml−10 src/Database/Bloodhound/Client.hs+3−2

.travis.yml−10

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

5050 # tests that a source-distribution can be generated

5151 - cabal-1.20 sdist

5252

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−

6353# EOF

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

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

164164

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

166166--

167−-- >>> 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"})

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

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

169+-- Just 200

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

170171getStatus (Server server) = do

171172 request <- parseUrl $ joinPath [server]