Skip to content

Instantly share code, notes, and snippets.

@AndreasPK

AndreasPK/muchCoreSuchWow.hs

Created Mar 27, 2020
Star
Embed
What would you like to do?
Learn more about clone URLs
Download ZIP
Raw
muchCoreSuchWow.hs
==================== Tidy Core ====================
Result size of Tidy Core
= {terms: 17,361, types: 21,327, coercions: 5,089, joins: 99/404}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
$trModule2 = "Load"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
$trModule1 = TrNameS $trModule2
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
$trModule4 = "main"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
$trModule3 = TrNameS $trModule4
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$trModule = Module $trModule3 $trModule1
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
load4 = "tmp.png"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
load3 = unpackCString# load4
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
load7
= "Pattern match failure in do expression at Load.hs:25:5-14"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
load6 = unpackCString# load7
-- RHS size: {terms: 3, types: 10, coercions: 8, joins: 0/0}
load5 = noinline (failIO1 `cast` <Co:8>) load6
-- RHS size: {terms: 13, types: 18, coercions: 5, joins: 0/0}
lvl_rOx7
= \ xs_XmBV eta_B1 ->
case xs_XmBV `cast` <Co:5> of { D# ipv_spg9 ->
case touch# ipv_spg9 eta_B1 of state'_apfW { __DEFAULT ->
(# state'_apfW, () #)
}
}
-- RHS size: {terms: 5, types: 15, coercions: 13, joins: 0/0}
$s$fArrayVScse_$s$fArrayVScse_$ctoVector
= \ ds_ajak ->
case ds_ajak `cast` <Co:7> of { VGImage dt_ajan dt1_ajao v1_ajap ->
v1_ajap `cast` <Co:6>
}
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
f2_rOx8 = I# 1#
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
f1_rOx9 = :. Z f2_rOx8
-- RHS size: {terms: 3, types: 4, coercions: 0, joins: 0/0}
f3_rOxa = :. f1_rOx9 f2_rOx8
-- RHS size: {terms: 6, types: 20, coercions: 10, joins: 0/0}
lvl1_rOxb
= \ x_akNT ->
RDImage ((ADelayed f3_rOxa (\ _ -> x_akNT)) `cast` <Co:10>)
-- RHS size: {terms: 28, types: 3, coercions: 0, joins: 0/0}
lvl2_rOxc
= \ w1_am4D eta_B1 ->
case w1_am4D of {
InputBMP -> $w$cdecode3 eta_B1;
InputGIF -> $w$cdecode8 eta_B1;
InputHDR -> $w$cdecode12 eta_B1;
InputJPG -> $w$cdecode16 eta_B1;
InputPNG -> $w$cdecode21 eta_B1;
InputTIF -> $w$cdecode34 eta_B1;
InputPNM -> $fReadableImagePBM23 eta_B1;
InputTGA -> $w$cdecode25 eta_B1
}
-- RHS size: {terms: 9, types: 48, coercions: 0, joins: 0/0}
$s$fReadableImageInputFormat1
= ($fReadableImageBMP2, $fReadableImageGIF2, $fReadableImageHDR2,
$fReadableImageJPG2, $fReadableImagePNG2, $fReadableImageTGA2,
$fReadableImageTIF2, $fReadableImagePPM4)
-- RHS size: {terms: 3, types: 5, coercions: 0, joins: 0/0}
$s$fReadableImageInputFormat
= C:Readable $fImageFormatInputFormat lvl2_rOxc
-- RHS size: {terms: 26, types: 8, coercions: 0, joins: 0/0}
$wlvl_rOxd
= \ w_sDaT w1_sDaV ->
case w_sDaT of {
OutputBMP -> $fWritableImageBMP15 w1_sDaV;
OutputGIF -> $fWritableImageGIF9 w1_sDaV;
OutputHDR -> $fWritableImageHDR9 w1_sDaV;
OutputJPG -> $w$cencode6 [] w1_sDaV;
OutputPNG -> $fWritableImagePNG23 w1_sDaV;
OutputTIF -> $fWritableImageTIF34 w1_sDaV;
OutputTGA -> $fWritableImageTGA10 w1_sDaV
}
-- RHS size: {terms: 6, types: 8, coercions: 0, joins: 0/0}
lvl3_rOxe = \ w_sDaT _ w2_sDaV -> $wlvl_rOxd w_sDaT w2_sDaV
-- RHS size: {terms: 8, types: 42, coercions: 0, joins: 0/0}
$s$fWritableImageOutputFormat1
= ($fWritableImageBMP2, $fWritableImageGIF2, $fWritableImageHDR2,
$fWritableImageJPG2, $fWritableImagePNG2, $fWritableImageTGA2,
$fWritableImageTIF4)
-- RHS size: {terms: 3, types: 5, coercions: 0, joins: 0/0}
$s$fWritableImageOutputFormat
= C:Writable $fImageFormatOutputFormat lvl3_rOxe
-- RHS size: {terms: 7, types: 18, coercions: 7, joins: 0/0}
$s$fArrayVScse_$s$fMArrayVScse_$cdeepSeqImage
= \ @ a_aidV ds_aidW b1_aidX ->
case ds_aidW `cast` <Co:7> of { VGImage dt_aie0 dt1_aie1 v1_aie2 ->
b1_aidX
}
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl4_rOxf = I# 0#
-- RHS size: {terms: 4, types: 12, coercions: 9, joins: 0/0}
$s$fArrayVScse_$s$fMArrayVScse_$cmdims
= \ @ s_ai4A ds_ai4B -> mdimsVG (ds_ai4B `cast` <Co:9>)
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl5_rOxg = "error"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl6_rOxh = unpackCString# lvl5_rOxg
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl7_rOxi
= "vector-0.12.1.2-c720dde2c75edfd48629ef6dcf8b985bc2ae978a"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl8_rOxj = unpackCString# lvl7_rOxi
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl9_rOxk = "Data.Vector.Storable.Mutable"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl10_rOxl = unpackCString# lvl9_rOxk
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl11_rOxm = ".\\\\Data\\\\Vector\\\\Storable\\\\Mutable.hs"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl12_rOxn = unpackCString# lvl11_rOxm
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl13_rOxo = I# 143#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl14_rOxp = I# 16#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl15_rOxq = I# 79#
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl16_rOxr
= SrcLoc
lvl8_rOxj
lvl10_rOxl
lvl12_rOxn
lvl13_rOxo
lvl14_rOxp
lvl13_rOxo
lvl15_rOxq
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl17_rOxs = PushCallStack lvl6_rOxh lvl16_rOxr EmptyCallStack
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl18_rOxt = I# 142#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl19_rOxu = I# 15#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl20_rOxv = I# 77#
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl21_rOxw
= SrcLoc
lvl8_rOxj
lvl10_rOxl
lvl12_rOxn
lvl18_rOxt
lvl19_rOxu
lvl18_rOxt
lvl20_rOxv
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl22_rOxx = PushCallStack lvl6_rOxh lvl21_rOxw EmptyCallStack
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl23_rOxy = "Storable.basicUnsafeNew: negative length: "#
-- RHS size: {terms: 15, types: 24, coercions: 4, joins: 0/0}
$wlvl1_rOxz
= \ @ m_sDb0 ww_sDb4 ->
error
(lvl22_rOxx `cast` <Co:4>)
(unpackAppendCString#
lvl23_rOxy
(case $wshowSignedInt 0# ww_sDb4 [] of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}))
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl24_rOxA = ".\\\\Data\\\\Vector\\\\Generic\\\\Mutable.hs"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl25_rOxB = unpackCString# lvl24_rOxA
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl26_rOxC = "new"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl27_rOxD = unpackCString# lvl26_rOxC
-- RHS size: {terms: 9, types: 13, coercions: 0, joins: 0/0}
lvl28_rOxE
= \ @ m_ahGX n#_ahJk ->
$wcheckError
lvl25_rOxB 591# Bounds lvl27_rOxD (checkLength_msg# n#_ahJk)
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl29_rOxF = ": dimensions are expected to be positive: "#
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
lvl30_rOxG = : $fShow(,)2 []
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl31_rOxH
= "Graphics.Image.Interface.Vector.Generic.makeImageWindowedVG (window size)"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl32_rOxI = showLitString (unpackCString# lvl31_rOxH) $fShow[]1
-- RHS size: {terms: 34, types: 31, coercions: 4, joins: 0/0}
$wlvl2_rOxJ
= \ ww_sDbk ww1_sDbo ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
ww_sDbk
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDbo w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl32_rOxI)
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl33_rOxK
= "hip-1.5.5.0-8691758ea00a6102d967ab7e4defa39e8b793f88"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl34_rOxL = unpackCString# lvl33_rOxK
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl35_rOxM = "Graphics.Image.Interface.Vector.Generic"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl36_rOxN = unpackCString# lvl35_rOxM
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl37_rOxO
= "src\\\\Graphics\\\\Image\\\\Interface\\\\Vector\\\\Generic.hs"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl38_rOxP = unpackCString# lvl37_rOxO
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl39_rOxQ = I# 147#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl40_rOxR = I# 9#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl41_rOxS = I# 151#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl42_rOxT = I# 66#
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl43_rOxU
= SrcLoc
lvl34_rOxL
lvl36_rOxN
lvl38_rOxP
lvl39_rOxQ
lvl40_rOxR
lvl41_rOxS
lvl42_rOxT
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl44_rOxV = PushCallStack lvl6_rOxh lvl43_rOxU EmptyCallStack
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl45_rOxW
= "Window index is outside the image dimensions. window start: "#
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl46_rOxX = " window size: "#
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl47_rOxY = " image dimensions: "#
-- RHS size: {terms: 90, types: 84, coercions: 4, joins: 0/0}
$wlvl3_rOxZ
= \ @ s_sDbr
ww_sDbA
ww1_sDbE
ww2_sDbI
ww3_sDbM
ww4_sDbQ
ww5_sDbU ->
error
(lvl44_rOxV `cast` <Co:4>)
(unpackAppendCString#
lvl45_rOxW
(++_$s++
(unpackAppendCString#
lvl46_rOxX
(++_$s++
(unpackAppendCString#
lvl47_rOxY
(: $fShow(,)4
(case $wshowSignedInt
0#
ww4_sDbQ
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww5_sDbU w2_aiHS of
{ (# ww7_aiI4, ww8_aiI5 #) ->
: ww7_aiI4 ww8_aiI5
})
[]))
of
{ (# ww7_aiI4, ww8_aiI5 #) ->
: ww7_aiI4 ww8_aiI5
})))
$fShow(,)4
(case $wshowSignedInt
0#
ww2_sDbI
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww3_sDbM w2_aiHS of
{ (# ww7_aiI4, ww8_aiI5 #) ->
: ww7_aiI4 ww8_aiI5
})
[]))
of
{ (# ww7_aiI4, ww8_aiI5 #) ->
: ww7_aiI4 ww8_aiI5
})))
$fShow(,)4
(case $wshowSignedInt
0#
ww_sDbA
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDbE w2_aiHS of
{ (# ww7_aiI4, ww8_aiI5 #) ->
: ww7_aiI4 ww8_aiI5
})
[]))
of
{ (# ww7_aiI4, ww8_aiI5 #) ->
: ww7_aiI4 ww8_aiI5
})))
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl48_rOy0 = "Storable.basicUnsafeNew: length too large: "#
-- RHS size: {terms: 15, types: 24, coercions: 4, joins: 0/0}
$wlvl4_rOy1
= \ @ s_sDbX ww_sDc1 ->
error
(lvl17_rOxs `cast` <Co:4>)
(unpackAppendCString#
lvl48_rOy0
(case $wshowSignedInt 0# ww_sDc1 [] of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}))
-- RHS size: {terms: 15, types: 24, coercions: 4, joins: 0/0}
$wlvl5_rOy2
= \ @ s_sDc4 ww_sDc8 ->
error
(lvl22_rOxx `cast` <Co:4>)
(unpackAppendCString#
lvl23_rOxy
(case $wshowSignedInt 0# ww_sDc8 [] of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}))
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
file_rOy3 = ".\\\\Data\\\\Vector\\\\Generic.hs"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl49_rOy4 = unpackCString# file_rOy3
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl50_rOy5 = "(!)"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl51_rOy6 = unpackCString# lvl50_rOy5
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl53_rOy8 = "backpermuteVG"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl54_rOy9 = unpackCString# lvl53_rOy8
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl55_rOya = "Index out of bounds <"#
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl56_rOyb = ">: "#
-- RHS size: {terms: 60, types: 56, coercions: 0, joins: 0/0}
$wlvl6_rOyc
= \ ww_sDcv ww1_sDcA ww2_sDcF ww3_sDcJ ->
errorVG
lvl54_rOy9
(unpackAppendCString#
lvl55_rOya
(++_$s++
(unpackAppendCString#
lvl56_rOyb
(: $fShow(,)4
(case $wshowSignedInt
0#
ww_sDcv
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDcA w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)4
(case $wshowSignedInt
0#
ww2_sDcF
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww3_sDcJ w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl57_rOyd = "slice"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl58_rOye = unpackCString# lvl57_rOyd
-- RHS size: {terms: 12, types: 7, coercions: 0, joins: 0/0}
lvl59_rOyf
= \ n#_ak2V i#_ak2N m#_ak2R ->
$wcheckError
lvl49_rOy4
399#
Bounds
lvl58_rOye
(checkSlice_msg# i#_ak2N m#_ak2R n#_ak2V)
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl60_rOyg
= "Graphics.Image.Interface.Vector.Generic.makeImageVGM"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl61_rOyh = showLitString (unpackCString# lvl60_rOyg) $fShow[]1
-- RHS size: {terms: 34, types: 31, coercions: 4, joins: 0/0}
$wlvl7_rOyi
= \ ww_sDcT ww1_sDcX ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
ww_sDcT
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDcX w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl61_rOyh)
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl62_rOyj = "multVG"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl63_rOyk = unpackCString# lvl62_rOyj
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl64_rOyl
= "Inner dimensions of images must agree, but received: "#
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl65_rOym = " X "#
-- RHS size: {terms: 60, types: 57, coercions: 0, joins: 0/0}
$wlvl8_rOyn
= \ w_sDd0 ww_sDd6 ww1_sDda ww2_sDde ->
errorVG
lvl63_rOyk
(unpackAppendCString#
lvl64_rOyl
(++_$s++
(unpackAppendCString#
lvl65_rOym
(: $fShow(,)4
(case $wshowSignedInt
0#
ww1_sDda
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww2_sDde w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)4
(case $wshowSignedInt
0#
w_sDd0
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww_sDd6 w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
-- RHS size: {terms: 2, types: 4, coercions: 0, joins: 0/0}
$s$fArrayVScse_$s$fArrayVScse_$ccompute = \ ds_ajax -> ds_ajax
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl66_rOyo = "fromVectorVG"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl67_rOyp = unpackCString# lvl66_rOyo
-- RHS size: {terms: 1, types: 4, coercions: 13, joins: 0/0}
$s$fArrayVScse_$s$fBaseArrayVScse_$cdims = dimsVG `cast` <Co:13>
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl68_rOyq = "Graphics.Image.Interface.Repa.Generic.makeImageR"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl69_rOyr = showLitString (unpackCString# lvl68_rOyq) $fShow[]1
-- RHS size: {terms: 34, types: 31, coercions: 4, joins: 0/0}
$wlvl9_rOys
= \ ww_sDdx ww1_sDdC ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
ww_sDdx
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDdC w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl69_rOyr)
-- RHS size: {terms: 45, types: 43, coercions: 15, joins: 0/0}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cmakeImage
= \ sz_akTF f_akTG ->
case sz_akTF of { (ipv_akTN, ipv1_akTO) ->
case ipv_akTN of wild_aiCr { I# x_aiCt ->
case <=# x_aiCt 0# of {
__DEFAULT ->
case ipv1_akTO of wild1_XiPg { I# x1_XiPk ->
case <=# x1_XiPk 0# of {
__DEFAULT ->
(RDImage
((ADelayed
(:. (:. Z wild_aiCr) wild1_XiPg)
(\ x2_akU2 -> f_akTG (sh2ix x2_akU2)))
`cast` <Co:6>))
`cast` <Co:9>;
1# -> case $wlvl9_rOys x_aiCt x1_XiPk of wild2_00 { }
}
};
1# ->
case ipv1_akTO of { I# ww1_sDdC ->
case $wlvl9_rOys x_aiCt ww1_sDdC of wild1_00 { }
}
}
}
}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl70_rOyt
= "Graphics.Image.Interface.Repa.Generic.makeImageWindowedR"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl71_rOyu = showLitString (unpackCString# lvl70_rOyt) $fShow[]1
-- RHS size: {terms: 34, types: 31, coercions: 4, joins: 0/0}
$wlvl10_rOyv
= \ ww_sDdM ww1_sDdR ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
ww_sDdM
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDdR w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl71_rOyu)
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl72_rOyw
= "repa-3.4.1.4-601a904fda449415e9a6a22c218bba8c6839f195"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl73_rOyx = unpackCString# lvl72_rOyw
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl74_rOyy = "Data.Array.Repa.Repr.Undefined"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl75_rOyz = unpackCString# lvl74_rOyy
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl76_rOyA = ".\\Data\\Array\\Repa\\Repr\\Undefined.hs"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl77_rOyB = unpackCString# lvl76_rOyA
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl78_rOyC = I# 32#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl79_rOyD = I# 11#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl80_rOyE = I# 54#
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl81_rOyF
= SrcLoc
lvl73_rOyx
lvl75_rOyz
lvl77_rOyB
lvl78_rOyC
lvl79_rOyD
lvl78_rOyC
lvl80_rOyE
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl82_rOyG = PushCallStack lvl6_rOxh lvl81_rOyF EmptyCallStack
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl83_rOyH = "Repa: array element is undefined."#
-- RHS size: {terms: 4, types: 4, coercions: 4, joins: 0/0}
lvl84_rOyI
= error (lvl82_rOyG `cast` <Co:4>) (unpackCString# lvl83_rOyH)
-- RHS size: {terms: 179, types: 119, coercions: 15, joins: 1/6}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cmakeImageWindowed
= \ sz_akNY wIx_akNZ wSz_akO0 f_akO1 eta_B1 ->
case sz_akNY of { (ipv_akO4, ipv1_akO5) ->
case wIx_akNZ of { (ipv2_akO9, ipv3_akOa) ->
case wSz_akO0 of { (ipv4_akOj, ipv5_akOk) ->
case ipv_akO4 of wild_aiCr { I# x_aiCt ->
case <=# x_aiCt 0# of {
__DEFAULT ->
case ipv1_akO5 of wild1_XiNV { I# x1_XiNZ ->
case <=# x1_XiNZ 0# of {
__DEFAULT ->
case ipv5_akOk of { I# x2_akOW ->
case ipv3_akOa of { I# y_akP0 ->
case ipv4_akOj of { I# x3_akON ->
case ipv2_akO9 of { I# y1_akOR ->
let { y2_akPx = +# x2_akOW y_akP0 } in
let { y3_akQ0 = +# x3_akON y1_akOR } in
(RDImage
((ADelayed
(:. (:. Z wild_aiCr) wild1_XiNV)
(\ ix_akS4 ->
case ix_akS4 of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH0p sh2'1_sH0q ->
case sh2'1_sH0q of { I# y4_sH0t ->
case sh2'_al1I of { I# y5_sH0w ->
let { x4_al2u = +# (*# y4_sH0t x1_XiNZ) y5_sH0w } in
case quotInt# x4_al2u x1_XiNZ of wild11_al2A { __DEFAULT ->
case remInt# x4_al2u x1_XiNZ of wild12_al2P { __DEFAULT ->
let { dt1_al2Q = I# wild11_al2A } in
let { j_al0S = I# wild12_al2P } in
join {
$j_snDP
= case >=# wild11_al2A y1_akOR of {
__DEFAULT -> eta_B1 (dt1_al2Q, j_al0S);
1# ->
case <# wild11_al2A y3_akQ0 of {
__DEFAULT -> eta_B1 (dt1_al2Q, j_al0S);
1# ->
case >=# wild12_al2P y_akP0 of {
__DEFAULT -> eta_B1 (dt1_al2Q, j_al0S);
1# ->
case <# wild12_al2P y2_akPx of {
__DEFAULT -> eta_B1 (dt1_al2Q, j_al0S);
1# -> lvl84_rOyI
}
}
}
} } in
case >=# wild11_al2A y1_akOR of {
__DEFAULT -> jump $j_snDP;
1# ->
case <# wild11_al2A y3_akQ0 of {
__DEFAULT -> jump $j_snDP;
1# ->
case >=# wild12_al2P y_akP0 of {
__DEFAULT -> jump $j_snDP;
1# ->
case <# wild12_al2P y2_akPx of {
__DEFAULT -> jump $j_snDP;
1# -> f_akO1 (dt1_al2Q, j_al0S)
}
}
}
}
}
}
}
}
}
}))
`cast` <Co:6>))
`cast` <Co:9>
}
}
}
};
1# -> case $wlvl10_rOyv x_aiCt x1_XiNZ of wild2_00 { }
}
};
1# ->
case ipv1_akO5 of { I# ww1_sDdR ->
case $wlvl10_rOyv x_aiCt ww1_sDdR of wild1_00 { }
}
}
}
}
}
}
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
lvl85_rOyJ = :. Z lvl4_rOxf
-- RHS size: {terms: 3, types: 4, coercions: 0, joins: 0/0}
lvl86_rOyK = :. lvl85_rOyJ lvl4_rOxf
-- RHS size: {terms: 112, types: 185, coercions: 58, joins: 0/6}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cmap
= \ @ cs'_akNc @ e'_akNd $dArray_akNe eta_B2 eta1_B1 ->
case eta1_B1 `cast` <Co:7> of {
RTImage arr_akNo ->
case arr_akNo `cast` <Co:5> of { AUnboxed sh1_sH0z ds1_sH0A ->
case sh1_sH0z of wild2_sH0D { :. sh2_sH0E sh3_sH0F ->
case sh3_sH0F of { I# y_sH0P ->
let { $dMArray_sl3U = $p2Array $dArray_akNe } in
let { $dBaseArray1_sl3T = $p1MArray $dMArray_sl3U } in
let { $dColorSpace_sl3S = $p2BaseArray $dBaseArray1_sl3T } in
let { lvl205_sHGW = $p7ColorSpace $dColorSpace_sl3S } in
let { lvl206_sH0B = $p1Unbox lvl205_sHGW } in
(RDImage
((ADelayed
wild2_sH0D
(\ x_anAm ->
eta_B2
(fromComponents
$dColorSpace_sl3S
((basicUnsafeIndexM
lvl206_sH0B
$fMonadId
(ds1_sH0A `cast` <Co:7>)
(case x_anAm of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH0I sh2'1_sH0J ->
case sh2'1_sH0J of { I# y1_sH0M ->
case sh2'_al1I of { I# y2_sH0S ->
I# (+# (*# y1_sH0M y_sH0P) y2_sH0S)
}
}
}
}))
`cast` <Co:4>))))
`cast` <Co:6>))
`cast` <Co:9>
}
}
};
RDImage arr_akNr ->
case arr_akNr `cast` <Co:5> of { ADelayed sh1_sH0V ds1_sH0W ->
case sh1_sH0V of wild2_sH0Y { :. ds2_sH0Z d_sH10 ->
case d_sH10 of { I# y_sH1a ->
(RDImage
((ADelayed
wild2_sH0Y
(\ x_anAm ->
eta_B2
(ds1_sH0W
(case x_anAm of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH13 sh2'1_sH14 ->
case sh2'1_sH14 of { I# y1_sH17 ->
case sh2'_al1I of { I# y2_sH1d ->
let { x1_al2u = +# (*# y1_sH17 y_sH1a) y2_sH1d } in
case quotInt# x1_al2u y_sH1a of wild8_al2A { __DEFAULT ->
case remInt# x1_al2u y_sH1a of wild9_al2P { __DEFAULT ->
:. (:. Z (I# wild8_al2A)) (I# wild9_al2P)
}
}
}
}
}
}))))
`cast` <Co:6>))
`cast` <Co:9>
}
}
}
}
-- RHS size: {terms: 12, types: 9, coercions: 0, joins: 0/0}
lvl87_rOyL
= \ @ e'_akMv @ cs'_akMu x_ajJ5 n#_ajJb ->
$wcheckError
lvl49_rOy4 248# Bounds lvl51_rOy6 (checkIndex_msg# x_ajJ5 n#_ajJb)
-- RHS size: {terms: 114, types: 168, coercions: 65, joins: 0/7}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cimap
= \ @ cs'_akMu @ e'_akMv $dArray_akMw eta_B2 eta1_B1 ->
case eta1_B1 `cast` <Co:7> of {
RTImage arr_akMG ->
case arr_akMG `cast` <Co:5> of { AUnboxed sh1_sH1g ds1_sH1h ->
case sh1_sH1g of wild2_sH1n { :. sh2_sH1o sh3_sH1p ->
case sh3_sH1p of { I# y_sH1v ->
let { $dMArray_sl4G = $p2Array $dArray_akMw } in
let { $dBaseArray1_sl4F = $p1MArray $dMArray_sl4G } in
let { $dColorSpace_sl4E = $p2BaseArray $dBaseArray1_sl4F } in
let { lvl205_sHHf = $p7ColorSpace $dColorSpace_sl4E } in
let { lvl206_sH1L = $p1Unbox lvl205_sHHf } in
let {
lvl207_sH1G = basicLength lvl206_sH1L (ds1_sH1h `cast` <Co:7>) } in
(RDImage
((ADelayed
wild2_sH1n
(\ sh_akMJ ->
case sh_akMJ of { :. ipv_akMM ipv1_akMN ->
case ipv_akMM of { :. ds2_sH1k i_sH1l ->
case i_sH1l of wild5_sH1r { I# y1_sH1s ->
case ipv1_akMN of wild6_sH1x { I# y2_sH1y ->
eta_B2
(wild5_sH1r, wild6_sH1x)
(let { x_ajJ5 = +# (*# y1_sH1s y_sH1v) y2_sH1y } in
case >=# x_ajJ5 0# of {
__DEFAULT ->
case lvl207_sH1G of { I# n#_ajJb -> lvl87_rOyL x_ajJ5 n#_ajJb };
1# ->
case lvl207_sH1G of { I# y3_ajJg ->
case <# x_ajJ5 y3_ajJg of {
__DEFAULT -> lvl87_rOyL x_ajJ5 y3_ajJg;
1# ->
fromComponents
$dColorSpace_sl4E
((basicUnsafeIndexM
lvl206_sH1L $fMonadId (ds1_sH1h `cast` <Co:7>) (I# x_ajJ5))
`cast` <Co:4>)
}
}
})
}
}
}
}))
`cast` <Co:6>))
`cast` <Co:9>
}
}
};
RDImage arr_akMV ->
case arr_akMV `cast` <Co:5> of { ADelayed sh1_sH1O ds1_sH1P ->
(RDImage
((ADelayed
sh1_sH1O
(\ sh_akMY ->
case sh_akMY of sh2_akMZ { :. ipv_akN1 ipv1_akN2 ->
case ipv_akN1 of { :. ds2_sH1S i_sH1T ->
eta_B2 (i_sH1T, ipv1_akN2) (ds1_sH1P sh2_akMZ)
}
}))
`cast` <Co:6>))
`cast` <Co:9>
}
}
-- RHS size: {terms: 865, types: 905, coercions: 236, joins: 7/46}
$s$fArrayRSUcse_$s$fArrayRSUcse_$czipWith
= \ @ cs1_akKL
@ e1_akKM
@ cs2_akKN
@ e2_akKO
$dArray_akKP
$dArray1_akKQ
eta_B3
eta1_B2
eta2_B1 ->
join {
$w$j_sDeK ww_sDex ww1_sDeB ww2_sDeH w_sDeq
= case eta2_B1 `cast` <Co:7> of {
RTImage arr_akLj ->
case arr_akLj `cast` <Co:5> of { AUnboxed sh2_sH3g ds2_sH3h ->
case sh2_sH3g of { :. sh1_sH3l sh4_sH3m ->
case sh4_sH3m of { I# y_sH3w ->
let { $dMArray_sl5b = $p2Array $dArray1_akKQ } in
let { $dBaseArray1_sl5a = $p1MArray $dMArray_sl5b } in
let { $dColorSpace_sl59 = $p2BaseArray $dBaseArray1_sl5a } in
let { lvl205_sHIm = $p7ColorSpace $dColorSpace_sl59 } in
let { lvl206_sH3i = $p1Unbox lvl205_sHIm } in
let {
sc_sKZt
= \ ix_akLq ->
fromComponents
$dColorSpace_sl59
((basicUnsafeIndexM
lvl206_sH3i
$fMonadId
(ds2_sH3h `cast` <Co:7>)
(case ix_akLq of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH3p sh2'1_sH3q ->
case sh2'1_sH3q of { I# y1_sH3t ->
case sh2'_al1I of { I# y2_sH3z ->
I# (+# (*# y1_sH3t y_sH3w) y2_sH3z)
}
}
}
}))
`cast` <Co:4>) } in
case sh1_sH3l of ww3_sH1Z { :. ww4_sH20 ww5_sH21 ->
case ww5_sH21 of ww6_sH23 { I# ww7_sH24 ->
join {
fail_sl53 _
= let { ds4_smmE = I# ww2_sDeH } in
let { ds3_sDCf = I# ww1_sDeB } in
let { ds5_smmD = :. ww_sDex ds3_sDCf } in
let { wild4_smmC = :. ds5_smmD ds4_smmE } in
case ww7_sH24 of ds9_akLP {
__DEFAULT ->
join {
$j_srqJ dt_XnHI
= let {
get_al5q
= \ ix_al5s ->
eta_B3
(w_sDeq
(case ix_al5s of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2a sh2'1_sH2b ->
case sh2'1_sH2b of { I# y1_sH2e ->
case sh2'_al1I of { I# y2_sH2h ->
let { x_al2u = +# (*# y1_sH2e ww2_sDeH) y2_sH2h } in
case quotInt# x_al2u ww2_sDeH of wild9_al2A
{ __DEFAULT ->
case remInt# x_al2u ww2_sDeH of wild10_al2P
{ __DEFAULT ->
:. (:. Z (I# wild9_al2A)) (I# wild10_al2P)
}
}
}
}
}
}))
(sc_sKZt
(case ix_al5s of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2k sh2'1_sH2l ->
case sh2'1_sH2l of { I# y1_sH2o ->
case sh2'_al1I of { I# y2_sH2r ->
let { x_al2u = +# (*# y1_sH2o y_sH3w) y2_sH2r } in
case quotInt# x_al2u y_sH3w of wild9_al2A
{ __DEFAULT ->
case remInt# x_al2u y_sH3w of wild10_al2P
{ __DEFAULT ->
:. (:. Z (I# wild9_al2A)) (I# wild10_al2P)
}
}
}
}
}
})) } in
case <=# ww2_sDeH y_sH3w of {
__DEFAULT ->
(RDImage
((ADelayed (:. dt_XnHI (I# y_sH3w)) get_al5q) `cast` <Co:6>))
`cast` <Co:9>;
1# ->
(RDImage
((ADelayed (:. dt_XnHI ds4_smmE) get_al5q) `cast` <Co:6>))
`cast` <Co:9>
} } in
case <=# ww1_sDeB ds9_akLP of {
__DEFAULT -> jump $j_srqJ (:. Z ww6_sH23);
1# -> jump $j_srqJ (:. Z ds3_sDCf)
};
1# ->
case y_sH3w of ds11_akLU {
__DEFAULT ->
join {
$j_srrk dt_XnHM
= let {
get_al5q
= \ ix_al5s ->
eta_B3
(w_sDeq
(case ix_al5s of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2u sh2'1_sH2v ->
case sh2'1_sH2v of { I# y1_sH2y ->
case sh2'_al1I of { I# y2_sH2B ->
let {
x_al2u = +# (*# y1_sH2y ww2_sDeH) y2_sH2B } in
case quotInt# x_al2u ww2_sDeH of wild9_al2A
{ __DEFAULT ->
case remInt# x_al2u ww2_sDeH of wild10_al2P
{ __DEFAULT ->
:. (:. Z (I# wild9_al2A)) (I# wild10_al2P)
}
}
}
}
}
}))
(sc_sKZt
(case ix_al5s of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2E sh2'1_sH2F ->
case sh2'1_sH2F of { I# y1_sH2I ->
case sh2'_al1I of { I# y2_sH2L ->
let {
x_al2u = +# (*# y1_sH2I ds11_akLU) y2_sH2L } in
case quotInt# x_al2u ds11_akLU of wild9_al2A
{ __DEFAULT ->
case remInt# x_al2u ds11_akLU of wild10_al2P
{ __DEFAULT ->
:. (:. Z (I# wild9_al2A)) (I# wild10_al2P)
}
}
}
}
}
})) } in
case <=# ww2_sDeH ds11_akLU of {
__DEFAULT ->
(RDImage
((ADelayed (:. dt_XnHM (I# ds11_akLU)) get_al5q)
`cast` <Co:6>))
`cast` <Co:9>;
1# ->
(RDImage
((ADelayed (:. dt_XnHM ds4_smmE) get_al5q)
`cast` <Co:6>))
`cast` <Co:9>
} } in
case <=# ww1_sDeB 1# of {
__DEFAULT -> jump $j_srrk (:. Z ww6_sH23);
1# -> jump $j_srrk (:. Z ds3_sDCf)
};
1# ->
(RDImage
((ADelayed
wild4_smmC
(let { ds12_sl5d = sc_sKZt lvl86_rOyK } in
\ x_anAm ->
eta_B3
(w_sDeq
(case x_anAm of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2S sh2'1_sH2T ->
case sh2'1_sH2T of { I# y1_sH2W ->
case sh2'_al1I of { I# y2_sH2Z ->
let { x1_al2u = +# (*# y1_sH2W ww2_sDeH) y2_sH2Z } in
case quotInt# x1_al2u ww2_sDeH of wild9_al2A
{ __DEFAULT ->
case remInt# x1_al2u ww2_sDeH of wild10_al2P
{ __DEFAULT ->
:. (:. Z (I# wild9_al2A)) (I# wild10_al2P)
}
}
}
}
}
}))
ds12_sl5d))
`cast` <Co:6>))
`cast` <Co:9>
}
} } in
case ww1_sDeB of {
__DEFAULT -> jump fail_sl53 void#;
1# ->
case ww2_sDeH of {
__DEFAULT -> jump fail_sl53 void#;
1# ->
(RDImage
((ADelayed
(:. ww3_sH1Z (I# y_sH3w))
(let { f_anAk = eta_B3 (w_sDeq lvl86_rOyK) } in
\ x_anAm ->
f_anAk
(sc_sKZt
(case x_anAm of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH36 sh2'1_sH37 ->
case sh2'1_sH37 of { I# y1_sH3a ->
case sh2'_al1I of { I# y2_sH3d ->
let { x1_al2u = +# (*# y1_sH3a y_sH3w) y2_sH3d } in
case quotInt# x1_al2u y_sH3w of wild8_al2A { __DEFAULT ->
case remInt# x1_al2u y_sH3w of wild9_al2P { __DEFAULT ->
:. (:. Z (I# wild8_al2A)) (I# wild9_al2P)
}
}
}
}
}
}))))
`cast` <Co:6>))
`cast` <Co:9>
}
}
}
}
}
}
};
RDImage arr_akLs ->
case arr_akLs `cast` <Co:5> of { ADelayed ww4_sH3C ww5_sH3D ->
case ww4_sH3C of ww6_sH1V { :. ww7_sH1W ww8_sH1X ->
case ww7_sH1W of { :. ww10_sH20 ww11_sH21 ->
case ww11_sH21 of ww12_sH23 { I# ww13_sH24 ->
case ww8_sH1X of ww14_sH26 { I# ww15_sH27 ->
join {
fail_sl53 _
= let { ds4_smmE = I# ww2_sDeH } in
let { ds3_sDCf = I# ww1_sDeB } in
let { ds1_smmD = :. ww_sDex ds3_sDCf } in
let { wild1_smmC = :. ds1_smmD ds4_smmE } in
case ww13_sH24 of ds9_akLP {
__DEFAULT ->
join {
$j_srqJ dt_XnHI
= let {
get_al5q
= \ ix_al5s ->
eta_B3
(w_sDeq
(case ix_al5s of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2a sh2'1_sH2b ->
case sh2'1_sH2b of { I# y1_sH2e ->
case sh2'_al1I of { I# y2_sH2h ->
let { x_al2u = +# (*# y1_sH2e ww2_sDeH) y2_sH2h } in
case quotInt# x_al2u ww2_sDeH of wild6_al2A
{ __DEFAULT ->
case remInt# x_al2u ww2_sDeH of wild7_al2P
{ __DEFAULT ->
:. (:. Z (I# wild6_al2A)) (I# wild7_al2P)
}
}
}
}
}
}))
(ww5_sH3D
(case ix_al5s of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2k sh2'1_sH2l ->
case sh2'1_sH2l of { I# y1_sH2o ->
case sh2'_al1I of { I# y2_sH2r ->
let { x_al2u = +# (*# y1_sH2o ww15_sH27) y2_sH2r } in
case quotInt# x_al2u ww15_sH27 of wild6_al2A
{ __DEFAULT ->
case remInt# x_al2u ww15_sH27 of wild7_al2P
{ __DEFAULT ->
:. (:. Z (I# wild6_al2A)) (I# wild7_al2P)
}
}
}
}
}
})) } in
case <=# ww2_sDeH ww15_sH27 of {
__DEFAULT ->
(RDImage
((ADelayed (:. dt_XnHI ww14_sH26) get_al5q) `cast` <Co:6>))
`cast` <Co:9>;
1# ->
(RDImage
((ADelayed (:. dt_XnHI ds4_smmE) get_al5q) `cast` <Co:6>))
`cast` <Co:9>
} } in
case <=# ww1_sDeB ds9_akLP of {
__DEFAULT -> jump $j_srqJ (:. Z ww12_sH23);
1# -> jump $j_srqJ (:. Z ds3_sDCf)
};
1# ->
case ww15_sH27 of ds11_akLU {
__DEFAULT ->
join {
$j_srrk dt_XnHM
= let {
get_al5q
= \ ix_al5s ->
eta_B3
(w_sDeq
(case ix_al5s of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2u sh2'1_sH2v ->
case sh2'1_sH2v of { I# y1_sH2y ->
case sh2'_al1I of { I# y2_sH2B ->
let {
x_al2u = +# (*# y1_sH2y ww2_sDeH) y2_sH2B } in
case quotInt# x_al2u ww2_sDeH of wild6_al2A
{ __DEFAULT ->
case remInt# x_al2u ww2_sDeH of wild7_al2P
{ __DEFAULT ->
:. (:. Z (I# wild6_al2A)) (I# wild7_al2P)
}
}
}
}
}
}))
(ww5_sH3D
(case ix_al5s of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2E sh2'1_sH2F ->
case sh2'1_sH2F of { I# y1_sH2I ->
case sh2'_al1I of { I# y2_sH2L ->
let {
x_al2u = +# (*# y1_sH2I ds11_akLU) y2_sH2L } in
case quotInt# x_al2u ds11_akLU of wild6_al2A
{ __DEFAULT ->
case remInt# x_al2u ds11_akLU of wild7_al2P
{ __DEFAULT ->
:. (:. Z (I# wild6_al2A)) (I# wild7_al2P)
}
}
}
}
}
})) } in
case <=# ww2_sDeH ds11_akLU of {
__DEFAULT ->
(RDImage
((ADelayed (:. dt_XnHM ww14_sH26) get_al5q)
`cast` <Co:6>))
`cast` <Co:9>;
1# ->
(RDImage
((ADelayed (:. dt_XnHM ds4_smmE) get_al5q)
`cast` <Co:6>))
`cast` <Co:9>
} } in
case <=# ww1_sDeB 1# of {
__DEFAULT -> jump $j_srrk (:. Z ww12_sH23);
1# -> jump $j_srrk (:. Z ds3_sDCf)
};
1# ->
(RDImage
((ADelayed
wild1_smmC
(let { ds12_sl5d = ww5_sH3D lvl86_rOyK } in
\ x_anAm ->
eta_B3
(w_sDeq
(case x_anAm of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2S sh2'1_sH2T ->
case sh2'1_sH2T of { I# y1_sH2W ->
case sh2'_al1I of { I# y2_sH2Z ->
let { x1_al2u = +# (*# y1_sH2W ww2_sDeH) y2_sH2Z } in
case quotInt# x1_al2u ww2_sDeH of wild6_al2A
{ __DEFAULT ->
case remInt# x1_al2u ww2_sDeH of wild7_al2P
{ __DEFAULT ->
:. (:. Z (I# wild6_al2A)) (I# wild7_al2P)
}
}
}
}
}
}))
ds12_sl5d))
`cast` <Co:6>))
`cast` <Co:9>
}
} } in
case ww1_sDeB of {
__DEFAULT -> jump fail_sl53 void#;
1# ->
case ww2_sDeH of {
__DEFAULT -> jump fail_sl53 void#;
1# ->
(RDImage
((ADelayed
ww6_sH1V
(let { f_anAk = eta_B3 (w_sDeq lvl86_rOyK) } in
\ x_anAm ->
f_anAk
(ww5_sH3D
(case x_anAm of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH36 sh2'1_sH37 ->
case sh2'1_sH37 of { I# y1_sH3a ->
case sh2'_al1I of { I# y2_sH3d ->
let { x1_al2u = +# (*# y1_sH3a ww15_sH27) y2_sH3d } in
case quotInt# x1_al2u ww15_sH27 of wild5_al2A { __DEFAULT ->
case remInt# x1_al2u ww15_sH27 of wild6_al2P { __DEFAULT ->
:. (:. Z (I# wild5_al2A)) (I# wild6_al2P)
}
}
}
}
}
}))))
`cast` <Co:6>))
`cast` <Co:9>
}
}
}
}
}
}
}
} } in
case eta1_B2 `cast` <Co:7> of {
RTImage arr_akL5 ->
case arr_akL5 `cast` <Co:5> of { AUnboxed sh2_sH3G ds2_sH3H ->
case sh2_sH3G of { :. ww1_sH3K ww2_sH3L ->
case ww1_sH3K of { :. ww4_sH3O ww5_sH3P ->
case ww5_sH3P of { I# ww7_sH3S ->
case ww2_sH3L of { I# ww9_sH3V ->
let { $dMArray1_sl58 = $p2Array $dArray_akKP } in
let { $dBaseArray2_sl57 = $p1MArray $dMArray1_sl58 } in
let { $dColorSpace1_sl56 = $p2BaseArray $dBaseArray2_sl57 } in
let { lvl205_sHIy = $p7ColorSpace $dColorSpace1_sl56 } in
let { lvl206_sH3W = $p1Unbox lvl205_sHIy } in
jump $w$j_sDeK
ww4_sH3O
ww7_sH3S
ww9_sH3V
(\ ix_akLc ->
fromComponents
$dColorSpace1_sl56
((basicUnsafeIndexM
lvl206_sH3W
$fMonadId
(ds2_sH3H `cast` <Co:7>)
(case ix_akLc of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH3Z sh2'1_sH40 ->
case sh2'1_sH40 of { I# y1_sH43 ->
case sh2'_al1I of { I# y2_sH46 ->
I# (+# (*# y1_sH43 ww9_sH3V) y2_sH46)
}
}
}
}))
`cast` <Co:4>))
}
}
}
}
};
RDImage arr_akLe ->
case arr_akLe `cast` <Co:5> of { ADelayed sh2_sH49 ds2_sH4a ->
case sh2_sH49 of { :. ww1_sH4d ww2_sH4e ->
case ww1_sH4d of { :. ww4_sH4h ww5_sH4i ->
case ww5_sH4i of { I# ww7_sH4l ->
case ww2_sH4e of { I# ww9_sH4o ->
jump $w$j_sDeK ww4_sH4h ww7_sH4l ww9_sH4o ds2_sH4a
}
}
}
}
}
}
-- RHS size: {terms: 481, types: 611, coercions: 154, joins: 7/28}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cizipWith
= \ @ cs1_akHi
@ e1_akHj
@ cs2_akHk
@ e2_akHl
$dArray_akHm
$dArray1_akHn
eta_B3
eta1_B2
eta2_B1 ->
join {
$w$j_sDfx ww_sDfk ww1_sDfo ww2_sDfu w_sDfd
= case eta2_B1 `cast` <Co:7> of {
RTImage arr_akHQ ->
case arr_akHQ `cast` <Co:5> of { AUnboxed sh2_sH4Z ds2_sH50 ->
case sh2_sH4Z of { :. sh1_sH54 sh4_sH55 ->
case sh4_sH55 of { I# y_sH5f ->
let { $dMArray_sl6C = $p2Array $dArray1_akHn } in
let { $dBaseArray1_sl6B = $p1MArray $dMArray_sl6C } in
let { $dColorSpace_sl6A = $p2BaseArray $dBaseArray1_sl6B } in
let { lvl205_sHJq = $p7ColorSpace $dColorSpace_sl6A } in
let { lvl206_sH51 = $p1Unbox lvl205_sHJq } in
let {
sc_sKZ1
= \ ix_akHX ->
fromComponents
$dColorSpace_sl6A
((basicUnsafeIndexM
lvl206_sH51
$fMonadId
(ds2_sH50 `cast` <Co:7>)
(case ix_akHX of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH58 sh2'1_sH59 ->
case sh2'1_sH59 of { I# y1_sH5c ->
case sh2'_al1I of { I# y2_sH5i ->
I# (+# (*# y1_sH5c y_sH5f) y2_sH5i)
}
}
}
}))
`cast` <Co:4>) } in
case sh1_sH54 of ww3_sH4u { :. ww4_sH4v ww5_sH4w ->
case ww5_sH4w of ww6_sH4y { I# ww7_sH4z ->
join {
fail_sl6u _
= let { ds4_smo7 = I# ww2_sDfu } in
let { ds3_sDE0 = I# ww1_sDfo } in
join {
fail1_sl6E _
= join {
$j_sny7 dt_XkfS
= let {
getNewPx_sl6Y
= \ getPx1_akIy getPx2_akIz sh_akIA ->
case sh_akIA of sh5_akIE { :. ipv_akIG ipv1_akIH ->
case ipv_akIG of { :. ds10_sH4F i_sH4G ->
eta_B3
(i_sH4G, ipv1_akIH)
(getPx1_akIy sh5_akIE)
(getPx2_akIz sh5_akIE)
}
} } in
(RDImage
((ADelayed
dt_XkfS
(getNewPx_sl6Y (\ ix_anvA -> w_sDfd ix_anvA) sc_sKZ1))
`cast` <Co:10>))
`cast` <Co:9> } in
case <=# ww1_sDfo ww7_sH4z of {
__DEFAULT ->
case <=# ww2_sDfu y_sH5f of {
__DEFAULT -> jump $j_sny7 (:. (:. Z ww6_sH4y) (I# y_sH5f));
1# -> jump $j_sny7 (:. (:. Z ww6_sH4y) ds4_smo7)
};
1# ->
case <=# ww2_sDfu y_sH5f of {
__DEFAULT -> jump $j_sny7 (:. (:. Z ds3_sDE0) (I# y_sH5f));
1# -> jump $j_sny7 (:. (:. Z ds3_sDE0) ds4_smo7)
}
} } in
case ww7_sH4z of {
__DEFAULT -> jump fail1_sl6E void#;
1# ->
case y_sH5f of {
__DEFAULT -> jump fail1_sl6E void#;
1# ->
let { lvl207_smo3 = sc_sKZ1 lvl86_rOyK } in
(RDImage
((ADelayed
(:. (:. ww_sDfk ds3_sDE0) ds4_smo7)
(\ sh_akJO ->
case sh_akJO of sh3_akJP { :. ipv2_akJR ipv3_akJS ->
case ipv2_akJR of { :. ds12_sH4N i_sH4O ->
case w_sDfd sh3_akJP of px1_akJU { __DEFAULT ->
eta_B3 (i_sH4O, ipv3_akJS) px1_akJU lvl207_smo3
}
}
}))
`cast` <Co:6>))
`cast` <Co:9>
}
} } in
case ww1_sDfo of {
__DEFAULT -> jump fail_sl6u void#;
1# ->
case ww2_sDfu of {
__DEFAULT -> jump fail_sl6u void#;
1# ->
let { lvl207_smop = w_sDfd lvl86_rOyK } in
(RDImage
((ADelayed
(:. ww3_sH4u (I# y_sH5f))
(\ sh_akKx ->
case sh_akKx of sh3_akKy { :. ipv2_akKA ipv3_akKB ->
case ipv2_akKA of { :. ds11_sH4V i_sH4W ->
eta_B3 (i_sH4W, ipv3_akKB) lvl207_smop (sc_sKZ1 sh3_akKy)
}
}))
`cast` <Co:6>))
`cast` <Co:9>
}
}
}
}
}
}
};
RDImage arr_akHZ ->
case arr_akHZ `cast` <Co:5> of { ADelayed ww4_sH5l ww5_sH5m ->
case ww4_sH5l of ww6_sH4q { :. ww7_sH4r ww8_sH4s ->
case ww7_sH4r of { :. ww10_sH4v ww11_sH4w ->
case ww11_sH4w of ww12_sH4y { I# ww13_sH4z ->
case ww8_sH4s of ww14_sH4B { I# ww15_sH4C ->
join {
fail_sl6u _
= let { ds4_smo7 = I# ww2_sDfu } in
let { ds3_sDE0 = I# ww1_sDfo } in
join {
fail1_sl6E _
= join {
$j_sny7 dt_XkfS
= let {
getNewPx_sl6Y
= \ getPx1_akIy getPx2_akIz sh_akIA ->
case sh_akIA of sh4_akIE { :. ipv_akIG ipv1_akIH ->
case ipv_akIG of { :. ds10_sH4F i_sH4G ->
eta_B3
(i_sH4G, ipv1_akIH)
(getPx1_akIy sh4_akIE)
(getPx2_akIz sh4_akIE)
}
} } in
(RDImage
((ADelayed
dt_XkfS
(getNewPx_sl6Y
(\ ix_anvA -> w_sDfd ix_anvA)
(\ ix_anvA -> ww5_sH5m ix_anvA)))
`cast` <Co:10>))
`cast` <Co:9> } in
case <=# ww1_sDfo ww13_sH4z of {
__DEFAULT ->
case <=# ww2_sDfu ww15_sH4C of {
__DEFAULT -> jump $j_sny7 (:. (:. Z ww12_sH4y) ww14_sH4B);
1# -> jump $j_sny7 (:. (:. Z ww12_sH4y) ds4_smo7)
};
1# ->
case <=# ww2_sDfu ww15_sH4C of {
__DEFAULT -> jump $j_sny7 (:. (:. Z ds3_sDE0) ww14_sH4B);
1# -> jump $j_sny7 (:. (:. Z ds3_sDE0) ds4_smo7)
}
} } in
case ww13_sH4z of {
__DEFAULT -> jump fail1_sl6E void#;
1# ->
case ww15_sH4C of {
__DEFAULT -> jump fail1_sl6E void#;
1# ->
let { lvl205_smo3 = ww5_sH5m lvl86_rOyK } in
(RDImage
((ADelayed
(:. (:. ww_sDfk ds3_sDE0) ds4_smo7)
(\ sh_akJO ->
case sh_akJO of sh3_akJP { :. ipv2_akJR ipv3_akJS ->
case ipv2_akJR of { :. ds12_sH4N i_sH4O ->
case w_sDfd sh3_akJP of px1_akJU { __DEFAULT ->
eta_B3 (i_sH4O, ipv3_akJS) px1_akJU lvl205_smo3
}
}
}))
`cast` <Co:6>))
`cast` <Co:9>
}
} } in
case ww1_sDfo of {
__DEFAULT -> jump fail_sl6u void#;
1# ->
case ww2_sDfu of {
__DEFAULT -> jump fail_sl6u void#;
1# ->
let { lvl205_smop = w_sDfd lvl86_rOyK } in
(RDImage
((ADelayed
ww6_sH4q
(\ sh_akKx ->
case sh_akKx of sh3_akKy { :. ipv2_akKA ipv3_akKB ->
case ipv2_akKA of { :. ds11_sH4V i_sH4W ->
eta_B3 (i_sH4W, ipv3_akKB) lvl205_smop (ww5_sH5m sh3_akKy)
}
}))
`cast` <Co:6>))
`cast` <Co:9>
}
}
}
}
}
}
}
} } in
case eta1_B2 `cast` <Co:7> of {
RTImage arr_akHC ->
case arr_akHC `cast` <Co:5> of { AUnboxed sh2_sH5p ds2_sH5q ->
case sh2_sH5p of { :. ww1_sH5t ww2_sH5u ->
case ww1_sH5t of { :. ww4_sH5x ww5_sH5y ->
case ww5_sH5y of { I# ww7_sH5B ->
case ww2_sH5u of { I# ww9_sH5E ->
let { $dMArray1_sl6z = $p2Array $dArray_akHm } in
let { $dBaseArray2_sl6y = $p1MArray $dMArray1_sl6z } in
let { $dColorSpace1_sl6x = $p2BaseArray $dBaseArray2_sl6y } in
let { lvl205_sHJC = $p7ColorSpace $dColorSpace1_sl6x } in
let { lvl206_sH5F = $p1Unbox lvl205_sHJC } in
jump $w$j_sDfx
ww4_sH5x
ww7_sH5B
ww9_sH5E
(\ ix_akHJ ->
fromComponents
$dColorSpace1_sl6x
((basicUnsafeIndexM
lvl206_sH5F
$fMonadId
(ds2_sH5q `cast` <Co:7>)
(case ix_akHJ of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH5I sh2'1_sH5J ->
case sh2'1_sH5J of { I# y1_sH5M ->
case sh2'_al1I of { I# y2_sH5P ->
I# (+# (*# y1_sH5M ww9_sH5E) y2_sH5P)
}
}
}
}))
`cast` <Co:4>))
}
}
}
}
};
RDImage arr_akHL ->
case arr_akHL `cast` <Co:5> of { ADelayed sh2_sH5S ds2_sH5T ->
case sh2_sH5S of { :. ww1_sH5W ww2_sH5X ->
case ww1_sH5W of { :. ww4_sH60 ww5_sH61 ->
case ww5_sH61 of { I# ww7_sH64 ->
case ww2_sH5X of { I# ww9_sH67 ->
jump $w$j_sDfx ww4_sH60 ww7_sH64 ww9_sH67 ds2_sH5T
}
}
}
}
}
}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl88_rOyM = "Graphics.Image.Interface.Repa.Generic.traverseR"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl89_rOyN = showLitString (unpackCString# lvl88_rOyM) $fShow[]1
-- RHS size: {terms: 34, types: 31, coercions: 4, joins: 0/0}
$wlvl11_rOyO
= \ ww_sDfF ww1_sDfK ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
ww_sDfF
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDfK w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl89_rOyN)
-- RHS size: {terms: 139, types: 230, coercions: 54, joins: 0/7}
$s$fArrayRSUcse_$s$fArrayRSUcse_$ctraverse
= \ @ cs'_akGj @ e'_akGk $dArray_akGl eta_B3 eta1_B2 eta2_B1 ->
let {
arr_al4O
= case eta_B3 `cast` <Co:7> of {
RTImage arr1_akGA ->
case arr1_akGA `cast` <Co:5> of { AUnboxed sh2_sH6e ds1_sH6f ->
case sh2_sH6e of wild2_sH6i { :. sh1_sH6j sh4_sH6k ->
case sh4_sH6k of { I# y_sH6u ->
let { $dMArray_sl7h = $p2Array $dArray_akGl } in
let { $dBaseArray1_sl7g = $p1MArray $dMArray_sl7h } in
let { $dColorSpace_sl7f = $p2BaseArray $dBaseArray1_sl7g } in
let { lvl205_sHKL = $p7ColorSpace $dColorSpace_sl7f } in
let { lvl206_sH6g = $p1Unbox lvl205_sHKL } in
(ADelayed
wild2_sH6i
(\ ix_akGH ->
fromComponents
$dColorSpace_sl7f
((basicUnsafeIndexM
lvl206_sH6g
$fMonadId
(ds1_sH6f `cast` <Co:7>)
(case ix_akGH of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH6n sh2'1_sH6o ->
case sh2'1_sH6o of { I# y1_sH6r ->
case sh2'_al1I of { I# y2_sH6x ->
I# (+# (*# y1_sH6r y_sH6u) y2_sH6x)
}
}
}
}))
`cast` <Co:4>)))
`cast` <Co:6>
}
}
};
RDImage arr1_akGJ -> arr1_akGJ
} } in
case eta1_B2
(case arr_al4O `cast` <Co:5> of { ADelayed sh1_antb ds1_antc ->
case sh1_antb of { :. ds2_sH6A j_sH6B ->
case ds2_sH6A of { :. ds3_sH6E i_sH6F -> (i_sH6F, j_sH6B) }
}
})
of
{ (m_akGS, n_akGT) ->
case m_akGS of wild1_aiCr { I# x_aiCt ->
case <=# x_aiCt 0# of {
__DEFAULT ->
case n_akGT of wild2_XiQq { I# x1_XiQu ->
case <=# x1_XiQu 0# of {
__DEFAULT ->
(RDImage
((ADelayed
(:. (:. Z wild1_aiCr) wild2_XiQq)
(let {
f4_sl7e
= eta2_B1
(\ x2_akHd ->
case arr_al4O `cast` <Co:5> of { ADelayed ds1_anvD f_anvE ->
f_anvE
(case x2_akHd of { (i_al7l, j_al7m) ->
case i_al7l of dt_XkvC { I# ipv_snx6 ->
case j_al7m of dt1_Xkzj { I# ipv1_snx9 ->
:. (:. Z dt_XkvC) dt1_Xkzj
}
}
})
}) } in
\ x2_akHe -> f4_sl7e (sh2ix x2_akHe)))
`cast` <Co:6>))
`cast` <Co:9>;
1# -> case $wlvl11_rOyO x_aiCt x1_XiQu of wild3_00 { }
}
};
1# ->
case n_akGT of { I# ww1_sDfK ->
case $wlvl11_rOyO x_aiCt ww1_sDfK of wild2_00 { }
}
}
}
}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl90_rOyP = "Graphics.Image.Interface.Repa.Generic.traverse2R"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl91_rOyQ = showLitString (unpackCString# lvl90_rOyP) $fShow[]1
-- RHS size: {terms: 34, types: 31, coercions: 4, joins: 0/0}
$wlvl12_rOyR
= \ ww_sDfU ww1_sDfZ ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
ww_sDfU
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDfZ w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl91_rOyQ)
-- RHS size: {terms: 221, types: 363, coercions: 71, joins: 2/13}
$s$fArrayRSUcse_$s$fArrayRSUcse_$ctraverse2
= \ @ cs1_akEd
@ e1_akEe
@ cs2_akEf
@ e2_akEg
$dArray_akEh
$dArray1_akEi
eta_B4
eta1_B3
eta2_B2
eta3_B1 ->
join {
$w$j_sDgs ww_sDgo ww1_sDgq w_sDgh
= join {
$w$j1_sDgf ww2_sDgb ww3_sDgd w1_sDg4
= case eta2_B2 (ww_sDgo, ww1_sDgq) (ww2_sDgb, ww3_sDgd) of
{ (m_akFQ, n_akFR) ->
case m_akFQ of wild1_aiCr { I# x_aiCt ->
case <=# x_aiCt 0# of {
__DEFAULT ->
case n_akFR of wild2_XiRa { I# x1_XiRe ->
case <=# x1_XiRe 0# of {
__DEFAULT ->
(RDImage
((ADelayed
(:. (:. Z wild1_aiCr) wild2_XiRa)
(let {
f4_sl7F
= eta3_B1
(\ x2_akGc -> w_sDgh (ix2sh x2_akGc))
(\ x2_akGe -> w1_sDg4 (ix2sh x2_akGe)) } in
\ x2_akGf -> f4_sl7F (sh2ix x2_akGf)))
`cast` <Co:6>))
`cast` <Co:9>;
1# -> case $wlvl12_rOyR x_aiCt x1_XiRe of wild3_00 { }
}
};
1# ->
case n_akFR of { I# ww5_sDfZ ->
case $wlvl12_rOyR x_aiCt ww5_sDfZ of wild2_00 { }
}
}
}
} } in
case eta1_B3 `cast` <Co:7> of {
RTImage arr_akFd ->
case arr_akFd `cast` <Co:5> of { AUnboxed sh2_sH6M ds2_sH6N ->
case sh2_sH6M of { :. ww3_sH6Q ww4_sH6R ->
case ww3_sH6Q of { :. ww6_sH6U ww7_sH6V ->
case ww4_sH6R of wild3_sH75 { I# y_sH76 ->
let { $dMArray_sl7L = $p2Array $dArray1_akEi } in
let { $dBaseArray1_sl7K = $p1MArray $dMArray_sl7L } in
let { $dColorSpace_sl7J = $p2BaseArray $dBaseArray1_sl7K } in
let { lvl205_sHLl = $p7ColorSpace $dColorSpace_sl7J } in
let { lvl206_sH6W = $p1Unbox lvl205_sHLl } in
jump $w$j1_sDgf
ww7_sH6V
wild3_sH75
(\ ix_akFk ->
fromComponents
$dColorSpace_sl7J
((basicUnsafeIndexM
lvl206_sH6W
$fMonadId
(ds2_sH6N `cast` <Co:7>)
(case ix_akFk of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH6Z sh2'1_sH70 ->
case sh2'1_sH70 of { I# y1_sH73 ->
case sh2'_al1I of { I# y2_sH79 ->
I# (+# (*# y1_sH73 y_sH76) y2_sH79)
}
}
}
}))
`cast` <Co:4>))
}
}
}
};
RDImage arr_akFm ->
case arr_akFm `cast` <Co:5> of { ADelayed sh1_sH7c ds1_sH7d ->
case sh1_sH7c of { :. ww3_sH7g ww4_sH7h ->
case ww3_sH7g of { :. ww6_sH7k ww7_sH7l ->
jump $w$j1_sDgf ww7_sH7l ww4_sH7h ds1_sH7d
}
}
}
} } in
case eta_B4 `cast` <Co:7> of {
RTImage arr_akF0 ->
case arr_akF0 `cast` <Co:5> of { AUnboxed sh2_sH7o ds2_sH7p ->
case sh2_sH7o of { :. ww1_sH7s ww2_sH7t ->
case ww1_sH7s of { :. ww4_sH7w ww5_sH7x ->
case ww2_sH7t of wild3_sH7H { I# y_sH7I ->
let { $dMArray1_sl7I = $p2Array $dArray_akEh } in
let { $dBaseArray2_sl7H = $p1MArray $dMArray1_sl7I } in
let { $dColorSpace1_sl7G = $p2BaseArray $dBaseArray2_sl7H } in
let { lvl205_sHLy = $p7ColorSpace $dColorSpace1_sl7G } in
let { lvl206_sH7y = $p1Unbox lvl205_sHLy } in
jump $w$j_sDgs
ww5_sH7x
wild3_sH7H
(\ ix_akF7 ->
fromComponents
$dColorSpace1_sl7G
((basicUnsafeIndexM
lvl206_sH7y
$fMonadId
(ds2_sH7p `cast` <Co:7>)
(case ix_akF7 of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH7B sh2'1_sH7C ->
case sh2'1_sH7C of { I# y1_sH7F ->
case sh2'_al1I of { I# y2_sH7L ->
I# (+# (*# y1_sH7F y_sH7I) y2_sH7L)
}
}
}
}))
`cast` <Co:4>))
}
}
}
};
RDImage arr_akF9 ->
case arr_akF9 `cast` <Co:5> of { ADelayed sh1_sH7O ds1_sH7P ->
case sh1_sH7O of { :. ww1_sH7S ww2_sH7T ->
case ww1_sH7S of { :. ww4_sH7W ww5_sH7X ->
jump $w$j_sDgs ww5_sH7X ww2_sH7T ds1_sH7P
}
}
}
}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl92_rOyT = "backpermuteR"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl93_rOyU = showLitString (unpackCString# lvl92_rOyT) $fShow[]1
-- RHS size: {terms: 34, types: 31, coercions: 4, joins: 0/0}
$wlvl13_rOyV
= \ ww_sDgX ww1_sDh2 ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
ww_sDgX
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDh2 w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl93_rOyU)
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl94_rOyW = "Graphics.Image.Interface.Repa.Generic"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl95_rOyX = unpackCString# lvl94_rOyW
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl96_rOyY
= "src\\\\Graphics\\\\Image\\\\Interface\\\\Repa\\\\Generic.hs"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl97_rOyZ = unpackCString# lvl96_rOyY
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl98_rOz0 = I# 314#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl99_rOz1 = I# 10#
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl100_rOz2
= SrcLoc
lvl34_rOxL
lvl95_rOyX
lvl97_rOyZ
lvl98_rOz0
lvl99_rOz1
lvl98_rOz0
lvl20_rOxv
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl101_rOz3 = PushCallStack lvl6_rOxh lvl100_rOz2 EmptyCallStack
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl102_rOz4
= "fromListsRepa: Inner lists do not all have an equal length."#
-- RHS size: {terms: 4, types: 6, coercions: 4, joins: 0/0}
lvl103_rOz5
= error (lvl101_rOz3 `cast` <Co:4>) (unpackCString# lvl102_rOz4)
-- RHS size: {terms: 22, types: 36, coercions: 59, joins: 0/0}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cfromVector
= \ sz_ak8v eta_B1 ->
case sz_ak8v of { (ipv_akcg, ipv1_akch) ->
case ipv_akcg of dt_Xkch { I# ipv2_smzG ->
case ipv1_akch of dt1_XkxF { I# ipv3_smzJ ->
case eta_B1 `cast` <Co:24> of nt_snkn
{ Vector ipv4_snkq ipv5_snqe ipv6_snqf ->
(RTImage
((AUnboxed (:. (:. Z dt_Xkch) dt1_XkxF) (nt_snkn `cast` <Co:20>))
`cast` <Co:6>))
`cast` <Co:9>
}
}
}
}
-- RHS size: {terms: 29, types: 57, coercions: 17, joins: 0/0}
$s$fArrayRSUcse_$s$fBaseArrayRSUcse_$cdims
= \ ds_alXT ->
case ds_alXT `cast` <Co:7> of {
RTImage arr_alXW ->
case arr_alXW `cast` <Co:5> of { AUnboxed sh2_sH9E ds1_sH9F ->
case sh2_sH9E of { :. ds2_sH9I j_sH9J ->
case ds2_sH9I of { :. ds3_sH9M i_sH9N -> (i_sH9N, j_sH9J) }
}
};
RDImage arr_alYe ->
case arr_alYe `cast` <Co:5> of { ADelayed sh2_sH9Q ds1_sH9R ->
case sh2_sH9Q of { :. ds2_sH9U j_sH9V ->
case ds2_sH9U of { :. ds3_sH9Y i_sH9Z -> (i_sH9Z, j_sH9V) }
}
}
}
-- RHS size: {terms: 3, types: 3, coercions: 34, joins: 0/0}
$s$fArrayRSUcse_$s$fEqPixel0
= C:Eq (eqDouble `cast` <Co:17>) ($fEqDouble_$c/= `cast` <Co:17>)
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
$s$fColorSpaceYe_$ctoComponents_rOz6 = \ ds_am0a -> ds_am0a
-- RHS size: {terms: 1, types: 0, coercions: 14, joins: 0/0}
$s$fArrayRSUcse_$s$fColorSpaceYe_$ctoComponents
= $s$fColorSpaceYe_$ctoComponents_rOz6 `cast` <Co:14>
-- RHS size: {terms: 6, types: 5, coercions: 5, joins: 0/0}
$s$fArrayRSUcse_$s$fColorSpaceYe_$cgetPxC
= \ ds_am03 ds1_am04 ->
case ds1_am04 of { LumaY -> ds_am03 `cast` <Co:5> }
-- RHS size: {terms: 7, types: 6, coercions: 7, joins: 0/0}
$s$fArrayRSUcse_$s$fColorSpaceYe_$csetPxC
= \ _ ds1_alZW y_alZX ->
case ds1_alZW of { LumaY -> y_alZX `cast` <Co:7> }
-- RHS size: {terms: 5, types: 6, coercions: 5, joins: 0/0}
$s$fColorSpaceYe_$cmapPxC_rOz7
= \ f_alZQ ds_alZR -> f_alZQ LumaY (ds_alZR `cast` <Co:5>)
-- RHS size: {terms: 1, types: 0, coercions: 15, joins: 0/0}
$s$fArrayRSUcse_$s$fColorSpaceYe_$cmapPxC
= $s$fColorSpaceYe_$cmapPxC_rOz7 `cast` <Co:15>
-- RHS size: {terms: 12, types: 14, coercions: 10, joins: 0/0}
$s$fArrayRSUcse_$s$fColorSpaceYe_$cfoldlPx2
= \ @ b_alZw f_alZx z_alZy ds_alZz ds1_alZA ->
case z_alZy of z1_alZB { __DEFAULT ->
f_alZx z1_alZB (ds_alZz `cast` <Co:5>) (ds1_alZA `cast` <Co:5>)
}
-- RHS size: {terms: 1, types: 1, coercions: 0, joins: 0/0}
$s$fColorSpaceYe_$ctoListPx = $w$ctoListPx1
-- RHS size: {terms: 13, types: 12, coercions: 5, joins: 0/0}
lvl104_rOz8
= \ @ b_agPt f_agPu z0_agPv xs_agPw ->
case z0_agPv of z1_agPx { __DEFAULT ->
case xs_agPw `cast` <Co:5> of nt_agPy { D# ipv_smwI ->
f_agPu nt_agPy z1_agPx
}
}
-- RHS size: {terms: 23, types: 14, coercions: 30, joins: 0/0}
$s$fArrayRSUcse_$s$fColorSpaceYe
= C:ColorSpace
$fEqY
$fEnumY
$fShowY
$fBoundedY
($fColorSpaceYe3 `cast` <Co:5>)
$s$fArrayRSUcse_$s$fEqPixel0
($fUnboxDouble `cast` <Co:4>)
$fElevatorDouble
$s$fArrayRSUcse_$s$fColorSpaceYe_$ctoComponents
($WPixelY `cast` <Co:8>)
$WPixelY
$s$fArrayRSUcse_$s$fColorSpaceYe_$cgetPxC
$s$fArrayRSUcse_$s$fColorSpaceYe_$csetPxC
$s$fArrayRSUcse_$s$fColorSpaceYe_$cmapPxC
$fColorSpaceYe_$cfmap
$fColorSpaceYe_$cliftA2
$s$fArrayRSUcse_$s$fColorSpaceYe_$cfoldlPx2
lvl104_rOz8
(\ @ b_agPz -> $fColorSpaceYe_$cfoldl')
($fColorSpaceYe2 `cast` <Co:13>)
$s$fColorSpaceYe_$ctoListPx
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl105_rOz9 = D# 0.0##
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl106_rOza = D# 1.0##
-- RHS size: {terms: 4, types: 3, coercions: 21, joins: 0/0}
$s$fArrayRSUcse_$s$fEltPixel
= C:Elt
(lvl_rOx7 `cast` <Co:7>)
(lvl105_rOz9 `cast` <Co:7>)
(lvl106_rOza `cast` <Co:7>)
-- RHS size: {terms: 4, types: 9, coercions: 0, joins: 0/0}
$s$fArrayRSUcse1
= ($s$fArrayRSUcse_$s$fColorSpaceYe, $fEltDouble,
$s$fArrayRSUcse_$s$fEltPixel)
-- RHS size: {terms: 5, types: 3, coercions: 10, joins: 0/0}
$s$fArrayRSUcse_$s$fBaseArrayRSUcse
= C:BaseArray
($fBaseArrayRSUcse1 `cast` <Co:5>)
$s$fArrayRSUcse_$s$fColorSpaceYe
($s$fArrayRSUcse1 `cast` <Co:5>)
$s$fArrayRSUcse_$s$fBaseArrayRSUcse_$cdims
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl107_rOzb
= $fMVectorMVectorPixel_$cbasicLength
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl108_rOzc
= $fMVectorMVectorPixel_$cbasicUnsafeSlice
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl109_rOzd
= $fMVectorMVectorPixel_$cbasicOverlaps
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl110_rOze
= $fMVectorMVectorPixel_$cbasicUnsafeNew
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl111_rOzf
= $fMVectorMVectorPixel_$cbasicInitialize
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl112_rOzg
= $fMVectorMVectorPixel_$cbasicUnsafeReplicate
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl113_rOzh
= $fMVectorMVectorPixel_$cbasicUnsafeRead
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl114_rOzi
= $fMVectorMVectorPixel_$cbasicUnsafeWrite
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl115_rOzj
= $fMVectorMVectorPixel_$cbasicClear
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl116_rOzk
= $fMVectorMVectorPixel_$cbasicSet $s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl117_rOzl
= $fMVectorMVectorPixel_$cbasicUnsafeCopy
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl118_rOzm
= $fMVectorMVectorPixel_$cbasicUnsafeMove
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl119_rOzn
= $fMVectorMVectorPixel_$cbasicUnsafeGrow
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 14, types: 4, coercions: 0, joins: 0/0}
$s$fArrayRSUcse_$s$fMVectorMVectorPixel
= C:MVector
lvl107_rOzb
lvl108_rOzc
lvl109_rOzd
lvl110_rOze
lvl111_rOzf
lvl112_rOzg
lvl113_rOzh
lvl114_rOzi
lvl115_rOzj
lvl116_rOzk
lvl117_rOzl
lvl118_rOzm
lvl119_rOzn
-- RHS size: {terms: 40, types: 114, coercions: 52, joins: 0/0}
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeFreeze
= \ @ m_akWa $dPrimMonad_akWb eta_B1 ->
case $p1PrimMonad $dPrimMonad_akWb of
{ C:Monad ww1_sDhh ww2_sDhi ww3_sDhj ww4_sDhk ->
ww2_sDhi
((ww2_sDhi
(case eta_B1 `cast` <Co:33> of
{ MVector dt_apqC dt1_apqD dt2_apqE ->
ww2_sDhi
(primitive
$dPrimMonad_akWb
(\ s#_apqH ->
case unsafeFreezeByteArray# dt2_apqE s#_apqH of
{ (# ipv_apqK, ipv1_apqL #) ->
(# ipv_apqK, ByteArray ipv1_apqL #)
}))
(\ x1_apqN ->
ww4_sDhk
(case x1_apqN of { ByteArray dt5_anqd ->
Vector dt_apqC dt1_apqD dt5_anqd
}))
})
(\ x1_apqO -> ww4_sDhk (x1_apqO `cast` <Co:5>)))
`cast` <Co:5>)
(\ x1_akWe -> ww4_sDhk (x1_akWe `cast` <Co:9>))
}
-- RHS size: {terms: 35, types: 128, coercions: 58, joins: 0/0}
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeThaw
= \ @ m_akVS $dPrimMonad_akVT eta_B1 ->
case $p1PrimMonad $dPrimMonad_akVT of
{ C:Monad ww1_sDhC ww2_sDhD ww3_sDhE ww4_sDhF ->
(ww2_sDhD
((ww2_sDhD
(case eta_B1 `cast` <Co:15> of
{ Vector dt_apr2 dt1_apr3 dt2_apr4 ->
ww2_sDhD
(primitive
$dPrimMonad_akVT
(\ s#_apr7 ->
(# s#_apr7, MutableByteArray (dt2_apr4 `cast` <Co:6>) #)))
(\ x1_apr8 ->
ww4_sDhF
(case x1_apr8 of { MutableByteArray dt5_aoHB ->
MVector dt_apr2 dt1_apr3 dt5_aoHB
}))
})
(\ x1_apr9 -> ww4_sDhF (x1_apr9 `cast` <Co:9>)))
`cast` <Co:7>)
(\ x1_akVW -> ww4_sDhF (x1_akVW `cast` <Co:13>)))
`cast` <Co:8>
}
-- RHS size: {terms: 1, types: 0, coercions: 16, joins: 0/0}
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicLength
= $fVectorVectorDouble_$cbasicLength `cast` <Co:16>
-- RHS size: {terms: 1, types: 0, coercions: 33, joins: 0/0}
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeSlice
= $fVectorVectorDouble_$cbasicUnsafeSlice `cast` <Co:33>
-- RHS size: {terms: 27, types: 35, coercions: 30, joins: 0/0}
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeIndexM
= \ @ m_akVm $dMonad_akVn ds_akVo idx_akVp ->
>>=
$dMonad_akVn
(case ds_akVo `cast` <Co:15> of
{ Vector dt_aprD dt1_aprE dt2_aprF ->
case idx_akVp of { I# y_aprJ ->
case indexDoubleArray# dt2_aprF (+# dt_aprD y_aprJ) of wild2_aprL
{ __DEFAULT ->
(return $dMonad_akVn (D# wild2_aprL)) `cast` <Co:4>
}
}
})
(\ x1_akVr -> return $dMonad_akVn (x1_akVr `cast` <Co:11>))
-- RHS size: {terms: 1, types: 0, coercions: 56, joins: 0/0}
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeCopy
= $fVectorVectorDouble_$cbasicUnsafeCopy `cast` <Co:56>
-- RHS size: {terms: 8, types: 12, coercions: 5, joins: 0/0}
$s$fArrayRSUcse_$s$fVectorVectorPixel_$celemseq
= \ @ b_akV3 _ val_akV7 v1_apt6 ->
case val_akV7 `cast` <Co:5> of { D# ipv_apt9 -> v1_apt6 }
-- RHS size: {terms: 9, types: 4, coercions: 6, joins: 0/0}
$s$fArrayRSUcse_$s$fVectorVectorPixel
= C:Vector
($s$fArrayRSUcse_$s$fMVectorMVectorPixel `cast` <Co:6>)
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeFreeze
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeThaw
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicLength
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeSlice
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeIndexM
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeCopy
$s$fArrayRSUcse_$s$fVectorVectorPixel_$celemseq
-- RHS size: {terms: 9, types: 4, coercions: 0, joins: 0/0}
lvl120_rOzo
= \ dt1_sHa8 ->
$wcheckError
lvl49_rOy4 248# Bounds lvl51_rOy6 (checkIndex_msg# 0# dt1_sHa8)
-- RHS size: {terms: 31, types: 48, coercions: 39, joins: 0/0}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cindex00
= \ ds_akNx ->
case ds_akNx `cast` <Co:7> of {
RTImage arr_akNA ->
case arr_akNA `cast` <Co:5> of { AUnboxed ds1_sHa3 vec_sHa4 ->
case vec_sHa4 `cast` <Co:15> of
{ Vector dt_sHa7 dt1_sHa8 dt2_sHa9 ->
case <# 0# dt1_sHa8 of {
__DEFAULT -> lvl120_rOzo dt1_sHa8;
1# ->
case indexDoubleArray# dt2_sHa9 dt_sHa7 of wild3_aprL
{ __DEFAULT ->
(D# wild3_aprL) `cast` <Co:7>
}
}
}
};
RDImage arr_akNI ->
case arr_akNI `cast` <Co:5> of { ADelayed ds1_sHah f4_sHai ->
f4_sHai lvl86_rOyK
}
}
-- RHS size: {terms: 3, types: 3, coercions: 0, joins: 0/0}
$s$fArrayRSUcse_$s$fUnboxPixel
= C:Unbox
$s$fArrayRSUcse_$s$fVectorVectorPixel
$s$fArrayRSUcse_$s$fMVectorMVectorPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl121_rOzp = $fSourceUa_$cextent $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl122_rOzq = $fSourceUa_$cindex $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl123_rOzr
= $fSourceUa_$cunsafeIndex $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl124_rOzs
= $fSourceUa_$clinearIndex $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl125_rOzt
= $fSourceUa_$cunsafeLinearIndex $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl126_rOzu
= $fSourceUa_$cdeepSeqArray $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 7, types: 4, coercions: 0, joins: 0/0}
$s$fArrayRSUcse_$s$fSourceUa
= C:Source
lvl121_rOzp
lvl122_rOzq
lvl123_rOzr
lvl124_rOzs
lvl125_rOzt
lvl126_rOzu
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl127_rOzw = $fTargetUe_$cnewMVec $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl128_rOzx
= $fTargetUe_$cunsafeWriteMVec $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl129_rOzy
= $fTargetUe_$cunsafeFreezeMVec $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl130_rOzz
= $fTargetUe_$cdeepSeqMVec $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl131_rOzA = $fTargetUe_$ctouchMVec $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 6, types: 4, coercions: 0, joins: 0/0}
$s$fArrayRSUcse_$s$fTargetUe
= C:Target
lvl127_rOzw lvl128_rOzx lvl129_rOzy lvl130_rOzz lvl131_rOzA
-- RHS size: {terms: 8, types: 8, coercions: 0, joins: 0/0}
lvl132_rOzB
= \ ww4_alcW ->
$wcheckError
lvl25_rOxB 591# Bounds lvl27_rOxD (checkLength_msg# ww4_alcW)
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl133_rOzC = "Data.Vector.Primitive.Mutable"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl134_rOzD = unpackCString# lvl133_rOzC
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl135_rOzE = ".\\\\Data\\\\Vector\\\\Primitive\\\\Mutable.hs"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl136_rOzF = unpackCString# lvl135_rOzE
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl137_rOzG = I# 107#
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl138_rOzH
= SrcLoc
lvl8_rOxj
lvl134_rOzD
lvl136_rOzF
lvl137_rOzG
lvl14_rOxp
lvl137_rOzG
lvl15_rOxq
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl139_rOzI = PushCallStack lvl6_rOxh lvl138_rOzH EmptyCallStack
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl140_rOzJ = "Primitive.basicUnsafeNew: length to large: "#
-- RHS size: {terms: 14, types: 18, coercions: 4, joins: 0/0}
lvl141_rOzK
= \ ww4_alcW ->
error
(lvl139_rOzI `cast` <Co:4>)
(unpackAppendCString#
lvl140_rOzJ
(case $wshowSignedInt 0# ww4_alcW [] of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}))
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl142_rOzL = I# 106#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl143_rOzM = I# 78#
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl144_rOzN
= SrcLoc
lvl8_rOxj
lvl134_rOzD
lvl136_rOzF
lvl142_rOzL
lvl19_rOxu
lvl142_rOzL
lvl143_rOzM
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl145_rOzO = PushCallStack lvl6_rOxh lvl144_rOzN EmptyCallStack
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl146_rOzP = "Primitive.basicUnsafeNew: negative length: "#
-- RHS size: {terms: 14, types: 18, coercions: 4, joins: 0/0}
lvl147_rOzQ
= \ ww4_alcW ->
error
(lvl145_rOzO `cast` <Co:4>)
(unpackAppendCString#
lvl146_rOzP
(case $wshowSignedInt 0# ww4_alcW [] of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}))
-- RHS size: {terms: 109, types: 190, coercions: 85, joins: 0/1}
$s$fArrayRSUcse_$s$fArrayRSUcse_$ctranspose
= \ ds_akDX ->
case ds_akDX `cast` <Co:7> of {
RTImage arr_akE5 ->
case arr_akE5 `cast` <Co:9> of { AUnboxed sh1_sHbw ds1_sHbx ->
case sh1_sHbw of { :. ds2_sHbA n_sHbB ->
case ds2_sHbA of { :. sh2_sHbE m_sHbF ->
case ds1_sHbx `cast` <Co:15> of
{ Vector dt_sHbM dt1_sHbN dt2_sHbO ->
case n_sHbB of wild5_sHbT { I# y_sHbU ->
(RDImage
((ADelayed
(:. (:. sh2_sHbE wild5_sHbT) m_sHbF)
(\ ds3_al8p ->
case ds3_al8p of { :. ds4_al8s j_al8t ->
case ds4_al8s of { :. sh3_sHbI i_sHbJ ->
case j_al8t of { I# y1_sHbR ->
case i_sHbJ of { I# y2_sHbX ->
case indexDoubleArray#
dt2_sHbO (+# dt_sHbM (+# (*# y1_sHbR y_sHbU) y2_sHbX))
of wild10_aprL
{ __DEFAULT ->
(D# wild10_aprL) `cast` <Co:7>
}
}
}
}
}))
`cast` <Co:10>))
`cast` <Co:9>
}
}
}
}
};
RDImage arr_akE8 ->
case arr_akE8 `cast` <Co:9> of { ADelayed sh1_sHc0 ds1_sHc1 ->
case sh1_sHc0 of { :. ds2_sHc4 n_sHc5 ->
case ds2_sHc4 of { :. sh2_sHc8 m_sHc9 ->
case n_sHc5 of wild4_sHci { I# y_sHcj ->
(RDImage
((ADelayed
(:. (:. sh2_sHc8 wild4_sHci) m_sHc9)
(\ ds3_al8p ->
case ds3_al8p of { :. ds4_al8s j_al8t ->
case ds4_al8s of { :. sh3_sHcc i_sHcd ->
case j_al8t of { I# y1_sHcg ->
case i_sHcd of { I# y2_sHcm ->
ds1_sHc1
(let { x_al2u = +# (*# y1_sHcg y_sHcj) y2_sHcm } in
case quotInt# x_al2u y_sHcj of wild9_al2A { __DEFAULT ->
case remInt# x_al2u y_sHcj of wild10_al2P { __DEFAULT ->
:. (:. Z (I# wild9_al2A)) (I# wild10_al2P)
}
})
}
}
}
}))
`cast` <Co:10>))
`cast` <Co:9>
}
}
}
}
}
-- RHS size: {terms: 112, types: 150, coercions: 60, joins: 0/1}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cbackpermute
= \ sz_akCr g_akCs ds_akCt ->
case sz_akCr of { (ipv_akCw, ipv1_akCx) ->
case ds_akCt `cast` <Co:7> of img1_akCz { __DEFAULT ->
case ipv_akCw of wild_aiCr { I# x_aiCt ->
case <=# x_aiCt 0# of {
__DEFAULT ->
case ipv1_akCx of wild1_XiRU { I# x1_XiRY ->
case <=# x1_XiRY 0# of {
__DEFAULT ->
(RDImage
((ADelayed
(:. (:. Z wild_aiCr) wild1_XiRU)
(let {
ds1_anvz
= case img1_akCz of {
RTImage arr_akDC ->
case arr_akDC `cast` <Co:5> of { AUnboxed sh2_sHcp ds2_sHcq ->
case ds2_sHcq `cast` <Co:15> of
{ Vector dt_sHct dt1_sHcu dt2_sHcv ->
case sh2_sHcp of wild5_sHcx { :. sh1_sHcy sh4_sHcz ->
case sh4_sHcz of { I# y_sHcJ ->
(ADelayed
wild5_sHcx
(\ ix_akDJ ->
case ix_akDJ of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sHcC sh2'1_sHcD ->
case sh2'1_sHcD of { I# y1_sHcG ->
case sh2'_al1I of { I# y2_sHcM ->
case indexDoubleArray#
dt2_sHcv (+# dt_sHct (+# (*# y1_sHcG y_sHcJ) y2_sHcM))
of wild11_aprL
{ __DEFAULT ->
(D# wild11_aprL) `cast` <Co:7>
}
}
}
}
}))
`cast` <Co:6>
}
}
}
};
RDImage arr_akDL -> arr_akDL
} } in
\ x2_alaK ->
case ds1_anvz `cast` <Co:5> of { ADelayed ds2_anvD f_anvE ->
f_anvE
(case g_akCs (sh2ix x2_alaK) of { (i_akDx, j_akDy) ->
case i_akDx of dt_XkIT { I# ipv2_soBb ->
case j_akDy of dt1_XkIZ { I# ipv3_soBe ->
:. (:. Z dt_XkIT) dt1_XkIZ
}
}
})
}))
`cast` <Co:6>))
`cast` <Co:9>;
1# -> case $wlvl13_rOyV x_aiCt x1_XiRY of wild2_00 { }
}
};
1# ->
case ipv1_akCx of { I# ww1_sDh2 ->
case $wlvl13_rOyV x_aiCt ww1_sDh2 of wild1_00 { }
}
}
}
}
}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl148_rOzR = "accumWithx"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl149_rOzS = unpackCString# lvl148_rOzR
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl150_rOzT = "Impossible happened. Received: "#
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl151_rOzU = " "#
-- RHS size: {terms: 45, types: 51, coercions: 0, joins: 0/3}
lvl152_rOzV
= \ ds7_alVy ds4_alVo ->
errorR
lvl149_rOzS
(unpackAppendCString#
lvl150_rOzT
(case $wshowSignedInt 0# ds4_alVo [] of
{ (# ww5_aiI4, ww6_aiI5 #) ->
let {
z_aiD3
= unpackAppendCString#
lvl151_rOzU
(case $wshowSignedInt 0# ds7_alVy [] of
{ (# ww2_XiSH, ww3_XiSJ #) ->
: ww2_XiSH ww3_XiSJ
}) } in
letrec {
$sgo_sKYi = \ sc_sKYg sc1_sKYh -> : sc_sKYg (go1_aiD4 sc1_sKYh);
go1_aiD4
= \ ds_aiD5 ->
case ds_aiD5 of {
[] -> z_aiD3;
: y_aiDa ys_aiDb -> : y_aiDa (go1_aiD4 ys_aiDb)
}; } in
$sgo_sKYi ww5_aiI4 ww6_aiI5
}))
-- RHS size: {terms: 3, types: 3, coercions: 0, joins: 0/0}
lvl153_rOzW = (overflowError, $fIntegralInt1)
-- RHS size: {terms: 627, types: 447, coercions: 51, joins: 4/11}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cfoldIx
= \ f_akhy px0_akhz ds_akhA ->
case px0_akhz `cast` <Co:5> of nt_soJI { D# ipv_soJK ->
join {
$w$j_sDjT ww_sDjn ww1_sDjt ww2_sDjI ww3_sDjO ww4_sDjR
= join {
$w$j1_sDja ww5_sDj7
= join {
$w$j2_sDiZ ww6_sDiS ww7_sDiX
= let {
$wf_sDiz
= \ w_sDiv ->
let {
ix_alW9
= case quotInt# w_sDiv ww7_sDiX of wild3_al2A { __DEFAULT ->
case remInt# w_sDiv ww7_sDiX of wild5_al2P { __DEFAULT ->
let { x_al2u = +# (*# wild3_al2A ww7_sDiX) wild5_al2P } in
case quotInt# x_al2u ww7_sDiX of wild1_Xlgc { __DEFAULT ->
case remInt# x_al2u ww7_sDiX of wild2_Xlgu { __DEFAULT ->
:. (:. Z (I# wild1_Xlgc)) (I# wild2_Xlgu)
}
}
}
} } in
(# case ix_alW9 of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sHcP sh2'1_sHcQ ->
case sh2'1_sHcQ of { I# y1_sHcT ->
case sh2'_al1I of { I# y2_sHcW ->
let { x_al2u = +# (*# y1_sHcT ww1_sDjt) y2_sHcW } in
case quotInt# x_al2u ww1_sDjt of wild5_al2A { __DEFAULT ->
case remInt# x_al2u ww1_sDjt of wild6_al2P { __DEFAULT ->
I# (+# (*# wild5_al2A ww1_sDjt) wild6_al2P)
}
}
}
}
}
},
ww4_sDjR
(case ix_alW9 of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sHcZ sh2'1_sHd0 ->
case sh2'1_sHd0 of { I# y1_sHd3 ->
case sh2'_al1I of { I# y2_sHd6 ->
let { x_al2u = +# (*# y1_sHd3 ww3_sDjO) y2_sHd6 } in
case quotInt# x_al2u ww3_sDjO of wild5_al2A { __DEFAULT ->
case remInt# x_al2u ww3_sDjO of wild6_al2P { __DEFAULT ->
:. (:. Z (I# wild5_al2A)) (I# wild6_al2P)
}
}
}
}
}
}) #) } in
let { end_alUJ = *# ww6_sDiS ww7_sDiX } in
joinrec {
$s$witer_sKXR sc_sKXQ sc1_sKXO sc2_sKXN
= case >=# sc2_sKXN end_alUJ of {
__DEFAULT ->
case sc1_sKXO of ds5_alVq {
__DEFAULT ->
case $wf_sDiz sc2_sKXN of { (# ww9_sDw5, ww10_sDw6 #) ->
case ww9_sDw5 of { I# ds7_alVy ->
case ds7_alVy of ds8_alVA {
__DEFAULT ->
case lvl152_rOzV ds8_alVA ds5_alVq of wild_00 { };
-1# ->
jump $s$witer_sKXR
(f_akhy
ww10_sDw6
(case ww7_sDiX of wild_ajLz {
__DEFAULT ->
case ># ds5_alVq 0# of {
__DEFAULT ->
case <# ds5_alVq 0# of {
__DEFAULT ->
case quotRemInt# ds5_alVq wild_ajLz of
{ (# ipv1_ajLE, ipv2_ajLF #) ->
(I# ipv1_ajLE, I# ipv2_ajLF)
};
1# ->
case ># wild_ajLz 0# of {
__DEFAULT ->
case quotRemInt# ds5_alVq wild_ajLz
of
{ (# ipv1_ajLK, ipv2_ajLL #) ->
(I# ipv1_ajLK, I# ipv2_ajLL)
};
1# ->
case quotRemInt#
(+# ds5_alVq 1#) wild_ajLz
of
{ (# ipv1_ajLP, ipv2_ajLQ #) ->
(I# (-# ipv1_ajLP 1#),
I#
(-# (+# ipv2_ajLQ wild_ajLz) 1#))
}
}
};
1# ->
case <# wild_ajLz 0# of {
__DEFAULT ->
case <# ds5_alVq 0# of {
__DEFAULT ->
case quotRemInt# ds5_alVq wild_ajLz
of
{ (# ipv1_ajLW, ipv2_ajLX #) ->
(I# ipv1_ajLW, I# ipv2_ajLX)
};
1# ->
case ># wild_ajLz 0# of {
__DEFAULT ->
case quotRemInt#
ds5_alVq wild_ajLz
of
{ (# ipv1_ajM2, ipv2_ajM3 #) ->
(I# ipv1_ajM2, I# ipv2_ajM3)
};
1# ->
case quotRemInt#
(+# ds5_alVq 1#)
wild_ajLz
of
{ (# ipv1_ajM7, ipv2_ajM8 #) ->
(I# (-# ipv1_ajM7 1#),
I#
(-#
(+# ipv2_ajM8 wild_ajLz)
1#))
}
}
};
1# ->
case quotRemInt#
(-# ds5_alVq 1#) wild_ajLz
of
{ (# ipv1_ajMc, ipv2_ajMd #) ->
(I# (-# ipv1_ajMc 1#),
I# (+# (+# ipv2_ajMd wild_ajLz) 1#))
}
}
};
-1# ->
case ds5_alVq of wild1_ajMf {
__DEFAULT ->
case ># wild1_ajMf 0# of {
__DEFAULT ->
case quotRemInt# wild1_ajMf -1# of
{ (# ipv1_ajMk, ipv2_ajMl #) ->
(I# ipv1_ajMk, I# ipv2_ajMl)
};
1# ->
case quotRemInt# (-# wild1_ajMf 1#) -1#
of
{ (# ipv1_ajMu, ipv2_ajMv #) ->
(I# (-# ipv1_ajMu 1#), I# ipv2_ajMv)
}
};
-9223372036854775808# -> lvl153_rOzW
};
0# -> case divZeroError of wild1_00 { }
})
sc_sKXQ)
-1#
(+# sc2_sKXN 1#)
}
}
};
-1# ->
case $wf_sDiz sc2_sKXN of { (# ww9_sDw5, ww10_sDw6 #) ->
jump $s$witer_sKXR
(f_akhy
sc_sKXQ
(case ww9_sDw5 of { I# ipv1_aivF ->
case ww7_sDiX of wild_ajLz {
__DEFAULT ->
case ># ipv1_aivF 0# of {
__DEFAULT ->
case <# ipv1_aivF 0# of {
__DEFAULT ->
case quotRemInt# ipv1_aivF wild_ajLz of
{ (# ipv2_ajLE, ipv3_ajLF #) ->
(I# ipv2_ajLE, I# ipv3_ajLF)
};
1# ->
case ># wild_ajLz 0# of {
__DEFAULT ->
case quotRemInt# ipv1_aivF wild_ajLz of