@@ -27,8 +27,6 @@ import Database.PostgreSQL.Simple.ToField
27newtype Token (a :: k) = Token ByteString
27newtype Token (a :: k) = Token ByteString
28 deriving (Ord, Eq, Show, NFData)
28 deriving (Ord, Eq, Show, NFData)
30−type role Token nominal
32instance Arbitrary (Token a) where
30instance Arbitrary (Token a) where
33 arbitrary = fmap (Token . BS.pack) $ sequence $ L.replicate 16 arbitrary
31 arbitrary = fmap (Token . BS.pack) $ sequence $ L.replicate 16 arbitrary