@@ -28,6 +28,7 @@ import Network.Connection (TLSSettings (..))
28import Network.HTTP.Client (newManager)
28import Network.HTTP.Client (newManager)
29import Network.HTTP.Client.TLS
29import Network.HTTP.Client.TLS
30import Network.HTTP.Types.Status
30import Network.HTTP.Types.Status
31+import System.Environment (lookupEnv)
31import System.Process (system)
32import System.Process (system)
33import Docker.Client
34import Docker.Client
@@ -186,5 +187,10 @@ fromRight (Right r) = return r
187main :: IO ()
188main :: IO ()
190+ stackage <- lookupEnv "RUN_INTEGRATION_TESTS"
192+ Nothing -> defaultMain $ testGroup "Tests" [jsonTests]
190− defaultMain $ testGroup "Tests" [jsonTests, integrationTests]
195+ defaultMain $ testGroup "Tests" [jsonTests, integrationTests]