{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE Safe #-}
{-# LANGUAGE TypeApplications #-}
module Data.Char.Currency
(
Currency
( Dollar,
Cent,
Pound,
Currency,
Yen,
ArmenianDram,
Afghani,
NkoDorome,
NkoTaman,
BengaliRupeeMark,
BengaliRupee,
BengaliGandaMark,
GujaratiRupee,
TamilRupee,
ThaiSymbolBaht,
KhmerSymbolRiel,
EuroCurrency,
Colon,
Cruzeiro,
FrenchFranc,
Lira,
Mill,
Naira,
Peseta,
Rupee,
Won,
NewSheqel,
Dong,
Euro,
Kip,
Tugrik,
Drachma,
GermanPenny,
Peso,
Guarani,
Austral,
Hryvnia,
Cedi,
LivreTournois,
Spesmilo,
Tenge,
IndianRupee,
TurkishLira,
NordicMark,
Manat,
Ruble,
Lari,
Bitcoin,
NorthIndicRupeeMark,
Rial,
SmallDollar,
FullwidthDollar,
FullwidthCent,
FullwidthPound,
FullwidthYen,
FullwidthWon,
TamilKaacu,
TamilPanam,
TamilPon,
TamilVaraakan,
WanchoNgun,
IndicSiyaqRupeeMark
),
dollar,
cent,
pound,
currency,
yen,
armenianDram,
afghani,
nkoDorome,
nkoTaman,
bengaliRupeeMark,
bengaliRupee,
bengaliGandaMark,
gujaratiRupee,
tamilRupee,
thaiSymbolBaht,
khmerSymbolRiel,
euroCurrency,
colon,
cruzeiro,
frenchFranc,
lira,
mill,
naira,
peseta,
rupee,
won,
newSheqel,
dong,
euro,
kip,
tugrik,
drachma,
germanPenny,
peso,
guarani,
austral,
hryvnia,
cedi,
livreTournois,
spesmilo,
tenge,
indianRupee,
turkishLira,
nordicMark,
manat,
ruble,
lari,
bitcoin,
northIndicRupeeMark,
rial,
smallDollar,
fullwidthDollar,
fullwidthCent,
fullwidthPound,
fullwidthYen,
fullwidthWon,
tamilKaacu,
tamilPanam,
tamilPon,
tamilVaraakan,
wanchoNgun,
indicSiyaqRupeeMark,
isCurrency,
)
where
import Control.DeepSeq (NFData)
import Data.Char.Core (UnicodeCharacter (fromUnicodeChar, isInCharRange, toUnicodeChar), UnicodeText (isInTextRange), generateIsInTextRange')
import Data.Data (Data)
import Data.Hashable (Hashable)
import GHC.Generics (Generic)
import Test.QuickCheck.Arbitrary (Arbitrary (arbitrary), arbitraryBoundedEnum)
data Currency
=
Dollar
|
Cent
|
Pound
|
Currency
|
Yen
|
ArmenianDram
|
Afghani
|
NkoDorome
|
NkoTaman
|
BengaliRupeeMark
|
BengaliRupee
|
BengaliGandaMark
|
GujaratiRupee
|
TamilRupee
|
ThaiSymbolBaht
|
KhmerSymbolRiel
|
EuroCurrency
|
Colon
|
Cruzeiro
|
FrenchFranc
|
Lira
|
Mill
|
Naira
|
Peseta
|
Rupee
|
Won
|
NewSheqel
|
Dong
|
Euro
|
Kip
|
Tugrik
|
Drachma
|
GermanPenny
|
Peso
|
Guarani
|
Austral
|
Hryvnia
|
Cedi
|
LivreTournois
|
Spesmilo
|
Tenge
|
IndianRupee
|
TurkishLira
|
NordicMark
|
Manat
|
Ruble
|
Lari
|
Bitcoin
|
NorthIndicRupeeMark
|
Rial
|
SmallDollar
|
FullwidthDollar
|
FullwidthCent
|
FullwidthPound
|
FullwidthYen
|
FullwidthWon
|
TamilKaacu
|
TamilPanam
|
TamilPon
|
TamilVaraakan
|
WanchoNgun
|
IndicSiyaqRupeeMark
deriving (Currency
Currency -> Currency -> Bounded Currency
forall a. a -> a -> Bounded a
$cminBound :: Currency
minBound :: Currency
$cmaxBound :: Currency
maxBound :: Currency
Bounded, Typeable Currency
Typeable Currency
-> (forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> Currency -> c Currency)
-> (forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c Currency)
-> (Currency -> Constr)
-> (Currency -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c Currency))
-> (forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Currency))
-> ((forall b. Data b => b -> b) -> Currency -> Currency)
-> (forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> Currency -> r)
-> (forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> Currency -> r)
-> (forall u. (forall d. Data d => d -> u) -> Currency -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> Currency -> u)
-> (forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> Currency -> m Currency)
-> (forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> Currency -> m Currency)
-> (forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> Currency -> m Currency)
-> Data Currency
Currency -> Constr
Currency -> DataType
(forall b. Data b => b -> b) -> Currency -> Currency
forall a.
Typeable a
-> (forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
(r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
(r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u. Int -> (forall d. Data d => d -> u) -> Currency -> u
forall u. (forall d. Data d => d -> u) -> Currency -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> Currency -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> Currency -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> Currency -> m Currency
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> Currency -> m Currency
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c Currency
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> Currency -> c Currency
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c Currency)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Currency)
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> Currency -> c Currency
gfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> Currency -> c Currency
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c Currency
gunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c Currency
$ctoConstr :: Currency -> Constr
toConstr :: Currency -> Constr
$cdataTypeOf :: Currency -> DataType
dataTypeOf :: Currency -> DataType
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c Currency)
dataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c Currency)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Currency)
dataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Currency)
$cgmapT :: (forall b. Data b => b -> b) -> Currency -> Currency
gmapT :: (forall b. Data b => b -> b) -> Currency -> Currency
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> Currency -> r
gmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> Currency -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> Currency -> r
gmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> Currency -> r
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> Currency -> [u]
gmapQ :: forall u. (forall d. Data d => d -> u) -> Currency -> [u]
$cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> Currency -> u
gmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> Currency -> u
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> Currency -> m Currency
gmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> Currency -> m Currency
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> Currency -> m Currency
gmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> Currency -> m Currency
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> Currency -> m Currency
gmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> Currency -> m Currency
Data, Int -> Currency
Currency -> Int
Currency -> [Currency]
Currency -> Currency
Currency -> Currency -> [Currency]
Currency -> Currency -> Currency -> [Currency]
(Currency -> Currency)
-> (Currency -> Currency)
-> (Int -> Currency)
-> (Currency -> Int)
-> (Currency -> [Currency])
-> (Currency -> Currency -> [Currency])
-> (Currency -> Currency -> [Currency])
-> (Currency -> Currency -> Currency -> [Currency])
-> Enum Currency
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
$csucc :: Currency -> Currency
succ :: Currency -> Currency
$cpred :: Currency -> Currency
pred :: Currency -> Currency
$ctoEnum :: Int -> Currency
toEnum :: Int -> Currency
$cfromEnum :: Currency -> Int
fromEnum :: Currency -> Int
$cenumFrom :: Currency -> [Currency]
enumFrom :: Currency -> [Currency]
$cenumFromThen :: Currency -> Currency -> [Currency]
enumFromThen :: Currency -> Currency -> [Currency]
$cenumFromTo :: Currency -> Currency -> [Currency]
enumFromTo :: Currency -> Currency -> [Currency]
$cenumFromThenTo :: Currency -> Currency -> Currency -> [Currency]
enumFromThenTo :: Currency -> Currency -> Currency -> [Currency]
Enum, Currency -> Currency -> Bool
(Currency -> Currency -> Bool)
-> (Currency -> Currency -> Bool) -> Eq Currency
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Currency -> Currency -> Bool
== :: Currency -> Currency -> Bool
$c/= :: Currency -> Currency -> Bool
/= :: Currency -> Currency -> Bool
Eq, (forall x. Currency -> Rep Currency x)
-> (forall x. Rep Currency x -> Currency) -> Generic Currency
forall x. Rep Currency x -> Currency
forall x. Currency -> Rep Currency x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. Currency -> Rep Currency x
from :: forall x. Currency -> Rep Currency x
$cto :: forall x. Rep Currency x -> Currency
to :: forall x. Rep Currency x -> Currency
Generic, Eq Currency
Eq Currency
-> (Currency -> Currency -> Ordering)
-> (Currency -> Currency -> Bool)
-> (Currency -> Currency -> Bool)
-> (Currency -> Currency -> Bool)
-> (Currency -> Currency -> Bool)
-> (Currency -> Currency -> Currency)
-> (Currency -> Currency -> Currency)
-> Ord Currency
Currency -> Currency -> Bool
Currency -> Currency -> Ordering
Currency -> Currency -> Currency
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Currency -> Currency -> Ordering
compare :: Currency -> Currency -> Ordering
$c< :: Currency -> Currency -> Bool
< :: Currency -> Currency -> Bool
$c<= :: Currency -> Currency -> Bool
<= :: Currency -> Currency -> Bool
$c> :: Currency -> Currency -> Bool
> :: Currency -> Currency -> Bool
$c>= :: Currency -> Currency -> Bool
>= :: Currency -> Currency -> Bool
$cmax :: Currency -> Currency -> Currency
max :: Currency -> Currency -> Currency
$cmin :: Currency -> Currency -> Currency
min :: Currency -> Currency -> Currency
Ord, ReadPrec [Currency]
ReadPrec Currency
Int -> ReadS Currency
ReadS [Currency]
(Int -> ReadS Currency)
-> ReadS [Currency]
-> ReadPrec Currency
-> ReadPrec [Currency]
-> Read Currency
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS Currency
readsPrec :: Int -> ReadS Currency
$creadList :: ReadS [Currency]
readList :: ReadS [Currency]
$creadPrec :: ReadPrec Currency
readPrec :: ReadPrec Currency
$creadListPrec :: ReadPrec [Currency]
readListPrec :: ReadPrec [Currency]
Read, Int -> Currency -> ShowS
[Currency] -> ShowS
Currency -> String
(Int -> Currency -> ShowS)
-> (Currency -> String) -> ([Currency] -> ShowS) -> Show Currency
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Currency -> ShowS
showsPrec :: Int -> Currency -> ShowS
$cshow :: Currency -> String
show :: Currency -> String
$cshowList :: [Currency] -> ShowS
showList :: [Currency] -> ShowS
Show)
instance Arbitrary Currency where
arbitrary :: Gen Currency
arbitrary = Gen Currency
forall a. (Bounded a, Enum a) => Gen a
arbitraryBoundedEnum
instance Hashable Currency
instance NFData Currency
instance UnicodeCharacter Currency where
toUnicodeChar :: Currency -> Char
toUnicodeChar Currency
Dollar = Char
dollar
toUnicodeChar Currency
Cent = Char
cent
toUnicodeChar Currency
Pound = Char
pound
toUnicodeChar Currency
Currency = Char
currency
toUnicodeChar Currency
Yen = Char
yen
toUnicodeChar Currency
ArmenianDram = Char
armenianDram
toUnicodeChar Currency
Afghani = Char
afghani
toUnicodeChar Currency
NkoDorome = Char
nkoDorome
toUnicodeChar Currency
NkoTaman = Char
nkoTaman
toUnicodeChar Currency
BengaliRupeeMark = Char
bengaliRupeeMark
toUnicodeChar Currency
BengaliRupee = Char
bengaliRupee
toUnicodeChar Currency
BengaliGandaMark = Char
bengaliGandaMark
toUnicodeChar Currency
GujaratiRupee = Char
gujaratiRupee
toUnicodeChar Currency
TamilRupee = Char
tamilRupee
toUnicodeChar Currency
ThaiSymbolBaht = Char
thaiSymbolBaht
toUnicodeChar Currency
KhmerSymbolRiel = Char
khmerSymbolRiel
toUnicodeChar Currency
EuroCurrency = Char
euroCurrency
toUnicodeChar Currency
Colon = Char
colon
toUnicodeChar Currency
Cruzeiro = Char
cruzeiro
toUnicodeChar Currency
FrenchFranc = Char
frenchFranc
toUnicodeChar Currency
Lira = Char
lira
toUnicodeChar Currency
Mill = Char
mill
toUnicodeChar Currency
Naira = Char
naira
toUnicodeChar Currency
Peseta = Char
peseta
toUnicodeChar Currency
Rupee = Char
rupee
toUnicodeChar Currency
Won = Char
won
toUnicodeChar Currency
NewSheqel = Char
newSheqel
toUnicodeChar Currency
Dong = Char
dong
toUnicodeChar Currency
Euro = Char
euro
toUnicodeChar Currency
Kip = Char
kip
toUnicodeChar Currency
Tugrik = Char
tugrik
toUnicodeChar Currency
Drachma = Char
drachma
toUnicodeChar Currency
GermanPenny = Char
germanPenny
toUnicodeChar Currency
Peso = Char
peso
toUnicodeChar Currency
Guarani = Char
guarani
toUnicodeChar Currency
Austral = Char
austral
toUnicodeChar Currency
Hryvnia = Char
hryvnia
toUnicodeChar Currency
Cedi = Char
cedi
toUnicodeChar Currency
LivreTournois = Char
livreTournois
toUnicodeChar Currency
Spesmilo = Char
spesmilo
toUnicodeChar Currency
Tenge = Char
tenge
toUnicodeChar Currency
IndianRupee = Char
indianRupee
toUnicodeChar Currency
TurkishLira = Char
turkishLira
toUnicodeChar Currency
NordicMark = Char
nordicMark
toUnicodeChar Currency
Manat = Char
manat
toUnicodeChar Currency
Ruble = Char
ruble
toUnicodeChar Currency
Lari = Char
lari
toUnicodeChar Currency
Bitcoin = Char
bitcoin
toUnicodeChar Currency
NorthIndicRupeeMark = Char
northIndicRupeeMark
toUnicodeChar Currency
Rial = Char
rial
toUnicodeChar Currency
SmallDollar = Char
smallDollar
toUnicodeChar Currency
FullwidthDollar = Char
fullwidthDollar
toUnicodeChar Currency
FullwidthCent = Char
fullwidthCent
toUnicodeChar Currency
FullwidthPound = Char
fullwidthPound
toUnicodeChar Currency
FullwidthYen = Char
fullwidthYen
toUnicodeChar Currency
FullwidthWon = Char
fullwidthWon
toUnicodeChar Currency
TamilKaacu = Char
tamilKaacu
toUnicodeChar Currency
TamilPanam = Char
tamilPanam
toUnicodeChar Currency
TamilPon = Char
tamilPon
toUnicodeChar Currency
TamilVaraakan = Char
tamilVaraakan
toUnicodeChar Currency
WanchoNgun = Char
wanchoNgun
toUnicodeChar Currency
IndicSiyaqRupeeMark = Char
indicSiyaqRupeeMark
fromUnicodeChar :: Char -> Maybe Currency
fromUnicodeChar Char
'\x24' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Dollar
fromUnicodeChar Char
'\xa2' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Cent
fromUnicodeChar Char
'\xa3' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Pound
fromUnicodeChar Char
'\xa4' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Currency
fromUnicodeChar Char
'\xa5' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Yen
fromUnicodeChar Char
'\x58f' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
ArmenianDram
fromUnicodeChar Char
'\x60b' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Afghani
fromUnicodeChar Char
'\x7fe' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
NkoDorome
fromUnicodeChar Char
'\x7ff' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
NkoTaman
fromUnicodeChar Char
'\x9f2' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
BengaliRupeeMark
fromUnicodeChar Char
'\x9f3' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
BengaliRupee
fromUnicodeChar Char
'\x9fb' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
BengaliGandaMark
fromUnicodeChar Char
'\xaf1' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
GujaratiRupee
fromUnicodeChar Char
'\xbf9' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
TamilRupee
fromUnicodeChar Char
'\xe3f' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
ThaiSymbolBaht
fromUnicodeChar Char
'\x17db' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
KhmerSymbolRiel
fromUnicodeChar Char
'\x20a0' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
EuroCurrency
fromUnicodeChar Char
'\x20a1' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Colon
fromUnicodeChar Char
'\x20a2' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Cruzeiro
fromUnicodeChar Char
'\x20a3' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
FrenchFranc
fromUnicodeChar Char
'\x20a4' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Lira
fromUnicodeChar Char
'\x20a5' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Mill
fromUnicodeChar Char
'\x20a6' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Naira
fromUnicodeChar Char
'\x20a7' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Peseta
fromUnicodeChar Char
'\x20a8' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Rupee
fromUnicodeChar Char
'\x20a9' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Won
fromUnicodeChar Char
'\x20aa' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
NewSheqel
fromUnicodeChar Char
'\x20ab' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Dong
fromUnicodeChar Char
'\x20ac' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Euro
fromUnicodeChar Char
'\x20ad' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Kip
fromUnicodeChar Char
'\x20ae' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Tugrik
fromUnicodeChar Char
'\x20af' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Drachma
fromUnicodeChar Char
'\x20b0' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
GermanPenny
fromUnicodeChar Char
'\x20b1' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Peso
fromUnicodeChar Char
'\x20b2' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Guarani
fromUnicodeChar Char
'\x20b3' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Austral
fromUnicodeChar Char
'\x20b4' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Hryvnia
fromUnicodeChar Char
'\x20b5' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Cedi
fromUnicodeChar Char
'\x20b6' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
LivreTournois
fromUnicodeChar Char
'\x20b7' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Spesmilo
fromUnicodeChar Char
'\x20b8' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Tenge
fromUnicodeChar Char
'\x20b9' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
IndianRupee
fromUnicodeChar Char
'\x20ba' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
TurkishLira
fromUnicodeChar Char
'\x20bb' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
NordicMark
fromUnicodeChar Char
'\x20bc' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Manat
fromUnicodeChar Char
'\x20bd' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Ruble
fromUnicodeChar Char
'\x20be' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Lari
fromUnicodeChar Char
'\x20bf' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Bitcoin
fromUnicodeChar Char
'\xa838' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
NorthIndicRupeeMark
fromUnicodeChar Char
'\xfdfc' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
Rial
fromUnicodeChar Char
'\xfe69' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
SmallDollar
fromUnicodeChar Char
'\xff04' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
FullwidthDollar
fromUnicodeChar Char
'\xffe0' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
FullwidthCent
fromUnicodeChar Char
'\xffe1' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
FullwidthPound
fromUnicodeChar Char
'\xffe5' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
FullwidthYen
fromUnicodeChar Char
'\xffe6' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
FullwidthWon
fromUnicodeChar Char
'\x11fdd' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
TamilKaacu
fromUnicodeChar Char
'\x11fde' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
TamilPanam
fromUnicodeChar Char
'\x11fdf' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
TamilPon
fromUnicodeChar Char
'\x11fe0' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
TamilVaraakan
fromUnicodeChar Char
'\x1e2ff' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
WanchoNgun
fromUnicodeChar Char
'\x1ecb0' = Currency -> Maybe Currency
forall a. a -> Maybe a
Just Currency
IndicSiyaqRupeeMark
fromUnicodeChar Char
_ = Maybe Currency
forall a. Maybe a
Nothing
isInCharRange :: Char -> Bool
isInCharRange = Char -> Bool
isCurrency
instance UnicodeText Currency where
isInTextRange :: Text -> Bool
isInTextRange = forall a. UnicodeCharacter a => Text -> Bool
generateIsInTextRange' @Currency
isCurrency ::
Char ->
Bool
isCurrency :: Char -> Bool
isCurrency Char
x
| Char
'\x20a0' Char -> Char -> Bool
forall a. Ord a => a -> a -> Bool
<= Char
x Bool -> Bool -> Bool
&& Char
x Char -> Char -> Bool
forall a. Ord a => a -> a -> Bool
<= Char
'\x20bf' = Bool
True
| Char
'\xa2' Char -> Char -> Bool
forall a. Ord a => a -> a -> Bool
<= Char
x Bool -> Bool -> Bool
&& Char
x Char -> Char -> Bool
forall a. Ord a => a -> a -> Bool
<= Char
'\xa5' = Bool
True
| Char
'\x11fdd' Char -> Char -> Bool
forall a. Ord a => a -> a -> Bool
<= Char
x Bool -> Bool -> Bool
&& Char
x Char -> Char -> Bool
forall a. Ord a => a -> a -> Bool
<= Char
'\x11fe0' = Bool
True
| Char
'\x7fe' Char -> Char -> Bool
forall a. Ord a => a -> a -> Bool
<= Char
x Bool -> Bool -> Bool
&& Char
x Char -> Char -> Bool
forall a. Ord a => a -> a -> Bool
<= Char
'\x7ff' = Bool
True
| Char
'\x9f2' Char -> Char -> Bool
forall a. Ord a => a -> a -> Bool
<= Char
x Bool -> Bool -> Bool
&& Char
x Char -> Char -> Bool
forall a. Ord a => a -> a -> Bool
<= Char
'\x9f3' = Bool
True
| Char
'\xffe0' Char -> Char -> Bool
forall a. Ord a => a -> a -> Bool
<= Char
x Bool -> Bool -> Bool
&& Char
x Char -> Char -> Bool
forall a. Ord a => a -> a -> Bool
<= Char
'\xffe1' = Bool
True
| Char
'\xffe5' Char -> Char -> Bool
forall a. Ord a => a -> a -> Bool
<= Char
x Bool -> Bool -> Bool
&& Char
x Char -> Char -> Bool
forall a. Ord a => a -> a -> Bool
<= Char
'\xffe6' = Bool
True
isCurrency Char
'\x24' = Bool
True
isCurrency Char
'\x58f' = Bool
True
isCurrency Char
'\x60b' = Bool
True
isCurrency Char
'\x9fb' = Bool
True
isCurrency Char
'\xaf1' = Bool
True
isCurrency Char
'\xbf9' = Bool
True
isCurrency Char
'\xe3f' = Bool
True
isCurrency Char
'\x17db' = Bool
True
isCurrency Char
'\xa838' = Bool
True
isCurrency Char
'\xfdfc' = Bool
True
isCurrency Char
'\xfe69' = Bool
True
isCurrency Char
'\xff04' = Bool
True
isCurrency Char
'\x1e2ff' = Bool
True
isCurrency Char
_ = Bool
False
dollar ::
Char
dollar :: Char
dollar = Char
'\x24'
cent ::
Char
cent :: Char
cent = Char
'\xa2'
pound ::
Char
pound :: Char
pound = Char
'\xa3'
currency ::
Char
currency :: Char
currency = Char
'\xa4'
yen ::
Char
yen :: Char
yen = Char
'\xa5'
armenianDram ::
Char
armenianDram :: Char
armenianDram = Char
'\x58f'
afghani ::
Char
afghani :: Char
afghani = Char
'\x60b'
nkoDorome ::
Char
nkoDorome :: Char
nkoDorome = Char
'\x7fe'
nkoTaman ::
Char
nkoTaman :: Char
nkoTaman = Char
'\x7ff'
bengaliRupeeMark ::
Char
bengaliRupeeMark :: Char
bengaliRupeeMark = Char
'\x9f2'
bengaliRupee ::
Char
bengaliRupee :: Char
bengaliRupee = Char
'\x9f3'
bengaliGandaMark ::
Char
bengaliGandaMark :: Char
bengaliGandaMark = Char
'\x9fb'
gujaratiRupee ::
Char
gujaratiRupee :: Char
gujaratiRupee = Char
'\xaf1'
tamilRupee ::
Char
tamilRupee :: Char
tamilRupee = Char
'\xbf9'
thaiSymbolBaht ::
Char
thaiSymbolBaht :: Char
thaiSymbolBaht = Char
'\xe3f'
khmerSymbolRiel ::
Char
khmerSymbolRiel :: Char
khmerSymbolRiel = Char
'\x17db'
euroCurrency ::
Char
euroCurrency :: Char
euroCurrency = Char
'\x20a0'
colon ::
Char
colon :: Char
colon = Char
'\x20a1'
cruzeiro ::
Char
cruzeiro :: Char
cruzeiro = Char
'\x20a2'
frenchFranc ::
Char
frenchFranc :: Char
frenchFranc = Char
'\x20a3'
lira ::
Char
lira :: Char
lira = Char
'\x20a4'
mill ::
Char
mill :: Char
mill = Char
'\x20a5'
naira ::
Char
naira :: Char
naira = Char
'\x20a6'
peseta ::
Char
peseta :: Char
peseta = Char
'\x20a7'
rupee ::
Char
rupee :: Char
rupee = Char
'\x20a8'
won ::
Char
won :: Char
won = Char
'\x20a9'
newSheqel ::
Char
newSheqel :: Char
newSheqel = Char
'\x20aa'
dong ::
Char
dong :: Char
dong = Char
'\x20ab'
euro ::
Char
euro :: Char
euro = Char
'\x20ac'
kip ::
Char
kip :: Char
kip = Char
'\x20ad'
tugrik ::
Char
tugrik :: Char
tugrik = Char
'\x20ae'
drachma ::
Char
drachma :: Char
drachma = Char
'\x20af'
germanPenny ::
Char
germanPenny :: Char
germanPenny = Char
'\x20b0'
peso ::
Char
peso :: Char
peso = Char
'\x20b1'
guarani ::
Char
guarani :: Char
guarani = Char
'\x20b2'
austral ::
Char
austral :: Char
austral = Char
'\x20b3'
hryvnia ::
Char
hryvnia :: Char
hryvnia = Char
'\x20b4'
cedi ::
Char
cedi :: Char
cedi = Char
'\x20b5'
livreTournois ::
Char
livreTournois :: Char
livreTournois = Char
'\x20b6'
spesmilo ::
Char
spesmilo :: Char
spesmilo = Char
'\x20b7'
tenge ::
Char
tenge :: Char
tenge = Char
'\x20b8'
indianRupee ::
Char
indianRupee :: Char
indianRupee = Char
'\x20b9'
turkishLira ::
Char
turkishLira :: Char
turkishLira = Char
'\x20ba'
nordicMark ::
Char
nordicMark :: Char
nordicMark = Char
'\x20bb'
manat ::
Char
manat :: Char
manat = Char
'\x20bc'
ruble ::
Char
ruble :: Char
ruble = Char
'\x20bd'
lari ::
Char
lari :: Char
lari = Char
'\x20be'
bitcoin ::
Char
bitcoin :: Char
bitcoin = Char
'\x20bf'
northIndicRupeeMark ::
Char
northIndicRupeeMark :: Char
northIndicRupeeMark = Char
'\xa838'
rial ::
Char
rial :: Char
rial = Char
'\xfdfc'
smallDollar ::
Char
smallDollar :: Char
smallDollar = Char
'\xfe69'
fullwidthDollar ::
Char
fullwidthDollar :: Char
fullwidthDollar = Char
'\xff04'
fullwidthCent ::
Char
fullwidthCent :: Char
fullwidthCent = Char
'\xffe0'
fullwidthPound ::
Char
fullwidthPound :: Char
fullwidthPound = Char
'\xffe1'
fullwidthYen ::
Char
fullwidthYen :: Char
fullwidthYen = Char
'\xffe5'
fullwidthWon ::
Char
fullwidthWon :: Char
fullwidthWon = Char
'\xffe6'
tamilKaacu ::
Char
tamilKaacu :: Char
tamilKaacu = Char
'\x11fdd'
tamilPanam ::
Char
tamilPanam :: Char
tamilPanam = Char
'\x11fde'
tamilPon ::
Char
tamilPon :: Char
tamilPon = Char
'\x11fdf'
tamilVaraakan ::
Char
tamilVaraakan :: Char
tamilVaraakan = Char
'\x11fe0'
wanchoNgun ::
Char
wanchoNgun :: Char
wanchoNgun = Char
'\x1e2ff'
indicSiyaqRupeeMark ::
Char
indicSiyaqRupeeMark :: Char
indicSiyaqRupeeMark = Char
'\x1ecb0'