diff options
Diffstat (limited to 'src/VeriFuzz/Verilog/AST.hs')
| -rw-r--r-- | src/VeriFuzz/Verilog/AST.hs | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/src/VeriFuzz/Verilog/AST.hs b/src/VeriFuzz/Verilog/AST.hs index 9db4999..b3754ec 100644 --- a/src/VeriFuzz/Verilog/AST.hs +++ b/src/VeriFuzz/Verilog/AST.hs @@ -107,17 +107,13 @@ module VeriFuzz.Verilog.AST ) where -import Control.Lens ( makeLenses - , makePrisms - ) -import Control.Monad ( replicateM ) -import Data.String ( IsString - , fromString - ) -import Data.Text ( Text ) -import qualified Data.Text as T -import Data.Traversable ( sequenceA ) -import qualified Test.QuickCheck as QC +import Control.Lens (makeLenses, makePrisms) +import Control.Monad (replicateM) +import Data.String (IsString, fromString) +import Data.Text (Text) +import qualified Data.Text as T +import Data.Traversable (sequenceA) +import qualified Test.QuickCheck as QC positiveArb :: (QC.Arbitrary a, Ord a, Num a) => QC.Gen a positiveArb = QC.suchThat QC.arbitrary (> 0) |