14 lines
311 B
Haskell
14 lines
311 B
Haskell
-- SPDX-FileCopyrightText: 2022 Gregor Kleen <gregor.kleen@ifi.lmu.de>
|
|
--
|
|
-- SPDX-License-Identifier: AGPL-3.0-or-later
|
|
|
|
module Data.NonNull.TestInstances
|
|
(
|
|
) where
|
|
|
|
import TestImport
|
|
|
|
|
|
instance (Arbitrary a, MonoFoldable a) => Arbitrary (NonNull a) where
|
|
arbitrary = arbitrary `suchThatMap` fromNullable
|