module TD.Query.RemoveAllWebBrowserSettingsExceptions
  (RemoveAllWebBrowserSettingsExceptions(..)
  ) where

import qualified Data.Aeson as A
import qualified Data.Aeson.Types as AT
import qualified TD.Lib.Internal as I

-- | Removes special handling for the opening of all links. Returns 'TD.Data.Ok.Ok'
data RemoveAllWebBrowserSettingsExceptions
  = RemoveAllWebBrowserSettingsExceptions
  deriving (RemoveAllWebBrowserSettingsExceptions
-> RemoveAllWebBrowserSettingsExceptions -> Bool
(RemoveAllWebBrowserSettingsExceptions
 -> RemoveAllWebBrowserSettingsExceptions -> Bool)
-> (RemoveAllWebBrowserSettingsExceptions
    -> RemoveAllWebBrowserSettingsExceptions -> Bool)
-> Eq RemoveAllWebBrowserSettingsExceptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RemoveAllWebBrowserSettingsExceptions
-> RemoveAllWebBrowserSettingsExceptions -> Bool
== :: RemoveAllWebBrowserSettingsExceptions
-> RemoveAllWebBrowserSettingsExceptions -> Bool
$c/= :: RemoveAllWebBrowserSettingsExceptions
-> RemoveAllWebBrowserSettingsExceptions -> Bool
/= :: RemoveAllWebBrowserSettingsExceptions
-> RemoveAllWebBrowserSettingsExceptions -> Bool
Eq, Int -> RemoveAllWebBrowserSettingsExceptions -> ShowS
[RemoveAllWebBrowserSettingsExceptions] -> ShowS
RemoveAllWebBrowserSettingsExceptions -> String
(Int -> RemoveAllWebBrowserSettingsExceptions -> ShowS)
-> (RemoveAllWebBrowserSettingsExceptions -> String)
-> ([RemoveAllWebBrowserSettingsExceptions] -> ShowS)
-> Show RemoveAllWebBrowserSettingsExceptions
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RemoveAllWebBrowserSettingsExceptions -> ShowS
showsPrec :: Int -> RemoveAllWebBrowserSettingsExceptions -> ShowS
$cshow :: RemoveAllWebBrowserSettingsExceptions -> String
show :: RemoveAllWebBrowserSettingsExceptions -> String
$cshowList :: [RemoveAllWebBrowserSettingsExceptions] -> ShowS
showList :: [RemoveAllWebBrowserSettingsExceptions] -> ShowS
Show)

instance I.ShortShow RemoveAllWebBrowserSettingsExceptions where
  shortShow :: RemoveAllWebBrowserSettingsExceptions -> String
shortShow
    RemoveAllWebBrowserSettingsExceptions
RemoveAllWebBrowserSettingsExceptions
        = String
"RemoveAllWebBrowserSettingsExceptions"

instance AT.ToJSON RemoveAllWebBrowserSettingsExceptions where
  toJSON :: RemoveAllWebBrowserSettingsExceptions -> Value
toJSON
    RemoveAllWebBrowserSettingsExceptions
RemoveAllWebBrowserSettingsExceptions
        = [Pair] -> Value
A.object
          [ Key
"@type" Key -> Value -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Pair
A..= Text -> Value
AT.String Text
"removeAllWebBrowserSettingsExceptions"
          ]