Use the same magnitude in session timeout and threadDelay

diff --git a/test/Test.hs b/test/Test.hs
index cdcdf5d37d5c5fedf093b0d638b20e4f25ff5d29..75e16283b49895b6dae4eee1737c7dc92a5acf50 100644 (file)
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -104,7 +104,7 @@ main = hspec $ do
 
       it "don't throw when no time out" $ runSessionWithConfig (def {messageTimeout = 5}) "hie" fullCaps "test/data/renamePass" $ do
         loggingNotification
-        liftIO $ threadDelay 10
+        liftIO $ threadDelay $ 10 * 1000000
         _ <- openDoc "Desktop/simple.hs" "haskell"
         return ()