genvalidity-typed-uuid-0.1.0.0: src/Data/GenValidity/UUID/Typed.hs

{-# OPTIONS_GHC -fno-warn-orphans #-}

module Data.GenValidity.UUID.Typed where

import Data.GenValidity
import Data.GenValidity.UUID ()
import Data.UUID.Typed

instance GenValid (UUID a) where
  genValid = UUID <$> genValid
  shrinkValid (UUID u) = UUID <$> shrinkValid u