BinaryArch.hs

module Data.Bugsnag.Types.BinaryArch
  ( BinaryArch (..)
  , exampleBinaryArch
  ) where

import Data.Bugsnag.Types.Prelude


data BinaryArch
  = X86
  -- ^ x86/i386 (32-bit).
  | X86_64
  -- ^ x86 (64-bit).
  | Arm32
  -- ^ armeabi/armeabi-v7a (32-bit).
  | Arm64
  -- ^ arm64-v8a (64-bit).
  | Arm64e
  | Armv6
  | Armv7
  | Armv7f
  | Armv7k
  | Armv7s
  | Armv8
  | Amd64
  deriving stock (Bounded, Enum, Eq, Show, Generic)

instance FromJSON BinaryArch where
  parseJSON = genericParseJSON aesonOptions

instance ToJSON BinaryArch where
  toJSON = genericToJSON aesonOptions
  toEncoding = genericToEncoding aesonOptions

exampleBinaryArch :: BinaryArch
exampleBinaryArch = toEnum 0