{-# OPTIONS_GHC -fno-warn-orphans #-} {-# LANGUAGE CPP #-} module Data.GenValidity.Aeson where #if !MIN_VERSION_base(4,8,0) import Data.Functor ((<$>)) #endif import Data.GenValidity import Data.GenValidity.HashMap () import Data.GenValidity.Text () import Data.GenValidity.Vector () import Data.GenValidity.Scientific () import Data.Validity.Aeson () import Data.Aeson import Test.QuickCheck instance GenUnchecked Value where genUnchecked = oneof [ Object <$> genUnchecked , Array <$> genUnchecked , String <$> genUnchecked , Number <$> genUnchecked , Bool <$> genUnchecked , pure Null ] instance GenValid Value where genValid = oneof [ Object <$> genValid , Array <$> genValid , String <$> genValid , Number <$> genValid , Bool <$> genValid , pure Null ] instance GenInvalid Value where genInvalid = oneof [Object <$> genInvalid, Array <$> genInvalid, String <$> genInvalid]