{-# LANGUAGE TemplateHaskell #-}

module Test.WebDriver.Capabilities.UserPromptHandler where

import Data.Aeson.TH
import Test.WebDriver.Capabilities.Aeson


data UserPromptHandler =
  UserPromptHandlerDismiss
  | UserPromptHandlerAccept
  | UserPromptHandlerDismissAndNotify
  | UserPromptHandlerAcceptAndNotify
  | UserPromptHandlerIgnore
  deriving (Int -> UserPromptHandler -> ShowS
[UserPromptHandler] -> ShowS
UserPromptHandler -> String
(Int -> UserPromptHandler -> ShowS)
-> (UserPromptHandler -> String)
-> ([UserPromptHandler] -> ShowS)
-> Show UserPromptHandler
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> UserPromptHandler -> ShowS
showsPrec :: Int -> UserPromptHandler -> ShowS
$cshow :: UserPromptHandler -> String
show :: UserPromptHandler -> String
$cshowList :: [UserPromptHandler] -> ShowS
showList :: [UserPromptHandler] -> ShowS
Show, UserPromptHandler -> UserPromptHandler -> Bool
(UserPromptHandler -> UserPromptHandler -> Bool)
-> (UserPromptHandler -> UserPromptHandler -> Bool)
-> Eq UserPromptHandler
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UserPromptHandler -> UserPromptHandler -> Bool
== :: UserPromptHandler -> UserPromptHandler -> Bool
$c/= :: UserPromptHandler -> UserPromptHandler -> Bool
/= :: UserPromptHandler -> UserPromptHandler -> Bool
Eq)
deriveJSON toSpacedC3 ''UserPromptHandler