genvalidity-uuid 0.1.0.4 → 1.0.0.0

raw patch · 7 files changed

+46/−43 lines, 7 filesdep ~genvaliditysetup-changedPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: genvalidity

API changes (from Hackage documentation)

Files

• CHANGELOG.md +23/−0
• LICENSE +1/−1
• Setup.hs +0/−3
• bench/Main.hs +1/−5
• genvalidity-uuid.cabal +7/−6
• src/Data/GenValidity/UUID.hs +8/−21
• test/Data/GenValidity/UUIDSpec.hs +6/−7

@@ -0,0 +1,23 @@+# Changelog++## [1.0.0.0] - 2021-11-20++### Changed++* Compatibility with `genvalidity >= 1.0.0.0`++## [0.1.0.4] - 2020-04-12++### Added++* Benchmarks for the generators++### Changed++* Changed the validity instance to use the genValidInstance of Word32 so that it's 1E7 faster after genvalidity-0.11.0.0++## [0.1.0.3] - 2020-02-10++### Changed++* Improved the cabal file

@@ -1,6 +1,6 @@ The MIT License (MIT) -Copyright (c) 2016-2020 Tom Sydney Kerckhove+Copyright (c) 2016-2021 Tom Sydney Kerckhove  Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal

@@ -1,3 +0,0 @@-import Distribution.Simple--main = defaultMain

@@ -5,16 +5,12 @@ module Main where  import Criterion.Main as Criterion-import Data.GenValidity import Data.GenValidity.Criterion import Data.GenValidity.UUID () import Data.UUID-import Test.QuickCheck  main :: IO () main =   Criterion.defaultMain-    [ genValidBench @UUID,-      genUncheckedBench @UUID,-      genBench "valid UUID via genUnchecked" ((genUnchecked `suchThat` isValid) :: Gen UUID)+    [ genValidBench @UUID     ]

@@ -1,23 +1,24 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.33.0.+-- This file has been generated from package.yaml by hpack version 0.34.4. -- -- see: https://github.com/sol/hpack------ hash: fc85c45732a67308227ab1b3a08dd68797f21a09df65fe651368d18b8ff6c72e  name:           genvalidity-uuid-version:        0.1.0.4+version:        1.0.0.0 synopsis:       GenValidity support for UUID category:       Testing homepage:       https://github.com/NorfairKing/validity#readme bug-reports:    https://github.com/NorfairKing/validity/issues author:         Tom Sydney Kerckhove maintainer:     syd@cs-syd.eu-copyright:      Copyright: (c) 2017-2020 Tom Sydney Kerckhove+copyright:      Copyright: (c) 2016-2021 Tom Sydney Kerckhove license:        MIT license-file:   LICENSE build-type:     Simple+extra-source-files:+    LICENSE+    CHANGELOG.md  source-repository head   type: git@@ -33,7 +34,7 @@   build-depends:       QuickCheck     , base >=4.7 && <5-    , genvalidity >=0.5+    , genvalidity >=1.0     , uuid     , validity >=0.5     , validity-uuid >=0.0

@@ -1,29 +1,16 @@ {-# OPTIONS_GHC -fno-warn-orphans #-}-{-# LANGUAGE CPP #-}  module Data.GenValidity.UUID where-#if !MIN_VERSION_base(4,8,0)-import Control.Applicative ((<*>))-import Data.Functor ((<$>))-#endif+ import Data.GenValidity import Data.UUID import Data.Validity.UUID () -instance GenUnchecked UUID where-    genUnchecked =-        fromWords <$> genUnchecked <*> genUnchecked <*> genUnchecked <*>-        genUnchecked-    shrinkUnchecked u =-        [ fromWords w1 w2 w3 w4-        | (w1, w2, w3, w4) <- shrinkUnchecked $ toWords u-        ]- instance GenValid UUID where-    genValid =-        fromWords <$> genValid <*> genValid <*> genValid <*>-        genValid-    shrinkValid u =-        [ fromWords w1 w2 w3 w4-        | (w1, w2, w3, w4) <- shrinkValid $ toWords u-        ]+  genValid =+    fromWords <$> genValid <*> genValid <*> genValid+      <*> genValid+  shrinkValid u =+    [ fromWords w1 w2 w3 w4+      | (w1, w2, w3, w4) <- shrinkValid $ toWords u+    ]

@@ -1,16 +1,15 @@ module Data.GenValidity.UUIDSpec-    ( spec-    ) where--import Test.Hspec-import Test.QuickCheck+  ( spec,+  )+where  import Data.GenValidity import Data.GenValidity.UUID ()- import Data.UUID+import Test.Hspec+import Test.QuickCheck  spec :: Spec spec =-    describe "genValid" $+  describe "genValid" $     it "generates valid UUId's" $ forAll (genValid :: Gen UUID) isValid