10 lines
190 B
Haskell
10 lines
190 B
Haskell
module Data.NonNull.TestInstances
|
|
(
|
|
) where
|
|
|
|
import TestImport
|
|
|
|
|
|
instance (Arbitrary a, MonoFoldable a) => Arbitrary (NonNull a) where
|
|
arbitrary = arbitrary `suchThatMap` fromNullable
|