projects
/
lsp-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Start work on moving to new session file format
[lsp-test.git]
/
example
/
Recorded.hs
diff --git
a/example/Recorded.hs
b/example/Recorded.hs
index dc4aa69fd32f739a82be4e599b72423e657be397..ce61cb1acfad9afd9a1ea8b65e3d00c1c946062e 100644
(file)
--- a/
example/Recorded.hs
+++ b/
example/Recorded.hs
@@
-3,5
+3,6
@@
import System.Directory
import System.Environment
main = do
- file <- (head <$> getArgs) >>= canonicalizePath
- replay file
+ [session, dir] <- (take 2 <$> getArgs) >>= mapM canonicalizePath
+ passed <- replay session dir
+ putStrLn $ if passed then "Passed" else "Failed"