blob: d3933396b801e13ab9a3dba5692ce4a097f04754 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Data.Torrent.PieceSpec (spec) where
import Control.Applicative
import Test.Hspec
import Test.QuickCheck
import Data.Torrent
instance Arbitrary a => Arbitrary (Piece a) where
arbitrary = Piece <$> arbitrary <*> arbitrary
spec :: Spec
spec = return ()
|
