blob: ef1f2938cfc5d1580d78d2ae3483fafb4b769621 (
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.Piece
instance Arbitrary a => Arbitrary (Piece a) where
arbitrary = Piece <$> arbitrary <*> arbitrary
spec :: Spec
spec = return ()
|
