diff options
| author | Nobuaki Sukegawa <nsuke@apache.org> | 2015-11-23 19:51:37 +0900 |
|---|---|---|
| committer | Nobuaki Sukegawa <nsuke@apache.org> | 2015-11-23 22:45:25 +0900 |
| commit | e8c71d8cc9d0138cd7f48616ce64b50ae0a1b932 (patch) | |
| tree | 21fd8c97b3d2af26e71b6d012e93fdbd510be0e6 /test/hs/TestServer.hs | |
| parent | cacce2f1d503b7e98842308852237af53180fd87 (diff) | |
| download | thrift-e8c71d8cc9d0138cd7f48616ce64b50ae0a1b932.tar.gz | |
THRIFT-3442 Run CMake tests on Appveyor
Client: Test
Patch: Nobuaki Sukegawa
This closes #713
Diffstat (limited to 'test/hs/TestServer.hs')
| -rwxr-xr-x | test/hs/TestServer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/hs/TestServer.hs b/test/hs/TestServer.hs index 90ec11e78..4a88649b8 100755 --- a/test/hs/TestServer.hs +++ b/test/hs/TestServer.hs @@ -31,7 +31,7 @@ import Network import System.Environment import System.Exit import System.IO -import System.Posix.Unistd +import Control.Concurrent (threadDelay) import qualified System.IO as IO import qualified Data.HashMap.Strict as Map import qualified Data.HashSet as Set @@ -241,7 +241,7 @@ instance ThriftTest_Iface TestHandler where testOneway _ i = do System.IO.putStrLn $ "testOneway(" ++ show i ++ "): Sleeping..." - sleep (fromIntegral i) + threadDelay $ (fromIntegral i) * 1000000 System.IO.putStrLn $ "testOneway(" ++ show i ++ "): done sleeping!" main :: IO () |