vgrep-0.1.3.0: test/Vgrep/Environment/Testable.hs

{-# OPTIONS_GHC -fno-warn-orphans #-}
module Vgrep.Environment.Testable
    ( module Vgrep.Environment
    ) where

import Test.QuickCheck

import Vgrep.Environment

instance Arbitrary Environment where
    arbitrary = do
        width  <- arbitrary `suchThat` (> 0) -- FIXME tweak numbers
        height <- arbitrary `suchThat` (> 0) -- FIXME tweak numbers
        pure Env
            { _region = (width, height)
            , _config = defaultConfig }