{-# LANGUAGE NoImplicitPrelude #-}

module Codec.QRCode.Data.ErrorLevel
  ( ErrorLevel(..)
  ) where

import           Codec.QRCode.Base

-- | The error level of an QRCode
data ErrorLevel
  = L -- ^ Allows error recovery up to 7%
  | M -- ^ Allows error recovery up to 15%
  | Q -- ^ Allows error recovery up to 25%
  | H -- ^ Allows error recovery up to 30%
  deriving (ErrorLevel
ErrorLevel -> ErrorLevel -> Bounded ErrorLevel
forall a. a -> a -> Bounded a
maxBound :: ErrorLevel
$cmaxBound :: ErrorLevel
minBound :: ErrorLevel
$cminBound :: ErrorLevel
Bounded, Int -> ErrorLevel
ErrorLevel -> Int
ErrorLevel -> [ErrorLevel]
ErrorLevel -> ErrorLevel
ErrorLevel -> ErrorLevel -> [ErrorLevel]
ErrorLevel -> ErrorLevel -> ErrorLevel -> [ErrorLevel]
(ErrorLevel -> ErrorLevel)
-> (ErrorLevel -> ErrorLevel)
-> (Int -> ErrorLevel)
-> (ErrorLevel -> Int)
-> (ErrorLevel -> [ErrorLevel])
-> (ErrorLevel -> ErrorLevel -> [ErrorLevel])
-> (ErrorLevel -> ErrorLevel -> [ErrorLevel])
-> (ErrorLevel -> ErrorLevel -> ErrorLevel -> [ErrorLevel])
-> Enum ErrorLevel
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: ErrorLevel -> ErrorLevel -> ErrorLevel -> [ErrorLevel]
$cenumFromThenTo :: ErrorLevel -> ErrorLevel -> ErrorLevel -> [ErrorLevel]
enumFromTo :: ErrorLevel -> ErrorLevel -> [ErrorLevel]
$cenumFromTo :: ErrorLevel -> ErrorLevel -> [ErrorLevel]
enumFromThen :: ErrorLevel -> ErrorLevel -> [ErrorLevel]
$cenumFromThen :: ErrorLevel -> ErrorLevel -> [ErrorLevel]
enumFrom :: ErrorLevel -> [ErrorLevel]
$cenumFrom :: ErrorLevel -> [ErrorLevel]
fromEnum :: ErrorLevel -> Int
$cfromEnum :: ErrorLevel -> Int
toEnum :: Int -> ErrorLevel
$ctoEnum :: Int -> ErrorLevel
pred :: ErrorLevel -> ErrorLevel
$cpred :: ErrorLevel -> ErrorLevel
succ :: ErrorLevel -> ErrorLevel
$csucc :: ErrorLevel -> ErrorLevel
Enum, ErrorLevel -> ErrorLevel -> Bool
(ErrorLevel -> ErrorLevel -> Bool)
-> (ErrorLevel -> ErrorLevel -> Bool) -> Eq ErrorLevel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ErrorLevel -> ErrorLevel -> Bool
$c/= :: ErrorLevel -> ErrorLevel -> Bool
== :: ErrorLevel -> ErrorLevel -> Bool
$c== :: ErrorLevel -> ErrorLevel -> Bool
Eq)