Skip to content

Instantly share code, notes, and snippets.

@mpickering

mpickering/after

Created June 19, 2023 16:07
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mpickering/18fe8883ddc8f5f7822c34e3cd7ad4af to your computer and use it in GitHub Desktop.
Save mpickering/18fe8883ddc8f5f7822c34e3cd7ad4af to your computer and use it in GitHub Desktop.
Download ZIP
Raw
after
Rec {
-- RHS size: {terms: 681, types: 275, coercions: 6, joins: 0/9}
$wgo3_rq0r
:: [Module]
-> GHC.Data.Word64Map.Internal.Word64Map
(GHC.Types.Unique.DFM.TaggedVal Module)
-> ghc-prim:GHC.Prim.Int#
-> UniqDSet Module
[GblId[StrictWorker([!, !])],
Arity=3,
Str=<1L><1L><L>,
Unf=OtherCon []]
$wgo3_rq0r
= \ (ds_ainM :: [Module])
(ww2_ainN
:: GHC.Data.Word64Map.Internal.Word64Map
(GHC.Types.Unique.DFM.TaggedVal Module))
(ww3_ainO :: ghc-prim:GHC.Prim.Int#) ->
case ww2_ainN of ww4_ainP { __DEFAULT ->
case ds_ainM of {
[] ->
(GHC.Types.Unique.DFM.UDFM @Module @Module ww4_ainP ww3_ainO)
`cast` (Sym (GHC.Types.Unique.DSet.N:UniqDSet[0] <Module>_R)
:: UniqDFM Module Module ~R# UniqDSet Module);
: y_ainS ys_ainT ->
case y_ainS of wild_aism { Module ww_aisn ww1_aiso ->
case ww1_aiso
`cast` (Language.Haskell.Syntax.Module.Name.N:ModuleName[0]
:: ModuleName ~R# GHC.Data.FastString.FastString)
of
{ GHC.Data.FastString.FastString ww7_spI8 ww8_spI9 ww9_spIa
ww5_spIb ->
case ww_aisn of {
RealUnit ds1_aisx ->
case ds1_aisx
`cast` (GHC.Unit.Types.N:Definite[0] (GHC.Unit.Types.N:UnitId[0])
:: Definite UnitId ~R# GHC.Data.FastString.FastString)
of
{ GHC.Data.FastString.FastString ww6_spIe ww10_spIf ww11_spIg
ww12_spIh ->
case GHC.Data.FastString.$wappendFS ww11_spIg ww9_spIa of
{ GHC.Data.FastString.FastString bx_aisG bx1_aisH bx2_aisI
ds2_aisJ ->
let {
ww13_aiof :: ghc-prim:GHC.Prim.Word64#
[LclId]
ww13_aiof
= ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.intToInt64# bx_aisG) } in
case ww4_ainP of wild6_aioh {
GHC.Data.Word64Map.Internal.Bin bx4_aioi bx5_aioj l_aiok r_aiol ->
case ghc-prim:GHC.Prim.neWord64#
(ghc-prim:GHC.Prim.and64#
ww13_aiof
(ghc-prim:GHC.Prim.xor64#
(ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.negateInt64#
(ghc-prim:GHC.Prim.word64ToInt64# bx5_aioj)))
bx5_aioj))
bx4_aioi
of {
__DEFAULT ->
case ghc-prim:GHC.Prim.and64# ww13_aiof bx5_aioj of {
__DEFAULT ->
case GHC.Data.Word64Map.Strict.Internal.insertWithKey_$sinsertWithKey
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.addToUDFM_Directly1 @Module)
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO)
r_aiol
of conrep_aiq1
{ __DEFAULT ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
bx4_aioi
bx5_aioj
l_aiok
conrep_aiq1)
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
};
0#Word64 ->
case GHC.Data.Word64Map.Strict.Internal.insertWithKey_$sinsertWithKey
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.addToUDFM_Directly1 @Module)
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO)
l_aiok
of conrep_aiq3
{ __DEFAULT ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
bx4_aioi
bx5_aioj
conrep_aiq3
r_aiol)
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
}
};
1# ->
let {
y#1_aiq4 :: ghc-prim:GHC.Prim.Word64#
[LclId]
y#1_aiq4
= ghc-prim:GHC.Prim.uncheckedShiftL64#
1#Word64
(ghc-prim:GHC.Prim.-#
63#
(ghc-prim:GHC.Prim.word2Int#
(ghc-prim:GHC.Prim.clz64#
(ghc-prim:GHC.Prim.xor64# ww13_aiof bx4_aioi)))) } in
case ghc-prim:GHC.Prim.and64# ww13_aiof y#1_aiq4 of {
__DEFAULT ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
(ghc-prim:GHC.Prim.and64#
ww13_aiof
(ghc-prim:GHC.Prim.xor64#
(ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.negateInt64#
(ghc-prim:GHC.Prim.word64ToInt64# y#1_aiq4)))
y#1_aiq4))
y#1_aiq4
wild6_aioh
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO)))
(ghc-prim:GHC.Prim.+# ww3_ainO 1#);
0#Word64 ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
(ghc-prim:GHC.Prim.and64#
ww13_aiof
(ghc-prim:GHC.Prim.xor64#
(ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.negateInt64#
(ghc-prim:GHC.Prim.word64ToInt64# y#1_aiq4)))
y#1_aiq4))
y#1_aiq4
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO))
wild6_aioh)
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
}
};
GHC.Data.Word64Map.Internal.Tip bx4_aiq8 y1_aiq9 ->
case ghc-prim:GHC.Prim.eqWord64# ww13_aiof bx4_aiq8 of {
__DEFAULT ->
let {
y#1_aiqc :: ghc-prim:GHC.Prim.Word64#
[LclId]
y#1_aiqc
= ghc-prim:GHC.Prim.uncheckedShiftL64#
1#Word64
(ghc-prim:GHC.Prim.-#
63#
(ghc-prim:GHC.Prim.word2Int#
(ghc-prim:GHC.Prim.clz64#
(ghc-prim:GHC.Prim.xor64# ww13_aiof bx4_aiq8)))) } in
case ghc-prim:GHC.Prim.and64# ww13_aiof y#1_aiqc of {
__DEFAULT ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
(ghc-prim:GHC.Prim.and64#
ww13_aiof
(ghc-prim:GHC.Prim.xor64#
(ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.negateInt64#
(ghc-prim:GHC.Prim.word64ToInt64# y#1_aiqc)))
y#1_aiqc))
y#1_aiqc
wild6_aioh
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO)))
(ghc-prim:GHC.Prim.+# ww3_ainO 1#);
0#Word64 ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
(ghc-prim:GHC.Prim.and64#
ww13_aiof
(ghc-prim:GHC.Prim.xor64#
(ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.negateInt64#
(ghc-prim:GHC.Prim.word64ToInt64# y#1_aiqc)))
y#1_aiqc))
y#1_aiqc
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO))
wild6_aioh)
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
};
1# ->
case y1_aiq9 of
{ GHC.Types.Unique.DFM.TaggedVal ds4_aiqi bx5_aiqj ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism bx5_aiqj))
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
}
};
GHC.Data.Word64Map.Internal.Nil ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO))
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
}
}
};
VirtUnit bx_aisL bx1_aisM bx2_aisN bx3_aisO bx4_aisP ->
case bx_aisL of
{ GHC.Data.FastString.FastString ww6_spIk ww10_spIl ww11_spIm
ww12_spIn ->
case GHC.Data.FastString.$wappendFS ww11_spIm ww9_spIa of
{ GHC.Data.FastString.FastString bx5_aisY bx6_aisZ bx7_ait0
ds1_ait1 ->
let {
ww13_aiof :: ghc-prim:GHC.Prim.Word64#
[LclId]
ww13_aiof
= ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.intToInt64# bx5_aisY) } in
case ww4_ainP of wild6_aioh {
GHC.Data.Word64Map.Internal.Bin bx11_aioi bx12_aioj l_aiok
r_aiol ->
case ghc-prim:GHC.Prim.neWord64#
(ghc-prim:GHC.Prim.and64#
ww13_aiof
(ghc-prim:GHC.Prim.xor64#
(ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.negateInt64#
(ghc-prim:GHC.Prim.word64ToInt64# bx12_aioj)))
bx12_aioj))
bx11_aioi
of {
__DEFAULT ->
case ghc-prim:GHC.Prim.and64# ww13_aiof bx12_aioj of {
__DEFAULT ->
case GHC.Data.Word64Map.Strict.Internal.insertWithKey_$sinsertWithKey
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.addToUDFM_Directly1 @Module)
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO)
r_aiol
of conrep_aiq1
{ __DEFAULT ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
bx11_aioi
bx12_aioj
l_aiok
conrep_aiq1)
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
};
0#Word64 ->
case GHC.Data.Word64Map.Strict.Internal.insertWithKey_$sinsertWithKey
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.addToUDFM_Directly1 @Module)
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO)
l_aiok
of conrep_aiq3
{ __DEFAULT ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
bx11_aioi
bx12_aioj
conrep_aiq3
r_aiol)
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
}
};
1# ->
let {
y#1_aiq4 :: ghc-prim:GHC.Prim.Word64#
[LclId]
y#1_aiq4
= ghc-prim:GHC.Prim.uncheckedShiftL64#
1#Word64
(ghc-prim:GHC.Prim.-#
63#
(ghc-prim:GHC.Prim.word2Int#
(ghc-prim:GHC.Prim.clz64#
(ghc-prim:GHC.Prim.xor64# ww13_aiof bx11_aioi)))) } in
case ghc-prim:GHC.Prim.and64# ww13_aiof y#1_aiq4 of {
__DEFAULT ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
(ghc-prim:GHC.Prim.and64#
ww13_aiof
(ghc-prim:GHC.Prim.xor64#
(ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.negateInt64#
(ghc-prim:GHC.Prim.word64ToInt64# y#1_aiq4)))
y#1_aiq4))
y#1_aiq4
wild6_aioh
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO)))
(ghc-prim:GHC.Prim.+# ww3_ainO 1#);
0#Word64 ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
(ghc-prim:GHC.Prim.and64#
ww13_aiof
(ghc-prim:GHC.Prim.xor64#
(ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.negateInt64#
(ghc-prim:GHC.Prim.word64ToInt64# y#1_aiq4)))
y#1_aiq4))
y#1_aiq4
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO))
wild6_aioh)
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
}
};
GHC.Data.Word64Map.Internal.Tip bx11_aiq8 y1_aiq9 ->
case ghc-prim:GHC.Prim.eqWord64# ww13_aiof bx11_aiq8 of {
__DEFAULT ->
let {
y#1_aiqc :: ghc-prim:GHC.Prim.Word64#
[LclId]
y#1_aiqc
= ghc-prim:GHC.Prim.uncheckedShiftL64#
1#Word64
(ghc-prim:GHC.Prim.-#
63#
(ghc-prim:GHC.Prim.word2Int#
(ghc-prim:GHC.Prim.clz64#
(ghc-prim:GHC.Prim.xor64# ww13_aiof bx11_aiq8)))) } in
case ghc-prim:GHC.Prim.and64# ww13_aiof y#1_aiqc of {
__DEFAULT ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
(ghc-prim:GHC.Prim.and64#
ww13_aiof
(ghc-prim:GHC.Prim.xor64#
(ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.negateInt64#
(ghc-prim:GHC.Prim.word64ToInt64# y#1_aiqc)))
y#1_aiqc))
y#1_aiqc
wild6_aioh
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO)))
(ghc-prim:GHC.Prim.+# ww3_ainO 1#);
0#Word64 ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
(ghc-prim:GHC.Prim.and64#
ww13_aiof
(ghc-prim:GHC.Prim.xor64#
(ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.negateInt64#
(ghc-prim:GHC.Prim.word64ToInt64# y#1_aiqc)))
y#1_aiqc))
y#1_aiqc
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO))
wild6_aioh)
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
};
1# ->
case y1_aiq9 of
{ GHC.Types.Unique.DFM.TaggedVal ds2_aiqi bx12_aiqj ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism bx12_aiqj))
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
}
};
GHC.Data.Word64Map.Internal.Nil ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO))
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
}
}
};
HoleUnit ->
case GHC.Unit.Types.holeFS of
{ GHC.Data.FastString.FastString ww6_ait4 ww10_ait6 ww11_ait7
ww12_ait8 ->
case GHC.Data.FastString.$wappendFS ww11_ait7 ww9_spIa of
{ GHC.Data.FastString.FastString bx_aitb bx1_aitc bx2_aitd
ds1_aite ->
let {
ww13_aiof :: ghc-prim:GHC.Prim.Word64#
[LclId]
ww13_aiof
= ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.intToInt64# bx_aitb) } in
case ww4_ainP of wild6_aioh {
GHC.Data.Word64Map.Internal.Bin bx4_aioi bx5_aioj l_aiok r_aiol ->
case ghc-prim:GHC.Prim.neWord64#
(ghc-prim:GHC.Prim.and64#
ww13_aiof
(ghc-prim:GHC.Prim.xor64#
(ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.negateInt64#
(ghc-prim:GHC.Prim.word64ToInt64# bx5_aioj)))
bx5_aioj))
bx4_aioi
of {
__DEFAULT ->
case ghc-prim:GHC.Prim.and64# ww13_aiof bx5_aioj of {
__DEFAULT ->
case GHC.Data.Word64Map.Strict.Internal.insertWithKey_$sinsertWithKey
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.addToUDFM_Directly1 @Module)
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO)
r_aiol
of conrep_aiq1
{ __DEFAULT ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
bx4_aioi
bx5_aioj
l_aiok
conrep_aiq1)
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
};
0#Word64 ->
case GHC.Data.Word64Map.Strict.Internal.insertWithKey_$sinsertWithKey
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.addToUDFM_Directly1 @Module)
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO)
l_aiok
of conrep_aiq3
{ __DEFAULT ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
bx4_aioi
bx5_aioj
conrep_aiq3
r_aiol)
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
}
};
1# ->
let {
y#1_aiq4 :: ghc-prim:GHC.Prim.Word64#
[LclId]
y#1_aiq4
= ghc-prim:GHC.Prim.uncheckedShiftL64#
1#Word64
(ghc-prim:GHC.Prim.-#
63#
(ghc-prim:GHC.Prim.word2Int#
(ghc-prim:GHC.Prim.clz64#
(ghc-prim:GHC.Prim.xor64# ww13_aiof bx4_aioi)))) } in
case ghc-prim:GHC.Prim.and64# ww13_aiof y#1_aiq4 of {
__DEFAULT ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
(ghc-prim:GHC.Prim.and64#
ww13_aiof
(ghc-prim:GHC.Prim.xor64#
(ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.negateInt64#
(ghc-prim:GHC.Prim.word64ToInt64# y#1_aiq4)))
y#1_aiq4))
y#1_aiq4
wild6_aioh
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO)))
(ghc-prim:GHC.Prim.+# ww3_ainO 1#);
0#Word64 ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
(ghc-prim:GHC.Prim.and64#
ww13_aiof
(ghc-prim:GHC.Prim.xor64#
(ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.negateInt64#
(ghc-prim:GHC.Prim.word64ToInt64# y#1_aiq4)))
y#1_aiq4))
y#1_aiq4
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO))
wild6_aioh)
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
}
};
GHC.Data.Word64Map.Internal.Tip bx4_aiq8 y1_aiq9 ->
case ghc-prim:GHC.Prim.eqWord64# ww13_aiof bx4_aiq8 of {
__DEFAULT ->
let {
y#1_aiqc :: ghc-prim:GHC.Prim.Word64#
[LclId]
y#1_aiqc
= ghc-prim:GHC.Prim.uncheckedShiftL64#
1#Word64
(ghc-prim:GHC.Prim.-#
63#
(ghc-prim:GHC.Prim.word2Int#
(ghc-prim:GHC.Prim.clz64#
(ghc-prim:GHC.Prim.xor64# ww13_aiof bx4_aiq8)))) } in
case ghc-prim:GHC.Prim.and64# ww13_aiof y#1_aiqc of {
__DEFAULT ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
(ghc-prim:GHC.Prim.and64#
ww13_aiof
(ghc-prim:GHC.Prim.xor64#
(ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.negateInt64#
(ghc-prim:GHC.Prim.word64ToInt64# y#1_aiqc)))
y#1_aiqc))
y#1_aiqc
wild6_aioh
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO)))
(ghc-prim:GHC.Prim.+# ww3_ainO 1#);
0#Word64 ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Bin
@(GHC.Types.Unique.DFM.TaggedVal Module)
(ghc-prim:GHC.Prim.and64#
ww13_aiof
(ghc-prim:GHC.Prim.xor64#
(ghc-prim:GHC.Prim.int64ToWord64#
(ghc-prim:GHC.Prim.negateInt64#
(ghc-prim:GHC.Prim.word64ToInt64# y#1_aiqc)))
y#1_aiqc))
y#1_aiqc
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO))
wild6_aioh)
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
};
1# ->
case y1_aiq9 of
{ GHC.Types.Unique.DFM.TaggedVal ds2_aiqi bx5_aiqj ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism bx5_aiqj))
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
}
};
GHC.Data.Word64Map.Internal.Nil ->
$wgo3_rq0r
ys_ainT
(GHC.Data.Word64Map.Internal.Tip
@(GHC.Types.Unique.DFM.TaggedVal Module)
ww13_aiof
(GHC.Types.Unique.DFM.TaggedVal @Module wild_aism ww3_ainO))
(ghc-prim:GHC.Prim.+# ww3_ainO 1#)
}
}
}
}
}
}
}
}
end Rec }
Raw
before
-- RHS size: {terms: 172, types: 157, coercions: 12, joins: 1/1}
$wgo3_roVt
:: [Module]
-> Data.IntMap.Internal.IntMap
(GHC.Types.Unique.DFM.TaggedVal Module)
-> ghc-prim:GHC.Prim.Int#
-> UniqDSet Module
[GblId[StrictWorker([!, !])],
Arity=3,
Str=<1L><1L><L>,
Unf=OtherCon []]
$wgo3_roVt
= \ (ds_ahTN :: [Module])
(ww2_ahTO
:: Data.IntMap.Internal.IntMap
(GHC.Types.Unique.DFM.TaggedVal Module))
(ww3_ahTP :: ghc-prim:GHC.Prim.Int#) ->
case ww2_ahTO of ww4_ahTQ { __DEFAULT ->
case ds_ahTN of {
[] ->
(GHC.Types.Unique.DFM.UDFM @Module @Module ww4_ahTQ ww3_ahTP)
`cast` (Sym (GHC.Types.Unique.DSet.N:UniqDSet[0] <Module>_R)
:: UniqDFM Module Module ~R# UniqDSet Module);
: y_ahTT ys_ahTU ->
case y_ahTT of wild_ahVD { Module ww_ahVE ww1_ahVF ->
case ww1_ahVF
`cast` (Language.Haskell.Syntax.Module.Name.N:ModuleName[0]
:: ModuleName ~R# GHC.Data.FastString.FastString)
of
{ GHC.Data.FastString.FastString ww7_soO8 ww8_soO9 ww9_soOa
ww5_soOb ->
case ww_ahVE of {
RealUnit ds1_ahVO ->
case ds1_ahVO
`cast` (GHC.Unit.Types.N:Definite[0] (GHC.Unit.Types.N:UnitId[0])
:: Definite UnitId ~R# GHC.Data.FastString.FastString)
of
{ GHC.Data.FastString.FastString ww6_soOe ww10_soOf ww11_soOg
ww12_soOh ->
case GHC.Data.FastString.$wappendFS ww11_soOg ww9_soOa of
{ GHC.Data.FastString.FastString bx_ahVX bx1_ahVY bx2_ahVZ
ds2_ahW0 ->
$wgo3_roVt
ys_ahTU
(Data.IntMap.Strict.Internal.insertWithKey
@(GHC.Types.Unique.DFM.TaggedVal Module)
(GHC.Types.Unique.DFM.addListToUDFM1 @Module)
(ghc-prim:GHC.Types.I# bx_ahVX)
(GHC.Types.Unique.DFM.TaggedVal @Module wild_ahVD ww3_ahTP)
ww4_ahTQ)
(ghc-prim:GHC.Prim.+# ww3_ahTP 1#)
}
};
VirtUnit bx_ahW2 bx1_ahW3 bx2_ahW4 bx3_ahW5 bx4_ahW6 ->
case bx_ahW2 of
{ GHC.Data.FastString.FastString ww6_soOk ww10_soOl ww11_soOm
ww12_soOn ->
case GHC.Data.FastString.$wappendFS ww11_soOm ww9_soOa of
{ GHC.Data.FastString.FastString bx5_ahWf bx6_ahWg bx7_ahWh
ds1_ahWi ->
$wgo3_roVt
ys_ahTU
(Data.IntMap.Strict.Internal.insertWithKey
@(GHC.Types.Unique.DFM.TaggedVal Module)
(GHC.Types.Unique.DFM.addListToUDFM1 @Module)
(ghc-prim:GHC.Types.I# bx5_ahWf)
(GHC.Types.Unique.DFM.TaggedVal @Module wild_ahVD ww3_ahTP)
ww4_ahTQ)
(ghc-prim:GHC.Prim.+# ww3_ahTP 1#)
}
};
HoleUnit ->
case GHC.Unit.Types.holeFS of
{ GHC.Data.FastString.FastString ww6_ahWl ww10_ahWn ww11_ahWo
ww12_ahWp ->
case GHC.Data.FastString.$wappendFS ww11_ahWo ww9_soOa of
{ GHC.Data.FastString.FastString bx_ahWs bx1_ahWt bx2_ahWu
ds1_ahWv ->
joinrec {
$wgo4_Xb [InlPrag=[2],
Occ=LoopBreaker,
Dmd=SC(S,C(1,C(1,!P(L,L))))]
:: [Module]
-> Data.IntMap.Internal.IntMap
(GHC.Types.Unique.DFM.TaggedVal Module)
-> ghc-prim:GHC.Prim.Int#
-> UniqDSet Module
[LclId[JoinId(3)(Just [!, !])],
Arity=3,
Str=<1L><1L><L>,
Unf=OtherCon []]
$wgo4_Xb (ds2_Xc :: [Module])
(ww13_Xd
:: Data.IntMap.Internal.IntMap
(GHC.Types.Unique.DFM.TaggedVal Module))
(ww14_Xe :: ghc-prim:GHC.Prim.Int#)
= case ww13_Xd of ww15_Xf { __DEFAULT ->
case ds2_Xc of {
[] ->
(GHC.Types.Unique.DFM.UDFM @Module @Module ww15_Xf ww14_Xe)
`cast` (Sym (GHC.Types.Unique.DSet.N:UniqDSet[0] <Module>_R)
:: UniqDFM Module Module ~R# UniqDSet Module);
: y1_Xh ys1_Xi ->
case y1_Xh of wild7_Xj { Module ww16_Xk ww17_Xl ->
case ww17_Xl
`cast` (Language.Haskell.Syntax.Module.Name.N:ModuleName[0]
:: ModuleName ~R# GHC.Data.FastString.FastString)
of
{ GHC.Data.FastString.FastString ww18_Xn ww19_Xo ww20_Xp ww21_Xq ->
case ww16_Xk of {
RealUnit ds3_ahVO ->
case ds3_ahVO
`cast` (GHC.Unit.Types.N:Definite[0] (GHC.Unit.Types.N:UnitId[0])
:: Definite UnitId ~R# GHC.Data.FastString.FastString)
of
{ GHC.Data.FastString.FastString ww22_soOe ww23_soOf ww24_soOg
ww25_soOh ->
case GHC.Data.FastString.$wappendFS ww24_soOg ww20_Xp of
{ GHC.Data.FastString.FastString bx4_ahVX bx5_ahVY bx6_ahVZ
ds4_ahW0 ->
jump $wgo4_Xb
ys1_Xi
(Data.IntMap.Strict.Internal.insertWithKey
@(GHC.Types.Unique.DFM.TaggedVal Module)
(GHC.Types.Unique.DFM.addListToUDFM1 @Module)
(ghc-prim:GHC.Types.I# bx4_ahVX)
(GHC.Types.Unique.DFM.TaggedVal @Module wild7_Xj ww14_Xe)
ww15_Xf)
(ghc-prim:GHC.Prim.+# ww14_Xe 1#)
}
};
VirtUnit bx4_ahW2 bx5_ahW3 bx6_ahW4 bx3_ahW5 bx7_ahW6 ->
case bx4_ahW2 of
{ GHC.Data.FastString.FastString ww22_soOk ww23_soOl ww24_soOm
ww25_soOn ->
case GHC.Data.FastString.$wappendFS ww24_soOm ww20_Xp of
{ GHC.Data.FastString.FastString bx8_ahWf bx9_ahWg bx10_ahWh
ds3_ahWi ->
jump $wgo4_Xb
ys1_Xi
(Data.IntMap.Strict.Internal.insertWithKey
@(GHC.Types.Unique.DFM.TaggedVal Module)
(GHC.Types.Unique.DFM.addListToUDFM1 @Module)
(ghc-prim:GHC.Types.I# bx8_ahWf)
(GHC.Types.Unique.DFM.TaggedVal @Module wild7_Xj ww14_Xe)
ww15_Xf)
(ghc-prim:GHC.Prim.+# ww14_Xe 1#)
}
};
HoleUnit ->
case GHC.Data.FastString.$wappendFS ww11_ahWo ww20_Xp of
{ GHC.Data.FastString.FastString bx4_Xy bx5_Xz bx6_XA ds3_XB ->
jump $wgo4_Xb
ys1_Xi
(Data.IntMap.Strict.Internal.insertWithKey
@(GHC.Types.Unique.DFM.TaggedVal Module)
(GHC.Types.Unique.DFM.addListToUDFM1 @Module)
(ghc-prim:GHC.Types.I# bx4_Xy)
(GHC.Types.Unique.DFM.TaggedVal @Module wild7_Xj ww14_Xe)
ww15_Xf)
(ghc-prim:GHC.Prim.+# ww14_Xe 1#)
}
}
}
}
}
}; } in
jump $wgo4_Xb
ys_ahTU
(Data.IntMap.Strict.Internal.insertWithKey
@(GHC.Types.Unique.DFM.TaggedVal Module)
(GHC.Types.Unique.DFM.addListToUDFM1 @Module)
(ghc-prim:GHC.Types.I# bx_ahWs)
(GHC.Types.Unique.DFM.TaggedVal @Module wild_ahVD ww3_ahTP)
ww4_ahTQ)
(ghc-prim:GHC.Prim.+# ww3_ahTP 1#)
}
}
}
}
}
}
}
end Rec }
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment