API tools faq
paste
Guest User

Untitled

a guest
Jun 25th, 2018
480
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 135.57 KB | None | 0 0
raw download clone embed print report
  1. Magic: Wanted 33214052,
  2. got 33214052
  3. Version: Wanted [8, 0, 4, 3],
  4. got [8, 0, 4, 3]
  5. Way: Wanted [],
  6. got []
  7. interface Data.Aeson.Parser.Internal 8043
  8. interface hash: 6c48b91f954a886667298160132ec1f5
  9. ABI hash: cbc607c318f4c74423c0c6c39b768837
  10. export-list hash: b58d6e2302b000257458873f6a7faddd
  11. orphan hash: 693e9af84d3dfcc71e640e005bdc5e2e
  12. flag hash: 5f7fd52ecc3a8cbc4feaf4a209642cd3
  13. opt_hash: 2c98c95d41c045ae9c2fb565ec8aabc6
  14. hpc_hash: 93b885adfe0da089cdf634904fd59f71
  15. sig of: Nothing
  16. used TH splices: False
  17. where
  18. exports:
  19. decodeStrictWith
  20. decodeWith
  21. eitherDecodeStrictWith
  22. eitherDecodeWith
  23. json
  24. json'
  25. jsonEOF
  26. jsonEOF'
  27. jstring
  28. jstring_
  29. scientific
  30. value
  31. value'
  32. module dependencies: Data.Aeson.Parser.Unescape
  33. Data.Aeson.Parser.UnescapePure Data.Aeson.Types.Internal
  34. package dependencies: array-0.5.2.0
  35. attoparsec-0.13.2.2-7134042ae4a8825e0220e72bbc50a3aea433895ec2d42a68a9d57176061e3182
  36. base-4.11.1.0
  37. base-compat-0.10.1-1ef699a6203a06e0dc43e61f984660eaee898b80a1675f162f90048d122ea0f5
  38. binary-0.8.5.1 bytestring-0.10.8.2 containers-0.5.11.0
  39. deepseq-1.4.3.0 ghc-boot-th-8.4.3 ghc-prim-0.5.2.0
  40. hashable-1.2.7.0-dcc6e7516fee6fec23dcb1e670f534954750710d87259d7927d7ee0fbc2873c4
  41. integer-gmp-1.0.2.0
  42. integer-logarithms-1.0.2.1-9cb065341b0c4a126d1050ccdb483b72c50971ce446aeba53fd5e098a9885dae
  43. primitive-0.6.4.0-3395770b3ed84d44d523a9eb5134a825e3e188f2c348d1e21915dda5e2b04fc0
  44. scientific-0.3.6.2-fcc2083045e5559daae557497794d5767b3e81796733354d5f13ddc5130a53d2
  45. template-haskell-2.13.0.0 text-1.2.3.0 time-1.8.0.2
  46. transformers-0.5.5.0
  47. unordered-containers-0.2.9.0-928d5897b2b2865d22ddbb1d8b9c168c9c1ef9c600793a7041129e65381db7be
  48. vector-0.12.0.1-70c8f4ca14044072bf9c125f86cf63d6f8f86ae0b158fafc189693e1b9d3afc8
  49. orphans: Data.Time.Format.Parse
  50. Data.Time.LocalTime.Internal.ZonedTime
  51. Data.Time.LocalTime.Internal.LocalTime Data.Time.Calendar.Gregorian
  52. Data.Attoparsec.ByteString.Char8 Data.Vector.Fusion.Bundle
  53. Data.Hashable.Generic Control.Monad.Trans.Error Data.Text.Lazy
  54. Data.Text Data.Binary.Generic Data.Text.Show
  55. Data.ByteString.Builder GHC.Float GHC.Base
  56. family instance modules: Data.Aeson.Types.Internal
  57. Data.Attoparsec.Internal.Types Control.Applicative Data.Complex
  58. Data.Functor.Compose Data.Functor.Const Data.Functor.Identity
  59. Data.Functor.Product Data.Functor.Sum Data.Monoid Data.Semigroup
  60. Data.Semigroup.Internal Data.Version Data.Void GHC.Exts
  61. GHC.Generics GHC.IO.Exception Data.IntMap.Internal
  62. Data.IntSet.Internal Data.Map.Internal Data.Sequence.Internal
  63. Data.Set.Internal Data.Tree GHC.ForeignSrcLang.Type
  64. GHC.LanguageExtensions.Type Control.Monad.Primitive
  65. Data.Primitive.Array Language.Haskell.TH.Syntax Data.Text
  66. Data.Text.Lazy Data.HashMap.Base Data.Vector
  67. import -/ Data.Aeson.Parser.Unescape 6e27f9fc5ccfb24d22454945fdecac13
  68. exports: 3774ad0637785081e3fb02acab047226
  69. import -/ Data.Aeson.Parser.UnescapePure c48b70273c8bf802e2948441c464208c
  70. unescapeText cf59aa5f710f3befe0ae1a07d249557f
  71. import -/ Data.Aeson.Types.Internal 51d2e81f2d2bc067f5cb104457311cef
  72. exports: c94b5ea379b87d7ec06dde41e655e60e
  73. Array a11d6bd6ebee74d9f4e93ab941b67de9
  74. Bool ddd4aca69c7a749469da3094fae03ea5
  75. Error d20b9a361a67e84c3fd5605517f3fba7
  76. IError bd274df60101bcd6cc0bf10c8a165c3d
  77. IResult 2df035a6744d9f202cac1bebd3fd9967
  78. ISuccess 1c8f209bac4db0f5eb1b2d0fb4b4ad88
  79. JSONPath dbbe5f757f985630088761c3e97a8ec8
  80. Null 8dc09934817c710142998895f31cbd2c
  81. Number 3bb0fbb8c93aaf686445426c297393fa
  82. Object 4afe70447d4795b3bdb304db6c49b8f0
  83. Result e6f31a8f5330677f43bc4800b04c569f
  84. String 4513208ac7785b86c3f49f4e6d2ec3c4
  85. Success 287e3c7e6aba54f97c4cdb0e65db4058
  86. Value 878289cc53c46e7d0ecf6427bca425a9
  87. import -/ Data.Attoparsec.ByteString 6ac2f09a80db251647027a1ab4fce149
  88. import -/ Data.Attoparsec.ByteString.Char8 92847459b2164ad403511d0f6a5423ba
  89. import -/ Data.Attoparsec.ByteString.Internal 15305ab208295fff8a7836ca3afb336b
  90. import -/ Data.Attoparsec.ByteString.Lazy 7c248930a16c35cfabbb443253a79f62
  91. import -/ Data.Attoparsec.Internal 178748a7ae7a28936ce5ea138e3f34fa
  92. import -/ Data.Attoparsec.Lazy d2db1f599e3adb0e7fbb931cb50f5c7c
  93. import -/ Control.Applicative 55d9b3a7491623b0362290e162d67308
  94. import -/ Control.Monad c5f960c67d822497578bffbd3e4c01cf
  95. import -/ Data.Either 39d922b371c4c52d426e9ee66de8371a
  96. import -/ Data.Functor f522c3501272159820fd6f242510732f
  97. import -/ GHC.Base 604111500e81281298777e721c75643b
  98. import -/ GHC.Num 8e54b26dce4495382dc4b50cf36ab754
  99. import -/ GHC.Real b4beb0389ba1ad5d9640aae67848c5d3
  100. import -/ GHC.Show 73be67392447c974f19c3befd83c46c0
  101. import -/ GHC.Word bc9bdf9b61a0f9352e5a1baeee5690a5
  102. import -/ Prelude 0750c25585e2b797cd78291d423d39dd
  103. import -/ Prelude.Compat b78996950e9cb6040ba5ca05fd9061c0
  104. import -/ Data.ByteString 6d0008c12e5c3acd7278a6b95640b4e2
  105. import -/ Data.ByteString.Internal dc7d0c96ef45c703ca21607112260299
  106. import -/ Data.ByteString.Lazy b6cb59a78204810b2a79502bf5b4c1fc
  107. import -/ Data.ByteString.Lazy.Internal af245ead1f52eca50149d040b0b86693
  108. import -/ Data.ByteString.Unsafe 2222669b7c2e1b00b40de42cb0082c7e
  109. import -/ GHC.Classes 122abfcd7450c6c11602933c9ca5f80d
  110. import -/ GHC.Types d9b3023de7feae4a5308d643da5543f7
  111. import -/ GHC.Integer.Type f3d5169c3d3830854b19f6565b265403
  112. import -/ Data.Scientific 3a026c43483a00f821eb420da6e5c6d6
  113. import -/ Data.Text 7daa7e6c9b39d8cc1679e5ec5c64d2be
  114. import -/ Data.Text.Encoding 8e60367b574d8e5016309aaea7dc2100
  115. import -/ Data.Text.Internal 30a0a123f71f63b26cd34c6b24f23411
  116. import -/ Data.HashMap.Base d02a1394c38ff7ad20dfcecf12922e71
  117. import -/ Data.HashMap.Strict b74da9a21c1729ebedc927c2ce70001b
  118. import -/ Data.Vector b68ddb95e14018bfb491b397ec93b45b
  119. addDependentFile "/Users/adam/ghc/8.4.3/lib/ghc-8.4.3/include/ghcversion.h" 61cc4580d32de09862d412848a79cd26
  120. addDependentFile "/Users/adam/repos/hs/aeson/dist-newstyle/build/x86_64-osx/ghc-8.4.3/aeson-1.4.0.0/build/autogen/cabal_macros.h" c22dce529cb038350b482e00597882ae
  121. 4580007b941c00288cf89559cee3d671
  122. $sunsafeInsert_$s$wpoly_go1 ::
  123. State# RealWorld
  124. -> Word#
  125. -> SmallArray# (HashMap Text v)
  126. -> Int#
  127. -> v
  128. -> Int#
  129. -> Int#
  130. -> ByteArray#
  131. -> Word#
  132. -> (# State# RealWorld, HashMap Text v #)
  133. {- Arity: 9,
  134. Strictness: <S,U><S,U><S,U><S,U><L,U><L,U><L,U><L,U><S,U> -}
  135. 0b74e96aaa38cfe01dfaacfca3994090
  136. $tc'S :: TyCon
  137. {- HasNoCafRefs, Strictness: m,
  138. Unfolding: (TyCon
  139. 15904816974497928696##
  140. 3405016299909475310##
  141. $trModule
  142. $tc'S2
  143. 0#
  144. $tc'S1) -}
  145. f581e1a5626df19c7f5c9a79d23fe30e
  146. $tc'S1 :: KindRep
  147. {- HasNoCafRefs, Strictness: m4, Inline: [~] -}
  148. 923e1fbcadfdc547aedfb7941869d280
  149. $tc'S2 :: TrName
  150. {- HasNoCafRefs, Strictness: m1, Unfolding: (TrNameS $tc'S3) -}
  151. aa71459d23c1eb6dd07e32992da1c06e
  152. $tc'S3 :: Addr#
  153. {- HasNoCafRefs, Unfolding: ("'S"#) -}
  154. b933e47f6c388c1b50a13bb90d9855f7
  155. $tc'SP :: TyCon
  156. {- HasNoCafRefs, Strictness: m,
  157. Unfolding: (TyCon
  158. 2804492806601239899##
  159. 8199699193557681475##
  160. $trModule
  161. $tc'SP2
  162. 0#
  163. $tc'SP1) -}
  164. e90cc74e8f453a2c296d8f0526004ee7
  165. $tc'SP1 :: KindRep
  166. {- HasNoCafRefs, Strictness: m4, Inline: [~] -}
  167. 2a1c47138625ebd25bbad8771d3dadee
  168. $tc'SP2 :: TrName
  169. {- HasNoCafRefs, Strictness: m1, Unfolding: (TrNameS $tc'SP3) -}
  170. 0e4ec9a224b4961cbbf437e4c88afc2d
  171. $tc'SP3 :: Addr#
  172. {- HasNoCafRefs, Unfolding: ("'SP"#) -}
  173. bf57b5ba36c3153b9d96aaf0da53c32e
  174. $tcS :: TyCon
  175. {- HasNoCafRefs, Strictness: m,
  176. Unfolding: (TyCon
  177. 17386818347632118270##
  178. 8047096446631111941##
  179. $trModule
  180. $tcS1
  181. 0#
  182. krep$*) -}
  183. 1e5dffa566874245ef25e0c050a7a37c
  184. $tcS1 :: TrName
  185. {- HasNoCafRefs, Strictness: m1, Unfolding: (TrNameS $tcS2) -}
  186. 507a3886ba987ca06d81f0906e9ff5a7
  187. $tcS2 :: Addr#
  188. {- HasNoCafRefs, Unfolding: ("S"#) -}
  189. e999eeca7064e821816e417f627719b0
  190. $tcSP :: TyCon
  191. {- HasNoCafRefs, Strictness: m,
  192. Unfolding: (TyCon
  193. 6315595159143346274##
  194. 16415830346009778649##
  195. $trModule
  196. $tcSP1
  197. 0#
  198. krep$*) -}
  199. 162aac09bfa2764ea4e924d8a81f6d39
  200. $tcSP1 :: TrName
  201. {- HasNoCafRefs, Strictness: m1, Unfolding: (TrNameS $tcSP2) -}
  202. 2e06824249b08f8f43772dff051f51ec
  203. $tcSP2 :: Addr#
  204. {- HasNoCafRefs, Unfolding: ("SP"#) -}
  205. 15090e3e5ce222ff454992d276eefc42
  206. $trModule :: Module
  207. {- HasNoCafRefs, Strictness: m,
  208. Unfolding: (Module $trModule3 $trModule1) -}
  209. ebd5eaa7e9281640239c14252ea7d8bf
  210. $trModule1 :: TrName
  211. {- HasNoCafRefs, Strictness: m1, Unfolding: (TrNameS $trModule2) -}
  212. b97a7a3c0358a1f4ae89490709788462
  213. $trModule2 :: Addr#
  214. {- HasNoCafRefs, Unfolding: ("Data.Aeson.Parser.Internal"#) -}
  215. 0783cc2e15105019e5ecd606b9fd4607
  216. $trModule3 :: TrName
  217. {- HasNoCafRefs, Strictness: m1, Unfolding: (TrNameS $trModule4) -}
  218. a57b622962642cd2709ca7b1082ba9c5
  219. $trModule4 :: Addr#
  220. {- HasNoCafRefs, Unfolding: ("aeson-1.4.0.0-inplace"#) -}
  221. 17b2bcfc7de3ef4a460a00587755e36c
  222. $w$s$wupdateOrSnocWithKey ::
  223. (Text -> v -> v -> v)
  224. -> ByteArray#
  225. -> Int#
  226. -> Int#
  227. -> v
  228. -> Array# (Leaf Text v)
  229. -> Array (Leaf Text v)
  230. {- Arity: 6, Strictness: <L,C(C1(C1(U)))><S,U><S,U><S,U><L,U><S,U>,
  231. Inline: [0],
  232. Unfolding: (\ @ v2
  233. (w :: Text -> v2 -> v2 -> v2)
  234. (ww :: ByteArray#)
  235. (ww1 :: Int#)
  236. (ww2 :: Int#)
  237. (w1 :: v2)
  238. (w2 :: Array# (Leaf Text v2)) ->
  239. let {
  240. exit :: v2
  241. -> Array# (Leaf Text v2)
  242. -> Int#
  243. -> Text
  244. -> v2
  245. -> Array (Leaf Text v2)
  246. <join 5> {- Arity: 5, Strictness: <L,U><S,U><S,U><L,U><L,U> -}
  247. = \ (w3 :: v2)[OneShot]
  248. (ww3 :: Array# (Leaf Text v2))[OneShot]
  249. (ww4 :: Int#)[OneShot]
  250. (k2 :: Text)[OneShot]
  251. (y :: v2)[OneShot] ->
  252. case runRW#
  253. @ ('TupleRep '['TupleRep '[], 'LiftedRep])
  254. @ (# State# RealWorld, Array (Leaf Text v2) #)
  255. (\ (s1 :: State# RealWorld)[OneShot] ->
  256. case thawSmallArray#
  257. @ (Leaf Text v2)
  258. @ RealWorld
  259. ww3
  260. 0#
  261. (sizeofSmallArray# @ (Leaf Text v2) ww3)
  262. s1 of ds2 { (#,#) ipv4 ipv5 ->
  263. case writeSmallArray#
  264. @ RealWorld
  265. @ (Leaf Text v2)
  266. ipv5
  267. ww4
  268. (L @ Text @ v2 k2 (w k2 w3 y))
  269. ipv4 of s' { DEFAULT ->
  270. case unsafeFreezeSmallArray#
  271. @ RealWorld
  272. @ (Leaf Text v2)
  273. ipv5
  274. s' of ds3 { (#,#) ipv6 ipv7 ->
  275. (# ipv6,
  276. Array @ (Leaf Text v2) ipv7 #) } } }) of ds2 { (#,#) ipv4 ipv5 ->
  277. ipv5 }
  278. } in
  279. letrec {
  280. $wgo7 :: ByteArray#
  281. -> Int#
  282. -> Int#
  283. -> v2
  284. -> Array# (Leaf Text v2)
  285. -> Int#
  286. -> Int#
  287. -> Array (Leaf Text v2)
  288. <join 7> {- Arity: 7,
  289. Strictness: <L,U><L,U><L,U><L,U><S,U><S,U><S,U>, Inline: [0] -}
  290. = \ (ww3 :: ByteArray#)
  291. (ww4 :: Int#)
  292. (ww5 :: Int#)
  293. (w3 :: v2)
  294. (ww6 :: Array# (Leaf Text v2))
  295. (ww7 :: Int#)
  296. (ww8 :: Int#) ->
  297. case >=# ww7 ww8 of lwild {
  298. DEFAULT
  299. -> case indexSmallArray#
  300. @ (Leaf Text v2)
  301. ww6
  302. ww7 of ds1 { Unit# ipv3 ->
  303. case ipv3 of wild { L kx y ->
  304. case kx of wild1 { Text dt3 dt4 dt5 ->
  305. case ==# ww5 dt5 of lwild1 {
  306. DEFAULT -> $wgo7 ww3 ww4 ww5 w3 ww6 (+# ww7 1#) ww8
  307. 1#
  308. -> case {__pkg_ccall text-1.2.3.0 ByteArray#
  309. -> Word#
  310. -> ByteArray#
  311. -> Word#
  312. -> Word#
  313. -> State# RealWorld
  314. -> (# State# RealWorld, Int# #)}
  315. ww3
  316. (int2Word# ww4)
  317. dt3
  318. (int2Word# dt4)
  319. (int2Word# ww5)
  320. realWorld# of wild5 { (#,#) ds2 ds3 ->
  321. case narrow32Int# ds3 of wild2 {
  322. DEFAULT -> $wgo7 ww3 ww4 ww5 w3 ww6 (+# ww7 1#) ww8
  323. 0# -> exit w3 ww6 ww7 (Text ww3 ww4 ww5) y } } } } } }
  324. 1#
  325. -> case runRW#
  326. @ ('TupleRep '['TupleRep '[], 'LiftedRep])
  327. @ (# State# RealWorld, Array (Leaf Text v2) #)
  328. (\ (s1 :: State# RealWorld)[OneShot] ->
  329. case newSmallArray#
  330. @ (Leaf Text v2)
  331. @ RealWorld
  332. (+# ww8 1#)
  333. (undefinedElem @ (Leaf Text v2))
  334. s1 of ds { (#,#) ipv3 ipv4 ->
  335. case copySmallArray#
  336. @ (Leaf Text v2)
  337. @ RealWorld
  338. ww6
  339. 0#
  340. ipv4
  341. 0#
  342. ww8
  343. ipv3 of s2 { DEFAULT ->
  344. case writeSmallArray#
  345. @ RealWorld
  346. @ (Leaf Text v2)
  347. ipv4
  348. ww8
  349. (L @ Text @ v2 (Text ww3 ww4 ww5) w3)
  350. s2 of s' { DEFAULT ->
  351. case unsafeFreezeSmallArray#
  352. @ RealWorld
  353. @ (Leaf Text v2)
  354. ipv4
  355. s' of ds2 { (#,#) ipv5 ipv6 ->
  356. (# ipv5,
  357. Array
  358. @ (Leaf Text v2)
  359. ipv6 #) } } } }) of ds1 { (#,#) ipv3 ipv4 ->
  360. ipv4 } }
  361. } in
  362. $wgo7
  363. ww
  364. ww1
  365. ww2
  366. w1
  367. w2
  368. 0#
  369. (sizeofSmallArray# @ (Leaf Text v2) w2)) -}
  370. 345e409fc163c9cbafb46283118d843a
  371. $w$sunsafeInsert ::
  372. ByteArray# -> Int# -> Int# -> v -> HashMap Text v -> HashMap Text v
  373. {- Arity: 5, Strictness: <S,U><S,U><S,U><L,U><L,1*U>, Inline: [0],
  374. Unfolding: (\ @ v2
  375. (ww :: ByteArray#)
  376. (ww1 :: Int#)
  377. (ww2 :: Int#)
  378. (w :: v2)
  379. (w1 :: HashMap Text v2) ->
  380. case runRW#
  381. @ ('TupleRep '['TupleRep '[], 'LiftedRep])
  382. @ (# State# RealWorld, HashMap Text v2 #)
  383. (\ (w2 :: State# RealWorld)[OneShot] ->
  384. case {__pkg_ccall hashable-1.2.7.0-dcc6e7516fee6fec23dcb1e670f534954750710d87259d7927d7ee0fbc2873c4 ByteArray#
  385. -> Int#
  386. -> Int#
  387. -> Int#
  388. -> State#
  389. RealWorld
  390. -> (# State#
  391. RealWorld,
  392. Int# #)}
  393. ww
  394. (uncheckedIShiftL# ww1 1#)
  395. (uncheckedIShiftL# ww2 1#)
  396. -2578643520546668380#
  397. realWorld# of wild1 { (#,#) ds1 ds2 ->
  398. $wpoly_go1
  399. @ v2
  400. (int2Word# ds2)
  401. ww
  402. ww1
  403. ww2
  404. w
  405. 0#
  406. w1
  407. w2 }) of ds1 { (#,#) ipv ipv1 ->
  408. ipv1 }) -}
  409. b61e1e1a3a5880895b570c0d3733c1ba
  410. $wdecimal0 ::
  411. Addr#
  412. -> ForeignPtrContents
  413. -> Int#
  414. -> Int#
  415. -> Int#
  416. -> Int#
  417. -> Int#
  418. -> More
  419. -> Failure ByteString (State ByteString) r
  420. -> Success ByteString (State ByteString) Integer r
  421. -> IResult ByteString r
  422. {- Arity: 10,
  423. Strictness: <L,U><L,U><L,U><S,U><L,U><L,U><S,U><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  424. Inline: [0] -}
  425. 41caef02a499f6a55469ba394ace3a33
  426. $wgo ::
  427. Addr#
  428. -> ForeignPtrContents
  429. -> Int#
  430. -> Int#
  431. -> Int#
  432. -> Int#
  433. -> Int#
  434. -> More
  435. -> Success ByteString (State ByteString) () r
  436. -> IResult ByteString r
  437. {- Arity: 9,
  438. Strictness: <S,U><L,U><S,U><S,U><L,U><L,U><S,U><L,U><L,C(C1(C1(C1(U))))>,
  439. Inline: [0] -}
  440. 321dafa925d4a11cf529dd7bc0fcebf7
  441. $wjsonEOF ::
  442. Addr#
  443. -> ForeignPtrContents
  444. -> Int#
  445. -> Int#
  446. -> Int#
  447. -> Int#
  448. -> Int#
  449. -> More
  450. -> Failure ByteString (State ByteString) r
  451. -> Success ByteString (State ByteString) Value r
  452. -> IResult ByteString r
  453. {- Arity: 10,
  454. Strictness: <S,U><L,U><S,U><S,U><S,U><S,U><S,U><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  455. Inline: [0],
  456. Unfolding: (\ @ r
  457. (ww :: Addr#)
  458. (ww1 :: ForeignPtrContents)
  459. (ww2 :: Int#)
  460. (ww3 :: Int#)
  461. (ww4 :: Int#)
  462. (ww5 :: Int#)
  463. (ww6 :: Int#)
  464. (w :: More)
  465. (w1 :: Failure ByteString (State ByteString) r)
  466. (w2 :: Success ByteString (State ByteString) Value r) ->
  467. $wvalue
  468. @ r
  469. ww
  470. ww1
  471. ww2
  472. ww3
  473. ww4
  474. ww5
  475. ww6
  476. w
  477. w1
  478. (\ (t' :: State ByteString)
  479. (pos' :: Pos)[OneShot]
  480. (more' :: More)[OneShot]
  481. (a1 :: Value)[OneShot] ->
  482. case t'
  483. `cast`
  484. (Sub (D:R:StateByteString[0])) of ww7 { Buf ww8 ww9 ww10 ww11 ww12 ww13 ->
  485. case pos' `cast` (N:Pos[0]) of ww14 { I# ww15 ->
  486. let {
  487. lvl43 :: State ByteString
  488. -> Pos -> More -> () -> IResult ByteString r
  489. {- Arity: 4, Strictness: <L,U><S,1*U(U)><L,U><L,A>,
  490. Unfolding: InlineRule (4, True, False)
  491. (\ (t'1 :: State ByteString)[OneShot]
  492. (pos'1 :: Pos)[OneShot]
  493. (more'1 :: More)[OneShot]
  494. (a2 :: ())[OneShot] ->
  495. case pos'1 `cast` (N:Pos[0]) of nt2 { I# ipv2 ->
  496. w2 t'1 nt2 `cast` (Sym (N:Pos[0])) more'1 a1 }) -}
  497. = \ (t'1 :: State ByteString)[OneShot]
  498. (pos'1 :: Pos)[OneShot]
  499. (more'1 :: More)[OneShot]
  500. (a2 :: ())[OneShot] ->
  501. case pos'1 `cast` (N:Pos[0]) of nt2 { I# ipv2 ->
  502. w2 t'1 nt2 `cast` (Sym (N:Pos[0])) more'1 a1 }
  503. } in
  504. $wgo
  505. @ r
  506. ww8
  507. ww9
  508. ww10
  509. ww11
  510. ww12
  511. ww13
  512. ww15
  513. more'
  514. (\ (t'1 :: State ByteString)
  515. (pos'1 :: Pos)[OneShot]
  516. (more'1 :: More)[OneShot]
  517. (a2 :: ())[OneShot] ->
  518. case pos'1 `cast` (N:Pos[0]) of nt2 { I# ipv2 ->
  519. $wendOfInput
  520. @ ByteString
  521. $fChunkByteString
  522. @ r
  523. t'1
  524. ipv2
  525. more'1
  526. w1
  527. lvl43 }) } })) -}
  528. 04145c7135ba1d58e04ed9a30f747eb0
  529. $wjsonEOF' ::
  530. Addr#
  531. -> ForeignPtrContents
  532. -> Int#
  533. -> Int#
  534. -> Int#
  535. -> Int#
  536. -> Int#
  537. -> More
  538. -> Failure ByteString (State ByteString) r
  539. -> Success ByteString (State ByteString) Value r
  540. -> IResult ByteString r
  541. {- Arity: 10,
  542. Strictness: <S,U><L,U><S,U><S,U><S,U><S,U><S,U><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  543. Inline: [0] -}
  544. 8b70e68f882f13076a8bd1867dfcff62
  545. $wjstring ::
  546. Addr#
  547. -> ForeignPtrContents
  548. -> Int#
  549. -> Int#
  550. -> Int#
  551. -> Int#
  552. -> Int#
  553. -> More
  554. -> Failure ByteString (State ByteString) r
  555. -> Success ByteString (State ByteString) Text r
  556. -> IResult ByteString r
  557. {- Arity: 10,
  558. Strictness: <L,U><L,U><L,U><S,U><L,U><L,U><S,U><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  559. Inline: [0] -}
  560. 8233c24a26031932830afdf94760cd9e
  561. $wpoly_go1 ::
  562. Word#
  563. -> ByteArray#
  564. -> Int#
  565. -> Int#
  566. -> v
  567. -> Int#
  568. -> HashMap Text v
  569. -> State# RealWorld
  570. -> (# State# RealWorld, HashMap Text v #)
  571. {- Arity: 8,
  572. Strictness: <L,U><L,U><L,U><L,U><L,U><L,U><S,1*U><L,U>,
  573. Inline: [0] -}
  574. a7334e8a0435baeb71522f1c600176ee
  575. $wvalue ::
  576. Addr#
  577. -> ForeignPtrContents
  578. -> Int#
  579. -> Int#
  580. -> Int#
  581. -> Int#
  582. -> Int#
  583. -> More
  584. -> Failure ByteString (State ByteString) r
  585. -> Success ByteString (State ByteString) Value r
  586. -> IResult ByteString r
  587. {- Arity: 10,
  588. Strictness: <S,U><L,U><S,U><S,U><S,U><S,U><S,U><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  589. Inline: [0] -}
  590. 06531982f30ed0f38cf82e72c4fe26e5
  591. $wvalue' ::
  592. Addr#
  593. -> ForeignPtrContents
  594. -> Int#
  595. -> Int#
  596. -> Int#
  597. -> Int#
  598. -> Int#
  599. -> More
  600. -> Failure ByteString (State ByteString) r
  601. -> Success ByteString (State ByteString) Value r
  602. -> IResult ByteString r
  603. {- Arity: 10,
  604. Strictness: <S,U><L,U><S,U><S,U><L,U><L,U><S,U><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  605. Inline: [0] -}
  606. 14eb228b4f89a4dec22adb3a63957675
  607. data S = S Int# Int#
  608. 518c7a82999b71585aa9f3fa4781f8a5
  609. data SP = SP !Integer {-# UNPACK #-}Int
  610. e234d5a93284ef5e34aedd571c226a3e
  611. decodeStrictWith ::
  612. Parser Value -> (Value -> Result a) -> ByteString -> Maybe a
  613. {- Arity: 3,
  614. Strictness: <C(C(C(C(C(S))))),1*C1(C1(C1(C1(C1(U)))))><L,1*C1(U)><L,1*U(U,U,U,U)>,
  615. Inline: (sat-args=3),
  616. Unfolding: InlineRule (3, False, False)
  617. (\ @ a
  618. (p :: Parser Value)
  619. (to :: Value -> Result a)
  620. (s :: ByteString) ->
  621. case p `cast` (N:Parser[0] <ByteString>_N <Value>_R)
  622. @ Value
  623. (buffer s) `cast` (Sub (Sym (D:R:StateByteString[0])))
  624. (I# 0#) `cast` (Sym (N:Pos[0]))
  625. Complete
  626. (failK @ Value)
  627. `cast`
  628. (Sub (Sym (D:R:StateByteString[0]))
  629. ->_R <Pos
  630. -> More -> [String] -> String -> IResult ByteString Value>_R)
  631. (successK @ Value)
  632. `cast`
  633. (Sub (Sym (D:R:StateByteString[0]))
  634. ->_R <Pos
  635. -> More -> Value -> IResult ByteString Value>_R) of wild {
  636. Fail ds ds1 err -> case ds1 of wild1 { DEFAULT -> Nothing @ a }
  637. Partial ipv
  638. -> case error
  639. @ 'LiftedRep
  640. @ (Either String Value)
  641. (PushCallStack
  642. (build @ Char (\ @ b -> unpackFoldrCString# @ b "error"#))
  643. (SrcLoc
  644. (build
  645. @ Char
  646. (\ @ b ->
  647. unpackFoldrCString#
  648. @ b
  649. "attoparsec-0.13.2.2-7134042ae4a8825e0220e72bbc50a3aea433895ec2d42a68a9d57176061e3182"#))
  650. (build
  651. @ Char
  652. (\ @ b ->
  653. unpackFoldrCString#
  654. @ b
  655. "Data.Attoparsec.ByteString.Internal"#))
  656. (build
  657. @ Char
  658. (\ @ b ->
  659. unpackFoldrCString#
  660. @ b
  661. "./Data/Attoparsec/ByteString/Internal.hs"#))
  662. (I# 473#)
  663. (I# 38#)
  664. (I# 473#)
  665. (I# 74#))
  666. EmptyCallStack)
  667. `cast`
  668. (Sym (N:IP[0] <"callStack">_N <CallStack>_N))
  669. (build
  670. @ Char
  671. (\ @ b -> unpackFoldrCString# @ b "parseOnly: impossible error!"#))
  672. ret_ty (Maybe a)
  673. of {}
  674. Done ds a1
  675. -> case to a1 of wild1 {
  676. Error ipv -> Nothing @ a Success a2 -> Just @ a a2 } }) -}
  677. 8030bdd96260aa79f0c399d829528d73
  678. decodeWith ::
  679. Parser Value -> (Value -> Result a) -> ByteString -> Maybe a
  680. {- Arity: 3,
  681. Strictness: <C(C(C(C(C(S))))),1*C1(C1(C1(C1(C1(U)))))><L,1*C1(U)><S,1*U>,
  682. Inline: (sat-args=3),
  683. Unfolding: InlineRule (3, False, False)
  684. (\ @ a
  685. (p :: Parser Value)
  686. (to :: Value -> Result a)
  687. (s :: ByteString) ->
  688. case parse @ Value p s of wild {
  689. Fail ipv ipv1 ipv2 -> Nothing @ a
  690. Done ds v2
  691. -> case to v2 of wild1 {
  692. Error ipv -> Nothing @ a Success a1 -> Just @ a a1 } }) -}
  693. 363ec73531dc4166cd5de33bf179f895
  694. eitherDecodeStrictWith ::
  695. Parser Value
  696. -> (Value -> IResult a)
  697. -> ByteString
  698. -> Either (JSONPath, String) a
  699. {- Arity: 3,
  700. Strictness: <C(C(C(C(C(S))))),1*C1(C1(C1(C1(C1(U)))))><L,1*C1(U)><L,1*U(U,U,U,U)>,
  701. Inline: (sat-args=3),
  702. Unfolding: InlineRule (3, False, False)
  703. (\ @ a
  704. (p :: Parser Value)
  705. (to :: Value -> IResult a)
  706. (s :: ByteString) ->
  707. case p `cast` (N:Parser[0] <ByteString>_N <Value>_R)
  708. @ Value
  709. (buffer s) `cast` (Sub (Sym (D:R:StateByteString[0])))
  710. (I# 0#) `cast` (Sym (N:Pos[0]))
  711. Complete
  712. (failK @ Value)
  713. `cast`
  714. (Sub (Sym (D:R:StateByteString[0]))
  715. ->_R <Pos
  716. -> More -> [String] -> String -> IResult ByteString Value>_R)
  717. (successK @ Value)
  718. `cast`
  719. (Sub (Sym (D:R:StateByteString[0]))
  720. ->_R <Pos
  721. -> More -> Value -> IResult ByteString Value>_R) of wild {
  722. Fail ds ds1 err
  723. -> case ds1 of wild1 {
  724. [] -> Left @ (JSONPath, String) @ a ([] @ JSONPathElement, err)
  725. : ipv ipv1
  726. -> Left
  727. @ (JSONPath, String)
  728. @ a
  729. ([] @ JSONPathElement,
  730. augment
  731. @ Char
  732. (\ @ b (c1 :: Char -> b -> b)[OneShot] (n1 :: b)[OneShot] ->
  733. foldr
  734. @ Char
  735. @ b
  736. c1
  737. n1
  738. (intercalate_$spoly_go
  739. @ Char
  740. ipv
  741. (prependToAll
  742. @ [Char]
  743. (build @ Char (\ @ b1 -> unpackFoldrCString# @ b1 " > "#))
  744. ipv1)))
  745. (augment
  746. @ Char
  747. (\ @ b (c1 :: Char -> b -> b)[OneShot] (n1 :: b)[OneShot] ->
  748. unpackFoldrCString# @ b ": "# c1 n1)
  749. err)) }
  750. Partial ipv
  751. -> case error
  752. @ 'LiftedRep
  753. @ (Either String Value)
  754. (PushCallStack
  755. (build @ Char (\ @ b -> unpackFoldrCString# @ b "error"#))
  756. (SrcLoc
  757. (build
  758. @ Char
  759. (\ @ b ->
  760. unpackFoldrCString#
  761. @ b
  762. "attoparsec-0.13.2.2-7134042ae4a8825e0220e72bbc50a3aea433895ec2d42a68a9d57176061e3182"#))
  763. (build
  764. @ Char
  765. (\ @ b ->
  766. unpackFoldrCString#
  767. @ b
  768. "Data.Attoparsec.ByteString.Internal"#))
  769. (build
  770. @ Char
  771. (\ @ b ->
  772. unpackFoldrCString#
  773. @ b
  774. "./Data/Attoparsec/ByteString/Internal.hs"#))
  775. (I# 473#)
  776. (I# 38#)
  777. (I# 473#)
  778. (I# 74#))
  779. EmptyCallStack)
  780. `cast`
  781. (Sym (N:IP[0] <"callStack">_N <CallStack>_N))
  782. (build
  783. @ Char
  784. (\ @ b -> unpackFoldrCString# @ b "parseOnly: impossible error!"#))
  785. ret_ty (Either (JSONPath, String) a)
  786. of {}
  787. Done ds a1
  788. -> case to a1 of wild1 {
  789. IError path msg -> Left @ (JSONPath, String) @ a (path, msg)
  790. ISuccess a2 -> Right @ (JSONPath, String) @ a a2 } }) -}
  791. 951728cd0231dc6537dc1b08f38e60a3
  792. eitherDecodeWith ::
  793. Parser Value
  794. -> (Value -> IResult a)
  795. -> ByteString
  796. -> Either (JSONPath, String) a
  797. {- Arity: 3,
  798. Strictness: <C(C(C(C(C(S))))),1*C1(C1(C1(C1(C1(U)))))><L,1*C1(U)><S,1*U>,
  799. Inline: (sat-args=3),
  800. Unfolding: InlineRule (3, False, False)
  801. (\ @ a
  802. (p :: Parser Value)
  803. (to :: Value -> IResult a)
  804. (s :: ByteString) ->
  805. case parse @ Value p s of wild {
  806. Fail ds ds1 msg
  807. -> Left
  808. @ ([JSONPathElement], String)
  809. @ a
  810. ([] @ JSONPathElement, msg)
  811. Done ds v2
  812. -> case to v2 of wild1 {
  813. IError path msg -> Left @ (JSONPath, String) @ a (path, msg)
  814. ISuccess a1 -> Right @ (JSONPath, String) @ a a1 } }) -}
  815. a1152b3cc1316f3131190905b9e7ef3c
  816. json :: Parser Value
  817. {- Arity: 5,
  818. Strictness: <S(SLSSSS),1*U(U,U,U,U,U,U)><S(S),1*U(U)><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  819. Unfolding: InlineRule (0, True, True)
  820. json1 `cast` (Sym (N:Parser[0] <ByteString>_N <Value>_R)) -}
  821. 75187e322199bb9e958a553b9ddc894b
  822. json' :: Parser Value
  823. {- Arity: 5,
  824. Strictness: <S(SLSSSS),1*U(U,U,U,U,U,U)><S(S),1*U(U)><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  825. Unfolding: InlineRule (0, True, True)
  826. json'1 `cast` (Sym (N:Parser[0] <ByteString>_N <Value>_R)) -}
  827. 1002916f836931543773fcb9c77dc0aa
  828. json'1 ::
  829. State ByteString
  830. -> Pos
  831. -> More
  832. -> Failure ByteString (State ByteString) r
  833. -> Success ByteString (State ByteString) Value r
  834. -> IResult ByteString r
  835. {- Arity: 5,
  836. Strictness: <S(SLSSSS),1*U(U,U,U,U,U,U)><S(S),1*U(U)><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  837. Inline: [0],
  838. Unfolding: InlineRule (5, True, False)
  839. (\ @ r
  840. (w :: State ByteString)
  841. (w1 :: Pos)
  842. (w2 :: More)
  843. (w3 :: Failure ByteString (State ByteString) r)
  844. (w4 :: Success ByteString (State ByteString) Value r) ->
  845. case w `cast`
  846. (Sub (D:R:StateByteString[0])) of ww { Buf ww1 ww2 ww3 ww4 ww5 ww6 ->
  847. case w1 `cast` (N:Pos[0]) of ww7 { I# ww8 ->
  848. $wvalue' @ r ww1 ww2 ww3 ww4 ww5 ww6 ww8 w2 w3 w4 } }) -}
  849. f7b2b1cb0c77d40250282429492ff14b
  850. json1 ::
  851. State ByteString
  852. -> Pos
  853. -> More
  854. -> Failure ByteString (State ByteString) r
  855. -> Success ByteString (State ByteString) Value r
  856. -> IResult ByteString r
  857. {- Arity: 5,
  858. Strictness: <S(SLSSSS),1*U(U,U,U,U,U,U)><S(S),1*U(U)><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  859. Inline: [0],
  860. Unfolding: InlineRule (5, True, False)
  861. (\ @ r
  862. (w :: State ByteString)
  863. (w1 :: Pos)
  864. (w2 :: More)
  865. (w3 :: Failure ByteString (State ByteString) r)
  866. (w4 :: Success ByteString (State ByteString) Value r) ->
  867. case w `cast`
  868. (Sub (D:R:StateByteString[0])) of ww { Buf ww1 ww2 ww3 ww4 ww5 ww6 ->
  869. case w1 `cast` (N:Pos[0]) of ww7 { I# ww8 ->
  870. $wvalue @ r ww1 ww2 ww3 ww4 ww5 ww6 ww8 w2 w3 w4 } }) -}
  871. edd58b0c9831fccfcc40da46813a1544
  872. jsonEOF :: Parser Value
  873. {- Arity: 5,
  874. Strictness: <S(SLSSSS),1*U(U,U,U,U,U,U)><S(S),1*U(U)><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  875. Unfolding: InlineRule (0, True, True)
  876. jsonEOF1 `cast` (Sym (N:Parser[0] <ByteString>_N <Value>_R)) -}
  877. 3693d56076af8bff0b8b5f9c298c1da0
  878. jsonEOF' :: Parser Value
  879. {- Arity: 5,
  880. Strictness: <S(SLSSSS),1*U(U,U,U,U,U,U)><S(S),1*U(U)><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  881. Unfolding: InlineRule (0, True, True)
  882. jsonEOF'1 `cast` (Sym (N:Parser[0] <ByteString>_N <Value>_R)) -}
  883. 0c4ca2443def11483ad4d3784ea595d5
  884. jsonEOF'1 ::
  885. State ByteString
  886. -> Pos
  887. -> More
  888. -> Failure ByteString (State ByteString) r
  889. -> Success ByteString (State ByteString) Value r
  890. -> IResult ByteString r
  891. {- Arity: 5,
  892. Strictness: <S(SLSSSS),1*U(U,U,U,U,U,U)><S(S),1*U(U)><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  893. Inline: [0],
  894. Unfolding: InlineRule (5, True, False)
  895. (\ @ r
  896. (w :: State ByteString)
  897. (w1 :: Pos)
  898. (w2 :: More)
  899. (w3 :: Failure ByteString (State ByteString) r)
  900. (w4 :: Success ByteString (State ByteString) Value r) ->
  901. case w `cast`
  902. (Sub (D:R:StateByteString[0])) of ww { Buf ww1 ww2 ww3 ww4 ww5 ww6 ->
  903. case w1 `cast` (N:Pos[0]) of ww7 { I# ww8 ->
  904. $wjsonEOF' @ r ww1 ww2 ww3 ww4 ww5 ww6 ww8 w2 w3 w4 } }) -}
  905. 99a3f6c81f0c19d35d19c5355eb3c1a6
  906. jsonEOF1 ::
  907. State ByteString
  908. -> Pos
  909. -> More
  910. -> Failure ByteString (State ByteString) r
  911. -> Success ByteString (State ByteString) Value r
  912. -> IResult ByteString r
  913. {- Arity: 5,
  914. Strictness: <S(SLSSSS),1*U(U,U,U,U,U,U)><S(S),1*U(U)><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  915. Inline: [0],
  916. Unfolding: InlineRule (5, True, False)
  917. (\ @ r
  918. (w :: State ByteString)
  919. (w1 :: Pos)
  920. (w2 :: More)
  921. (w3 :: Failure ByteString (State ByteString) r)
  922. (w4 :: Success ByteString (State ByteString) Value r) ->
  923. case w `cast`
  924. (Sub (D:R:StateByteString[0])) of ww { Buf ww1 ww2 ww3 ww4 ww5 ww6 ->
  925. case w1 `cast` (N:Pos[0]) of ww7 { I# ww8 ->
  926. $wjsonEOF @ r ww1 ww2 ww3 ww4 ww5 ww6 ww8 w2 w3 w4 } }) -}
  927. f016caeb975b198f39082d36f845e325
  928. jsonEOF_$s$wgo ::
  929. (State ByteString -> Pos -> More -> () -> IResult ByteString r)
  930. -> Int#
  931. -> Int#
  932. -> Int#
  933. -> Int#
  934. -> Int#
  935. -> ForeignPtrContents
  936. -> Addr#
  937. -> IResult ByteString r
  938. {- Arity: 8,
  939. Strictness: <L,C(C1(C1(C1(U))))><S,U><L,U><L,U><S,U><S,U><L,U><S,U> -}
  940. d17604a3730a9eb90f53edc59d439e50
  941. jstring :: Parser Text
  942. {- Arity: 5,
  943. Strictness: <S(SLSSSS),1*U(U,U,U,U,U,U)><S(S),1*U(U)><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  944. Unfolding: InlineRule (0, True, True)
  945. jstring1 `cast` (Sym (N:Parser[0] <ByteString>_N <Text>_R)) -}
  946. 1f8a020829c46481d38e2619344a45f9
  947. jstring1 ::
  948. State ByteString
  949. -> Pos
  950. -> More
  951. -> Failure ByteString (State ByteString) r
  952. -> Success ByteString (State ByteString) Text r
  953. -> IResult ByteString r
  954. {- Arity: 5,
  955. Strictness: <S(SLSSSS),1*U(U,U,U,U,U,U)><S(S),1*U(U)><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  956. Inline: [0],
  957. Unfolding: InlineRule (5, True, False)
  958. (\ @ r
  959. (w :: State ByteString)
  960. (w1 :: Pos)
  961. (w2 :: More)
  962. (w3 :: Failure ByteString (State ByteString) r)
  963. (w4 :: Success ByteString (State ByteString) Text r) ->
  964. case w `cast`
  965. (Sub (D:R:StateByteString[0])) of ww { Buf ww1 ww2 ww3 ww4 ww5 ww6 ->
  966. case w1 `cast` (N:Pos[0]) of ww7 { I# ww8 ->
  967. $wjstring @ r ww1 ww2 ww3 ww4 ww5 ww6 ww8 w2 w3 w4 } }) -}
  968. cc6eb41f4bae7b07d7b083e5425e2286
  969. jstring_ :: Parser Text
  970. {- Arity: 5,
  971. Strictness: <S(SLSSSS),1*U(U,U,U,U,U,U)><S(S),1*U(U)><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  972. Inline: (sat-args=0),
  973. Unfolding: InlineRule (0, False, False)
  974. (let {
  975. f :: S -> [ByteString] -> Parser (ByteString, S) {- Arity: 2 -}
  976. = \ (s2 :: S) (xs :: [ByteString]) ->
  977. let {
  978. $j :: Addr#
  979. -> ForeignPtrContents
  980. -> Int#
  981. -> Int#
  982. -> ByteString
  983. -> Parser ByteString (ByteString, S)
  984. <join 5> {- Arity: 5 -}
  985. = \ (ipv :: Addr#)[OneShot]
  986. (ipv1 :: ForeignPtrContents)[OneShot]
  987. (ipv2 :: Int#)[OneShot]
  988. (ipv3 :: Int#)[OneShot]
  989. (sx :: ByteString)[OneShot] ->
  990. let {
  991. v2 :: (ByteString, S) = (sx, s2)
  992. } in
  993. (\ @ r
  994. (t :: State ByteString)
  995. (pos :: Pos)
  996. (more :: More)
  997. (_lose :: Failure ByteString (State ByteString) r)
  998. (succ :: Success
  999. ByteString (State ByteString) (ByteString, S) r) ->
  1000. case pos `cast` (N:Pos[0]) of nt { I# ipv4 ->
  1001. succ t nt `cast` (Sym (N:Pos[0])) more v2 })
  1002. `cast`
  1003. (Sym (N:Parser[0] <ByteString>_N <(ByteString, S)>_R))
  1004. } in
  1005. case xs of wild {
  1006. []
  1007. -> case mconcat
  1008. @ ByteString
  1009. $fMonoidByteString
  1010. (reverse1
  1011. @ ByteString
  1012. ([] @ ByteString)
  1013. ([] @ ByteString)) of sx { PS ipv ipv1 ipv2 ipv3 ->
  1014. $j ipv ipv1 ipv2 ipv3 sx }
  1015. : x ds1
  1016. -> case ds1 of wild1 {
  1017. []
  1018. -> case x of sx { PS ipv ipv1 ipv2 ipv3 ->
  1019. $j ipv ipv1 ipv2 ipv3 sx }
  1020. : ipv ipv1
  1021. -> case mconcat
  1022. @ ByteString
  1023. $fMonoidByteString
  1024. (reverse1
  1025. @ ByteString
  1026. wild
  1027. ([] @ ByteString)) of sx { PS ipv2 ipv3 ipv4 ipv5 ->
  1028. $j ipv2 ipv3 ipv4 ipv5 sx } } }
  1029. } in
  1030. letrec {
  1031. go3 :: [ByteString]
  1032. -> S
  1033. -> forall r1.
  1034. State ByteString
  1035. -> Pos
  1036. -> More
  1037. -> Failure ByteString (State ByteString) r1
  1038. -> Success ByteString (State ByteString) (ByteString, S) r1
  1039. -> IResult ByteString r1
  1040. {- Arity: 7 -}
  1041. = \ (acc :: [ByteString])
  1042. (s2 :: S)
  1043. @ r1
  1044. (t :: State ByteString)
  1045. (pos :: Pos)
  1046. (more :: More)
  1047. (lose :: Failure ByteString (State ByteString) r1)
  1048. (succ :: Success
  1049. ByteString (State ByteString) (ByteString, S) r1) ->
  1050. case pos `cast` (N:Pos[0]) of nt { I# ipv ->
  1051. let {
  1052. bs :: ByteString
  1053. = case t `cast`
  1054. (Sub (D:R:StateByteString[0])) of wild { Buf dt dt1 dt2 dt3 dt4 dt5 ->
  1055. $WPS
  1056. (ForeignPtr @ Word8 dt dt1)
  1057. (I# (+# dt2 ipv))
  1058. (I# (-# dt3 ipv)) }
  1059. } in
  1060. let {
  1061. ds :: T S
  1062. = case bs of wild { PS dt dt1 dt2 dt3 ->
  1063. let {
  1064. start :: Addr# = plusAddr# dt dt2
  1065. } in
  1066. let {
  1067. end :: Addr# = plusAddr# start dt3
  1068. } in
  1069. letrec {
  1070. inner :: Ptr Word8 -> S -> IO (T S) {- Arity: 2 -}
  1071. = \ (ptr :: Ptr Word8) (s3 :: S) ->
  1072. case s3 of s4 { S ipv1 ipv2 ->
  1073. case ptr of wild1 { Ptr a2 ->
  1074. case ltAddr# a2 end of lwild {
  1075. DEFAULT
  1076. -> (\ (s5 :: State# RealWorld) ->
  1077. (# s5, $WT @ S (I# (minusAddr# a2 start)) s4 #))
  1078. `cast`
  1079. (Sym (N:IO[0] <T S>_R))
  1080. 1#
  1081. -> (\ (s5 :: State# RealWorld) ->
  1082. case readWord8OffAddr#
  1083. @ RealWorld
  1084. a2
  1085. 0#
  1086. s5 of ds2 { (#,#) ipv3 ipv4 ->
  1087. let {
  1088. w :: Int# = word2Int# ipv4
  1089. } in
  1090. let {
  1091. $j :: Int# -> (# State# RealWorld, T S #)
  1092. <join 1> {- Arity: 1 -}
  1093. = \ (skip' :: Int#)[OneShot] ->
  1094. case ipv1 of lwild1 {
  1095. DEFAULT
  1096. -> case w of wild2 {
  1097. DEFAULT
  1098. -> (inner
  1099. (Ptr @ Word8 (plusAddr# a2 1#))
  1100. (case andI# wild2 128# of wild3 {
  1101. DEFAULT
  1102. -> S skip'
  1103. (orI#
  1104. (orI# ipv2 skip')
  1105. (==# (andI# wild2 31#) wild2))
  1106. 128#
  1107. -> S skip'
  1108. (orI#
  1109. (orI# (orI# ipv2 1#) skip')
  1110. (==# (andI# wild2 31#) wild2)) }))
  1111. `cast`
  1112. (N:IO[0] <T S>_R)
  1113. ipv3
  1114. 34#
  1115. -> (# ipv3, $WT @ S (I# (minusAddr# a2 start)) s4 #) }
  1116. 1#
  1117. -> (inner
  1118. (Ptr @ Word8 (plusAddr# a2 1#))
  1119. (case andI# w 128# of wild2 {
  1120. DEFAULT
  1121. -> S 0#
  1122. (orI#
  1123. (orI# ipv2 skip')
  1124. (==# (andI# w 31#) w))
  1125. 128#
  1126. -> S 0#
  1127. (orI#
  1128. (orI# (orI# ipv2 1#) skip')
  1129. (==# (andI# w 31#) w)) }))
  1130. `cast`
  1131. (N:IO[0] <T S>_R)
  1132. ipv3 }
  1133. } in
  1134. case w of wild2 { DEFAULT -> $j 0# 92# -> $j 1# } })
  1135. `cast`
  1136. (Sym (N:IO[0] <T S>_R)) } } }
  1137. } in
  1138. case (inner (Ptr @ Word8 start) s2) `cast` (N:IO[0] <T S>_R)
  1139. realWorld# of ds1 { (#,#) ipv1 ipv2 ->
  1140. case touch#
  1141. @ 'LiftedRep
  1142. @ ForeignPtrContents
  1143. dt1
  1144. ipv1 of s' { DEFAULT ->
  1145. ipv2 } } }
  1146. } in
  1147. let {
  1148. i :: Int = case ds of wild { T dt s' -> I# dt }
  1149. } in
  1150. let {
  1151. s' :: S = case ds of wild { T dt s'1 -> s'1 }
  1152. } in
  1153. case bs of wild { PS dt dt1 dt2 dt3 ->
  1154. case $WPS
  1155. (ForeignPtr @ Word8 dt dt1)
  1156. (I# dt2)
  1157. i of h { PS ipv1 ipv2 ipv3 ipv4 ->
  1158. let {
  1159. pos1 :: Int = case i of wild1 { I# y -> I# (+# ipv y) }
  1160. } in
  1161. case t `cast`
  1162. (Sub (D:R:StateByteString[0])) of wild1 { Buf dt4 dt5 dt6 dt7 dt8 dt9 ->
  1163. let {
  1164. $j :: IResult ByteString r1 <join 0>
  1165. = case pos1 of nt1 { I# ipv5 ->
  1166. (f s' (: @ ByteString h acc))
  1167. `cast`
  1168. (N:Parser[0] <ByteString>_N <(ByteString, S)>_R)
  1169. @ r1
  1170. wild1 `cast` (Sub (Sym (D:R:StateByteString[0])))
  1171. nt1 `cast` (Sym (N:Pos[0]))
  1172. more
  1173. lose
  1174. succ }
  1175. } in
  1176. case ltInt pos1 (I# dt7) of wild2 {
  1177. False
  1178. -> case more of wild3 {
  1179. Complete -> $j
  1180. Incomplete
  1181. -> prompt_$sprompt1
  1182. @ r1
  1183. wild1 `cast` (Sub (Sym (D:R:StateByteString[0])))
  1184. pos1 `cast` (Sym (N:Pos[0]))
  1185. Incomplete
  1186. (\ (t' :: Buffer)[OneShot]
  1187. (pos' :: Pos)[OneShot]
  1188. (more' :: More)[OneShot] ->
  1189. case pos' `cast` (N:Pos[0]) of nt1 { I# ipv5 ->
  1190. (f s' (: @ ByteString h acc))
  1191. `cast`
  1192. (N:Parser[0] <ByteString>_N <(ByteString, S)>_R)
  1193. @ r1
  1194. t' `cast` (Sub (Sym (D:R:StateByteString[0])))
  1195. nt1 `cast` (Sym (N:Pos[0]))
  1196. more'
  1197. lose
  1198. succ })
  1199. `cast`
  1200. (Sub (Sym (D:R:StateByteString[0]))
  1201. ->_R <Pos -> More -> IResult ByteString r1>_R)
  1202. (\ (t' :: Buffer)
  1203. (pos' :: Pos)[OneShot]
  1204. (more' :: More)[OneShot] ->
  1205. case pos' `cast` (N:Pos[0]) of nt1 { I# ipv5 ->
  1206. go3
  1207. (: @ ByteString h acc)
  1208. s'
  1209. @ r1
  1210. t' `cast` (Sub (Sym (D:R:StateByteString[0])))
  1211. nt1 `cast` (Sym (N:Pos[0]))
  1212. more'
  1213. lose
  1214. succ })
  1215. `cast`
  1216. (Sub (Sym (D:R:StateByteString[0]))
  1217. ->_R <Pos -> More -> IResult ByteString r1>_R) }
  1218. True -> $j } } } } }
  1219. } in
  1220. let {
  1221. x :: S = S 0# 0#
  1222. } in
  1223. (\ @ r
  1224. (t :: State ByteString)
  1225. (pos :: Pos)
  1226. (more :: More)
  1227. (lose :: Failure ByteString (State ByteString) r)
  1228. (succ :: Success ByteString (State ByteString) Text r) ->
  1229. case pos `cast` (N:Pos[0]) of nt { I# ipv ->
  1230. let {
  1231. succ1 :: Success ByteString (State ByteString) (ByteString, S) r
  1232. {- Arity: 4 -}
  1233. = \ (t' :: State ByteString)
  1234. (pos' :: Pos)
  1235. (more' :: More)
  1236. (a1 :: (ByteString, S)) ->
  1237. case pos' `cast` (N:Pos[0]) of nt1 { I# ipv1 ->
  1238. case a1 of wild { (,) s ds ->
  1239. case ds of wild1 { S ds1 escaped ->
  1240. case escaped of lwild {
  1241. DEFAULT -> succ t' nt1 `cast` (Sym (N:Pos[0])) more' (decodeUtf8 s)
  1242. 1#
  1243. -> case unescapeText s of wild2 {
  1244. Left err
  1245. -> lose
  1246. t'
  1247. nt1 `cast` (Sym (N:Pos[0]))
  1248. more'
  1249. ([] @ String)
  1250. (augment
  1251. @ Char
  1252. (\ @ b (c1 :: Char -> b -> b)[OneShot] (n :: b)[OneShot] ->
  1253. unpackFoldrCString# @ b "Failed reading: "# c1 n)
  1254. ($fExceptionUnicodeException_$cshow err))
  1255. Right r1 -> succ t' nt1 `cast` (Sym (N:Pos[0])) more' r1 } } } } }
  1256. } in
  1257. go3
  1258. ([] @ ByteString)
  1259. x
  1260. @ r
  1261. t
  1262. nt `cast` (Sym (N:Pos[0]))
  1263. more
  1264. lose
  1265. (\ (t' :: State ByteString)
  1266. (pos' :: Pos)
  1267. (more' :: More)
  1268. (a1 :: (ByteString, S)) ->
  1269. case pos' `cast` (N:Pos[0]) of nt1 { I# ipv1 ->
  1270. case t'
  1271. `cast`
  1272. (Sub (D:R:StateByteString[0])) of wild { Buf dt dt1 dt2 dt3 dt4 dt5 ->
  1273. case geInt (I# dt3) (I# (+# ipv1 1#)) of wild1 {
  1274. False
  1275. -> ensureSuspended
  1276. @ r
  1277. (I# 1#)
  1278. wild
  1279. nt1 `cast` (Sym (N:Pos[0]))
  1280. more'
  1281. lose
  1282. `cast`
  1283. (Sub (D:R:StateByteString[0])
  1284. ->_R <Pos -> More -> [String] -> String -> IResult ByteString r>_R)
  1285. (\ (t'1 :: Buffer)
  1286. (pos'1 :: Pos)[OneShot]
  1287. (more'1 :: More)[OneShot]
  1288. (bs' :: ByteString)[OneShot] ->
  1289. case bs' of wild2 { PS dt7 dt8 dt9 dt10 ->
  1290. case readWord8OffAddr#
  1291. @ RealWorld
  1292. (plusAddr# dt7 dt9)
  1293. 0#
  1294. realWorld# of ds2 { (#,#) ipv2 ipv3 ->
  1295. case touch#
  1296. @ 'LiftedRep
  1297. @ ForeignPtrContents
  1298. dt8
  1299. ipv2 of s' { DEFAULT ->
  1300. case pos'1 `cast` (N:Pos[0]) of nt2 { I# ipv4 ->
  1301. succ1
  1302. t'1 `cast` (Sub (Sym (D:R:StateByteString[0])))
  1303. (I# (+# ipv4 1#)) `cast` (Sym (N:Pos[0]))
  1304. more'1
  1305. a1 } } } })
  1306. True
  1307. -> succ1
  1308. wild `cast` (Sub (Sym (D:R:StateByteString[0])))
  1309. (I# (+# ipv1 1#)) `cast` (Sym (N:Pos[0]))
  1310. more'
  1311. a1 } } }) })
  1312. `cast`
  1313. (Sym (N:Parser[0] <ByteString>_N <Text>_R))) -}
  1314. 64a06b6ae248419ba3fe9df81236b6fe
  1315. scientific :: Parser Scientific
  1316. {- Arity: 5,
  1317. Strictness: <S(SLSSSS),1*U(U,U,U,U,U,U)><S(S),1*U(U)><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  1318. Inline: (sat-args=0),
  1319. Unfolding: InlineRule (0, False, False)
  1320. (let {
  1321. plus :: Word8 = W8# 43##
  1322. } in
  1323. let {
  1324. minus :: Word8 = W8# 45##
  1325. } in
  1326. (\ @ r
  1327. (t :: State ByteString)
  1328. (pos :: Pos)
  1329. (more :: More)
  1330. (lose :: Failure ByteString (State ByteString) r)
  1331. (succ :: Success ByteString (State ByteString) Scientific r) ->
  1332. case pos `cast` (N:Pos[0]) of nt { I# ipv ->
  1333. let {
  1334. succ1 :: Success ByteString (State ByteString) Word8 r
  1335. {- Arity: 4 -}
  1336. = \ (t' :: State ByteString)
  1337. (pos' :: Pos)
  1338. (more' :: More)
  1339. (a1 :: Word8) ->
  1340. case pos' `cast` (N:Pos[0]) of nt1 { I# ipv1 ->
  1341. let {
  1342. $j :: Bool -> IResult ByteString r <join 1> {- Arity: 1 -}
  1343. = \ (positive :: Bool)[OneShot] ->
  1344. let {
  1345. karg :: State ByteString
  1346. -> Pos -> More -> () -> IResult ByteString r
  1347. {- Arity: 4 -}
  1348. = \ (t'1 :: State ByteString)
  1349. (pos'1 :: Pos)
  1350. (more'1 :: More)
  1351. (a2 :: ()) ->
  1352. case pos'1 `cast` (N:Pos[0]) of nt2 { I# ipv2 ->
  1353. scientific1
  1354. @ r
  1355. t'1
  1356. nt2 `cast` (Sym (N:Pos[0]))
  1357. more'1
  1358. lose
  1359. (\ (t'2 :: State ByteString)
  1360. (pos'2 :: Pos)[OneShot]
  1361. (more'2 :: More)[OneShot]
  1362. (a3 :: Integer)[OneShot] ->
  1363. case pos'2 `cast` (N:Pos[0]) of nt3 { I# ipv3 ->
  1364. let {
  1365. succ2 :: Success ByteString (State ByteString) (Maybe Word8) r
  1366. {- Arity: 4 -}
  1367. = \ (t'3 :: State ByteString)
  1368. (pos'3 :: Pos)
  1369. (more'3 :: More)
  1370. (a4 :: Maybe Word8) ->
  1371. case pos'3 `cast` (N:Pos[0]) of nt4 { I# ipv4 ->
  1372. let {
  1373. karg1 :: State ByteString
  1374. -> Pos -> More -> SP -> IResult ByteString r
  1375. {- Arity: 4 -}
  1376. = \ (t'4 :: State ByteString)
  1377. (pos'4 :: Pos)
  1378. (more'4 :: More)
  1379. (a5 :: SP) ->
  1380. case pos'4 `cast` (N:Pos[0]) of nt5 { I# ipv5 ->
  1381. case a5 of wild { SP c1 dt ->
  1382. let {
  1383. $j1 :: Integer -> IResult ByteString r
  1384. <join 1> {- Arity: 1 -}
  1385. = \ (signedCoeff :: Integer)[OneShot] ->
  1386. let {
  1387. bigE :: Word8 = W8# 69##
  1388. } in
  1389. let {
  1390. littleE :: Word8 = W8# 101##
  1391. } in
  1392. let {
  1393. v2 :: Scientific = $WScientific signedCoeff (I# dt)
  1394. } in
  1395. let {
  1396. lose1 :: Failure ByteString (State ByteString) r
  1397. {- Arity: 5 -}
  1398. = \ (t'5 :: State ByteString)
  1399. (_pos' :: Pos)
  1400. (more'5 :: More)
  1401. (_ctx :: [String])
  1402. (_msg :: String) ->
  1403. succ t'5 nt5 `cast` (Sym (N:Pos[0])) more'5 v2
  1404. } in
  1405. let {
  1406. succ3 :: Success
  1407. ByteString (State ByteString) Word8 r
  1408. {- Arity: 4 -}
  1409. = \ (t'5 :: State ByteString)
  1410. (pos'5 :: Pos)
  1411. (more'5 :: More)
  1412. (a6 :: Word8) ->
  1413. case pos'5 `cast` (N:Pos[0]) of nt6 { I# ipv6 ->
  1414. let {
  1415. $j2 :: IResult ByteString r <join 0>
  1416. = signed_$ssigned6
  1417. decimal11
  1418. `cast`
  1419. (Sym (N:Parser[0] <ByteString>_N <Int>_R))
  1420. @ r
  1421. t'5
  1422. (I# (+# ipv6 1#)) `cast` (Sym (N:Pos[0]))
  1423. more'5
  1424. lose1
  1425. (\ (t'6 :: State ByteString)
  1426. (pos'6 :: Pos)
  1427. (more'6 :: More)
  1428. (a7 :: Int) ->
  1429. succ
  1430. t'6
  1431. pos'6
  1432. more'6
  1433. (case a7 of wild1 { I# y ->
  1434. $WScientific
  1435. signedCoeff
  1436. (I# (+# dt y)) }))
  1437. } in
  1438. case eqWord8 a6 littleE of wild1 {
  1439. False
  1440. -> case eqWord8 a6 bigE of wild2 {
  1441. False
  1442. -> succ
  1443. t'5
  1444. nt5 `cast` (Sym (N:Pos[0]))
  1445. more'5
  1446. v2
  1447. True -> $j2 }
  1448. True -> $j2 } }
  1449. } in
  1450. case t'4
  1451. `cast`
  1452. (Sub (D:R:StateByteString[0])) of wild1 { Buf dt1 dt2 dt3 dt4 dt5 dt6 ->
  1453. case geInt (I# dt4) (I# (+# ipv5 1#)) of wild2 {
  1454. False
  1455. -> ensureSuspended
  1456. @ r
  1457. (I# 1#)
  1458. wild1
  1459. nt5 `cast` (Sym (N:Pos[0]))
  1460. more'4
  1461. lose1
  1462. `cast`
  1463. (Sub (D:R:StateByteString[0])
  1464. ->_R <Pos
  1465. -> More
  1466. -> [String]
  1467. -> String
  1468. -> IResult ByteString r>_R)
  1469. (\ (t'5 :: Buffer)
  1470. (pos'5 :: Pos)[OneShot]
  1471. (more'5 :: More)[OneShot]
  1472. (bs' :: ByteString)[OneShot] ->
  1473. case bs' of wild3 { PS dt7 dt8 dt9 dt10 ->
  1474. case readWord8OffAddr#
  1475. @ RealWorld
  1476. (plusAddr# dt7 dt9)
  1477. 0#
  1478. realWorld# of ds2 { (#,#) ipv6 ipv7 ->
  1479. case touch#
  1480. @ 'LiftedRep
  1481. @ ForeignPtrContents
  1482. dt8
  1483. ipv6 of s' { DEFAULT ->
  1484. succ3
  1485. t'5
  1486. `cast`
  1487. (Sub (Sym (D:R:StateByteString[0])))
  1488. pos'5
  1489. more'5
  1490. (W8# ipv7) } } })
  1491. True
  1492. -> succ3
  1493. wild1
  1494. `cast`
  1495. (Sub (Sym (D:R:StateByteString[0])))
  1496. nt5 `cast` (Sym (N:Pos[0]))
  1497. more'4
  1498. (case readWord8OffAddr#
  1499. @ RealWorld
  1500. (plusAddr# dt1 (+# dt3 ipv5))
  1501. 0#
  1502. realWorld# of ds2 { (#,#) ipv6 ipv7 ->
  1503. case touch#
  1504. @ 'LiftedRep
  1505. @ ForeignPtrContents
  1506. dt2
  1507. ipv6 of s' { DEFAULT ->
  1508. W8# ipv7 } }) } }
  1509. } in
  1510. case positive of wild1 {
  1511. False
  1512. -> case negateInteger c1 of signedCoeff { DEFAULT ->
  1513. $j1 signedCoeff }
  1514. True -> $j1 c1 } } }
  1515. } in
  1516. let {
  1517. fail :: Void# -> IResult ByteString r <join 1> {- Arity: 1 -}
  1518. = \ (ds :: Void#)[OneShot] ->
  1519. karg1
  1520. t'3
  1521. nt4 `cast` (Sym (N:Pos[0]))
  1522. more'3
  1523. ($WSP a3 (I# 0#))
  1524. } in
  1525. case a4 of wild {
  1526. Nothing -> fail void#
  1527. Just ds
  1528. -> case eqWord8 ds (W8# 46##) of wild1 {
  1529. False -> fail void#
  1530. True
  1531. -> let {
  1532. k :: forall r1.
  1533. State ByteString
  1534. -> Pos
  1535. -> More
  1536. -> Failure ByteString (State ByteString) r1
  1537. -> Success ByteString (State ByteString) SP r1
  1538. -> IResult ByteString r1
  1539. {- Arity: 5 -}
  1540. = \ @ r1
  1541. (t1 :: State ByteString)
  1542. (pos1 :: Pos)
  1543. (more1 :: More)
  1544. (lose1 :: Failure
  1545. ByteString (State ByteString) r1)
  1546. (succ3 :: Success
  1547. ByteString
  1548. (State ByteString)
  1549. SP
  1550. r1) ->
  1551. let {
  1552. succ4 :: Success
  1553. ByteString
  1554. (State ByteString)
  1555. ByteString
  1556. r1
  1557. {- Arity: 4 -}
  1558. = \ (t'4 :: State ByteString)
  1559. (pos'4 :: Pos)
  1560. (more'4 :: More)
  1561. (a5 :: ByteString) ->
  1562. succ3
  1563. t'4
  1564. pos'4
  1565. more'4
  1566. (case a5 of wild2 { PS dt dt1 dt2 dt3 ->
  1567. letrec {
  1568. go3 :: Integer
  1569. -> Ptr Word8
  1570. -> Ptr Word8
  1571. -> IO Integer
  1572. {- Arity: 3 -}
  1573. = \ (z :: Integer)
  1574. (p :: Ptr Word8)
  1575. (q :: Ptr Word8) ->
  1576. case z of z1 { DEFAULT ->
  1577. case p of p1 { Ptr ipv5 ->
  1578. case q of q1 { Ptr ipv6 ->
  1579. case eqAddr# ipv5 ipv6 of lwild {
  1580. DEFAULT
  1581. -> (\ (s :: State# RealWorld) ->
  1582. case readWord8OffAddr#
  1583. @ RealWorld
  1584. ipv5
  1585. 0#
  1586. s of ds2 { (#,#) ipv7 ipv8 ->
  1587. (go3
  1588. (plusInteger
  1589. (timesInteger z1 10)
  1590. (smallInteger
  1591. (word2Int#
  1592. (narrow8Word#
  1593. (minusWord#
  1594. ipv8
  1595. 48##)))))
  1596. (Ptr
  1597. @ Word8
  1598. (plusAddr# ipv5 1#))
  1599. q1)
  1600. `cast`
  1601. (N:IO[0] <Integer>_R)
  1602. ipv7 })
  1603. `cast`
  1604. (Sym (N:IO[0] <Integer>_R))
  1605. 1#
  1606. -> (\ (s :: State# RealWorld) ->
  1607. (# s, z1 #))
  1608. `cast`
  1609. (Sym (N:IO[0]
  1610. <Integer>_R)) } } } }
  1611. } in
  1612. case (go3
  1613. a3
  1614. (Ptr @ Word8 (plusAddr# dt dt2))
  1615. (Ptr
  1616. @ Word8
  1617. (plusAddr# dt (+# dt2 dt3))))
  1618. `cast`
  1619. (N:IO[0] <Integer>_R)
  1620. realWorld# of ds1 { (#,#) ipv5 ipv6 ->
  1621. case touch#
  1622. @ 'LiftedRep
  1623. @ ForeignPtrContents
  1624. dt1
  1625. ipv5 of s' { DEFAULT ->
  1626. $WSP ipv6 (I# (negateInt# dt3)) } } })
  1627. } in
  1628. case pos1 `cast` (N:Pos[0]) of nt5 { I# ipv5 ->
  1629. case t1
  1630. `cast`
  1631. (Sub (D:R:StateByteString[0])) of wild2 { Buf dt dt1 dt2 dt3 dt4 dt5 ->
  1632. let {
  1633. karg2 :: State ByteString
  1634. -> Pos
  1635. -> More
  1636. -> ()
  1637. -> IResult ByteString r1
  1638. {- Arity: 4 -}
  1639. = \ (t'4 :: State ByteString)
  1640. (pos'4 :: Pos)
  1641. (more'4 :: More)
  1642. (a5 :: ()) ->
  1643. case pos'4
  1644. `cast`
  1645. (N:Pos[0]) of nt6 { I# ipv6 ->
  1646. let {
  1647. a6 :: ByteString
  1648. = case t'4
  1649. `cast`
  1650. (Sub (D:R:StateByteString[0])) of wild3 { Buf dt7 dt8 dt9 dt10 dt11 dt12 ->
  1651. case $WPS
  1652. (ForeignPtr @ Word8 dt7 dt8)
  1653. (I# (+# dt9 ipv6))
  1654. (I#
  1655. (-#
  1656. dt10
  1657. ipv6)) of wild4 { PS dt13 dt14 dt15 dt16 ->
  1658. let {
  1659. l :: Int = I# dt16
  1660. } in
  1661. letrec {
  1662. go3 :: Ptr Word8 -> Int -> IO Int
  1663. {- Arity: 2 -}
  1664. = \ (ptr :: Ptr Word8) (n1 :: Int) ->
  1665. case ptr of ptr1 { Ptr ipv7 ->
  1666. case n1 of n2 { I# ipv8 ->
  1667. case geInt n2 l of wild5 {
  1668. False
  1669. -> (\ (s1 :: State# RealWorld) ->
  1670. case readWord8OffAddr#
  1671. @ RealWorld
  1672. ipv7
  1673. 0#
  1674. s1 of ds2 { (#,#) ipv9 ipv10 ->
  1675. case leWord8
  1676. (W8#
  1677. (narrow8Word#
  1678. (minusWord#
  1679. ipv10
  1680. 48##)))
  1681. (W8# 9##) of wild6 {
  1682. False -> (# ipv9, n2 #)
  1683. True
  1684. -> (go3
  1685. (Ptr
  1686. @ Word8
  1687. (plusAddr# ipv7 1#))
  1688. (I# (+# ipv8 1#)))
  1689. `cast`
  1690. (N:IO[0] <Int>_R)
  1691. ipv9 } })
  1692. `cast`
  1693. (Sym (N:IO[0] <Int>_R))
  1694. True
  1695. -> (\ (s1 :: State# RealWorld) ->
  1696. (# s1, l #))
  1697. `cast`
  1698. (Sym (N:IO[0] <Int>_R)) } } }
  1699. } in
  1700. case (go3
  1701. (Ptr
  1702. @ Word8
  1703. (plusAddr# dt13 dt15))
  1704. (I# 0#))
  1705. `cast`
  1706. (N:IO[0] <Int>_R)
  1707. realWorld# of ds1 { (#,#) ipv7 ipv8 ->
  1708. case touch#
  1709. @ 'LiftedRep
  1710. @ ForeignPtrContents
  1711. dt14
  1712. ipv7 of s' { DEFAULT ->
  1713. $WPS
  1714. (ForeignPtr @ Word8 dt13 dt14)
  1715. (I# dt15)
  1716. ipv8 } } } }
  1717. } in
  1718. let {
  1719. len :: Int
  1720. = case a6 of wild3 { PS dt7 dt8 dt9 dt10 ->
  1721. I# dt10 }
  1722. } in
  1723. case eqInt len (I# 0#) of wild3 {
  1724. False
  1725. -> case len of wild4 { I# y ->
  1726. let {
  1727. ipv7 :: Int# = +# ipv6 y
  1728. } in
  1729. let {
  1730. nt7 :: Int = I# ipv7
  1731. } in
  1732. case t'4
  1733. `cast`
  1734. (Sub (D:R:StateByteString[0])) of wild5 { Buf dt7 dt8 dt9 dt10 dt11 dt12 ->
  1735. case eqInt nt7 (I# dt10) of wild6 {
  1736. False
  1737. -> succ4
  1738. wild5
  1739. `cast`
  1740. (Sub (Sym (D:R:StateByteString[0])))
  1741. nt7 `cast` (Sym (N:Pos[0]))
  1742. more'4
  1743. a6
  1744. True
  1745. -> letrec {
  1746. go3 :: [ByteString]
  1747. -> forall r2.
  1748. State ByteString
  1749. -> Pos
  1750. -> More
  1751. -> Failure
  1752. ByteString
  1753. (State ByteString)
  1754. r2
  1755. -> Success
  1756. ByteString
  1757. (State ByteString)
  1758. ByteString
  1759. r2
  1760. -> IResult
  1761. ByteString r2
  1762. {- Arity: 6 -}
  1763. = \ (acc :: [ByteString])
  1764. @ r2
  1765. (t2 :: State ByteString)
  1766. (pos2 :: Pos)
  1767. (more2 :: More)
  1768. (lose2 :: Failure
  1769. ByteString
  1770. (State
  1771. ByteString)
  1772. r2)
  1773. (succ5 :: Success
  1774. ByteString
  1775. (State
  1776. ByteString)
  1777. ByteString
  1778. r2) ->
  1779. case pos2
  1780. `cast`
  1781. (N:Pos[0]) of nt8 { I# ipv8 ->
  1782. let {
  1783. a7 :: ByteString
  1784. = case t2
  1785. `cast`
  1786. (Sub (D:R:StateByteString[0])) of wild7 { Buf dt13 dt14 dt15 dt16 dt17 dt18 ->
  1787. case $WPS
  1788. (ForeignPtr
  1789. @ Word8
  1790. dt13
  1791. dt14)
  1792. (I# (+# dt15 ipv8))
  1793. (I#
  1794. (-#
  1795. dt16
  1796. ipv8)) of wild8 { PS dt19 dt20 dt21 dt22 ->
  1797. let {
  1798. l :: Int = I# dt22
  1799. } in
  1800. letrec {
  1801. go4 :: Ptr Word8
  1802. -> Int -> IO Int
  1803. {- Arity: 2 -}
  1804. = \ (ptr :: Ptr Word8)
  1805. (n1 :: Int) ->
  1806. case ptr of ptr1 { Ptr ipv9 ->
  1807. case n1 of n2 { I# ipv10 ->
  1808. case geInt
  1809. n2
  1810. l of wild9 {
  1811. False
  1812. -> (\ (s1 :: State#
  1813. RealWorld) ->
  1814. case readWord8OffAddr#
  1815. @ RealWorld
  1816. ipv9
  1817. 0#
  1818. s1 of ds2 { (#,#) ipv11 ipv12 ->
  1819. case leWord8
  1820. (W8#
  1821. (narrow8Word#
  1822. (minusWord#
  1823. ipv12
  1824. 48##)))
  1825. (W8#
  1826. 9##) of wild10 {
  1827. False
  1828. -> (# ipv11,
  1829. n2 #)
  1830. True
  1831. -> (go4
  1832. (Ptr
  1833. @ Word8
  1834. (plusAddr#
  1835. ipv9
  1836. 1#))
  1837. (I#
  1838. (+#
  1839. ipv10
  1840. 1#)))
  1841. `cast`
  1842. (N:IO[0]
  1843. <Int>_R)
  1844. ipv11 } })
  1845. `cast`
  1846. (Sym (N:IO[0]
  1847. <Int>_R))
  1848. True
  1849. -> (\ (s1 :: State#
  1850. RealWorld) ->
  1851. (# s1, l #))
  1852. `cast`
  1853. (Sym (N:IO[0]
  1854. <Int>_R)) } } }
  1855. } in
  1856. case (go4
  1857. (Ptr
  1858. @ Word8
  1859. (plusAddr#
  1860. dt19
  1861. dt21))
  1862. (I# 0#))
  1863. `cast`
  1864. (N:IO[0] <Int>_R)
  1865. realWorld# of ds1 { (#,#) ipv9 ipv10 ->
  1866. case touch#
  1867. @ 'LiftedRep
  1868. @ ForeignPtrContents
  1869. dt20
  1870. ipv9 of s' { DEFAULT ->
  1871. $WPS
  1872. (ForeignPtr
  1873. @ Word8
  1874. dt19
  1875. dt20)
  1876. (I# dt21)
  1877. ipv10 } } } }
  1878. } in
  1879. let {
  1880. pos3 :: Int
  1881. = case a7 of wild7 { PS dt13 dt14 dt15 dt16 ->
  1882. I# (+# ipv8 dt16) }
  1883. } in
  1884. case t2
  1885. `cast`
  1886. (Sub (D:R:StateByteString[0])) of wild7 { Buf dt13 dt14 dt15 dt16 dt17 dt18 ->
  1887. let {
  1888. $j1 :: IResult ByteString r2
  1889. <join 0>
  1890. = case pos3 of nt9 { I# ipv9 ->
  1891. succ5
  1892. wild7
  1893. `cast`
  1894. (Sub (Sym (D:R:StateByteString[0])))
  1895. nt9
  1896. `cast`
  1897. (Sym (N:Pos[0]))
  1898. more2
  1899. (case acc of wild8 {
  1900. [] -> a7
  1901. : ipv10 ipv11
  1902. -> mconcat
  1903. @ ByteString
  1904. $fMonoidByteString
  1905. (reverse1
  1906. @ ByteString
  1907. (: @ ByteString
  1908. a7
  1909. wild8)
  1910. ([]
  1911. @ ByteString)) }) }
  1912. } in
  1913. case ltInt
  1914. pos3
  1915. (I# dt16) of wild8 {
  1916. False
  1917. -> case more2 of wild9 {
  1918. Complete -> $j1
  1919. Incomplete
  1920. -> prompt_$sprompt1
  1921. @ r2
  1922. wild7
  1923. `cast`
  1924. (Sub (Sym (D:R:StateByteString[0])))
  1925. pos3
  1926. `cast`
  1927. (Sym (N:Pos[0]))
  1928. Incomplete
  1929. (\ (t'5 :: Buffer)[OneShot]
  1930. (pos'5 :: Pos)[OneShot]
  1931. (more'5 :: More)[OneShot] ->
  1932. case pos'5
  1933. `cast`
  1934. (N:Pos[0]) of nt9 { I# ipv9 ->
  1935. succ5
  1936. t'5
  1937. `cast`
  1938. (Sub (Sym (D:R:StateByteString[0])))
  1939. nt9
  1940. `cast`
  1941. (Sym (N:Pos[0]))
  1942. more'5
  1943. (case acc of wild10 {
  1944. [] -> a7
  1945. : ipv10 ipv11
  1946. -> mconcat
  1947. @ ByteString
  1948. $fMonoidByteString
  1949. (reverse1
  1950. @ ByteString
  1951. (: @ ByteString
  1952. a7
  1953. wild10)
  1954. ([]
  1955. @ ByteString)) }) })
  1956. `cast`
  1957. (Sub (Sym (D:R:StateByteString[0]))
  1958. ->_R <Pos
  1959. -> More
  1960. -> IResult
  1961. ByteString
  1962. r2>_R)
  1963. (\ (t'5 :: Buffer)
  1964. (pos'5 :: Pos)[OneShot]
  1965. (more'5 :: More)[OneShot] ->
  1966. case pos'5
  1967. `cast`
  1968. (N:Pos[0]) of nt9 { I# ipv9 ->
  1969. go3
  1970. (: @ ByteString
  1971. a7
  1972. acc)
  1973. @ r2
  1974. t'5
  1975. `cast`
  1976. (Sub (Sym (D:R:StateByteString[0])))
  1977. nt9
  1978. `cast`
  1979. (Sym (N:Pos[0]))
  1980. more'5
  1981. lose2
  1982. succ5 })
  1983. `cast`
  1984. (Sub (Sym (D:R:StateByteString[0]))
  1985. ->_R <Pos
  1986. -> More
  1987. -> IResult
  1988. ByteString
  1989. r2>_R) }
  1990. True -> $j1 } } }
  1991. } in
  1992. go3
  1993. (build
  1994. @ ByteString
  1995. (\ @ a
  1996. (c1 :: ByteString
  1997. -> a -> a)[OneShot]
  1998. (n1 :: a)[OneShot] ->
  1999. c1 a6 n1))
  2000. @ r1
  2001. wild5
  2002. `cast`
  2003. (Sub (Sym (D:R:StateByteString[0])))
  2004. nt7 `cast` (Sym (N:Pos[0]))
  2005. more'4
  2006. lose1
  2007. succ4 } } }
  2008. True
  2009. -> lose1
  2010. t'4
  2011. nt6 `cast` (Sym (N:Pos[0]))
  2012. more'4
  2013. ([] @ String)
  2014. (build
  2015. @ Char
  2016. (\ @ b
  2017. (c1 :: Char -> b -> b)[OneShot]
  2018. (n1 :: b)[OneShot] ->
  2019. unpackFoldrCString#
  2020. @ b
  2021. "Failed reading: takeWhile1"#
  2022. c1
  2023. n1)) } }
  2024. } in
  2025. case eqInt nt5 (I# dt3) of wild3 {
  2026. False
  2027. -> karg2
  2028. wild2
  2029. `cast`
  2030. (Sub (Sym (D:R:StateByteString[0])))
  2031. nt5 `cast` (Sym (N:Pos[0]))
  2032. more1
  2033. ()
  2034. True
  2035. -> case more1 of wild4 {
  2036. Complete
  2037. -> lose1
  2038. wild2
  2039. `cast`
  2040. (Sub (Sym (D:R:StateByteString[0])))
  2041. nt5 `cast` (Sym (N:Pos[0]))
  2042. Complete
  2043. ([] @ String)
  2044. demandInput2
  2045. Incomplete
  2046. -> let {
  2047. lvl43 :: IResult ByteString r1
  2048. = lose1
  2049. wild2
  2050. `cast`
  2051. (Sub (Sym (D:R:StateByteString[0])))
  2052. nt5 `cast` (Sym (N:Pos[0]))
  2053. Complete
  2054. ([] @ String)
  2055. demandInput2
  2056. } in
  2057. Partial
  2058. @ ByteString
  2059. @ r1
  2060. (\ (s1 :: ByteString) ->
  2061. case s1 of wild5 { PS dt7 dt8 dt9 dt10 ->
  2062. case leInt
  2063. (I# dt10)
  2064. (I# 0#) of wild6 {
  2065. False
  2066. -> karg2
  2067. (pappend wild2 wild5)
  2068. `cast`
  2069. (Sub (Sym (D:R:StateByteString[0])))
  2070. nt5 `cast` (Sym (N:Pos[0]))
  2071. Incomplete
  2072. ()
  2073. True -> lvl43 } }) } } } }
  2074. } in
  2075. case t'3
  2076. `cast`
  2077. (Sub (D:R:StateByteString[0])) of wild2 { Buf dt dt1 dt2 dt3 dt4 dt5 ->
  2078. case geInt (I# dt3) (I# (+# ipv4 1#)) of wild3 {
  2079. False
  2080. -> ensureSuspended
  2081. @ r
  2082. (I# 1#)
  2083. wild2
  2084. nt4 `cast` (Sym (N:Pos[0]))
  2085. more'3
  2086. lose
  2087. `cast`
  2088. (Sub (D:R:StateByteString[0])
  2089. ->_R <Pos
  2090. -> More
  2091. -> [String]
  2092. -> String
  2093. -> IResult ByteString r>_R)
  2094. (\ (t'4 :: Buffer)
  2095. (pos'4 :: Pos)[OneShot]
  2096. (more'4 :: More)[OneShot]
  2097. (bs' :: ByteString)[OneShot] ->
  2098. case bs' of wild4 { PS dt7 dt8 dt9 dt10 ->
  2099. case readWord8OffAddr#
  2100. @ RealWorld
  2101. (plusAddr# dt7 dt9)
  2102. 0#
  2103. realWorld# of ds2 { (#,#) ipv5 ipv6 ->
  2104. case touch#
  2105. @ 'LiftedRep
  2106. @ ForeignPtrContents
  2107. dt8
  2108. ipv5 of s' { DEFAULT ->
  2109. case pos'4
  2110. `cast`
  2111. (N:Pos[0]) of nt5 { I# ipv7 ->
  2112. k @ r
  2113. t'4
  2114. `cast`
  2115. (Sub (Sym (D:R:StateByteString[0])))
  2116. (I# (+# ipv7 1#)) `cast` (Sym (N:Pos[0]))
  2117. more'4
  2118. lose
  2119. karg1 } } } })
  2120. True
  2121. -> k @ r
  2122. wild2
  2123. `cast`
  2124. (Sub (Sym (D:R:StateByteString[0])))
  2125. (I# (+# ipv4 1#)) `cast` (Sym (N:Pos[0]))
  2126. more'3
  2127. lose
  2128. karg1 } } } } }
  2129. } in
  2130. case t'2
  2131. `cast`
  2132. (Sub (D:R:StateByteString[0])) of wild { Buf dt dt1 dt2 dt3 dt4 dt5 ->
  2133. case ltInt nt3 (I# dt3) of wild1 {
  2134. False
  2135. -> case more'2 of wild2 {
  2136. Complete
  2137. -> succ2
  2138. wild `cast` (Sub (Sym (D:R:StateByteString[0])))
  2139. nt3 `cast` (Sym (N:Pos[0]))
  2140. Complete
  2141. (Nothing @ Word8)
  2142. Incomplete
  2143. -> prompt_$sprompt1
  2144. @ r
  2145. wild `cast` (Sub (Sym (D:R:StateByteString[0])))
  2146. nt3 `cast` (Sym (N:Pos[0]))
  2147. Incomplete
  2148. (\ (t'3 :: Buffer)[OneShot]
  2149. (pos'3 :: Pos)[OneShot]
  2150. (more'3 :: More)[OneShot] ->
  2151. succ2
  2152. t'3 `cast` (Sub (Sym (D:R:StateByteString[0])))
  2153. pos'3
  2154. more'3
  2155. (Nothing @ Word8))
  2156. `cast`
  2157. (Sub (Sym (D:R:StateByteString[0]))
  2158. ->_R <Pos -> More -> IResult ByteString r>_R)
  2159. (\ (t'3 :: Buffer)
  2160. (pos'3 :: Pos)[OneShot]
  2161. (more'3 :: More)[OneShot] ->
  2162. case t'3 of wild3 { Buf dt7 dt8 dt9 dt10 dt11 dt12 ->
  2163. case readWord8OffAddr#
  2164. @ RealWorld
  2165. (plusAddr# dt7 (+# dt9 ipv3))
  2166. 0#
  2167. realWorld# of ds2 { (#,#) ipv4 ipv5 ->
  2168. case touch#
  2169. @ 'LiftedRep
  2170. @ ForeignPtrContents
  2171. dt8
  2172. ipv4 of s' { DEFAULT ->
  2173. succ2
  2174. wild3 `cast` (Sub (Sym (D:R:StateByteString[0])))
  2175. pos'3
  2176. more'3
  2177. (Just @ Word8 (W8# ipv5)) } } })
  2178. `cast`
  2179. (Sub (Sym (D:R:StateByteString[0]))
  2180. ->_R <Pos -> More -> IResult ByteString r>_R) }
  2181. True
  2182. -> case readWord8OffAddr#
  2183. @ RealWorld
  2184. (plusAddr# dt (+# dt2 ipv3))
  2185. 0#
  2186. realWorld# of ds2 { (#,#) ipv4 ipv5 ->
  2187. case touch#
  2188. @ 'LiftedRep
  2189. @ ForeignPtrContents
  2190. dt1
  2191. ipv4 of s' { DEFAULT ->
  2192. succ2
  2193. wild `cast` (Sub (Sym (D:R:StateByteString[0])))
  2194. nt3 `cast` (Sym (N:Pos[0]))
  2195. more'2
  2196. (Just @ Word8 (W8# ipv5)) } } } } }) }
  2197. } in
  2198. let {
  2199. $j1 :: IResult ByteString r <join 0>
  2200. = case t'
  2201. `cast`
  2202. (Sub (D:R:StateByteString[0])) of wild { Buf dt dt1 dt2 dt3 dt4 dt5 ->
  2203. case geInt (I# dt3) (I# (+# ipv1 1#)) of wild1 {
  2204. False
  2205. -> ensureSuspended
  2206. @ r
  2207. (I# 1#)
  2208. wild
  2209. nt1 `cast` (Sym (N:Pos[0]))
  2210. more'
  2211. lose
  2212. `cast`
  2213. (Sub (D:R:StateByteString[0])
  2214. ->_R <Pos
  2215. -> More
  2216. -> [String]
  2217. -> String
  2218. -> IResult ByteString r>_R)
  2219. (\ (t'1 :: Buffer)
  2220. (pos'1 :: Pos)[OneShot]
  2221. (more'1 :: More)[OneShot]
  2222. (bs' :: ByteString)[OneShot] ->
  2223. case bs' of wild2 { PS dt7 dt8 dt9 dt10 ->
  2224. case readWord8OffAddr#
  2225. @ RealWorld
  2226. (plusAddr# dt7 dt9)
  2227. 0#
  2228. realWorld# of ds2 { (#,#) ipv2 ipv3 ->
  2229. case touch#
  2230. @ 'LiftedRep
  2231. @ ForeignPtrContents
  2232. dt8
  2233. ipv2 of s' { DEFAULT ->
  2234. case pos'1 `cast` (N:Pos[0]) of nt2 { I# ipv4 ->
  2235. karg
  2236. t'1 `cast` (Sub (Sym (D:R:StateByteString[0])))
  2237. (I# (+# ipv4 1#)) `cast` (Sym (N:Pos[0]))
  2238. more'1
  2239. () } } } })
  2240. True
  2241. -> karg
  2242. wild `cast` (Sub (Sym (D:R:StateByteString[0])))
  2243. (I# (+# ipv1 1#)) `cast` (Sym (N:Pos[0]))
  2244. more'
  2245. () } }
  2246. } in
  2247. case eqWord8 a1 plus of wild {
  2248. False
  2249. -> case eqWord8 a1 minus of wild1 {
  2250. False -> karg t' nt1 `cast` (Sym (N:Pos[0])) more' () True -> $j1 }
  2251. True -> $j1 }
  2252. } in
  2253. case eqWord8 a1 plus of wild {
  2254. False
  2255. -> case neWord8 a1 minus of positive { DEFAULT -> $j positive }
  2256. True -> $j True } }
  2257. } in
  2258. case t `cast`
  2259. (Sub (D:R:StateByteString[0])) of wild { Buf dt dt1 dt2 dt3 dt4 dt5 ->
  2260. case geInt (I# dt3) (I# (+# ipv 1#)) of wild2 {
  2261. False
  2262. -> ensureSuspended
  2263. @ r
  2264. (I# 1#)
  2265. wild
  2266. nt `cast` (Sym (N:Pos[0]))
  2267. more
  2268. lose
  2269. `cast`
  2270. (Sub (D:R:StateByteString[0])
  2271. ->_R <Pos -> More -> [String] -> String -> IResult ByteString r>_R)
  2272. (\ (t' :: Buffer)
  2273. (pos' :: Pos)[OneShot]
  2274. (more' :: More)[OneShot]
  2275. (bs' :: ByteString)[OneShot] ->
  2276. case bs' of wild3 { PS dt7 dt8 dt9 dt10 ->
  2277. case readWord8OffAddr#
  2278. @ RealWorld
  2279. (plusAddr# dt7 dt9)
  2280. 0#
  2281. realWorld# of ds2 { (#,#) ipv1 ipv2 ->
  2282. case touch#
  2283. @ 'LiftedRep
  2284. @ ForeignPtrContents
  2285. dt8
  2286. ipv1 of s' { DEFAULT ->
  2287. succ1
  2288. t' `cast` (Sub (Sym (D:R:StateByteString[0])))
  2289. pos'
  2290. more'
  2291. (W8# ipv2) } } })
  2292. True
  2293. -> succ1
  2294. wild `cast` (Sub (Sym (D:R:StateByteString[0])))
  2295. nt `cast` (Sym (N:Pos[0]))
  2296. more
  2297. (case readWord8OffAddr#
  2298. @ RealWorld
  2299. (plusAddr# dt (+# dt2 ipv))
  2300. 0#
  2301. realWorld# of ds2 { (#,#) ipv1 ipv2 ->
  2302. case touch#
  2303. @ 'LiftedRep
  2304. @ ForeignPtrContents
  2305. dt1
  2306. ipv1 of s' { DEFAULT ->
  2307. W8# ipv2 } }) } } })
  2308. `cast`
  2309. (Sym (N:Parser[0] <ByteString>_N <Scientific>_R))) -}
  2310. 8f183e4abf6dd12302866ca5ecc47fdc
  2311. scientific1 ::
  2312. State ByteString
  2313. -> Pos
  2314. -> More
  2315. -> Failure ByteString (State ByteString) r
  2316. -> Success ByteString (State ByteString) Integer r
  2317. -> IResult ByteString r
  2318. {- Arity: 5,
  2319. Strictness: <S(SLSSSS),1*U(U,U,U,U,U,U)><S(S),1*U(U)><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  2320. Inline: [0],
  2321. Unfolding: InlineRule (5, True, False)
  2322. (\ @ r
  2323. (w :: State ByteString)
  2324. (w1 :: Pos)
  2325. (w2 :: More)
  2326. (w3 :: Failure ByteString (State ByteString) r)
  2327. (w4 :: Success ByteString (State ByteString) Integer r) ->
  2328. case w `cast`
  2329. (Sub (D:R:StateByteString[0])) of ww { Buf ww1 ww2 ww3 ww4 ww5 ww6 ->
  2330. case w1 `cast` (N:Pos[0]) of ww7 { I# ww8 ->
  2331. $wdecimal0 @ r ww1 ww2 ww3 ww4 ww5 ww6 ww8 w2 w3 w4 } }) -}
  2332. f7418c232b0383aef0b95df8805c0e6d
  2333. value :: Parser Value
  2334. {- Arity: 5,
  2335. Strictness: <S(SLSSSS),1*U(U,U,U,U,U,U)><S(S),1*U(U)><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  2336. Unfolding: InlineRule (0, True, True)
  2337. json1 `cast` (Sym (N:Parser[0] <ByteString>_N <Value>_R)) -}
  2338. 2b0e67a575e19096108ca4a928964bf3
  2339. value' :: Parser Value
  2340. {- Arity: 5,
  2341. Strictness: <S(SLSSSS),1*U(U,U,U,U,U,U)><S(S),1*U(U)><L,U><L,C(C1(C1(C1(C1(U)))))><L,C(C1(C1(C1(U))))>,
  2342. Unfolding: InlineRule (0, True, True)
  2343. json'1 `cast` (Sym (N:Parser[0] <ByteString>_N <Value>_R)) -}
  2344. "SC:$wgo0" [0] forall @ r
  2345. (sc :: State ByteString
  2346. -> Pos -> More -> () -> IResult ByteString r)
  2347. (sc1 :: Int#)
  2348. (sc2 :: Int#)
  2349. (sc3 :: Int#)
  2350. (sc4 :: Int#)
  2351. (sc5 :: Int#)
  2352. (sc6 :: ForeignPtrContents)
  2353. (sc7 :: Addr#)
  2354. $wgo @ r sc7 sc6 sc5 sc4 sc3 sc2 sc1 Incomplete sc
  2355. = jsonEOF_$s$wgo @ r sc sc1 sc2 sc3 sc4 sc5 sc6 sc7
  2356. "SC:$wpoly_go10" [0] forall @ v2
  2357. (sc :: State# RealWorld)
  2358. (sc1 :: Word#)
  2359. (sc2 :: SmallArray# (HashMap Text v2))
  2360. (sc3 :: Int#)
  2361. (sc4 :: v2)
  2362. (sc5 :: Int#)
  2363. (sc6 :: Int#)
  2364. (sc7 :: ByteArray#)
  2365. (sc8 :: Word#)
  2366. $wpoly_go1 @ v2
  2367. sc8
  2368. sc7
  2369. sc6
  2370. sc5
  2371. sc4
  2372. sc3
  2373. (BitmapIndexed @ Text @ v2 sc1 sc2)
  2374. sc
  2375. = $sunsafeInsert_$s$wpoly_go1
  2376. @ v2
  2377. sc
  2378. sc1
  2379. sc2
  2380. sc3
  2381. sc4
  2382. sc5
  2383. sc6
  2384. sc7
  2385. sc8
  2386. vectorised variables:
  2387. vectorised tycons:
  2388. vectorised reused tycons:
  2389. parallel variables:
  2390. parallel tycons:
  2391. trusted: none
  2392. require own pkg trusted: False
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!