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

{-|
Module      : Network.HTTP.Types.Method.Arbitrary
Description : Arbitrary Instances for Network.HTTP.Types.Method
Copyright   : (c) Alex Brandt, 2018
License     : MIT

Arbitrary instances for "Network.HTTP.Types.Method".
-}
module Network.HTTP.Types.Method.Arbitrary
  ()
where

import           Network.HTTP.Types.Method      ( StdMethod(..) )
import           Test.QuickCheck                ( Arbitrary(arbitrary)
                                                , elements
                                                )

instance Arbitrary StdMethod where
  arbitrary =
    elements [GET, POST, HEAD, PUT, DELETE, TRACE, CONNECT, OPTIONS, PATCH]