{- This file has been auto-generated. Do not edit it. -}
{-# LANGUAGE MagicHash,DeriveDataTypeable #-}
{- |

0	 = � (0)

1	 =  (1)

2	 =  (2)

3	 =  (3)

4	 =  (4)

5	 =  (5)

6	 =  (6)

7	 =  (7)

8	 =  (8)

9	 = 	 (9)

10	 = 
 (10)

11	 =  (11)

12	 =  (12)

13	 = 
 (13)

14	 =  (14)

15	 =  (15)

16	 =  (16)

17	 =  (17)

18	 =  (18)

19	 =  (19)

20	 =  (20)

21	 =  (21)

22	 =  (22)

23	 =  (23)

24	 =  (24)

25	 =  (25)

26	 =  (26)

27	 =  (27)

28	 =  (28)

29	 =  (29)

30	 =  (30)

31	 =  (31)

32	 =   (32)

33	 = ! (33)

34	 = " (34)

35	 = # (35)

36	 = $ (36)

37	 = % (37)

38	 = & (38)

39	 = ' (39)

40	 = ( (40)

41	 = ) (41)

42	 = * (42)

43	 = + (43)

44	 = , (44)

45	 = - (45)

46	 = . (46)

47	 = / (47)

48	 = 0 (48)

49	 = 1 (49)

50	 = 2 (50)

51	 = 3 (51)

52	 = 4 (52)

53	 = 5 (53)

54	 = 6 (54)

55	 = 7 (55)

56	 = 8 (56)

57	 = 9 (57)

58	 = : (58)

59	 = &#59; (59)

60	 = < (60)

61	 = = (61)

62	 = > (62)

63	 = ? (63)

64	 = @ (64)

65	 = A (65)

66	 = B (66)

67	 = C (67)

68	 = D (68)

69	 = E (69)

70	 = F (70)

71	 = G (71)

72	 = H (72)

73	 = I (73)

74	 = J (74)

75	 = K (75)

76	 = L (76)

77	 = M (77)

78	 = N (78)

79	 = O (79)

80	 = P (80)

81	 = Q (81)

82	 = R (82)

83	 = S (83)

84	 = T (84)

85	 = U (85)

86	 = V (86)

87	 = W (87)

88	 = X (88)

89	 = Y (89)

90	 = Z (90)

91	 = [ (91)

92	 = \ (92)

93	 = ] (93)

94	 = ^ (94)

95	 = _ (95)

96	 = ` (96)

97	 = a (97)

98	 = b (98)

99	 = c (99)

100	 = d (100)

101	 = e (101)

102	 = f (102)

103	 = g (103)

104	 = h (104)

105	 = i (105)

106	 = j (106)

107	 = k (107)

108	 = l (108)

109	 = m (109)

110	 = n (110)

111	 = o (111)

112	 = p (112)

113	 = q (113)

114	 = r (114)

115	 = s (115)

116	 = t (116)

117	 = u (117)

118	 = v (118)

119	 = w (119)

120	 = x (120)

121	 = y (121)

122	 = z (122)

123	 = { (123)

124	 = | (124)

125	 = } (125)

126	 = ~ (126)

127	 =  (127)

128	 = € (128)

129	 =  (129)

130	 = ‚ (130)

131	 = ƒ (131)

132	 = „ (132)

133	 = … (133)

134	 = † (134)

135	 = ‡ (135)

136	 = ˆ (136)

137	 = ‰ (137)

138	 = Š (138)

139	 = ‹ (139)

140	 = Π(140)

141	 =  (141)

142	 = Ž (142)

143	 =  (143)

144	 =  (144)

145	 = ‘ (145)

146	 = ’ (146)

147	 = “ (147)

148	 = ” (148)

149	 = • (149)

150	 = – (150)

151	 = — (151)

152	 = ˜ (152)

153	 = ™ (153)

154	 = š (154)

155	 = › (155)

156	 = œ (156)

157	 =  (157)

158	 = ž (158)

159	 = Ÿ (159)

160	 =   (160)

161	 = Ḃ (7682)

162	 = ḃ (7683)

163	 = £ (163)

164	 = Ċ (266)

165	 = ċ (267)

166	 = Ḋ (7690)

167	 = § (167)

168	 = Ẁ (7808)

169	 = © (169)

170	 = Ẃ (7810)

171	 = ḋ (7691)

172	 = Ỳ (7922)

173	 = ­ (173)

174	 = ® (174)

175	 = Ÿ (376)

176	 = Ḟ (7710)

177	 = ḟ (7711)

178	 = Ġ (288)

179	 = ġ (289)

180	 = Ṁ (7744)

181	 = ṁ (7745)

182	 = ¶ (182)

183	 = Ṗ (7766)

184	 = ẁ (7809)

185	 = ṗ (7767)

186	 = ẃ (7811)

187	 = Ṡ (7776)

188	 = ỳ (7923)

189	 = Ẅ (7812)

190	 = ẅ (7813)

191	 = ṡ (7777)

192	 = À (192)

193	 = Á (193)

194	 = Â (194)

195	 = Ã (195)

196	 = Ä (196)

197	 = Å (197)

198	 = Æ (198)

199	 = Ç (199)

200	 = È (200)

201	 = É (201)

202	 = Ê (202)

203	 = Ë (203)

204	 = Ì (204)

205	 = Í (205)

206	 = Î (206)

207	 = Ï (207)

208	 = Ŵ (372)

209	 = Ñ (209)

210	 = Ò (210)

211	 = Ó (211)

212	 = Ô (212)

213	 = Õ (213)

214	 = Ö (214)

215	 = Ṫ (7786)

216	 = Ø (216)

217	 = Ù (217)

218	 = Ú (218)

219	 = Û (219)

220	 = Ü (220)

221	 = Ý (221)

222	 = Ŷ (374)

223	 = ß (223)

224	 = à (224)

225	 = á (225)

226	 = â (226)

227	 = ã (227)

228	 = ä (228)

229	 = å (229)

230	 = æ (230)

231	 = ç (231)

232	 = è (232)

233	 = é (233)

234	 = ê (234)

235	 = ë (235)

236	 = ì (236)

237	 = í (237)

238	 = î (238)

239	 = ï (239)

240	 = ŵ (373)

241	 = ñ (241)

242	 = ò (242)

243	 = ó (243)

244	 = ô (244)

245	 = õ (245)

246	 = ö (246)

247	 = ṫ (7787)

248	 = ø (248)

249	 = ù (249)

250	 = ú (250)

251	 = û (251)

252	 = ü (252)

253	 = ý (253)

254	 = ŷ (375)

255	 = ÿ (255)
 -}
module Data.Encoding.ISO885914(ISO885914(..)) where

import Data.Encoding.Base
import Data.Encoding.ByteSource
import Data.Encoding.ByteSink
import Data.Encoding.Exception
import Data.CharMap
import Data.Array.Static
import Data.Map.Static
import Control.Throws
import Prelude hiding (lookup)
import Data.Word

import Data.Typeable

data ISO885914 = ISO885914
  deriving (Int -> ISO885914 -> ShowS
[ISO885914] -> ShowS
ISO885914 -> String
(Int -> ISO885914 -> ShowS)
-> (ISO885914 -> String)
-> ([ISO885914] -> ShowS)
-> Show ISO885914
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ISO885914 -> ShowS
showsPrec :: Int -> ISO885914 -> ShowS
$cshow :: ISO885914 -> String
show :: ISO885914 -> String
$cshowList :: [ISO885914] -> ShowS
showList :: [ISO885914] -> ShowS
Show,ISO885914 -> ISO885914 -> Bool
(ISO885914 -> ISO885914 -> Bool)
-> (ISO885914 -> ISO885914 -> Bool) -> Eq ISO885914
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ISO885914 -> ISO885914 -> Bool
== :: ISO885914 -> ISO885914 -> Bool
$c/= :: ISO885914 -> ISO885914 -> Bool
/= :: ISO885914 -> ISO885914 -> Bool
Eq,Typeable)

decoding_array_ISO885914 :: StaticArray Word8 e
decoding_array_ISO885914 = Word8 -> Word8 -> Addr# -> StaticArray Word8 e
forall i e. i -> i -> Addr# -> StaticArray i e
StaticArray (Word8
0) (Word8
255) Addr#
"\0\0\0\0\1\0\0\0\2\0\0\0\3\0\0\0\4\0\0\0\5\0\0\0\6\0\0\0\7\0\0\0\8\0\0\0\9\0\0\0\10\0\0\0\11\0\0\0\12\0\0\0\13\0\0\0\14\0\0\0\15\0\0\0\16\0\0\0\17\0\0\0\18\0\0\0\19\0\0\0\20\0\0\0\21\0\0\0\22\0\0\0\23\0\0\0\24\0\0\0\25\0\0\0\26\0\0\0\27\0\0\0\28\0\0\0\29\0\0\0\30\0\0\0\31\0\0\0\32\0\0\0\33\0\0\0\34\0\0\0\35\0\0\0\36\0\0\0\37\0\0\0\38\0\0\0\39\0\0\0\40\0\0\0\41\0\0\0\42\0\0\0\43\0\0\0\44\0\0\0\45\0\0\0\46\0\0\0\47\0\0\0\48\0\0\0\49\0\0\0\50\0\0\0\51\0\0\0\52\0\0\0\53\0\0\0\54\0\0\0\55\0\0\0\56\0\0\0\57\0\0\0\58\0\0\0\59\0\0\0\60\0\0\0\61\0\0\0\62\0\0\0\63\0\0\0\64\0\0\0\65\0\0\0\66\0\0\0\67\0\0\0\68\0\0\0\69\0\0\0\70\0\0\0\71\0\0\0\72\0\0\0\73\0\0\0\74\0\0\0\75\0\0\0\76\0\0\0\77\0\0\0\78\0\0\0\79\0\0\0\80\0\0\0\81\0\0\0\82\0\0\0\83\0\0\0\84\0\0\0\85\0\0\0\86\0\0\0\87\0\0\0\88\0\0\0\89\0\0\0\90\0\0\0\91\0\0\0\92\0\0\0\93\0\0\0\94\0\0\0\95\0\0\0\96\0\0\0\97\0\0\0\98\0\0\0\99\0\0\0\100\0\0\0\101\0\0\0\102\0\0\0\103\0\0\0\104\0\0\0\105\0\0\0\106\0\0\0\107\0\0\0\108\0\0\0\109\0\0\0\110\0\0\0\111\0\0\0\112\0\0\0\113\0\0\0\114\0\0\0\115\0\0\0\116\0\0\0\117\0\0\0\118\0\0\0\119\0\0\0\120\0\0\0\121\0\0\0\122\0\0\0\123\0\0\0\124\0\0\0\125\0\0\0\126\0\0\0\127\0\0\0\128\0\0\0\129\0\0\0\130\0\0\0\131\0\0\0\132\0\0\0\133\0\0\0\134\0\0\0\135\0\0\0\136\0\0\0\137\0\0\0\138\0\0\0\139\0\0\0\140\0\0\0\141\0\0\0\142\0\0\0\143\0\0\0\144\0\0\0\145\0\0\0\146\0\0\0\147\0\0\0\148\0\0\0\149\0\0\0\150\0\0\0\151\0\0\0\152\0\0\0\153\0\0\0\154\0\0\0\155\0\0\0\156\0\0\0\157\0\0\0\158\0\0\0\159\0\0\0\160\0\0\0\2\30\0\0\3\30\0\0\163\0\0\0\10\1\0\0\11\1\0\0\10\30\0\0\167\0\0\0\128\30\0\0\169\0\0\0\130\30\0\0\11\30\0\0\242\30\0\0\173\0\0\0\174\0\0\0\120\1\0\0\30\30\0\0\31\30\0\0\32\1\0\0\33\1\0\0\64\30\0\0\65\30\0\0\182\0\0\0\86\30\0\0\129\30\0\0\87\30\0\0\131\30\0\0\96\30\0\0\243\30\0\0\132\30\0\0\133\30\0\0\97\30\0\0\192\0\0\0\193\0\0\0\194\0\0\0\195\0\0\0\196\0\0\0\197\0\0\0\198\0\0\0\199\0\0\0\200\0\0\0\201\0\0\0\202\0\0\0\203\0\0\0\204\0\0\0\205\0\0\0\206\0\0\0\207\0\0\0\116\1\0\0\209\0\0\0\210\0\0\0\211\0\0\0\212\0\0\0\213\0\0\0\214\0\0\0\106\30\0\0\216\0\0\0\217\0\0\0\218\0\0\0\219\0\0\0\220\0\0\0\221\0\0\0\118\1\0\0\223\0\0\0\224\0\0\0\225\0\0\0\226\0\0\0\227\0\0\0\228\0\0\0\229\0\0\0\230\0\0\0\231\0\0\0\232\0\0\0\233\0\0\0\234\0\0\0\235\0\0\0\236\0\0\0\237\0\0\0\238\0\0\0\239\0\0\0\117\1\0\0\241\0\0\0\242\0\0\0\243\0\0\0\244\0\0\0\245\0\0\0\246\0\0\0\107\30\0\0\248\0\0\0\249\0\0\0\250\0\0\0\251\0\0\0\252\0\0\0\253\0\0\0\119\1\0\0\255\0\0\0"#

encoding_map_ISO885914 :: CharMap
encoding_map_ISO885914 :: CharMap
encoding_map_ISO885914 = StaticMap Char Word8 -> CharMap
LeafMap1 (StaticArray Int Char
-> StaticArray Int Word8 -> StaticMap Char Word8
forall i e. StaticArray Int i -> StaticArray Int e -> StaticMap i e
StaticMap (Int -> Int -> Addr# -> StaticArray Int Char
forall i e. i -> i -> Addr# -> StaticArray i e
StaticArray (Int
1) (Int
256) Addr#
"\128\0\0\0\64\0\0\0\219\0\0\0\32\0\0\0\96\0\0\0\160\0\0\0\255\0\0\0\16\0\0\0\48\0\0\0\80\0\0\0\112\0\0\0\144\0\0\0\201\0\0\0\236\0\0\0\64\30\0\0\8\0\0\0\24\0\0\0\40\0\0\0\56\0\0\0\72\0\0\0\88\0\0\0\104\0\0\0\120\0\0\0\136\0\0\0\152\0\0\0\193\0\0\0\210\0\0\0\228\0\0\0\245\0\0\0\119\1\0\0\128\30\0\0\4\0\0\0\12\0\0\0\20\0\0\0\28\0\0\0\36\0\0\0\44\0\0\0\52\0\0\0\60\0\0\0\68\0\0\0\76\0\0\0\84\0\0\0\92\0\0\0\100\0\0\0\108\0\0\0\116\0\0\0\124\0\0\0\132\0\0\0\140\0\0\0\148\0\0\0\156\0\0\0\173\0\0\0\197\0\0\0\205\0\0\0\214\0\0\0\224\0\0\0\232\0\0\0\241\0\0\0\250\0\0\0\33\1\0\0\10\30\0\0\96\30\0\0\132\30\0\0\2\0\0\0\6\0\0\0\10\0\0\0\14\0\0\0\18\0\0\0\22\0\0\0\26\0\0\0\30\0\0\0\34\0\0\0\38\0\0\0\42\0\0\0\46\0\0\0\50\0\0\0\54\0\0\0\58\0\0\0\62\0\0\0\66\0\0\0\70\0\0\0\74\0\0\0\78\0\0\0\82\0\0\0\86\0\0\0\90\0\0\0\94\0\0\0\98\0\0\0\102\0\0\0\106\0\0\0\110\0\0\0\114\0\0\0\118\0\0\0\122\0\0\0\126\0\0\0\130\0\0\0\134\0\0\0\138\0\0\0\142\0\0\0\146\0\0\0\150\0\0\0\154\0\0\0\158\0\0\0\167\0\0\0\182\0\0\0\195\0\0\0\199\0\0\0\203\0\0\0\207\0\0\0\212\0\0\0\217\0\0\0\221\0\0\0\226\0\0\0\230\0\0\0\234\0\0\0\238\0\0\0\243\0\0\0\248\0\0\0\252\0\0\0\11\1\0\0\117\1\0\0\2\30\0\0\30\30\0\0\86\30\0\0\106\30\0\0\130\30\0\0\242\30\0\0\1\0\0\0\3\0\0\0\5\0\0\0\7\0\0\0\9\0\0\0\11\0\0\0\13\0\0\0\15\0\0\0\17\0\0\0\19\0\0\0\21\0\0\0\23\0\0\0\25\0\0\0\27\0\0\0\29\0\0\0\31\0\0\0\33\0\0\0\35\0\0\0\37\0\0\0\39\0\0\0\41\0\0\0\43\0\0\0\45\0\0\0\47\0\0\0\49\0\0\0\51\0\0\0\53\0\0\0\55\0\0\0\57\0\0\0\59\0\0\0\61\0\0\0\63\0\0\0\65\0\0\0\67\0\0\0\69\0\0\0\71\0\0\0\73\0\0\0\75\0\0\0\77\0\0\0\79\0\0\0\81\0\0\0\83\0\0\0\85\0\0\0\87\0\0\0\89\0\0\0\91\0\0\0\93\0\0\0\95\0\0\0\97\0\0\0\99\0\0\0\101\0\0\0\103\0\0\0\105\0\0\0\107\0\0\0\109\0\0\0\111\0\0\0\113\0\0\0\115\0\0\0\117\0\0\0\119\0\0\0\121\0\0\0\123\0\0\0\125\0\0\0\127\0\0\0\129\0\0\0\131\0\0\0\133\0\0\0\135\0\0\0\137\0\0\0\139\0\0\0\141\0\0\0\143\0\0\0\145\0\0\0\147\0\0\0\149\0\0\0\151\0\0\0\153\0\0\0\155\0\0\0\157\0\0\0\159\0\0\0\163\0\0\0\169\0\0\0\174\0\0\0\192\0\0\0\194\0\0\0\196\0\0\0\198\0\0\0\200\0\0\0\202\0\0\0\204\0\0\0\206\0\0\0\209\0\0\0\211\0\0\0\213\0\0\0\216\0\0\0\218\0\0\0\220\0\0\0\223\0\0\0\225\0\0\0\227\0\0\0\229\0\0\0\231\0\0\0\233\0\0\0\235\0\0\0\237\0\0\0\239\0\0\0\242\0\0\0\244\0\0\0\246\0\0\0\249\0\0\0\251\0\0\0\253\0\0\0\10\1\0\0\32\1\0\0\116\1\0\0\118\1\0\0\120\1\0\0\3\30\0\0\11\30\0\0\31\30\0\0\65\30\0\0\87\30\0\0\97\30\0\0\107\30\0\0\129\30\0\0\131\30\0\0\133\30\0\0\243\30\0\0\0\0\0\0"#) (Int -> Int -> Addr# -> StaticArray Int Word8
forall i e. i -> i -> Addr# -> StaticArray i e
StaticArray (Int
1) (Int
256) Addr#
"\128\64\219\32\96\160\255\16\48\80\112\144\201\236\180\8\24\40\56\72\88\104\120\136\152\193\210\228\245\254\168\4\12\20\28\36\44\52\60\68\76\84\92\100\108\116\124\132\140\148\156\173\197\205\214\224\232\241\250\179\166\187\189\2\6\10\14\18\22\26\30\34\38\42\46\50\54\58\62\66\70\74\78\82\86\90\94\98\102\106\110\114\118\122\126\130\134\138\142\146\150\154\158\167\182\195\199\203\207\212\217\221\226\230\234\238\243\248\252\165\240\161\176\183\215\170\172\1\3\5\7\9\11\13\15\17\19\21\23\25\27\29\31\33\35\37\39\41\43\45\47\49\51\53\55\57\59\61\63\65\67\69\71\73\75\77\79\81\83\85\87\89\91\93\95\97\99\101\103\105\107\109\111\113\115\117\119\121\123\125\127\129\131\133\135\137\139\141\143\145\147\149\151\153\155\157\159\163\169\174\192\194\196\198\200\202\204\206\209\211\213\216\218\220\223\225\227\229\231\233\235\237\239\242\244\246\249\251\253\164\178\208\222\175\162\171\177\181\185\191\247\184\186\190\188\0"#))

instance Encoding ISO885914 where
  decodeChar :: forall (m :: * -> *). ByteSource m => ISO885914 -> m Char
decodeChar ISO885914
_ = do
    Word8
w <- m Word8
forall (m :: * -> *). ByteSource m => m Word8
fetchWord8
    () -> m ()
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
    case StaticArray Word8 (Maybe Char)
forall {e}. StaticArray Word8 e
decoding_array_ISO885914StaticArray Word8 (Maybe Char) -> Word8 -> Maybe Char
forall e i. (StaticElement e, Ix i) => StaticArray i e -> i -> e
!Word8
w of
      Maybe Char
Nothing -> DecodingException -> m Char
forall a. DecodingException -> m a
forall e (m :: * -> *) a. Throws e m => e -> m a
throwException (DecodingException -> m Char) -> DecodingException -> m Char
forall a b. (a -> b) -> a -> b
$ Word8 -> DecodingException
IllegalCharacter (Word8 -> DecodingException) -> Word8 -> DecodingException
forall a b. (a -> b) -> a -> b
$ Word8 -> Word8
forall a b. (Integral a, Num b) => a -> b
fromIntegral Word8
w
      Just Char
c -> Char -> m Char
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return Char
c
  encodeChar :: forall (m :: * -> *). ByteSink m => ISO885914 -> Char -> m ()
encodeChar ISO885914
_ Char
c = Char -> CharMap -> m ()
forall (m :: * -> *). ByteSink m => Char -> CharMap -> m ()
mapEncode Char
c CharMap
encoding_map_ISO885914
  encodeable :: ISO885914 -> Char -> Bool
encodeable ISO885914
_ Char
c = Char -> CharMap -> Bool
mapMember Char
c CharMap
encoding_map_ISO885914