on master help sign in
Make 'ob run' in selftest use -v
commit8f505a0958a193788f831afba19090cdac9bbf88 authorElliot Cameron <eacameron@gmail.com> dateFri 3 Jan 2020, 12:41 (7 years ago) parent0839ea8
1 file changed+1−1
lib/selftest/src/Obelisk/SelfTest.hs+1−1
lib/selftest/src/Obelisk/SelfTest.hs+1−1
@@ -253,7 +253,7 @@ testObRunInDir :: Socket.PortNumber -> Socket.PortNumber -> Maybe Shelly.FilePat
253253testObRunInDir p0 p1 mdir httpManager = handle_sh (\case ExitSuccess -> pure (); e -> throw e) $ do
254254 let uri p = "http://localhost:" <> T.pack (show p) <> "/" -- trailing slash required for comparison
255255 writefile "config/common/route" $ uri p0
256− maybe id chdir mdir $ runHandle "ob" ["run"] $ \stdout -> do
256+ maybe id chdir mdir $ runHandle "ob" ["run", "-v"] $ \stdout -> do
257257 firstUri <- handleObRunStdout httpManager stdout
258258 let newUri = uri p1
259259 when (firstUri == newUri) $ errorExit $