- [session, dir] <- (take 2 <$> getArgs) >>= mapM canonicalizePath
- passed <- replay session dir
- putStrLn $ if passed then "Passed" else "Failed"
+ sessionFile <- (head <$> getArgs) >>= canonicalizePath
+ replay sessionFile $ do
+ x <- sendNextRequest
+ liftIO $ print x
+ y <- sendNextRequest
+ liftIO $ print y
\ No newline at end of file