diff options
Diffstat (limited to 'tests/Network/KRPCSpec.hs')
-rw-r--r-- | tests/Network/KRPCSpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Network/KRPCSpec.hs b/tests/Network/KRPCSpec.hs index e73b1ec0..756c6855 100644 --- a/tests/Network/KRPCSpec.hs +++ b/tests/Network/KRPCSpec.hs | |||
@@ -37,4 +37,4 @@ spec = do | |||
37 | (withManager opts servAddr handlers $ runReaderT $ do | 37 | (withManager opts servAddr handlers $ runReaderT $ do |
38 | query servAddr (Echo (0xabcd :: Int)) | 38 | query servAddr (Echo (0xabcd :: Int)) |
39 | ) | 39 | ) |
40 | `shouldThrow` (== KError GenericError "timeout expired" "0") | 40 | `shouldThrow` (== TimeoutExpired) |