X-Git-Url: http://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=test%2FTest.hs;h=75e16283b49895b6dae4eee1737c7dc92a5acf50;hp=cdcdf5d37d5c5fedf093b0d638b20e4f25ff5d29;hb=b00bc722f2bba5276e895cf2c769cf139e4f2ed3;hpb=fa278340d5f1bc915a250bede93258a45234ba1a

diff --git a/test/Test.hs b/test/Test.hs
index cdcdf5d..75e1628 100644
--- 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 ()