Commit 502872 fixes

2 files Authored and Committed by Richard Marko 2 years ago
fixes

    
1 @@ -48,7 +48,7 @@
2     ea <- async $ runESP esp
3     -- also needs waitConnected
4     withFile eFile ReadMode $ \x -> do
5 -     result <- uploadESP esp x "test.lua"
6 +     result <- uploadESP esp x (B.pack eFile)
7       return result
8     okRes <- waitOk esp
9     case okRes of
 1 @@ -55,7 +55,7 @@
 2               -- rpc() on the client which responds
 3               -- with ok/fail
 4               B.putStrLn x
 5 -             threadDelay 100000
 6 +             threadDelay 200000
 7               loop
 8   
 9     race
10 @@ -126,6 +126,7 @@
11             False -> do
12               line <- B.hGetLine h
13               writeESP esp $ luaCall "file.writeline" [line]
14 +             loop h
15   
16     loop handle
17