File: Orphans.hs

package info (click to toggle)
haskell-aeson-extra 0.5.1.3-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 120 kB
  • sloc: haskell: 549; makefile: 5
file content (16 lines) | stat: -rw-r--r-- 403 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
{-# LANGUAGE CPP #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Orphans where

#if !MIN_VERSION_base(4,8,0)
import           Control.Applicative
#endif

#if !MIN_VERSION_quickcheck_instances(0,3,12)
import Data.Vector as V
import Test.Tasty.QuickCheck

instance Arbitrary a => Arbitrary (Vector a) where
  arbitrary = V.fromList <$> arbitrary
  shrink    =  fmap V.fromList . shrink . V.toList
#endif