From 41f229b5746501738800d721fb19083e32516f8c Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sat, 23 Nov 2013 02:14:13 +0400 Subject: Remove ClientVersion newtype --- tests/Data/Torrent/ClientSpec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests/Data/Torrent') diff --git a/tests/Data/Torrent/ClientSpec.hs b/tests/Data/Torrent/ClientSpec.hs index f02a3b1f..85ace5e0 100644 --- a/tests/Data/Torrent/ClientSpec.hs +++ b/tests/Data/Torrent/ClientSpec.hs @@ -11,6 +11,6 @@ spec = do describe "client info" $ do it "decode azureus encoded peer id" $ do clientInfo "-AZ2060-xxxxxxxxxxxx" `shouldBe` - ClientInfo IAzureus (ClientVersion (Version [2060] [])) + ClientInfo IAzureus (Version [2060] []) clientInfo "-BS0000-xxxxxxxxxxxx" `shouldBe` - ClientInfo IBTSlave (ClientVersion (Version [0] [])) + ClientInfo IBTSlave (Version [0] []) -- cgit v1.2.3