@@ -22,11 +22,11 @@ main :: IO ()
2222main = do
2323 eitherGraph <- JS.fetchRefs JS.draft4 rawSchema H.empty
2424 case eitherGraph of
25− Left e -> print e
26− Right g ->
27− case JS.compileDraft4 g rawSchema of
28− Left e2 -> print e2
29− Right a -> print $ JS.validate a invalidData
25+ Left e -> print e
26+ Right graph ->
27+ case JS.compileDraft4 graph rawSchema of
28+ Left e2 -> print e2
29+ Right schema -> print $ JS.validate schema invalidData
3030
3131rawSchema :: JS.RawSchema
3232rawSchema = JS.RawSchema
@@ -48,14 +48,13 @@ fromList ["Val error against uniqueItems True for: Array (fromList [String \"foo
4848
4949 git submodule update --init
5050
51−# Run Tests
51+# Prepare Tests
5252
53− cd JSON-Schema-Test-Suite/remotes
54− hserv --port=1234 (or python -m SimpleHTTPServer 1234)
53++ `cd JSON-Schema-Test-Suite/remotes
5554
56−Then run the normal `cabal test` from another terminal.
55++ `hserv --port=1234` / `python -m SimpleHTTPServer 1234`
5756
58−Note that the tests require an internet connection.
57+Note that the `remote` test suite requires an internet connection.
5958
6059# Notes
6160