1 files changed, 2 insertions, 2 deletions

diff --git a/tests/Data/Torrent/MagnetSpec.hs b/tests/Data/Torrent/MagnetSpec.hs
index 048a1870..13554455 100644
--- a/tests/Data/Torrent/MagnetSpec.hs
+++ b/tests/Data/Torrent/MagnetSpec.hs
@@ -25,8 +25,8 @@ instance Arbitrary Magnet where
     <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary
     <*> arbitrary <*> arbitrary <*> pure mempty
 
-magnetEncoding :: Magnet -> Bool
-magnetEncoding m = parseMagnet (renderMagnet m) == Just m
+magnetEncoding :: Magnet -> IO ()
+magnetEncoding m = parseMagnet (renderMagnet m) `shouldBe` Just m
 
 spec :: Spec
 spec = do