module Data.LanguageCodes where import Prelude hiding (Ordering(..)) data ISO639_1 = AA | AB | AE | AF | AK | AM | AN | AR | AS | AV | AY | AZ | BA | BE | BG | BH | BI | BM | BN | BO | BR | BS | CA | CE | CH | CO | CR | CS | CU | CV | CY | DA | DE | DV | DZ | EE | EL | EN | EO | ES | ET | EU | FA | FF | FI | FJ | FO | FR | FY | GA | GD | GL | GN | GU | GV | HA | HE | HI | HO | HR | HT | HU | HY | HZ | IA | ID | IE | IG | II | IK | IO | IS | IT | IU | JA | JV | KA | KG | KI | KJ | KK | KL | KM | KN | KO | KR | KS | KU | KV | KW | KY | LA | LB | LG | LI | LN | LO | LT | LU | LV | MG | MH | MI | MK | ML | MN | MR | MS | MT | MY | NA | NB | ND | NE | NG | NL | NN | NO | NR | NV | NY | OC | OJ | OM | OR | OS | PA | PI | PL | PS | PT | QU | RM | RN | RO | RU | RW | SA | SC | SD | SE | SG | SI | SK | SL | SM | SN | SO | SQ | SR | SS | ST | SU | SV | SW | TA | TE | TG | TH | TI | TK | TL | TN | TO | TR | TS | TT | TW | TY | UG | UK | UR | UZ | VE | VI | VO | WA | WO | XH | YI | YO | ZA | ZH | ZU deriving (Int -> ISO639_1 -> ShowS [ISO639_1] -> ShowS ISO639_1 -> String (Int -> ISO639_1 -> ShowS) -> (ISO639_1 -> String) -> ([ISO639_1] -> ShowS) -> Show ISO639_1 forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> ISO639_1 -> ShowS showsPrec :: Int -> ISO639_1 -> ShowS $cshow :: ISO639_1 -> String show :: ISO639_1 -> String $cshowList :: [ISO639_1] -> ShowS showList :: [ISO639_1] -> ShowS Show, ReadPrec [ISO639_1] ReadPrec ISO639_1 Int -> ReadS ISO639_1 ReadS [ISO639_1] (Int -> ReadS ISO639_1) -> ReadS [ISO639_1] -> ReadPrec ISO639_1 -> ReadPrec [ISO639_1] -> Read ISO639_1 forall a. (Int -> ReadS a) -> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a $creadsPrec :: Int -> ReadS ISO639_1 readsPrec :: Int -> ReadS ISO639_1 $creadList :: ReadS [ISO639_1] readList :: ReadS [ISO639_1] $creadPrec :: ReadPrec ISO639_1 readPrec :: ReadPrec ISO639_1 $creadListPrec :: ReadPrec [ISO639_1] readListPrec :: ReadPrec [ISO639_1] Read, ISO639_1 -> ISO639_1 -> Bool (ISO639_1 -> ISO639_1 -> Bool) -> (ISO639_1 -> ISO639_1 -> Bool) -> Eq ISO639_1 forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: ISO639_1 -> ISO639_1 -> Bool == :: ISO639_1 -> ISO639_1 -> Bool $c/= :: ISO639_1 -> ISO639_1 -> Bool /= :: ISO639_1 -> ISO639_1 -> Bool Eq, Int -> ISO639_1 ISO639_1 -> Int ISO639_1 -> [ISO639_1] ISO639_1 -> ISO639_1 ISO639_1 -> ISO639_1 -> [ISO639_1] ISO639_1 -> ISO639_1 -> ISO639_1 -> [ISO639_1] (ISO639_1 -> ISO639_1) -> (ISO639_1 -> ISO639_1) -> (Int -> ISO639_1) -> (ISO639_1 -> Int) -> (ISO639_1 -> [ISO639_1]) -> (ISO639_1 -> ISO639_1 -> [ISO639_1]) -> (ISO639_1 -> ISO639_1 -> [ISO639_1]) -> (ISO639_1 -> ISO639_1 -> ISO639_1 -> [ISO639_1]) -> Enum ISO639_1 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 :: ISO639_1 -> ISO639_1 succ :: ISO639_1 -> ISO639_1 $cpred :: ISO639_1 -> ISO639_1 pred :: ISO639_1 -> ISO639_1 $ctoEnum :: Int -> ISO639_1 toEnum :: Int -> ISO639_1 $cfromEnum :: ISO639_1 -> Int fromEnum :: ISO639_1 -> Int $cenumFrom :: ISO639_1 -> [ISO639_1] enumFrom :: ISO639_1 -> [ISO639_1] $cenumFromThen :: ISO639_1 -> ISO639_1 -> [ISO639_1] enumFromThen :: ISO639_1 -> ISO639_1 -> [ISO639_1] $cenumFromTo :: ISO639_1 -> ISO639_1 -> [ISO639_1] enumFromTo :: ISO639_1 -> ISO639_1 -> [ISO639_1] $cenumFromThenTo :: ISO639_1 -> ISO639_1 -> ISO639_1 -> [ISO639_1] enumFromThenTo :: ISO639_1 -> ISO639_1 -> ISO639_1 -> [ISO639_1] Enum, Eq ISO639_1 Eq ISO639_1 => (ISO639_1 -> ISO639_1 -> Ordering) -> (ISO639_1 -> ISO639_1 -> Bool) -> (ISO639_1 -> ISO639_1 -> Bool) -> (ISO639_1 -> ISO639_1 -> Bool) -> (ISO639_1 -> ISO639_1 -> Bool) -> (ISO639_1 -> ISO639_1 -> ISO639_1) -> (ISO639_1 -> ISO639_1 -> ISO639_1) -> Ord ISO639_1 ISO639_1 -> ISO639_1 -> Bool ISO639_1 -> ISO639_1 -> Ordering ISO639_1 -> ISO639_1 -> ISO639_1 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 :: ISO639_1 -> ISO639_1 -> Ordering compare :: ISO639_1 -> ISO639_1 -> Ordering $c< :: ISO639_1 -> ISO639_1 -> Bool < :: ISO639_1 -> ISO639_1 -> Bool $c<= :: ISO639_1 -> ISO639_1 -> Bool <= :: ISO639_1 -> ISO639_1 -> Bool $c> :: ISO639_1 -> ISO639_1 -> Bool > :: ISO639_1 -> ISO639_1 -> Bool $c>= :: ISO639_1 -> ISO639_1 -> Bool >= :: ISO639_1 -> ISO639_1 -> Bool $cmax :: ISO639_1 -> ISO639_1 -> ISO639_1 max :: ISO639_1 -> ISO639_1 -> ISO639_1 $cmin :: ISO639_1 -> ISO639_1 -> ISO639_1 min :: ISO639_1 -> ISO639_1 -> ISO639_1 Ord) toChars :: ISO639_1 -> (Char, Char) toChars (ISO639_1 code) = case (ISO639_1 code) of (ISO639_1 AA) -> (Char 'a', Char 'a') (ISO639_1 AB) -> (Char 'a', Char 'b') (ISO639_1 AE) -> (Char 'a', Char 'e') (ISO639_1 AF) -> (Char 'a', Char 'f') (ISO639_1 AK) -> (Char 'a', Char 'k') (ISO639_1 AM) -> (Char 'a', Char 'm') (ISO639_1 AN) -> (Char 'a', Char 'n') (ISO639_1 AR) -> (Char 'a', Char 'r') (ISO639_1 AS) -> (Char 'a', Char 's') (ISO639_1 AV) -> (Char 'a', Char 'v') (ISO639_1 AY) -> (Char 'a', Char 'y') (ISO639_1 AZ) -> (Char 'a', Char 'z') (ISO639_1 BA) -> (Char 'b', Char 'a') (ISO639_1 BE) -> (Char 'b', Char 'e') (ISO639_1 BG) -> (Char 'b', Char 'g') (ISO639_1 BH) -> (Char 'b', Char 'h') (ISO639_1 BI) -> (Char 'b', Char 'i') (ISO639_1 BM) -> (Char 'b', Char 'm') (ISO639_1 BN) -> (Char 'b', Char 'n') (ISO639_1 BO) -> (Char 'b', Char 'o') (ISO639_1 BR) -> (Char 'b', Char 'r') (ISO639_1 BS) -> (Char 'b', Char 's') (ISO639_1 CA) -> (Char 'c', Char 'a') (ISO639_1 CE) -> (Char 'c', Char 'e') (ISO639_1 CH) -> (Char 'c', Char 'h') (ISO639_1 CO) -> (Char 'c', Char 'o') (ISO639_1 CR) -> (Char 'c', Char 'r') (ISO639_1 CS) -> (Char 'c', Char 's') (ISO639_1 CU) -> (Char 'c', Char 'u') (ISO639_1 CV) -> (Char 'c', Char 'v') (ISO639_1 CY) -> (Char 'c', Char 'y') (ISO639_1 DA) -> (Char 'd', Char 'a') (ISO639_1 DE) -> (Char 'd', Char 'e') (ISO639_1 DV) -> (Char 'd', Char 'v') (ISO639_1 DZ) -> (Char 'd', Char 'z') (ISO639_1 EE) -> (Char 'e', Char 'e') (ISO639_1 EL) -> (Char 'e', Char 'l') (ISO639_1 EN) -> (Char 'e', Char 'n') (ISO639_1 EO) -> (Char 'e', Char 'o') (ISO639_1 ES) -> (Char 'e', Char 's') (ISO639_1 ET) -> (Char 'e', Char 't') (ISO639_1 EU) -> (Char 'e', Char 'u') (ISO639_1 FA) -> (Char 'f', Char 'a') (ISO639_1 FF) -> (Char 'f', Char 'f') (ISO639_1 FI) -> (Char 'f', Char 'i') (ISO639_1 FJ) -> (Char 'f', Char 'j') (ISO639_1 FO) -> (Char 'f', Char 'o') (ISO639_1 FR) -> (Char 'f', Char 'r') (ISO639_1 FY) -> (Char 'f', Char 'y') (ISO639_1 GA) -> (Char 'g', Char 'a') (ISO639_1 GD) -> (Char 'g', Char 'd') (ISO639_1 GL) -> (Char 'g', Char 'l') (ISO639_1 GN) -> (Char 'g', Char 'n') (ISO639_1 GU) -> (Char 'g', Char 'u') (ISO639_1 GV) -> (Char 'g', Char 'v') (ISO639_1 HA) -> (Char 'h', Char 'a') (ISO639_1 HE) -> (Char 'h', Char 'e') (ISO639_1 HI) -> (Char 'h', Char 'i') (ISO639_1 HO) -> (Char 'h', Char 'o') (ISO639_1 HR) -> (Char 'h', Char 'r') (ISO639_1 HT) -> (Char 'h', Char 't') (ISO639_1 HU) -> (Char 'h', Char 'u') (ISO639_1 HY) -> (Char 'h', Char 'y') (ISO639_1 HZ) -> (Char 'h', Char 'z') (ISO639_1 IA) -> (Char 'i', Char 'a') (ISO639_1 ID) -> (Char 'i', Char 'd') (ISO639_1 IE) -> (Char 'i', Char 'e') (ISO639_1 IG) -> (Char 'i', Char 'g') (ISO639_1 II) -> (Char 'i', Char 'i') (ISO639_1 IK) -> (Char 'i', Char 'k') (ISO639_1 IO) -> (Char 'i', Char 'o') (ISO639_1 IS) -> (Char 'i', Char 's') (ISO639_1 IT) -> (Char 'i', Char 't') (ISO639_1 IU) -> (Char 'i', Char 'u') (ISO639_1 JA) -> (Char 'j', Char 'a') (ISO639_1 JV) -> (Char 'j', Char 'v') (ISO639_1 KA) -> (Char 'k', Char 'a') (ISO639_1 KG) -> (Char 'k', Char 'g') (ISO639_1 KI) -> (Char 'k', Char 'i') (ISO639_1 KJ) -> (Char 'k', Char 'j') (ISO639_1 KK) -> (Char 'k', Char 'k') (ISO639_1 KL) -> (Char 'k', Char 'l') (ISO639_1 KM) -> (Char 'k', Char 'm') (ISO639_1 KN) -> (Char 'k', Char 'n') (ISO639_1 KO) -> (Char 'k', Char 'o') (ISO639_1 KR) -> (Char 'k', Char 'r') (ISO639_1 KS) -> (Char 'k', Char 's') (ISO639_1 KU) -> (Char 'k', Char 'u') (ISO639_1 KV) -> (Char 'k', Char 'v') (ISO639_1 KW) -> (Char 'k', Char 'w') (ISO639_1 KY) -> (Char 'k', Char 'y') (ISO639_1 LA) -> (Char 'l', Char 'a') (ISO639_1 LB) -> (Char 'l', Char 'b') (ISO639_1 LG) -> (Char 'l', Char 'g') (ISO639_1 LI) -> (Char 'l', Char 'i') (ISO639_1 LN) -> (Char 'l', Char 'n') (ISO639_1 LO) -> (Char 'l', Char 'o') (ISO639_1 LT) -> (Char 'l', Char 't') (ISO639_1 LU) -> (Char 'l', Char 'u') (ISO639_1 LV) -> (Char 'l', Char 'v') (ISO639_1 MG) -> (Char 'm', Char 'g') (ISO639_1 MH) -> (Char 'm', Char 'h') (ISO639_1 MI) -> (Char 'm', Char 'i') (ISO639_1 MK) -> (Char 'm', Char 'k') (ISO639_1 ML) -> (Char 'm', Char 'l') (ISO639_1 MN) -> (Char 'm', Char 'n') (ISO639_1 MR) -> (Char 'm', Char 'r') (ISO639_1 MS) -> (Char 'm', Char 's') (ISO639_1 MT) -> (Char 'm', Char 't') (ISO639_1 MY) -> (Char 'm', Char 'y') (ISO639_1 NA) -> (Char 'n', Char 'a') (ISO639_1 NB) -> (Char 'n', Char 'b') (ISO639_1 ND) -> (Char 'n', Char 'd') (ISO639_1 NE) -> (Char 'n', Char 'e') (ISO639_1 NG) -> (Char 'n', Char 'g') (ISO639_1 NL) -> (Char 'n', Char 'l') (ISO639_1 NN) -> (Char 'n', Char 'n') (ISO639_1 NO) -> (Char 'n', Char 'o') (ISO639_1 NR) -> (Char 'n', Char 'r') (ISO639_1 NV) -> (Char 'n', Char 'v') (ISO639_1 NY) -> (Char 'n', Char 'y') (ISO639_1 OC) -> (Char 'o', Char 'c') (ISO639_1 OJ) -> (Char 'o', Char 'j') (ISO639_1 OM) -> (Char 'o', Char 'm') (ISO639_1 OR) -> (Char 'o', Char 'r') (ISO639_1 OS) -> (Char 'o', Char 's') (ISO639_1 PA) -> (Char 'p', Char 'a') (ISO639_1 PI) -> (Char 'p', Char 'i') (ISO639_1 PL) -> (Char 'p', Char 'l') (ISO639_1 PS) -> (Char 'p', Char 's') (ISO639_1 PT) -> (Char 'p', Char 't') (ISO639_1 QU) -> (Char 'q', Char 'u') (ISO639_1 RM) -> (Char 'r', Char 'm') (ISO639_1 RN) -> (Char 'r', Char 'n') (ISO639_1 RO) -> (Char 'r', Char 'o') (ISO639_1 RU) -> (Char 'r', Char 'u') (ISO639_1 RW) -> (Char 'r', Char 'w') (ISO639_1 SA) -> (Char 's', Char 'a') (ISO639_1 SC) -> (Char 's', Char 'c') (ISO639_1 SD) -> (Char 's', Char 'd') (ISO639_1 SE) -> (Char 's', Char 'e') (ISO639_1 SG) -> (Char 's', Char 'g') (ISO639_1 SI) -> (Char 's', Char 'i') (ISO639_1 SK) -> (Char 's', Char 'k') (ISO639_1 SL) -> (Char 's', Char 'l') (ISO639_1 SM) -> (Char 's', Char 'm') (ISO639_1 SN) -> (Char 's', Char 'n') (ISO639_1 SO) -> (Char 's', Char 'o') (ISO639_1 SQ) -> (Char 's', Char 'q') (ISO639_1 SR) -> (Char 's', Char 'r') (ISO639_1 SS) -> (Char 's', Char 's') (ISO639_1 ST) -> (Char 's', Char 't') (ISO639_1 SU) -> (Char 's', Char 'u') (ISO639_1 SV) -> (Char 's', Char 'v') (ISO639_1 SW) -> (Char 's', Char 'w') (ISO639_1 TA) -> (Char 't', Char 'a') (ISO639_1 TE) -> (Char 't', Char 'e') (ISO639_1 TG) -> (Char 't', Char 'g') (ISO639_1 TH) -> (Char 't', Char 'h') (ISO639_1 TI) -> (Char 't', Char 'i') (ISO639_1 TK) -> (Char 't', Char 'k') (ISO639_1 TL) -> (Char 't', Char 'l') (ISO639_1 TN) -> (Char 't', Char 'n') (ISO639_1 TO) -> (Char 't', Char 'o') (ISO639_1 TR) -> (Char 't', Char 'r') (ISO639_1 TS) -> (Char 't', Char 's') (ISO639_1 TT) -> (Char 't', Char 't') (ISO639_1 TW) -> (Char 't', Char 'w') (ISO639_1 TY) -> (Char 't', Char 'y') (ISO639_1 UG) -> (Char 'u', Char 'g') (ISO639_1 UK) -> (Char 'u', Char 'k') (ISO639_1 UR) -> (Char 'u', Char 'r') (ISO639_1 UZ) -> (Char 'u', Char 'z') (ISO639_1 VE) -> (Char 'v', Char 'e') (ISO639_1 VI) -> (Char 'v', Char 'i') (ISO639_1 VO) -> (Char 'v', Char 'o') (ISO639_1 WA) -> (Char 'w', Char 'a') (ISO639_1 WO) -> (Char 'w', Char 'o') (ISO639_1 XH) -> (Char 'x', Char 'h') (ISO639_1 YI) -> (Char 'y', Char 'i') (ISO639_1 YO) -> (Char 'y', Char 'o') (ISO639_1 ZA) -> (Char 'z', Char 'a') (ISO639_1 ZH) -> (Char 'z', Char 'h') (ISO639_1 ZU) -> (Char 'z', Char 'u') fromChars :: Char -> Char -> Maybe ISO639_1 fromChars (Char c1) (Char c2) = case ((Char c1), (Char c2)) of (Char 'z', Char 'u') -> (forall a. a -> Maybe a Just) (ISO639_1 ZU) (Char 'z', Char 'h') -> (forall a. a -> Maybe a Just) (ISO639_1 ZH) (Char 'z', Char 'a') -> (forall a. a -> Maybe a Just) (ISO639_1 ZA) (Char 'y', Char 'o') -> (forall a. a -> Maybe a Just) (ISO639_1 YO) (Char 'y', Char 'i') -> (forall a. a -> Maybe a Just) (ISO639_1 YI) (Char 'x', Char 'h') -> (forall a. a -> Maybe a Just) (ISO639_1 XH) (Char 'w', Char 'o') -> (forall a. a -> Maybe a Just) (ISO639_1 WO) (Char 'w', Char 'a') -> (forall a. a -> Maybe a Just) (ISO639_1 WA) (Char 'v', Char 'o') -> (forall a. a -> Maybe a Just) (ISO639_1 VO) (Char 'v', Char 'i') -> (forall a. a -> Maybe a Just) (ISO639_1 VI) (Char 'v', Char 'e') -> (forall a. a -> Maybe a Just) (ISO639_1 VE) (Char 'u', Char 'z') -> (forall a. a -> Maybe a Just) (ISO639_1 UZ) (Char 'u', Char 'r') -> (forall a. a -> Maybe a Just) (ISO639_1 UR) (Char 'u', Char 'k') -> (forall a. a -> Maybe a Just) (ISO639_1 UK) (Char 'u', Char 'g') -> (forall a. a -> Maybe a Just) (ISO639_1 UG) (Char 't', Char 'y') -> (forall a. a -> Maybe a Just) (ISO639_1 TY) (Char 't', Char 'w') -> (forall a. a -> Maybe a Just) (ISO639_1 TW) (Char 't', Char 't') -> (forall a. a -> Maybe a Just) (ISO639_1 TT) (Char 't', Char 's') -> (forall a. a -> Maybe a Just) (ISO639_1 TS) (Char 't', Char 'r') -> (forall a. a -> Maybe a Just) (ISO639_1 TR) (Char 't', Char 'o') -> (forall a. a -> Maybe a Just) (ISO639_1 TO) (Char 't', Char 'n') -> (forall a. a -> Maybe a Just) (ISO639_1 TN) (Char 't', Char 'l') -> (forall a. a -> Maybe a Just) (ISO639_1 TL) (Char 't', Char 'k') -> (forall a. a -> Maybe a Just) (ISO639_1 TK) (Char 't', Char 'i') -> (forall a. a -> Maybe a Just) (ISO639_1 TI) (Char 't', Char 'h') -> (forall a. a -> Maybe a Just) (ISO639_1 TH) (Char 't', Char 'g') -> (forall a. a -> Maybe a Just) (ISO639_1 TG) (Char 't', Char 'e') -> (forall a. a -> Maybe a Just) (ISO639_1 TE) (Char 't', Char 'a') -> (forall a. a -> Maybe a Just) (ISO639_1 TA) (Char 's', Char 'w') -> (forall a. a -> Maybe a Just) (ISO639_1 SW) (Char 's', Char 'v') -> (forall a. a -> Maybe a Just) (ISO639_1 SV) (Char 's', Char 'u') -> (forall a. a -> Maybe a Just) (ISO639_1 SU) (Char 's', Char 't') -> (forall a. a -> Maybe a Just) (ISO639_1 ST) (Char 's', Char 's') -> (forall a. a -> Maybe a Just) (ISO639_1 SS) (Char 's', Char 'r') -> (forall a. a -> Maybe a Just) (ISO639_1 SR) (Char 's', Char 'q') -> (forall a. a -> Maybe a Just) (ISO639_1 SQ) (Char 's', Char 'o') -> (forall a. a -> Maybe a Just) (ISO639_1 SO) (Char 's', Char 'n') -> (forall a. a -> Maybe a Just) (ISO639_1 SN) (Char 's', Char 'm') -> (forall a. a -> Maybe a Just) (ISO639_1 SM) (Char 's', Char 'l') -> (forall a. a -> Maybe a Just) (ISO639_1 SL) (Char 's', Char 'k') -> (forall a. a -> Maybe a Just) (ISO639_1 SK) (Char 's', Char 'i') -> (forall a. a -> Maybe a Just) (ISO639_1 SI) (Char 's', Char 'g') -> (forall a. a -> Maybe a Just) (ISO639_1 SG) (Char 's', Char 'e') -> (forall a. a -> Maybe a Just) (ISO639_1 SE) (Char 's', Char 'd') -> (forall a. a -> Maybe a Just) (ISO639_1 SD) (Char 's', Char 'c') -> (forall a. a -> Maybe a Just) (ISO639_1 SC) (Char 's', Char 'a') -> (forall a. a -> Maybe a Just) (ISO639_1 SA) (Char 'r', Char 'w') -> (forall a. a -> Maybe a Just) (ISO639_1 RW) (Char 'r', Char 'u') -> (forall a. a -> Maybe a Just) (ISO639_1 RU) (Char 'r', Char 'o') -> (forall a. a -> Maybe a Just) (ISO639_1 RO) (Char 'r', Char 'n') -> (forall a. a -> Maybe a Just) (ISO639_1 RN) (Char 'r', Char 'm') -> (forall a. a -> Maybe a Just) (ISO639_1 RM) (Char 'q', Char 'u') -> (forall a. a -> Maybe a Just) (ISO639_1 QU) (Char 'p', Char 't') -> (forall a. a -> Maybe a Just) (ISO639_1 PT) (Char 'p', Char 's') -> (forall a. a -> Maybe a Just) (ISO639_1 PS) (Char 'p', Char 'l') -> (forall a. a -> Maybe a Just) (ISO639_1 PL) (Char 'p', Char 'i') -> (forall a. a -> Maybe a Just) (ISO639_1 PI) (Char 'p', Char 'a') -> (forall a. a -> Maybe a Just) (ISO639_1 PA) (Char 'o', Char 's') -> (forall a. a -> Maybe a Just) (ISO639_1 OS) (Char 'o', Char 'r') -> (forall a. a -> Maybe a Just) (ISO639_1 OR) (Char 'o', Char 'm') -> (forall a. a -> Maybe a Just) (ISO639_1 OM) (Char 'o', Char 'j') -> (forall a. a -> Maybe a Just) (ISO639_1 OJ) (Char 'o', Char 'c') -> (forall a. a -> Maybe a Just) (ISO639_1 OC) (Char 'n', Char 'y') -> (forall a. a -> Maybe a Just) (ISO639_1 NY) (Char 'n', Char 'v') -> (forall a. a -> Maybe a Just) (ISO639_1 NV) (Char 'n', Char 'r') -> (forall a. a -> Maybe a Just) (ISO639_1 NR) (Char 'n', Char 'o') -> (forall a. a -> Maybe a Just) (ISO639_1 NO) (Char 'n', Char 'n') -> (forall a. a -> Maybe a Just) (ISO639_1 NN) (Char 'n', Char 'l') -> (forall a. a -> Maybe a Just) (ISO639_1 NL) (Char 'n', Char 'g') -> (forall a. a -> Maybe a Just) (ISO639_1 NG) (Char 'n', Char 'e') -> (forall a. a -> Maybe a Just) (ISO639_1 NE) (Char 'n', Char 'd') -> (forall a. a -> Maybe a Just) (ISO639_1 ND) (Char 'n', Char 'b') -> (forall a. a -> Maybe a Just) (ISO639_1 NB) (Char 'n', Char 'a') -> (forall a. a -> Maybe a Just) (ISO639_1 NA) (Char 'm', Char 'y') -> (forall a. a -> Maybe a Just) (ISO639_1 MY) (Char 'm', Char 't') -> (forall a. a -> Maybe a Just) (ISO639_1 MT) (Char 'm', Char 's') -> (forall a. a -> Maybe a Just) (ISO639_1 MS) (Char 'm', Char 'r') -> (forall a. a -> Maybe a Just) (ISO639_1 MR) (Char 'm', Char 'n') -> (forall a. a -> Maybe a Just) (ISO639_1 MN) (Char 'm', Char 'l') -> (forall a. a -> Maybe a Just) (ISO639_1 ML) (Char 'm', Char 'k') -> (forall a. a -> Maybe a Just) (ISO639_1 MK) (Char 'm', Char 'i') -> (forall a. a -> Maybe a Just) (ISO639_1 MI) (Char 'm', Char 'h') -> (forall a. a -> Maybe a Just) (ISO639_1 MH) (Char 'm', Char 'g') -> (forall a. a -> Maybe a Just) (ISO639_1 MG) (Char 'l', Char 'v') -> (forall a. a -> Maybe a Just) (ISO639_1 LV) (Char 'l', Char 'u') -> (forall a. a -> Maybe a Just) (ISO639_1 LU) (Char 'l', Char 't') -> (forall a. a -> Maybe a Just) (ISO639_1 LT) (Char 'l', Char 'o') -> (forall a. a -> Maybe a Just) (ISO639_1 LO) (Char 'l', Char 'n') -> (forall a. a -> Maybe a Just) (ISO639_1 LN) (Char 'l', Char 'i') -> (forall a. a -> Maybe a Just) (ISO639_1 LI) (Char 'l', Char 'g') -> (forall a. a -> Maybe a Just) (ISO639_1 LG) (Char 'l', Char 'b') -> (forall a. a -> Maybe a Just) (ISO639_1 LB) (Char 'l', Char 'a') -> (forall a. a -> Maybe a Just) (ISO639_1 LA) (Char 'k', Char 'y') -> (forall a. a -> Maybe a Just) (ISO639_1 KY) (Char 'k', Char 'w') -> (forall a. a -> Maybe a Just) (ISO639_1 KW) (Char 'k', Char 'v') -> (forall a. a -> Maybe a Just) (ISO639_1 KV) (Char 'k', Char 'u') -> (forall a. a -> Maybe a Just) (ISO639_1 KU) (Char 'k', Char 's') -> (forall a. a -> Maybe a Just) (ISO639_1 KS) (Char 'k', Char 'r') -> (forall a. a -> Maybe a Just) (ISO639_1 KR) (Char 'k', Char 'o') -> (forall a. a -> Maybe a Just) (ISO639_1 KO) (Char 'k', Char 'n') -> (forall a. a -> Maybe a Just) (ISO639_1 KN) (Char 'k', Char 'm') -> (forall a. a -> Maybe a Just) (ISO639_1 KM) (Char 'k', Char 'l') -> (forall a. a -> Maybe a Just) (ISO639_1 KL) (Char 'k', Char 'k') -> (forall a. a -> Maybe a Just) (ISO639_1 KK) (Char 'k', Char 'j') -> (forall a. a -> Maybe a Just) (ISO639_1 KJ) (Char 'k', Char 'i') -> (forall a. a -> Maybe a Just) (ISO639_1 KI) (Char 'k', Char 'g') -> (forall a. a -> Maybe a Just) (ISO639_1 KG) (Char 'k', Char 'a') -> (forall a. a -> Maybe a Just) (ISO639_1 KA) (Char 'j', Char 'v') -> (forall a. a -> Maybe a Just) (ISO639_1 JV) (Char 'j', Char 'a') -> (forall a. a -> Maybe a Just) (ISO639_1 JA) (Char 'i', Char 'u') -> (forall a. a -> Maybe a Just) (ISO639_1 IU) (Char 'i', Char 't') -> (forall a. a -> Maybe a Just) (ISO639_1 IT) (Char 'i', Char 's') -> (forall a. a -> Maybe a Just) (ISO639_1 IS) (Char 'i', Char 'o') -> (forall a. a -> Maybe a Just) (ISO639_1 IO) (Char 'i', Char 'k') -> (forall a. a -> Maybe a Just) (ISO639_1 IK) (Char 'i', Char 'i') -> (forall a. a -> Maybe a Just) (ISO639_1 II) (Char 'i', Char 'g') -> (forall a. a -> Maybe a Just) (ISO639_1 IG) (Char 'i', Char 'e') -> (forall a. a -> Maybe a Just) (ISO639_1 IE) (Char 'i', Char 'd') -> (forall a. a -> Maybe a Just) (ISO639_1 ID) (Char 'i', Char 'a') -> (forall a. a -> Maybe a Just) (ISO639_1 IA) (Char 'h', Char 'z') -> (forall a. a -> Maybe a Just) (ISO639_1 HZ) (Char 'h', Char 'y') -> (forall a. a -> Maybe a Just) (ISO639_1 HY) (Char 'h', Char 'u') -> (forall a. a -> Maybe a Just) (ISO639_1 HU) (Char 'h', Char 't') -> (forall a. a -> Maybe a Just) (ISO639_1 HT) (Char 'h', Char 'r') -> (forall a. a -> Maybe a Just) (ISO639_1 HR) (Char 'h', Char 'o') -> (forall a. a -> Maybe a Just) (ISO639_1 HO) (Char 'h', Char 'i') -> (forall a. a -> Maybe a Just) (ISO639_1 HI) (Char 'h', Char 'e') -> (forall a. a -> Maybe a Just) (ISO639_1 HE) (Char 'h', Char 'a') -> (forall a. a -> Maybe a Just) (ISO639_1 HA) (Char 'g', Char 'v') -> (forall a. a -> Maybe a Just) (ISO639_1 GV) (Char 'g', Char 'u') -> (forall a. a -> Maybe a Just) (ISO639_1 GU) (Char 'g', Char 'n') -> (forall a. a -> Maybe a Just) (ISO639_1 GN) (Char 'g', Char 'l') -> (forall a. a -> Maybe a Just) (ISO639_1 GL) (Char 'g', Char 'd') -> (forall a. a -> Maybe a Just) (ISO639_1 GD) (Char 'g', Char 'a') -> (forall a. a -> Maybe a Just) (ISO639_1 GA) (Char 'f', Char 'y') -> (forall a. a -> Maybe a Just) (ISO639_1 FY) (Char 'f', Char 'r') -> (forall a. a -> Maybe a Just) (ISO639_1 FR) (Char 'f', Char 'o') -> (forall a. a -> Maybe a Just) (ISO639_1 FO) (Char 'f', Char 'j') -> (forall a. a -> Maybe a Just) (ISO639_1 FJ) (Char 'f', Char 'i') -> (forall a. a -> Maybe a Just) (ISO639_1 FI) (Char 'f', Char 'f') -> (forall a. a -> Maybe a Just) (ISO639_1 FF) (Char 'f', Char 'a') -> (forall a. a -> Maybe a Just) (ISO639_1 FA) (Char 'e', Char 'u') -> (forall a. a -> Maybe a Just) (ISO639_1 EU) (Char 'e', Char 't') -> (forall a. a -> Maybe a Just) (ISO639_1 ET) (Char 'e', Char 's') -> (forall a. a -> Maybe a Just) (ISO639_1 ES) (Char 'e', Char 'o') -> (forall a. a -> Maybe a Just) (ISO639_1 EO) (Char 'e', Char 'n') -> (forall a. a -> Maybe a Just) (ISO639_1 EN) (Char 'e', Char 'l') -> (forall a. a -> Maybe a Just) (ISO639_1 EL) (Char 'e', Char 'e') -> (forall a. a -> Maybe a Just) (ISO639_1 EE) (Char 'd', Char 'z') -> (forall a. a -> Maybe a Just) (ISO639_1 DZ) (Char 'd', Char 'v') -> (forall a. a -> Maybe a Just) (ISO639_1 DV) (Char 'd', Char 'e') -> (forall a. a -> Maybe a Just) (ISO639_1 DE) (Char 'd', Char 'a') -> (forall a. a -> Maybe a Just) (ISO639_1 DA) (Char 'c', Char 'y') -> (forall a. a -> Maybe a Just) (ISO639_1 CY) (Char 'c', Char 'v') -> (forall a. a -> Maybe a Just) (ISO639_1 CV) (Char 'c', Char 'u') -> (forall a. a -> Maybe a Just) (ISO639_1 CU) (Char 'c', Char 's') -> (forall a. a -> Maybe a Just) (ISO639_1 CS) (Char 'c', Char 'r') -> (forall a. a -> Maybe a Just) (ISO639_1 CR) (Char 'c', Char 'o') -> (forall a. a -> Maybe a Just) (ISO639_1 CO) (Char 'c', Char 'h') -> (forall a. a -> Maybe a Just) (ISO639_1 CH) (Char 'c', Char 'e') -> (forall a. a -> Maybe a Just) (ISO639_1 CE) (Char 'c', Char 'a') -> (forall a. a -> Maybe a Just) (ISO639_1 CA) (Char 'b', Char 's') -> (forall a. a -> Maybe a Just) (ISO639_1 BS) (Char 'b', Char 'r') -> (forall a. a -> Maybe a Just) (ISO639_1 BR) (Char 'b', Char 'o') -> (forall a. a -> Maybe a Just) (ISO639_1 BO) (Char 'b', Char 'n') -> (forall a. a -> Maybe a Just) (ISO639_1 BN) (Char 'b', Char 'm') -> (forall a. a -> Maybe a Just) (ISO639_1 BM) (Char 'b', Char 'i') -> (forall a. a -> Maybe a Just) (ISO639_1 BI) (Char 'b', Char 'h') -> (forall a. a -> Maybe a Just) (ISO639_1 BH) (Char 'b', Char 'g') -> (forall a. a -> Maybe a Just) (ISO639_1 BG) (Char 'b', Char 'e') -> (forall a. a -> Maybe a Just) (ISO639_1 BE) (Char 'b', Char 'a') -> (forall a. a -> Maybe a Just) (ISO639_1 BA) (Char 'a', Char 'z') -> (forall a. a -> Maybe a Just) (ISO639_1 AZ) (Char 'a', Char 'y') -> (forall a. a -> Maybe a Just) (ISO639_1 AY) (Char 'a', Char 'v') -> (forall a. a -> Maybe a Just) (ISO639_1 AV) (Char 'a', Char 's') -> (forall a. a -> Maybe a Just) (ISO639_1 AS) (Char 'a', Char 'r') -> (forall a. a -> Maybe a Just) (ISO639_1 AR) (Char 'a', Char 'n') -> (forall a. a -> Maybe a Just) (ISO639_1 AN) (Char 'a', Char 'm') -> (forall a. a -> Maybe a Just) (ISO639_1 AM) (Char 'a', Char 'k') -> (forall a. a -> Maybe a Just) (ISO639_1 AK) (Char 'a', Char 'f') -> (forall a. a -> Maybe a Just) (ISO639_1 AF) (Char 'a', Char 'e') -> (forall a. a -> Maybe a Just) (ISO639_1 AE) (Char 'a', Char 'b') -> (forall a. a -> Maybe a Just) (ISO639_1 AB) (Char 'a', Char 'a') -> (forall a. a -> Maybe a Just) (ISO639_1 AA) (Char, Char) _ -> (Maybe ISO639_1 forall a. Maybe a Nothing) language :: ISO639_1 -> String language (ISO639_1 code) = case (ISO639_1 code) of (ISO639_1 AA) -> String "Afar" (ISO639_1 AB) -> String "Abkhazian" (ISO639_1 AE) -> String "Avestan" (ISO639_1 AF) -> String "Afrikaans" (ISO639_1 AK) -> String "Akan" (ISO639_1 AM) -> String "Amharic" (ISO639_1 AN) -> String "Aragonese" (ISO639_1 AR) -> String "Arabic" (ISO639_1 AS) -> String "Assamese" (ISO639_1 AV) -> String "Avaric" (ISO639_1 AY) -> String "Aymara" (ISO639_1 AZ) -> String "Azerbaijani" (ISO639_1 BA) -> String "Bashkir" (ISO639_1 BE) -> String "Belarusian" (ISO639_1 BG) -> String "Bulgarian" (ISO639_1 BH) -> String "Bihari languages" (ISO639_1 BI) -> String "Bislama" (ISO639_1 BM) -> String "Bambara" (ISO639_1 BN) -> String "Bengali" (ISO639_1 BO) -> String "Tibetan" (ISO639_1 BR) -> String "Breton" (ISO639_1 BS) -> String "Bosnian" (ISO639_1 CA) -> String "Catalan" (ISO639_1 CE) -> String "Chechen" (ISO639_1 CH) -> String "Chamorro" (ISO639_1 CO) -> String "Corsican" (ISO639_1 CR) -> String "Cree" (ISO639_1 CS) -> String "Czech" (ISO639_1 CU) -> String "Church Slavic" (ISO639_1 CV) -> String "Chuvash" (ISO639_1 CY) -> String "Welsh" (ISO639_1 DA) -> String "Danish" (ISO639_1 DE) -> String "German" (ISO639_1 DV) -> String "Dhivehi" (ISO639_1 DZ) -> String "Dzongkha" (ISO639_1 EE) -> String "Ewe" (ISO639_1 EL) -> String "Greek, Modern (1453-)" (ISO639_1 EN) -> String "English" (ISO639_1 EO) -> String "Esperanto" (ISO639_1 ES) -> String "Castilian" (ISO639_1 ET) -> String "Estonian" (ISO639_1 EU) -> String "Basque" (ISO639_1 FA) -> String "Persian" (ISO639_1 FF) -> String "Fulah" (ISO639_1 FI) -> String "Finnish" (ISO639_1 FJ) -> String "Fijian" (ISO639_1 FO) -> String "Faroese" (ISO639_1 FR) -> String "French" (ISO639_1 FY) -> String "Western Frisian" (ISO639_1 GA) -> String "Irish" (ISO639_1 GD) -> String "Gaelic" (ISO639_1 GL) -> String "Galician" (ISO639_1 GN) -> String "Guarani" (ISO639_1 GU) -> String "Gujarati" (ISO639_1 GV) -> String "Manx" (ISO639_1 HA) -> String "Hausa" (ISO639_1 HE) -> String "Hebrew" (ISO639_1 HI) -> String "Hindi" (ISO639_1 HO) -> String "Hiri Motu" (ISO639_1 HR) -> String "Croatian" (ISO639_1 HT) -> String "Haitian" (ISO639_1 HU) -> String "Hungarian" (ISO639_1 HY) -> String "Armenian" (ISO639_1 HZ) -> String "Herero" (ISO639_1 IA) -> String "Interlingua (International Auxiliary Language Association)" (ISO639_1 ID) -> String "Indonesian" (ISO639_1 IE) -> String "Interlingue" (ISO639_1 IG) -> String "Igbo" (ISO639_1 II) -> String "Nuosu" (ISO639_1 IK) -> String "Inupiaq" (ISO639_1 IO) -> String "Ido" (ISO639_1 IS) -> String "Icelandic" (ISO639_1 IT) -> String "Italian" (ISO639_1 IU) -> String "Inuktitut" (ISO639_1 JA) -> String "Japanese" (ISO639_1 JV) -> String "Javanese" (ISO639_1 KA) -> String "Georgian" (ISO639_1 KG) -> String "Kongo" (ISO639_1 KI) -> String "Gikuyu" (ISO639_1 KJ) -> String "Kuanyama" (ISO639_1 KK) -> String "Kazakh" (ISO639_1 KL) -> String "Greenlandic" (ISO639_1 KM) -> String "Central Khmer" (ISO639_1 KN) -> String "Kannada" (ISO639_1 KO) -> String "Korean" (ISO639_1 KR) -> String "Kanuri" (ISO639_1 KS) -> String "Kashmiri" (ISO639_1 KU) -> String "Kurdish" (ISO639_1 KV) -> String "Komi" (ISO639_1 KW) -> String "Cornish" (ISO639_1 KY) -> String "Kirghiz" (ISO639_1 LA) -> String "Latin" (ISO639_1 LB) -> String "Letzeburgesch" (ISO639_1 LG) -> String "Ganda" (ISO639_1 LI) -> String "Limburgan" (ISO639_1 LN) -> String "Lingala" (ISO639_1 LO) -> String "Lao" (ISO639_1 LT) -> String "Lithuanian" (ISO639_1 LU) -> String "Luba-Katanga" (ISO639_1 LV) -> String "Latvian" (ISO639_1 MG) -> String "Malagasy" (ISO639_1 MH) -> String "Marshallese" (ISO639_1 MI) -> String "Maori" (ISO639_1 MK) -> String "Macedonian" (ISO639_1 ML) -> String "Malayalam" (ISO639_1 MN) -> String "Mongolian" (ISO639_1 MR) -> String "Marathi" (ISO639_1 MS) -> String "Malay" (ISO639_1 MT) -> String "Maltese" (ISO639_1 MY) -> String "Burmese" (ISO639_1 NA) -> String "Nauru" (ISO639_1 NB) -> String "Bokm\229l, Norwegian" (ISO639_1 ND) -> String "Ndebele, North" (ISO639_1 NE) -> String "Nepali" (ISO639_1 NG) -> String "Ndonga" (ISO639_1 NL) -> String "Dutch" (ISO639_1 NN) -> String "Norwegian Nynorsk" (ISO639_1 NO) -> String "Norwegian" (ISO639_1 NR) -> String "Ndebele, South" (ISO639_1 NV) -> String "Navaho" (ISO639_1 NY) -> String "Chewa" (ISO639_1 OC) -> String "Occitan (post 1500)" (ISO639_1 OJ) -> String "Ojibwa" (ISO639_1 OM) -> String "Oromo" (ISO639_1 OR) -> String "Oriya" (ISO639_1 OS) -> String "Ossetian" (ISO639_1 PA) -> String "Panjabi" (ISO639_1 PI) -> String "Pali" (ISO639_1 PL) -> String "Polish" (ISO639_1 PS) -> String "Pashto" (ISO639_1 PT) -> String "Portuguese" (ISO639_1 QU) -> String "Quechua" (ISO639_1 RM) -> String "Romansh" (ISO639_1 RN) -> String "Rundi" (ISO639_1 RO) -> String "Moldavian" (ISO639_1 RU) -> String "Russian" (ISO639_1 RW) -> String "Kinyarwanda" (ISO639_1 SA) -> String "Sanskrit" (ISO639_1 SC) -> String "Sardinian" (ISO639_1 SD) -> String "Sindhi" (ISO639_1 SE) -> String "Northern Sami" (ISO639_1 SG) -> String "Sango" (ISO639_1 SI) -> String "Sinhala" (ISO639_1 SK) -> String "Slovak" (ISO639_1 SL) -> String "Slovenian" (ISO639_1 SM) -> String "Samoan" (ISO639_1 SN) -> String "Shona" (ISO639_1 SO) -> String "Somali" (ISO639_1 SQ) -> String "Albanian" (ISO639_1 SR) -> String "Serbian" (ISO639_1 SS) -> String "Swati" (ISO639_1 ST) -> String "Sotho, Southern" (ISO639_1 SU) -> String "Sundanese" (ISO639_1 SV) -> String "Swedish" (ISO639_1 SW) -> String "Swahili" (ISO639_1 TA) -> String "Tamil" (ISO639_1 TE) -> String "Telugu" (ISO639_1 TG) -> String "Tajik" (ISO639_1 TH) -> String "Thai" (ISO639_1 TI) -> String "Tigrinya" (ISO639_1 TK) -> String "Turkmen" (ISO639_1 TL) -> String "Tagalog" (ISO639_1 TN) -> String "Tswana" (ISO639_1 TO) -> String "Tonga (Tonga Islands)" (ISO639_1 TR) -> String "Turkish" (ISO639_1 TS) -> String "Tsonga" (ISO639_1 TT) -> String "Tatar" (ISO639_1 TW) -> String "Twi" (ISO639_1 TY) -> String "Tahitian" (ISO639_1 UG) -> String "Uighur" (ISO639_1 UK) -> String "Ukrainian" (ISO639_1 UR) -> String "Urdu" (ISO639_1 UZ) -> String "Uzbek" (ISO639_1 VE) -> String "Venda" (ISO639_1 VI) -> String "Vietnamese" (ISO639_1 VO) -> String "Volap\252k" (ISO639_1 WA) -> String "Walloon" (ISO639_1 WO) -> String "Wolof" (ISO639_1 XH) -> String "Xhosa" (ISO639_1 YI) -> String "Yiddish" (ISO639_1 YO) -> String "Yoruba" (ISO639_1 ZA) -> String "Chuang" (ISO639_1 ZH) -> String "Chinese" (ISO639_1 ZU) -> String "Zulu"