http-test 0.2.1.0 → 0.2.2.0

raw patch · 2 files changed

+3/−2 lines, 2 files

Files

http-test.cabal +1/−1
src/Test/HTTP.hs +2/−1

http-test.cabal view

@@ -1,5 +1,5 @@ Name:                http-test-Version:             0.2.1.0+Version:             0.2.2.0 synopsis:            Test framework for HTTP APIs Description:         A simple framework for making assertions about the                       responses of HTTP servers.

src/Test/HTTP.hs view

@@ -181,9 +181,10 @@  -- | Print the number of seconds elapsed, with a prefix -toc :: String -> Session ()+toc :: String -> Session Double toc s = do   last <- fmap timer $ S.get   now <- liftIO $ getCurrentTime   let df = diffUTCTime now last   liftIO $ putStrLn $ s ++ " "++show df+  return $ realToFrac df