@@ -16,7 +16,6 @@ import Data.Aeson.Types
1616import Data.Function (on)
1717import Data.Functor.Compose (Compose (..))
1818import Data.Proxy (Proxy(..))
19−import Data.Tagged (Tagged(..))
2019import Data.Time (ZonedTime(..), TimeZone(..))
2120import Data.Time.Clock (UTCTime(..))
2221import Functions
@@ -24,7 +23,6 @@ import Test.QuickCheck (Arbitrary(..), elements, oneof)
2423import Types
2524import qualified Data.DList as DList
2625import qualified Data.HashMap.Strict as HM
27−import qualified Data.UUID.Types as UUID
2826
2927#if !MIN_VERSION_QuickCheck(2,9,0)
3028import Control.Applicative (Const(..))
@@ -193,9 +191,6 @@ instance Arbitrary Natural where
193191instance Arbitrary (Proxy a) where
194192 arbitrary = pure Proxy
195193
196−instance Arbitrary b => Arbitrary (Tagged a b) where
197− arbitrary = Tagged <$> arbitrary
198−
199194instance Arbitrary a => Arbitrary (DList.DList a) where
200195 arbitrary = DList.fromList <$> arbitrary
201196
@@ -220,10 +215,3 @@ makeVersion b = Version b []
220215instance Arbitrary a => Arbitrary (Identity a) where
221216 arbitrary = Identity <$> arbitrary
222217#endif
223−
224−instance Arbitrary UUID.UUID where
225− arbitrary = UUID.fromWords
226− <$> arbitrary
227− <*> arbitrary
228− <*> arbitrary
229− <*> arbitrary