Create a gist now

Instantly share code, notes, and snippets.

@Lysxia /gBigRecordEncode
Created Oct 8, 2017

What would you like to do?
Download ZIP
Core dumps
Raw
gBigRecordEncode
-- RHS size: {terms: 907, types: 843, coercions: 213}
gBigRecordEncode
gBigRecordEncode =
\ x_agyO ->
toLazyByteString
(case x_agyO
of _ { BigRecord dt_dgtw dt1_dgtx dt2_dgty dt3_dgtz dt4_dgtA ->
let {
$wa_smTE
$wa_smTE =
\ @ r_smTv w_smTw ww_smTB ww1_smTC w1_smTy ->
let {
lvl23_sndv
lvl23_sndv =
\ ds_aif6 eta3_aif7 ->
case ds_aif6 of _ { BufferRange dt5_aifa dt6_aifb ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt4_dgtA dt5_aifa eta3_aif7
of _ { (# ds6_alJI, ds7_alJJ #) ->
((w_smTw (BufferRange ds7_alJJ dt6_aifb)) `cast` ...) ds6_alJI
}
} } in
$wstring
$s$fSelectorMetaMetaSel24
(let {
lvl24_sndw
lvl24_sndw =
\ ds_am37 eta3_am38 ->
case ds_am37 of _ { BufferRange dt5_am3b dt6_am3c ->
case writeWord8OffAddr# dt5_am3b 0# 58## eta3_am38
of s2_am3e { __DEFAULT ->
let {
ww2_smTr
ww2_smTr = plusAddr# dt5_am3b 1# } in
case tagToEnum# (<# (minusAddr# dt6_am3c ww2_smTr) 20#) of _ {
False ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt4_dgtA ww2_smTr s2_am3e
of _ { (# ds6_alJI, ds7_alJJ #) ->
((w_smTw (BufferRange ds7_alJJ dt6_am3c)) `cast` ...) ds6_alJI
};
True ->
(# s2_am3e, BufferFull 20# ww2_smTr (lvl23_sndv `cast` ...) #)
}
}
} } in
(\ w2_aim1 w3_aim2 ->
case w2_aim1 of _ { BufferRange ww3_aim7 ww4_aim8 ->
case tagToEnum# (<# (minusAddr# ww4_aim8 ww3_aim7) 1#) of _ {
False ->
case writeWord8OffAddr# ww3_aim7 0# 58## w3_aim2
of s2_am34 { __DEFAULT ->
let {
ww5_smTr
ww5_smTr = plusAddr# ww3_aim7 1# } in
case tagToEnum# (<# (minusAddr# ww4_aim8 ww5_smTr) 20#) of _ {
False ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt4_dgtA ww5_smTr s2_am34
of _ { (# ds6_alJI, ds7_alJJ #) ->
((w_smTw (BufferRange ds7_alJJ ww4_aim8)) `cast` ...) ds6_alJI
};
True ->
(# s2_am34, BufferFull 20# ww5_smTr (lvl23_sndv `cast` ...) #)
}
};
True ->
(# w3_aim2, BufferFull 1# ww3_aim7 (lvl24_sndw `cast` ...) #)
}
})
`cast` ...)
ww_smTB
ww1_smTC
w1_smTy } in
let {
$wa1_smU4
$wa1_smU4 =
\ @ r_smTV w_smTW ww_smU1 ww1_smU2 w1_smTY ->
let {
lvl23_sndx
lvl23_sndx =
\ ds_alyX eta3_alyY ->
case ds_alyX of _ { BufferRange dt5_alz1 dt6_alz2 ->
case writeWord8OffAddr# dt5_alz1 0# 44## eta3_alyY
of s2_alz4 { __DEFAULT ->
$wa_smTE w_smTW (plusAddr# dt5_alz1 1#) dt6_alz2 s2_alz4
}
} } in
let {
lvl24_sndy
lvl24_sndy =
\ ds_aif6 eta3_aif7 ->
case ds_aif6 of _ { BufferRange dt5_aifa dt6_aifb ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt3_dgtz dt5_aifa eta3_aif7
of _ { (# ds6_alJI, ds7_alJJ #) ->
case tagToEnum# (<# (minusAddr# dt6_aifb ds7_alJJ) 1#) of _ {
False ->
case writeWord8OffAddr# ds7_alJJ 0# 44## ds6_alJI
of s2_alyU { __DEFAULT ->
$wa_smTE w_smTW (plusAddr# ds7_alJJ 1#) dt6_aifb s2_alyU
};
True ->
(# ds6_alJI, BufferFull 1# ds7_alJJ (lvl23_sndx `cast` ...) #)
}
}
} } in
$wstring
$s$fSelectorMetaMetaSel19
(let {
$ww_smTU
$ww_smTU =
\ ww2_smTR ww3_smTS w2_smTO ->
case tagToEnum# (<# (minusAddr# ww3_smTS ww2_smTR) 20#) of _ {
False ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt3_dgtz ww2_smTR w2_smTO
of _ { (# ds6_alJI, ds7_alJJ #) ->
case tagToEnum# (<# (minusAddr# ww3_smTS ds7_alJJ) 1#) of _ {
False ->
case writeWord8OffAddr# ds7_alJJ 0# 44## ds6_alJI
of s2_alyU { __DEFAULT ->
$wa_smTE w_smTW (plusAddr# ds7_alJJ 1#) ww3_smTS s2_alyU
};
True ->
(# ds6_alJI, BufferFull 1# ds7_alJJ (lvl23_sndx `cast` ...) #)
}
};
True ->
(# w2_smTO, BufferFull 20# ww2_smTR (lvl24_sndy `cast` ...) #)
} } in
let {
lvl25_sndz
lvl25_sndz =
\ ds_am37 eta3_am38 ->
case ds_am37 of _ { BufferRange dt5_am3b dt6_am3c ->
case writeWord8OffAddr# dt5_am3b 0# 58## eta3_am38
of s2_am3e { __DEFAULT ->
$ww_smTU (plusAddr# dt5_am3b 1#) dt6_am3c s2_am3e
}
} } in
(\ w2_aim1 w3_aim2 ->
case w2_aim1 of _ { BufferRange ww3_aim7 ww4_aim8 ->
case tagToEnum# (<# (minusAddr# ww4_aim8 ww3_aim7) 1#) of _ {
False ->
case writeWord8OffAddr# ww3_aim7 0# 58## w3_aim2
of s2_am34 { __DEFAULT ->
$ww_smTU (plusAddr# ww3_aim7 1#) ww4_aim8 s2_am34
};
True ->
(# w3_aim2, BufferFull 1# ww3_aim7 (lvl25_sndz `cast` ...) #)
}
})
`cast` ...)
ww_smU1
ww1_smU2
w1_smTY } in
let {
$wa2_smUu
$wa2_smUu =
\ @ r_smUl w_smUm ww_smUr ww1_smUs w1_smUo ->
let {
lvl23_sndA
lvl23_sndA =
\ ds_alyX eta3_alyY ->
case ds_alyX of _ { BufferRange dt5_alz1 dt6_alz2 ->
case writeWord8OffAddr# dt5_alz1 0# 44## eta3_alyY
of s2_alz4 { __DEFAULT ->
$wa1_smU4 w_smUm (plusAddr# dt5_alz1 1#) dt6_alz2 s2_alz4
}
} } in
let {
lvl24_sndB
lvl24_sndB =
\ ds_aif6 eta3_aif7 ->
case ds_aif6 of _ { BufferRange dt5_aifa dt6_aifb ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt2_dgty dt5_aifa eta3_aif7
of _ { (# ds6_alJI, ds7_alJJ #) ->
case tagToEnum# (<# (minusAddr# dt6_aifb ds7_alJJ) 1#) of _ {
False ->
case writeWord8OffAddr# ds7_alJJ 0# 44## ds6_alJI
of s2_alyU { __DEFAULT ->
$wa1_smU4 w_smUm (plusAddr# ds7_alJJ 1#) dt6_aifb s2_alyU
};
True ->
(# ds6_alJI, BufferFull 1# ds7_alJJ (lvl23_sndA `cast` ...) #)
}
}
} } in
$wstring
$s$fSelectorMetaMetaSel14
(let {
$ww_smUk
$ww_smUk =
\ ww2_smUh ww3_smUi w2_smUe ->
case tagToEnum# (<# (minusAddr# ww3_smUi ww2_smUh) 20#) of _ {
False ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt2_dgty ww2_smUh w2_smUe
of _ { (# ds6_alJI, ds7_alJJ #) ->
case tagToEnum# (<# (minusAddr# ww3_smUi ds7_alJJ) 1#) of _ {
False ->
case writeWord8OffAddr# ds7_alJJ 0# 44## ds6_alJI
of s2_alyU { __DEFAULT ->
$wa1_smU4 w_smUm (plusAddr# ds7_alJJ 1#) ww3_smUi s2_alyU
};
True ->
(# ds6_alJI, BufferFull 1# ds7_alJJ (lvl23_sndA `cast` ...) #)
}
};
True ->
(# w2_smUe, BufferFull 20# ww2_smUh (lvl24_sndB `cast` ...) #)
} } in
let {
lvl25_sndC
lvl25_sndC =
\ ds_am37 eta3_am38 ->
case ds_am37 of _ { BufferRange dt5_am3b dt6_am3c ->
case writeWord8OffAddr# dt5_am3b 0# 58## eta3_am38
of s2_am3e { __DEFAULT ->
$ww_smUk (plusAddr# dt5_am3b 1#) dt6_am3c s2_am3e
}
} } in
(\ w2_aim1 w3_aim2 ->
case w2_aim1 of _ { BufferRange ww3_aim7 ww4_aim8 ->
case tagToEnum# (<# (minusAddr# ww4_aim8 ww3_aim7) 1#) of _ {
False ->
case writeWord8OffAddr# ww3_aim7 0# 58## w3_aim2
of s2_am34 { __DEFAULT ->
$ww_smUk (plusAddr# ww3_aim7 1#) ww4_aim8 s2_am34
};
True ->
(# w3_aim2, BufferFull 1# ww3_aim7 (lvl25_sndC `cast` ...) #)
}
})
`cast` ...)
ww_smUr
ww1_smUs
w1_smUo } in
let {
$wa3_smTm
$wa3_smTm =
\ @ r_smTd w_smTe ww_smTj ww1_smTk w1_smTg ->
let {
lvl23_sndt
lvl23_sndt =
\ ds_aif6 eta3_aif7 ->
case ds_aif6 of _ { BufferRange dt5_aifa dt6_aifb ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt1_dgtx dt5_aifa eta3_aif7
of _ { (# ds6_alJI, ds7_alJJ #) ->
((w_smTe (BufferRange ds7_alJJ dt6_aifb)) `cast` ...) ds6_alJI
}
} } in
$wstring
$s$fSelectorMetaMetaSel9
(let {
lvl24_sndu
lvl24_sndu =
\ ds_am37 eta3_am38 ->
case ds_am37 of _ { BufferRange dt5_am3b dt6_am3c ->
case writeWord8OffAddr# dt5_am3b 0# 58## eta3_am38
of s2_am3e { __DEFAULT ->
let {
ww2_smT9
ww2_smT9 = plusAddr# dt5_am3b 1# } in
case tagToEnum# (<# (minusAddr# dt6_am3c ww2_smT9) 20#) of _ {
False ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt1_dgtx ww2_smT9 s2_am3e
of _ { (# ds6_alJI, ds7_alJJ #) ->
((w_smTe (BufferRange ds7_alJJ dt6_am3c)) `cast` ...) ds6_alJI
};
True ->
(# s2_am3e, BufferFull 20# ww2_smT9 (lvl23_sndt `cast` ...) #)
}
}
} } in
(\ w2_aim1 w3_aim2 ->
case w2_aim1 of _ { BufferRange ww3_aim7 ww4_aim8 ->
case tagToEnum# (<# (minusAddr# ww4_aim8 ww3_aim7) 1#) of _ {
False ->
case writeWord8OffAddr# ww3_aim7 0# 58## w3_aim2
of s2_am34 { __DEFAULT ->
let {
ww5_smT9
ww5_smT9 = plusAddr# ww3_aim7 1# } in
case tagToEnum# (<# (minusAddr# ww4_aim8 ww5_smT9) 20#) of _ {
False ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt1_dgtx ww5_smT9 s2_am34
of _ { (# ds6_alJI, ds7_alJJ #) ->
((w_smTe (BufferRange ds7_alJJ ww4_aim8)) `cast` ...) ds6_alJI
};
True ->
(# s2_am34, BufferFull 20# ww5_smT9 (lvl23_sndt `cast` ...) #)
}
};
True ->
(# w3_aim2, BufferFull 1# ww3_aim7 (lvl24_sndu `cast` ...) #)
}
})
`cast` ...)
ww_smTj
ww1_smTk
w1_smTg } in
let {
$wv_smV2
$wv_smV2 =
\ @ r_smUT w_smUU ww_smUZ ww1_smV0 w1_smUW ->
let {
lvl23_sndD
lvl23_sndD =
\ ds_alyX eta3_alyY ->
case ds_alyX of _ { BufferRange dt5_alz1 dt6_alz2 ->
case writeWord8OffAddr# dt5_alz1 0# 44## eta3_alyY
of s2_alz4 { __DEFAULT ->
$wa2_smUu w_smUU (plusAddr# dt5_alz1 1#) dt6_alz2 s2_alz4
}
} } in
let {
eta_smKQ
eta_smKQ =
\ w2_smUv w3_smUw ->
case w2_smUv of _ { BufferRange ww3_smUz ww4_smUA ->
case tagToEnum# (<# (minusAddr# ww4_smUA ww3_smUz) 1#) of _ {
False ->
case writeWord8OffAddr# ww3_smUz 0# 44## w3_smUw
of s2_alyU { __DEFAULT ->
$wa2_smUu w_smUU (plusAddr# ww3_smUz 1#) ww4_smUA s2_alyU
};
True ->
(# w3_smUw, BufferFull 1# ww3_smUz (lvl23_sndD `cast` ...) #)
}
} } in
let {
lvl24_sndE
lvl24_sndE =
\ ds_alyX eta3_alyY ->
case ds_alyX of _ { BufferRange dt5_alz1 dt6_alz2 ->
case writeWord8OffAddr# dt5_alz1 0# 44## eta3_alyY
of s2_alz4 { __DEFAULT ->
$wa3_smTm
(eta_smKQ `cast` ...) (plusAddr# dt5_alz1 1#) dt6_alz2 s2_alz4
}
} } in
let {
lvl25_sndF
lvl25_sndF =
\ ds_aif6 eta3_aif7 ->
case ds_aif6 of _ { BufferRange dt5_aifa dt6_aifb ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt_dgtw dt5_aifa eta3_aif7
of _ { (# ds6_alJI, ds7_alJJ #) ->
case tagToEnum# (<# (minusAddr# dt6_aifb ds7_alJJ) 1#) of _ {
False ->
case writeWord8OffAddr# ds7_alJJ 0# 44## ds6_alJI
of s2_alyU { __DEFAULT ->
$wa3_smTm
(eta_smKQ `cast` ...) (plusAddr# ds7_alJJ 1#) dt6_aifb s2_alyU
};
True ->
(# ds6_alJI, BufferFull 1# ds7_alJJ (lvl24_sndE `cast` ...) #)
}
}
} } in
$wstring
$s$fSelectorMetaMetaSel4
(let {
$ww_smUS
$ww_smUS =
\ ww2_smUP ww3_smUQ w2_smUM ->
case tagToEnum# (<# (minusAddr# ww3_smUQ ww2_smUP) 20#) of _ {
False ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt_dgtw ww2_smUP w2_smUM
of _ { (# ds6_alJI, ds7_alJJ #) ->
case tagToEnum# (<# (minusAddr# ww3_smUQ ds7_alJJ) 1#) of _ {
False ->
case writeWord8OffAddr# ds7_alJJ 0# 44## ds6_alJI
of s2_alyU { __DEFAULT ->
$wa3_smTm
(eta_smKQ `cast` ...) (plusAddr# ds7_alJJ 1#) ww3_smUQ s2_alyU
};
True ->
(# ds6_alJI, BufferFull 1# ds7_alJJ (lvl24_sndE `cast` ...) #)
}
};
True ->
(# w2_smUM, BufferFull 20# ww2_smUP (lvl25_sndF `cast` ...) #)
} } in
let {
lvl26_sndG
lvl26_sndG =
\ ds_am37 eta3_am38 ->
case ds_am37 of _ { BufferRange dt5_am3b dt6_am3c ->
case writeWord8OffAddr# dt5_am3b 0# 58## eta3_am38
of s2_am3e { __DEFAULT ->
$ww_smUS (plusAddr# dt5_am3b 1#) dt6_am3c s2_am3e
}
} } in
(\ w2_aim1 w3_aim2 ->
case w2_aim1 of _ { BufferRange ww3_aim7 ww4_aim8 ->
case tagToEnum# (<# (minusAddr# ww4_aim8 ww3_aim7) 1#) of _ {
False ->
case writeWord8OffAddr# ww3_aim7 0# 58## w3_aim2
of s2_am34 { __DEFAULT ->
$ww_smUS (plusAddr# ww3_aim7 1#) ww4_aim8 s2_am34
};
True ->
(# w3_aim2, BufferFull 1# ww3_aim7 (lvl26_sndG `cast` ...) #)
}
})
`cast` ...)
ww_smUZ
ww1_smV0
w1_smUW } in
(\ @ r_XiA6 eta_XiA8 eta1_X5h eta2_B1 ->
case eta1_X5h of _ { BufferRange ww1_aisN ww2_aisO ->
let {
w_smCE
w_smCE = closeCurly1 eta_XiA8 } in
case tagToEnum# (<# (minusAddr# ww2_aisO ww1_aisN) 1#) of _ {
False ->
case writeWord8OffAddr# ww1_aisN 0# 123## eta2_B1
of s2_am4k { __DEFAULT ->
$wv_smV2
(w_smCE `cast` ...) (plusAddr# ww1_aisN 1#) ww2_aisO s2_am4k
};
True ->
(# eta2_B1,
BufferFull
1#
ww1_aisN
((\ ds_am4n eta3_am4o ->
case ds_am4n of _ { BufferRange dt5_am4r dt6_am4s ->
case writeWord8OffAddr# dt5_am4r 0# 123## eta3_am4o
of s2_am4u { __DEFAULT ->
$wv_smV2
(w_smCE `cast` ...) (plusAddr# dt5_am4r 1#) dt6_am4s s2_am4u
}
})
`cast` ...) #)
}
})
`cast` ...
})
Raw
thBigRecordEncode
-- RHS size: {terms: 673, types: 584, coercions: 285}
thBigRecordEncode
thBigRecordEncode =
\ x_agyO ->
toLazyByteString
(case x_agyO
of _ { BigRecord dt_dgsI dt1_dgsJ dt2_dgsK dt3_dgsL dt4_dgsM ->
let {
e_akyY
e_akyY =
commaSep_$scommaSep
((\ @ r_Xix6 eta_Xix8 eta1_B2 eta2_B1 ->
case eta1_B2 of _ { BufferRange ww1_aiee ww2_aief ->
let {
lvl23_sncs
lvl23_sncs =
\ ds_aif6 eta3_aif7 ->
case ds_aif6 of _ { BufferRange dt5_aifa dt6_aifb ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt_dgsI dt5_aifa eta3_aif7
of _ { (# ds6_alJI, ds7_alJJ #) ->
((eta_Xix8 (BufferRange ds7_alJJ dt6_aifb)) `cast` ...) ds6_alJI
}
} } in
let {
lvl24_sncv
lvl24_sncv =
\ ds_am37 eta3_am38 ->
case ds_am37 of _ { BufferRange dt5_am3b dt6_am3c ->
case writeWord8OffAddr# dt5_am3b 0# 58## eta3_am38
of s2_am3e { __DEFAULT ->
let {
ww4_smQt
ww4_smQt = plusAddr# dt5_am3b 1# } in
case tagToEnum# (<# (minusAddr# dt6_am3c ww4_smQt) 20#) of _ {
False ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt_dgsI ww4_smQt s2_am3e
of _ { (# ds6_alJI, ds7_alJJ #) ->
((eta_Xix8 (BufferRange ds7_alJJ dt6_am3c)) `cast` ...) ds6_alJI
};
True ->
(# s2_am3e, BufferFull 20# ww4_smQt (lvl23_sncs `cast` ...) #)
}
}
} } in
$wstring
$s$fSelectorMetaMetaSel4
((\ eta3_X4h eta4_X8x ->
case eta3_X4h of _ { BufferRange ww5_aim7 ww6_aim8 ->
case tagToEnum# (<# (minusAddr# ww6_aim8 ww5_aim7) 1#) of _ {
False ->
case writeWord8OffAddr# ww5_aim7 0# 58## eta4_X8x
of s2_am34 { __DEFAULT ->
let {
ww7_smQt
ww7_smQt = plusAddr# ww5_aim7 1# } in
case tagToEnum# (<# (minusAddr# ww6_aim8 ww7_smQt) 20#) of _ {
False ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt_dgsI ww7_smQt s2_am34
of _ { (# ds6_alJI, ds7_alJJ #) ->
((eta_Xix8 (BufferRange ds7_alJJ ww6_aim8)) `cast` ...) ds6_alJI
};
True ->
(# s2_am34, BufferFull 20# ww7_smQt (lvl23_sncs `cast` ...) #)
}
};
True ->
(# eta4_X8x, BufferFull 1# ww5_aim7 (lvl24_sncv `cast` ...) #)
}
})
`cast` ...)
ww1_aiee
ww2_aief
eta2_B1
})
`cast` ...)
(: ((\ @ r_Xix6 eta_Xix8 eta1_B2 eta2_B1 ->
case eta1_B2 of _ { BufferRange ww1_aiee ww2_aief ->
let {
lvl23_sncw
lvl23_sncw =
\ ds_aif6 eta3_aif7 ->
case ds_aif6 of _ { BufferRange dt5_aifa dt6_aifb ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt1_dgsJ dt5_aifa eta3_aif7
of _ { (# ds6_alJI, ds7_alJJ #) ->
((eta_Xix8 (BufferRange ds7_alJJ dt6_aifb)) `cast` ...) ds6_alJI
}
} } in
let {
lvl24_sncz
lvl24_sncz =
\ ds_am37 eta3_am38 ->
case ds_am37 of _ { BufferRange dt5_am3b dt6_am3c ->
case writeWord8OffAddr# dt5_am3b 0# 58## eta3_am38
of s2_am3e { __DEFAULT ->
let {
ww4_smQB
ww4_smQB = plusAddr# dt5_am3b 1# } in
case tagToEnum# (<# (minusAddr# dt6_am3c ww4_smQB) 20#) of _ {
False ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt1_dgsJ ww4_smQB s2_am3e
of _ { (# ds6_alJI, ds7_alJJ #) ->
((eta_Xix8 (BufferRange ds7_alJJ dt6_am3c)) `cast` ...) ds6_alJI
};
True ->
(# s2_am3e, BufferFull 20# ww4_smQB (lvl23_sncw `cast` ...) #)
}
}
} } in
$wstring
$s$fSelectorMetaMetaSel9
((\ eta3_X4h eta4_X8x ->
case eta3_X4h of _ { BufferRange ww5_aim7 ww6_aim8 ->
case tagToEnum# (<# (minusAddr# ww6_aim8 ww5_aim7) 1#) of _ {
False ->
case writeWord8OffAddr# ww5_aim7 0# 58## eta4_X8x
of s2_am34 { __DEFAULT ->
let {
ww7_smQB
ww7_smQB = plusAddr# ww5_aim7 1# } in
case tagToEnum# (<# (minusAddr# ww6_aim8 ww7_smQB) 20#) of _ {
False ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt1_dgsJ ww7_smQB s2_am34
of _ { (# ds6_alJI, ds7_alJJ #) ->
((eta_Xix8 (BufferRange ds7_alJJ ww6_aim8)) `cast` ...) ds6_alJI
};
True ->
(# s2_am34, BufferFull 20# ww7_smQB (lvl23_sncw `cast` ...) #)
}
};
True ->
(# eta4_X8x, BufferFull 1# ww5_aim7 (lvl24_sncz `cast` ...) #)
}
})
`cast` ...)
ww1_aiee
ww2_aief
eta2_B1
})
`cast` ...)
(: ((\ @ r_Xix6 eta_Xix8 eta1_B2 eta2_B1 ->
case eta1_B2 of _ { BufferRange ww1_aiee ww2_aief ->
let {
lvl23_sncA
lvl23_sncA =
\ ds_aif6 eta3_aif7 ->
case ds_aif6 of _ { BufferRange dt5_aifa dt6_aifb ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt2_dgsK dt5_aifa eta3_aif7
of _ { (# ds6_alJI, ds7_alJJ #) ->
((eta_Xix8 (BufferRange ds7_alJJ dt6_aifb)) `cast` ...) ds6_alJI
}
} } in
let {
lvl24_sncD
lvl24_sncD =
\ ds_am37 eta3_am38 ->
case ds_am37 of _ { BufferRange dt5_am3b dt6_am3c ->
case writeWord8OffAddr# dt5_am3b 0# 58## eta3_am38
of s2_am3e { __DEFAULT ->
let {
ww4_smQJ
ww4_smQJ = plusAddr# dt5_am3b 1# } in
case tagToEnum# (<# (minusAddr# dt6_am3c ww4_smQJ) 20#) of _ {
False ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt2_dgsK ww4_smQJ s2_am3e
of _ { (# ds6_alJI, ds7_alJJ #) ->
((eta_Xix8 (BufferRange ds7_alJJ dt6_am3c)) `cast` ...) ds6_alJI
};
True ->
(# s2_am3e, BufferFull 20# ww4_smQJ (lvl23_sncA `cast` ...) #)
}
}
} } in
$wstring
$s$fSelectorMetaMetaSel14
((\ eta3_X4h eta4_X8x ->
case eta3_X4h of _ { BufferRange ww5_aim7 ww6_aim8 ->
case tagToEnum# (<# (minusAddr# ww6_aim8 ww5_aim7) 1#) of _ {
False ->
case writeWord8OffAddr# ww5_aim7 0# 58## eta4_X8x
of s2_am34 { __DEFAULT ->
let {
ww7_smQJ
ww7_smQJ = plusAddr# ww5_aim7 1# } in
case tagToEnum# (<# (minusAddr# ww6_aim8 ww7_smQJ) 20#) of _ {
False ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt2_dgsK ww7_smQJ s2_am34
of _ { (# ds6_alJI, ds7_alJJ #) ->
((eta_Xix8 (BufferRange ds7_alJJ ww6_aim8)) `cast` ...)
ds6_alJI
};
True ->
(# s2_am34, BufferFull 20# ww7_smQJ (lvl23_sncA `cast` ...) #)
}
};
True ->
(# eta4_X8x, BufferFull 1# ww5_aim7 (lvl24_sncD `cast` ...) #)
}
})
`cast` ...)
ww1_aiee
ww2_aief
eta2_B1
})
`cast` ...)
(: ((\ @ r_Xix6 eta_Xix8 eta1_B2 eta2_B1 ->
case eta1_B2 of _ { BufferRange ww1_aiee ww2_aief ->
let {
lvl23_sncE
lvl23_sncE =
\ ds_aif6 eta3_aif7 ->
case ds_aif6 of _ { BufferRange dt5_aifa dt6_aifb ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt3_dgsL dt5_aifa eta3_aif7
of _ { (# ds6_alJI, ds7_alJJ #) ->
((eta_Xix8 (BufferRange ds7_alJJ dt6_aifb)) `cast` ...) ds6_alJI
}
} } in
let {
lvl24_sncH
lvl24_sncH =
\ ds_am37 eta3_am38 ->
case ds_am37 of _ { BufferRange dt5_am3b dt6_am3c ->
case writeWord8OffAddr# dt5_am3b 0# 58## eta3_am38
of s2_am3e { __DEFAULT ->
let {
ww4_smQR
ww4_smQR = plusAddr# dt5_am3b 1# } in
case tagToEnum# (<# (minusAddr# dt6_am3c ww4_smQR) 20#) of _ {
False ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt3_dgsL ww4_smQR s2_am3e
of _ { (# ds6_alJI, ds7_alJJ #) ->
((eta_Xix8 (BufferRange ds7_alJJ dt6_am3c)) `cast` ...) ds6_alJI
};
True ->
(# s2_am3e, BufferFull 20# ww4_smQR (lvl23_sncE `cast` ...) #)
}
}
} } in
$wstring
$s$fSelectorMetaMetaSel19
((\ eta3_X4h eta4_X8x ->
case eta3_X4h of _ { BufferRange ww5_aim7 ww6_aim8 ->
case tagToEnum# (<# (minusAddr# ww6_aim8 ww5_aim7) 1#) of _ {
False ->
case writeWord8OffAddr# ww5_aim7 0# 58## eta4_X8x
of s2_am34 { __DEFAULT ->
let {
ww7_smQR
ww7_smQR = plusAddr# ww5_aim7 1# } in
case tagToEnum# (<# (minusAddr# ww6_aim8 ww7_smQR) 20#) of _ {
False ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt3_dgsL ww7_smQR s2_am34
of _ { (# ds6_alJI, ds7_alJJ #) ->
((eta_Xix8 (BufferRange ds7_alJJ ww6_aim8)) `cast` ...)
ds6_alJI
};
True ->
(# s2_am34,
BufferFull 20# ww7_smQR (lvl23_sncE `cast` ...) #)
}
};
True ->
(# eta4_X8x, BufferFull 1# ww5_aim7 (lvl24_sncH `cast` ...) #)
}
})
`cast` ...)
ww1_aiee
ww2_aief
eta2_B1
})
`cast` ...)
(: ((\ @ r_Xix6 eta_Xix8 eta1_B2 eta2_B1 ->
case eta1_B2 of _ { BufferRange ww1_aiee ww2_aief ->
let {
lvl23_sncI
lvl23_sncI =
\ ds_aif6 eta3_aif7 ->
case ds_aif6 of _ { BufferRange dt5_aifa dt6_aifb ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt4_dgsM dt5_aifa eta3_aif7
of _ { (# ds6_alJI, ds7_alJJ #) ->
((eta_Xix8 (BufferRange ds7_alJJ dt6_aifb)) `cast` ...) ds6_alJI
}
} } in
let {
lvl24_sncL
lvl24_sncL =
\ ds_am37 eta3_am38 ->
case ds_am37 of _ { BufferRange dt5_am3b dt6_am3c ->
case writeWord8OffAddr# dt5_am3b 0# 58## eta3_am38
of s2_am3e { __DEFAULT ->
let {
ww4_smQZ
ww4_smQZ = plusAddr# dt5_am3b 1# } in
case tagToEnum# (<# (minusAddr# dt6_am3c ww4_smQZ) 20#) of _ {
False ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt4_dgsM ww4_smQZ s2_am3e
of _ { (# ds6_alJI, ds7_alJJ #) ->
((eta_Xix8 (BufferRange ds7_alJJ dt6_am3c)) `cast` ...)
ds6_alJI
};
True ->
(# s2_am3e,
BufferFull 20# ww4_smQZ (lvl23_sncI `cast` ...) #)
}
}
} } in
$wstring
$s$fSelectorMetaMetaSel24
((\ eta3_X4h eta4_X8x ->
case eta3_X4h of _ { BufferRange ww5_aim7 ww6_aim8 ->
case tagToEnum# (<# (minusAddr# ww6_aim8 ww5_aim7) 1#) of _ {
False ->
case writeWord8OffAddr# ww5_aim7 0# 58## eta4_X8x
of s2_am34 { __DEFAULT ->
let {
ww7_smQZ
ww7_smQZ = plusAddr# ww5_aim7 1# } in
case tagToEnum# (<# (minusAddr# ww6_aim8 ww7_smQZ) 20#)
of _ {
False ->
case {__pkg_ccall bytestring-0.10.8.1 _hs_bytestring_long_long_int_dec Int#
-> Addr#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_alJD
dt4_dgsM ww7_smQZ s2_am34
of _ { (# ds6_alJI, ds7_alJJ #) ->
((eta_Xix8 (BufferRange ds7_alJJ ww6_aim8)) `cast` ...)
ds6_alJI
};
True ->
(# s2_am34,
BufferFull 20# ww7_smQZ (lvl23_sncI `cast` ...) #)
}
};
True ->
(# eta4_X8x,
BufferFull 1# ww5_aim7 (lvl24_sncL `cast` ...) #)
}
})
`cast` ...)
ww1_aiee
ww2_aief
eta2_B1
})
`cast` ...)
[])))) } in
(\ @ r_akyZ eta_akz0 ->
let {
w_aisG
w_aisG =
(e_akyY `cast` ...) ((closeCurly1 eta_akz0) `cast` ...) } in
\ w1_aisH w2_aisI ->
case w1_aisH of _ { BufferRange ww1_aisN ww2_aisO ->
$wopenCurly w_aisG ww1_aisN ww2_aisO w2_aisI
})
`cast` ...
})
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment