X-Git-Url: http://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=example%2FRecorded.hs;fp=example%2FRecorded.hs;h=470bfdbb7bcba1a8cf1ac8bfba3e2d9937528772;hp=e267ff80ee9f9a1d76f45bb7f7953804c2cd1223;hb=35925b4a5a5e24e1611431106fd8ddd7c89a4436;hpb=092af98d24a00b540c3370774ebaa33161e98f3b

diff --git a/example/Recorded.hs b/example/Recorded.hs
index e267ff8..470bfdb 100644
--- a/example/Recorded.hs
+++ b/example/Recorded.hs
@@ -3,5 +3,6 @@ import           System.Directory
 import           System.Environment
 
 main = do
-  [client, server] <- ((take 2) <$> getArgs) >>= mapM canonicalizePath
-  replay client server
+  [client, server] <- (take 2 <$> getArgs) >>= mapM canonicalizePath
+  passed <- replay client server
+  putStrLn $ if passed then "Passed" else "Failed"