Skip to content

Instantly share code, notes, and snippets.

@ndmitchell

ndmitchell/Bad (full)

Created March 19, 2015 23:56
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 ndmitchell/b222e04eb0c3a397c758 to your computer and use it in GitHub Desktop.
Save ndmitchell/b222e04eb0c3a397c758 to your computer and use it in GitHub Desktop.
Download ZIP
GHC 7.10 RC3 Shake issues
Raw
Bad (full)
This file has been truncated, but you can view the full file.
[31 of 55] Compiling Development.Shake.Errors ( src\Development\Shake\Errors.hs, .hpc\core\Development\Shake\Errors.o )
==================== Tidy Core ====================
Result size of Tidy Core
= {terms: 2,070, types: 2,156, coercions: 13}
Development.Shake.Errors.$fExceptionShakeException1 :: [Char]
[GblId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=False, ConLike=False,
WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 40 0}]
Development.Shake.Errors.$fExceptionShakeException1 =
GHC.CString.unpackCString# "* "#
Development.Shake.Errors.$fExceptionShakeException2 :: [Char]
[GblId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=False, ConLike=False,
WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 130 0}]
Development.Shake.Errors.$fExceptionShakeException2 =
GHC.CString.unpackCString#
"Error when running Shake build system:"#
Development.Shake.Errors.$fExceptionShakeException_ww4 :: String
[GblId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=False, ConLike=False,
WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 90 0}]
Development.Shake.Errors.$fExceptionShakeException_ww4 =
GHC.CString.unpackCString# "Development.Shake.Errors"#
Development.Shake.Errors.$fExceptionShakeException_ww5 :: String
[GblId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=False, ConLike=False,
WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 70 0}]
Development.Shake.Errors.$fExceptionShakeException_ww5 =
GHC.CString.unpackCString# "ShakeException"#
Development.Shake.Errors.$fExceptionShakeException_ww2 :: String
[GblId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=False, ConLike=False,
WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 40 0}]
Development.Shake.Errors.$fExceptionShakeException_ww2 =
GHC.CString.unpackCString# "main"#
Development.Shake.Errors.$fExceptionShakeException_wild :: TyCon
[GblId,
Str=DmdType m,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 60}]
Development.Shake.Errors.$fExceptionShakeException_wild =
Data.Typeable.Internal.TyCon
(__word 10157797340292954314)
(__word 7334185207056361348)
Development.Shake.Errors.$fExceptionShakeException_ww2
Development.Shake.Errors.$fExceptionShakeException_ww4
Development.Shake.Errors.$fExceptionShakeException_ww5
Development.Shake.Errors.$fExceptionShakeException5 :: TypeRep
[GblId,
Str=DmdType m,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 60}]
Development.Shake.Errors.$fExceptionShakeException5 =
Data.Typeable.Internal.TypeRep
(__word 10157797340292954314)
(__word 7334185207056361348)
Development.Shake.Errors.$fExceptionShakeException_wild
(GHC.Types.[] @ Data.Typeable.Internal.KindRep)
(GHC.Types.[] @ TypeRep)
Development.Shake.Errors.$fExceptionShakeException4
:: GHC.Prim.Proxy# ShakeException -> TypeRep
[GblId,
Arity=1,
Str=DmdType <L,A>m,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=True)
Tmpl= \ _ [Occ=Dead] ->
Development.Shake.Errors.$fExceptionShakeException5}]
Development.Shake.Errors.$fExceptionShakeException4 =
\ _ [Occ=Dead] ->
Development.Shake.Errors.$fExceptionShakeException5
Development.Shake.Errors.$fExceptionShakeException3
:: Typeable ShakeException
[GblId,
Arity=1,
Str=DmdType <L,A>m,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Errors.$fExceptionShakeException4
`cast` (Sym
(Data.Typeable.Internal.NTCo:Typeable[0] <*>_N <ShakeException>_N)
:: (GHC.Prim.Proxy# ShakeException -> TypeRep)
~R# Typeable ShakeException)}]
Development.Shake.Errors.$fExceptionShakeException3 =
Development.Shake.Errors.$fExceptionShakeException4
`cast` (Sym
(Data.Typeable.Internal.NTCo:Typeable[0] <*>_N <ShakeException>_N)
:: (GHC.Prim.Proxy# ShakeException -> TypeRep)
~R# Typeable ShakeException)
Development.Shake.Errors.$w$cshow [InlPrag=[0]]
:: [String] -> SomeException -> String
[GblId,
Arity=2,
Str=DmdType <L,1*U><L,1*U>,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [0 20] 260 0}]
Development.Shake.Errors.$w$cshow =
\ (ww_sbsp :: [String]) (ww1_sbsq :: SomeException) ->
unlines
(GHC.Types.:
@ String
Development.Shake.Errors.$fExceptionShakeException2
(let {
a34_sbdZ :: [Char]
[LclId, Str=DmdType]
a34_sbdZ =
case ww1_sbsq
of _ [Occ=Dead]
{ SomeException @ e0_iaFO $dException_iaFP e1_iaFQ ->
showsPrec
@ e0_iaFO
(GHC.Exception.$p2Exception @ e0_iaFO $dException_iaFP)
GHC.Show.shows18
e1_iaFQ
(GHC.Types.[] @ Char)
} } in
let {
z3_iaAT :: [[Char]]
[LclId, Str=DmdType]
z3_iaAT =
GHC.Types.: @ [Char] a34_sbdZ (GHC.Types.[] @ [Char]) } in
letrec {
go2_iaAV [Occ=LoopBreaker] :: [[Char]] -> [[Char]]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go2_iaAV =
\ (ds_iaAW :: [[Char]]) ->
case ds_iaAW of _ [Occ=Dead] {
[] -> z3_iaAT;
: y_iaB1 ys_iaB2 ->
GHC.Types.:
@ [Char]
(++
@ Char Development.Shake.Errors.$fExceptionShakeException1 y_iaB1)
(go2_iaAV ys_iaB2)
}; } in
go2_iaAV ww_sbsp))
Development.Shake.Errors.$fExceptionShakeException_$cshow [InlPrag=INLINE[0]]
:: ShakeException -> String
[GblId,
Arity=1,
Str=DmdType <S,1*U(A,1*U,1*U)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (w_sbsl [Occ=Once!] :: ShakeException) ->
case w_sbsl
of _ [Occ=Dead]
{ ShakeException _ [Occ=Dead] ww2_sbsp [Occ=Once]
ww3_sbsq [Occ=Once] ->
Development.Shake.Errors.$w$cshow ww2_sbsp ww3_sbsq
}}]
Development.Shake.Errors.$fExceptionShakeException_$cshow =
\ (w_sbsl :: ShakeException) ->
case w_sbsl
of _ [Occ=Dead] { ShakeException ww1_sbso ww2_sbsp ww3_sbsq ->
Development.Shake.Errors.$w$cshow ww2_sbsp ww3_sbsq
}
Development.Shake.Errors.$fShowShakeException_$cshowsPrec
:: Int -> ShakeException -> ShowS
[GblId,
Arity=3,
Str=DmdType <L,A><S,1*U(A,1*U,1*U)><L,1*U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=False)
Tmpl= \ _ [Occ=Dead]
(x_iaDM [Occ=Once] :: ShakeException)
(s_iaDN [Occ=Once] :: String) ->
GHC.Base.augment
@ Char
(\ (@ b_iaEy)
(c_iaEz [Occ=Once, OS=OneShot] :: Char -> b_iaEy -> b_iaEy)
(n_iaEA [Occ=Once, OS=OneShot] :: b_iaEy) ->
GHC.Base.foldr
@ Char
@ b_iaEy
c_iaEz
n_iaEA
(Development.Shake.Errors.$fExceptionShakeException_$cshow x_iaDM))
s_iaDN}]
Development.Shake.Errors.$fShowShakeException_$cshowsPrec =
\ _ [Occ=Dead] (x_iaDM :: ShakeException) (s_iaDN :: String) ->
case x_iaDM
of _ [Occ=Dead] { ShakeException ww1_sbso ww2_sbsp ww3_sbsq ->
++
@ Char (Development.Shake.Errors.$w$cshow ww2_sbsp ww3_sbsq) s_iaDN
}
Development.Shake.Errors.$fShowShakeException1
:: ShakeException -> String -> [Char]
[GblId,
Arity=2,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [20 0] 70 0}]
Development.Shake.Errors.$fShowShakeException1 =
\ (x_iaDM :: ShakeException) (s_iaDN [OS=OneShot] :: String) ->
case x_iaDM
of _ [Occ=Dead] { ShakeException ww1_sbso ww2_sbsp ww3_sbsq ->
++
@ Char (Development.Shake.Errors.$w$cshow ww2_sbsp ww3_sbsq) s_iaDN
}
Development.Shake.Errors.$fShowShakeException_$cshowList
:: [ShakeException] -> ShowS
[GblId,
Arity=2,
Str=DmdType <S,1*U><L,U>,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [0 0] 40 0}]
Development.Shake.Errors.$fShowShakeException_$cshowList =
\ (ls_iaDD :: [ShakeException]) (s_iaDE :: String) ->
GHC.Show.showList__
@ ShakeException
Development.Shake.Errors.$fShowShakeException1
ls_iaDD
s_iaDE
Development.Shake.Errors.$fShowShakeException [InlPrag=[ALWAYS] CONLIKE]
:: Show ShakeException
[GblId[DFunId],
Str=DmdType m,
Unf=DFun: \ ->
GHC.Show.D:Show TYPE ShakeException
Development.Shake.Errors.$fShowShakeException_$cshowsPrec
Development.Shake.Errors.$fExceptionShakeException_$cshow
Development.Shake.Errors.$fShowShakeException_$cshowList]
Development.Shake.Errors.$fShowShakeException =
GHC.Show.D:Show
@ ShakeException
Development.Shake.Errors.$fShowShakeException_$cshowsPrec
Development.Shake.Errors.$fExceptionShakeException_$cshow
Development.Shake.Errors.$fShowShakeException_$cshowList
Development.Shake.Errors.$fExceptionShakeException_$cdisplayException
:: ShakeException -> String
[GblId,
Arity=1,
Str=DmdType <S,1*U(A,1*U,1*U)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Errors.$fExceptionShakeException_$cshow}]
Development.Shake.Errors.$fExceptionShakeException_$cdisplayException =
Development.Shake.Errors.$fExceptionShakeException_$cshow
Development.Shake.Errors.$fExceptionShakeException_$cfromException
:: SomeException -> Maybe ShakeException
[GblId,
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S,1*U>,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [20] 91 40}]
Development.Shake.Errors.$fExceptionShakeException_$cfromException =
\ (eta_iaE1 :: SomeException) ->
case eta_iaE1
of _ [Occ=Dead]
{ SomeException @ e10_iaE7 $dException1_iaE8 e2_iaE9 ->
case ((GHC.Exception.$p1Exception @ e10_iaE7 $dException1_iaE8)
`cast` (Data.Typeable.Internal.NTCo:Typeable[0] <*>_N <e10_iaE7>_N
:: Typeable e10_iaE7 ~R# (GHC.Prim.Proxy# e10_iaE7 -> TypeRep)))
(GHC.Prim.proxy# @ * @ e10_iaE7)
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt_iaP6 dt1_iaP7 ds2_iaP8 ds3_iaP9
ds4_iaPa ->
case dt_iaP6 of _ [Occ=Dead] {
__DEFAULT -> GHC.Base.Nothing @ ShakeException;
__word 10157797340292954314 ->
case dt1_iaP7 of _ [Occ=Dead] {
__DEFAULT -> GHC.Base.Nothing @ ShakeException;
__word 7334185207056361348 ->
GHC.Base.Just
@ ShakeException
(e2_iaE9
`cast` (UnivCo mkUnsafeCo representational e10_iaE7 ShakeException
:: e10_iaE7 ~R# ShakeException))
}
}
}
}
Rec {
Development.Shake.Errors.$fExceptionShakeException [InlPrag=[ALWAYS] CONLIKE]
:: Exception ShakeException
[GblId[DFunId],
Str=DmdType m,
Unf=DFun: \ ->
GHC.Exception.D:Exception TYPE ShakeException
Development.Shake.Errors.$fExceptionShakeException3
Development.Shake.Errors.$fShowShakeException
Development.Shake.Errors.$fExceptionShakeException_$ctoException
Development.Shake.Errors.$fExceptionShakeException_$cfromException
Development.Shake.Errors.$fExceptionShakeException_$cdisplayException]
Development.Shake.Errors.$fExceptionShakeException =
GHC.Exception.D:Exception
@ ShakeException
(Development.Shake.Errors.$fExceptionShakeException4
`cast` (Sym
(Data.Typeable.Internal.NTCo:Typeable[0] <*>_N <ShakeException>_N)
:: (GHC.Prim.Proxy# ShakeException -> TypeRep)
~R# Typeable ShakeException))
Development.Shake.Errors.$fShowShakeException
Development.Shake.Errors.$fExceptionShakeException_$ctoException
Development.Shake.Errors.$fExceptionShakeException_$cfromException
Development.Shake.Errors.$fExceptionShakeException_$cshow
Development.Shake.Errors.$fExceptionShakeException_$ctoException [Occ=LoopBreaker]
:: ShakeException -> SomeException
[GblId, Arity=1, Str=DmdType]
Development.Shake.Errors.$fExceptionShakeException_$ctoException =
GHC.Exception.SomeException
@ ShakeException Development.Shake.Errors.$fExceptionShakeException
end Rec }
a_rbOo :: [Char]
[GblId, Str=DmdType]
a_rbOo = GHC.CString.unpackCString# "_rule_"#
a1_rbOp :: [Char]
[GblId, Str=DmdType]
a1_rbOp = GHC.CString.unpackCString# "oracle"#
a2_rbOq :: ([Char], [Char])
[GblId, Str=DmdType m]
a2_rbOq = (a_rbOo, a1_rbOp)
a3_rbOr :: [Char]
[GblId, Str=DmdType]
a3_rbOr = GHC.CString.unpackCString# "_Rule_"#
a4_rbOs :: [Char]
[GblId, Str=DmdType]
a4_rbOs = GHC.CString.unpackCString# "Oracle"#
a5_rbOt :: ([Char], [Char])
[GblId, Str=DmdType m]
a5_rbOt = (a3_rbOr, a4_rbOs)
a6_rbOu :: [Char]
[GblId, Str=DmdType]
a6_rbOu = GHC.CString.unpackCString# "_key_"#
a7_rbOv :: [Char]
[GblId, Str=DmdType]
a7_rbOv = GHC.CString.unpackCString# "question"#
a8_rbOw :: ([Char], [Char])
[GblId, Str=DmdType m]
a8_rbOw = (a6_rbOu, a7_rbOv)
a9_rbOx :: [Char]
[GblId, Str=DmdType]
a9_rbOx = GHC.CString.unpackCString# "_Key_"#
a10_rbOy :: [Char]
[GblId, Str=DmdType]
a10_rbOy = GHC.CString.unpackCString# "Question"#
a11_rbOz :: ([Char], [Char])
[GblId, Str=DmdType m]
a11_rbOz = (a9_rbOx, a10_rbOy)
a12_rbOA :: [Char]
[GblId, Str=DmdType]
a12_rbOA = GHC.CString.unpackCString# "_result_"#
a13_rbOB :: [Char]
[GblId, Str=DmdType]
a13_rbOB = GHC.CString.unpackCString# "answer"#
a14_rbOC :: ([Char], [Char])
[GblId, Str=DmdType m]
a14_rbOC = (a12_rbOA, a13_rbOB)
a15_rbOD :: [Char]
[GblId, Str=DmdType]
a15_rbOD = GHC.CString.unpackCString# "_Result_"#
a16_rbOE :: [Char]
[GblId, Str=DmdType]
a16_rbOE = GHC.CString.unpackCString# "Answer"#
a17_rbOF :: ([Char], [Char])
[GblId, Str=DmdType m]
a17_rbOF = (a15_rbOD, a16_rbOE)
a18_rbOG :: [Char]
[GblId, Str=DmdType]
a18_rbOG = GHC.CString.unpackCString# "_rule/defaultRule_"#
a19_rbOH :: [Char]
[GblId, Str=DmdType]
a19_rbOH = GHC.CString.unpackCString# "addOracle"#
a20_rbOI :: ([Char], [Char])
[GblId, Str=DmdType m]
a20_rbOI = (a18_rbOG, a19_rbOH)
a21_rbOJ :: [Char]
[GblId, Str=DmdType]
a21_rbOJ = GHC.CString.unpackCString# "_apply_"#
a22_rbOK :: [Char]
[GblId, Str=DmdType]
a22_rbOK = GHC.CString.unpackCString# "askOracle"#
a23_rbOL :: ([Char], [Char])
[GblId, Str=DmdType m]
a23_rbOL = (a21_rbOJ, a22_rbOK)
a24_rbOM :: [([Char], [Char])]
[GblId, Str=DmdType m2]
a24_rbOM =
GHC.Types.:
@ ([Char], [Char]) a23_rbOL (GHC.Types.[] @ ([Char], [Char]))
a25_rbON :: [([Char], [Char])]
[GblId, Str=DmdType m2]
a25_rbON = GHC.Types.: @ ([Char], [Char]) a20_rbOI a24_rbOM
a26_rbOO :: [([Char], [Char])]
[GblId, Str=DmdType m2]
a26_rbOO = GHC.Types.: @ ([Char], [Char]) a17_rbOF a25_rbON
a27_rbOP :: [([Char], [Char])]
[GblId, Str=DmdType m2]
a27_rbOP = GHC.Types.: @ ([Char], [Char]) a14_rbOC a26_rbOO
a28_rbOQ :: [([Char], [Char])]
[GblId, Str=DmdType m2]
a28_rbOQ = GHC.Types.: @ ([Char], [Char]) a11_rbOz a27_rbOP
a29_rbOR :: [([Char], [Char])]
[GblId, Str=DmdType m2]
a29_rbOR = GHC.Types.: @ ([Char], [Char]) a8_rbOw a28_rbOQ
a30_rbOS :: [([Char], [Char])]
[GblId, Str=DmdType m2]
a30_rbOS = GHC.Types.: @ ([Char], [Char]) a5_rbOt a29_rbOR
alternatives_r9dx :: [([Char], [Char])]
[GblId, Str=DmdType m2]
alternatives_r9dx = GHC.Types.: @ ([Char], [Char]) a2_rbOq a30_rbOS
lvl_rbOT :: [Char]
[GblId, Str=DmdType]
lvl_rbOT = GHC.CString.unpackCString# ")"#
err :: forall a_a9dN. String -> a_a9dN
[GblId, Arity=1, Str=DmdType <L,U>b]
err =
\ (@ a34_a9yC) (msg_a9dO :: String) ->
error
@ a34_a9yC
(GHC.CString.unpackAppendCString#
"Development.Shake: Internal error, please report to Neil Mitchell ("#
(++ @ Char msg_a9dO lvl_rbOT))
lvl1_rbOU :: [Char]
[GblId, Str=DmdType]
lvl1_rbOU =
GHC.CString.unpackCString#
"Build system error - no _rule_ matches the _key_ type"#
lvl2_rbOV :: forall a_a9y7. a_a9y7
[GblId, Str=DmdType b]
lvl2_rbOV = \ (@ a34_a9y7) -> error @ a34_a9y7 lvl1_rbOU
errorNoRuleToBuildType [InlPrag=INLINE (sat-args=3)]
:: forall a_a9dJ.
TypeRep -> Maybe String -> Maybe TypeRep -> a_a9dJ
[GblId,
Arity=3,
Str=DmdType <B,A><B,A><B,A>b,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=False,boring_ok=False)
Tmpl= \ (@ a34_a9y7) _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
error
@ a34_a9y7
(GHC.Base.build
@ Char
(\ (@ b_iaEl) ->
GHC.CString.unpackFoldrCString#
@ b_iaEl
"Build system error - no _rule_ matches the _key_ type"#))}]
errorNoRuleToBuildType =
\ (@ a34_a9y7) _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
lvl2_rbOV @ a34_a9y7
lvl3_rbOW :: IO ()
[GblId, Str=DmdType b]
lvl3_rbOW = error @ (IO ()) lvl1_rbOU
errorNoRuleToBuildType2 [InlPrag=NOINLINE]
:: TypeRep -> TypeRep -> IO ()
[GblId, Arity=2, Str=DmdType <B,A><B,A>b]
errorNoRuleToBuildType2 = \ _ [Occ=Dead] _ [Occ=Dead] -> lvl3_rbOW
shakeExceptionInner :: ShakeException -> SomeException
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLS),1*U(A,A,1*U)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_daAt [Occ=Once!] :: ShakeException) ->
case ds_daAt
of _ [Occ=Dead]
{ ShakeException _ [Occ=Dead] _ [Occ=Dead] ds3_daAw [Occ=Once] ->
ds3_daAw
}}]
shakeExceptionInner =
\ (ds_daAt :: ShakeException) ->
case ds_daAt
of _ [Occ=Dead] { ShakeException ds1_daAu ds2_daAv ds3_daAw ->
ds3_daAw
}
shakeExceptionStack :: ShakeException -> [String]
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LSL),1*U(A,1*U,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_daAp [Occ=Once!] :: ShakeException) ->
case ds_daAp
of _ [Occ=Dead]
{ ShakeException _ [Occ=Dead] ds2_daAr [Occ=Once] _ [Occ=Dead] ->
ds2_daAr
}}]
shakeExceptionStack =
\ (ds_daAp :: ShakeException) ->
case ds_daAp
of _ [Occ=Dead] { ShakeException ds1_daAq ds2_daAr ds3_daAs ->
ds2_daAr
}
shakeExceptionTarget :: ShakeException -> String
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(SLL),1*U(1*U,A,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_daAl [Occ=Once!] :: ShakeException) ->
case ds_daAl
of _ [Occ=Dead]
{ ShakeException ds1_daAm [Occ=Once] _ [Occ=Dead] _ [Occ=Dead] ->
ds1_daAm
}}]
shakeExceptionTarget =
\ (ds_daAl :: ShakeException) ->
case ds_daAl
of _ [Occ=Dead] { ShakeException ds1_daAm ds2_daAn ds3_daAo ->
ds1_daAm
}
lvl4_rbOX :: Int
[GblId, Caf=NoCafRefs, Str=DmdType m]
lvl4_rbOX = GHC.Types.I# 0
lvl5_rbOY :: ([Char], String) -> Int
[GblId, Arity=1, Caf=NoCafRefs, Str=DmdType <S(SL),1*U(1*U,A)>m]
lvl5_rbOY =
\ (x_iaBu :: ([Char], String)) ->
case x_iaBu of _ [Occ=Dead] { (x1_iaBA, ds1_iaBB) ->
case GHC.List.$wlenAcc @ Char x1_iaBA 0 of ww2_ib1S { __DEFAULT ->
GHC.Types.I# ww2_ib1S
}
}
lvl6_rbOZ :: Char
[GblId, Caf=NoCafRefs, Str=DmdType m]
lvl6_rbOZ = GHC.Types.C# ':'
lvl7_rbP0 :: Char
[GblId, Caf=NoCafRefs, Str=DmdType m]
lvl7_rbP0 = GHC.Types.C# ' '
lvl8_rbP1 :: [Char]
[GblId, Str=DmdType]
lvl8_rbP1 = GHC.CString.unpackCString# ":"#
Rec {
go_rbP2 :: [(String, Maybe String)] -> [(String, String)]
[GblId, Arity=1, Caf=NoCafRefs, Str=DmdType <S,1*U>]
go_rbP2 =
\ (ds_iaAW :: [(String, Maybe String)]) ->
case ds_iaAW of _ [Occ=Dead] {
[] -> GHC.Types.[] @ (String, String);
: y_iaB1 ys_iaB2 ->
case y_iaB1 of _ [Occ=Dead] { (a34_a9dV, ds1_dazw) ->
case ds1_dazw of _ [Occ=Dead] {
Nothing -> go_rbP2 ys_iaB2;
Just b_a9dW ->
GHC.Types.: @ (String, String) (a34_a9dV, b_a9dW) (go_rbP2 ys_iaB2)
}
}
}
end Rec }
lvl9_rbP3
:: forall a_a9yv.
String -> [(String, Maybe String)] -> String -> a_a9yv
[GblId, Arity=3, Str=DmdType <L,U><L,U><L,U>b]
lvl9_rbP3 =
\ (@ a34_a9yv)
(eta_B1 :: String)
(eta1_B2 :: [(String, Maybe String)])
(eta2_B3 :: String) ->
error
@ a34_a9yv
(unlines
(GHC.Types.:
@ [Char]
(++ @ Char eta2_B3 lvl8_rbP1)
(let {
args2_saOy [Dmd=<S,U>] :: [(String, String)]
[LclId, Str=DmdType]
args2_saOy = go_rbP2 eta1_B2 } in
let {
as_saOx [Dmd=<L,U(U)>] :: Int
[LclId, Str=DmdType]
as_saOx =
GHC.List.strictMaximum
@ Int
GHC.Classes.$fOrdInt
(GHC.Types.:
@ Int
lvl4_rbOX
(map @ ([Char], String) @ Int lvl5_rbOY args2_saOy)) } in
let {
z3_iaAT :: [[Char]]
[LclId, Str=DmdType]
z3_iaAT =
case GHC.Classes.$fEq[]_$s$c==1 eta_B1 (GHC.Types.[] @ Char)
of _ [Occ=Dead] {
False -> GHC.Types.: @ [Char] eta_B1 (GHC.Types.[] @ [Char]);
True -> GHC.Types.[] @ [Char]
} } in
letrec {
go2_XaE3 [Occ=LoopBreaker] :: [(String, String)] -> [[Char]]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go2_XaE3 =
\ (ds_iaAW :: [(String, String)]) ->
case ds_iaAW of _ [Occ=Dead] {
[] -> z3_iaAT;
: y_iaB1 ys_iaB2 ->
case y_iaB1 of _ [Occ=Dead] { (a35_a9dX, b_a9dY) ->
GHC.Types.:
@ [Char]
(GHC.CString.unpackAppendCString#
" "#
(++
@ Char
a35_a9dX
(let {
n_XaH5 :: [Char]
[LclId, Str=DmdType]
n_XaH5 =
case as_saOx of _ [Occ=Dead] { GHC.Types.I# x_iaHS ->
case GHC.List.$wlenAcc @ Char a35_a9dX 0
of ww2_ib1S { __DEFAULT ->
let {
y1_iaBc :: GHC.Prim.Int#
[LclId, Str=DmdType]
y1_iaBc = GHC.Prim.+# (GHC.Prim.-# x_iaHS ww2_ib1S) 2 } in
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# 0 y1_iaBc)
of _ [Occ=Dead] {
False -> b_a9dY;
True ->
let {
lvl65_sbFf :: [Char]
[LclId, Str=DmdType]
lvl65_sbFf = GHC.Types.: @ Char lvl7_rbP0 b_a9dY } in
letrec {
$wxs_sbsD [InlPrag=[0], Occ=LoopBreaker]
:: GHC.Prim.Int# -> [Char]
[LclId, Arity=1, Str=DmdType <S,1*U>]
$wxs_sbsD =
\ (ww_sbsB :: GHC.Prim.Int#) ->
case ww_sbsB of ds1_iaIV {
__DEFAULT ->
GHC.Types.:
@ Char
lvl7_rbP0
($wxs_sbsD (GHC.Prim.-# ds1_iaIV 1));
1 -> lvl65_sbFf
}; } in
$wxs_sbsD y1_iaBc
}
}
} } in
case GHC.Classes.$fEq[]_$s$c==1 a35_a9dX (GHC.Types.[] @ Char)
of _ [Occ=Dead] {
False -> GHC.Types.: @ Char lvl6_rbOZ n_XaH5;
True -> n_XaH5
})))
(go2_XaE3 ys_iaB2)
}
}; } in
go2_XaE3 args2_saOy)))
errorStructured [InlPrag=INLINE (sat-args=3)]
:: forall a_a9dM.
String -> [(String, Maybe String)] -> String -> a_a9dM
[GblId,
Arity=3,
Str=DmdType <B,1*U><B,1*U><B,U>b,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=False,boring_ok=False)
Tmpl= \ (@ a34_a9yv)
(msg_a9dQ [Occ=Once] :: String)
(args_a9dR [Occ=Once] :: [(String, Maybe String)])
(hint_a9dS :: String) ->
let {
args2_a9dU :: [(String, String)]
[LclId, Str=DmdType]
args2_a9dU =
GHC.Base.build
@ (String, String)
(\ (@ a35_dazr)
(c_dazs [Occ=OnceL!, OS=OneShot]
:: (String, String) -> a35_dazr -> a35_dazr)
(n_dazt [Occ=Once, OS=OneShot] :: a35_dazr) ->
GHC.Base.foldr
@ (String, Maybe String)
@ a35_dazr
(\ (ds_dazv [Occ=Once!] :: (String, Maybe String))
(ds1_dazu [Occ=Once*, OS=OneShot] :: a35_dazr) ->
case ds_dazv
of _ [Occ=Dead] { (a36_a9dV [Occ=Once], ds2_dazw [Occ=Once!]) ->
case ds2_dazw of _ [Occ=Dead] {
Nothing -> ds1_dazu;
Just b_a9dW [Occ=Once] -> c_dazs (a36_a9dV, b_a9dW) ds1_dazu
}
})
n_dazt
args_a9dR) } in
let {
as_a9dT [Occ=OnceL] :: Int
[LclId, Str=DmdType]
as_a9dT =
$ @ [Int]
@ Int
(GHC.List.strictMaximum @ Int GHC.Classes.$fOrdInt)
(GHC.Types.:
@ Int
(GHC.Types.I# 0)
(GHC.Base.build
@ Int
(\ (@ b1_iaFn)
(c_iaFo [Occ=Once, OS=OneShot] :: Int -> b1_iaFn -> b1_iaFn)
(n_iaFp [Occ=Once, OS=OneShot] :: b1_iaFn) ->
GHC.Base.foldr
@ ([Char], String)
@ b1_iaFn
(GHC.Base.mapFB
@ Int
@ b1_iaFn
@ ([Char], String)
c_iaFo
(\ (x_iaBu [Occ=Once, OS=ProbOneShot] :: ([Char], String)) ->
GHC.Base.foldr
@ Char
@ (Int -> Int)
(GHC.List.lengthFB @ Char)
GHC.List.idLength
(fst @ [Char] @ String x_iaBu)
(GHC.Types.I# 0)))
n_iaFp
args2_a9dU))) } in
$ @ [Char]
@ a34_a9yv
(error @ a34_a9yv)
($ @ [String]
@ [Char]
unlines
(GHC.Base.build
@ [Char]
(\ (@ b_iaF9)
(c_iaFa [OS=OneShot] :: [Char] -> b_iaF9 -> b_iaF9)
(n_iaFb [Occ=Once*, OS=OneShot] :: b_iaF9) ->
c_iaFa
(GHC.Base.build
@ Char
(\ (@ b1_XaGf)
(c1_XaGh [OS=OneShot] :: Char -> b1_XaGf -> b1_XaGf)
(n1_XaGj [Occ=Once, OS=OneShot] :: b1_XaGf) ->
GHC.Base.foldr
@ Char
@ b1_XaGf
c1_XaGh
(GHC.CString.unpackFoldrCString#
@ b1_XaGf ":"# c1_XaGh n1_XaGj)
msg_a9dQ))
(GHC.Base.foldr
@ (String, String)
@ b_iaF9
(\ (ds_dazh [Occ=Once!] :: (String, String))
(ds1_dazg [Occ=Once, OS=OneShot] :: b_iaF9) ->
case ds_dazh of _ [Occ=Dead] { (a35_a9dX, b1_a9dY [Occ=Once]) ->
c_iaFa
(GHC.Base.augment
@ Char
(\ (@ b2_XaFL)
(c1_XaFN [Occ=Once, OS=OneShot]
:: Char -> b2_XaFL -> b2_XaFL)
(n1_XaFP [Occ=Once, OS=OneShot] :: b2_XaFL) ->
GHC.CString.unpackFoldrCString#
@ b2_XaFL " "# c1_XaFN n1_XaFP)
(GHC.Base.augment
@ Char
(\ (@ b2_XaFJ)
(c1_XaH2 [Occ=Once, OS=OneShot]
:: Char -> b2_XaFJ -> b2_XaFJ)
(n1_XaH5 [Occ=Once, OS=OneShot] :: b2_XaFJ) ->
GHC.Base.foldr
@ Char @ b2_XaFJ c1_XaH2 n1_XaH5 a35_a9dX)
(GHC.Base.augment
@ Char
(\ (@ b2_XaGX)
(c1_XaH0 [Occ=Once!, OS=OneShot]
:: Char -> b2_XaGX -> b2_XaGX)
(n1_XaH3 [Occ=Once*, OS=OneShot] :: b2_XaGX) ->
case not
(GHC.Classes.$fEq[]_$s$c==1
a35_a9dX (GHC.Types.[] @ Char))
of _ [Occ=Dead] {
False -> n1_XaH3;
True -> c1_XaH0 (GHC.Types.C# ':') n1_XaH3
})
(GHC.Base.augment
@ Char
(\ (@ b2_XaFM)
(c1_XaFO [Occ=Once, OS=OneShot]
:: Char -> b2_XaFM -> b2_XaFM)
(n1_XaFQ [Occ=Once*, OS=OneShot] :: b2_XaFM) ->
case GHC.Num.$fNumInt_$c+
(GHC.Num.$fNumInt_$c-
as_a9dT
(GHC.Base.foldr
@ Char
@ (Int -> Int)
(GHC.List.lengthFB @ Char)
GHC.List.idLength
a35_a9dX
(GHC.Types.I# 0)))
(GHC.Types.I# 2)
of wild1_iaBa
{ GHC.Types.I# y_iaBc [Occ=Once] ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.<# 0 y_iaBc)
of _ [Occ=Dead] {
False -> n1_XaFQ;
True ->
GHC.List.repeatFB
@ Char
@ (Int -> b2_XaFM)
(GHC.List.takeFB
@ Char @ b2_XaFM c1_XaFO n1_XaFQ)
(GHC.Types.C# ' ')
wild1_iaBa
}
})
b1_a9dY))))
ds1_dazg
})
(case not
(GHC.Classes.$fEq[]_$s$c==1
hint_a9dS (GHC.Types.[] @ Char))
of _ [Occ=Dead] {
False -> n_iaFb;
True -> c_iaFa hint_a9dS n_iaFb
})
args2_a9dU))))}]
errorStructured =
\ (@ a34_a9yv)
(eta_B3 :: String)
(eta1_B2 :: [(String, Maybe String)])
(eta2_B1 :: String) ->
lvl9_rbP3 @ a34_a9yv eta2_B1 eta1_B2 eta_B3
lvl10_rbP4 :: [Char]
[GblId, Str=DmdType]
lvl10_rbP4 =
GHC.CString.unpackCString#
"Build system error - recursion detected"#
lvl11_rbP5 :: [Char]
[GblId, Str=DmdType]
lvl11_rbP5 = GHC.CString.unpackCString# "Key type"#
lvl12_rbP6 :: [Char]
[GblId, Str=DmdType]
lvl12_rbP6 = GHC.CString.unpackCString# "Key value"#
lvl13_rbP7 :: [Char]
[GblId, Str=DmdType]
lvl13_rbP7 =
GHC.CString.unpackCString# "Rules may not be recursive"#
lvl14_rbP8 :: [Char]
[GblId, Str=DmdType]
lvl14_rbP8 = ++ @ Char lvl10_rbP4 lvl8_rbP1
z_rbP9 :: [[Char]]
[GblId, Str=DmdType]
z_rbP9 =
case GHC.Classes.$fEq[]_$s$c==1 lvl13_rbP7 (GHC.Types.[] @ Char)
of _ [Occ=Dead] {
False -> GHC.Types.: @ [Char] lvl13_rbP7 (GHC.Types.[] @ [Char]);
True -> GHC.Types.[] @ [Char]
}
errorRuleRecursion
:: forall a_a9dF. Maybe TypeRep -> Maybe String -> a_a9dF
[GblId, Arity=2, Str=DmdType <L,U><L,U>b]
errorRuleRecursion =
\ (@ a34_a9xw)
(tk_a9ew :: Maybe TypeRep)
(k_a9ex :: Maybe String) ->
error
@ a34_a9xw
(unlines
(GHC.Types.:
@ [Char]
lvl14_rbP8
(let {
args2_a9dU [Dmd=<S,U>] :: [(String, String)]
[LclId, Str=DmdType]
args2_a9dU =
case tk_a9ew of _ [Occ=Dead] {
Nothing ->
case k_a9ex of _ [Occ=Dead] {
Nothing -> GHC.Types.[] @ (String, String);
Just b_a9dW ->
GHC.Types.:
@ (String, String)
(lvl12_rbP6, b_a9dW)
(GHC.Types.[] @ (String, String))
};
Just a35_iaJQ ->
GHC.Types.:
@ (String, String)
(lvl11_rbP5, Data.Typeable.Internal.$fShowTypeRep_$cshow a35_iaJQ)
(case k_a9ex of _ [Occ=Dead] {
Nothing -> GHC.Types.[] @ (String, String);
Just b_X9hS ->
GHC.Types.:
@ (String, String)
(lvl12_rbP6, b_X9hS)
(GHC.Types.[] @ (String, String))
})
} } in
let {
as_a9dT [Dmd=<L,U(U)>] :: Int
[LclId, Str=DmdType]
as_a9dT =
GHC.List.strictMaximum
@ Int
GHC.Classes.$fOrdInt
(GHC.Types.:
@ Int
lvl4_rbOX
(map @ ([Char], String) @ Int lvl5_rbOY args2_a9dU)) } in
letrec {
go2_iaAV [Occ=LoopBreaker] :: [(String, String)] -> [[Char]]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go2_iaAV =
\ (ds_iaAW :: [(String, String)]) ->
case ds_iaAW of _ [Occ=Dead] {
[] -> z_rbP9;
: y_iaB1 ys_iaB2 ->
case y_iaB1 of _ [Occ=Dead] { (a35_a9dX, b_a9dY) ->
GHC.Types.:
@ [Char]
(GHC.CString.unpackAppendCString#
" "#
(++
@ Char
a35_a9dX
(let {
n_XaH3 :: [Char]
[LclId, Str=DmdType]
n_XaH3 =
case as_a9dT of _ [Occ=Dead] { GHC.Types.I# x_iaHS ->
case GHC.List.$wlenAcc @ Char a35_a9dX 0
of ww2_ib1S { __DEFAULT ->
let {
y1_iaBc :: GHC.Prim.Int#
[LclId, Str=DmdType]
y1_iaBc = GHC.Prim.+# (GHC.Prim.-# x_iaHS ww2_ib1S) 2 } in
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# 0 y1_iaBc)
of _ [Occ=Dead] {
False -> b_a9dY;
True ->
let {
lvl65_sbFp :: [Char]
[LclId, Str=DmdType]
lvl65_sbFp = GHC.Types.: @ Char lvl7_rbP0 b_a9dY } in
letrec {
$wxs_sbsK [InlPrag=[0], Occ=LoopBreaker]
:: GHC.Prim.Int# -> [Char]
[LclId, Arity=1, Str=DmdType <S,1*U>]
$wxs_sbsK =
\ (ww_sbsI :: GHC.Prim.Int#) ->
case ww_sbsI of ds1_iaIV {
__DEFAULT ->
GHC.Types.:
@ Char
lvl7_rbP0
($wxs_sbsK (GHC.Prim.-# ds1_iaIV 1));
1 -> lvl65_sbFp
}; } in
$wxs_sbsK y1_iaBc
}
}
} } in
case GHC.Classes.$fEq[]_$s$c==1 a35_a9dX (GHC.Types.[] @ Char)
of _ [Occ=Dead] {
False -> GHC.Types.: @ Char lvl6_rbOZ n_XaH3;
True -> n_XaH3
})))
(go2_iaAV ys_iaB2)
}
}; } in
go2_iaAV args2_a9dU)))
lvl15_rbPa :: [Char]
[GblId, Str=DmdType]
lvl15_rbPa =
GHC.CString.unpackCString#
"Build system error - duplicate oracles for the same question type"#
lvl16_rbPb :: [Char]
[GblId, Str=DmdType]
lvl16_rbPb = GHC.CString.unpackCString# "Question type"#
lvl17_rbPc :: [Char]
[GblId, Str=DmdType]
lvl17_rbPc = GHC.CString.unpackCString# "Question value"#
lvl18_rbPd :: Integer
[GblId, Caf=NoCafRefs, Str=DmdType]
lvl18_rbPd = __integer 1
lvl19_rbPe :: [Integer]
[GblId, Str=DmdType]
lvl19_rbPe =
case GHC.Enum.$wenumDeltaInteger lvl18_rbPd lvl18_rbPd
of _ [Occ=Dead] { (# ww1_ib3X, ww2_ib3Y #) ->
GHC.Types.: @ Integer ww1_ib3X ww2_ib3Y
}
lvl20_rbPf :: [Char]
[GblId, Str=DmdType]
lvl20_rbPf =
GHC.CString.unpackCString#
"Only one call to addOracle is allowed per question type"#
lvl21_rbPg :: [Char]
[GblId, Str=DmdType]
lvl21_rbPg = ++ @ Char lvl15_rbPa lvl8_rbP1
Rec {
go1_rbPh :: [Integer] -> [TypeRep] -> [(String, String)]
[GblId, Arity=2, Str=DmdType <S,1*U><L,1*U>]
go1_rbPh =
\ (ds_iaLN :: [Integer]) (_ys_iaLO :: [TypeRep]) ->
case ds_iaLN of _ [Occ=Dead] {
[] -> GHC.Types.[] @ (String, String);
: ipv_iaLT ipv1_iaLU ->
case _ys_iaLO of _ [Occ=Dead] {
[] -> GHC.Types.[] @ (String, String);
: ipv2_iaM0 ipv3_iaM1 ->
GHC.Types.:
@ (String, String)
(GHC.CString.unpackAppendCString#
"Answer type "#
(case GHC.Show.$w$cshowsPrec1 0 ipv_iaLT (GHC.Types.[] @ Char)
of _ [Occ=Dead] { (# ww3_iaUn, ww4_iaUo #) ->
GHC.Types.: @ Char ww3_iaUn ww4_iaUo
}),
Data.Typeable.Internal.$fShowTypeRep_$cshow ipv2_iaM0)
(go1_rbPh ipv1_iaLU ipv3_iaM1)
}
}
end Rec }
lvl22_rbPi :: String
[GblId, Str=DmdType b]
lvl22_rbPi =
Control.Exception.Base.absentError @ String "ww_sbt9 String"#
lvl23_rbPj :: String
[GblId, Str=DmdType b]
lvl23_rbPj =
Control.Exception.Base.absentError @ String "ww_sbta String"#
z1_rbPk :: [[Char]]
[GblId, Str=DmdType]
z1_rbPk =
case GHC.Classes.$fEq[]_$s$c==1 lvl20_rbPf (GHC.Types.[] @ Char)
of _ [Occ=Dead] {
False -> GHC.Types.: @ [Char] lvl20_rbPf (GHC.Types.[] @ [Char]);
True -> GHC.Types.[] @ [Char]
}
lvl24_rbPl
:: forall a_a9dE.
Maybe String
-> [TypeRep]
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> a_a9dE
[GblId, Arity=7, Str=DmdType <L,U><L,U><L,U><L,U><L,U><L,U><L,U>b]
lvl24_rbPl =
\ (@ a34_a9dE)
(w_sbsY :: Maybe String)
(w1_sbsZ :: [TypeRep])
(ww_sbt7 :: GHC.Prim.Word#)
(ww1_sbt8 :: GHC.Prim.Word#)
(ww2_sbtb :: String)
(ww3_sbtd :: [Data.Typeable.Internal.KindRep])
(ww4_sbte :: [TypeRep]) ->
error
@ a34_a9dE
(unlines
(GHC.Types.:
@ [Char]
lvl21_rbPg
(let {
a35_sb45 :: String
[LclId, Str=DmdType]
a35_sb45 =
Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18
(Data.Typeable.Internal.TyCon
ww_sbt7 ww1_sbt8 lvl22_rbPi lvl23_rbPj ww2_sbtb)
ww3_sbtd
ww4_sbte
(GHC.Types.[] @ Char) } in
let {
a36_sb44 :: (String, String)
[LclId, Str=DmdType m]
a36_sb44 = (lvl16_rbPb, a35_sb45) } in
let {
a37_sb46 :: [(String, String)]
[LclId, Str=DmdType]
a37_sb46 =
case w_sbsY of _ [Occ=Dead] {
Nothing -> go1_rbPh lvl19_rbPe w1_sbsZ;
Just b_a9dW ->
GHC.Types.:
@ (String, String)
(lvl17_rbPc, b_a9dW)
(go1_rbPh lvl19_rbPe w1_sbsZ)
} } in
let {
args2_a9dU :: [(String, String)]
[LclId, Str=DmdType]
args2_a9dU = GHC.Types.: @ (String, String) a36_sb44 a37_sb46 } in
let {
as_a9dT [Dmd=<L,U(U)>] :: Int
[LclId, Str=DmdType]
as_a9dT =
GHC.List.strictMaximum
@ Int
GHC.Classes.$fOrdInt
(GHC.Types.:
@ Int
lvl4_rbOX
(map @ ([Char], String) @ Int lvl5_rbOY args2_a9dU)) } in
letrec {
go2_iaAV [Occ=LoopBreaker] :: [(String, String)] -> [[Char]]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go2_iaAV =
\ (ds_iaAW :: [(String, String)]) ->
case ds_iaAW of _ [Occ=Dead] {
[] -> z1_rbPk;
: y_iaB1 ys_iaB2 ->
case y_iaB1 of _ [Occ=Dead] { (a38_a9dX, b_a9dY) ->
GHC.Types.:
@ [Char]
(GHC.CString.unpackAppendCString#
" "#
(++
@ Char
a38_a9dX
(let {
n_XaH3 :: [Char]
[LclId, Str=DmdType]
n_XaH3 =
case as_a9dT of _ [Occ=Dead] { GHC.Types.I# x_iaHS ->
case GHC.List.$wlenAcc @ Char a38_a9dX 0
of ww5_ib1S { __DEFAULT ->
let {
y1_iaBc :: GHC.Prim.Int#
[LclId, Str=DmdType]
y1_iaBc = GHC.Prim.+# (GHC.Prim.-# x_iaHS ww5_ib1S) 2 } in
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# 0 y1_iaBc)
of _ [Occ=Dead] {
False -> b_a9dY;
True ->
let {
lvl65_sbFG :: [Char]
[LclId, Str=DmdType]
lvl65_sbFG = GHC.Types.: @ Char lvl7_rbP0 b_a9dY } in
letrec {
$wxs_sbsV [InlPrag=[0], Occ=LoopBreaker]
:: GHC.Prim.Int# -> [Char]
[LclId, Arity=1, Str=DmdType <S,1*U>]
$wxs_sbsV =
\ (ww6_sbsT :: GHC.Prim.Int#) ->
case ww6_sbsT of ds1_iaIV {
__DEFAULT ->
GHC.Types.:
@ Char
lvl7_rbP0
($wxs_sbsV (GHC.Prim.-# ds1_iaIV 1));
1 -> lvl65_sbFG
}; } in
$wxs_sbsV y1_iaBc
}
}
} } in
case GHC.Classes.$fEq[]_$s$c==1 a38_a9dX (GHC.Types.[] @ Char)
of _ [Occ=Dead] {
False -> GHC.Types.: @ Char lvl6_rbOZ n_XaH3;
True -> n_XaH3
})))
(go2_iaAV ys_iaB2)
}
}; } in
go2_iaAV args2_a9dU)))
$werrorDuplicateOracle_rbPm
:: forall a_a9dE.
GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> Maybe String
-> [TypeRep]
-> a_a9dE
[GblId,
Arity=7,
Str=DmdType <B,U><B,U><B,U><B,1*U><B,1*U><B,1*U><B,1*U>b]
$werrorDuplicateOracle_rbPm =
\ (@ a34_a9dE)
(ww_sbt7 :: GHC.Prim.Word#)
(ww1_sbt8 :: GHC.Prim.Word#)
(ww2_sbtb :: String)
(ww3_sbtd :: [Data.Typeable.Internal.KindRep])
(ww4_sbte :: [TypeRep])
(w_sbsY :: Maybe String)
(w1_sbsZ :: [TypeRep]) ->
lvl24_rbPl
@ a34_a9dE
w_sbsY
w1_sbsZ
ww_sbt7
ww1_sbt8
ww2_sbtb
ww3_sbtd
ww4_sbte
lvl25_rbPn :: [Char]
[GblId, Str=DmdType]
lvl25_rbPn = GHC.CString.unpackCString# "OracleQ"#
lvl26_rbPo :: [Char]
[GblId, Str=DmdType]
lvl26_rbPo =
GHC.CString.unpackCString#
"Build system error - _rule_ used at the wrong _result_ type"#
lvl27_rbPp :: [Char]
[GblId, Str=DmdType]
lvl27_rbPp = GHC.CString.unpackCString# "_Key_ type"#
lvl28_rbPq :: [Char]
[GblId, Str=DmdType]
lvl28_rbPq = GHC.CString.unpackCString# "_Key_ value"#
lvl29_rbPr :: [Char]
[GblId, Str=DmdType]
lvl29_rbPr = GHC.CString.unpackCString# "_Rule_ _result_ type"#
lvl30_rbPs :: [Char]
[GblId, Str=DmdType]
lvl30_rbPs = GHC.CString.unpackCString# "Requested _result_ type"#
lvl31_rbPt :: [Char]
[GblId, Str=DmdType]
lvl31_rbPt =
GHC.CString.unpackCString#
"Either the function passed to _rule/defaultRule_ has the wrong _result_ type, or the result of _apply_ is used at the wrong type"#
a31_rbPu :: Char -> Bool
[GblId, Arity=1, Caf=NoCafRefs, Str=DmdType <S(S),1*U(1*U)>]
a31_rbPu =
\ (ds_dazZ :: Char) ->
case ds_dazZ of _ [Occ=Dead] { GHC.Types.C# c1_iaKt ->
case c1_iaKt of _ [Occ=Dead] {
__DEFAULT -> GHC.Types.True;
'_' -> GHC.Types.False
}
}
Rec {
$wunsafeDrop_rbPv
:: forall a1_iaBN. GHC.Prim.Int# -> [a1_iaBN] -> [a1_iaBN]
[GblId, Arity=2, Caf=NoCafRefs, Str=DmdType <L,1*U><S,1*U>]
$wunsafeDrop_rbPv =
\ (@ a34_iaBN) (ww_sbtl :: GHC.Prim.Int#) (w_sbti :: [a34_iaBN]) ->
case w_sbti of _ [Occ=Dead] {
[] -> GHC.Types.[] @ a34_iaBN;
: ipv1_iaBY ipv2_iaBZ ->
case ww_sbtl of ds3_iaC1 {
__DEFAULT ->
$wunsafeDrop_rbPv @ a34_iaBN (GHC.Prim.-# ds3_iaC1 1) ipv2_iaBZ;
1 -> ipv2_iaBZ
}
}
end Rec }
Rec {
g_rbPw :: [Char] -> [Char]
[GblId, Arity=1, Str=DmdType <L,U>]
g_rbPw =
\ (xs_a9e5 :: [Char]) ->
case filter
@ ([Char], [Char])
(\ (ds_daA1 [OS=ProbOneShot] :: ([Char], [Char])) ->
case ds_daA1 of _ [Occ=Dead] { (a34_a9e6, b_a9e7) ->
isPrefixOf @ Char GHC.Classes.$fEqChar a34_a9e6 xs_a9e5
})
alternatives_r9dx
of _ [Occ=Dead] {
[] ->
case xs_a9e5 of _ [Occ=Dead] {
[] -> GHC.Types.[] @ Char;
: x_a9ea xs1_a9eb -> GHC.Types.: @ Char x_a9ea (g_rbPw xs1_a9eb)
};
: ds_daA3 ds1_daA4 ->
case ds_daA3 of _ [Occ=Dead] { (a34_a9e8, b_a9e9) ->
++
@ Char
b_a9e9
(g_rbPw
(case GHC.List.$wlenAcc @ Char a34_a9e8 0
of ww2_ib1S { __DEFAULT ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<=# ww2_ib1S 0)
of _ [Occ=Dead] {
False -> $wunsafeDrop_rbPv @ Char ww2_ib1S xs_a9e5;
True -> xs_a9e5
}
}))
}
}
end Rec }
lvl32_rbPx :: String
[GblId, Str=DmdType b]
lvl32_rbPx =
Control.Exception.Base.absentError @ String "ww_sbtK String"#
lvl33_rbPy :: String
[GblId, Str=DmdType b]
lvl33_rbPy =
Control.Exception.Base.absentError @ String "ww_sbtL String"#
lvl34_rbPz :: String
[GblId, Str=DmdType b]
lvl34_rbPz =
Control.Exception.Base.absentError @ String "ww_sbu0 String"#
lvl35_rbPA :: String
[GblId, Str=DmdType b]
lvl35_rbPA =
Control.Exception.Base.absentError @ String "ww_sbu1 String"#
lvl36_rbPB :: String
[GblId, Str=DmdType b]
lvl36_rbPB =
Control.Exception.Base.absentError @ String "ww_sbug String"#
lvl37_rbPC :: String
[GblId, Str=DmdType b]
lvl37_rbPC =
Control.Exception.Base.absentError @ String "ww_sbuh String"#
lvl38_rbPD
:: forall a_a9dI.
Maybe String
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> a_a9dI
[GblId,
Arity=16,
Str=DmdType <L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U>b]
lvl38_rbPD =
\ (@ a34_a9dI)
(w_sbty :: Maybe String)
(ww_sbtI :: GHC.Prim.Word#)
(ww1_sbtJ :: GHC.Prim.Word#)
(ww2_sbtM :: String)
(ww3_sbtO :: [Data.Typeable.Internal.KindRep])
(ww4_sbtP :: [TypeRep])
(ww5_sbtY :: GHC.Prim.Word#)
(ww6_sbtZ :: GHC.Prim.Word#)
(ww7_sbu2 :: String)
(ww8_sbu4 :: [Data.Typeable.Internal.KindRep])
(ww9_sbu5 :: [TypeRep])
(ww10_sbue :: GHC.Prim.Word#)
(ww11_sbuf :: GHC.Prim.Word#)
(ww12_sbui :: String)
(ww13_sbuk :: [Data.Typeable.Internal.KindRep])
(ww14_sbul :: [TypeRep]) ->
let {
alt_a9dZ [Dmd=<B,U>] :: Bool
[LclId, Str=DmdType]
alt_a9dZ = GHC.Base.eqString ww2_sbtM lvl25_rbPn } in
let {
f_a9e3 :: [Char] -> [Char]
[LclId, Arity=1, Str=DmdType <L,U>]
f_a9e3 =
\ (x_iaBu :: [Char]) ->
case alt_a9dZ of _ [Occ=Dead] {
False -> filter @ Char a31_rbPu x_iaBu;
True -> filter @ Char a31_rbPu (g_rbPw x_iaBu)
} } in
error
@ a34_a9dI
(unlines
(GHC.Types.:
@ [Char]
(++ @ Char (f_a9e3 lvl26_rbPo) lvl8_rbP1)
(let {
ds_dazu :: [(String, String)]
[LclId, Str=DmdType]
ds_dazu =
let {
a35_sbfQ :: String
[LclId, Str=DmdType]
a35_sbfQ =
Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18
(Data.Typeable.Internal.TyCon
ww10_sbue ww11_sbuf lvl36_rbPB lvl37_rbPC ww12_sbui)
ww13_sbuk
ww14_sbul
(GHC.Types.[] @ Char) } in
let {
a36_sbfV :: String
[LclId, Str=DmdType]
a36_sbfV =
Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18
(Data.Typeable.Internal.TyCon
ww5_sbtY ww6_sbtZ lvl34_rbPz lvl35_rbPA ww7_sbu2)
ww8_sbu4
ww9_sbu5
(GHC.Types.[] @ Char) } in
case w_sbty of _ [Occ=Dead] {
Nothing ->
GHC.Types.:
@ (String, String)
(f_a9e3 lvl29_rbPr, a36_sbfV)
(GHC.Types.:
@ (String, String)
(f_a9e3 lvl30_rbPs, a35_sbfQ)
(GHC.Types.[] @ (String, String)));
Just b_X9ia ->
GHC.Types.:
@ (String, String)
(f_a9e3 lvl28_rbPq, b_X9ia)
(GHC.Types.:
@ (String, String)
(f_a9e3 lvl29_rbPr, a36_sbfV)
(GHC.Types.:
@ (String, String)
(f_a9e3 lvl30_rbPs, a35_sbfQ)
(GHC.Types.[] @ (String, String))))
} } in
let {
a35_sbg2 :: String
[LclId, Str=DmdType]
a35_sbg2 =
Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18
(Data.Typeable.Internal.TyCon
ww_sbtI ww1_sbtJ lvl32_rbPx lvl33_rbPy ww2_sbtM)
ww3_sbtO
ww4_sbtP
(GHC.Types.[] @ Char) } in
let {
a36_sbg4 :: [Char]
[LclId, Str=DmdType]
a36_sbg4 = f_a9e3 lvl27_rbPp } in
let {
a37_sbg3 :: (String, String)
[LclId, Str=DmdType m]
a37_sbg3 = (a36_sbg4, a35_sbg2) } in
let {
args2_a9dU :: [(String, String)]
[LclId, Str=DmdType]
args2_a9dU = GHC.Types.: @ (String, String) a37_sbg3 ds_dazu } in
let {
as_a9dT [Dmd=<L,U(U)>] :: Int
[LclId, Str=DmdType]
as_a9dT =
GHC.List.strictMaximum
@ Int
GHC.Classes.$fOrdInt
(GHC.Types.:
@ Int
lvl4_rbOX
(map @ ([Char], String) @ Int lvl5_rbOY args2_a9dU)) } in
let {
z3_iaAT :: [[Char]]
[LclId, Str=DmdType]
z3_iaAT =
let {
hint_a9dS [Dmd=<S,U>] :: String
[LclId, Str=DmdType]
hint_a9dS = f_a9e3 lvl31_rbPt } in
case GHC.Classes.$fEq[]_$s$c==1 hint_a9dS (GHC.Types.[] @ Char)
of _ [Occ=Dead] {
False -> GHC.Types.: @ [Char] hint_a9dS (GHC.Types.[] @ [Char]);
True -> GHC.Types.[] @ [Char]
} } in
letrec {
go2_iaAV [Occ=LoopBreaker] :: [(String, String)] -> [[Char]]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go2_iaAV =
\ (ds1_iaAW :: [(String, String)]) ->
case ds1_iaAW of _ [Occ=Dead] {
[] -> z3_iaAT;
: y_iaB1 ys_iaB2 ->
case y_iaB1 of _ [Occ=Dead] { (a38_a9dX, b_a9dY) ->
GHC.Types.:
@ [Char]
(GHC.CString.unpackAppendCString#
" "#
(++
@ Char
a38_a9dX
(let {
n_XaH3 :: [Char]
[LclId, Str=DmdType]
n_XaH3 =
case as_a9dT of _ [Occ=Dead] { GHC.Types.I# x_iaHS ->
case GHC.List.$wlenAcc @ Char a38_a9dX 0
of ww15_ib1S { __DEFAULT ->
let {
y1_iaBc :: GHC.Prim.Int#
[LclId, Str=DmdType]
y1_iaBc = GHC.Prim.+# (GHC.Prim.-# x_iaHS ww15_ib1S) 2 } in
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# 0 y1_iaBc)
of _ [Occ=Dead] {
False -> b_a9dY;
True ->
let {
lvl65_sbG0 :: [Char]
[LclId, Str=DmdType]
lvl65_sbG0 = GHC.Types.: @ Char lvl7_rbP0 b_a9dY } in
letrec {
$wxs_sbtv [InlPrag=[0], Occ=LoopBreaker]
:: GHC.Prim.Int# -> [Char]
[LclId, Arity=1, Str=DmdType <S,1*U>]
$wxs_sbtv =
\ (ww16_sbtt :: GHC.Prim.Int#) ->
case ww16_sbtt of ds2_iaIV {
__DEFAULT ->
GHC.Types.:
@ Char
lvl7_rbP0
($wxs_sbtv (GHC.Prim.-# ds2_iaIV 1));
1 -> lvl65_sbG0
}; } in
$wxs_sbtv y1_iaBc
}
}
} } in
case GHC.Classes.$fEq[]_$s$c==1 a38_a9dX (GHC.Types.[] @ Char)
of _ [Occ=Dead] {
False -> GHC.Types.: @ Char lvl6_rbOZ n_XaH3;
True -> n_XaH3
})))
(go2_iaAV ys_iaB2)
}
}; } in
go2_iaAV args2_a9dU)))
Development.Shake.Errors.$werrorRuleTypeMismatch [InlPrag=[0]]
:: forall a_a9dI.
GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> Maybe String
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> a_a9dI
[GblId,
Arity=16,
Str=DmdType <B,U><B,U><B,U><B,1*U><B,1*U><B,1*U><B,U><B,U><B,U><B,1*U><B,1*U><B,U><B,U><B,U><B,1*U><B,1*U>b]
Development.Shake.Errors.$werrorRuleTypeMismatch =
\ (@ a34_a9dI)
(ww_sbtI :: GHC.Prim.Word#)
(ww1_sbtJ :: GHC.Prim.Word#)
(ww2_sbtM :: String)
(ww3_sbtO :: [Data.Typeable.Internal.KindRep])
(ww4_sbtP :: [TypeRep])
(w_sbty :: Maybe String)
(ww5_sbtY :: GHC.Prim.Word#)
(ww6_sbtZ :: GHC.Prim.Word#)
(ww7_sbu2 :: String)
(ww8_sbu4 :: [Data.Typeable.Internal.KindRep])
(ww9_sbu5 :: [TypeRep])
(ww10_sbue :: GHC.Prim.Word#)
(ww11_sbuf :: GHC.Prim.Word#)
(ww12_sbui :: String)
(ww13_sbuk :: [Data.Typeable.Internal.KindRep])
(ww14_sbul :: [TypeRep]) ->
lvl38_rbPD
@ a34_a9dI
w_sbty
ww_sbtI
ww1_sbtJ
ww2_sbtM
ww3_sbtO
ww4_sbtP
ww5_sbtY
ww6_sbtZ
ww7_sbu2
ww8_sbu4
ww9_sbu5
ww10_sbue
ww11_sbuf
ww12_sbui
ww13_sbuk
ww14_sbul
errorRuleTypeMismatch [InlPrag=INLINE[0]]
:: forall a_a9dI.
TypeRep -> Maybe String -> TypeRep -> TypeRep -> a_a9dI
[GblId,
Arity=4,
Str=DmdType <B,U(A,A,U(U,U,A,A,U),1*U,1*U)><B,1*U><B,1*U(A,A,U(U,U,A,A,U),1*U,1*U)><B,1*U(A,A,U(U,U,A,A,U),1*U,1*U)>b,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=4,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a34_a9dI)
(w_sbtx [Occ=Once!] :: TypeRep)
(w1_sbty [Occ=Once] :: Maybe String)
(w2_sbtz [Occ=Once!] :: TypeRep)
(w3_sbtA [Occ=Once!] :: TypeRep) ->
case w_sbtx
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep _ [Occ=Dead] _ [Occ=Dead]
ww3_sbtF [Occ=Once!] ww4_sbtO [Occ=Once]
ww5_sbtP [Occ=Once] ->
case ww3_sbtF
of _ [Occ=Dead]
{ Data.Typeable.Internal.TyCon ww7_sbtI [Occ=Once]
ww8_sbtJ [Occ=Once] _ [Occ=Dead] _ [Occ=Dead]
ww11_sbtM [Occ=Once] ->
case w2_sbtz
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep _ [Occ=Dead] _ [Occ=Dead]
ww15_sbtV [Occ=Once!] ww16_sbu4 [Occ=Once]
ww17_sbu5 [Occ=Once] ->
case ww15_sbtV
of _ [Occ=Dead]
{ Data.Typeable.Internal.TyCon ww19_sbtY [Occ=Once]
ww20_sbtZ [Occ=Once] _ [Occ=Dead] _ [Occ=Dead]
ww23_sbu2 [Occ=Once] ->
case w3_sbtA
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep _ [Occ=Dead] _ [Occ=Dead]
ww27_sbub [Occ=Once!] ww28_sbuk [Occ=Once]
ww29_sbul [Occ=Once] ->
case ww27_sbub
of _ [Occ=Dead]
{ Data.Typeable.Internal.TyCon ww31_sbue [Occ=Once]
ww32_sbuf [Occ=Once] _ [Occ=Dead] _ [Occ=Dead]
ww35_sbui [Occ=Once] ->
Development.Shake.Errors.$werrorRuleTypeMismatch
@ a34_a9dI
ww7_sbtI
ww8_sbtJ
ww11_sbtM
ww4_sbtO
ww5_sbtP
w1_sbty
ww19_sbtY
ww20_sbtZ
ww23_sbu2
ww16_sbu4
ww17_sbu5
ww31_sbue
ww32_sbuf
ww35_sbui
ww28_sbuk
ww29_sbul
}
}
}
}
}
}}]
errorRuleTypeMismatch =
\ (@ a34_a9dI)
(w_sbtx :: TypeRep)
(w1_sbty :: Maybe String)
(w2_sbtz :: TypeRep)
(w3_sbtA :: TypeRep) ->
case w_sbtx
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww1_sbtD ww2_sbtE ww3_sbtF
ww4_sbtO ww5_sbtP ->
case ww3_sbtF
of _ [Occ=Dead]
{ Data.Typeable.Internal.TyCon ww7_sbtI ww8_sbtJ ww9_sbtK ww10_sbtL
ww11_sbtM ->
case w2_sbtz
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww13_sbtT ww14_sbtU ww15_sbtV
ww16_sbu4 ww17_sbu5 ->
case ww15_sbtV
of _ [Occ=Dead]
{ Data.Typeable.Internal.TyCon ww19_sbtY ww20_sbtZ ww21_sbu0
ww22_sbu1 ww23_sbu2 ->
case w3_sbtA
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww25_sbu9 ww26_sbua ww27_sbub
ww28_sbuk ww29_sbul ->
case ww27_sbub
of _ [Occ=Dead]
{ Data.Typeable.Internal.TyCon ww31_sbue ww32_sbuf ww33_sbug
ww34_sbuh ww35_sbui ->
Development.Shake.Errors.$werrorRuleTypeMismatch
@ a34_a9dI
ww7_sbtI
ww8_sbtJ
ww11_sbtM
ww4_sbtO
ww5_sbtP
w1_sbty
ww19_sbtY
ww20_sbtZ
ww23_sbu2
ww16_sbu4
ww17_sbu5
ww31_sbue
ww32_sbuf
ww35_sbui
ww28_sbuk
ww29_sbul
}
}
}
}
}
}
lvl39_rbPE :: [Char]
[GblId, Str=DmdType]
lvl39_rbPE =
GHC.CString.unpackCString#
"Build system error - cannot currently call _apply_"#
lvl40_rbPF :: [Char]
[GblId, Str=DmdType]
lvl40_rbPF = GHC.CString.unpackCString# "Reason"#
lvl41_rbPG :: [Char]
[GblId, Str=DmdType]
lvl41_rbPG =
GHC.CString.unpackCString# "Move the _apply_ call earlier/later"#
Rec {
$wunsafeDrop1_rbPH
:: forall a1_iaBN. GHC.Prim.Int# -> [a1_iaBN] -> [a1_iaBN]
[GblId, Arity=2, Caf=NoCafRefs, Str=DmdType <L,1*U><S,1*U>]
$wunsafeDrop1_rbPH =
\ (@ a34_iaBN) (ww_sbus :: GHC.Prim.Int#) (w_sbup :: [a34_iaBN]) ->
case w_sbup of _ [Occ=Dead] {
[] -> GHC.Types.[] @ a34_iaBN;
: ipv1_iaBY ipv2_iaBZ ->
case ww_sbus of ds3_iaC1 {
__DEFAULT ->
$wunsafeDrop1_rbPH @ a34_iaBN (GHC.Prim.-# ds3_iaC1 1) ipv2_iaBZ;
1 -> ipv2_iaBZ
}
}
end Rec }
Rec {
g1_rbPI :: [Char] -> [Char]
[GblId, Arity=1, Str=DmdType <L,U>]
g1_rbPI =
\ (xs_a9e5 :: [Char]) ->
case filter
@ ([Char], [Char])
(\ (ds_daA1 [OS=ProbOneShot] :: ([Char], [Char])) ->
case ds_daA1 of _ [Occ=Dead] { (a34_a9e6, b_a9e7) ->
isPrefixOf @ Char GHC.Classes.$fEqChar a34_a9e6 xs_a9e5
})
alternatives_r9dx
of _ [Occ=Dead] {
[] ->
case xs_a9e5 of _ [Occ=Dead] {
[] -> GHC.Types.[] @ Char;
: x_a9ea xs1_a9eb -> GHC.Types.: @ Char x_a9ea (g1_rbPI xs1_a9eb)
};
: ds_daA3 ds1_daA4 ->
case ds_daA3 of _ [Occ=Dead] { (a34_a9e8, b_a9e9) ->
++
@ Char
b_a9e9
(g1_rbPI
(case GHC.List.$wlenAcc @ Char a34_a9e8 0
of ww2_ib1S { __DEFAULT ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<=# ww2_ib1S 0)
of _ [Occ=Dead] {
False -> $wunsafeDrop1_rbPH @ Char ww2_ib1S xs_a9e5;
True -> xs_a9e5
}
}))
}
}
end Rec }
lvl42_rbPJ :: String
[GblId, Str=DmdType b]
lvl42_rbPJ =
Control.Exception.Base.absentError @ String "ww_sbuQ String"#
lvl43_rbPK :: String
[GblId, Str=DmdType b]
lvl43_rbPK =
Control.Exception.Base.absentError @ String "ww_sbuR String"#
lvl44_rbPL
:: forall a_a9dD.
Maybe String
-> String
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> a_a9dD
[GblId, Arity=7, Str=DmdType <L,U><L,U><L,U><L,U><L,U><L,U><L,U>b]
lvl44_rbPL =
\ (@ a34_a9dD)
(w_sbuF :: Maybe String)
(w1_sbuG :: String)
(ww_sbuO :: GHC.Prim.Word#)
(ww1_sbuP :: GHC.Prim.Word#)
(ww2_sbuS :: String)
(ww3_sbuU :: [Data.Typeable.Internal.KindRep])
(ww4_sbuV :: [TypeRep]) ->
let {
alt_a9dZ [Dmd=<B,U>] :: Bool
[LclId, Str=DmdType]
alt_a9dZ = GHC.Base.eqString ww2_sbuS lvl25_rbPn } in
let {
f_a9e3 :: [Char] -> [Char]
[LclId, Arity=1, Str=DmdType <L,U>]
f_a9e3 =
\ (x_iaBu :: [Char]) ->
case alt_a9dZ of _ [Occ=Dead] {
False -> filter @ Char a31_rbPu x_iaBu;
True -> filter @ Char a31_rbPu (g1_rbPI x_iaBu)
} } in
error
@ a34_a9dD
(unlines
(GHC.Types.:
@ [Char]
(++ @ Char (f_a9e3 lvl39_rbPE) lvl8_rbP1)
(let {
a35_sbgG :: [Char]
[LclId, Str=DmdType]
a35_sbgG = f_a9e3 lvl40_rbPF } in
let {
a36_sbgF :: (String, String)
[LclId, Str=DmdType m]
a36_sbgF = (a35_sbgG, w1_sbuG) } in
let {
ds_XaDm :: [(String, String)]
[LclId, Str=DmdType]
ds_XaDm =
case w_sbuF of _ [Occ=Dead] {
Nothing -> GHC.Types.[] @ (String, String);
Just b_a9dW ->
GHC.Types.:
@ (String, String)
(f_a9e3 lvl28_rbPq, b_a9dW)
(GHC.Types.[] @ (String, String))
} } in
let {
a37_sbgB :: String
[LclId, Str=DmdType]
a37_sbgB =
Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18
(Data.Typeable.Internal.TyCon
ww_sbuO ww1_sbuP lvl42_rbPJ lvl43_rbPK ww2_sbuS)
ww3_sbuU
ww4_sbuV
(GHC.Types.[] @ Char) } in
let {
a38_sbgD :: [Char]
[LclId, Str=DmdType]
a38_sbgD = f_a9e3 lvl27_rbPp } in
let {
a39_sbgC :: (String, String)
[LclId, Str=DmdType m]
a39_sbgC = (a38_sbgD, a37_sbgB) } in
let {
a40_sbgH :: [(String, String)]
[LclId, Str=DmdType]
a40_sbgH = GHC.Types.: @ (String, String) a39_sbgC ds_XaDm } in
let {
args2_a9dU :: [(String, String)]
[LclId, Str=DmdType]
args2_a9dU = GHC.Types.: @ (String, String) a36_sbgF a40_sbgH } in
let {
as_a9dT [Dmd=<L,U(U)>] :: Int
[LclId, Str=DmdType]
as_a9dT =
GHC.List.strictMaximum
@ Int
GHC.Classes.$fOrdInt
(GHC.Types.:
@ Int
lvl4_rbOX
(map @ ([Char], String) @ Int lvl5_rbOY args2_a9dU)) } in
let {
z3_iaAT :: [[Char]]
[LclId, Str=DmdType]
z3_iaAT =
let {
hint_a9dS [Dmd=<S,U>] :: String
[LclId, Str=DmdType]
hint_a9dS = f_a9e3 lvl41_rbPG } in
case GHC.Classes.$fEq[]_$s$c==1 hint_a9dS (GHC.Types.[] @ Char)
of _ [Occ=Dead] {
False -> GHC.Types.: @ [Char] hint_a9dS (GHC.Types.[] @ [Char]);
True -> GHC.Types.[] @ [Char]
} } in
letrec {
go2_iaAV [Occ=LoopBreaker] :: [(String, String)] -> [[Char]]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go2_iaAV =
\ (ds1_iaAW :: [(String, String)]) ->
case ds1_iaAW of _ [Occ=Dead] {
[] -> z3_iaAT;
: y_iaB1 ys_iaB2 ->
case y_iaB1 of _ [Occ=Dead] { (a41_a9dX, b_a9dY) ->
GHC.Types.:
@ [Char]
(GHC.CString.unpackAppendCString#
" "#
(++
@ Char
a41_a9dX
(let {
n_XaH3 :: [Char]
[LclId, Str=DmdType]
n_XaH3 =
case as_a9dT of _ [Occ=Dead] { GHC.Types.I# x_iaHS ->
case GHC.List.$wlenAcc @ Char a41_a9dX 0
of ww5_ib1S { __DEFAULT ->
let {
y1_iaBc :: GHC.Prim.Int#
[LclId, Str=DmdType]
y1_iaBc = GHC.Prim.+# (GHC.Prim.-# x_iaHS ww5_ib1S) 2 } in
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# 0 y1_iaBc)
of _ [Occ=Dead] {
False -> b_a9dY;
True ->
let {
lvl65_sbGg :: [Char]
[LclId, Str=DmdType]
lvl65_sbGg = GHC.Types.: @ Char lvl7_rbP0 b_a9dY } in
letrec {
$wxs_sbuC [InlPrag=[0], Occ=LoopBreaker]
:: GHC.Prim.Int# -> [Char]
[LclId, Arity=1, Str=DmdType <S,1*U>]
$wxs_sbuC =
\ (ww6_sbuA :: GHC.Prim.Int#) ->
case ww6_sbuA of ds2_iaIV {
__DEFAULT ->
GHC.Types.:
@ Char
lvl7_rbP0
($wxs_sbuC (GHC.Prim.-# ds2_iaIV 1));
1 -> lvl65_sbGg
}; } in
$wxs_sbuC y1_iaBc
}
}
} } in
case GHC.Classes.$fEq[]_$s$c==1 a41_a9dX (GHC.Types.[] @ Char)
of _ [Occ=Dead] {
False -> GHC.Types.: @ Char lvl6_rbOZ n_XaH3;
True -> n_XaH3
})))
(go2_iaAV ys_iaB2)
}
}; } in
go2_iaAV args2_a9dU)))
Development.Shake.Errors.$werrorNoApply [InlPrag=[0]]
:: forall a_a9dD.
GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> Maybe String
-> String
-> a_a9dD
[GblId,
Arity=7,
Str=DmdType <B,U><B,U><B,U><B,1*U><B,1*U><B,1*U><B,U>b]
Development.Shake.Errors.$werrorNoApply =
\ (@ a34_a9dD)
(ww_sbuO :: GHC.Prim.Word#)
(ww1_sbuP :: GHC.Prim.Word#)
(ww2_sbuS :: String)
(ww3_sbuU :: [Data.Typeable.Internal.KindRep])
(ww4_sbuV :: [TypeRep])
(w_sbuF :: Maybe String)
(w1_sbuG :: String) ->
lvl44_rbPL
@ a34_a9dD
w_sbuF
w1_sbuG
ww_sbuO
ww1_sbuP
ww2_sbuS
ww3_sbuU
ww4_sbuV
errorNoApply [InlPrag=INLINE[0]]
:: forall a_a9dD. TypeRep -> Maybe String -> String -> a_a9dD
[GblId,
Arity=3,
Str=DmdType <B,U(A,A,U(U,U,A,A,U),1*U,1*U)><B,1*U><B,U>b,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a34_a9dD)
(w_sbuE [Occ=Once!] :: TypeRep)
(w1_sbuF [Occ=Once] :: Maybe String)
(w2_sbuG [Occ=Once] :: String) ->
case w_sbuE
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep _ [Occ=Dead] _ [Occ=Dead]
ww3_sbuL [Occ=Once!] ww4_sbuU [Occ=Once]
ww5_sbuV [Occ=Once] ->
case ww3_sbuL
of _ [Occ=Dead]
{ Data.Typeable.Internal.TyCon ww7_sbuO [Occ=Once]
ww8_sbuP [Occ=Once] _ [Occ=Dead] _ [Occ=Dead]
ww11_sbuS [Occ=Once] ->
Development.Shake.Errors.$werrorNoApply
@ a34_a9dD
ww7_sbuO
ww8_sbuP
ww11_sbuS
ww4_sbuU
ww5_sbuV
w1_sbuF
w2_sbuG
}
}}]
errorNoApply =
\ (@ a34_a9dD)
(w_sbuE :: TypeRep)
(w1_sbuF :: Maybe String)
(w2_sbuG :: String) ->
case w_sbuE
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww1_sbuJ ww2_sbuK ww3_sbuL
ww4_sbuU ww5_sbuV ->
case ww3_sbuL
of _ [Occ=Dead]
{ Data.Typeable.Internal.TyCon ww7_sbuO ww8_sbuP ww9_sbuQ ww10_sbuR
ww11_sbuS ->
Development.Shake.Errors.$werrorNoApply
@ a34_a9dD
ww7_sbuO
ww8_sbuP
ww11_sbuS
ww4_sbuU
ww5_sbuV
w1_sbuF
w2_sbuG
}
}
lvl45_rbPM :: [Char]
[GblId, Str=DmdType]
lvl45_rbPM = GHC.CString.unpackCString# "multiple"#
lvl46_rbPN :: [Char]
[GblId, Str=DmdType]
lvl46_rbPN = GHC.CString.unpackCString# "no"#
lvl47_rbPO :: [Char]
[GblId, Str=DmdType]
lvl47_rbPO = GHC.CString.unpackCString# "Rules matched"#
lvl48_rbPP :: [Char]
[GblId, Str=DmdType]
lvl48_rbPP =
GHC.CString.unpackCString#
"Modify your rules/defaultRules so only one can produce the above key"#
lvl49_rbPQ :: [Char]
[GblId, Str=DmdType]
lvl49_rbPQ =
GHC.CString.unpackCString#
"Either add a rule that produces the above key, or stop requiring the above key"#
a32_rbPR :: String
[GblId, Str=DmdType b]
a32_rbPR =
Control.Exception.Base.absentError @ String "ww_sbvh String"#
a33_rbPS :: String
[GblId, Str=DmdType b]
a33_rbPS =
Control.Exception.Base.absentError @ String "ww_sbvi String"#
lvl50_rbPT :: [Char]
[GblId, Str=DmdType]
lvl50_rbPT = GHC.CString.unpackCString# " rules:"#
lvl51_rbPU :: [Char]
[GblId, Str=DmdType]
lvl51_rbPU = ++ @ Char lvl45_rbPM lvl50_rbPT
lvl52_rbPV :: [Char]
[GblId, Str=DmdType]
lvl52_rbPV = ++ @ Char lvl46_rbPN lvl50_rbPT
lvl53_rbPW
:: forall a_a9dG.
String
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> GHC.Prim.Int#
-> a_a9dG
[GblId, Arity=7, Str=DmdType <L,U><L,U><L,U><L,U><L,U><L,U><L,U>b]
lvl53_rbPW =
\ (@ a34_a9dG)
(w_sbv6 :: String)
(ww_sbvf :: GHC.Prim.Word#)
(ww1_sbvg :: GHC.Prim.Word#)
(ww2_sbvj :: String)
(ww3_sbvl :: [Data.Typeable.Internal.KindRep])
(ww4_sbvm :: [TypeRep])
(ww5_sbvq :: GHC.Prim.Int#) ->
error
@ a34_a9dG
(unlines
(GHC.Types.:
@ [Char]
(GHC.CString.unpackAppendCString#
"Build system error - key matches "#
(case ww5_sbvq of _ [Occ=Dead] {
__DEFAULT -> lvl51_rbPU;
0 -> lvl52_rbPV
}))
(let {
a35_sb5L :: String
[LclId, Str=DmdType]
a35_sb5L =
Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18
(Data.Typeable.Internal.TyCon
ww_sbvf ww1_sbvg a32_rbPR a33_rbPS ww2_sbvj)
ww3_sbvl
ww4_sbvm
(GHC.Types.[] @ Char) } in
let {
a36_sb5K :: (String, String)
[LclId, Str=DmdType m]
a36_sb5K = (lvl11_rbP5, a35_sb5L) } in
let {
a37_sb5N :: (String, String)
[LclId, Str=DmdType m]
a37_sb5N = (lvl12_rbP6, w_sbv6) } in
let {
a38_sb5Q :: String
[LclId, Str=DmdType]
a38_sb5Q =
case GHC.Show.$wshowSignedInt 0 ww5_sbvq (GHC.Types.[] @ Char)
of _ [Occ=Dead] { (# ww7_ib8B, ww8_ib8C #) ->
GHC.Types.: @ Char ww7_ib8B ww8_ib8C
} } in
let {
a39_sb5P :: (String, String)
[LclId, Str=DmdType m]
a39_sb5P = (lvl47_rbPO, a38_sb5Q) } in
let {
a40_sb5O :: [(String, String)]
[LclId, Str=DmdType]
a40_sb5O =
GHC.Types.:
@ (String, String) a39_sb5P (GHC.Types.[] @ (String, String)) } in
let {
a41_sb5M :: [(String, String)]
[LclId, Str=DmdType]
a41_sb5M = GHC.Types.: @ (String, String) a37_sb5N a40_sb5O } in
let {
args2_a9dU :: [(String, String)]
[LclId, Str=DmdType]
args2_a9dU = GHC.Types.: @ (String, String) a36_sb5K a41_sb5M } in
let {
as_a9dT [Dmd=<L,U(U)>] :: Int
[LclId, Str=DmdType]
as_a9dT =
GHC.List.strictMaximum
@ Int
GHC.Classes.$fOrdInt
(GHC.Types.:
@ Int
lvl4_rbOX
(map @ ([Char], String) @ Int lvl5_rbOY args2_a9dU)) } in
let {
z3_iaAT :: [[Char]]
[LclId, Str=DmdType]
z3_iaAT =
let {
hint_a9dS [Dmd=<S,U>] :: String
[LclId, Str=DmdType]
hint_a9dS =
case ww5_sbvq of _ [Occ=Dead] {
__DEFAULT -> lvl48_rbPP;
0 -> lvl49_rbPQ
} } in
case GHC.Classes.$fEq[]_$s$c==1 hint_a9dS (GHC.Types.[] @ Char)
of _ [Occ=Dead] {
False -> GHC.Types.: @ [Char] hint_a9dS (GHC.Types.[] @ [Char]);
True -> GHC.Types.[] @ [Char]
} } in
letrec {
go2_iaAV [Occ=LoopBreaker] :: [(String, String)] -> [[Char]]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go2_iaAV =
\ (ds_iaAW :: [(String, String)]) ->
case ds_iaAW of _ [Occ=Dead] {
[] -> z3_iaAT;
: y_iaB1 ys_iaB2 ->
case y_iaB1 of _ [Occ=Dead] { (a42_a9dX, b_a9dY) ->
GHC.Types.:
@ [Char]
(GHC.CString.unpackAppendCString#
" "#
(++
@ Char
a42_a9dX
(let {
n_XaH3 :: [Char]
[LclId, Str=DmdType]
n_XaH3 =
case as_a9dT of _ [Occ=Dead] { GHC.Types.I# x_iaHS ->
case GHC.List.$wlenAcc @ Char a42_a9dX 0
of ww6_ib1S { __DEFAULT ->
let {
y1_iaBc :: GHC.Prim.Int#
[LclId, Str=DmdType]
y1_iaBc = GHC.Prim.+# (GHC.Prim.-# x_iaHS ww6_ib1S) 2 } in
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# 0 y1_iaBc)
of _ [Occ=Dead] {
False -> b_a9dY;
True ->
let {
lvl65_sbGv :: [Char]
[LclId, Str=DmdType]
lvl65_sbGv = GHC.Types.: @ Char lvl7_rbP0 b_a9dY } in
letrec {
$wxs_sbv3 [InlPrag=[0], Occ=LoopBreaker]
:: GHC.Prim.Int# -> [Char]
[LclId, Arity=1, Str=DmdType <S,1*U>]
$wxs_sbv3 =
\ (ww7_sbv1 :: GHC.Prim.Int#) ->
case ww7_sbv1 of ds1_iaIV {
__DEFAULT ->
GHC.Types.:
@ Char
lvl7_rbP0
($wxs_sbv3 (GHC.Prim.-# ds1_iaIV 1));
1 -> lvl65_sbGv
}; } in
$wxs_sbv3 y1_iaBc
}
}
} } in
case GHC.Classes.$fEq[]_$s$c==1 a42_a9dX (GHC.Types.[] @ Char)
of _ [Occ=Dead] {
False -> GHC.Types.: @ Char lvl6_rbOZ n_XaH3;
True -> n_XaH3
})))
(go2_iaAV ys_iaB2)
}
}; } in
go2_iaAV args2_a9dU)))
lvl54_rbPX
:: forall a_a9dG.
String
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> a_a9dG
[GblId, Arity=6, Str=DmdType <L,U><L,U><L,U><L,U><L,U><L,U>b]
lvl54_rbPX =
\ (@ a34_a9dG)
(w_sbv6 :: String)
(ww_sbvf :: GHC.Prim.Word#)
(ww1_sbvg :: GHC.Prim.Word#)
(ww2_sbvj :: String)
(ww3_sbvl :: [Data.Typeable.Internal.KindRep])
(ww4_sbvm :: [TypeRep]) ->
$werrorDuplicateOracle_rbPm
@ a34_a9dG
ww_sbvf
ww1_sbvg
ww2_sbvj
ww3_sbvl
ww4_sbvm
(GHC.Base.Just @ String w_sbv6)
(GHC.Types.[] @ TypeRep)
lvl55_rbPY
:: forall a_a9dG.
GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> a_a9dG
[GblId, Arity=5, Str=DmdType <L,U><L,U><L,U><L,U><L,U>b]
lvl55_rbPY =
\ (@ a34_a9dG)
(ww_sbvf :: GHC.Prim.Word#)
(ww1_sbvg :: GHC.Prim.Word#)
(ww2_sbvj :: String)
(ww3_sbvl :: [Data.Typeable.Internal.KindRep])
(ww4_sbvm :: [TypeRep]) ->
err
@ a34_a9dG
(GHC.CString.unpackAppendCString#
"no oracle match for "#
(Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18
(Data.Typeable.Internal.TyCon
ww_sbvf ww1_sbvg a32_rbPR a33_rbPS ww2_sbvj)
ww3_sbvl
ww4_sbvm
(GHC.Types.[] @ Char)))
Development.Shake.Errors.$werrorMultipleRulesMatch [InlPrag=[0]]
:: forall a_a9dG.
GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> String
-> GHC.Prim.Int#
-> a_a9dG
[GblId, Arity=7, Str=DmdType <B,U><B,U><B,U><B,U><B,U><B,U><B,U>b]
Development.Shake.Errors.$werrorMultipleRulesMatch =
\ (@ a34_a9dG)
(ww_sbvf :: GHC.Prim.Word#)
(ww1_sbvg :: GHC.Prim.Word#)
(ww2_sbvj :: String)
(ww3_sbvl :: [Data.Typeable.Internal.KindRep])
(ww4_sbvm :: [TypeRep])
(w_sbv6 :: String)
(ww5_sbvq :: GHC.Prim.Int#) ->
case GHC.Base.eqString ww2_sbvj lvl25_rbPn of _ [Occ=Dead] {
False ->
lvl53_rbPW
@ a34_a9dG
w_sbv6
ww_sbvf
ww1_sbvg
ww2_sbvj
ww3_sbvl
ww4_sbvm
ww5_sbvq;
True ->
case ww5_sbvq of _ [Occ=Dead] {
__DEFAULT ->
lvl54_rbPX
@ a34_a9dG w_sbv6 ww_sbvf ww1_sbvg ww2_sbvj ww3_sbvl ww4_sbvm;
0 ->
lvl55_rbPY @ a34_a9dG ww_sbvf ww1_sbvg ww2_sbvj ww3_sbvl ww4_sbvm
}
}
errorMultipleRulesMatch [InlPrag=INLINE[0]]
:: forall a_a9dG. TypeRep -> String -> Int -> a_a9dG
[GblId,
Arity=3,
Str=DmdType <B,1*U(A,A,U(U,U,A,A,U),U,U)><B,U><B,U(U)>b,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a34_a9dG)
(w_sbv5 [Occ=Once!] :: TypeRep)
(w1_sbv6 [Occ=Once] :: String)
(w2_sbv7 [Occ=Once!] :: Int) ->
case w_sbv5
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep _ [Occ=Dead] _ [Occ=Dead]
ww3_sbvc [Occ=Once!] ww4_sbvl [Occ=Once]
ww5_sbvm [Occ=Once] ->
case ww3_sbvc
of _ [Occ=Dead]
{ Data.Typeable.Internal.TyCon ww7_sbvf [Occ=Once]
ww8_sbvg [Occ=Once] _ [Occ=Dead] _ [Occ=Dead]
ww11_sbvj [Occ=Once] ->
case w2_sbv7 of _ [Occ=Dead] { GHC.Types.I# ww13_sbvq [Occ=Once] ->
Development.Shake.Errors.$werrorMultipleRulesMatch
@ a34_a9dG
ww7_sbvf
ww8_sbvg
ww11_sbvj
ww4_sbvl
ww5_sbvm
w1_sbv6
ww13_sbvq
}
}
}}]
errorMultipleRulesMatch =
\ (@ a34_a9dG)
(w_sbv5 :: TypeRep)
(w1_sbv6 :: String)
(w2_sbv7 :: Int) ->
case w_sbv5
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww1_sbva ww2_sbvb ww3_sbvc
ww4_sbvl ww5_sbvm ->
case ww3_sbvc
of _ [Occ=Dead]
{ Data.Typeable.Internal.TyCon ww7_sbvf ww8_sbvg ww9_sbvh ww10_sbvi
ww11_sbvj ->
case w2_sbv7 of _ [Occ=Dead] { GHC.Types.I# ww13_sbvq ->
Development.Shake.Errors.$werrorMultipleRulesMatch
@ a34_a9dG
ww7_sbvf
ww8_sbvg
ww11_sbvj
ww4_sbvl
ww5_sbvm
w1_sbv6
ww13_sbvq
}
}
}
lvl56_rbPZ :: [Char]
[GblId, Str=DmdType]
lvl56_rbPZ =
GHC.CString.unpackCString#
"Build system error - rule has multiple result types"#
lvl57_rbQ0 :: [Char]
[GblId, Str=DmdType]
lvl57_rbQ0 = GHC.CString.unpackCString# "First result type"#
lvl58_rbQ1 :: [Char]
[GblId, Str=DmdType]
lvl58_rbQ1 = GHC.CString.unpackCString# "Second result type"#
lvl59_rbQ2 :: [Char]
[GblId, Str=DmdType]
lvl59_rbQ2 =
GHC.CString.unpackCString#
"A function passed to rule/defaultRule has the wrong result type"#
lvl60_rbQ3 :: [Char]
[GblId, Str=DmdType]
lvl60_rbQ3 = ++ @ Char lvl56_rbPZ lvl8_rbP1
lvl61_rbQ4 :: String
[GblId, Str=DmdType b]
lvl61_rbQ4 =
Control.Exception.Base.absentError @ String "ww_sbvM String"#
lvl62_rbQ5 :: String
[GblId, Str=DmdType b]
lvl62_rbQ5 =
Control.Exception.Base.absentError @ String "ww_sbvN String"#
z2_rbQ6 :: [[Char]]
[GblId, Str=DmdType]
z2_rbQ6 =
case GHC.Classes.$fEq[]_$s$c==1 lvl59_rbQ2 (GHC.Types.[] @ Char)
of _ [Occ=Dead] {
False -> GHC.Types.: @ [Char] lvl59_rbQ2 (GHC.Types.[] @ [Char]);
True -> GHC.Types.[] @ [Char]
}
lvl63_rbQ7
:: forall a_a9dH.
TypeRep
-> TypeRep
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> a_a9dH
[GblId, Arity=7, Str=DmdType <L,U><L,U><L,U><L,U><L,U><L,U><L,U>b]
lvl63_rbQ7 =
\ (@ a34_a9dH)
(w_sbvB :: TypeRep)
(w1_sbvC :: TypeRep)
(ww_sbvK :: GHC.Prim.Word#)
(ww1_sbvL :: GHC.Prim.Word#)
(ww2_sbvO :: String)
(ww3_sbvQ :: [Data.Typeable.Internal.KindRep])
(ww4_sbvR :: [TypeRep]) ->
error
@ a34_a9dH
(unlines
(GHC.Types.:
@ [Char]
lvl60_rbQ3
(let {
a35_sb6h :: String
[LclId, Str=DmdType]
a35_sb6h =
Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18
(Data.Typeable.Internal.TyCon
ww_sbvK ww1_sbvL lvl61_rbQ4 lvl62_rbQ5 ww2_sbvO)
ww3_sbvQ
ww4_sbvR
(GHC.Types.[] @ Char) } in
let {
a36_sb6g :: (String, String)
[LclId, Str=DmdType m]
a36_sb6g = (lvl11_rbP5, a35_sb6h) } in
let {
a37_sb6k :: String
[LclId, Str=DmdType]
a37_sb6k =
case w_sbvB
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww6_iaVl ww7_iaVm ww8_iaVn
ww9_iaVo ww10_iaVp ->
Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18 ww8_iaVn ww9_iaVo ww10_iaVp (GHC.Types.[] @ Char)
} } in
let {
a38_sb6j :: (String, String)
[LclId, Str=DmdType m]
a38_sb6j = (lvl57_rbQ0, a37_sb6k) } in
let {
a39_sb6n :: String
[LclId, Str=DmdType]
a39_sb6n =
case w1_sbvC
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww6_iaVl ww7_iaVm ww8_iaVn
ww9_iaVo ww10_iaVp ->
Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18 ww8_iaVn ww9_iaVo ww10_iaVp (GHC.Types.[] @ Char)
} } in
let {
a40_sb6m :: (String, String)
[LclId, Str=DmdType m]
a40_sb6m = (lvl58_rbQ1, a39_sb6n) } in
let {
a41_sb6l :: [(String, String)]
[LclId, Str=DmdType]
a41_sb6l =
GHC.Types.:
@ (String, String) a40_sb6m (GHC.Types.[] @ (String, String)) } in
let {
a42_sb6i :: [(String, String)]
[LclId, Str=DmdType]
a42_sb6i = GHC.Types.: @ (String, String) a38_sb6j a41_sb6l } in
let {
args2_a9dU :: [(String, String)]
[LclId, Str=DmdType]
args2_a9dU = GHC.Types.: @ (String, String) a36_sb6g a42_sb6i } in
let {
as_a9dT [Dmd=<L,U(U)>] :: Int
[LclId, Str=DmdType]
as_a9dT =
GHC.List.strictMaximum
@ Int
GHC.Classes.$fOrdInt
(GHC.Types.:
@ Int
lvl4_rbOX
(map @ ([Char], String) @ Int lvl5_rbOY args2_a9dU)) } in
letrec {
go2_iaAV [Occ=LoopBreaker] :: [(String, String)] -> [[Char]]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go2_iaAV =
\ (ds_iaAW :: [(String, String)]) ->
case ds_iaAW of _ [Occ=Dead] {
[] -> z2_rbQ6;
: y_iaB1 ys_iaB2 ->
case y_iaB1 of _ [Occ=Dead] { (a43_a9dX, b_a9dY) ->
GHC.Types.:
@ [Char]
(GHC.CString.unpackAppendCString#
" "#
(++
@ Char
a43_a9dX
(let {
n_XaH3 :: [Char]
[LclId, Str=DmdType]
n_XaH3 =
case as_a9dT of _ [Occ=Dead] { GHC.Types.I# x_iaHS ->
case GHC.List.$wlenAcc @ Char a43_a9dX 0
of ww5_ib1S { __DEFAULT ->
let {
y1_iaBc :: GHC.Prim.Int#
[LclId, Str=DmdType]
y1_iaBc = GHC.Prim.+# (GHC.Prim.-# x_iaHS ww5_ib1S) 2 } in
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# 0 y1_iaBc)
of _ [Occ=Dead] {
False -> b_a9dY;
True ->
let {
lvl65_sbGK :: [Char]
[LclId, Str=DmdType]
lvl65_sbGK = GHC.Types.: @ Char lvl7_rbP0 b_a9dY } in
letrec {
$wxs_sbvy [InlPrag=[0], Occ=LoopBreaker]
:: GHC.Prim.Int# -> [Char]
[LclId, Arity=1, Str=DmdType <S,1*U>]
$wxs_sbvy =
\ (ww6_sbvw :: GHC.Prim.Int#) ->
case ww6_sbvw of ds1_iaIV {
__DEFAULT ->
GHC.Types.:
@ Char
lvl7_rbP0
($wxs_sbvy (GHC.Prim.-# ds1_iaIV 1));
1 -> lvl65_sbGK
}; } in
$wxs_sbvy y1_iaBc
}
}
} } in
case GHC.Classes.$fEq[]_$s$c==1 a43_a9dX (GHC.Types.[] @ Char)
of _ [Occ=Dead] {
False -> GHC.Types.: @ Char lvl6_rbOZ n_XaH3;
True -> n_XaH3
})))
(go2_iaAV ys_iaB2)
}
}; } in
go2_iaAV args2_a9dU)))
lvl64_rbQ8
:: forall a_a9dH.
TypeRep
-> TypeRep
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> a_a9dH
[GblId, Arity=7, Str=DmdType <L,U><L,U><L,U><L,U><L,U><L,U><L,U>b]
lvl64_rbQ8 =
\ (@ a34_a9dH)
(w_sbvB :: TypeRep)
(w1_sbvC :: TypeRep)
(ww_sbvK :: GHC.Prim.Word#)
(ww1_sbvL :: GHC.Prim.Word#)
(ww2_sbvO :: String)
(ww3_sbvQ :: [Data.Typeable.Internal.KindRep])
(ww4_sbvR :: [TypeRep]) ->
$werrorDuplicateOracle_rbPm
@ a34_a9dH
ww_sbvK
ww1_sbvL
ww2_sbvO
ww3_sbvQ
ww4_sbvR
(GHC.Base.Nothing @ String)
(GHC.Types.:
@ TypeRep
w_sbvB
(GHC.Types.: @ TypeRep w1_sbvC (GHC.Types.[] @ TypeRep)))
Development.Shake.Errors.$werrorIncompatibleRules [InlPrag=[0]]
:: forall a_a9dH.
GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> TypeRep
-> TypeRep
-> a_a9dH
[GblId, Arity=7, Str=DmdType <B,U><B,U><B,U><B,U><B,U><B,U><B,U>b]
Development.Shake.Errors.$werrorIncompatibleRules =
\ (@ a34_a9dH)
(ww_sbvK :: GHC.Prim.Word#)
(ww1_sbvL :: GHC.Prim.Word#)
(ww2_sbvO :: String)
(ww3_sbvQ :: [Data.Typeable.Internal.KindRep])
(ww4_sbvR :: [TypeRep])
(w_sbvB :: TypeRep)
(w1_sbvC :: TypeRep) ->
case GHC.Base.eqString ww2_sbvO lvl25_rbPn of _ [Occ=Dead] {
False ->
lvl63_rbQ7
@ a34_a9dH
w_sbvB
w1_sbvC
ww_sbvK
ww1_sbvL
ww2_sbvO
ww3_sbvQ
ww4_sbvR;
True ->
lvl64_rbQ8
@ a34_a9dH
w_sbvB
w1_sbvC
ww_sbvK
ww1_sbvL
ww2_sbvO
ww3_sbvQ
ww4_sbvR
}
errorIncompatibleRules [InlPrag=INLINE[0]]
:: forall a_a9dH. TypeRep -> TypeRep -> TypeRep -> a_a9dH
[GblId,
Arity=3,
Str=DmdType <B,1*U(A,A,U(U,U,A,A,U),U,U)><B,U><B,U>b,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a34_a9dH)
(w_sbvA [Occ=Once!] :: TypeRep)
(w1_sbvB [Occ=Once] :: TypeRep)
(w2_sbvC [Occ=Once] :: TypeRep) ->
case w_sbvA
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep _ [Occ=Dead] _ [Occ=Dead]
ww3_sbvH [Occ=Once!] ww4_sbvQ [Occ=Once]
ww5_sbvR [Occ=Once] ->
case ww3_sbvH
of _ [Occ=Dead]
{ Data.Typeable.Internal.TyCon ww7_sbvK [Occ=Once]
ww8_sbvL [Occ=Once] _ [Occ=Dead] _ [Occ=Dead]
ww11_sbvO [Occ=Once] ->
Development.Shake.Errors.$werrorIncompatibleRules
@ a34_a9dH
ww7_sbvK
ww8_sbvL
ww11_sbvO
ww4_sbvQ
ww5_sbvR
w1_sbvB
w2_sbvC
}
}}]
errorIncompatibleRules =
\ (@ a34_a9dH)
(w_sbvA :: TypeRep)
(w1_sbvB :: TypeRep)
(w2_sbvC :: TypeRep) ->
case w_sbvA
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww1_sbvF ww2_sbvG ww3_sbvH
ww4_sbvQ ww5_sbvR ->
case ww3_sbvH
of _ [Occ=Dead]
{ Data.Typeable.Internal.TyCon ww7_sbvK ww8_sbvL ww9_sbvM ww10_sbvN
ww11_sbvO ->
Development.Shake.Errors.$werrorIncompatibleRules
@ a34_a9dH
ww7_sbvK
ww8_sbvL
ww11_sbvO
ww4_sbvQ
ww5_sbvR
w1_sbvB
w2_sbvC
}
}
[35 of 55] Compiling Development.Shake.Core ( src\Development\Shake\Core.hs, .hpc\core\Development\Shake\Core.o )
==================== Tidy Core ====================
Result size of Tidy Core
= {terms: 10,462, types: 23,048, coercions: 4,135}
Development.Shake.Core.$p1Rule
:: forall key_aeta value_aetb.
Rule key_aeta value_aetb =>
ShakeValue key_aeta
[GblId[ClassOp],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(SLLL),U(U,A,A,A)>,
RULES: Built in rule for Development.Shake.Core.$p1Rule: "Class op $p1Rule"]
Development.Shake.Core.$p1Rule =
\ (@ key_aeta)
(@ value_aetb)
(tpl_B1 :: Rule key_aeta value_aetb) ->
case tpl_B1
of tpl_B1
{ Development.Shake.Core.D:Rule tpl_B2 tpl_B3 tpl_B4 tpl_B5 ->
tpl_B2
}
Development.Shake.Core.$p2Rule
:: forall key_aeta value_aetb.
Rule key_aeta value_aetb =>
ShakeValue value_aetb
[GblId[ClassOp],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LSLL),U(A,U,A,A)>,
RULES: Built in rule for Development.Shake.Core.$p2Rule: "Class op $p2Rule"]
Development.Shake.Core.$p2Rule =
\ (@ key_aeta)
(@ value_aetb)
(tpl_B1 :: Rule key_aeta value_aetb) ->
case tpl_B1
of tpl_B1
{ Development.Shake.Core.D:Rule tpl_B2 tpl_B3 tpl_B4 tpl_B5 ->
tpl_B3
}
storedValue
:: forall key_aeta value_aetb.
Rule key_aeta value_aetb =>
ShakeOptions -> key_aeta -> IO (Maybe value_aetb)
[GblId[ClassOp],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLSL),U(A,A,U,A)>,
RULES: Built in rule for storedValue: "Class op storedValue"]
storedValue =
\ (@ key_aeta)
(@ value_aetb)
(tpl_B1 :: Rule key_aeta value_aetb) ->
case tpl_B1
of tpl_B1
{ Development.Shake.Core.D:Rule tpl_B2 tpl_B3 tpl_B4 tpl_B5 ->
tpl_B4
}
equalValue
:: forall key_aeta value_aetb.
Rule key_aeta value_aetb =>
ShakeOptions -> key_aeta -> value_aetb -> value_aetb -> EqualCost
[GblId[ClassOp],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLLS),U(A,A,A,U)>,
RULES: Built in rule for equalValue: "Class op equalValue"]
equalValue =
\ (@ key_aeta)
(@ value_aetb)
(tpl_B1 :: Rule key_aeta value_aetb) ->
case tpl_B1
of tpl_B1
{ Development.Shake.Core.D:Rule tpl_B2 tpl_B3 tpl_B4 tpl_B5 ->
tpl_B5
}
Development.Shake.Core.$WLocal [InlPrag=INLINE]
:: Stack
-> Verbosity
-> Maybe String
-> [Depends]
-> Seconds
-> [Trace]
-> [Key -> Bool]
-> [Key]
-> Local
[GblId[DataConWrapper],
Arity=8,
Caf=NoCafRefs,
Str=DmdType <L,U><L,U><L,U><L,U><S,U><L,U><L,U><L,U>m,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=8,unsat_ok=False,boring_ok=False)
Tmpl= \ (dt_aeEz [Occ=Once] :: Stack)
(dt_aeEA [Occ=Once] :: Verbosity)
(dt_aeEB [Occ=Once] :: Maybe String)
(dt_aeEC [Occ=Once] :: [Depends])
(dt_aeED [Occ=Once!] :: Seconds)
(dt_aeEE [Occ=Once] :: [Trace])
(dt_aeEF [Occ=Once] :: [Key -> Bool])
(dt_aeEG [Occ=Once] :: [Key]) ->
case dt_aeED of _ [Occ=Dead] { GHC.Types.D# dt_aeEH [Occ=Once] ->
Development.Shake.Core.Local
dt_aeEz dt_aeEA dt_aeEB dt_aeEC dt_aeEH dt_aeEE dt_aeEF dt_aeEG
}}]
Development.Shake.Core.$WLocal =
\ (dt_aeEz [Occ=Once] :: Stack)
(dt_aeEA [Occ=Once] :: Verbosity)
(dt_aeEB [Occ=Once] :: Maybe String)
(dt_aeEC [Occ=Once] :: [Depends])
(dt_aeED [Occ=Once!] :: Seconds)
(dt_aeEE [Occ=Once] :: [Trace])
(dt_aeEF [Occ=Once] :: [Key -> Bool])
(dt_aeEG [Occ=Once] :: [Key]) ->
case dt_aeED of _ [Occ=Dead] { GHC.Types.D# dt_aeEH [Occ=Once] ->
Development.Shake.Core.Local
dt_aeEz dt_aeEA dt_aeEB dt_aeEC dt_aeEH dt_aeEE dt_aeEF dt_aeEG
}
Development.Shake.Core.withoutActions1
:: Rules ()
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, ((), SRules Action) #)
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <C(S(LS)),1*C1(U(U,1*U(U,1*U(A,U))))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_XjzD [Occ=Once] :: Rules ())
(s_ilkM [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (ds_XjzD
`cast` (Development.Shake.Core.NTCo:Rules[0] <()>_N
; Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <()>_N
; GHC.Types.NTCo:IO[0] <((), SRules Action)>_R
:: Rules ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
((), SRules Action) #))))
s_ilkM
of _ [Occ=Dead]
{ (# ipv_ilkP [Occ=Once], ipv1_ilkQ [Occ=Once!] #) ->
case ipv1_ilkQ
of _ [Occ=Dead] { (a59_apWD [Occ=Once], w4_apWE [Occ=Once!]) ->
(# ipv_ilkP,
(a59_apWD,
case w4_apWE
of _ [Occ=Dead] { SRules _ [Occ=Dead] ds3_djer [Occ=Once] ->
Development.Shake.Core.SRules
@ Action (GHC.Types.[] @ (Action ())) ds3_djer
}) #)
}
}}]
Development.Shake.Core.withoutActions1 =
\ (ds_XjzD :: Rules ())
(s_ilkM [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (ds_XjzD
`cast` (Development.Shake.Core.NTCo:Rules[0] <()>_N
; Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <()>_N
; GHC.Types.NTCo:IO[0] <((), SRules Action)>_R
:: Rules ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, ((), SRules Action) #))))
s_ilkM
of _ [Occ=Dead] { (# ipv_ilkP, ipv1_ilkQ #) ->
case ipv1_ilkQ of _ [Occ=Dead] { (a59_apWD, w4_apWE) ->
(# ipv_ilkP,
(a59_apWD,
case w4_apWE of _ [Occ=Dead] { SRules ds2_djeq ds3_djer ->
Development.Shake.Core.SRules
@ Action (GHC.Types.[] @ (Action ())) ds3_djer
}) #)
}
}
a_rxsz :: [Char]
[GblId, Str=DmdType]
a_rxsz = GHC.CString.unpackCString# "askOracle"#
a1_rxsA :: [Char]
[GblId, Str=DmdType]
a1_rxsA = GHC.CString.unpackCString# "_apply_"#
a2_rxsB :: ([Char], [Char])
[GblId, Str=DmdType m]
a2_rxsB = (a1_rxsA, a_rxsz)
a3_rxsC :: [([Char], [Char])]
[GblId, Str=DmdType m2]
a3_rxsC =
GHC.Types.:
@ ([Char], [Char]) a2_rxsB (GHC.Types.[] @ ([Char], [Char]))
a4_rxsD :: [Char]
[GblId, Str=DmdType]
a4_rxsD = GHC.CString.unpackCString# "addOracle"#
a5_rxsE :: [Char]
[GblId, Str=DmdType]
a5_rxsE = GHC.CString.unpackCString# "_rule/defaultRule_"#
a6_rxsF :: ([Char], [Char])
[GblId, Str=DmdType m]
a6_rxsF = (a5_rxsE, a4_rxsD)
a7_rxsG :: [([Char], [Char])]
[GblId, Str=DmdType m2]
a7_rxsG = GHC.Types.: @ ([Char], [Char]) a6_rxsF a3_rxsC
a8_rxsH :: [Char]
[GblId, Str=DmdType]
a8_rxsH = GHC.CString.unpackCString# "Answer"#
a9_rxsI :: [Char]
[GblId, Str=DmdType]
a9_rxsI = GHC.CString.unpackCString# "_Result_"#
a10_rxsJ :: ([Char], [Char])
[GblId, Str=DmdType m]
a10_rxsJ = (a9_rxsI, a8_rxsH)
a11_rxsK :: [([Char], [Char])]
[GblId, Str=DmdType m2]
a11_rxsK = GHC.Types.: @ ([Char], [Char]) a10_rxsJ a7_rxsG
a12_rxsL :: [Char]
[GblId, Str=DmdType]
a12_rxsL = GHC.CString.unpackCString# "answer"#
a13_rxsM :: [Char]
[GblId, Str=DmdType]
a13_rxsM = GHC.CString.unpackCString# "_result_"#
a14_rxsN :: ([Char], [Char])
[GblId, Str=DmdType m]
a14_rxsN = (a13_rxsM, a12_rxsL)
a15_rxsO :: [([Char], [Char])]
[GblId, Str=DmdType m2]
a15_rxsO = GHC.Types.: @ ([Char], [Char]) a14_rxsN a11_rxsK
a16_rxsP :: [Char]
[GblId, Str=DmdType]
a16_rxsP = GHC.CString.unpackCString# "Question"#
a17_rxsQ :: [Char]
[GblId, Str=DmdType]
a17_rxsQ = GHC.CString.unpackCString# "_Key_"#
a18_rxsR :: ([Char], [Char])
[GblId, Str=DmdType m]
a18_rxsR = (a17_rxsQ, a16_rxsP)
a19_rxsS :: [([Char], [Char])]
[GblId, Str=DmdType m2]
a19_rxsS = GHC.Types.: @ ([Char], [Char]) a18_rxsR a15_rxsO
a20_rxsT :: [Char]
[GblId, Str=DmdType]
a20_rxsT = GHC.CString.unpackCString# "question"#
a21_rxsU :: [Char]
[GblId, Str=DmdType]
a21_rxsU = GHC.CString.unpackCString# "_key_"#
a22_rxsV :: ([Char], [Char])
[GblId, Str=DmdType m]
a22_rxsV = (a21_rxsU, a20_rxsT)
a23_rxsW :: [([Char], [Char])]
[GblId, Str=DmdType m2]
a23_rxsW = GHC.Types.: @ ([Char], [Char]) a22_rxsV a19_rxsS
a24_rxsX :: [Char]
[GblId, Str=DmdType]
a24_rxsX = GHC.CString.unpackCString# "Oracle"#
a25_rxsY :: [Char]
[GblId, Str=DmdType]
a25_rxsY = GHC.CString.unpackCString# "_Rule_"#
a26_rxsZ :: ([Char], [Char])
[GblId, Str=DmdType m]
a26_rxsZ = (a25_rxsY, a24_rxsX)
a27_rxt0 :: [([Char], [Char])]
[GblId, Str=DmdType m2]
a27_rxt0 = GHC.Types.: @ ([Char], [Char]) a26_rxsZ a23_rxsW
a28_rxt1 :: [Char]
[GblId, Str=DmdType]
a28_rxt1 = GHC.CString.unpackCString# "oracle"#
a29_rxt2 :: [Char]
[GblId, Str=DmdType]
a29_rxt2 = GHC.CString.unpackCString# "_rule_"#
a30_rxt3 :: ([Char], [Char])
[GblId, Str=DmdType m]
a30_rxt3 = (a29_rxt2, a28_rxt1)
Development.Shake.Core.unsafeIgnoreDependencies1
:: forall a_af0q.
Action a_af0q
-> S Global Local
-> (a_af0q -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=4,
Caf=NoCafRefs,
Str=DmdType <L,1*C1(C1(C1(U(U,U))))><S(LLS),1*U(U,U,U(U))><L,C(C1(U))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=4,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a59_af0q)
(act_XeFz [Occ=Once] :: Action a59_af0q)
(eta_B3 [Occ=Once!] :: S Global Local)
(eta1_Xcq [Occ=OnceL!] :: a59_af0q -> IO ())
(eta2_B1 [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case eta_B3
of wild_ilT9 { S _ [Occ=Dead] _ [Occ=Dead] ds2_ilTd [Occ=Once] ->
case ds2_ilTd
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef var#_ilTh ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local var#_ilTh eta2_B1
of _ [Occ=Dead]
{ (# ipv_ilTl [Occ=Once], ipv1_ilTm [Occ=Once!] #) ->
let {
pre_aeCx [Occ=OnceL] :: [Depends]
[LclId, Str=DmdType]
pre_aeCx =
case ipv1_ilTm
of _ [Occ=Dead]
{ Local _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ds7_djmp [Occ=Once]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
ds7_djmp
} } in
(((((act_XeFz
`cast` (Development.Shake.Core.NTCo:Action[0]
; Development.Shake.Monad.NTCo:RAW[0]
<Global>_R <Local>_R <a59_af0q>_N
; Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af0q>_N
:: Action a59_af0q ~R# (S Global Local -> ContT () IO a59_af0q)))
wild_ilT9)
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af0q>_R
:: ContT () IO a59_af0q ~R# ((a59_af0q -> IO ()) -> IO ())))
((\ (x_ilFI [Occ=Once] :: a59_af0q)
(eta3_XcA [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local var#_ilTh eta3_XcA
of _ [Occ=Dead]
{ (# ipv2_ilTR [Occ=Once], ipv3_ilTS [Occ=Once!] #) ->
case ipv3_ilTS
of _ [Occ=Dead]
{ Local ds5_dj8F [Occ=Once] ds6_dj8G [Occ=Once] ds7_dj8H [Occ=Once]
_ [Occ=Dead] dt_djut [Occ=Once] ds9_dj8K [Occ=Once]
ds10_dj8L [Occ=Once] ds11_dj8M [Occ=Once] ->
case GHC.Prim.writeMutVar#
@ GHC.Prim.RealWorld
@ Local
var#_ilTh
(Development.Shake.Core.Local
ds5_dj8F
ds6_dj8G
ds7_dj8H
pre_aeCx
dt_djut
ds9_dj8K
ds10_dj8L
ds11_dj8M)
ipv2_ilTR
of s2#_ilTV [OS=OneShot] { __DEFAULT ->
((eta1_Xcq x_ilFI)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
s2#_ilTV
}
}
})
`cast` (<a59_af0q>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (a59_af0q
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (a59_af0q -> IO ()))))
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl
}
}
}}]
Development.Shake.Core.unsafeIgnoreDependencies1 =
\ (@ a59_af0q)
(act_XeFz :: Action a59_af0q)
(eta_B3 :: S Global Local)
(eta1_Xcq :: a59_af0q -> IO ())
(eta2_B1 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case eta_B3 of wild_ilT9 { S ds_ilTb ds1_ilTc ds2_ilTd ->
case ds2_ilTd
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef var#_ilTh ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local var#_ilTh eta2_B1
of _ [Occ=Dead] { (# ipv_ilTl, ipv1_ilTm #) ->
let {
pre_aeCx :: [Depends]
[LclId, Str=DmdType]
pre_aeCx =
case ipv1_ilTm
of _ [Occ=Dead]
{ Local ds4_djmm ds5_djmn ds6_djmo ds7_djmp dt_djuV ds8_djmr
ds9_djms ds10_djmt ->
ds7_djmp
} } in
(((((act_XeFz
`cast` (Development.Shake.Core.NTCo:Action[0]
; Development.Shake.Monad.NTCo:RAW[0]
<Global>_R <Local>_R <a59_af0q>_N
; Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af0q>_N
:: Action a59_af0q ~R# (S Global Local -> ContT () IO a59_af0q)))
wild_ilT9)
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af0q>_R
:: ContT () IO a59_af0q ~R# ((a59_af0q -> IO ()) -> IO ())))
((\ (x_ilFI :: a59_af0q)
(eta3_XcA [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local var#_ilTh eta3_XcA
of _ [Occ=Dead] { (# ipv2_ilTR, ipv3_ilTS #) ->
case ipv3_ilTS
of _ [Occ=Dead]
{ Local ds5_dj8F ds6_dj8G ds7_dj8H ds8_dj8I dt_djut ds9_dj8K
ds10_dj8L ds11_dj8M ->
case GHC.Prim.writeMutVar#
@ GHC.Prim.RealWorld
@ Local
var#_ilTh
(Development.Shake.Core.Local
ds5_dj8F
ds6_dj8G
ds7_dj8H
pre_aeCx
dt_djut
ds9_dj8K
ds10_dj8L
ds11_dj8M)
ipv2_ilTR
of s2#_ilTV [OS=OneShot] { __DEFAULT ->
((eta1_Xcq x_ilFI)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
s2#_ilTV
}
}
})
`cast` (<a59_af0q>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (a59_af0q
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (a59_af0q -> IO ()))))
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl
}
}
}
Development.Shake.Core.$wa4 [InlPrag=[0]]
:: forall key_af2X.
ShakeValue key_af2X =>
key_af2X
-> Database
-> GHC.Prim.MutVar# GHC.Prim.RealWorld Local
-> (() -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=6,
Str=DmdType <L,U(1*U,U,1*U,1*U,1*U,1*U)><L,U><L,U(U(U),A,U(U),A,A,A,A)><L,U><L,1*C1(C1(U(U,U)))><L,U>]
Development.Shake.Core.$wa4 =
\ (@ key_af2X)
(w_st71 :: ShakeValue key_af2X)
(w1_st72 :: key_af2X)
(ww_st7c :: Database)
(ww1_st7r :: GHC.Prim.MutVar# GHC.Prim.RealWorld Local)
(w2_st74 :: () -> IO ())
(w3_st75 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local ww1_st7r w3_st75
of _ [Occ=Dead] { (# ipv_imIb, ipv1_imIc #) ->
case ipv1_imIc
of _ [Occ=Dead]
{ Local ds_djax ds1_djay ds2_djaz ds4_djaA dt_djuu ds5_djaC
ds6_djaD ds7_djaE ->
letrec {
a59_smJs [Occ=LoopBreaker]
:: [Depends]
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, [[Key]] #)
[LclId, Arity=2, Str=DmdType <S,1*U><L,U>]
a59_smJs =
\ (ds8_ik58 :: [Depends])
(eta_XrH [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case ds8_ik58 of _ [Occ=Dead] {
[] -> (# eta_XrH, GHC.Types.[] @ [Key] #);
: y_ik5e ys_ik5f ->
case ww_st7c
of _ [Occ=Dead]
{ Development.Shake.Database.Database ww3_imHL ww4_imHM ww5_imHN
ww6_imHO ww7_imHP ww8_imHQ ww9_imHR ->
case Development.Shake.Database.$wa8
ww3_imHL ww5_imHN y_ik5e eta_XrH
of _ [Occ=Dead] { (# ipv2_ilkP, ipv3_ilkQ #) ->
case a59_smJs ys_ik5f ipv2_ilkP
of _ [Occ=Dead] { (# ipv4_XlMM, ipv5_XlMO #) ->
(# ipv4_XlMM, GHC.Types.: @ [Key] ipv3_ilkQ ipv5_XlMO #)
}
}
}
}; } in
case a59_smJs ds4_djaA ipv_imIb
of _ [Occ=Dead] { (# ipv2_ilkP, ipv3_ilkQ #) ->
case ds_djax
of wild1_ik5n
{ Development.Shake.Database.Stack key1_ik5s ds9_ik5t ds10_ik5u ->
let {
$j_snHY
:: GHC.Prim.Void# -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId, Arity=1, Str=DmdType <L,A>]
$j_snHY =
\ _ [Occ=Dead, OS=OneShot] ->
let {
a60_smHy :: Eq key_af2X
[LclId, Str=DmdType]
a60_smHy =
case w_st71
of _ [Occ=Dead]
{ (tpl_X5X, tpl1_X5Z, tpl2_Xcp, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl2_Xcp
} } in
let {
a61_smHz :: Show key_af2X
[LclId, Str=DmdType]
a61_smHz =
case w_st71
of _ [Occ=Dead]
{ (tpl_X61, tpl1_X63, tpl2_Xcr, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl_X61
} } in
let {
a62_smHA :: Typeable key_af2X
[LclId, Str=DmdType]
a62_smHA =
case w_st71
of _ [Occ=Dead]
{ (tpl_X5Z, tpl1_X61, tpl2_Xct, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl1_X61
} } in
let {
a63_smHB :: Hashable key_af2X
[LclId, Str=DmdType]
a63_smHB =
case w_st71
of _ [Occ=Dead]
{ (tpl_X5V, tpl1_X5X, tpl2_Xcv, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl3_B4
} } in
let {
a64_smHC :: Binary key_af2X
[LclId, Str=DmdType]
a64_smHC =
case w_st71
of _ [Occ=Dead]
{ (tpl_X5T, tpl1_X5V, tpl2_Xcx, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl4_B5
} } in
let {
a65_smHD :: NFData key_af2X
[LclId, Str=DmdType]
a65_smHD =
case w_st71
of _ [Occ=Dead]
{ (tpl_X5R, tpl1_X5T, tpl2_Xcz, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl5_B6
} } in
let {
a66_smHx :: Value
[LclId, Str=DmdType]
a66_smHx =
Development.Shake.Value.Value
@ key_af2X
a60_smHy
a61_smHz
a62_smHA
a63_smHB
a64_smHC
a65_smHD
w1_st72 } in
case GHC.List.elem
@ Key
Development.Shake.Value.$fEqKey
(a66_smHx
`cast` (Sym Development.Shake.Value.NTCo:Key[0] :: Value ~R# Key))
(Control.Monad.Extra.concatMapM1 @ Key ipv3_ilkQ)
of _ [Occ=Dead] {
False ->
letrec {
go5_imIR [Occ=LoopBreaker] :: [Key -> Bool] -> Any
[LclId, Arity=1, Str=DmdType <S,1*U>]
go5_imIR =
\ (ds11_imIS :: [Key -> Bool]) ->
case ds11_imIS of _ [Occ=Dead] {
[] ->
GHC.Types.False
`cast` (Sym Data.Monoid.NTCo:Any[0] :: Bool ~R# Any);
: y_imIX ys_imIY ->
case y_imIX
(a66_smHx
`cast` (Sym Development.Shake.Value.NTCo:Key[0] :: Value ~R# Key))
of _ [Occ=Dead] {
False -> go5_imIR ys_imIY;
True ->
GHC.Types.True `cast` (Sym Data.Monoid.NTCo:Any[0] :: Bool ~R# Any)
}
}; } in
case (go5_imIR ds6_djaD)
`cast` (Data.Monoid.NTCo:Any[0] :: Any ~R# Bool)
of _ [Occ=Dead] {
False ->
case GHC.Prim.writeMutVar#
@ GHC.Prim.RealWorld
@ Local
ww1_st7r
(Development.Shake.Core.Local
wild1_ik5n
ds1_djay
ds2_djaz
ds4_djaA
dt_djuu
ds5_djaC
ds6_djaD
(GHC.Types.:
@ Key
(a66_smHx
`cast` (Sym Development.Shake.Value.NTCo:Key[0] :: Value ~R# Key))
ds7_djaE))
ipv2_ilkP
of s2#_imIw [OS=OneShot] { __DEFAULT ->
((w2_st74 GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
s2#_imIw
};
True ->
((w2_st74 GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_ilkP
};
True ->
((w2_st74 GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_ilkP
} } in
case key1_ik5s of _ [Occ=Dead] {
Nothing -> $j_snHY GHC.Prim.void#;
Just a60_iksH ->
case a60_iksH
`cast` (Development.Shake.Value.NTCo:Key[0] :: Key ~R# Value)
of _ [Occ=Dead]
{ Development.Shake.Value.Value @ a61_ilr2 $dEq_ilr3 $dShow_ilr4
$dTypeable_ilr5 $dHashable_ilr6 $dBinary_ilr7 $dNFData_ilr8
a62_ilr9 ->
case w_st71
of _ [Occ=Dead]
{ (tpl_X5Z, tpl1_X61, tpl2_Xdu, tpl3_B4, tpl4_B5, tpl5_B6) ->
case (tpl1_X61
`cast` (Data.Typeable.Internal.NTCo:Typeable[0] <*>_N <key_af2X>_N
:: Typeable key_af2X ~R# (GHC.Prim.Proxy# key_af2X -> TypeRep)))
(GHC.Prim.proxy# @ * @ key_af2X)
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt1_ilro dt2_ilrp ds11_ilrq
ds12_ilrr ds13_ilrs ->
case ($dTypeable_ilr5
`cast` (Data.Typeable.Internal.NTCo:Typeable[0] <*>_N <a61_ilr2>_N
:: Typeable a61_ilr2 ~R# (GHC.Prim.Proxy# a61_ilr2 -> TypeRep)))
(GHC.Prim.proxy# @ * @ a61_ilr2)
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt3_ilrw dt4_ilrx ds14_ilry
ds15_ilrz ds16_ilrA ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt1_ilro dt3_ilrw)
of _ [Occ=Dead] {
False -> $j_snHY GHC.Prim.void#;
True ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt2_ilrp dt4_ilrx)
of _ [Occ=Dead] {
False -> $j_snHY GHC.Prim.void#;
True ->
case ==
@ a61_ilr2
$dEq_ilr3
a62_ilr9
(w1_st72
`cast` (UnivCo mkUnsafeCo representational key_af2X a61_ilr2
:: key_af2X ~R# a61_ilr2))
of _ [Occ=Dead] {
False -> $j_snHY GHC.Prim.void#;
True ->
((w2_st74 GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_ilkP
}
}
}
}
}
}
}
}
}
}
}
}
Development.Shake.Core.trackUse1 [InlPrag=INLINE[0]]
:: forall key_af2X.
ShakeValue key_af2X =>
key_af2X
-> S Global Local
-> (() -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=5,
Str=DmdType <L,U(1*U,U,1*U,1*U,1*U,1*U)><L,U><S(LSS),1*U(A,1*U(U(U(U),A,U(U),A,A,A,A),A,A,A,A,A,A,A,A,A,A),1*U(U))><L,1*C1(C1(U(U,U)))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=5,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ key_af2X)
(w_st71 [Occ=Once] :: ShakeValue key_af2X)
(w1_st72 [Occ=Once] :: key_af2X)
(w2_st73 [Occ=Once!] :: S Global Local)
(w3_st74 [Occ=Once] :: () -> IO ())
(w4_st75 [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w2_st73
of _ [Occ=Dead]
{ S _ [Occ=Dead] ww2_st79 [Occ=Once!] ww3_st7o [Occ=Once] ->
case ww2_st79
of _ [Occ=Dead]
{ Global ww5_st7c [Occ=Once] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] ->
case ww3_st7o
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef ww17_st7r [Occ=Once] ->
Development.Shake.Core.$wa4
@ key_af2X w_st71 w1_st72 ww5_st7c ww17_st7r w3_st74 w4_st75
}
}
}}]
Development.Shake.Core.trackUse1 =
\ (@ key_af2X)
(w_st71 :: ShakeValue key_af2X)
(w1_st72 :: key_af2X)
(w2_st73 :: S Global Local)
(w3_st74 :: () -> IO ())
(w4_st75 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w2_st73 of _ [Occ=Dead] { S ww1_st78 ww2_st79 ww3_st7o ->
case ww2_st79
of _ [Occ=Dead]
{ Global ww5_st7c ww6_st7d ww7_st7e ww8_st7f ww9_st7g ww10_st7h
ww11_st7i ww12_st7j ww13_st7k ww14_st7l ww15_st7m ->
case ww3_st7o
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef ww17_st7r ->
Development.Shake.Core.$wa4
@ key_af2X w_st71 w1_st72 ww5_st7c ww17_st7r w3_st74 w4_st75
}
}
}
Development.Shake.Core.$wa3 [InlPrag=[0]]
:: forall key_af2y.
ShakeValue key_af2y =>
key_af2y
-> IORef [(Key, Key)]
-> GHC.Prim.MutVar# GHC.Prim.RealWorld Local
-> (() -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=6,
Caf=NoCafRefs,
Str=DmdType <L,U(1*U,U,1*U,1*U,1*U,1*U)><L,U><L,1*U(U)><L,U><L,1*C1(C1(U(U,U)))><L,U>]
Development.Shake.Core.$wa3 =
\ (@ key_af2y)
(w_st7z :: ShakeValue key_af2y)
(w1_st7A :: key_af2y)
(ww_st7U :: IORef [(Key, Key)])
(ww1_st7Z :: GHC.Prim.MutVar# GHC.Prim.RealWorld Local)
(w2_st7C :: () -> IO ())
(w3_st7D [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local ww1_st7Z w3_st7D
of _ [Occ=Dead] { (# ipv_imIb, ipv1_imIc #) ->
case ipv1_imIc
of _ [Occ=Dead]
{ Local ds_dj9Z ds1_dja0 ds2_dja1 ds4_dja2 dt_djuw ds5_dja4
ds6_dja5 ds7_dja6 ->
case ds_dj9Z
of _ [Occ=Dead]
{ Development.Shake.Database.Stack key1_ik5s ds8_ik5t ds9_ik5u ->
let {
$wa19_st7y [InlPrag=[0]]
:: GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId, Arity=1, Str=DmdType <L,U>]
$wa19_st7y =
\ (w4_st7x [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
let {
a59_smJV :: Eq key_af2y
[LclId, Str=DmdType]
a59_smJV =
case w_st7z
of _ [Occ=Dead]
{ (tpl_X5Y, tpl1_X60, tpl2_Xck, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl2_Xck
} } in
let {
a60_smJW :: Show key_af2y
[LclId, Str=DmdType]
a60_smJW =
case w_st7z
of _ [Occ=Dead]
{ (tpl_X62, tpl1_X64, tpl2_Xcm, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl_X62
} } in
let {
a61_smJX :: Typeable key_af2y
[LclId, Str=DmdType]
a61_smJX =
case w_st7z
of _ [Occ=Dead]
{ (tpl_X60, tpl1_X62, tpl2_Xco, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl1_X62
} } in
let {
a62_smJY :: Hashable key_af2y
[LclId, Str=DmdType]
a62_smJY =
case w_st7z
of _ [Occ=Dead]
{ (tpl_X5W, tpl1_X5Y, tpl2_Xcq, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl3_B4
} } in
let {
a63_smJZ :: Binary key_af2y
[LclId, Str=DmdType]
a63_smJZ =
case w_st7z
of _ [Occ=Dead]
{ (tpl_X5U, tpl1_X5W, tpl2_Xcs, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl4_B5
} } in
let {
a64_smK0 :: NFData key_af2y
[LclId, Str=DmdType]
a64_smK0 =
case w_st7z
of _ [Occ=Dead]
{ (tpl_X5S, tpl1_X5U, tpl2_Xcu, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl5_B6
} } in
let {
a65_smJU :: Value
[LclId, Str=DmdType]
a65_smJU =
Development.Shake.Value.Value
@ key_af2y
a59_smJV
a60_smJW
a61_smJX
a62_smJY
a63_smJZ
a64_smK0
w1_st7A } in
letrec {
go5_imIR [Occ=LoopBreaker] :: [Key -> Bool] -> Any
[LclId, Arity=1, Str=DmdType <S,1*U>]
go5_imIR =
\ (ds10_imIS :: [Key -> Bool]) ->
case ds10_imIS of _ [Occ=Dead] {
[] ->
GHC.Types.False
`cast` (Sym Data.Monoid.NTCo:Any[0] :: Bool ~R# Any);
: y_imIX ys_imIY ->
case y_imIX
(a65_smJU
`cast` (Sym Development.Shake.Value.NTCo:Key[0] :: Value ~R# Key))
of _ [Occ=Dead] {
False -> go5_imIR ys_imIY;
True ->
GHC.Types.True `cast` (Sym Data.Monoid.NTCo:Any[0] :: Bool ~R# Any)
}
}; } in
case (go5_imIR ds6_dja5)
`cast` (Data.Monoid.NTCo:Any[0] :: Any ~R# Bool)
of _ [Occ=Dead] {
False ->
case ww_st7U
`cast` (GHC.IORef.NTCo:IORef[0] <[(Key, Key)]>_N
:: IORef [(Key, Key)]
~R# GHC.STRef.STRef GHC.Prim.RealWorld [(Key, Key)])
of _ [Occ=Dead] { GHC.STRef.STRef r#_imv3 ->
let {
a66_smK6 :: Key
[LclId, Str=DmdType]
a66_smK6 =
case key1_ik5s of _ [Occ=Dead] {
Nothing ->
a65_smJU
`cast` (Sym Development.Shake.Value.NTCo:Key[0] :: Value ~R# Key);
Just v_ik3e -> v_ik3e
} } in
let {
lvl116_sliq :: (Key, Key)
[LclId, Str=DmdType m]
lvl116_sliq =
(a66_smK6,
a65_smJU
`cast` (Sym Development.Shake.Value.NTCo:Key[0]
:: Value ~R# Key)) } in
GHC.Prim.atomicModifyMutVar#
@ GHC.Prim.RealWorld
@ [(Key, Key)]
@ ([(Key, Key)], ())
@ ()
r#_imv3
(\ (ks_aeBf :: [(Key, Key)]) ->
(GHC.Types.: @ (Key, Key) lvl116_sliq ks_aeBf, GHC.Tuple.()))
w4_st7x
};
True -> (# w4_st7x, GHC.Tuple.() #)
} } in
case key1_ik5s of _ [Occ=Dead] {
Nothing ->
case $wa19_st7y ipv_imIb
of _ [Occ=Dead] { (# ipv2_ilkP, ipv3_ilkQ #) ->
((w2_st7C ipv3_ilkQ)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_ilkP
};
Just a59_iksH ->
case a59_iksH
`cast` (Development.Shake.Value.NTCo:Key[0] :: Key ~R# Value)
of _ [Occ=Dead]
{ Development.Shake.Value.Value @ a60_ilr2 $dEq_ilr3 $dShow_ilr4
$dTypeable_ilr5 $dHashable_ilr6 $dBinary_ilr7 $dNFData_ilr8
a61_ilr9 ->
case w_st7z
of _ [Occ=Dead]
{ (tpl_X60, tpl1_X62, tpl2_Xdo, tpl3_B4, tpl4_B5, tpl5_B6) ->
case (tpl1_X62
`cast` (Data.Typeable.Internal.NTCo:Typeable[0] <*>_N <key_af2y>_N
:: Typeable key_af2y ~R# (GHC.Prim.Proxy# key_af2y -> TypeRep)))
(GHC.Prim.proxy# @ * @ key_af2y)
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt1_ilro dt2_ilrp ds10_ilrq
ds11_ilrr ds12_ilrs ->
case ($dTypeable_ilr5
`cast` (Data.Typeable.Internal.NTCo:Typeable[0] <*>_N <a60_ilr2>_N
:: Typeable a60_ilr2 ~R# (GHC.Prim.Proxy# a60_ilr2 -> TypeRep)))
(GHC.Prim.proxy# @ * @ a60_ilr2)
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt3_ilrw dt4_ilrx ds13_ilry
ds14_ilrz ds15_ilrA ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt1_ilro dt3_ilrw)
of _ [Occ=Dead] {
False ->
case $wa19_st7y ipv_imIb
of _ [Occ=Dead] { (# ipv2_ilkP, ipv3_ilkQ #) ->
((w2_st7C ipv3_ilkQ)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_ilkP
};
True ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt2_ilrp dt4_ilrx)
of _ [Occ=Dead] {
False ->
case $wa19_st7y ipv_imIb
of _ [Occ=Dead] { (# ipv2_ilkP, ipv3_ilkQ #) ->
((w2_st7C ipv3_ilkQ)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_ilkP
};
True ->
case ==
@ a60_ilr2
$dEq_ilr3
a61_ilr9
(w1_st7A
`cast` (UnivCo mkUnsafeCo representational key_af2y a60_ilr2
:: key_af2y ~R# a60_ilr2))
of _ [Occ=Dead] {
False ->
case $wa19_st7y ipv_imIb
of _ [Occ=Dead] { (# ipv2_ilkP, ipv3_ilkQ #) ->
((w2_st7C ipv3_ilkQ)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_ilkP
};
True ->
((w2_st7C GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_imIb
}
}
}
}
}
}
}
}
}
}
}
Development.Shake.Core.trackChange1 [InlPrag=INLINE[0]]
:: forall key_af2y.
ShakeValue key_af2y =>
key_af2y
-> S Global Local
-> (() -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=5,
Caf=NoCafRefs,
Str=DmdType <L,U(1*U,U,1*U,1*U,1*U,1*U)><L,U><S(LSS),1*U(A,1*U(A,A,A,A,A,A,A,A,A,A,1*U(U)),1*U(U))><L,1*C1(C1(U(U,U)))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=5,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ key_af2y)
(w_st7z [Occ=Once] :: ShakeValue key_af2y)
(w1_st7A [Occ=Once] :: key_af2y)
(w2_st7B [Occ=Once!] :: S Global Local)
(w3_st7C [Occ=Once] :: () -> IO ())
(w4_st7D [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w2_st7B
of _ [Occ=Dead]
{ S _ [Occ=Dead] ww2_st7H [Occ=Once!] ww3_st7W [Occ=Once] ->
case ww2_st7H
of _ [Occ=Dead]
{ Global _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] ww15_st7U [Occ=Once] ->
case ww3_st7W
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef ww17_st7Z [Occ=Once] ->
Development.Shake.Core.$wa3
@ key_af2y w_st7z w1_st7A ww15_st7U ww17_st7Z w3_st7C w4_st7D
}
}
}}]
Development.Shake.Core.trackChange1 =
\ (@ key_af2y)
(w_st7z :: ShakeValue key_af2y)
(w1_st7A :: key_af2y)
(w2_st7B :: S Global Local)
(w3_st7C :: () -> IO ())
(w4_st7D [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w2_st7B of _ [Occ=Dead] { S ww1_st7G ww2_st7H ww3_st7W ->
case ww2_st7H
of _ [Occ=Dead]
{ Global ww5_st7K ww6_st7L ww7_st7M ww8_st7N ww9_st7O ww10_st7P
ww11_st7Q ww12_st7R ww13_st7S ww14_st7T ww15_st7U ->
case ww3_st7W
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef ww17_st7Z ->
Development.Shake.Core.$wa3
@ key_af2y w_st7z w1_st7A ww15_st7U ww17_st7Z w3_st7C w4_st7D
}
}
}
Development.Shake.Core.$wa1 [InlPrag=[0]]
:: forall a_af6Q b_af6R.
Bool
-> Action a_af6Q
-> IO b_af6R
-> IORef (SomeException -> IO ())
-> Database
-> Pool
-> GHC.Prim.MutVar# GHC.Prim.RealWorld General.Cleanup.S
-> IO Seconds
-> Map.HashMap TypeRep (RuleInfo Action)
-> (Verbosity -> String -> IO ())
-> ShakeOptions
-> (String -> IO ())
-> (String -> IO ())
-> IORef [IO ()]
-> IORef [(Key, Key)]
-> IORef Local
-> (a_af6Q -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=18,
Str=DmdType <L,U><L,1*C1(U)><L,C(U(U,A))><L,U(U)><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,C(C1(U))><L,U>,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=IF_ARGS [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 60 0] 264 0}]
Development.Shake.Core.$wa1 =
\ (@ a59_af6Q)
(@ b_af6R)
(w_st83 :: Bool)
(w1_st84 :: Action a59_af6Q)
(w2_st85 :: IO b_af6R)
(ww_st8b :: IORef (SomeException -> IO ()))
(ww1_st8f :: Database)
(ww2_st8g :: Pool)
(ww3_st8k :: GHC.Prim.MutVar# GHC.Prim.RealWorld General.Cleanup.S)
(ww4_st8m :: IO Seconds)
(ww5_st8n :: Map.HashMap TypeRep (RuleInfo Action))
(ww6_st8o :: Verbosity -> String -> IO ())
(ww7_st8p :: ShakeOptions)
(ww8_st8q :: String -> IO ())
(ww9_st8r :: String -> IO ())
(ww10_st8s :: IORef [IO ()])
(ww11_st8t :: IORef [(Key, Key)])
(ww12_st8v :: IORef Local)
(w3_st87 :: a59_af6Q -> IO ())
(w4_st88 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case General.Cleanup.$wa
ww3_st8k
((\ (s_ilqJ [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (w2_st85
`cast` (GHC.Types.NTCo:IO[0] <b_af6R>_R
:: IO b_af6R
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, b_af6R #))))
s_ilqJ
of _ [Occ=Dead] { (# ipv_ilqM, ipv1_ilqN #) ->
(# ipv_ilqM, GHC.Tuple.() #)
})
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# IO ()))
w4_st88
of _ [Occ=Dead] { (# ipv_ilkP, ipv1_ilkQ #) ->
let {
eta_XmAW [Dmd=<L,C(U(U,A))>] :: IO ()
[LclId, Str=DmdType]
eta_XmAW = ipv1_ilkQ w_st83 } in
let {
eta1_Xmma [Dmd=<L,C(U(U,A))>] :: IO ()
[LclId, Str=DmdType]
eta1_Xmma = ipv1_ilkQ GHC.Types.True } in
((((Development.Shake.Monad.catchRAW1
@ Global
@ Local
@ a59_af6Q
(w1_st84
`cast` (Development.Shake.Core.NTCo:Action[0] <a59_af6Q>_N
:: Action a59_af6Q ~R# RAW Global Local a59_af6Q))
((\ (e_aewu :: SomeException)
_ [Occ=Dead, OS=OneShot]
_ [Occ=Dead, OS=OneShot]
(eta4_Xml [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (eta1_Xmma
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
eta4_Xml
of _ [Occ=Dead] { (# ipv2_Xlw9, ipv3_Xlwb #) ->
case GHC.Prim.raiseIO# @ SomeException @ a59_af6Q e_aewu ipv2_Xlw9
of wild_00 {
}
})
`cast` (<SomeException>_R
-> (<S Global Local>_R
-> (<a59_af6Q -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af6Q>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af6Q>_N)
; Sym
(Development.Shake.Monad.NTCo:RAW[0]
<Global>_R <Local>_R) <a59_af6Q>_N
:: (SomeException
-> S Global Local
-> (a59_af6Q -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (SomeException -> RAW Global Local a59_af6Q)))
(Development.Shake.Monad.S
@ Global
@ Local
ww_st8b
(Development.Shake.Core.Global
ww1_st8f
ww2_st8g
((GHC.STRef.STRef
@ GHC.Prim.RealWorld @ General.Cleanup.S ww3_st8k)
`cast` (Sym GHC.IORef.NTCo:IORef[0] <General.Cleanup.S>_N
; Sym General.Cleanup.NTCo:Cleanup[0]
:: GHC.STRef.STRef GHC.Prim.RealWorld General.Cleanup.S
~R# Cleanup))
ww4_st8m
ww5_st8n
ww6_st8o
ww7_st8p
ww8_st8q
ww9_st8r
ww10_st8s
ww11_st8t)
ww12_st8v))
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af6Q>_R
:: ContT () IO a59_af6Q ~R# ((a59_af6Q -> IO ()) -> IO ())))
((\ (x_ilFI :: a59_af6Q)
(eta2_Xbd [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (eta_XmAW
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
eta2_Xbd
of _ [Occ=Dead] { (# ipv2_Xlwf, ipv3_Xlwh #) ->
((w3_st87 x_ilFI)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_Xlwf
})
`cast` (<a59_af6Q>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (a59_af6Q
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (a59_af6Q -> IO ()))))
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilkP
}
Development.Shake.Core.actionFinally1
:: forall a_af6o b_af6p.
Action a_af6o
-> IO b_af6p
-> S Global Local
-> (a_af6o -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=5,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=IF_ARGS [0 0 20 0 0] 210 0}]
Development.Shake.Core.actionFinally1 =
\ (@ a59_af6o)
(@ b_af6p)
(w_st84 :: Action a59_af6o)
(w1_st85 :: IO b_af6p)
(w2_st86 :: S Global Local)
(w3_st87 :: a59_af6o -> IO ())
(w4_st88 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w2_st86 of _ [Occ=Dead] { S ww1_st8b ww2_st8c ww3_st8v ->
case ww2_st8c
of _ [Occ=Dead]
{ Global ww5_st8f ww6_st8g ww7_st8h ww8_st8m ww9_st8n ww10_st8o
ww11_st8p ww12_st8q ww13_st8r ww14_st8s ww15_st8t ->
case ww7_st8h
`cast` (General.Cleanup.NTCo:Cleanup[0]
; GHC.IORef.NTCo:IORef[0] <General.Cleanup.S>_N
:: Cleanup
~R# GHC.STRef.STRef GHC.Prim.RealWorld General.Cleanup.S)
of _ [Occ=Dead] { GHC.STRef.STRef ww17_st8k ->
Development.Shake.Core.$wa1
@ a59_af6o
@ b_af6p
GHC.Types.True
w_st84
w1_st85
ww1_st8b
ww5_st8f
ww6_st8g
ww17_st8k
ww8_st8m
ww9_st8n
ww10_st8o
ww11_st8p
ww12_st8q
ww13_st8r
ww14_st8s
ww15_st8t
ww3_st8v
w3_st87
w4_st88
}
}
}
Development.Shake.Core.actionOnException1
:: forall a_af6C b_af6D.
Action a_af6C
-> IO b_af6D
-> S Global Local
-> (a_af6C -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=5,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=IF_ARGS [0 0 20 0 0] 210 0}]
Development.Shake.Core.actionOnException1 =
\ (@ a59_af6C)
(@ b_af6D)
(w_st84 :: Action a59_af6C)
(w1_st85 :: IO b_af6D)
(w2_st86 :: S Global Local)
(w3_st87 :: a59_af6C -> IO ())
(w4_st88 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w2_st86 of _ [Occ=Dead] { S ww1_st8b ww2_st8c ww3_st8v ->
case ww2_st8c
of _ [Occ=Dead]
{ Global ww5_st8f ww6_st8g ww7_st8h ww8_st8m ww9_st8n ww10_st8o
ww11_st8p ww12_st8q ww13_st8r ww14_st8s ww15_st8t ->
case ww7_st8h
`cast` (General.Cleanup.NTCo:Cleanup[0]
; GHC.IORef.NTCo:IORef[0] <General.Cleanup.S>_N
:: Cleanup
~R# GHC.STRef.STRef GHC.Prim.RealWorld General.Cleanup.S)
of _ [Occ=Dead] { GHC.STRef.STRef ww17_st8k ->
Development.Shake.Core.$wa1
@ a59_af6C
@ b_af6D
GHC.Types.False
w_st84
w1_st85
ww1_st8b
ww5_st8f
ww6_st8g
ww17_st8k
ww8_st8m
ww9_st8n
ww10_st8o
ww11_st8p
ww12_st8q
ww13_st8r
ww14_st8s
ww15_st8t
ww3_st8v
w3_st87
w4_st88
}
}
}
Development.Shake.Core.$fFunctorRules2
:: forall a_aiDJ b_aiDK.
(a_aiDJ -> b_aiDK)
-> WriterT (SRules Action) IO a_aiDJ
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_aiDK, SRules Action) #)
[GblId,
Arity=3,
Caf=NoCafRefs,
Str=DmdType <L,1*C1(U)><C(S),1*C1(U(U,1*U(U,U)))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a59_aiDJ)
(@ b_aiDK)
(f_Xkmh [Occ=Once!] :: a59_aiDJ -> b_aiDK)
(eta_XaK [Occ=Once] :: WriterT (SRules Action) IO a59_aiDJ)
(eta1_B1 [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (eta_XaK
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_aiDJ>_N
; GHC.Types.NTCo:IO[0] <(a59_aiDJ, SRules Action)>_R
:: WriterT (SRules Action) IO a59_aiDJ
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_aiDJ, SRules Action) #))))
eta1_B1
of _ [Occ=Dead]
{ (# ipv_ilko [Occ=Once], ipv1_ilkp [Occ=Once!] #) ->
(# ipv_ilko,
case ipv1_ilkp
of _ [Occ=Dead] { (a60_akbF [Occ=Once], w1_akbG [Occ=Once]) ->
(f_Xkmh a60_akbF, w1_akbG)
} #)
}}]
Development.Shake.Core.$fFunctorRules2 =
\ (@ a59_aiDJ)
(@ b_aiDK)
(f_Xkmh :: a59_aiDJ -> b_aiDK)
(eta_XaK :: WriterT (SRules Action) IO a59_aiDJ)
(eta1_B1 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (eta_XaK
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_aiDJ>_N
; GHC.Types.NTCo:IO[0] <(a59_aiDJ, SRules Action)>_R
:: WriterT (SRules Action) IO a59_aiDJ
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_aiDJ, SRules Action) #))))
eta1_B1
of _ [Occ=Dead] { (# ipv_ilko, ipv1_ilkp #) ->
(# ipv_ilko,
case ipv1_ilkp of _ [Occ=Dead] { (a60_akbF, w1_akbG) ->
(f_Xkmh a60_akbF, w1_akbG)
} #)
}
Development.Shake.Core.$fFunctorRules1
:: forall a_aiEj b_aiEk.
a_aiEj
-> WriterT (SRules Action) IO b_aiEk
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a_aiEj, SRules Action) #)
[GblId,
Arity=3,
Caf=NoCafRefs,
Str=DmdType <L,U><C(S),1*C1(U(U,1*U(A,U)))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a59_aiEj)
(@ b_aiEk)
(eta_Xkmr [Occ=Once] :: a59_aiEj)
(eta1_XaE [Occ=Once] :: WriterT (SRules Action) IO b_aiEk)
(eta2_B1 [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (eta1_XaE
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <b_aiEk>_N
; GHC.Types.NTCo:IO[0] <(b_aiEk, SRules Action)>_R
:: WriterT (SRules Action) IO b_aiEk
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_aiEk, SRules Action) #))))
eta2_B1
of _ [Occ=Dead]
{ (# ipv_ilko [Occ=Once], ipv1_ilkp [Occ=Once!] #) ->
(# ipv_ilko,
case ipv1_ilkp
of _ [Occ=Dead] { (_ [Occ=Dead], w1_akbW [Occ=Once]) ->
(eta_Xkmr, w1_akbW)
} #)
}}]
Development.Shake.Core.$fFunctorRules1 =
\ (@ a59_aiEj)
(@ b_aiEk)
(eta_Xkmr :: a59_aiEj)
(eta1_XaE :: WriterT (SRules Action) IO b_aiEk)
(eta2_B1 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (eta1_XaE
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <b_aiEk>_N
; GHC.Types.NTCo:IO[0] <(b_aiEk, SRules Action)>_R
:: WriterT (SRules Action) IO b_aiEk
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_aiEk, SRules Action) #))))
eta2_B1
of _ [Occ=Dead] { (# ipv_ilko, ipv1_ilkp #) ->
(# ipv_ilko,
case ipv1_ilkp of _ [Occ=Dead] { (a60_akbV, w1_akbW) ->
(eta_Xkmr, w1_akbW)
} #)
}
Development.Shake.Core.runAfter1
:: IO ()
-> S Global Local
-> (() -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=4,
Caf=NoCafRefs,
Str=DmdType <L,U><S(LS(LLLLLLLLLSL)L),1*U(A,1*U(A,A,A,A,A,A,A,A,A,1*U(U),A),A)><L,1*C1(C1(U(U,U)))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=4,unsat_ok=True,boring_ok=False)
Tmpl= \ (op_aexW [Occ=OnceL] :: IO ())
(eta_XpI [Occ=Once!] :: S Global Local)
(eta1_Xav [Occ=Once!] :: () -> IO ())
(eta2_B1 [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case eta_XpI
of _ [Occ=Dead]
{ S _ [Occ=Dead] ds1_ilUK [Occ=Once!] _ [Occ=Dead] ->
case ds1_ilUK
of _ [Occ=Dead]
{ Global _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
ds12_djcy [Occ=Once] _ [Occ=Dead] ->
case ds12_djcy
`cast` (GHC.IORef.NTCo:IORef[0] <[IO ()]>_N
:: IORef [IO ()] ~R# GHC.STRef.STRef GHC.Prim.RealWorld [IO ()])
of _ [Occ=Dead] { GHC.STRef.STRef r#_imv3 [Occ=Once] ->
case GHC.Prim.atomicModifyMutVar#
@ GHC.Prim.RealWorld
@ [IO ()]
@ ([IO ()], ())
@ ()
r#_imv3
(\ (ops_aey8 [Occ=Once] :: [IO ()]) ->
(GHC.Types.: @ (IO ()) op_aexW ops_aey8, GHC.Tuple.()))
eta2_B1
of _ [Occ=Dead]
{ (# ipv_ilkP [Occ=Once], ipv1_ilkQ [Occ=Once] #) ->
((eta1_Xav ipv1_ilkQ)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilkP
}
}
}
}}]
Development.Shake.Core.runAfter1 =
\ (op_aexW :: IO ())
(eta_XpI :: S Global Local)
(eta1_Xav :: () -> IO ())
(eta2_B1 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case eta_XpI of _ [Occ=Dead] { S ds_ilUJ ds1_ilUK ds2_ilUL ->
case ds1_ilUK
of _ [Occ=Dead]
{ Global ds3_djcp ds4_djcq ds5_djcr ds6_djcs ds7_djct ds8_djcu
ds9_djcv ds10_djcw ds11_djcx ds12_djcy ds13_djcz ->
case ds12_djcy
`cast` (GHC.IORef.NTCo:IORef[0] <[IO ()]>_N
:: IORef [IO ()] ~R# GHC.STRef.STRef GHC.Prim.RealWorld [IO ()])
of _ [Occ=Dead] { GHC.STRef.STRef r#_imv3 ->
case GHC.Prim.atomicModifyMutVar#
@ GHC.Prim.RealWorld
@ [IO ()]
@ ([IO ()], ())
@ ()
r#_imv3
(\ (ops_aey8 :: [IO ()]) ->
(GHC.Types.: @ (IO ()) op_aexW ops_aey8, GHC.Tuple.()))
eta2_B1
of _ [Occ=Dead] { (# ipv_ilkP, ipv1_ilkQ #) ->
((eta1_Xav ipv1_ilkQ)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilkP
}
}
}
}
$wa8_rxt4
:: Verbosity
-> String
-> (Verbosity -> String -> IO ())
-> GHC.Prim.MutVar# GHC.Prim.RealWorld Local
-> (() -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=6,
Caf=NoCafRefs,
Str=DmdType <L,1*U><L,U><L,1*C1(C1(C1(U(U,U))))><L,U><L,1*C1(C1(U(U,U)))><L,U>]
$wa8_rxt4 =
\ (w_st8y :: Verbosity)
(w1_st8z :: String)
(ww_st8O :: Verbosity -> String -> IO ())
(ww1_st8Y :: GHC.Prim.MutVar# GHC.Prim.RealWorld Local)
(w2_st8B :: () -> IO ())
(w3_st8C [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local ww1_st8Y w3_st8C
of _ [Occ=Dead] { (# ipv_ilTl, ipv1_ilTm #) ->
case ipv1_ilTm
of _ [Occ=Dead]
{ Local ds_djm2 ds1_djm3 ds2_djm4 ds4_djm5 dt_djuT ds5_djm7
ds6_djm8 ds7_djm9 ->
case ds1_djm3 of _ [Occ=Dead] {
Silent ->
case w_st8y of _ [Occ=Dead] {
Silent ->
case ((ww_st8O Development.Shake.Types.Silent w1_st8z)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl
of _ [Occ=Dead] { (# ipv2_ilkP, ipv3_ilkQ #) ->
((w2_st8B ipv3_ilkQ)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_ilkP
};
Quiet ->
((w2_st8B GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl;
Normal ->
((w2_st8B GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl;
Loud ->
((w2_st8B GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl;
Chatty ->
((w2_st8B GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl;
Diagnostic ->
((w2_st8B GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl
};
Quiet ->
case w_st8y of wild2_ikhr {
__DEFAULT ->
case ((ww_st8O wild2_ikhr w1_st8z)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl
of _ [Occ=Dead] { (# ipv2_ilkP, ipv3_ilkQ #) ->
((w2_st8B ipv3_ilkQ)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_ilkP
};
Normal ->
((w2_st8B GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl;
Loud ->
((w2_st8B GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl;
Chatty ->
((w2_st8B GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl;
Diagnostic ->
((w2_st8B GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl
};
Normal ->
case w_st8y of wild2_ikhy {
__DEFAULT ->
case ((ww_st8O wild2_ikhy w1_st8z)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl
of _ [Occ=Dead] { (# ipv2_ilkP, ipv3_ilkQ #) ->
((w2_st8B ipv3_ilkQ)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_ilkP
};
Loud ->
((w2_st8B GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl;
Chatty ->
((w2_st8B GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl;
Diagnostic ->
((w2_st8B GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl
};
Loud ->
case w_st8y of wild2_ikhE {
__DEFAULT ->
case ((ww_st8O wild2_ikhE w1_st8z)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl
of _ [Occ=Dead] { (# ipv2_ilkP, ipv3_ilkQ #) ->
((w2_st8B ipv3_ilkQ)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_ilkP
};
Chatty ->
((w2_st8B GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl;
Diagnostic ->
((w2_st8B GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl
};
Chatty ->
case w_st8y of wild2_ikhJ {
__DEFAULT ->
case ((ww_st8O wild2_ikhJ w1_st8z)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl
of _ [Occ=Dead] { (# ipv2_ilkP, ipv3_ilkQ #) ->
((w2_st8B ipv3_ilkQ)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_ilkP
};
Diagnostic ->
((w2_st8B GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl
};
Diagnostic ->
case w_st8y of wild2_ikhN { __DEFAULT ->
case ((ww_st8O wild2_ikhN w1_st8z)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl
of _ [Occ=Dead] { (# ipv2_ilkP, ipv3_ilkQ #) ->
((w2_st8B ipv3_ilkQ)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_ilkP
}
}
}
}
}
a31_rxt5
:: Verbosity
-> String
-> S Global Local
-> (() -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=5,
Caf=NoCafRefs,
Str=DmdType <L,1*U><L,U><S(LSS),1*U(A,1*U(A,A,A,A,A,1*C1(C1(C1(U(U,U)))),A,A,A,A,A),1*U(U))><L,1*C1(C1(U(U,U)))><L,U>]
a31_rxt5 =
\ (w_st8y :: Verbosity)
(w1_st8z :: String)
(w2_st8A :: S Global Local)
(w3_st8B :: () -> IO ())
(w4_st8C [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w2_st8A of _ [Occ=Dead] { S ww1_st8F ww2_st8G ww3_st8V ->
case ww2_st8G
of _ [Occ=Dead]
{ Global ww5_st8J ww6_st8K ww7_st8L ww8_st8M ww9_st8N ww10_st8O
ww11_st8P ww12_st8Q ww13_st8R ww14_st8S ww15_st8T ->
case ww3_st8V
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef ww17_st8Y ->
$wa8_rxt4 w_st8y w1_st8z ww10_st8O ww17_st8Y w3_st8B w4_st8C
}
}
}
a32_rxt7
:: forall w_XeZj a_akby b_akbz.
(a_akby -> b_akbz)
-> WriterT w_XeZj IO a_akby
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, (b_akbz, w_XeZj) #)
[GblId,
Arity=3,
Caf=NoCafRefs,
Str=DmdType <L,1*C1(U)><C(S),1*C1(U(U,1*U(U,U)))><L,U>]
a32_rxt7 =
\ (@ w_XeZj)
(@ a59_akby)
(@ b_akbz)
(f_akbA :: a59_akby -> b_akbz)
(eta_X8d :: WriterT w_XeZj IO a59_akby)
(eta1_B1 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (eta_X8d
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<w_XeZj>_N <IO>_R <a59_akby>_N
; GHC.Types.NTCo:IO[0] <(a59_akby, w_XeZj)>_R
:: WriterT w_XeZj IO a59_akby
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, (a59_akby, w_XeZj) #))))
eta1_B1
of _ [Occ=Dead] { (# ipv_ilko, ipv1_ilkp #) ->
(# ipv_ilko,
case ipv1_ilkp of _ [Occ=Dead] { (a60_akbF, w1_akbG) ->
(f_akbA a60_akbF, w1_akbG)
} #)
}
a33_rxt8
:: forall w_XeRc a_akbO b_akbP.
a_akbO
-> WriterT w_XeRc IO b_akbP
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, (a_akbO, w_XeRc) #)
[GblId,
Arity=3,
Caf=NoCafRefs,
Str=DmdType <L,U><C(S),1*C1(U(U,1*U(A,U)))><L,U>]
a33_rxt8 =
\ (@ w_XeRc)
(@ a59_akbO)
(@ b_akbP)
(eta_akbQ :: a59_akbO)
(eta1_B2 :: WriterT w_XeRc IO b_akbP)
(eta2_B1 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (eta1_B2
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<w_XeRc>_N <IO>_R <b_akbP>_N
; GHC.Types.NTCo:IO[0] <(b_akbP, w_XeRc)>_R
:: WriterT w_XeRc IO b_akbP
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, (b_akbP, w_XeRc) #))))
eta2_B1
of _ [Occ=Dead] { (# ipv_ilko, ipv1_ilkp #) ->
(# ipv_ilko,
case ipv1_ilkp of _ [Occ=Dead] { (a60_akbV, w1_akbW) ->
(eta_akbQ, w1_akbW)
} #)
}
a34_rxt9
:: GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId, Arity=1, Caf=NoCafRefs, Str=DmdType <L,U>]
a34_rxt9 =
\ (s_ilkf [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
(# s_ilkf, GHC.Tuple.() #)
a35_rxta
:: [Char]
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId, Arity=2, Caf=NoCafRefs, Str=DmdType <L,A>]
a35_rxta = \ _ [Occ=Dead] -> a34_rxt9
Development.Shake.Core.action1
:: forall a_af7I.
Action a_af7I
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, ((), SRules Action) #)
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <L,C(U)><L,U>,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [0 0] 102 30}]
Development.Shake.Core.action1 =
\ (@ a59_af7I)
(a60_aevt :: Action a59_af7I)
(s_ilkf [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
(# s_ilkf,
(GHC.Tuple.(),
Development.Shake.Core.SRules
@ Action
(GHC.Types.:
@ (Action ())
((\ (eta2_ilP1 :: S Global Local) ->
let {
m1_ilP2 [Dmd=<L,C(U)>] :: ContT () IO a59_af7I
[LclId, Str=DmdType]
m1_ilP2 =
(a60_aevt
`cast` (Development.Shake.Core.NTCo:Action[0]
; Development.Shake.Monad.NTCo:RAW[0]
<Global>_R <Local>_R <a59_af7I>_N
; Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af7I>_N
:: Action a59_af7I ~R# (S Global Local -> ContT () IO a59_af7I)))
eta2_ilP1 } in
(\ (c_ilP3 :: () -> IO ()) ->
let {
lvl116_svuS :: IO ()
[LclId, Str=DmdType]
lvl116_svuS = c_ilP3 GHC.Tuple.() } in
(m1_ilP2
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af7I>_R
:: ContT () IO a59_af7I ~R# ((a59_af7I -> IO ()) -> IO ())))
(\ _ [Occ=Dead] -> lvl116_svuS))
`cast` (Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0] <()>_N <IO>_R <()>_R)
:: ((() -> IO ()) -> IO ()) ~R# ContT () IO ()))
`cast` (Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <()>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <()>_N
:: (S Global Local -> ContT () IO ()) ~R# Action ()))
(GHC.Types.[] @ (Action ())))
(unordered-containers-0.2.5.1:Data.HashMap.Base.Empty
@ TypeRep @ (TypeRep, TypeRep, [(Double, ARule Action)]))) #)
Development.Shake.Core.$fMonadIOAction1
:: forall a_aiB6.
IO a_aiB6
-> S Global Local
-> (a_aiB6 -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=4,
Caf=NoCafRefs,
Str=DmdType <C(S),1*C1(U(U,U))><L,A><L,1*C1(C1(U(U,U)))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=4,unsat_ok=True,boring_ok=True)
Tmpl= \ (@ a59_aiB6)
(eta_XmAW [Occ=Once] :: IO a59_aiB6)
_ [Occ=Dead]
(eta2_XmB2 [Occ=Once] :: a59_aiB6 -> IO ())
(eta3_XmB5 [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
GHC.Base.bindIO1 @ a59_aiB6 @ () eta_XmAW eta2_XmB2 eta3_XmB5}]
Development.Shake.Core.$fMonadIOAction1 =
\ (@ a59_aiB6)
(eta_XmAW :: IO a59_aiB6)
_ [Occ=Dead]
(eta2_XmB2 :: a59_aiB6 -> IO ())
(eta3_XmB5 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
GHC.Base.bindIO1 @ a59_aiB6 @ () eta_XmAW eta2_XmB2 eta3_XmB5
Development.Shake.Core.$wa7 [InlPrag=[0]]
:: forall a_af3f.
Verbosity
-> Action a_af3f
-> IORef (SomeException -> IO ())
-> Global
-> GHC.Prim.MutVar# GHC.Prim.RealWorld Local
-> (a_af3f -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=7,
Caf=NoCafRefs,
Str=DmdType <L,U><L,1*C1(C1(C1(U(U,U))))><L,U><L,U><L,U><L,C(C1(U))><L,U>,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=IF_ARGS [0 0 0 0 0 60 0] 102 0}]
Development.Shake.Core.$wa7 =
\ (@ a59_af3f)
(w_st9p :: Verbosity)
(w1_st9q :: Action a59_af3f)
(ww_st9w :: IORef (SomeException -> IO ()))
(ww1_st9x :: Global)
(ww2_st9B :: GHC.Prim.MutVar# GHC.Prim.RealWorld Local)
(w2_st9s :: a59_af3f -> IO ())
(w3_st9t [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local ww2_st9B w3_st9t
of _ [Occ=Dead] { (# ipv_ipn8, ipv1_ipn9 #) ->
case ipv1_ipn9
of _ [Occ=Dead]
{ Local ds_djb4 ds2_djb5 ds3_djb6 ds4_djb7 dt_djur ds5_djb9
ds6_djba ds7_djbb ->
case GHC.Prim.writeMutVar#
@ GHC.Prim.RealWorld
@ Local
ww2_st9B
(Development.Shake.Core.Local
ds_djb4
w_st9p
ds3_djb6
ds4_djb7
dt_djur
ds5_djb9
ds6_djba
ds7_djbb)
ipv_ipn8
of s2#_ipnh [OS=OneShot] { __DEFAULT ->
(((((w1_st9q
`cast` (Development.Shake.Core.NTCo:Action[0]
; Development.Shake.Monad.NTCo:RAW[0]
<Global>_R <Local>_R <a59_af3f>_N
; Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af3f>_N
:: Action a59_af3f ~R# (S Global Local -> ContT () IO a59_af3f)))
(Development.Shake.Monad.S
@ Global
@ Local
ww_st9w
ww1_st9x
((GHC.STRef.STRef @ GHC.Prim.RealWorld @ Local ww2_st9B)
`cast` (Sym GHC.IORef.NTCo:IORef[0] <Local>_N
:: GHC.STRef.STRef GHC.Prim.RealWorld Local ~R# IORef Local))))
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af3f>_R
:: ContT () IO a59_af3f ~R# ((a59_af3f -> IO ()) -> IO ())))
((\ (x_ipni :: a59_af3f)
(eta_ipnj [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local ww2_st9B eta_ipnj
of _ [Occ=Dead] { (# ipv2_ipnm, ipv3_ipnn #) ->
case ipv3_ipnn
of _ [Occ=Dead]
{ Local ds9_djaT ds10_djaU ds11_djaV ds12_djaW dt1_djus ds13_djaY
ds14_djaZ ds15_djb0 ->
case GHC.Prim.writeMutVar#
@ GHC.Prim.RealWorld
@ Local
ww2_st9B
(Development.Shake.Core.Local
ds9_djaT
ds2_djb5
ds11_djaV
ds12_djaW
dt1_djus
ds13_djaY
ds14_djaZ
ds15_djb0)
ipv2_ipnm
of s2#1_ipnq [OS=OneShot] { __DEFAULT ->
((w2_st9s x_ipni)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
s2#1_ipnq
}
}
})
`cast` (<a59_af3f>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (a59_af3f
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (a59_af3f -> IO ()))))
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
s2#_ipnh
}
}
}
Development.Shake.Core.withVerbosity1 [InlPrag=INLINE[0]]
:: forall a_af3f.
Verbosity
-> Action a_af3f
-> S Global Local
-> (a_af3f -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=5,
Caf=NoCafRefs,
Str=DmdType <L,U><L,1*C1(C1(C1(U(U,U))))><S(LLS),1*U(U,U,1*U(U))><L,C(C1(U))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=5,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a59_af3f)
(w_st9p [Occ=Once] :: Verbosity)
(w1_st9q [Occ=Once] :: Action a59_af3f)
(w2_st9r [Occ=Once!] :: S Global Local)
(w3_st9s [Occ=Once] :: a59_af3f -> IO ())
(w4_st9t [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w2_st9r
of _ [Occ=Dead]
{ S ww1_st9w [Occ=Once] ww2_st9x [Occ=Once] ww3_st9y [Occ=Once] ->
case ww3_st9y
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef ww5_st9B [Occ=Once] ->
Development.Shake.Core.$wa7
@ a59_af3f
w_st9p
w1_st9q
ww1_st9w
ww2_st9x
ww5_st9B
w3_st9s
w4_st9t
}
}}]
Development.Shake.Core.withVerbosity1 =
\ (@ a59_af3f)
(w_st9p :: Verbosity)
(w1_st9q :: Action a59_af3f)
(w2_st9r :: S Global Local)
(w3_st9s :: a59_af3f -> IO ())
(w4_st9t [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w2_st9r of _ [Occ=Dead] { S ww1_st9w ww2_st9x ww3_st9y ->
case ww3_st9y
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef ww5_st9B ->
Development.Shake.Core.$wa7
@ a59_af3f
w_st9p
w1_st9q
ww1_st9w
ww2_st9x
ww5_st9B
w3_st9s
w4_st9t
}
}
Development.Shake.Core.quietly1
:: forall a_af36.
Action a_af36
-> S Global Local
-> (a_af36 -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=4,
Caf=NoCafRefs,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=IF_ARGS [0 20 60 0] 122 0}]
Development.Shake.Core.quietly1 =
\ (@ a59_af36)
(w_st9q :: Action a59_af36)
(w1_st9r :: S Global Local)
(w2_st9s :: a59_af36 -> IO ())
(w3_st9t [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w1_st9r of _ [Occ=Dead] { S ww1_st9w ww2_st9x ww3_st9y ->
case ww3_st9y
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef ww5_st9B ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local ww5_st9B w3_st9t
of _ [Occ=Dead] { (# ipv_ipn8, ipv1_ipn9 #) ->
case ipv1_ipn9
of _ [Occ=Dead]
{ Local ds_djb4 ds2_djb5 ds3_djb6 ds4_djb7 dt_djur ds5_djb9
ds6_djba ds7_djbb ->
case GHC.Prim.writeMutVar#
@ GHC.Prim.RealWorld
@ Local
ww5_st9B
(Development.Shake.Core.Local
ds_djb4
Development.Shake.Types.Quiet
ds3_djb6
ds4_djb7
dt_djur
ds5_djb9
ds6_djba
ds7_djbb)
ipv_ipn8
of s2#_ipnh [OS=OneShot] { __DEFAULT ->
(((((w_st9q
`cast` (Development.Shake.Core.NTCo:Action[0]
; Development.Shake.Monad.NTCo:RAW[0]
<Global>_R <Local>_R <a59_af36>_N
; Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af36>_N
:: Action a59_af36 ~R# (S Global Local -> ContT () IO a59_af36)))
(Development.Shake.Monad.S
@ Global
@ Local
ww1_st9w
ww2_st9x
((GHC.STRef.STRef @ GHC.Prim.RealWorld @ Local ww5_st9B)
`cast` (Sym GHC.IORef.NTCo:IORef[0] <Local>_N
:: GHC.STRef.STRef GHC.Prim.RealWorld Local ~R# IORef Local))))
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af36>_R
:: ContT () IO a59_af36 ~R# ((a59_af36 -> IO ()) -> IO ())))
((\ (x_ipni :: a59_af36)
(eta_ipnj [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local ww5_st9B eta_ipnj
of _ [Occ=Dead] { (# ipv2_ipnm, ipv3_ipnn #) ->
case ipv3_ipnn
of _ [Occ=Dead]
{ Local ds9_djaT ds10_djaU ds11_djaV ds12_djaW dt1_djus ds13_djaY
ds14_djaZ ds15_djb0 ->
case GHC.Prim.writeMutVar#
@ GHC.Prim.RealWorld
@ Local
ww5_st9B
(Development.Shake.Core.Local
ds9_djaT
ds2_djb5
ds11_djaV
ds12_djaW
dt1_djus
ds13_djaY
ds14_djaZ
ds15_djb0)
ipv2_ipnm
of s2#1_ipnq [OS=OneShot] { __DEFAULT ->
((w2_st9s x_ipni)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
s2#1_ipnq
}
}
})
`cast` (<a59_af36>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (a59_af36
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (a59_af36 -> IO ()))))
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
s2#_ipnh
}
}
}
}
}
Development.Shake.Core.getVerbosity1
:: S Global Local
-> (Verbosity -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=3,
Caf=NoCafRefs,
Str=DmdType <S(LLS),1*U(A,A,1*U(U))><L,1*C1(C1(U(U,U)))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=False)
Tmpl= \ (eta_ilT6 [Occ=Once!] :: S Global Local)
(eta1_ilT7 [Occ=Once!] :: Verbosity -> IO ())
(eta2_ilT8 [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case eta_ilT6
of _ [Occ=Dead]
{ S _ [Occ=Dead] _ [Occ=Dead] ds2_ilTd [Occ=Once] ->
case ds2_ilTd
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef var#_ilTh [Occ=Once] ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local var#_ilTh eta2_ilT8
of _ [Occ=Dead]
{ (# ipv_ilTl [Occ=Once], ipv1_ilTm [Occ=Once!] #) ->
((eta1_ilT7
(case ipv1_ilTm
of _ [Occ=Dead]
{ Local _ [Occ=Dead] ds5_djm3 [Occ=Once] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
ds5_djm3
}))
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl
}
}
}}]
Development.Shake.Core.getVerbosity1 =
\ (eta_ilT6 :: S Global Local)
(eta1_ilT7 :: Verbosity -> IO ())
(eta2_ilT8 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case eta_ilT6 of _ [Occ=Dead] { S ds_ilTb ds1_ilTc ds2_ilTd ->
case ds2_ilTd
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef var#_ilTh ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local var#_ilTh eta2_ilT8
of _ [Occ=Dead] { (# ipv_ilTl, ipv1_ilTm #) ->
((eta1_ilT7
(case ipv1_ilTm
of _ [Occ=Dead]
{ Local ds4_djm2 ds5_djm3 ds6_djm4 ds7_djm5 dt_djuT ds8_djm7
ds9_djm8 ds10_djm9 ->
ds5_djm3
}))
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilTl
}
}
}
Development.Shake.Core.getShakeOptions1
:: S Global Local -> (ShakeOptions -> IO ()) -> IO ()
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <L,1*U(A,1*U(A,A,A,A,A,A,1*U,A,A,A,A),A)><C(S),1*C1(U)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=False)
Tmpl= \ (eta_ilSR [Occ=Once!] :: S Global Local)
(c_ilSS [Occ=Once!] :: ShakeOptions -> IO ()) ->
c_ilSS
(case eta_ilSR
of _ [Occ=Dead]
{ S _ [Occ=Dead] ds1_ilSW [Occ=Once!] _ [Occ=Dead] ->
case ds1_ilSW
of _ [Occ=Dead]
{ Global _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] ds9_djky [Occ=Once] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
ds9_djky
}
})}]
Development.Shake.Core.getShakeOptions1 =
\ (eta_ilSR :: S Global Local) (c_ilSS :: ShakeOptions -> IO ()) ->
c_ilSS
(case eta_ilSR of _ [Occ=Dead] { S ds_ilSV ds1_ilSW ds2_ilSX ->
case ds1_ilSW
of _ [Occ=Dead]
{ Global ds3_djks ds4_djkt ds5_djku ds6_djkv ds7_djkw ds8_djkx
ds9_djky ds10_djkz ds11_djkA ds12_djkB ds13_djkC ->
ds9_djky
}
})
Development.Shake.Core.$wa6 [InlPrag=[0]]
:: forall a_af1K.
String
-> Action a_af1K
-> IORef (SomeException -> IO ())
-> Global
-> GHC.Prim.MutVar# GHC.Prim.RealWorld Local
-> (a_af1K -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=7,
Caf=NoCafRefs,
Str=DmdType <L,U><L,1*C1(C1(C1(U(U,U))))><L,U><L,U><L,U><L,C(C1(U))><L,U>,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=IF_ARGS [0 0 0 0 0 60 0] 112 0}]
Development.Shake.Core.$wa6 =
\ (@ a59_af1K)
(w_st9F :: String)
(w1_st9G :: Action a59_af1K)
(ww_st9M :: IORef (SomeException -> IO ()))
(ww1_st9N :: Global)
(ww2_st9R :: GHC.Prim.MutVar# GHC.Prim.RealWorld Local)
(w2_st9I :: a59_af1K -> IO ())
(w3_st9J [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local ww2_st9R w3_st9J
of _ [Occ=Dead] { (# ipv_ipn8, ipv1_ipn9 #) ->
case ipv1_ipn9
of _ [Occ=Dead]
{ Local ds_dj9h ds2_dj9i ds3_dj9j ds4_dj9k dt_djvc ds5_dj9m
ds6_dj9n ds7_dj9o ->
case GHC.Prim.writeMutVar#
@ GHC.Prim.RealWorld
@ Local
ww2_st9R
(Development.Shake.Core.Local
ds_dj9h
ds2_dj9i
(GHC.Base.Just @ String w_st9F)
ds4_dj9k
dt_djvc
ds5_dj9m
ds6_dj9n
ds7_dj9o)
ipv_ipn8
of s2#_ipnh [OS=OneShot] { __DEFAULT ->
(((((w1_st9G
`cast` (Development.Shake.Core.NTCo:Action[0]
; Development.Shake.Monad.NTCo:RAW[0]
<Global>_R <Local>_R <a59_af1K>_N
; Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af1K>_N
:: Action a59_af1K ~R# (S Global Local -> ContT () IO a59_af1K)))
(Development.Shake.Monad.S
@ Global
@ Local
ww_st9M
ww1_st9N
((GHC.STRef.STRef @ GHC.Prim.RealWorld @ Local ww2_st9R)
`cast` (Sym GHC.IORef.NTCo:IORef[0] <Local>_N
:: GHC.STRef.STRef GHC.Prim.RealWorld Local ~R# IORef Local))))
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af1K>_R
:: ContT () IO a59_af1K ~R# ((a59_af1K -> IO ()) -> IO ())))
((\ (x_ipni :: a59_af1K)
(eta_ipnj [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local ww2_st9R eta_ipnj
of _ [Occ=Dead] { (# ipv2_ipnm, ipv3_ipnn #) ->
case ipv3_ipnn
of _ [Occ=Dead]
{ Local ds9_dj96 ds10_dj97 ds11_dj98 ds12_dj99 dt1_djvd ds13_dj9b
ds14_dj9c ds15_dj9d ->
case GHC.Prim.writeMutVar#
@ GHC.Prim.RealWorld
@ Local
ww2_st9R
(Development.Shake.Core.Local
ds9_dj96
ds10_dj97
ds3_dj9j
ds12_dj99
dt1_djvd
ds13_dj9b
ds14_dj9c
ds15_dj9d)
ipv2_ipnm
of s2#1_ipnq [OS=OneShot] { __DEFAULT ->
((w2_st9I x_ipni)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
s2#1_ipnq
}
}
})
`cast` (<a59_af1K>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (a59_af1K
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (a59_af1K -> IO ()))))
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
s2#_ipnh
}
}
}
Development.Shake.Core.unsafeExtraThread3 [InlPrag=INLINE[0]]
:: forall a_af1K.
String
-> Action a_af1K
-> S Global Local
-> (a_af1K -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=5,
Caf=NoCafRefs,
Str=DmdType <L,U><L,1*C1(C1(C1(U(U,U))))><S(LLS),1*U(U,U,1*U(U))><L,C(C1(U))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=5,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a59_af1K)
(w_st9F [Occ=Once] :: String)
(w1_st9G [Occ=Once] :: Action a59_af1K)
(w2_st9H [Occ=Once!] :: S Global Local)
(w3_st9I [Occ=Once] :: a59_af1K -> IO ())
(w4_st9J [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w2_st9H
of _ [Occ=Dead]
{ S ww1_st9M [Occ=Once] ww2_st9N [Occ=Once] ww3_st9O [Occ=Once] ->
case ww3_st9O
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef ww5_st9R [Occ=Once] ->
Development.Shake.Core.$wa6
@ a59_af1K
w_st9F
w1_st9G
ww1_st9M
ww2_st9N
ww5_st9R
w3_st9I
w4_st9J
}
}}]
Development.Shake.Core.unsafeExtraThread3 =
\ (@ a59_af1K)
(w_st9F :: String)
(w1_st9G :: Action a59_af1K)
(w2_st9H :: S Global Local)
(w3_st9I :: a59_af1K -> IO ())
(w4_st9J [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w2_st9H of _ [Occ=Dead] { S ww1_st9M ww2_st9N ww3_st9O ->
case ww3_st9O
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef ww5_st9R ->
Development.Shake.Core.$wa6
@ a59_af1K
w_st9F
w1_st9G
ww1_st9M
ww2_st9N
ww5_st9R
w3_st9I
w4_st9J
}
}
Development.Shake.Core.$swhen1
:: S Global Local -> (() -> IO ()) -> IO ()
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <L,A><C(S),1*C1(U)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=True)
Tmpl= \ _ [Occ=Dead] (eta2_XmeA [Occ=Once!] :: () -> IO ()) ->
eta2_XmeA GHC.Tuple.()}]
Development.Shake.Core.$swhen1 =
\ _ [Occ=Dead] (eta2_XmeA :: () -> IO ()) -> eta2_XmeA GHC.Tuple.()
Development.Shake.Core.$fMonadAction1
:: forall a_aiAE. String -> S Global Local -> ContT () IO a_aiAE
[GblId,
Arity=2,
Str=DmdType <B,U><B,A>b,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=True)
Tmpl= \ (@ a59_aiAE)
(eta_Xmgj [Occ=Once] :: String)
_ [Occ=Dead] ->
error @ (ContT () IO a59_aiAE) eta_Xmgj}]
Development.Shake.Core.$fMonadAction1 =
\ (@ a59_aiAE) (eta_Xmgj :: String) _ [Occ=Dead] ->
error @ (ContT () IO a59_aiAE) eta_Xmgj
Development.Shake.Core.$fApplicativeAction1
:: forall a_aiAe.
a_aiAe -> S Global Local -> (a_aiAe -> IO ()) -> IO ()
[GblId,
Arity=3,
Caf=NoCafRefs,
Str=DmdType <L,U><L,A><C(S),1*C1(U)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=True)
Tmpl= \ (@ a59_aiAe)
(eta_Xmg6 [Occ=Once] :: a59_aiAe)
_ [Occ=Dead]
(eta2_Xmgc [Occ=Once!] :: a59_aiAe -> IO ()) ->
eta2_Xmgc eta_Xmg6}]
Development.Shake.Core.$fApplicativeAction1 =
\ (@ a59_aiAe)
(eta_Xmg6 :: a59_aiAe)
_ [Occ=Dead]
(eta2_Xmgc :: a59_aiAe -> IO ()) ->
eta2_Xmgc eta_Xmg6
Development.Shake.Core.$fMonadAction2
:: forall a_aizE b_aizF.
ReaderT (S Global Local) (ContT () IO) a_aizE
-> ReaderT (S Global Local) (ContT () IO) b_aizF
-> S Global Local
-> ContT () IO b_aizF
[GblId,
Arity=3,
Caf=NoCafRefs,
Str=DmdType <L,1*C1(U)><L,C(C1(U))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a59_aizE)
(@ b_aizF)
(eta_XmeR :: ReaderT (S Global Local) (ContT () IO) a59_aizE)
(eta1_XmeU [Occ=OnceL]
:: ReaderT (S Global Local) (ContT () IO) b_aizF)
(eta2_ilGa :: S Global Local) ->
let {
m1_ilGP [Occ=OnceL] :: ContT () IO a59_aizE
[LclId, Str=DmdType]
m1_ilGP =
(eta_XmeR
`cast` (Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_aizE>_N
:: ReaderT (S Global Local) (ContT () IO) a59_aizE
~R# (S Global Local -> ContT () IO a59_aizE)))
eta2_ilGa } in
(\ (c_ilGR [Occ=OnceL] :: b_aizF -> IO ()) ->
(m1_ilGP
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_aizE>_R
:: ContT () IO a59_aizE ~R# ((a59_aizE -> IO ()) -> IO ())))
(\ _ [Occ=Dead] ->
(((eta1_XmeU
`cast` (Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <b_aizF>_N
:: ReaderT (S Global Local) (ContT () IO) b_aizF
~R# (S Global Local -> ContT () IO b_aizF)))
eta2_ilGa)
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <b_aizF>_R
:: ContT () IO b_aizF ~R# ((b_aizF -> IO ()) -> IO ())))
c_ilGR))
`cast` (Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0] <()>_N <IO>_R <b_aizF>_R)
:: ((b_aizF -> IO ()) -> IO ()) ~R# ContT () IO b_aizF)}]
Development.Shake.Core.$fMonadAction2 =
\ (@ a59_aizE)
(@ b_aizF)
(eta_XmeR :: ReaderT (S Global Local) (ContT () IO) a59_aizE)
(eta1_XmeU :: ReaderT (S Global Local) (ContT () IO) b_aizF)
(eta2_ilGa :: S Global Local) ->
let {
m1_ilGP [Dmd=<L,C(U)>] :: ContT () IO a59_aizE
[LclId, Str=DmdType]
m1_ilGP =
(eta_XmeR
`cast` (Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_aizE>_N
:: ReaderT (S Global Local) (ContT () IO) a59_aizE
~R# (S Global Local -> ContT () IO a59_aizE)))
eta2_ilGa } in
(\ (c_ilGR :: b_aizF -> IO ()) ->
let {
lvl116_svuU :: IO ()
[LclId, Str=DmdType]
lvl116_svuU =
(((eta1_XmeU
`cast` (Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <b_aizF>_N
:: ReaderT (S Global Local) (ContT () IO) b_aizF
~R# (S Global Local -> ContT () IO b_aizF)))
eta2_ilGa)
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <b_aizF>_R
:: ContT () IO b_aizF ~R# ((b_aizF -> IO ()) -> IO ())))
c_ilGR } in
(m1_ilGP
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_aizE>_R
:: ContT () IO a59_aizE ~R# ((a59_aizE -> IO ()) -> IO ())))
(\ _ [Occ=Dead] -> lvl116_svuU))
`cast` (Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0] <()>_N <IO>_R <b_aizF>_R)
:: ((b_aizF -> IO ()) -> IO ()) ~R# ContT () IO b_aizF)
lvl_rxtj :: [Char]
[GblId, Str=DmdType]
lvl_rxtj =
GHC.CString.unpackCString#
"Either the function passed to _rule/defaultRule_ has the wrong _result_ type, or the result of _apply_ is used at the wrong type"#
lvl1_rxtk :: [Char]
[GblId, Str=DmdType]
lvl1_rxtk = GHC.CString.unpackCString# "Requested _result_ type"#
lvl2_rxtl :: [Char]
[GblId, Str=DmdType]
lvl2_rxtl = GHC.CString.unpackCString# "_Rule_ _result_ type"#
lvl3_rxtm :: [Char]
[GblId, Str=DmdType]
lvl3_rxtm = GHC.CString.unpackCString# "_Key_ value"#
lvl4_rxtn :: [Char]
[GblId, Str=DmdType]
lvl4_rxtn = GHC.CString.unpackCString# "_Key_ type"#
lvl5_rxto :: [Char]
[GblId, Str=DmdType]
lvl5_rxto =
GHC.CString.unpackCString#
"Build system error - _rule_ used at the wrong _result_ type"#
lvl6_rxtp :: [Char]
[GblId, Str=DmdType]
lvl6_rxtp =
GHC.CString.unpackCString# "Move the _apply_ call earlier/later"#
lvl7_rxtq :: [Char]
[GblId, Str=DmdType]
lvl7_rxtq = GHC.CString.unpackCString# "Reason"#
lvl8_rxtr :: [Char]
[GblId, Str=DmdType]
lvl8_rxtr =
GHC.CString.unpackCString#
"Build system error - cannot currently call _apply_"#
Development.Shake.Core.withResources2
:: (Resource, Int) -> (Resource, Int) -> Ordering
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <S(S(SLLL)L),1*U(1*U(1*U(U),A,A,A),A)><S(S(SLLL)L),1*U(1*U(1*U(U),A,A,A),A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=False)
Tmpl= \ (x_ijD0 [Occ=Once!] :: (Resource, Int))
(y_ijD1 [Occ=Once!] :: (Resource, Int)) ->
case x_ijD0
of _ [Occ=Dead] { (x1_iaBA [Occ=Once!], _ [Occ=Dead]) ->
case x1_iaBA
of _ [Occ=Dead]
{ Development.Shake.Resource.Resource ds_iks1 [Occ=Once!]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
case ds_iks1 of _ [Occ=Dead] { GHC.Types.I# x#_iks8 [Occ=Once] ->
case y_ijD1
of _ [Occ=Dead] { (x2_Xb21 [Occ=Once!], _ [Occ=Dead]) ->
case x2_Xb21
of _ [Occ=Dead]
{ Development.Shake.Resource.Resource ds6_iksc [Occ=Once!]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
case ds6_iksc of _ [Occ=Dead] { GHC.Types.I# y#_iksj [Occ=Once] ->
GHC.Classes.compareInt# x#_iks8 y#_iksj
}
}
}
}
}
}}]
Development.Shake.Core.withResources2 =
\ (x_ijD0 :: (Resource, Int)) (y_ijD1 :: (Resource, Int)) ->
case x_ijD0 of _ [Occ=Dead] { (x1_iaBA, ds1_iaBB) ->
case x1_iaBA
of _ [Occ=Dead]
{ Development.Shake.Resource.Resource ds_iks1 ds2_iks2 ds3_iks3
ds4_iks4 ->
case ds_iks1 of _ [Occ=Dead] { GHC.Types.I# x#_iks8 ->
case y_ijD1 of _ [Occ=Dead] { (x2_Xb21, ds5_Xb23) ->
case x2_Xb21
of _ [Occ=Dead]
{ Development.Shake.Resource.Resource ds6_iksc ds7_iksd ds8_ikse
ds9_iksf ->
case ds6_iksc of _ [Occ=Dead] { GHC.Types.I# y#_iksj ->
GHC.Classes.compareInt# x#_iks8 y#_iksj
}
}
}
}
}
}
Development.Shake.Core.withResources3
:: (Resource, Int) -> (Resource, Int) -> Bool
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <S(S(SLLL)L),1*U(1*U(1*U(U),A,A,A),A)><S(S(SLLL)L),1*U(1*U(1*U(U),A,A,A),A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=False)
Tmpl= \ (x_ijD0 [Occ=Once!] :: (Resource, Int))
(y_ijD1 [Occ=Once!] :: (Resource, Int)) ->
case x_ijD0
of _ [Occ=Dead] { (x1_iaBA [Occ=Once!], _ [Occ=Dead]) ->
case x1_iaBA
of _ [Occ=Dead]
{ Development.Shake.Resource.Resource ds_ikrw [Occ=Once!]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
case ds_ikrw of _ [Occ=Dead] { GHC.Types.I# x2_ikrD [Occ=Once] ->
case y_ijD1
of _ [Occ=Dead] { (x3_Xb1Z [Occ=Once!], _ [Occ=Dead]) ->
case x3_Xb1Z
of _ [Occ=Dead]
{ Development.Shake.Resource.Resource ds6_ikrH [Occ=Once!]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
case ds6_ikrH of _ [Occ=Dead] { GHC.Types.I# y1_ikrO [Occ=Once] ->
GHC.Prim.tagToEnum# @ Bool (GHC.Prim.==# x2_ikrD y1_ikrO)
}
}
}
}
}
}}]
Development.Shake.Core.withResources3 =
\ (x_ijD0 :: (Resource, Int)) (y_ijD1 :: (Resource, Int)) ->
case x_ijD0 of _ [Occ=Dead] { (x1_iaBA, ds1_iaBB) ->
case x1_iaBA
of _ [Occ=Dead]
{ Development.Shake.Resource.Resource ds_ikrw ds2_ikrx ds3_ikry
ds4_ikrz ->
case ds_ikrw of _ [Occ=Dead] { GHC.Types.I# x2_ikrD ->
case y_ijD1 of _ [Occ=Dead] { (x3_Xb1Z, ds5_Xb21) ->
case x3_Xb1Z
of _ [Occ=Dead]
{ Development.Shake.Resource.Resource ds6_ikrH ds7_ikrI ds8_ikrJ
ds9_ikrK ->
case ds6_ikrH of _ [Occ=Dead] { GHC.Types.I# y1_ikrO ->
GHC.Prim.tagToEnum# @ Bool (GHC.Prim.==# x2_ikrD y1_ikrO)
}
}
}
}
}
}
Development.Shake.Core.withResources4 :: (Resource, Int) -> Bool
[GblId,
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LS),1*U(A,1*U(U))>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (x_Xb1H [Occ=Once!] :: (Resource, Int)) ->
case x_Xb1H of _ [Occ=Dead] { (_ [Occ=Dead], y_ijUs [Occ=Once!]) ->
case y_ijUs of _ [Occ=Dead] { GHC.Types.I# x1_ikr4 [Occ=Once] ->
GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# x1_ikr4 0)
}
}}]
Development.Shake.Core.withResources4 =
\ (x_Xb1H :: (Resource, Int)) ->
case x_Xb1H of _ [Occ=Dead] { (ds1_ijUr, y_ijUs) ->
case y_ijUs of _ [Occ=Dead] { GHC.Types.I# x1_ikr4 ->
GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# x1_ikr4 0)
}
}
lvl9_rxts :: Either SomeException ()
[GblId, Caf=NoCafRefs, Str=DmdType m2]
lvl9_rxts = Data.Either.Right @ SomeException @ () GHC.Tuple.()
lvl10_rxtt :: [Char]
[GblId, Str=DmdType]
lvl10_rxtt = GHC.CString.unpackCString# "-"#
lvl11_rxtu
:: forall b_iaEy. (Char -> b_iaEy -> b_iaEy) -> b_iaEy -> b_iaEy
[GblId, Arity=2, Caf=NoCafRefs, Str=DmdType <L,C(C1(U))><L,U>]
lvl11_rxtu =
\ (@ b_iaEy)
(c_iaEz [OS=OneShot] :: Char -> b_iaEy -> b_iaEy)
(n_iaEA [OS=OneShot] :: b_iaEy) ->
GHC.CString.unpackFoldrCString#
@ b_iaEy "Writing live list to "# c_iaEz n_iaEA
lvl12_rxtv :: [Char]
[GblId, Str=DmdType]
lvl12_rxtv = GHC.CString.unpackCString# "Listing live"#
lvl13_rxtw
:: forall b_iaEy. (Char -> b_iaEy -> b_iaEy) -> b_iaEy -> b_iaEy
[GblId, Arity=2, Caf=NoCafRefs, Str=DmdType <L,C(C1(U))><L,U>]
lvl13_rxtw =
\ (@ b_iaEy)
(c_iaEz [OS=OneShot] :: Char -> b_iaEy -> b_iaEy)
(n_iaEA [OS=OneShot] :: b_iaEy) ->
GHC.CString.unpackFoldrCString#
@ b_iaEy "Writing report to "# c_iaEz n_iaEA
lvl14_rxtx :: [Char]
[GblId, Str=DmdType]
lvl14_rxtx = GHC.CString.unpackCString# "Profile report"#
lvl15_rxty :: [Char]
[GblId, Str=DmdType]
lvl15_rxty = GHC.CString.unpackCString# "Lint checking succeeded"#
lvl16_rxtz :: [Char]
[GblId, Str=DmdType]
lvl16_rxtz = GHC.CString.unpackCString# "Lint checking"#
lvl17_rxtA :: [Char]
[GblId, Str=DmdType]
lvl17_rxtA = GHC.CString.unpackCString# "Running rules"#
lvl18_rxtB :: [Char]
[GblId, Str=DmdType]
lvl18_rxtB =
GHC.CString.unpackCString#
"Either add a rule that produces the above key, or stop requiring the above key"#
lvl19_rxtC :: [Char]
[GblId, Str=DmdType]
lvl19_rxtC =
GHC.CString.unpackCString#
"Modify your rules/defaultRules so only one can produce the above key"#
lvl20_rxtD :: [Char]
[GblId, Str=DmdType]
lvl20_rxtD = GHC.CString.unpackCString# "Rules matched"#
lvl21_rxtE :: [Char]
[GblId, Str=DmdType]
lvl21_rxtE = GHC.CString.unpackCString# "Key value"#
lvl22_rxtF :: [Char]
[GblId, Str=DmdType]
lvl22_rxtF = GHC.CString.unpackCString# "Key type"#
lvl23_rxtG :: [Char]
[GblId, Str=DmdType]
lvl23_rxtG = GHC.CString.unpackCString# "no"#
lvl24_rxtH :: [Char]
[GblId, Str=DmdType]
lvl24_rxtH = GHC.CString.unpackCString# "multiple"#
lvl25_rxtI
:: (Double, Key -> Maybe (Action Value))
-> (Double, Key -> Maybe (Action Value)) -> Ordering
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <S(SL),1*U(1*U(U),A)><S(SL),1*U(1*U(U),A)>]
lvl25_rxtI =
\ (x_ijD0 :: (Double, Key -> Maybe (Action Value)))
(y_ijD1 :: (Double, Key -> Maybe (Action Value))) ->
case x_ijD0 of _ [Occ=Dead] { (x1_iaBA, ds1_iaBB) ->
case x1_iaBA of _ [Occ=Dead] { GHC.Types.D# x2_ikph ->
case y_ijD1 of _ [Occ=Dead] { (x3_Xb0s, ds2_Xb0u) ->
case x3_Xb0s of _ [Occ=Dead] { GHC.Types.D# y1_ikpl ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<## x2_ikph y1_ikpl)
of _ [Occ=Dead] {
False ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.==## x2_ikph y1_ikpl)
of _ [Occ=Dead] {
False -> GHC.Types.GT;
True -> GHC.Types.EQ
};
True -> GHC.Types.LT
}
}
}
}
}
lvl26_rxtJ
:: (Double, Key -> Maybe (Action Value))
-> (Double, Key -> Maybe (Action Value)) -> Bool
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <S(SL),1*U(1*U(U),A)><S(SL),1*U(1*U(U),A)>]
lvl26_rxtJ =
\ (x_ijD0 :: (Double, Key -> Maybe (Action Value)))
(y_ijD1 :: (Double, Key -> Maybe (Action Value))) ->
case x_ijD0 of _ [Occ=Dead] { (x1_iaBA, ds1_iaBB) ->
case x1_iaBA of _ [Occ=Dead] { GHC.Types.D# x2_ikp7 ->
case y_ijD1 of _ [Occ=Dead] { (x3_Xb0q, ds2_Xb0s) ->
case x3_Xb0q of _ [Occ=Dead] { GHC.Types.D# y1_ikpb ->
GHC.Prim.tagToEnum# @ Bool (GHC.Prim.==## x2_ikp7 y1_ikpb)
}
}
}
}
lvl27_rxtK
:: [(Double, Key -> Maybe (Action Value))]
-> [Key -> Maybe (Action Value)]
[GblId, Arity=1, Caf=NoCafRefs, Str=DmdType]
lvl27_rxtK =
map
@ (Double, Key -> Maybe (Action Value))
@ (Key -> Maybe (Action Value))
(snd @ Double @ (Key -> Maybe (Action Value)))
lvl28_rxtL :: Key -> Value -> Value -> EqualCost
[GblId, Str=DmdType b]
lvl28_rxtL =
Control.Exception.Base.patError
@ (Key -> Value -> Value -> EqualCost)
"src\\Development\\Shake\\Core.hs:(423,9)-(425,38)|function equal"#
lvl29_rxtM :: Key -> IO (Maybe Value)
[GblId, Str=DmdType b]
lvl29_rxtM =
Control.Exception.Base.patError
@ (Key -> IO (Maybe Value))
"src\\Development\\Shake\\Core.hs:(419,9)-(421,39)|function stored"#
lvl30_rxtN :: [Char]
[GblId, Str=DmdType]
lvl30_rxtN = GHC.CString.unpackCString# "Got"#
lvl31_rxtO :: [Char]
[GblId, Str=DmdType]
lvl31_rxtO = GHC.CString.unpackCString# "Wanted"#
lvl32_rxtP :: [Char]
[GblId, Str=DmdType]
lvl32_rxtP = GHC.CString.unpackCString# "When"#
lvl33_rxtQ :: [Char]
[GblId, Str=DmdType]
lvl33_rxtQ =
GHC.CString.unpackCString#
"Lint checking error - current directory has changed"#
lvl34_rxtR :: [Char]
[GblId, Str=DmdType]
lvl34_rxtR = GHC.CString.unpackCString# "% "#
lvl35_rxtS :: IO ()
[GblId, Str=DmdType b]
lvl35_rxtS =
Control.Exception.Base.patError
@ (IO ())
"src\\Development\\Shake\\Core.hs:(404,31)-(406,37)|lambda"#
lvl36_rxtT :: Integer
[GblId, Caf=NoCafRefs, Str=DmdType]
lvl36_rxtT = __integer 0
lvl37_rxtU :: [Char]
[GblId, Str=DmdType]
lvl37_rxtU = GHC.CString.unpackCString# "reached with"#
lvl38_rxtV :: [Char]
[GblId, Str=DmdType]
lvl38_rxtV = GHC.CString.unpackCString# "after catch"#
lvl39_rxtW :: [Char]
[GblId, Str=DmdType]
lvl39_rxtW = GHC.CString.unpackCString# "reading handler"#
lvl40_rxtX :: [Char]
[GblId, Str=DmdType]
lvl40_rxtX = GHC.CString.unpackCString# "before catch"#
lvl41_rxtY :: [Char]
[GblId, Str=DmdType]
lvl41_rxtY = GHC.CString.unpackCString# "q"#
Development.Shake.Core.rule2 :: Double
[GblId,
Caf=NoCafRefs,
Str=DmdType m,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 20}]
Development.Shake.Core.rule2 = GHC.Types.D# 1.0
Development.Shake.Core.rule1
:: forall key_af8h value_af8i.
Rule key_af8h value_af8i =>
(key_af8h -> Maybe (Action value_af8i))
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, ((), SRules Action) #)
[GblId,
Arity=3,
Caf=NoCafRefs,
Str=DmdType <L,U(U(U,U,U,U,U,U),U(U,U,U,U,U,U),U,U)><L,U><L,U>,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [60 0 0] 142 30}]
Development.Shake.Core.rule1 =
\ (@ key_af8h)
(@ value_af8i)
($dRule_aiaG :: Rule key_af8h value_af8i)
(eta_Xmf :: key_af8h -> Maybe (Action value_af8i))
(eta1_B1 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
(# eta1_B1,
(GHC.Tuple.(),
Development.Shake.Core.SRules
@ Action
(GHC.Types.[] @ (Action ()))
(case Development.Shake.Core.$p1Rule
@ key_af8h @ value_af8i $dRule_aiaG
of _ [Occ=Dead]
{ (tpl_X4V, tpl1_Xmk, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
case (tpl1_Xmk
`cast` (Data.Typeable.Internal.NTCo:Typeable[0] <*>_N <key_af8h>_N
:: Typeable key_af8h ~R# (GHC.Prim.Proxy# key_af8h -> TypeRep)))
(GHC.Prim.proxy# @ * @ key_af8h)
of wild1_ilsC
{ Data.Typeable.Internal.TypeRep dt_ilsE dt1_ilsF ds1_ilsG ds2_ilsH
ds3_ilsI ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule Action)])
dt_ilsE
wild1_ilsC
(wild1_ilsC,
case Development.Shake.Core.$p2Rule
@ key_af8h @ value_af8i $dRule_aiaG
of _ [Occ=Dead]
{ (tpl6_X4W, tpl7_Xml, tpl8_Xb2, tpl9_Xb4, tpl10_Xb6, tpl11_Xb8) ->
(tpl7_Xml
`cast` (Data.Typeable.Internal.NTCo:Typeable[0]
<*>_N <value_af8i>_N
:: Typeable value_af8i
~R# (GHC.Prim.Proxy# value_af8i -> TypeRep)))
(GHC.Prim.proxy# @ * @ value_af8i)
},
GHC.Types.:
@ (Double, ARule Action)
(Development.Shake.Core.rule2,
Development.Shake.Core.ARule
@ Action @ key_af8h @ value_af8i $dRule_aiaG eta_Xmf)
(GHC.Types.[] @ (Double, ARule Action)))
}
})) #)
Rec {
$wgo2_rxtZ
:: [(Double, ARule Action)] -> (# [Double], [ARule Action] #)
[GblId, Arity=1, Caf=NoCafRefs, Str=DmdType <S,1*U>]
$wgo2_rxtZ =
\ (w_sta2 :: [(Double, ARule Action)]) ->
case w_sta2 of _ [Occ=Dead] {
[] -> (# GHC.Types.[] @ Double, GHC.Types.[] @ (ARule Action) #);
: y_iaB1 ys_iaB2 ->
case y_iaB1 of _ [Occ=Dead] { (a59_ijYs, b1_ijYt) ->
let {
ds1_ijYp [Dmd=<L,U(1*U,1*U)>] :: ([Double], [ARule Action])
[LclId, Str=DmdType]
ds1_ijYp =
case $wgo2_rxtZ ys_iaB2
of _ [Occ=Dead] { (# ww1_sttn, ww2_stto #) ->
(ww1_sttn, ww2_stto)
} } in
(# GHC.Types.:
@ Double
a59_ijYs
(case ds1_ijYp of _ [Occ=Dead] { (as_ijYx, bs_ijYy) -> as_ijYx }),
GHC.Types.:
@ (ARule Action)
b1_ijYt
(case ds1_ijYp of _ [Occ=Dead] { (as_ijYC, bs_ijYD) ->
bs_ijYD
}) #)
}
}
end Rec }
lvl42_rxu0 :: [Char]
[GblId, Str=DmdType]
lvl42_rxu0 = GHC.CString.unpackCString# "maximum"#
lvl43_rxu1 :: Double
[GblId, Str=DmdType b]
lvl43_rxu1 = GHC.List.errorEmptyList @ Double lvl42_rxu0
Rec {
$wgo3_rxu2 :: [Double] -> GHC.Prim.Double# -> GHC.Prim.Double#
[GblId, Arity=2, Caf=NoCafRefs, Str=DmdType <S,1*U><L,U>]
$wgo3_rxu2 =
\ (w_sta6 :: [Double]) (ww_staa :: GHC.Prim.Double#) ->
case w_sta6 of _ [Occ=Dead] {
[] -> ww_staa;
: y_iaB1 ys_iaB2 ->
case y_iaB1 of _ [Occ=Dead] { GHC.Types.D# y1_ilqe ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<=## ww_staa y1_ilqe)
of _ [Occ=Dead] {
False -> $wgo3_rxu2 ys_iaB2 ww_staa;
True -> $wgo3_rxu2 ys_iaB2 y1_ilqe
}
}
}
end Rec }
Rec {
go_rxu3 :: [ARule Action] -> ARule Action -> ARule Action
[GblId, Arity=2, Str=DmdType <S,1*U><S,1*U>]
go_rxu3 =
\ (ds_iaAW :: [ARule Action]) (eta_B1 :: ARule Action) ->
case ds_iaAW of _ [Occ=Dead] {
[] -> eta_B1;
: y_iaB1 ys_iaB2 ->
case eta_B1
of _ [Occ=Dead]
{ ARule @ ipv0_slZx @ ipv1_slZy ipv_slZz ipv2_slZA ->
case y_iaB1
of _ [Occ=Dead]
{ ARule @ key_ahLe @ value_ahLf $dRule_ahLg b_aevp ->
let {
lvl116_svv7 :: TypeRep
[LclId, Str=DmdType]
lvl116_svv7 =
case Development.Shake.Core.$p2Rule
@ ipv0_slZx @ ipv1_slZy ipv_slZz
of _ [Occ=Dead]
{ (tpl_Xm4, tpl1_Xm6, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
(tpl1_Xm6
`cast` (Data.Typeable.Internal.NTCo:Typeable[0] <*>_N <ipv1_slZy>_N
:: Typeable ipv1_slZy ~R# (GHC.Prim.Proxy# ipv1_slZy -> TypeRep)))
(GHC.Prim.proxy# @ * @ ipv1_slZy)
} } in
let {
lvl117_svv4 :: TypeRep
[LclId, Str=DmdType]
lvl117_svv4 =
case Development.Shake.Core.$p1Rule
@ ipv0_slZx @ ipv1_slZy ipv_slZz
of _ [Occ=Dead]
{ (tpl_Xm6, tpl1_Xm8, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
(tpl1_Xm8
`cast` (Data.Typeable.Internal.NTCo:Typeable[0] <*>_N <ipv0_slZx>_N
:: Typeable ipv0_slZx ~R# (GHC.Prim.Proxy# ipv0_slZx -> TypeRep)))
(GHC.Prim.proxy# @ * @ ipv0_slZx)
} } in
let {
lvl118_svv6 :: TypeRep
[LclId, Str=DmdType]
lvl118_svv6 =
case Development.Shake.Core.$p2Rule
@ key_ahLe @ value_ahLf $dRule_ahLg
of _ [Occ=Dead]
{ (tpl_Xmf, tpl1_Xmh, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
(tpl1_Xmh
`cast` (Data.Typeable.Internal.NTCo:Typeable[0]
<*>_N <value_ahLf>_N
:: Typeable value_ahLf
~R# (GHC.Prim.Proxy# value_ahLf -> TypeRep)))
(GHC.Prim.proxy# @ * @ value_ahLf)
} } in
let {
lvl119_svv5 :: TypeRep
[LclId, Str=DmdType]
lvl119_svv5 =
case Development.Shake.Core.$p1Rule
@ key_ahLe @ value_ahLf $dRule_ahLg
of _ [Occ=Dead]
{ (tpl_Xmh, tpl1_Xmj, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
(tpl1_Xmj
`cast` (Data.Typeable.Internal.NTCo:Typeable[0] <*>_N <key_ahLe>_N
:: Typeable key_ahLe ~R# (GHC.Prim.Proxy# key_ahLe -> TypeRep)))
(GHC.Prim.proxy# @ * @ key_ahLe)
} } in
go_rxu3
ys_iaB2
(Development.Shake.Core.ARule
@ Action
@ ipv0_slZx
@ ipv1_slZy
ipv_slZz
(\ (x_aevr :: ipv0_slZx) ->
case ipv2_slZA x_aevr of wild2_ilZ6 {
Nothing ->
case b_aevp
(case lvl117_svv4
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt_iaP6 dt1_iaP7 ds2_iaP8 ds3_iaP9
ds4_iaPa ->
case lvl119_svv5
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt2_iaPe dt3_iaPf ds5_iaPg
ds6_iaPh ds7_iaPi ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.eqWord# dt_iaP6 dt2_iaPe)
of _ [Occ=Dead] {
False -> Data.Maybe.fromJust1 @ key_ahLe;
True ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt1_iaP7 dt3_iaPf)
of _ [Occ=Dead] {
False -> Data.Maybe.fromJust1 @ key_ahLe;
True ->
x_aevr
`cast` (UnivCo mkUnsafeCo representational ipv0_slZx key_ahLe
:: ipv0_slZx ~R# key_ahLe)
}
}
}
})
of _ [Occ=Dead] {
Nothing -> GHC.Base.Nothing @ (Action ipv1_slZy);
Just a59_iaJQ ->
GHC.Base.Just
@ (Action ipv1_slZy)
((\ (eta1_ilPb :: S Global Local) ->
let {
m1_ilPc [Dmd=<L,C(U)>] :: ContT () IO value_ahLf
[LclId, Str=DmdType]
m1_ilPc =
(a59_iaJQ
`cast` (Development.Shake.Core.NTCo:Action[0]
; Development.Shake.Monad.NTCo:RAW[0]
<Global>_R <Local>_R <value_ahLf>_N
; Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <value_ahLf>_N
:: Action value_ahLf
~R# (S Global Local -> ContT () IO value_ahLf)))
eta1_ilPb } in
(\ (c_ilPd :: ipv1_slZy -> IO ()) ->
(m1_ilPc
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <value_ahLf>_R
:: ContT () IO value_ahLf
~R# ((value_ahLf -> IO ()) -> IO ())))
(\ (x1_iaBu :: value_ahLf) ->
c_ilPd
(case lvl118_svv6
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt_iaP6 dt1_iaP7 ds2_iaP8
ds3_iaP9 ds4_iaPa ->
case lvl116_svv7
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt2_iaPe dt3_iaPf ds5_iaPg
ds6_iaPh ds7_iaPi ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt_iaP6 dt2_iaPe)
of _ [Occ=Dead] {
False -> Data.Maybe.fromJust1 @ ipv1_slZy;
True ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt1_iaP7 dt3_iaPf)
of _ [Occ=Dead] {
False -> Data.Maybe.fromJust1 @ ipv1_slZy;
True ->
x1_iaBu
`cast` (UnivCo mkUnsafeCo representational
value_ahLf ipv1_slZy
:: value_ahLf ~R# ipv1_slZy)
}
}
}
})))
`cast` (Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <ipv1_slZy>_R)
:: ((ipv1_slZy -> IO ()) -> IO ()) ~R# ContT () IO ipv1_slZy))
`cast` (Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <ipv1_slZy>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <ipv1_slZy>_N
:: (S Global Local -> ContT () IO ipv1_slZy)
~R# Action ipv1_slZy))
};
Just ipv3_ilZa -> wild2_ilZ6
}))
}
}
}
end Rec }
$wlvl_rxu4
:: TypeRep
-> TypeRep
-> [(Double, ARule Action)]
-> (# TypeRep, TypeRep, [(Double, ARule Action)] #)
[GblId, Arity=3, Str=DmdType <L,U><L,U><S,1*U>]
$wlvl_rxu4 =
\ (ww_stal :: TypeRep)
(ww1_stam :: TypeRep)
(ww2_stan :: [(Double, ARule Action)]) ->
case ww2_stan of wild_X1F {
[] ->
(# ww_stal, ww1_stam, GHC.Types.[] @ (Double, ARule Action) #);
: ipv_skdZ ipv1_ske0 ->
(# ww_stal,
ww1_stam,
GHC.Types.:
@ (Double, ARule Action)
(let {
ds_skG2 [Dmd=<L,U(1*U,1*U)>] :: ([Double], [ARule Action])
[LclId, Str=DmdType]
ds_skG2 =
case $wgo2_rxtZ wild_X1F
of _ [Occ=Dead] { (# ww4_sttn, ww5_stto #) ->
(ww4_sttn, ww5_stto)
} } in
(case ds_skG2 of _ [Occ=Dead] { (is_XhUR, rs_XhS5) ->
case is_XhUR of _ [Occ=Dead] {
[] -> lvl43_rxu1;
: ipv2_iaGQ ipv3_iaGR ->
case ipv2_iaGQ of _ [Occ=Dead] { GHC.Types.D# ww4_staa ->
case $wgo3_rxu2 ipv3_iaGR ww4_staa of ww5_stae { __DEFAULT ->
GHC.Types.D# ww5_stae
}
}
}
},
case ds_skG2 of _ [Occ=Dead] { (is_ahQk, rs_XhUR) ->
case rs_XhUR of _ [Occ=Dead] {
[] -> GHC.List.foldl1'1 @ (ARule Action);
: x_ijYM xs_ijYN -> go_rxu3 xs_ijYN x_ijYM
}
}))
(GHC.Types.[] @ (Double, ARule Action)) #)
}
a44_rxu5 :: Char -> Bool
[GblId, Arity=1, Caf=NoCafRefs, Str=DmdType <S(S),1*U(1*U)>]
a44_rxu5 =
\ (ds_djg0 :: Char) ->
case ds_djg0 of _ [Occ=Dead] { GHC.Types.C# c1_iaKt ->
case c1_iaKt of _ [Occ=Dead] {
__DEFAULT -> GHC.Types.True;
'_' -> GHC.Types.False
}
}
Development.Shake.Core.unsafeExtraThread2 :: [Char]
[GblId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=False, ConLike=False,
WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 90 0}]
Development.Shake.Core.unsafeExtraThread2 =
GHC.CString.unpackCString# "Within unsafeExtraThread"#
Development.Shake.Core.$wa5 [InlPrag=[0]]
:: forall a_af0z.
Action a_af0z
-> IORef (SomeException -> IO ())
-> Database
-> GHC.Prim.MVar#
GHC.Prim.RealWorld (Maybe Development.Shake.Pool.S)
-> GHC.Prim.MVar#
GHC.Prim.RealWorld
(Either (MVar ()) (Either SomeException Development.Shake.Pool.S))
-> Cleanup
-> IO Seconds
-> Map.HashMap TypeRep (RuleInfo Action)
-> (Verbosity -> String -> IO ())
-> ShakeOptions
-> (String -> IO ())
-> (String -> IO ())
-> IORef [IO ()]
-> IORef [(Key, Key)]
-> IORef Local
-> (a_af0z -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=17,
Str=DmdType <L,C(C1(C1(U(U,U))))><L,U(U)><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,C(C(U))><L,U>,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=IF_ARGS [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0] 491 0}]
Development.Shake.Core.$wa5 =
\ (@ a59_af0z)
(w_stas :: Action a59_af0z)
(ww_stay :: IORef (SomeException -> IO ()))
(ww1_staC :: Database)
(ww2_staG
:: GHC.Prim.MVar#
GHC.Prim.RealWorld (Maybe Development.Shake.Pool.S))
(ww3_staH
:: GHC.Prim.MVar#
GHC.Prim.RealWorld
(Either (MVar ()) (Either SomeException Development.Shake.Pool.S)))
(ww4_staJ :: Cleanup)
(ww5_staK :: IO Seconds)
(ww6_staL :: Map.HashMap TypeRep (RuleInfo Action))
(ww7_staM :: Verbosity -> String -> IO ())
(ww8_staN :: ShakeOptions)
(ww9_staO :: String -> IO ())
(ww10_staP :: String -> IO ())
(ww11_staQ :: IORef [IO ()])
(ww12_staR :: IORef [(Key, Key)])
(ww13_staT :: IORef Local)
(w1_stau :: a59_af0z -> IO ())
(w2_stav [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case Development.Shake.Pool.$wa1
ww2_staG
ww3_staH
(Development.Shake.Pool.increasePool3
`cast` (<Development.Shake.Pool.S>_R
-> Sym (GHC.Types.NTCo:IO[0] <Development.Shake.Pool.S>_R)
:: (Development.Shake.Pool.S
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
Development.Shake.Pool.S #))
~R# (Development.Shake.Pool.S -> IO Development.Shake.Pool.S)))
w2_stav
of _ [Occ=Dead] { (# ipv_ilUU, ipv1_ilUV #) ->
((((Development.Shake.Monad.tryRAW1
@ Global
@ Local
@ a59_af0z
((Development.Shake.Core.unsafeExtraThread3
@ a59_af0z Development.Shake.Core.unsafeExtraThread2 w_stas)
`cast` ((<S Global Local>_R
-> (<a59_af0z -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af0z>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af0z>_N)
; Sym
(Development.Shake.Monad.NTCo:RAW[0]
<Global>_R <Local>_R) <a59_af0z>_N
:: (S Global Local
-> (a59_af0z -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# RAW Global Local a59_af0z))
(Development.Shake.Monad.S
@ Global
@ Local
ww_stay
(Development.Shake.Core.Global
ww1_staC
(Development.Shake.Pool.Pool ww2_staG ww3_staH)
ww4_staJ
ww5_staK
ww6_staL
ww7_staM
ww8_staN
ww9_staO
ww10_staP
ww11_staQ
ww12_staR)
ww13_staT))
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <Either SomeException a59_af0z>_R
:: ContT () IO (Either SomeException a59_af0z)
~R# ((Either SomeException a59_af0z -> IO ()) -> IO ())))
((\ (x_ilFI :: Either SomeException a59_af0z)
(eta_XcV [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case Development.Shake.Pool.$wa1
ww2_staG
ww3_staH
(Development.Shake.Pool.increasePool2
`cast` (<Development.Shake.Pool.S>_R
-> Sym (GHC.Types.NTCo:IO[0] <Development.Shake.Pool.S>_R)
:: (Development.Shake.Pool.S
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
Development.Shake.Pool.S #))
~R# (Development.Shake.Pool.S -> IO Development.Shake.Pool.S)))
eta_XcV
of _ [Occ=Dead] { (# ipv2_ilkP, ipv3_ilkQ #) ->
case ww_stay
`cast` (GHC.IORef.NTCo:IORef[0] <SomeException -> IO ()>_N
:: IORef (SomeException -> IO ())
~R# GHC.STRef.STRef GHC.Prim.RealWorld (SomeException -> IO ()))
of _ [Occ=Dead] { GHC.STRef.STRef ww15_ilWw ->
Development.Shake.Monad.$wa
@ a59_af0z
@ Global
@ Local
((\ (continue_aeCv [OS=OneShot]
:: Either SomeException a59_af0z -> IO ())
(eta1_XpY [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case x_ilFI of wild_ijE2 {
Left ds3_ilVO ->
let {
w3_ipSN [Dmd=<L,C(U(U,A))>] :: IO ()
[LclId, Str=DmdType]
w3_ipSN = continue_aeCv wild_ijE2 } in
let {
a60_ipSP
:: GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId,
Arity=1,
Str=DmdType <L,U> {aeCv-><C(S),A> ipSN-><C(S),1*C1(U(U,A))>},
Unf=Unf{Src=InlineStable, TopLvl=False, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (s_ipTc [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (w3_ipSN
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
() #))))
s_ipTc
of _ [Occ=Dead]
{ (# ipv4_ipTf [Occ=Once], _ [Occ=Dead] #) ->
(# ipv4_ipTf, GHC.Tuple.() #)
}}]
a60_ipSP =
\ (s_ipSR [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (w3_ipSN
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
s_ipSR
of _ [Occ=Dead] { (# ipv4_ipSU, ipv5_ipSV #) ->
(# ipv4_ipSU, GHC.Tuple.() #)
} } in
Development.Shake.Pool.$wa1
ww2_staG
ww3_staH
((\ (s_ipSX [OS=OneShot] :: Development.Shake.Pool.S)
(s1_ipSY [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
(# s1_ipSY,
case s_ipSX
of _ [Occ=Dead]
{ Development.Shake.Pool.S ds_ipT1 dt_ipT2 dt1_ipT3 dt2_ipT4
ds4_ipT5 ->
case ds4_ipT5
of _ [Occ=Dead] { Development.Shake.Pool.Queue p_svva t_svvb ->
Development.Shake.Pool.S
ds_ipT1
dt_ipT2
dt1_ipT3
dt2_ipT4
(Development.Shake.Pool.Queue
@ (IO ())
(GHC.Types.:
@ (IO ())
(a60_ipSP
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# IO ()))
p_svva)
t_svvb)
}
} #))
`cast` (<Development.Shake.Pool.S>_R
-> Sym (GHC.Types.NTCo:IO[0] <Development.Shake.Pool.S>_R)
:: (Development.Shake.Pool.S
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
Development.Shake.Pool.S #))
~R# (Development.Shake.Pool.S -> IO Development.Shake.Pool.S)))
eta1_XpY;
Right ds3_ilVM ->
Development.Shake.Pool.$wa
@ () ww2_staG ww3_staH (continue_aeCv wild_ijE2) eta1_XpY
})
`cast` (<Either SomeException a59_af0z -> IO ()>_R
-> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: ((Either SomeException a59_af0z -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# ((Either SomeException a59_af0z -> IO ()) -> IO ())))
ww15_ilWw
w1_stau
ipv2_ilkP
}
})
`cast` (<Either SomeException a59_af0z>_R
-> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (Either SomeException a59_af0z
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (Either SomeException a59_af0z -> IO ()))))
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv_ilUU
}
Development.Shake.Core.unsafeExtraThread1 [InlPrag=INLINE[0]]
:: forall a_af0z.
Action a_af0z
-> S Global Local
-> (a_af0z -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=4,
Str=DmdType <L,C(C1(C1(U(U,U))))><S(LS(LSLLLLLLLLL)L),1*U(U(U),U(U,U(U,U),U,U,U,U,U,U,U,U,U),U)><L,C(C(U))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=4,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a59_af0z)
(w_stas [Occ=Once] :: Action a59_af0z)
(w1_stat [Occ=Once!] :: S Global Local)
(w2_stau [Occ=Once] :: a59_af0z -> IO ())
(w3_stav [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w1_stat
of _ [Occ=Dead]
{ S ww1_stay [Occ=Once] ww2_staz [Occ=Once!] ww3_staT [Occ=Once] ->
case ww2_staz
of _ [Occ=Dead]
{ Global ww5_staC [Occ=Once] ww6_staD [Occ=Once!]
ww7_staJ [Occ=Once] ww8_staK [Occ=Once] ww9_staL [Occ=Once]
ww10_staM [Occ=Once] ww11_staN [Occ=Once] ww12_staO [Occ=Once]
ww13_staP [Occ=Once] ww14_staQ [Occ=Once] ww15_staR [Occ=Once] ->
case ww6_staD
of _ [Occ=Dead]
{ Development.Shake.Pool.Pool ww17_staG [Occ=Once]
ww18_staH [Occ=Once] ->
Development.Shake.Core.$wa5
@ a59_af0z
w_stas
ww1_stay
ww5_staC
ww17_staG
ww18_staH
ww7_staJ
ww8_staK
ww9_staL
ww10_staM
ww11_staN
ww12_staO
ww13_staP
ww14_staQ
ww15_staR
ww3_staT
w2_stau
w3_stav
}
}
}}]
Development.Shake.Core.unsafeExtraThread1 =
\ (@ a59_af0z)
(w_stas :: Action a59_af0z)
(w1_stat :: S Global Local)
(w2_stau :: a59_af0z -> IO ())
(w3_stav [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w1_stat of _ [Occ=Dead] { S ww1_stay ww2_staz ww3_staT ->
case ww2_staz
of _ [Occ=Dead]
{ Global ww5_staC ww6_staD ww7_staJ ww8_staK ww9_staL ww10_staM
ww11_staN ww12_staO ww13_staP ww14_staQ ww15_staR ->
case ww6_staD
of _ [Occ=Dead]
{ Development.Shake.Pool.Pool ww17_staG ww18_staH ->
Development.Shake.Core.$wa5
@ a59_af0z
w_stas
ww1_stay
ww5_staC
ww17_staG
ww18_staH
ww7_staJ
ww8_staK
ww9_staL
ww10_staM
ww11_staN
ww12_staO
ww13_staP
ww14_staQ
ww15_staR
ww3_staT
w2_stau
w3_stav
}
}
}
$wlvl1_rxu6 :: [Char] -> [Char] -> Ordering
[GblId, Arity=2, Caf=NoCafRefs, Str=DmdType <S,1*U><S,1*U>]
$wlvl1_rxu6 =
\ (ww_stb0 :: [Char]) (ww1_stb5 :: [Char]) ->
case GHC.List.$wlenAcc @ Char ww1_stb5 0 of ww2_ib1S { __DEFAULT ->
case GHC.List.$wlenAcc @ Char ww_stb0 0 of ww3_Xba4 { __DEFAULT ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# ww2_ib1S ww3_Xba4)
of _ [Occ=Dead] {
False ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.==# ww2_ib1S ww3_Xba4)
of _ [Occ=Dead] {
False -> GHC.Types.GT;
True -> GHC.Types.EQ
};
True -> GHC.Types.LT
}
}
}
lvl44_rxu7 :: ([Char], String) -> ([Char], String) -> Ordering
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <S(SL),1*U(1*U,A)><S(SL),1*U(1*U,A)>]
lvl44_rxu7 =
\ (w_staW :: ([Char], String)) (w1_staX :: ([Char], String)) ->
case w_staW of _ [Occ=Dead] { (ww1_stb0, ww2_stb1) ->
case w1_staX of _ [Occ=Dead] { (ww4_stb5, ww5_stb6) ->
$wlvl1_rxu6 ww1_stb0 ww4_stb5
}
}
Development.Shake.Core.$slookup1 :: Int
[GblId,
Caf=NoCafRefs,
Str=DmdType m,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 20}]
Development.Shake.Core.$slookup1 = GHC.Types.I# 0
lvl46_rxu9 :: [Char]
[GblId, Str=DmdType]
lvl46_rxu9 = GHC.CString.unpackCString# "leafHashCode"#
lvl47_rxua :: unordered-containers-0.2.5.1:Data.HashMap.Base.Hash
[GblId, Str=DmdType b]
lvl47_rxua =
error
@ unordered-containers-0.2.5.1:Data.HashMap.Base.Hash lvl46_rxu9
Rec {
Development.Shake.Core.$wgo [InlPrag=[0], Occ=LoopBreaker]
:: unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(Maybe Int)
-> GHC.Prim.Int# -> GHC.Prim.Int# -> GHC.Prim.Int# -> GHC.Prim.Int#
[GblId,
Arity=4,
Caf=NoCafRefs,
Str=DmdType <L,U(U)><L,U><L,U><L,U>]
Development.Shake.Core.$wgo =
\ (w_stb9
:: unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(Maybe Int))
(ww_stbf :: GHC.Prim.Int#)
(ww1_stbj :: GHC.Prim.Int#)
(ww2_stbn :: GHC.Prim.Int#) ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.>=# ww1_stbj ww_stbf)
of _ [Occ=Dead] {
False ->
case w_stb9
of wild3_ikS9
{ unordered-containers-0.2.5.1:Data.HashMap.Array.Array ds1_ikSb ->
case GHC.Prim.indexArray# @ (Maybe Int) ds1_ikSb ww1_stbj
of _ [Occ=Dead] { (# ipv1_ikSf #) ->
case ipv1_ikSf of _ [Occ=Dead] {
Nothing ->
Development.Shake.Core.$wgo
wild3_ikS9
ww_stbf
(GHC.Prim.+# ww1_stbj 1)
(GHC.Prim.+# ww2_stbn 1);
Just x1_ikSl ->
Development.Shake.Core.$wgo
wild3_ikS9 ww_stbf (GHC.Prim.+# ww1_stbj 1) ww2_stbn
}
}
};
True -> ww2_stbn
}
end Rec }
Rec {
Development.Shake.Core.$wpoly_go [InlPrag=[0], Occ=LoopBreaker]
:: forall v_XkU7.
GHC.Prim.Word#
-> GHC.Prim.Word#
-> GHC.Prim.Array#
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkU7)
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> Maybe Int
[GblId,
Arity=5,
Caf=NoCafRefs,
Str=DmdType <L,U><L,U><S,U><L,U><L,U>]
Development.Shake.Core.$wpoly_go =
\ (@ v_XkU7)
(ww_stbz :: GHC.Prim.Word#)
(ww1_stbA :: GHC.Prim.Word#)
(ww2_stbH
:: GHC.Prim.Array#
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkU7))
(ww3_stbL :: GHC.Prim.Int#)
(ww4_stbP :: GHC.Prim.Int#) ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.>=# ww3_stbL ww4_stbP)
of _ [Occ=Dead] {
False ->
case GHC.Prim.indexArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkU7)
ww2_stbH
ww3_stbL
of _ [Occ=Dead] { (# ipv3_ikUw #) ->
case ipv3_ikUw
of _ [Occ=Dead]
{ unordered-containers-0.2.5.1:Data.HashMap.Base.L kx_ikUA
ds1_ikUB ->
case kx_ikUA
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt2_svvf dt3_svvg ds5_svvh
ds6_svvi ds7_svvj ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.eqWord# ww_stbz dt2_svvf)
of _ [Occ=Dead] {
False ->
Development.Shake.Core.$wpoly_go
@ v_XkU7
ww_stbz
ww1_stbA
ww2_stbH
(GHC.Prim.+# ww3_stbL 1)
ww4_stbP;
True ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# ww1_stbA dt3_svvg)
of _ [Occ=Dead] {
False ->
Development.Shake.Core.$wpoly_go
@ v_XkU7
ww_stbz
ww1_stbA
ww2_stbH
(GHC.Prim.+# ww3_stbL 1)
ww4_stbP;
True -> GHC.Base.Just @ Int (GHC.Types.I# ww3_stbL)
}
}
}
}
};
True -> GHC.Base.Nothing @ Int
}
end Rec }
Rec {
Development.Shake.Core.$wpoly_go1 [InlPrag=[0], Occ=LoopBreaker]
:: forall v_XkKc.
GHC.Prim.Word#
-> GHC.Prim.Word#
-> GHC.Prim.Array#
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkKc)
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> Maybe v_XkKc
[GblId,
Arity=5,
Caf=NoCafRefs,
Str=DmdType <L,U><L,U><S,U><L,U><L,U>]
Development.Shake.Core.$wpoly_go1 =
\ (@ v_XkKc)
(ww_stbY :: GHC.Prim.Word#)
(ww1_stbZ :: GHC.Prim.Word#)
(ww2_stc6
:: GHC.Prim.Array#
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkKc))
(ww3_stca :: GHC.Prim.Int#)
(ww4_stce :: GHC.Prim.Int#) ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.>=# ww3_stca ww4_stce)
of _ [Occ=Dead] {
False ->
case GHC.Prim.indexArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkKc)
ww2_stc6
ww3_stca
of _ [Occ=Dead] { (# ipv3_ikKB #) ->
case ipv3_ikKB
of _ [Occ=Dead]
{ unordered-containers-0.2.5.1:Data.HashMap.Base.L kx_ikKF
v1_ikKG ->
case kx_ikKF
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt2_svvm dt3_svvn ds5_svvo
ds6_svvp ds7_svvq ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.eqWord# ww_stbY dt2_svvm)
of _ [Occ=Dead] {
False ->
Development.Shake.Core.$wpoly_go1
@ v_XkKc
ww_stbY
ww1_stbZ
ww2_stc6
(GHC.Prim.+# ww3_stca 1)
ww4_stce;
True ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# ww1_stbZ dt3_svvn)
of _ [Occ=Dead] {
False ->
Development.Shake.Core.$wpoly_go1
@ v_XkKc
ww_stbY
ww1_stbZ
ww2_stc6
(GHC.Prim.+# ww3_stca 1)
ww4_stce;
True -> GHC.Base.Just @ v_XkKc v1_ikKG
}
}
}
}
};
True -> GHC.Base.Nothing @ v_XkKc
}
end Rec }
Development.Shake.Core.$s$dmshowList1 :: Local -> ShowS
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <L,A><S,1*U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=True)
Tmpl= \ _ [Occ=Dead] (s_iaDN [Occ=Once] :: String) -> s_iaDN}]
Development.Shake.Core.$s$dmshowList1 =
\ _ [Occ=Dead] (s_iaDN :: String) -> s_iaDN
lvl50_rxud :: [Char]
[GblId, Caf=NoCafRefs, Str=DmdType]
lvl50_rxud =
GHC.Types.: @ Char GHC.Show.shows8 (GHC.Types.[] @ Char)
lvl64_rxuA :: Char
[GblId, Caf=NoCafRefs, Str=DmdType m]
lvl64_rxuA = GHC.Types.C# ' '
lvl65_rxuB :: Char
[GblId, Caf=NoCafRefs, Str=DmdType m]
lvl65_rxuB = GHC.Types.C# ':'
lvl66_rxuC :: ([Char], String) -> Int
[GblId, Arity=1, Caf=NoCafRefs, Str=DmdType <S(SL),1*U(1*U,A)>m]
lvl66_rxuC =
\ (x_iaBu :: ([Char], String)) ->
case x_iaBu of _ [Occ=Dead] { (x1_iaBA, ds1_iaBB) ->
case GHC.List.$wlenAcc @ Char x1_iaBA 0 of ww2_ib1S { __DEFAULT ->
GHC.Types.I# ww2_ib1S
}
}
lvl67_rxuD :: [Char]
[GblId, Str=DmdType]
lvl67_rxuD =
GHC.CString.unpackCString#
"Only one call to addOracle is allowed per question type"#
lvl68_rxuE :: Integer
[GblId, Caf=NoCafRefs, Str=DmdType]
lvl68_rxuE = __integer 1
lvl69_rxuF :: [Integer]
[GblId, Str=DmdType]
lvl69_rxuF =
case GHC.Enum.$wenumDeltaInteger lvl68_rxuE lvl68_rxuE
of _ [Occ=Dead] { (# ww1_ib3X, ww2_ib3Y #) ->
GHC.Types.: @ Integer ww1_ib3X ww2_ib3Y
}
lvl70_rxuG :: [Char]
[GblId, Str=DmdType]
lvl70_rxuG = GHC.CString.unpackCString# "Question value"#
lvl71_rxuH :: [Char]
[GblId, Str=DmdType]
lvl71_rxuH = GHC.CString.unpackCString# "Question type"#
lvl72_rxuI :: [Char]
[GblId, Str=DmdType]
lvl72_rxuI =
GHC.CString.unpackCString#
"Build system error - duplicate oracles for the same question type"#
lvl73_rxuJ :: [Char]
[GblId, Str=DmdType]
lvl73_rxuJ = GHC.CString.unpackCString# "OracleQ"#
lvl74_rxuK :: [Char]
[GblId, Str=DmdType]
lvl74_rxuK =
GHC.CString.unpackCString#
"A function passed to rule/defaultRule has the wrong result type"#
lvl75_rxuL :: [Char]
[GblId, Str=DmdType]
lvl75_rxuL = GHC.CString.unpackCString# "Second result type"#
lvl76_rxuM :: [Char]
[GblId, Str=DmdType]
lvl76_rxuM = GHC.CString.unpackCString# "First result type"#
lvl77_rxuN :: [Char]
[GblId, Str=DmdType]
lvl77_rxuN =
GHC.CString.unpackCString#
"Build system error - rule has multiple result types"#
Development.Shake.Core.$swhen :: Bool -> Action () -> Action ()
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <S,1*U><L,1*U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=False)
Tmpl= \ (p_ijuk [Occ=Once!] :: Bool)
(s_ijul [Occ=Once] :: Action ()) ->
case p_ijuk of _ [Occ=Dead] {
False ->
Development.Shake.Core.$swhen1
`cast` ((<S Global Local>_R
-> Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0] <()>_N <IO>_R <()>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <()>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <()>_N
:: (S Global Local -> (() -> IO ()) -> IO ()) ~R# Action ());
True -> s_ijul
}}]
Development.Shake.Core.$swhen =
\ (p_ijuk :: Bool) (s_ijul :: Action ()) ->
case p_ijuk of _ [Occ=Dead] {
False ->
Development.Shake.Core.$swhen1
`cast` ((<S Global Local>_R
-> Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0] <()>_N <IO>_R <()>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <()>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <()>_N
:: (S Global Local -> (() -> IO ()) -> IO ()) ~R# Action ());
True -> s_ijul
}
Development.Shake.Core.$fMonadRules_$s$fFunctorWriterT [InlPrag=[ALWAYS] CONLIKE]
:: forall w_aeRa. Functor (WriterT w_aeRa IO)
[GblId,
Caf=NoCafRefs,
Str=DmdType m,
Unf=DFun: \ (@ w_aeRa) ->
GHC.Base.D:Functor TYPE WriterT w_aeRa IO
Control.Monad.Trans.Writer.Strict.$fFunctorWriterT_$cfmap
@ w_aeRa @ IO GHC.Base.$fFunctorIO
Control.Monad.Trans.Writer.Strict.$fFunctorWriterT_$c<$
@ w_aeRa @ IO GHC.Base.$fFunctorIO]
Development.Shake.Core.$fMonadRules_$s$fFunctorWriterT =
\ (@ w_Xf1d) ->
GHC.Base.D:Functor
@ (WriterT w_Xf1d IO)
((a32_rxt7 @ w_Xf1d)
`cast` (forall a59_XklB b_XklD.
<a59_XklB -> b_XklD>_R
-> <WriterT w_Xf1d IO a59_XklB>_R
-> Sym (GHC.Types.NTCo:IO[0] <(b_XklD, w_Xf1d)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<w_Xf1d>_N <IO>_R <b_XklD>_N)
:: (forall a59_XklB b_XklD.
(a59_XklB -> b_XklD)
-> WriterT w_Xf1d IO a59_XklB
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, (b_XklD, w_Xf1d) #))
~R# (forall a59_XklB b_XklD.
(a59_XklB -> b_XklD)
-> WriterT w_Xf1d IO a59_XklB -> WriterT w_Xf1d IO b_XklD)))
((a33_rxt8 @ w_Xf1d)
`cast` (forall a59_XklR b_XklT.
<a59_XklR>_R
-> <WriterT w_Xf1d IO b_XklT>_R
-> Sym (GHC.Types.NTCo:IO[0] <(a59_XklR, w_Xf1d)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<w_Xf1d>_N <IO>_R <a59_XklR>_N)
:: (forall a59_XklR b_XklT.
a59_XklR
-> WriterT w_Xf1d IO b_XklT
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, (a59_XklR, w_Xf1d) #))
~R# (forall a59_XklR b_XklT.
a59_XklR
-> WriterT w_Xf1d IO b_XklT -> WriterT w_Xf1d IO a59_XklR)))
Development.Shake.Core.$w$s$wupdateOrSnocWith1 [InlPrag=[0]]
:: forall v_ikUP.
(v_ikUP -> v_ikUP -> v_ikUP)
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> TyCon
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> v_ikUP
-> GHC.Prim.Array#
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikUP)
-> GHC.Prim.Array#
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikUP)
[GblId,
Arity=8,
Str=DmdType <L,C(C1(U))><L,U><L,U><L,U><L,U><L,U><L,U><S,U>,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=IF_ARGS [60 0 0 0 0 0 0 0] 634 0}]
Development.Shake.Core.$w$s$wupdateOrSnocWith1 =
\ (@ v_ikUP)
(w_stfU :: v_ikUP -> v_ikUP -> v_ikUP)
(ww_stg0 :: GHC.Prim.Word#)
(ww1_stg1 :: GHC.Prim.Word#)
(ww2_stg2 :: TyCon)
(ww3_stg3 :: [Data.Typeable.Internal.KindRep])
(ww4_stg4 :: [TypeRep])
(w1_stfW :: v_ikUP)
(w2_stfX
:: GHC.Prim.Array#
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikUP)) ->
letrec {
$wgo5_stfT [InlPrag=[0], Occ=LoopBreaker]
:: GHC.Prim.Word#
-> GHC.Prim.Word#
-> TyCon
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> v_ikUP
-> GHC.Prim.Array#
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikUP)
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.Array#
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikUP)
[LclId,
Arity=9,
Str=DmdType <L,U><L,U><L,U><L,U><L,U><L,U><S,U><L,U><L,U>]
$wgo5_stfT =
\ (ww5_stfy :: GHC.Prim.Word#)
(ww6_stfz :: GHC.Prim.Word#)
(ww7_stfA :: TyCon)
(ww8_stfB :: [Data.Typeable.Internal.KindRep])
(ww9_stfC :: [TypeRep])
(w3_stfs :: v_ikUP)
(ww10_stfG
:: GHC.Prim.Array#
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikUP))
(ww11_stfK :: GHC.Prim.Int#)
(ww12_stfO :: GHC.Prim.Int#) ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.>=# ww11_stfK ww12_stfO)
of _ [Occ=Dead] {
False ->
case GHC.Prim.indexArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikUP)
ww10_stfG
ww11_stfK
of _ [Occ=Dead] { (# ipv3_ikVk #) ->
case ipv3_ikVk
of _ [Occ=Dead]
{ unordered-containers-0.2.5.1:Data.HashMap.Base.L kx_ikVo
y_ikVp ->
case kx_ikVo
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt2_svvX dt3_svvY ds5_svvZ
ds6_svw0 ds7_svw1 ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# ww5_stfy dt2_svvX)
of _ [Occ=Dead] {
False ->
$wgo5_stfT
ww5_stfy
ww6_stfz
ww7_stfA
ww8_stfB
ww9_stfC
w3_stfs
ww10_stfG
(GHC.Prim.+# ww11_stfK 1)
ww12_stfO;
True ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# ww6_stfz dt3_svvY)
of _ [Occ=Dead] {
False ->
$wgo5_stfT
ww5_stfy
ww6_stfz
ww7_stfA
ww8_stfB
ww9_stfC
w3_stfs
ww10_stfG
(GHC.Prim.+# ww11_stfK 1)
ww12_stfO;
True ->
case w_stfU w3_stfs y_ikVp of v'_ikVw { __DEFAULT ->
case GHC.Prim.thawArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikUP)
@ GHC.Prim.RealWorld
ww10_stfG
0
(GHC.Prim.sizeofArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikUP)
ww10_stfG)
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv4_ikVz, ipv5_ikVA #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikUP)
ipv5_ikVA
ww11_stfK
(unordered-containers-0.2.5.1:Data.HashMap.Base.L
@ TypeRep
@ v_ikUP
(Data.Typeable.Internal.TypeRep
ww5_stfy ww6_stfz ww7_stfA ww8_stfB ww9_stfC)
v'_ikVw)
ipv4_ikVz
of s'_ikVC [OS=OneShot] { __DEFAULT ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikUP)
ipv5_ikVA
s'_ikVC
of _ [Occ=Dead] { (# ipv6_ikVF, ipv7_ikVG #) ->
ipv7_ikVG
}
}
}
}
}
}
}
}
};
True ->
case GHC.Prim.newArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikUP)
@ GHC.Prim.RealWorld
(GHC.Prim.+# ww12_stfO 1)
(unordered-containers-0.2.5.1:Data.HashMap.Array.undefinedElem
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikUP))
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv3_ikVM, ipv4_ikVN #) ->
case GHC.Prim.copyArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikUP)
@ GHC.Prim.RealWorld
ww10_stfG
0
ipv4_ikVN
0
ww12_stfO
ipv3_ikVM
of s2_ikVP [OS=OneShot] { __DEFAULT ->
case w3_stfs of wild1_ikVQ { __DEFAULT ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikUP)
ipv4_ikVN
ww12_stfO
(unordered-containers-0.2.5.1:Data.HashMap.Base.L
@ TypeRep
@ v_ikUP
(Data.Typeable.Internal.TypeRep
ww5_stfy ww6_stfz ww7_stfA ww8_stfB ww9_stfC)
wild1_ikVQ)
s2_ikVP
of s'_ikVR [OS=OneShot] { __DEFAULT ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikUP)
ipv4_ikVN
s'_ikVR
of _ [Occ=Dead] { (# ipv5_ikVU, ipv6_ikVV #) ->
ipv6_ikVV
}
}
}
}
}
}; } in
$wgo5_stfT
ww_stg0
ww1_stg1
ww2_stg2
ww3_stg3
ww4_stg4
w1_stfW
w2_stfX
0
(GHC.Prim.sizeofArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikUP)
w2_stfX)
Development.Shake.Core.$s$wupdateOrConcatWith [InlPrag=[0]]
:: forall v_ikQF.
(v_ikQF -> v_ikQF -> v_ikQF)
-> GHC.Prim.Array#
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikQF)
-> GHC.Prim.Array#
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikQF)
-> GHC.Prim.Array#
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_ikQF)
[GblId,
Arity=3,
Str=DmdType <L,C(C1(U))><L,U><L,U>,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [60 0 0] 721 0}]
Development.Shake.Core.$s$wupdateOrConcatWith =
\ (@ v_XkQH)
(w1_ikQI :: v_XkQH -> v_XkQH -> v_XkQH)
(ww_ikQJ
:: GHC.Prim.Array#
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH))
(ww1_ikQK
:: GHC.Prim.Array#
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH)) ->
let {
wild1_skU3 :: GHC.Prim.Int#
[LclId, Str=DmdType]
wild1_skU3 =
GHC.Prim.sizeofArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH)
ww1_ikQK } in
case GHC.Prim.newArray#
@ (Maybe Int)
@ GHC.Prim.RealWorld
wild1_skU3
(unordered-containers-0.2.5.1:Data.HashMap.Array.undefinedElem
@ (Maybe Int))
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv_ikRw, ipv1_ikRx #) ->
letrec {
$wa19_stgk [InlPrag=[0], Occ=LoopBreaker]
:: forall s_ikQO.
unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH)
-> unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s_ikQO (Maybe Int)
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.State# s_ikQO
-> (# GHC.Prim.State# s_ikQO,
unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s_ikQO (Maybe Int) #)
[LclId, Arity=5, Str=DmdType <L,U(U)><L,U(U)><L,U><L,U><L,U>]
$wa19_stgk =
\ (@ s_ikQO)
(w_stg7
:: unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH))
(w2_stg8
:: unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s_ikQO (Maybe Int))
(ww2_stge :: GHC.Prim.Int#)
(ww3_stgi :: GHC.Prim.Int#)
(w3_stgb [OS=OneShot] :: GHC.Prim.State# s_ikQO) ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.>=# ww2_stge ww3_stgi)
of _ [Occ=Dead] {
False ->
case w2_stg8
of wild3_ikR5
{ unordered-containers-0.2.5.1:Data.HashMap.Array.MArray ds1_ikR7 ->
case GHC.Prim.writeArray#
@ s_ikQO
@ (Maybe Int)
ds1_ikR7
ww2_stge
(case w_stg7
of _ [Occ=Dead]
{ unordered-containers-0.2.5.1:Data.HashMap.Array.Array ds2_ikRb ->
case GHC.Prim.indexArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH)
ds2_ikRb
ww2_stge
of _ [Occ=Dead] { (# ipv2_ikRf #) ->
case ipv2_ikRf
of _ [Occ=Dead]
{ unordered-containers-0.2.5.1:Data.HashMap.Base.L k1_ikRm
ds4_ikRn ->
case k1_ikRm
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww5_svw4 ww6_svw5 ww7_svw6
ww8_svw7 ww9_svw8 ->
Development.Shake.Core.$wpoly_go
@ v_XkQH
ww5_svw4
ww6_svw5
ww_ikQJ
0
(GHC.Prim.sizeofArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH)
ww_ikQJ)
}
}
}
})
w3_stgb
of s'_ikRp [OS=OneShot] { __DEFAULT ->
$wa19_stgk
@ s_ikQO
w_stg7
wild3_ikR5
(GHC.Prim.+# ww2_stge 1)
ww3_stgi
s'_ikRp
}
};
True -> (# w3_stgb, w2_stg8 #)
}; } in
case $wa19_stgk
@ GHC.Prim.RealWorld
(unordered-containers-0.2.5.1:Data.HashMap.Array.Array
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH)
ww1_ikQK)
(unordered-containers-0.2.5.1:Data.HashMap.Array.$WMArray
@ GHC.Prim.RealWorld @ (Maybe Int) ipv1_ikRx)
0
wild1_skU3
ipv_ikRw
of _ [Occ=Dead] { (# ipv2_ikRB, ipv3_ikRC #) ->
case ipv3_ikRC
of _ [Occ=Dead]
{ unordered-containers-0.2.5.1:Data.HashMap.Array.MArray ds2_ikRG ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld @ (Maybe Int) ds2_ikRG ipv2_ikRB
of _ [Occ=Dead] { (# ipv4_ikRK, ipv5_ikRL #) ->
case Development.Shake.Core.$wgo
(unordered-containers-0.2.5.1:Data.HashMap.Array.Array
@ (Maybe Int) ipv5_ikRL)
(GHC.Prim.sizeofArray# @ (Maybe Int) ipv5_ikRL)
0
0
of ww2_stbr { __DEFAULT ->
let {
a59_skTY :: GHC.Prim.Int#
[LclId, Str=DmdType]
a59_skTY =
GHC.Prim.sizeofArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH)
ww_ikQJ } in
case GHC.Prim.newArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH)
@ GHC.Prim.RealWorld
(GHC.Prim.+# a59_skTY ww2_stbr)
(unordered-containers-0.2.5.1:Data.HashMap.Array.undefinedElem
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH))
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv6_ikSz, ipv7_ikSA #) ->
case GHC.Prim.copyArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH)
@ GHC.Prim.RealWorld
ww_ikQJ
0
ipv7_ikSA
0
a59_skTY
ipv6_ikSz
of s2_ikSC [OS=OneShot] { __DEFAULT ->
letrec {
$wa20_stgA [InlPrag=[0], Occ=LoopBreaker]
:: GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId, Arity=3, Str=DmdType <L,U><L,U><L,U>]
$wa20_stgA =
\ (ww3_stgu :: GHC.Prim.Int#)
(ww4_stgy :: GHC.Prim.Int#)
(w_stgr [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.>=# ww4_stgy wild1_skU3)
of _ [Occ=Dead] {
False ->
case GHC.Prim.indexArray# @ (Maybe Int) ipv5_ikRL ww4_stgy
of _ [Occ=Dead] { (# ipv8_ikSX #) ->
case ipv8_ikSX of _ [Occ=Dead] {
Nothing ->
case GHC.Prim.indexArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH)
ww1_ikQK
ww4_stgy
of _ [Occ=Dead] { (# ipv9_ikT5 #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH)
ipv7_ikSA
ww3_stgu
ipv9_ikT5
w_stgr
of s'_ikT7 [OS=OneShot] { __DEFAULT ->
$wa20_stgA
(GHC.Prim.+# ww3_stgu 1) (GHC.Prim.+# ww4_stgy 1) s'_ikT7
}
};
Just i3_ikTa ->
case i3_ikTa of _ [Occ=Dead] { GHC.Types.I# i#_ikTe ->
case GHC.Prim.indexArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH)
ww_ikQJ
i#_ikTe
of _ [Occ=Dead] { (# ipv9_ikTi #) ->
case ipv9_ikTi
of _ [Occ=Dead]
{ unordered-containers-0.2.5.1:Data.HashMap.Base.L k1_ikTm
v1_ikTn ->
case GHC.Prim.indexArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH)
ww1_ikQK
ww4_stgy
of _ [Occ=Dead] { (# ipv10_ikTr #) ->
case ipv10_ikTr
of _ [Occ=Dead]
{ unordered-containers-0.2.5.1:Data.HashMap.Base.L ds8_ikTv
v2_ikTw ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH)
ipv7_ikSA
i#_ikTe
(unordered-containers-0.2.5.1:Data.HashMap.Base.L
@ TypeRep @ v_XkQH k1_ikTm (w1_ikQI v1_ikTn v2_ikTw))
w_stgr
of s'_ikTy [OS=OneShot] { __DEFAULT ->
$wa20_stgA ww3_stgu (GHC.Prim.+# ww4_stgy 1) s'_ikTy
}
}
}
}
}
}
}
};
True -> (# w_stgr, GHC.Tuple.() #)
}; } in
case $wa20_stgA a59_skTY 0 s2_ikSC
of _ [Occ=Dead] { (# ipv8_ikTE, ipv9_ikTF #) ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_XkQH)
ipv7_ikSA
ipv8_ikTE
of _ [Occ=Dead] { (# ipv10_ikTJ, ipv11_ikTK #) ->
ipv11_ikTK
}
}
}
}
}
}
}
}
}
Rec {
Development.Shake.Core.$wpoly_go2 [InlPrag=[0], Occ=LoopBreaker]
:: forall v_Xjw4.
GHC.Prim.Word#
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> GHC.Prim.Int#
-> Map.HashMap TypeRep v_Xjw4
-> Maybe v_Xjw4
[GblId,
Arity=5,
Caf=NoCafRefs,
Str=DmdType <L,U><L,U><L,U><L,U><S,1*U>]
Development.Shake.Core.$wpoly_go2 =
\ (@ v_Xjw4)
(ww_stiX :: GHC.Prim.Word#)
(ww1_stj1 :: GHC.Prim.Word#)
(ww2_stj2 :: GHC.Prim.Word#)
(ww3_stj9 :: GHC.Prim.Int#)
(w_stiU :: Map.HashMap TypeRep v_Xjw4) ->
case w_stiU of _ [Occ=Dead] {
unordered-containers-0.2.5.1:Data.HashMap.Base.Empty ->
GHC.Base.Nothing @ v_Xjw4;
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed dt_ijy8
dt1_ijy9 ->
let {
a59_slpD :: GHC.Prim.Word#
[LclId, Str=DmdType]
a59_slpD =
GHC.Prim.uncheckedShiftL#
(__word 1)
(GHC.Prim.word2Int#
(GHC.Prim.and#
(GHC.Prim.uncheckedShiftRL# ww_stiX ww3_stj9) (__word 15))) } in
case GHC.Prim.and# dt_ijy8 a59_slpD of _ [Occ=Dead] {
__DEFAULT ->
case GHC.Prim.indexArray#
@ (Map.HashMap TypeRep v_Xjw4)
dt1_ijy9
(GHC.Prim.word2Int#
(GHC.Prim.popCnt#
(GHC.Prim.and# dt_ijy8 (GHC.Prim.minusWord# a59_slpD (__word 1)))))
of _ [Occ=Dead] { (# ipv2_ijyC #) ->
Development.Shake.Core.$wpoly_go2
@ v_Xjw4
ww_stiX
ww1_stj1
ww2_stj2
(GHC.Prim.+# ww3_stj9 4)
ipv2_ijyC
};
__word 0 -> GHC.Base.Nothing @ v_Xjw4
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf dt_ijyG
dt1_ijyH dt2_ijyI ->
case dt1_ijyH
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt3_svwD dt4_svwE ds5_svwF
ds6_svwG ds7_svwH ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.eqWord# ww_stiX dt_ijyG)
of _ [Occ=Dead] {
False -> GHC.Base.Nothing @ v_Xjw4;
True ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# ww1_stj1 dt3_svwD)
of _ [Occ=Dead] {
False -> GHC.Base.Nothing @ v_Xjw4;
True ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# ww2_stj2 dt4_svwE)
of _ [Occ=Dead] {
False -> GHC.Base.Nothing @ v_Xjw4;
True -> GHC.Base.Just @ v_Xjw4 dt2_ijyI
}
}
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Full dt_ijyP ->
case GHC.Prim.indexArray#
@ (Map.HashMap TypeRep v_Xjw4)
dt_ijyP
(GHC.Prim.word2Int#
(GHC.Prim.and#
(GHC.Prim.uncheckedShiftRL# ww_stiX ww3_stj9) (__word 15)))
of _ [Occ=Dead] { (# ipv2_ijz3 #) ->
Development.Shake.Core.$wpoly_go2
@ v_Xjw4
ww_stiX
ww1_stj1
ww2_stj2
(GHC.Prim.+# ww3_stj9 4)
ipv2_ijz3
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision dt_ijz6
dt1_ijz7 ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.eqWord# ww_stiX dt_ijz6)
of _ [Occ=Dead] {
False -> GHC.Base.Nothing @ v_Xjw4;
True ->
Development.Shake.Core.$wpoly_go1
@ v_Xjw4
ww1_stj1
ww2_stj2
dt1_ijz7
0
(GHC.Prim.sizeofArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep v_Xjw4)
dt1_ijz7)
}
}
end Rec }
a47_rxuR :: String
[GblId, Str=DmdType]
a47_rxuR =
GHC.Show.showLitString
lvl38_rxtV
(GHC.Types.: @ Char GHC.Show.shows6 (GHC.Types.[] @ Char))
lvl78_rxuS :: String
[GblId, Str=DmdType]
lvl78_rxuS = GHC.Types.: @ Char GHC.Show.shows6 a47_rxuR
lvl79_rxuT :: TypeRep -> IO ()
[GblId, Arity=1, Str=DmdType <L,U>b]
lvl79_rxuT =
\ (tk_XkQD :: TypeRep) -> E.errorNoRuleToBuildType2 tk_XkQD tk_XkQD
lvl80_rxuU :: [Char]
[GblId, Str=DmdType]
lvl80_rxuU = GHC.CString.unpackCString# "raising here"#
lvl81_rxuV :: [Char]
[GblId, Caf=NoCafRefs, Str=DmdType]
lvl81_rxuV =
GHC.Types.: @ Char GHC.Show.shows6 (GHC.Types.[] @ Char)
lvl82_rxuW :: String
[GblId, Str=DmdType]
lvl82_rxuW = GHC.Show.showLitString lvl80_rxuU lvl81_rxuV
lvl83_rxuX :: [Char]
[GblId, Str=DmdType]
lvl83_rxuX = GHC.Types.: @ Char GHC.Show.shows6 lvl82_rxuW
a48_rxuY :: String
[GblId, Str=DmdType]
a48_rxuY =
GHC.Show.showLitString
lvl39_rxtW
(GHC.Types.: @ Char GHC.Show.shows6 (GHC.Types.[] @ Char))
lvl84_rxuZ :: String
[GblId, Str=DmdType]
lvl84_rxuZ = GHC.Types.: @ Char GHC.Show.shows6 a48_rxuY
a49_rxv0 :: String
[GblId, Str=DmdType]
a49_rxv0 =
GHC.Show.showLitString
lvl40_rxtX
(GHC.Types.: @ Char GHC.Show.shows6 (GHC.Types.[] @ Char))
lvl85_rxv1 :: String
[GblId, Str=DmdType]
lvl85_rxv1 = GHC.Types.: @ Char GHC.Show.shows6 a49_rxv0
$wa10_rxv2
:: forall t_ahCY.
Num t_ahCY =>
Database
-> Pool
-> Cleanup
-> IO Seconds
-> Map.HashMap TypeRep (RuleInfo Action)
-> (Verbosity -> String -> IO ())
-> ShakeOptions
-> (String -> IO ())
-> (String -> IO ())
-> IORef [IO ()]
-> IORef [(Key, Key)]
-> Stack
-> Key
-> (Either SomeException (Value, [Depends], t_ahCY, [Trace])
-> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=16,
Str=DmdType <L,1*U(A,A,A,A,A,A,1*C1(U))><L,U><L,U><L,U><L,U><L,U><L,U><L,U(U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U)><L,U><L,U><L,U><L,U><L,U><L,U><L,C(C1(U(U,U)))><L,U>]
$wa10_rxv2 =
\ (@ t_ahCY)
(w_stjp :: Num t_ahCY)
(ww_stjx :: Database)
(ww1_stjy :: Pool)
(ww2_stjz :: Cleanup)
(ww3_stjA :: IO Seconds)
(ww4_stjB :: Map.HashMap TypeRep (RuleInfo Action))
(ww5_stjC :: Verbosity -> String -> IO ())
(ww6_stjD :: ShakeOptions)
(ww7_stjE :: String -> IO ())
(ww8_stjF :: String -> IO ())
(ww9_stjG :: IORef [IO ()])
(ww10_stjH :: IORef [(Key, Key)])
(w1_stjr :: Stack)
(w2_stjs :: Key)
(w3_stjt
:: Either SomeException (Value, [Depends], t_ahCY, [Trace])
-> IO ())
(w4_stju [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.newMutVar#
@ Local
@ GHC.Prim.RealWorld
(Development.Shake.Core.Local
w1_stjr
(shakeVerbosity ww6_stjD)
(GHC.Base.Nothing @ String)
(GHC.Types.[] @ Depends)
0.0
(GHC.Types.[] @ Trace)
(GHC.Types.[] @ (Key -> Bool))
(GHC.Types.[] @ Key))
w4_stju
of _ [Occ=Dead] { (# ipv_imaz, ipv1_imaA #) ->
let {
lvl116_slfD :: t_ahCY
[LclId, Str=DmdType]
lvl116_slfD = fromInteger @ t_ahCY w_stjp lvl36_rxtT } in
let {
a59_smbj
:: Either SomeException (Value, Local)
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId, Arity=2, Str=DmdType <L,U><L,U>]
a59_smbj =
\ (x_aez9 :: Either SomeException (Value, Local))
(s_ilqr [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.IO.Handle.Text.hPutStr2
stdout
(GHC.Types.:
@ Char
GHC.Show.shows9
(GHC.Types.:
@ Char
GHC.Show.shows6
(GHC.Show.showLitString
lvl37_rxtU
(GHC.Types.:
@ Char
GHC.Show.shows6
(GHC.Types.:
@ Char
GHC.Show.showList__1
(GHC.List.foldr1_$sfoldr1
@ (String -> String)
GHC.Show.$fShow(,)1
(\ (eta_ilrV :: String) ->
case x_aez9 of _ [Occ=Dead] {
Left ds1_ilVO ->
letrec {
go5_iaAV [Occ=LoopBreaker] :: [Char] -> [Char]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go5_iaAV =
\ (ds2_iaAW :: [Char]) ->
case ds2_iaAW of _ [Occ=Dead] {
[] -> eta_ilrV;
: y_iaB1 ys_iaB2 ->
GHC.Types.: @ Char y_iaB1 (go5_iaAV ys_iaB2)
}; } in
go5_iaAV GHC.Show.shows16;
Right ds1_ilVM ->
letrec {
go5_iaAV [Occ=LoopBreaker] :: [Char] -> [Char]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go5_iaAV =
\ (ds2_iaAW :: [Char]) ->
case ds2_iaAW of _ [Occ=Dead] {
[] -> eta_ilrV;
: y_iaB1 ys_iaB2 ->
GHC.Types.: @ Char y_iaB1 (go5_iaAV ys_iaB2)
}; } in
go5_iaAV GHC.Show.shows17
})
(GHC.Types.[] @ ShowS)
lvl50_rxud))))))
GHC.Types.True
s_ilqr
of _ [Occ=Dead] { (# ipv2_ilqu, ipv3_ilqv #) ->
case x_aez9 of _ [Occ=Dead] {
Left e_aeza ->
((w3_stjt
(Data.Either.Left
@ SomeException @ (Value, [Depends], t_ahCY, [Trace]) e_aeza))
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_ilqu;
Right ds2_djc0 ->
case ds2_djc0 of _ [Occ=Dead] { (res_aezb, ds3_djc1) ->
case ds3_djc1
of _ [Occ=Dead]
{ Local ds4_djc2 ds5_djc3 ds6_djc4 ds7_djc5 dt_djuM ds8_djc7
ds9_djc8 ds10_djc9 ->
((w3_stjt
(Data.Either.Right
@ SomeException
@ (Value, [Depends], t_ahCY, [Trace])
(res_aezb,
reverse @ Depends ds7_djc5,
lvl116_slfD,
reverse @ Trace ds8_djc7)))
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_ilqu
}
}
}
} } in
case GHC.Prim.newMutVar#
@ (SomeException -> IO ())
@ GHC.Prim.RealWorld
((\ (x_Xb0y :: SomeException)
(eta_Xcf [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
a59_smbj
(Data.Either.Left @ SomeException @ (Value, Local) x_Xb0y) eta_Xcf)
`cast` (<SomeException>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (SomeException
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (SomeException -> IO ())))
ipv_imaz
of _ [Occ=Dead] { (# ipv2_XmzC, ipv3_XmzE #) ->
case GHC.IO.Handle.Text.hPutStr2
stdout lvl85_rxv1 GHC.Types.True ipv2_XmzC
of _ [Occ=Dead] { (# ipv4_ilqu, ipv5_ilqv #) ->
case GHC.Prim.catch#
@ ()
@ SomeException
(\ (eta_Xcq [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local ipv1_imaA eta_Xcq
of _ [Occ=Dead] { (# ipv6_ilkP, ipv7_ilkQ #) ->
case ipv7_ilkQ
of _ [Occ=Dead]
{ Local ds4_djm2 ds5_djm3 ds6_djm4 ds7_djm5 dt_djuT ds8_djm7
ds9_djm8 ds10_djm9 ->
let {
tk_XkQD [Dmd=<L,U(U,U,U(U,U,A,A,U),1*U,1*U)>] :: TypeRep
[LclId, Str=DmdType]
tk_XkQD = typeKey w2_stjs } in
let {
q_skFL :: Maybe (RuleInfo Action)
[LclId, Str=DmdType]
q_skFL =
case tk_XkQD
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt1_ilsE dt2_ilsF ds11_ilsG
ds12_ilsH ds13_ilsI ->
Development.Shake.Core.$wpoly_go2
@ (RuleInfo Action) dt1_ilsE dt1_ilsE dt2_ilsF 0 ww4_stjB
} } in
let {
a60_ss0R
:: S Global Local
-> (Value -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId, Arity=3, Str=DmdType <L,U><L,U><L,U>]
a60_ss0R =
\ (eta1_B3 [OS=OneShot] :: S Global Local)
(eta2_B2 [OS=OneShot] :: Value -> IO ())
(eta3_XaZ [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case q_skFL of _ [Occ=Dead] {
Nothing ->
case GHC.IO.Handle.Text.hPutStr2
stdout lvl83_rxuX GHC.Types.True eta3_XaZ
of _ [Occ=Dead] { (# ipv8_XlvS, ipv9_XlvU #) ->
case (\ _ [Occ=Dead, OS=OneShot] ->
case lvl79_rxuT tk_XkQD of wild2_00 { })
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# IO ())
of _ [Occ=Dead] {
}
};
Just ds11_djbS ->
case ds11_djbS
of _ [Occ=Dead]
{ RuleInfo ds12_djbT ds13_djbU ds14_djbV ds15_djbW ->
((((((ds14_djbV w2_stjs)
`cast` (Development.Shake.Core.NTCo:Action[0]
; Development.Shake.Monad.NTCo:RAW[0]
<Global>_R <Local>_R <Value>_N
; Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <Value>_N
:: Action Value ~R# (S Global Local -> ContT () IO Value)))
eta1_B3)
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <Value>_R
:: ContT () IO Value ~R# ((Value -> IO ()) -> IO ())))
eta2_B2)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
eta3_XaZ
}
} } in
case ds5_djm3 of _ [Occ=Dead] {
__DEFAULT ->
case GHC.IO.Handle.Text.hPutStr2
stdout GHC.Show.shows1 GHC.Types.True ipv6_ilkP
of _ [Occ=Dead] { (# ipv8_Xlws, ipv9_Xlwu #) ->
case GHC.IO.Handle.Text.hPutStr2
stdout
(GHC.Types.:
@ Char
GHC.Show.shows9
(GHC.Types.:
@ Char
GHC.Show.shows6
(GHC.Show.showLitString
lvl41_rxtY
(GHC.Types.:
@ Char
GHC.Show.shows6
(GHC.Types.:
@ Char
GHC.Show.showList__1
(GHC.List.foldr1_$sfoldr1
@ (String -> String)
GHC.Show.$fShow(,)1
(\ (eta1_ilrV :: String) ->
case q_skFL of _ [Occ=Dead] {
Nothing ->
letrec {
go5_iaAV [Occ=LoopBreaker] :: [Char] -> [Char]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go5_iaAV =
\ (ds12_iaAW :: [Char]) ->
case ds12_iaAW of _ [Occ=Dead] {
[] -> eta1_ilrV;
: y_iaB1 ys_iaB2 ->
GHC.Types.:
@ Char y_iaB1 (go5_iaAV ys_iaB2)
}; } in
go5_iaAV GHC.Show.shows17;
Just ipv10_ima1 ->
letrec {
go5_iaAV [Occ=LoopBreaker] :: [Char] -> [Char]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go5_iaAV =
\ (ds12_iaAW :: [Char]) ->
case ds12_iaAW of _ [Occ=Dead] {
[] -> eta1_ilrV;
: y_iaB1 ys_iaB2 ->
GHC.Types.:
@ Char y_iaB1 (go5_iaAV ys_iaB2)
}; } in
go5_iaAV GHC.Show.shows16
})
(GHC.Types.:
@ ShowS
(case tk_XkQD
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww12_iaVl ww13_iaVm
ww14_iaVn ww15_iaVo
ww16_iaVp ->
Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18 ww14_iaVn ww15_iaVo ww16_iaVp
})
(GHC.Types.[] @ ShowS))
lvl50_rxud))))))
GHC.Types.True
ipv8_Xlws
of _ [Occ=Dead] { (# ipv10_Xlwy, ipv11_XlwA #) ->
a60_ss0R
(Development.Shake.Monad.S
@ Global
@ Local
((GHC.STRef.STRef
@ GHC.Prim.RealWorld @ (SomeException -> IO ()) ipv3_XmzE)
`cast` (Sym GHC.IORef.NTCo:IORef[0] <SomeException -> IO ()>_N
:: GHC.STRef.STRef GHC.Prim.RealWorld (SomeException -> IO ())
~R# IORef (SomeException -> IO ())))
(Development.Shake.Core.Global
ww_stjx
ww1_stjy
ww2_stjz
ww3_stjA
ww4_stjB
ww5_stjC
ww6_stjD
ww7_stjE
ww8_stjF
ww9_stjG
ww10_stjH)
((GHC.STRef.STRef @ GHC.Prim.RealWorld @ Local ipv1_imaA)
`cast` (Sym GHC.IORef.NTCo:IORef[0] <Local>_N
:: GHC.STRef.STRef GHC.Prim.RealWorld Local ~R# IORef Local)))
((\ (x_ilFI :: Value)
(eta1_XoG [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local ipv1_imaA eta1_XoG
of _ [Occ=Dead] { (# ipv12_Xlxi, ipv13_Xlxk #) ->
a59_smbj
(Data.Either.Right
@ SomeException @ (Value, Local) (x_ilFI, ipv13_Xlxk))
ipv12_Xlxi
})
`cast` (<Value>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (Value
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (Value -> IO ())))
ipv10_Xlwy
}
};
Chatty ->
case GHC.IO.Handle.Text.hPutStr2
stdout
(GHC.Types.:
@ Char
GHC.Show.shows9
(GHC.Types.:
@ Char
GHC.Show.shows6
(GHC.Show.showLitString
lvl41_rxtY
(GHC.Types.:
@ Char
GHC.Show.shows6
(GHC.Types.:
@ Char
GHC.Show.showList__1
(GHC.List.foldr1_$sfoldr1
@ (String -> String)
GHC.Show.$fShow(,)1
(\ (eta1_ilrV :: String) ->
case q_skFL of _ [Occ=Dead] {
Nothing ->
letrec {
go5_iaAV [Occ=LoopBreaker] :: [Char] -> [Char]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go5_iaAV =
\ (ds11_iaAW :: [Char]) ->
case ds11_iaAW of _ [Occ=Dead] {
[] -> eta1_ilrV;
: y_iaB1 ys_iaB2 ->
GHC.Types.:
@ Char y_iaB1 (go5_iaAV ys_iaB2)
}; } in
go5_iaAV GHC.Show.shows17;
Just ipv8_ima1 ->
letrec {
go5_iaAV [Occ=LoopBreaker] :: [Char] -> [Char]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go5_iaAV =
\ (ds11_iaAW :: [Char]) ->
case ds11_iaAW of _ [Occ=Dead] {
[] -> eta1_ilrV;
: y_iaB1 ys_iaB2 ->
GHC.Types.:
@ Char y_iaB1 (go5_iaAV ys_iaB2)
}; } in
go5_iaAV GHC.Show.shows16
})
(GHC.Types.:
@ ShowS
(case tk_XkQD
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww12_iaVl ww13_iaVm
ww14_iaVn ww15_iaVo
ww16_iaVp ->
Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18 ww14_iaVn ww15_iaVo ww16_iaVp
})
(GHC.Types.[] @ ShowS))
lvl50_rxud))))))
GHC.Types.True
ipv6_ilkP
of _ [Occ=Dead] { (# ipv8_Xlwv, ipv9_Xlwx #) ->
a60_ss0R
(Development.Shake.Monad.S
@ Global
@ Local
((GHC.STRef.STRef
@ GHC.Prim.RealWorld @ (SomeException -> IO ()) ipv3_XmzE)
`cast` (Sym GHC.IORef.NTCo:IORef[0] <SomeException -> IO ()>_N
:: GHC.STRef.STRef GHC.Prim.RealWorld (SomeException -> IO ())
~R# IORef (SomeException -> IO ())))
(Development.Shake.Core.Global
ww_stjx
ww1_stjy
ww2_stjz
ww3_stjA
ww4_stjB
ww5_stjC
ww6_stjD
ww7_stjE
ww8_stjF
ww9_stjG
ww10_stjH)
((GHC.STRef.STRef @ GHC.Prim.RealWorld @ Local ipv1_imaA)
`cast` (Sym GHC.IORef.NTCo:IORef[0] <Local>_N
:: GHC.STRef.STRef GHC.Prim.RealWorld Local ~R# IORef Local)))
((\ (x_ilFI :: Value)
(eta1_XoG [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local ipv1_imaA eta1_XoG
of _ [Occ=Dead] { (# ipv10_Xlxi, ipv11_Xlxk #) ->
a59_smbj
(Data.Either.Right
@ SomeException @ (Value, Local) (x_ilFI, ipv11_Xlxk))
ipv10_Xlxi
})
`cast` (<Value>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (Value
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (Value -> IO ())))
ipv8_Xlwv
};
Diagnostic ->
case GHC.IO.Handle.Text.hPutStr2
stdout
(GHC.Types.:
@ Char
GHC.Show.shows9
(GHC.Types.:
@ Char
GHC.Show.shows6
(GHC.Show.showLitString
lvl41_rxtY
(GHC.Types.:
@ Char
GHC.Show.shows6
(GHC.Types.:
@ Char
GHC.Show.showList__1
(GHC.List.foldr1_$sfoldr1
@ (String -> String)
GHC.Show.$fShow(,)1
(\ (eta1_ilrV :: String) ->
case q_skFL of _ [Occ=Dead] {
Nothing ->
letrec {
go5_iaAV [Occ=LoopBreaker] :: [Char] -> [Char]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go5_iaAV =
\ (ds11_iaAW :: [Char]) ->
case ds11_iaAW of _ [Occ=Dead] {
[] -> eta1_ilrV;
: y_iaB1 ys_iaB2 ->
GHC.Types.:
@ Char y_iaB1 (go5_iaAV ys_iaB2)
}; } in
go5_iaAV GHC.Show.shows17;
Just ipv8_ima1 ->
letrec {
go5_iaAV [Occ=LoopBreaker] :: [Char] -> [Char]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go5_iaAV =
\ (ds11_iaAW :: [Char]) ->
case ds11_iaAW of _ [Occ=Dead] {
[] -> eta1_ilrV;
: y_iaB1 ys_iaB2 ->
GHC.Types.:
@ Char y_iaB1 (go5_iaAV ys_iaB2)
}; } in
go5_iaAV GHC.Show.shows16
})
(GHC.Types.:
@ ShowS
(case tk_XkQD
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww12_iaVl ww13_iaVm
ww14_iaVn ww15_iaVo
ww16_iaVp ->
Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18 ww14_iaVn ww15_iaVo ww16_iaVp
})
(GHC.Types.[] @ ShowS))
lvl50_rxud))))))
GHC.Types.True
ipv6_ilkP
of _ [Occ=Dead] { (# ipv8_Xlwv, ipv9_Xlwx #) ->
a60_ss0R
(Development.Shake.Monad.S
@ Global
@ Local
((GHC.STRef.STRef
@ GHC.Prim.RealWorld @ (SomeException -> IO ()) ipv3_XmzE)
`cast` (Sym GHC.IORef.NTCo:IORef[0] <SomeException -> IO ()>_N
:: GHC.STRef.STRef GHC.Prim.RealWorld (SomeException -> IO ())
~R# IORef (SomeException -> IO ())))
(Development.Shake.Core.Global
ww_stjx
ww1_stjy
ww2_stjz
ww3_stjA
ww4_stjB
ww5_stjC
ww6_stjD
ww7_stjE
ww8_stjF
ww9_stjG
ww10_stjH)
((GHC.STRef.STRef @ GHC.Prim.RealWorld @ Local ipv1_imaA)
`cast` (Sym GHC.IORef.NTCo:IORef[0] <Local>_N
:: GHC.STRef.STRef GHC.Prim.RealWorld Local ~R# IORef Local)))
((\ (x_ilFI :: Value)
(eta1_XoG [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local ipv1_imaA eta1_XoG
of _ [Occ=Dead] { (# ipv10_Xlxi, ipv11_Xlxk #) ->
a59_smbj
(Data.Either.Right
@ SomeException @ (Value, Local) (x_ilFI, ipv11_Xlxk))
ipv10_Xlxi
})
`cast` (<Value>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (Value
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (Value -> IO ())))
ipv8_Xlwv
}
}
}
})
(\ (e1_ilPt [OS=OneShot] :: SomeException)
(s_ilqr [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.IO.Handle.Text.hPutStr2
stdout lvl84_rxuZ GHC.Types.True s_ilqr
of _ [Occ=Dead] { (# ipv6_XlPL, ipv7_XlPN #) ->
a59_smbj
(Data.Either.Left @ SomeException @ (Value, Local) e1_ilPt)
ipv6_XlPL
})
ipv4_ilqu
of _ [Occ=Dead] { (# ipv6_XlPI, ipv7_XlPK #) ->
GHC.IO.Handle.Text.hPutStr2
stdout lvl78_rxuS GHC.Types.True ipv6_XlPI
}
}
}
}
a50_rxv3
:: forall t_ahCY.
Num t_ahCY =>
Global
-> Stack
-> Key
-> (Either SomeException (Value, [Depends], t_ahCY, [Trace])
-> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=6,
Str=DmdType <L,1*U(A,A,A,A,A,A,1*C1(U))><S,1*U(U,U,U,U,U,U,U(U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U),U,U,U,U)><L,U><L,U><L,C(C1(U(U,U)))><L,U>]
a50_rxv3 =
\ (@ t_ahCY)
(w_stjp :: Num t_ahCY)
(w1_stjq :: Global)
(w2_stjr :: Stack)
(w3_stjs :: Key)
(w4_stjt
:: Either SomeException (Value, [Depends], t_ahCY, [Trace])
-> IO ())
(w5_stju [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w1_stjq
of _ [Occ=Dead]
{ Global ww1_stjx ww2_stjy ww3_stjz ww4_stjA ww5_stjB ww6_stjC
ww7_stjD ww8_stjE ww9_stjF ww10_stjG ww11_stjH ->
$wa10_rxv2
@ t_ahCY
w_stjp
ww1_stjx
ww2_stjy
ww3_stjz
ww4_stjA
ww5_stjB
ww6_stjC
ww7_stjD
ww8_stjE
ww9_stjF
ww10_stjG
ww11_stjH
w2_stjr
w3_stjs
w4_stjt
w5_stju
}
lvl86_rxv5
:: forall v_Xfbz.
Either
[Either SomeException ([Depends], v_Xfbz) -> IO ()]
(Either SomeException ([Depends], v_Xfbz))
[GblId, Caf=NoCafRefs, Str=DmdType]
lvl86_rxv5 =
\ (@ v_Xfbz) ->
Data.Either.Left
@ [Either SomeException ([Depends], v_Xfbz) -> IO ()]
@ (Either SomeException ([Depends], v_Xfbz))
(GHC.Types.[]
@ (Either SomeException ([Depends], v_Xfbz) -> IO ()))
Development.Shake.Core.newCache2
:: forall k_af1e v_af1f.
(Eq k_af1e, Hashable k_af1e) =>
(k_af1e -> Action v_af1f)
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
k_af1e -> Action v_af1f #)
[GblId,
Arity=4,
Str=DmdType <L,U(C(C1(U)),A)><L,U(A,C(U(U)))><L,C(U)><L,U>]
Development.Shake.Core.newCache2 =
\ (@ k_af1e)
(@ v_Xfbz)
($dEq_afbW :: Eq k_af1e)
($dHashable_afbX :: Hashable k_af1e)
(act_aeBU :: k_af1e -> Action v_Xfbz)
(eta_X5Z [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.newMVar#
@ GHC.Prim.RealWorld
@ (Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz))))
eta_X5Z
of _ [Occ=Dead] { (# ipv_imLD, ipv1_imLE #) ->
case GHC.Prim.putMVar#
@ GHC.Prim.RealWorld
@ (Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz))))
ipv1_imLE
(unordered-containers-0.2.5.1:Data.HashMap.Base.Empty
@ k_af1e @ (Fence (Either SomeException ([Depends], v_Xfbz))))
ipv_imLD
of s2#_imLG [OS=OneShot] { __DEFAULT ->
(# s2#_imLG,
\ (key_aeBW :: k_af1e) ->
let {
a59_smMO [Dmd=<L,C(U)>] :: Action v_Xfbz
[LclId, Str=DmdType]
a59_smMO = act_aeBU key_aeBW } in
let {
a60_smVe
:: Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz)))
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz))),
Action v_Xfbz) #)
[LclId, Arity=2, Str=DmdType <S,U><L,U>]
a60_smVe =
\ (mp_aeBX
:: Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz))))
(eta1_X63 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case Map.lookup
@ k_af1e
@ (Fence (Either SomeException ([Depends], v_Xfbz)))
$dEq_afbW
$dHashable_afbX
key_aeBW
mp_aeBX
of _ [Occ=Dead] {
Nothing ->
case GHC.Prim.newMutVar#
@ (Either
[Either SomeException ([Depends], v_Xfbz) -> IO ()]
(Either SomeException ([Depends], v_Xfbz)))
@ GHC.Prim.RealWorld
(lvl86_rxv5 @ v_Xfbz)
eta1_X63
of _ [Occ=Dead] { (# ipv2_imMU, ipv3_imMV #) ->
(# ipv2_imMU,
(unordered-containers-0.2.5.1:Data.HashMap.Base.insert
@ k_af1e
@ (Fence (Either SomeException ([Depends], v_Xfbz)))
$dEq_afbW
$dHashable_afbX
key_aeBW
((GHC.STRef.STRef
@ GHC.Prim.RealWorld
@ (Either
[Either SomeException ([Depends], v_Xfbz) -> IO ()]
(Either SomeException ([Depends], v_Xfbz)))
ipv3_imMV)
`cast` (Sym GHC.IORef.NTCo:IORef[0] <Either
[Either
SomeException
([Depends], v_Xfbz)
-> IO ()]
(Either
SomeException
([Depends], v_Xfbz))>_N
; Sym
(General.Concurrent.NTCo:Fence[0]
<Either SomeException ([Depends], v_Xfbz)>_R)
:: GHC.STRef.STRef
GHC.Prim.RealWorld
(Either
[Either SomeException ([Depends], v_Xfbz) -> IO ()]
(Either SomeException ([Depends], v_Xfbz)))
~R# Fence (Either SomeException ([Depends], v_Xfbz))))
mp_aeBX,
(\ (r1_ilFF :: S Global Local)
(eta2_XaM :: v_Xfbz -> IO ())
(eta3_B1 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case r1_ilFF of wild1_ilT9 { S ds2_ilTb ds3_ilTc ds4_ilTd ->
case ds4_ilTd
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef var#_ilTh ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local var#_ilTh eta3_B1
of _ [Occ=Dead] { (# ipv4_ilTl, ipv5_ilTm #) ->
let {
lvl116_sliV [Dmd=<L,U(U)>] :: Int
[LclId, Str=DmdType]
lvl116_sliV =
case ipv5_ilTm
of _ [Occ=Dead]
{ Local ds6_djmm ds7_djmn ds8_djmo ds9_djmp dt_djuV ds10_djmr
ds11_djms ds12_djmt ->
case GHC.List.$wlenAcc @ Depends ds9_djmp 0
of ww2_ib1S { __DEFAULT ->
GHC.Types.I# ww2_ib1S
}
} } in
((((Development.Shake.Monad.tryRAW1
@ Global
@ Local
@ v_Xfbz
(a59_smMO
`cast` (Development.Shake.Core.NTCo:Action[0] <v_Xfbz>_N
:: Action v_Xfbz ~R# RAW Global Local v_Xfbz))
wild1_ilT9)
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <Either SomeException v_Xfbz>_R
:: ContT () IO (Either SomeException v_Xfbz)
~R# ((Either SomeException v_Xfbz -> IO ()) -> IO ())))
((\ (x_ilFI :: Either SomeException v_Xfbz)
(eta4_XaV [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case x_ilFI of _ [Occ=Dead] {
Left err_aeCc ->
case General.Concurrent.$wa
@ (Either SomeException ([Depends], v_Xfbz))
ipv3_imMV
(Data.Either.Left
@ SomeException @ ([Depends], v_Xfbz) err_aeCc)
eta4_XaV
of _ [Occ=Dead] { (# ipv6_XlN3, ipv7_XlN5 #) ->
case GHC.Prim.raiseIO#
@ SomeException @ v_Xfbz err_aeCc ipv6_XlN3
of wild4_00 {
}
};
Right v1_aeCd ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local var#_ilTh eta4_XaV
of _ [Occ=Dead] { (# ipv6_Xm4H, ipv7_Xm4J #) ->
case General.Concurrent.$wa
@ (Either SomeException ([Depends], v_Xfbz))
ipv3_imMV
(Data.Either.Right
@ SomeException
@ ([Depends], v_Xfbz)
(case ipv7_Xm4J
of _ [Occ=Dead]
{ Local ds7_djmm ds8_djmn ds9_djmo ds10_djmp
dt_djuV ds11_djmr ds12_djms ds13_djmt ->
case GHC.List.$wlenAcc @ Depends ds10_djmp 0
of ww2_ib1S { __DEFAULT ->
case lvl116_sliV
of _ [Occ=Dead] { GHC.Types.I# y_iaHW ->
let {
y1_ikr8 :: GHC.Prim.Int#
[LclId, Str=DmdType]
y1_ikr8 = GHC.Prim.-# ww2_ib1S y_iaHW } in
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.<# 0 y1_ikr8)
of _ [Occ=Dead] {
False -> GHC.Types.[] @ Depends;
True ->
GHC.List.$wunsafeTake
@ Depends y1_ikr8 ds10_djmp
}
}
}
},
v1_aeCd))
ipv6_Xm4H
of _ [Occ=Dead] { (# ipv8_XlNd, ipv9_XlNf #) ->
((eta2_XaM v1_aeCd)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
() #))))
ipv8_XlNd
}
}
})
`cast` (<Either SomeException v_Xfbz>_R
-> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (Either SomeException v_Xfbz
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (Either SomeException v_Xfbz -> IO ()))))
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv4_ilTl
}
}
})
`cast` ((<S Global Local>_R
-> (<v_Xfbz -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <v_Xfbz>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <v_Xfbz>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <v_Xfbz>_N
:: (S Global Local
-> (v_Xfbz -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# Action v_Xfbz)) #)
};
Just bar_aeBY ->
(# eta1_X63,
(mp_aeBX,
(\ (r1_Xm7H :: S Global Local)
(eta2_XaH :: v_Xfbz -> IO ())
(eta3_B1 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case bar_aeBY
`cast` (General.Concurrent.NTCo:Fence[0]
<Either SomeException ([Depends], v_Xfbz)>_R
; GHC.IORef.NTCo:IORef[0] <Either
[Either
SomeException
([Depends], v_Xfbz)
-> IO ()]
(Either
SomeException
([Depends], v_Xfbz))>_N
:: Fence (Either SomeException ([Depends], v_Xfbz))
~R# GHC.STRef.STRef
GHC.Prim.RealWorld
(Either
[Either SomeException ([Depends], v_Xfbz)
-> IO ()]
(Either SomeException ([Depends], v_Xfbz))))
of _ [Occ=Dead] { GHC.STRef.STRef var#_imUM ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld
@ (Either
[Either SomeException ([Depends], v_Xfbz) -> IO ()]
(Either SomeException ([Depends], v_Xfbz)))
var#_imUM
eta3_B1
of _ [Occ=Dead] { (# ipv2_imUQ, ipv3_imUR #) ->
case ipv3_imUR of _ [Occ=Dead] {
Left x_imUZ ->
case r1_Xm7H of _ [Occ=Dead] { S ww1_ilWm ww2_ilWn ww3_ilWo ->
case ww1_ilWm
`cast` (GHC.IORef.NTCo:IORef[0] <SomeException -> IO ()>_N
:: IORef (SomeException -> IO ())
~R# GHC.STRef.STRef
GHC.Prim.RealWorld (SomeException -> IO ()))
of _ [Occ=Dead] { GHC.STRef.STRef ww5_ilWw ->
Development.Shake.Monad.$wa
@ (Either SomeException ([Depends], v_Xfbz))
@ Global
@ Local
((\ (k1_aeC2 [OS=OneShot]
:: Either
SomeException (Either SomeException ([Depends], v_Xfbz))
-> IO ())
(eta4_Xs0 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
let {
a61_spD0
:: Either SomeException ([Depends], v_Xfbz)
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId,
Arity=2,
Str=DmdType <L,U><L,U> {aeC2-><L,1*C1(C(U(U,A)))>
ilWn-><S(LSLLLLLLLLL),1*U(A,1*U(U,U),A,A,A,A,A,A,A,A,A)>},
Unf=Unf{Src=InlineStable, TopLvl=False, Value=True,
ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=False)
Tmpl= \ (v1_aeC3 [Occ=Once]
:: Either
SomeException ([Depends], v_Xfbz))
(eta5_Xs2 [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case ww2_ilWn
of _ [Occ=Dead]
{ Global _ [Occ=Dead] ds3_djjv [Occ=Once!]
_ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] ->
case ds3_djjv
of _ [Occ=Dead]
{ Development.Shake.Pool.Pool ww7_ilVY [Occ=Once]
ww8_ilVZ [Occ=Once] ->
Development.Shake.Pool.$wa
@ ()
ww7_ilVY
ww8_ilVZ
(k1_aeC2
(Data.Either.Right
@ SomeException
@ (Either
SomeException
([Depends], v_Xfbz))
v1_aeC3))
eta5_Xs2
}
}}]
a61_spD0 =
\ (v1_aeC3 :: Either SomeException ([Depends], v_Xfbz))
(eta5_Xs2 [OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case ww2_ilWn
of _ [Occ=Dead]
{ Global ds2_djju ds3_djjv ds4_djjw ds5_djjx ds6_djjy
ds7_djjz ds8_djjA ds9_djjB ds10_djjC ds11_djjD
ds12_djjE ->
case ds3_djjv
of _ [Occ=Dead]
{ Development.Shake.Pool.Pool ww7_ilVY ww8_ilVZ ->
Development.Shake.Pool.$wa
@ ()
ww7_ilVY
ww8_ilVZ
(k1_aeC2
(Data.Either.Right
@ SomeException
@ (Either SomeException ([Depends], v_Xfbz))
v1_aeC3))
eta5_Xs2
}
} } in
case GHC.Prim.atomicModifyMutVar#
@ GHC.Prim.RealWorld
@ (Either
[Either SomeException ([Depends], v_Xfbz) -> IO ()]
(Either SomeException ([Depends], v_Xfbz)))
@ (Either
[Either SomeException ([Depends], v_Xfbz) -> IO ()]
(Either SomeException ([Depends], v_Xfbz)),
IO ())
@ (IO ())
var#_imUM
(\ (x1_ipBV
:: Either
[Either SomeException ([Depends], v_Xfbz)
-> IO ()]
(Either SomeException ([Depends], v_Xfbz))) ->
case x1_ipBV of wild3_ipBW {
Left queue_ipBY ->
(Data.Either.Left
@ [Either SomeException ([Depends], v_Xfbz)
-> IO ()]
@ (Either SomeException ([Depends], v_Xfbz))
(GHC.Types.:
@ (Either SomeException ([Depends], v_Xfbz)
-> IO ())
(a61_spD0
`cast` (<Either
SomeException
([Depends], v_Xfbz)>_R
-> Sym
(GHC.Types.NTCo:IO[0] <()>_R)
:: (Either
SomeException
([Depends], v_Xfbz)
-> GHC.Prim.State#
GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
() #))
~R# (Either
SomeException
([Depends], v_Xfbz)
-> IO ())))
queue_ipBY),
General.Concurrent.waitFence2
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
() #))
~R# IO ()));
Right v1_ipC2 ->
(wild3_ipBW,
(a61_spD0 v1_ipC2)
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
() #))
~R# IO ()))
})
eta4_Xs0
of _ [Occ=Dead] { (# ipv4_ipC6, ipv5_ipC7 #) ->
(ipv5_ipC7
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
() #))))
ipv4_ipC6
})
`cast` (<Either
SomeException (Either SomeException ([Depends], v_Xfbz))
-> IO ()>_R
-> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: ((Either
SomeException
(Either SomeException ([Depends], v_Xfbz))
-> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# ((Either
SomeException
(Either SomeException ([Depends], v_Xfbz))
-> IO ())
-> IO ())))
ww5_ilWw
((\ (x1_ilFI :: Either SomeException ([Depends], v_Xfbz))
(eta4_XaP [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case x1_ilFI of _ [Occ=Dead] {
Left err_aeC5 ->
case GHC.Prim.raiseIO#
@ SomeException @ v_Xfbz err_aeC5 eta4_XaP
of wild4_00 {
};
Right ds2_dj91 ->
case ds2_dj91 of _ [Occ=Dead] { (deps_aeC6, v1_aeC7) ->
case ww3_ilWo
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local
~R# GHC.STRef.STRef
GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef var#1_ilTN ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local var#1_ilTN eta4_XaP
of _ [Occ=Dead] { (# ipv4_ilTR, ipv5_ilTS #) ->
case ipv5_ilTS
of _ [Occ=Dead]
{ Local ds4_dj8Q ds5_dj8R ds6_dj8S ds7_dj8T dt_djuK ds8_dj8V
ds9_dj8W ds10_dj8X ->
case GHC.Prim.writeMutVar#
@ GHC.Prim.RealWorld
@ Local
var#1_ilTN
(Development.Shake.Core.Local
ds4_dj8Q
ds5_dj8R
ds6_dj8S
(++ @ Depends deps_aeC6 ds7_dj8T)
dt_djuK
ds8_dj8V
ds9_dj8W
ds10_dj8X)
ipv4_ilTR
of s2#1_ilTV [OS=OneShot] { __DEFAULT ->
((eta2_XaH v1_aeC7)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
() #))))
s2#1_ilTV
}
}
}
}
}
})
`cast` (<Either SomeException ([Depends], v_Xfbz)>_R
-> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (Either SomeException ([Depends], v_Xfbz)
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (Either SomeException ([Depends], v_Xfbz)
-> IO ())))
ipv2_imUQ
}
};
Right y_imUW ->
case y_imUW of _ [Occ=Dead] {
Left err_aeC5 ->
case GHC.Prim.raiseIO# @ SomeException @ v_Xfbz err_aeC5 ipv2_imUQ
of wild4_00 {
};
Right ds2_dj91 ->
case ds2_dj91 of _ [Occ=Dead] { (deps_aeC6, v1_aeC7) ->
case r1_Xm7H of _ [Occ=Dead] { S ds3_ilTH ds4_ilTI ds5_ilTJ ->
case ds5_ilTJ
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local
~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef var#1_ilTN ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local var#1_ilTN ipv2_imUQ
of _ [Occ=Dead] { (# ipv4_ilTR, ipv5_ilTS #) ->
case ipv5_ilTS
of _ [Occ=Dead]
{ Local ds7_dj8Q ds8_dj8R ds9_dj8S ds10_dj8T dt_djuK ds11_dj8V
ds12_dj8W ds13_dj8X ->
case GHC.Prim.writeMutVar#
@ GHC.Prim.RealWorld
@ Local
var#1_ilTN
(Development.Shake.Core.Local
ds7_dj8Q
ds8_dj8R
ds9_dj8S
(++ @ Depends deps_aeC6 ds10_dj8T)
dt_djuK
ds11_dj8V
ds12_dj8W
ds13_dj8X)
ipv4_ilTR
of s2#1_ilTV [OS=OneShot] { __DEFAULT ->
((eta2_XaH v1_aeC7)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
() #))))
s2#1_ilTV
}
}
}
}
}
}
}
}
}
})
`cast` ((<S Global Local>_R
-> (<v_Xfbz -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <v_Xfbz>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <v_Xfbz>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <v_Xfbz>_N
:: (S Global Local
-> (v_Xfbz -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# Action v_Xfbz)) #)
} } in
let {
lvl116_svwX
:: GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, Action v_Xfbz #)
[LclId, Arity=1, Str=DmdType]
lvl116_svwX =
\ (eta1_Xnem [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.takeMVar#
@ GHC.Prim.RealWorld
@ (Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz))))
ipv1_imLE
eta1_Xnem
of _ [Occ=Dead] { (# ipv2_XlMB, ipv3_XlMD #) ->
case GHC.Prim.catch#
@ (Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz))),
Action v_Xfbz)
@ SomeException
(GHC.Prim.unmaskAsyncExceptions#
@ (Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz))),
Action v_Xfbz)
(\ (s_XlMC [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case a60_smVe ipv3_XlMD s_XlMC
of _ [Occ=Dead] { (# ipv4_XlMH, ipv5_XlMJ #) ->
GHC.Prim.seq#
@ (Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz))),
Action v_Xfbz)
@ GHC.Prim.RealWorld
ipv5_XlMJ
ipv4_XlMH
}))
(\ (e1_imVR [OS=OneShot] :: SomeException)
(eta2_imVS [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.putMVar#
@ GHC.Prim.RealWorld
@ (Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz))))
ipv1_imLE
ipv3_XlMD
eta2_imVS
of s2#1_imWg [OS=OneShot] { __DEFAULT ->
GHC.Prim.raiseIO#
@ SomeException
@ (Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz))),
Action v_Xfbz)
e1_imVR
s2#1_imWg
})
ipv2_XlMB
of _ [Occ=Dead] { (# ipv4_XlMG, ipv5_XlMI #) ->
case ipv5_XlMI of _ [Occ=Dead] { (a'_imMI, b1_imMJ) ->
case GHC.Prim.putMVar#
@ GHC.Prim.RealWorld
@ (Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz))))
ipv1_imLE
a'_imMI
ipv4_XlMG
of s2#1_imWg [OS=OneShot] { __DEFAULT ->
(# s2#1_imWg, b1_imMJ #)
}
}
}
} } in
(\ (r1_ilFF :: S Global Local)
(c_ilFH :: v_Xfbz -> IO ())
(eta1_B1 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.getMaskingState# eta1_B1
of _ [Occ=Dead] { (# ipv2_imVq, ipv3_imVr #) ->
case ipv3_imVr of _ [Occ=Dead] {
__DEFAULT ->
case GHC.Prim.takeMVar#
@ GHC.Prim.RealWorld
@ (Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz))))
ipv1_imLE
ipv2_imVq
of _ [Occ=Dead] { (# ipv4_XlMB, ipv5_XlMD #) ->
case GHC.Prim.catch#
@ (Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz))),
Action v_Xfbz)
@ SomeException
(\ (s_XlMC [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case a60_smVe ipv5_XlMD s_XlMC
of _ [Occ=Dead] { (# ipv6_XlMH, ipv7_XlMJ #) ->
GHC.Prim.seq#
@ (Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz))),
Action v_Xfbz)
@ GHC.Prim.RealWorld
ipv7_XlMJ
ipv6_XlMH
})
(\ (e1_imVR [OS=OneShot] :: SomeException)
(eta2_imVS [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.putMVar#
@ GHC.Prim.RealWorld
@ (Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz))))
ipv1_imLE
ipv5_XlMD
eta2_imVS
of s2#1_imWg [OS=OneShot] { __DEFAULT ->
GHC.Prim.raiseIO#
@ SomeException
@ (Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz))),
Action v_Xfbz)
e1_imVR
s2#1_imWg
})
ipv4_XlMB
of _ [Occ=Dead] { (# ipv6_XlMG, ipv7_XlMI #) ->
case ipv7_XlMI of _ [Occ=Dead] { (a'_imMI, b1_imMJ) ->
case GHC.Prim.putMVar#
@ GHC.Prim.RealWorld
@ (Map.HashMap
k_af1e (Fence (Either SomeException ([Depends], v_Xfbz))))
ipv1_imLE
a'_imMI
ipv6_XlMG
of s2#1_imWg [OS=OneShot] { __DEFAULT ->
(((((b1_imMJ
`cast` (Development.Shake.Core.NTCo:Action[0]
; Development.Shake.Monad.NTCo:RAW[0]
<Global>_R <Local>_R <v_Xfbz>_N
; Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <v_Xfbz>_N
:: Action v_Xfbz ~R# (S Global Local -> ContT () IO v_Xfbz)))
r1_ilFF)
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <v_Xfbz>_R
:: ContT () IO v_Xfbz ~R# ((v_Xfbz -> IO ()) -> IO ())))
c_ilFH)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
s2#1_imWg
}
}
}
};
0 ->
case GHC.Prim.maskAsyncExceptions#
@ (Action v_Xfbz) lvl116_svwX ipv2_imVq
of _ [Occ=Dead] { (# ipv4_XlMG, ipv5_XlMI #) ->
(((((ipv5_XlMI
`cast` (Development.Shake.Core.NTCo:Action[0]
; Development.Shake.Monad.NTCo:RAW[0]
<Global>_R <Local>_R <v_Xfbz>_N
; Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <v_Xfbz>_N
:: Action v_Xfbz ~R# (S Global Local -> ContT () IO v_Xfbz)))
r1_ilFF)
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <v_Xfbz>_R
:: ContT () IO v_Xfbz ~R# ((v_Xfbz -> IO ()) -> IO ())))
c_ilFH)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv4_XlMG
}
}
})
`cast` ((<S Global Local>_R
-> (<v_Xfbz -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0] <()>_N <IO>_R <v_Xfbz>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <v_Xfbz>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <v_Xfbz>_N
:: (S Global Local
-> (v_Xfbz -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# Action v_Xfbz) #)
}
}
Development.Shake.Core.traced2 :: [Char]
[GblId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=False, ConLike=False,
WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 40 0}]
Development.Shake.Core.traced2 = GHC.CString.unpackCString# ")"#
Development.Shake.Core.traced3 :: [Char]
[GblId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=False, ConLike=False,
WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 30 0}]
Development.Shake.Core.traced3 =
++
@ Char
Development.Shake.Database.showStack2
Development.Shake.Core.traced2
Development.Shake.Core.traced1
:: forall a_af3r.
String -> IO a_af3r -> S Global Local -> ContT () IO a_af3r
[GblId,
Arity=3,
Str=DmdType <L,U><L,C(U(U,U))><L,U(A,U(A,A,A,C(U(U,1*U(U))),A,C(C1(C1(U(U,A)))),A,A,A,A,A),U(U))>,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [0 0 20] 809 60}]
Development.Shake.Core.traced1 =
\ (@ a59_af3r)
(msg_aezu :: String)
(act_aezv :: IO a59_af3r)
(eta_X5S :: S Global Local) ->
let {
a60_smKF :: Data.ByteString.Internal.ByteString
[LclId, Str=DmdType]
a60_smKF =
Data.ByteString.Internal.unsafePackLenChars
(case GHC.List.$wlenAcc @ Char msg_aezu 0
of ww2_imKA { __DEFAULT ->
GHC.Types.I# ww2_imKA
})
msg_aezu } in
(\ (c_ilFH :: a59_af3r -> IO ())
(eta1_B1 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case eta_X5S of _ [Occ=Dead] { S ds_ilUJ ds1_ilUK ds2_ilUL ->
case ds1_ilUK
of _ [Occ=Dead]
{ Global ds3_djbC ds4_djbD ds5_djbE ds6_djbF ds7_djbG ds8_djbH
ds9_djbI ds10_djbJ ds11_djbK ds12_djbL ds13_djbM ->
case ds2_ilUL
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef var#_ilTh ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local var#_ilTh eta1_B1
of _ [Occ=Dead] { (# ipv_ilTl, ipv1_ilTm #) ->
case (ds6_djbF
`cast` (GHC.Types.NTCo:IO[0] <Seconds>_R
:: IO Seconds
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, Seconds #))))
ipv_ilTl
of _ [Occ=Dead] { (# ipv2_ilkP, ipv3_ilkQ #) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local var#_ilTh ipv2_ilkP
of _ [Occ=Dead] { (# ipv4_Xm4S, ipv5_Xm4U #) ->
case ipv5_Xm4U
of _ [Occ=Dead]
{ Local ds17_djm2 ds18_djm3 ds19_djm4 ds20_djm5 dt_djuT ds21_djm7
ds22_djm8 ds23_djm9 ->
let {
msg1_aezN :: String
[LclId, Str=DmdType]
msg1_aezN =
GHC.CString.unpackAppendCString#
"# "#
(++
@ Char
msg_aezu
(GHC.CString.unpackAppendCString#
" (for "#
(case ipv1_ilTm
of _ [Occ=Dead]
{ Local ds24_djlS ds25_djlT ds26_djlU ds27_djlV dt1_djuS ds28_djlX
ds29_djlY ds30_djlZ ->
case ds24_djlS
of _ [Occ=Dead]
{ Development.Shake.Database.Stack key_ik5J ds31_ik5K ds32_ik5L ->
case key_ik5J of _ [Occ=Dead] {
Nothing -> Development.Shake.Core.traced3;
Just x1_ik5S ->
case x1_ik5S
`cast` (Development.Shake.Value.NTCo:Key[0] :: Key ~R# Value)
of _ [Occ=Dead]
{ Development.Shake.Value.Value @ a61_imqt $dEq_imqu $dShow_imqv
$dTypeable_imqw $dHashable_imqx
$dBinary_imqy $dNFData_imqz a62_imqA ->
++
@ Char
(show @ a61_imqt $dShow_imqv a62_imqA)
Development.Shake.Core.traced2
}
}
}
}))) } in
let {
$wa19_stk2 [InlPrag=[0]]
:: GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId, Arity=1, Str=DmdType <L,U>]
$wa19_stk2 =
\ (w_stk1 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (act_aezv
`cast` (GHC.Types.NTCo:IO[0] <a59_af3r>_R
:: IO a59_af3r
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, a59_af3r #))))
w_stk1
of _ [Occ=Dead] { (# ipv6_Xlwa, ipv7_Xlwc #) ->
case (ds6_djbF
`cast` (GHC.Types.NTCo:IO[0] <Seconds>_R
:: IO Seconds
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, Seconds #))))
ipv6_Xlwa
of _ [Occ=Dead] { (# ipv8_Xlwh, ipv9_Xlwj #) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local var#_ilTh ipv8_Xlwh
of _ [Occ=Dead] { (# ipv10_ilTR, ipv11_ilTS #) ->
case ipv11_ilTS
of _ [Occ=Dead]
{ Local ds27_djbr ds28_djbs ds29_djbt ds30_djbu dt1_djuy ds31_djbw
ds32_djbx ds33_djby ->
case GHC.Prim.writeMutVar#
@ GHC.Prim.RealWorld
@ Local
var#_ilTh
(Development.Shake.Core.Local
ds27_djbr
ds28_djbs
ds29_djbt
ds30_djbu
dt1_djuy
(GHC.Types.:
@ Trace
(Development.Shake.Database.Trace
(a60_smKF
`cast` (Sym General.String.NTCo:BS[0]
:: Data.ByteString.Internal.ByteString ~R# BS))
(case ipv3_ilkQ of _ [Occ=Dead] { GHC.Types.D# x_imL4 ->
GHC.Types.F# (GHC.Prim.double2Float# x_imL4)
})
(case ipv9_Xlwj of _ [Occ=Dead] { GHC.Types.D# x_imL4 ->
GHC.Types.F# (GHC.Prim.double2Float# x_imL4)
}))
ds31_djbw)
ds32_djbx
ds33_djby)
ipv10_ilTR
of s2#_ilTV [OS=OneShot] { __DEFAULT ->
((c_ilFH ipv7_Xlwc)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
s2#_ilTV
}
}
}
}
} } in
case ds18_djm3 of _ [Occ=Dead] {
__DEFAULT -> $wa19_stk2 ipv4_Xm4S;
Normal ->
case ((ds8_djbH Development.Shake.Types.Normal msg1_aezN)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv4_Xm4S
of _ [Occ=Dead] { (# ipv6_Xlwy, ipv7_XlwA #) ->
$wa19_stk2 ipv6_Xlwy
};
Loud ->
case ((ds8_djbH Development.Shake.Types.Normal msg1_aezN)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv4_Xm4S
of _ [Occ=Dead] { (# ipv6_Xlwy, ipv7_XlwA #) ->
$wa19_stk2 ipv6_Xlwy
};
Chatty ->
case ((ds8_djbH Development.Shake.Types.Normal msg1_aezN)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv4_Xm4S
of _ [Occ=Dead] { (# ipv6_Xlwy, ipv7_XlwA #) ->
$wa19_stk2 ipv6_Xlwy
};
Diagnostic ->
case ((ds8_djbH Development.Shake.Types.Normal msg1_aezN)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv4_Xm4S
of _ [Occ=Dead] { (# ipv6_Xlwy, ipv7_XlwA #) ->
$wa19_stk2 ipv6_Xlwy
}
}
}
}
}
}
}
}
})
`cast` ((<a59_af3r -> IO ()>_R
-> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0] <()>_N <IO>_R <a59_af3r>_R)
:: ((a59_af3r -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# ContT () IO a59_af3r)
Development.Shake.Core.withResource1
:: forall a_af1B.
Resource
-> Int -> Action a_af1B -> S Global Local -> ContT () IO a_af1B
[GblId,
Arity=4,
Str=DmdType <L,U(A,U,C(C1(C1(C1(U(U,U))))),C(C1(U)))><L,U(U)><L,C(C1(C1(U(U,U))))><L,U(U(U),U(U,U,U,U,U,U,U,U,U,U,U),U)>]
Development.Shake.Core.withResource1 =
\ (@ a59_af1B)
(r_XeGw :: Resource)
(i_XeGy :: Int)
(act_XeGA :: Action a59_af1B)
(eta_X5K :: S Global Local) ->
let {
lvl116_slhM :: [Char]
[LclId, Str=DmdType]
lvl116_slhM =
case r_XeGw
of _ [Occ=Dead]
{ Development.Shake.Resource.Resource ds1_ikqQ ds2_ikqR ds3_ikqS
ds4_ikqT ->
++
@ Char
ds2_ikqR
(GHC.CString.unpackAppendCString#
" waiting to acquire "#
(case i_XeGy of _ [Occ=Dead] { GHC.Types.I# ww3_ib8x ->
case GHC.Show.$wshowSignedInt 0 ww3_ib8x (GHC.Types.[] @ Char)
of _ [Occ=Dead] { (# ww5_ib8B, ww6_ib8C #) ->
GHC.Types.: @ Char ww5_ib8B ww6_ib8C
}
}))
} } in
let {
lvl117_slhQ :: [Char]
[LclId, Str=DmdType]
lvl117_slhQ =
case r_XeGw
of _ [Occ=Dead]
{ Development.Shake.Resource.Resource ds1_ikqQ ds2_ikqR ds3_ikqS
ds4_ikqT ->
++
@ Char
ds2_ikqR
(GHC.CString.unpackAppendCString#
" acquired "#
(case i_XeGy of _ [Occ=Dead] { GHC.Types.I# ww3_ib8x ->
case GHC.Show.$wshowSignedInt 0 ww3_ib8x (GHC.Types.[] @ Char)
of _ [Occ=Dead] { (# ww5_ib8B, ww6_ib8C #) ->
GHC.Types.: @ Char ww5_ib8B ww6_ib8C
}
}))
} } in
let {
a60_smGK :: [Char]
[LclId, Str=DmdType]
a60_smGK =
GHC.CString.unpackAppendCString#
"Within withResource using "#
(case r_XeGw
of _ [Occ=Dead]
{ Development.Shake.Resource.Resource ds1_ikqQ ds2_ikqR ds3_ikqS
ds4_ikqT ->
ds2_ikqR
}) } in
let {
a61_smGJ
:: S Global Local
-> (a59_af1B -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId, Arity=3, Str=DmdType]
a61_smGJ =
Development.Shake.Core.unsafeExtraThread3
@ a59_af1B a60_smGK act_XeGA } in
let {
lvl118_slhY :: [Char]
[LclId, Str=DmdType]
lvl118_slhY =
case r_XeGw
of _ [Occ=Dead]
{ Development.Shake.Resource.Resource ds1_ikqQ ds2_ikqR ds3_ikqS
ds4_ikqT ->
++
@ Char
ds2_ikqR
(GHC.CString.unpackAppendCString#
" released "#
(case i_XeGy of _ [Occ=Dead] { GHC.Types.I# ww3_ib8x ->
case GHC.Show.$wshowSignedInt 0 ww3_ib8x (GHC.Types.[] @ Char)
of _ [Occ=Dead] { (# ww5_ib8B, ww6_ib8C #) ->
GHC.Types.: @ Char ww5_ib8B ww6_ib8C
}
}))
} } in
(\ (c_ilFH :: a59_af1B -> IO ())
(eta1_B1 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case eta_X5K of wild_ilUH { S ds_ilUJ ds1_ilUK ds2_ilUL ->
case ds1_ilUK
of _ [Occ=Dead]
{ Global ds3_dj9s ds4_dj9t ds5_dj9u ds6_dj9v ds7_dj9w ds8_dj9x
ds9_dj9y ds10_dj9z ds11_dj9A ds12_dj9B ds13_dj9C ->
case ((ds10_dj9z lvl116_slhM)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
eta1_B1
of _ [Occ=Dead] { (# ipv_ilkP, ipv1_ilkQ #) ->
case ds_ilUJ
`cast` (GHC.IORef.NTCo:IORef[0] <SomeException -> IO ()>_N
:: IORef (SomeException -> IO ())
~R# GHC.STRef.STRef GHC.Prim.RealWorld (SomeException -> IO ()))
of _ [Occ=Dead] { GHC.STRef.STRef ww5_ilWw ->
let {
lvl119_svx1 :: IO ()
[LclId, Str=DmdType]
lvl119_svx1 =
let {
eta2_XmAW [Dmd=<L,C(U(U,A))>] :: IO ()
[LclId, Str=DmdType]
eta2_XmAW =
case r_XeGw
of _ [Occ=Dead]
{ Development.Shake.Resource.Resource ds15_ik4t ds16_ik4u ds17_ik4v
ds18_ik4w ->
ds18_ik4w ds4_dj9t i_XeGy
} } in
let {
eta3_Xn1D [Dmd=<L,C(U(U,A))>] :: IO ()
[LclId, Str=DmdType]
eta3_Xn1D = ds10_dj9z lvl118_slhY } in
((Development.Shake.Monad.tryRAW1
@ Global
@ Local
@ a59_af1B
(a61_smGJ
`cast` ((<S Global Local>_R
-> (<a59_af1B -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af1B>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af1B>_N)
; Sym
(Development.Shake.Monad.NTCo:RAW[0]
<Global>_R <Local>_R) <a59_af1B>_N
:: (S Global Local
-> (a59_af1B -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# RAW Global Local a59_af1B))
wild_ilUH)
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <Either SomeException a59_af1B>_R
:: ContT () IO (Either SomeException a59_af1B)
~R# ((Either SomeException a59_af1B -> IO ()) -> IO ())))
((\ (x_ilFI :: Either SomeException a59_af1B)
(eta4_Xbg [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (eta2_XmAW
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
eta4_Xbg
of _ [Occ=Dead] { (# ipv2_Xlwa, ipv3_Xlwc #) ->
case (eta3_Xn1D
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_Xlwa
of _ [Occ=Dead] { (# ipv4_Xlwg, ipv5_Xlwi #) ->
case x_ilFI of _ [Occ=Dead] {
Left x1_ik3X ->
case GHC.Prim.raiseIO# @ SomeException @ a59_af1B x1_ik3X ipv4_Xlwg
of wild3_00 {
};
Right y_ik40 ->
((c_ilFH y_ik40)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv4_Xlwg
}
}
})
`cast` (<Either SomeException a59_af1B>_R
-> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (Either SomeException a59_af1B
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (Either SomeException a59_af1B -> IO ()))) } in
Development.Shake.Monad.$wa
@ ()
@ Global
@ Local
(\ (continue_aeBL [OS=OneShot]
:: Either SomeException () -> IO ()) ->
case r_XeGw
of _ [Occ=Dead]
{ Development.Shake.Resource.Resource ds15_ik4l ds16_ik4m ds17_ik4n
ds18_ik4o ->
ds17_ik4n
ds4_dj9t
i_XeGy
((\ (s_ilqr [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case ((ds10_dj9z lvl117_slhQ)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
s_ilqr
of _ [Occ=Dead] { (# ipv2_ilqu, ipv3_ilqv #) ->
((continue_aeBL lvl9_rxts)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_ilqu
})
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# IO ()))
})
ww5_ilWw
(\ _ [Occ=Dead] -> lvl119_svx1)
ipv_ilkP
}
}
}
})
`cast` ((<a59_af1B -> IO ()>_R
-> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0] <()>_N <IO>_R <a59_af1B>_R)
:: ((a59_af1B -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# ContT () IO a59_af1B)
a51_rxv6
:: forall (m_af7l :: * -> *).
Map.HashMap TypeRep (RuleInfo m_af7l)
-> Key
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, Maybe Value #)
[GblId, Arity=3, Caf=NoCafRefs, Str=DmdType <S,1*U><S,U><L,U>]
a51_rxv6 =
\ (@ (m_af7l :: * -> *))
(mp_aew4 :: Map.HashMap TypeRep (RuleInfo m_af7l))
(k_aew5 :: Key)
(eta_XmO [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case typeKey k_aew5
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww1_stkc ww2_stkd ww3_stke
ww4_stkf ww5_stkg ->
case Development.Shake.Core.$wpoly_go2
@ (RuleInfo m_af7l) ww1_stkc ww1_stkc ww2_stkd 0 mp_aew4
of _ [Occ=Dead] {
Nothing -> (# eta_XmO, GHC.Base.Nothing @ Value #);
Just ds_djdl ->
case ds_djdl
of _ [Occ=Dead] { RuleInfo ds1_djdm ds2_djdn ds3_djdo ds4_djdp ->
((ds1_djdm k_aew5)
`cast` (GHC.Types.NTCo:IO[0] <Maybe Value>_R
:: IO (Maybe Value)
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, Maybe Value #))))
eta_XmO
}
}
}
Development.Shake.Core.$fMonadRules2
:: Functor (WriterT (SRules Action) IO)
[GblId,
Str=DmdType m,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=False, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.$fMonadRules_$s$fFunctorWriterT
@ (SRules Action)}]
Development.Shake.Core.$fMonadRules2 =
Development.Shake.Core.$fMonadRules_$s$fFunctorWriterT
@ (SRules Action)
Development.Shake.Core.fromAction1
:: forall a_aeHg. Action a_aeHg -> Action a_aeHg
[GblId,
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S,1*U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=True)
Tmpl= \ (@ a59_aeHg) (ds_djlp [Occ=Once] :: Action a59_aeHg) ->
ds_djlp}]
Development.Shake.Core.fromAction1 =
\ (@ a59_aeHg) (ds_djlp :: Action a59_aeHg) -> ds_djlp
Development.Shake.Core.$dmequalValue
:: forall key_aeta value_aetb.
Rule key_aeta value_aetb =>
ShakeOptions -> key_aeta -> value_aetb -> value_aetb -> EqualCost
[GblId,
Arity=5,
Caf=NoCafRefs,
Str=DmdType <S(LS(LLS(C(C(S))L)LLL)LL),1*U(A,1*U(A,A,1*U(1*C1(C1(U)),A),A,A,A),A,A)><L,A><L,A><L,U><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ key_aeta)
(@ value_aetb)
($dRule_aivB [Occ=Once] :: Rule key_aeta value_aetb)
_ [Occ=Dead]
_ [Occ=Dead]
(eta2_XaT [Occ=Once] :: value_aetb)
(eta3_B1 [Occ=Once] :: value_aetb) ->
case Development.Shake.Core.$p2Rule
@ key_aeta @ value_aetb $dRule_aivB
of _ [Occ=Dead]
{ (_ [Occ=Dead], _ [Occ=Dead], tpl2_X35 [Occ=Once], _ [Occ=Dead], _ [Occ=Dead], _ [Occ=Dead]) ->
case == @ value_aetb tpl2_X35 eta2_XaT eta3_B1 of _ [Occ=Dead] {
False -> Development.Shake.Types.NotEqual;
True -> Development.Shake.Types.EqualCheap
}
}}]
Development.Shake.Core.$dmequalValue =
\ (@ key_aeta)
(@ value_aetb)
($dRule_aivB :: Rule key_aeta value_aetb)
_ [Occ=Dead]
_ [Occ=Dead]
(eta2_XaT :: value_aetb)
(eta3_B1 :: value_aetb) ->
case Development.Shake.Core.$p2Rule
@ key_aeta @ value_aetb $dRule_aivB
of _ [Occ=Dead]
{ (tpl_X31, tpl1_X33, tpl2_X35, tpl3_X37, tpl4_B5, tpl5_B6) ->
case == @ value_aetb tpl2_X35 eta2_XaT eta3_B1 of _ [Occ=Dead] {
False -> Development.Shake.Types.NotEqual;
True -> Development.Shake.Types.EqualCheap
}
}
runEqual_resM
:: forall (m_aetU :: * -> *).
Map.HashMap TypeRep (RuleInfo m_aetU)
-> Key -> Value -> Value -> EqualCost
[GblId, Arity=4, Caf=NoCafRefs, Str=DmdType <S,1*U><S,U><L,U><L,U>]
runEqual_resM =
\ (@ (m_af7a :: * -> *))
(mp_aewa :: Map.HashMap TypeRep (RuleInfo m_af7a))
(k_aewb :: Key)
(v1_aewc :: Value)
(v2_aewd :: Value) ->
case typeKey k_aewb
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww1_stkq ww2_stkr ww3_stks
ww4_stkt ww5_stku ->
case Development.Shake.Core.$wpoly_go2
@ (RuleInfo m_af7a) ww1_stkq ww1_stkq ww2_stkr 0 mp_aewa
of _ [Occ=Dead] {
Nothing -> Development.Shake.Types.NotEqual;
Just ds_djdf ->
case ds_djdf
of _ [Occ=Dead] { RuleInfo ds1_djdg ds2_djdh ds3_djdi ds4_djdj ->
ds2_djdh k_aewb v1_aewc v2_aewd
}
}
}
runStored_resL
:: forall (m_aetV :: * -> *).
Map.HashMap TypeRep (RuleInfo m_aetV) -> Key -> IO (Maybe Value)
[GblId, Arity=3, Caf=NoCafRefs, Str=DmdType <S,1*U><S,U><L,U>]
runStored_resL =
a51_rxv6
`cast` (forall (m_af7l :: * -> *).
<Map.HashMap TypeRep (RuleInfo m_af7l)>_R
-> <Key>_R -> Sym (GHC.Types.NTCo:IO[0] <Maybe Value>_R)
:: (forall (m_af7l :: * -> *).
Map.HashMap TypeRep (RuleInfo m_af7l)
-> Key
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, Maybe Value #))
~R# (forall (m_af7l :: * -> *).
Map.HashMap TypeRep (RuleInfo m_af7l) -> Key -> IO (Maybe Value)))
lvl87_rxv7 :: [Char]
[GblId, Str=DmdType]
lvl87_rxv7 = GHC.CString.unpackCString# ":"#
Rec {
go1_rxv8 :: [(String, Maybe String)] -> [(String, String)]
[GblId, Arity=1, Caf=NoCafRefs, Str=DmdType <S,1*U>]
go1_rxv8 =
\ (ds_iaAW :: [(String, Maybe String)]) ->
case ds_iaAW of _ [Occ=Dead] {
[] -> GHC.Types.[] @ (String, String);
: y_iaB1 ys_iaB2 ->
case y_iaB1 of _ [Occ=Dead] { (a59_aeuo, ds1_djeZ) ->
case ds1_djeZ of _ [Occ=Dead] {
Nothing -> go1_rxv8 ys_iaB2;
Just b_aeup ->
GHC.Types.:
@ (String, String) (a59_aeuo, b_aeup) (go1_rxv8 ys_iaB2)
}
}
}
end Rec }
lvl88_rxv9
:: forall a_afaW.
String -> [(String, Maybe String)] -> String -> a_afaW
[GblId, Arity=3, Str=DmdType <L,U><L,U><L,U>b]
lvl88_rxv9 =
\ (@ a59_afaW)
(msg_aeuj :: String)
(args_aeuk :: [(String, Maybe String)])
(hint_aeul :: String) ->
error
@ a59_afaW
(unlines
(GHC.Types.:
@ [Char]
(++ @ Char msg_aeuj lvl87_rxv7)
(let {
args2_skGs [Dmd=<S,U>] :: [(String, String)]
[LclId, Str=DmdType]
args2_skGs = go1_rxv8 args_aeuk } in
let {
as_skGr [Dmd=<L,U(U)>] :: Int
[LclId, Str=DmdType]
as_skGr =
GHC.List.strictMaximum
@ Int
GHC.Classes.$fOrdInt
(GHC.Types.:
@ Int
Development.Shake.Core.$slookup1
(map @ ([Char], String) @ Int lvl66_rxuC args2_skGs)) } in
let {
z_iaAT :: [[Char]]
[LclId, Str=DmdType]
z_iaAT =
case GHC.Classes.$fEq[]_$s$c==1 hint_aeul (GHC.Types.[] @ Char)
of _ [Occ=Dead] {
False -> GHC.Types.: @ [Char] hint_aeul (GHC.Types.[] @ [Char]);
True -> GHC.Types.[] @ [Char]
} } in
letrec {
go5_XaMh [Occ=LoopBreaker] :: [(String, String)] -> [[Char]]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go5_XaMh =
\ (ds_iaAW :: [(String, String)]) ->
case ds_iaAW of _ [Occ=Dead] {
[] -> z_iaAT;
: y_iaB1 ys_iaB2 ->
case y_iaB1 of _ [Occ=Dead] { (a60_aeuq, b_aeur) ->
GHC.Types.:
@ [Char]
(GHC.CString.unpackAppendCString#
" "#
(++
@ Char
a60_aeuq
(let {
n_XaMR :: [Char]
[LclId, Str=DmdType]
n_XaMR =
case as_skGr of _ [Occ=Dead] { GHC.Types.I# x_iaHS ->
case GHC.List.$wlenAcc @ Char a60_aeuq 0
of ww2_ib1S { __DEFAULT ->
let {
y1_iaBc :: GHC.Prim.Int#
[LclId, Str=DmdType]
y1_iaBc = GHC.Prim.+# (GHC.Prim.-# x_iaHS ww2_ib1S) 2 } in
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# 0 y1_iaBc)
of _ [Occ=Dead] {
False -> b_aeur;
True ->
let {
lvl116_svx5 :: [Char]
[LclId, Str=DmdType]
lvl116_svx5 = GHC.Types.: @ Char lvl64_rxuA b_aeur } in
letrec {
$wxs_stkC [InlPrag=[0], Occ=LoopBreaker]
:: GHC.Prim.Int# -> [Char]
[LclId, Arity=1, Str=DmdType <S,1*U>]
$wxs_stkC =
\ (ww_stkA :: GHC.Prim.Int#) ->
case ww_stkA of ds1_iaIV {
__DEFAULT ->
GHC.Types.:
@ Char
lvl64_rxuA
($wxs_stkC (GHC.Prim.-# ds1_iaIV 1));
1 -> lvl116_svx5
}; } in
$wxs_stkC y1_iaBc
}
}
} } in
case GHC.Classes.$fEq[]_$s$c==1 a60_aeuq (GHC.Types.[] @ Char)
of _ [Occ=Dead] {
False -> GHC.Types.: @ Char lvl65_rxuB n_XaMR;
True -> n_XaMR
})))
(go5_XaMh ys_iaB2)
}
}; } in
go5_XaMh args2_skGs)))
lvl89_rxva :: String
[GblId, Str=DmdType b]
lvl89_rxva =
Control.Exception.Base.absentError @ String "ww_stkV String"#
lvl90_rxvb :: String
[GblId, Str=DmdType b]
lvl90_rxvb =
Control.Exception.Base.absentError @ String "ww_stkW String"#
Rec {
go2_rxvc :: [Integer] -> [TypeRep] -> [(String, Maybe String)]
[GblId, Arity=2, Str=DmdType <S,1*U><L,1*U>]
go2_rxvc =
\ (ds_iaLN :: [Integer]) (_ys_iaLO :: [TypeRep]) ->
case ds_iaLN of _ [Occ=Dead] {
[] -> GHC.Types.[] @ (String, Maybe String);
: ipv_iaLT ipv1_iaLU ->
case _ys_iaLO of _ [Occ=Dead] {
[] -> GHC.Types.[] @ (String, Maybe String);
: ipv2_iaM0 ipv3_iaM1 ->
GHC.Types.:
@ (String, Maybe String)
(GHC.CString.unpackAppendCString#
"Answer type "#
(case GHC.Show.$w$cshowsPrec1 0 ipv_iaLT (GHC.Types.[] @ Char)
of _ [Occ=Dead] { (# ww3_iaUn, ww4_iaUo #) ->
GHC.Types.: @ Char ww3_iaUn ww4_iaUo
}),
GHC.Base.Just
@ String (Data.Typeable.Internal.$fShowTypeRep_$cshow ipv2_iaM0))
(go2_rxvc ipv1_iaLU ipv3_iaM1)
}
}
end Rec }
lvl91_rxvd
:: forall a_aeu8.
Maybe String
-> [TypeRep]
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> a_aeu8
[GblId, Arity=7, Str=DmdType <L,U><L,U><L,U><L,U><L,U><L,U><L,U>b]
lvl91_rxvd =
\ (@ a59_aeu8)
(w_stkK :: Maybe String)
(w1_stkL :: [TypeRep])
(ww_stkT :: GHC.Prim.Word#)
(ww1_stkU :: GHC.Prim.Word#)
(ww2_stkX :: String)
(ww3_stkZ :: [Data.Typeable.Internal.KindRep])
(ww4_stl0 :: [TypeRep]) ->
lvl88_rxv9
@ a59_aeu8
lvl72_rxuI
(GHC.Types.:
@ (String, Maybe String)
(lvl71_rxuH,
GHC.Base.Just
@ String
(Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18
(Data.Typeable.Internal.TyCon
ww_stkT ww1_stkU lvl89_rxva lvl90_rxvb ww2_stkX)
ww3_stkZ
ww4_stl0
(GHC.Types.[] @ Char)))
(GHC.Types.:
@ (String, Maybe String)
(lvl70_rxuG, w_stkK)
(go2_rxvc lvl69_rxuF w1_stkL)))
lvl67_rxuD
$werrorDuplicateOracle_rxve
:: forall a_aeu8.
GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> Maybe String
-> [TypeRep]
-> a_aeu8
[GblId,
Arity=7,
Str=DmdType <B,U><B,U><B,U><B,1*U><B,1*U><B,U><B,1*U>b]
$werrorDuplicateOracle_rxve =
\ (@ a59_aeu8)
(ww_stkT :: GHC.Prim.Word#)
(ww1_stkU :: GHC.Prim.Word#)
(ww2_stkX :: String)
(ww3_stkZ :: [Data.Typeable.Internal.KindRep])
(ww4_stl0 :: [TypeRep])
(w_stkK :: Maybe String)
(w1_stkL :: [TypeRep]) ->
lvl91_rxvd
@ a59_aeu8
w_stkK
w1_stkL
ww_stkT
ww1_stkU
ww2_stkX
ww3_stkZ
ww4_stl0
lvl92_rxvf
:: forall (m_aiI1 :: * -> *).
TyCon
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> TyCon
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> TyCon
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
[GblId,
Arity=9,
Str=DmdType <L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U>b]
lvl92_rxvf =
\ (@ (m_aiI1 :: * -> *))
(tc_iaEg :: TyCon)
(ds1_iaEh :: [Data.Typeable.Internal.KindRep])
(trs_iaEi :: [TypeRep])
(ds5_ik9d :: TyCon)
(ds6_ik9e :: [Data.Typeable.Internal.KindRep])
(ds7_ik9f :: [TypeRep])
(ww_stle :: TyCon)
(ww1_stlf :: [Data.Typeable.Internal.KindRep])
(ww2_stlg :: [TypeRep]) ->
lvl88_rxv9
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
lvl77_rxuN
(GHC.Types.:
@ (String, Maybe String)
(lvl22_rxtF,
GHC.Base.Just
@ String
(Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18 tc_iaEg ds1_iaEh trs_iaEi (GHC.Types.[] @ Char)))
(GHC.Types.:
@ (String, Maybe String)
(lvl76_rxuM,
GHC.Base.Just
@ String
(Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18 ww_stle ww1_stlf ww2_stlg (GHC.Types.[] @ Char)))
(GHC.Types.:
@ (String, Maybe String)
(lvl75_rxuL,
GHC.Base.Just
@ String
(Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18 ds5_ik9d ds6_ik9e ds7_ik9f (GHC.Types.[] @ Char)))
(GHC.Types.[] @ (String, Maybe String)))))
lvl74_rxuK
lvl93_rxvg
:: forall (m_aiI1 :: * -> *).
[Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> TypeRep
-> TypeRep
-> (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
[GblId, Arity=7, Str=DmdType <L,U><L,U><L,U><L,U><L,U><L,U><L,U>b]
lvl93_rxvg =
\ (@ (m_aiI1 :: * -> *))
(ds1_iaEh :: [Data.Typeable.Internal.KindRep])
(trs_iaEi :: [TypeRep])
(dt_iaMk :: GHC.Prim.Word#)
(dt1_iaMl :: GHC.Prim.Word#)
(ds3_iaMo :: String)
(wild_ik91 :: TypeRep)
(ww_stln :: TypeRep) ->
$werrorDuplicateOracle_rxve
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
dt_iaMk
dt1_iaMl
ds3_iaMo
ds1_iaEh
trs_iaEi
(GHC.Base.Nothing @ String)
(GHC.Types.:
@ TypeRep
wild_ik91
(GHC.Types.: @ TypeRep ww_stln (GHC.Types.[] @ TypeRep)))
$wlvl11_rxvh
:: forall (m_aiI1 :: * -> *).
TypeRep
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> TyCon
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> [(Double, ARule m_aiI1)]
-> TypeRep
-> [(Double, ARule m_aiI1)]
-> (# TypeRep, TypeRep, [(Double, ARule m_aiI1)] #)
[GblId,
Arity=9,
Str=DmdType <L,U><L,U><L,U><L,U(U,U,U,U,U)><L,U><L,U><L,1*U><S,1*U><L,1*U>]
$wlvl11_rxvh =
\ (@ (m_aiI1 :: * -> *))
(ww_stl8 :: TypeRep)
(ww1_stlc :: GHC.Prim.Word#)
(ww2_stld :: GHC.Prim.Word#)
(ww3_stle :: TyCon)
(ww4_stlf :: [Data.Typeable.Internal.KindRep])
(ww5_stlg :: [TypeRep])
(ww6_stli :: [(Double, ARule m_aiI1)])
(ww7_stln [OS=OneShot] :: TypeRep)
(ww8_stlo [OS=OneShot] :: [(Double, ARule m_aiI1)]) ->
case ww7_stln
of wild1_ik99
{ Data.Typeable.Internal.TypeRep dt2_ik9b dt3_ik9c ds5_ik9d
ds6_ik9e ds7_ik9f ->
let {
wild_ik91 :: TypeRep
[LclId, Str=DmdType]
wild_ik91 =
Data.Typeable.Internal.TypeRep
ww1_stlc ww2_stld ww3_stle ww4_stlf ww5_stlg } in
let {
$j_slHY
:: GHC.Prim.Void# -> (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
[LclId, Arity=1, Str=DmdType <B,A>b]
$j_slHY =
\ _ [Occ=Dead, OS=OneShot] ->
case ww_stl8
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt_iaEe dt1_iaEf tc_iaEg ds1_iaEh
trs_iaEi ->
case tc_iaEg
of wild3_iaMi
{ Data.Typeable.Internal.TyCon dt4_iaMk dt5_iaMl ds2_iaMm ds3_iaMn
ds4_iaMo ->
case GHC.Base.eqString ds4_iaMo lvl73_rxuJ of _ [Occ=Dead] {
False ->
lvl92_rxvf
@ m_aiI1
wild3_iaMi
ds1_iaEh
trs_iaEi
ds5_ik9d
ds6_ik9e
ds7_ik9f
ww3_stle
ww4_stlf
ww5_stlg;
True ->
lvl93_rxvg
@ m_aiI1
ds1_iaEh
trs_iaEi
dt4_iaMk
dt5_iaMl
ds4_iaMo
wild_ik91
wild1_ik99
}
}
} } in
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# ww1_stlc dt2_ik9b)
of _ [Occ=Dead] {
False -> case $j_slHY GHC.Prim.void# of wild3_00 { };
True ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# ww2_stld dt3_ik9c)
of _ [Occ=Dead] {
False -> case $j_slHY GHC.Prim.void# of wild4_00 { };
True ->
(# ww_stl8,
wild_ik91,
++ @ (Double, ARule m_aiI1) ww6_stli ww8_stlo #)
}
}
}
lvl94_rxvi
:: forall (m_aiI1 :: * -> *).
(TypeRep, TypeRep, [(Double, ARule m_aiI1)])
-> (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
-> (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
[GblId,
Arity=2,
Str=DmdType <S(LSL),1*U(U,1*U(U,U,U(U,U,U,U,U),U,U),1*U)><S(LSL),1*U(A,1*U,1*U)>m]
lvl94_rxvi =
\ (@ (m_aiI1 :: * -> *))
(w_stl4 :: (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
(w1_stl5 [OS=OneShot]
:: (TypeRep, TypeRep, [(Double, ARule m_aiI1)])) ->
case w_stl4 of _ [Occ=Dead] { (ww1_stl8, ww2_stl9, ww3_stli) ->
case ww2_stl9
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww5_stlc ww6_stld ww7_stle
ww8_stlf ww9_stlg ->
case w1_stl5 of _ [Occ=Dead] { (ww11_stlm, ww12_stln, ww13_stlo) ->
case $wlvl11_rxvh
@ m_aiI1
ww1_stl8
ww5_stlc
ww6_stld
ww7_stle
ww8_stlf
ww9_stlg
ww3_stli
ww12_stln
ww13_stlo
of _ [Occ=Dead] { (# ww15_stu1, ww16_stu2, ww17_stu3 #) ->
(ww15_stu1, ww16_stu2, ww17_stu3)
}
}
}
}
alts_rest :: [([Char], [Char])]
[GblId, Str=DmdType m2]
alts_rest = GHC.Types.: @ ([Char], [Char]) a30_rxt3 a27_rxt0
Rec {
$wunsafeDrop_rxvj
:: forall a1_iaBN. GHC.Prim.Int# -> [a1_iaBN] -> [a1_iaBN]
[GblId, Arity=2, Caf=NoCafRefs, Str=DmdType <L,1*U><S,1*U>]
$wunsafeDrop_rxvj =
\ (@ a59_iaBN) (ww_stlx :: GHC.Prim.Int#) (w_stlu :: [a59_iaBN]) ->
case w_stlu of _ [Occ=Dead] {
[] -> GHC.Types.[] @ a59_iaBN;
: ipv1_iaBY ipv2_iaBZ ->
case ww_stlx of ds3_iaC1 {
__DEFAULT ->
$wunsafeDrop_rxvj @ a59_iaBN (GHC.Prim.-# ds3_iaC1 1) ipv2_iaBZ;
1 -> ipv2_iaBZ
}
}
end Rec }
Rec {
g_rxvk :: [Char] -> [Char]
[GblId, Arity=1, Str=DmdType <L,U>]
g_rxvk =
\ (xs_aeuy :: [Char]) ->
case filter
@ ([Char], [Char])
(\ (ds_djg2 [OS=ProbOneShot] :: ([Char], [Char])) ->
case ds_djg2 of _ [Occ=Dead] { (a59_aeuz, b_aeuA) ->
isPrefixOf @ Char GHC.Classes.$fEqChar a59_aeuz xs_aeuy
})
alts_rest
of _ [Occ=Dead] {
[] ->
case xs_aeuy of _ [Occ=Dead] {
[] -> GHC.Types.[] @ Char;
: x_aeuD xs1_aeuE -> GHC.Types.: @ Char x_aeuD (g_rxvk xs1_aeuE)
};
: ds_djg4 ds1_djg5 ->
case ds_djg4 of _ [Occ=Dead] { (a59_aeuB, b_aeuC) ->
++
@ Char
b_aeuC
(g_rxvk
(case GHC.List.$wlenAcc @ Char a59_aeuB 0
of ww2_ib1S { __DEFAULT ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<=# ww2_ib1S 0)
of _ [Occ=Dead] {
False -> $wunsafeDrop_rxvj @ Char ww2_ib1S xs_aeuy;
True -> xs_aeuy
}
}))
}
}
end Rec }
lvl95_rxvl
:: forall a_afaO.
Bool -> String -> [(String, Maybe String)] -> String -> a_afaO
[GblId, Arity=4, Str=DmdType <L,U><L,U><L,U><L,U>b]
lvl95_rxvl =
\ (@ a59_afaO)
(alt_aeus :: Bool)
(msg_aeut :: String)
(args_aeuu :: [(String, Maybe String)])
(hint_aeuv :: String) ->
let {
f_skGk :: [Char] -> [Char]
[LclId, Arity=1, Str=DmdType <L,U>]
f_skGk =
\ (x_iaBu :: [Char]) ->
case alt_aeus of _ [Occ=Dead] {
False -> filter @ Char a44_rxu5 x_iaBu;
True -> filter @ Char a44_rxu5 (g_rxvk x_iaBu)
} } in
lvl88_rxv9
@ a59_afaO
(f_skGk msg_aeut)
(map
@ ([Char], Maybe String)
@ (String, Maybe String)
(\ (ds_iaTu [OS=ProbOneShot] :: ([Char], Maybe String)) ->
(f_skGk
(case ds_iaTu of _ [Occ=Dead] { (x_iaTx, y_iaTy) -> x_iaTx }),
case ds_iaTu of _ [Occ=Dead] { (x_iaTC, y_iaTD) -> y_iaTD }))
args_aeuu)
(f_skGk hint_aeuv)
structured_resv
:: forall a_aeue.
Bool -> String -> [(String, Maybe String)] -> String -> a_aeue
[GblId, Arity=4, Str=DmdType <B,U><B,U><B,1*U><B,U>b]
structured_resv = lvl95_rxvl
$wa11_rxvm
:: [(Double, ARule Action)]
-> IO ()
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId, Arity=3, Str=DmdType <S,1*U><L,1*C1(U(U,U))><L,U>]
$wa11_rxvm =
\ (ww_stlJ :: [(Double, ARule Action)])
(w_stlD [OS=OneShot] :: IO ())
(w1_stlE [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case ww_stlJ of _ [Occ=Dead] {
[] -> case lvl35_rxtS of wild1_00 { };
: ds_djhq ds1_djhr ->
case ds_djhq of _ [Occ=Dead] { (ds2_djhs, ds3_djht) ->
case ds3_djht
of _ [Occ=Dead]
{ ARule @ key_aibQ @ value_aibR $dRule_aibS r_aevx ->
case Development.Shake.Value.witness
`cast` (GHC.IORef.NTCo:IORef[0] <Map.HashMap TypeRep Value>_N
:: IORef (Map.HashMap TypeRep Value)
~R# GHC.STRef.STRef GHC.Prim.RealWorld (Map.HashMap TypeRep Value))
of _ [Occ=Dead] { GHC.STRef.STRef r#_ipLB ->
let {
tup_skFr [Dmd=<L,U(1*U,U,1*U,1*U,1*U,1*U)>] :: ShakeValue key_aibQ
[LclId, Str=DmdType]
tup_skFr =
Development.Shake.Core.$p1Rule
@ key_aibQ @ value_aibR $dRule_aibS } in
let {
lvl116_ipLA [Dmd=<L,U(U,U,U,U,U)>] :: TypeRep
[LclId, Str=DmdType]
lvl116_ipLA =
case tup_skFr
of _ [Occ=Dead]
{ (tpl_Xol, tpl1_Xon, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
(tpl1_Xon
`cast` (Data.Typeable.Internal.NTCo:Typeable[0] <*>_N <key_aibQ>_N
:: Typeable key_aibQ ~R# (GHC.Prim.Proxy# key_aibQ -> TypeRep)))
(GHC.Prim.proxy# @ * @ key_aibQ)
} } in
let {
w2_ipLr :: Eq key_aibQ
[LclId, Str=DmdType]
w2_ipLr =
case tup_skFr
of _ [Occ=Dead]
{ (tpl_Xol, tpl1_Xon, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl2_B3
} } in
let {
w3_ipLs :: Show key_aibQ
[LclId, Str=DmdType]
w3_ipLs =
case tup_skFr
of _ [Occ=Dead]
{ (tpl_Xol, tpl1_Xon, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl_Xol
} } in
let {
w4_ipLu :: Hashable key_aibQ
[LclId, Str=DmdType]
w4_ipLu =
case tup_skFr
of _ [Occ=Dead]
{ (tpl_Xol, tpl1_Xon, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl3_B4
} } in
let {
w5_ipLv :: Binary key_aibQ
[LclId, Str=DmdType]
w5_ipLv =
case tup_skFr
of _ [Occ=Dead]
{ (tpl_Xol, tpl1_Xon, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl4_B5
} } in
let {
w6_ipLw :: NFData key_aibQ
[LclId, Str=DmdType]
w6_ipLw =
case tup_skFr
of _ [Occ=Dead]
{ (tpl_Xol, tpl1_Xon, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl5_B6
} } in
let {
w7_ipLt :: Typeable key_aibQ
[LclId, Str=DmdType]
w7_ipLt =
case tup_skFr
of _ [Occ=Dead]
{ (tpl_Xol, tpl1_Xon, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl1_Xon
} } in
let {
a59_svRC :: key_aibQ
[LclId, Str=DmdType]
a59_svRC =
Development.Shake.Value.registerWitness2 @ key_aibQ w7_ipLt } in
let {
lvl117_ipLF :: Value
[LclId, Str=DmdType]
lvl117_ipLF =
Development.Shake.Value.Value
@ key_aibQ
w2_ipLr
w3_ipLs
w7_ipLt
w4_ipLu
w5_ipLv
w6_ipLw
a59_svRC } in
case GHC.Prim.atomicModifyMutVar#
@ GHC.Prim.RealWorld
@ (Map.HashMap TypeRep Value)
@ (Map.HashMap TypeRep Value, ())
@ ()
r#_ipLB
(\ (mp_ipLG :: Map.HashMap TypeRep Value) ->
(case lvl116_ipLA
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt_ipLK dt1_ipLL ds4_ipLM ds5_ipLN
ds6_ipLO ->
Development.Shake.Value.$wpoly_go3
@ Value
dt_ipLK
dt_ipLK
dt1_ipLL
ds4_ipLM
ds5_ipLN
ds6_ipLO
lvl117_ipLF
0
mp_ipLG
},
GHC.Tuple.()))
w1_stlE
of _ [Occ=Dead] { (# ipv_ilqu, ipv1_ilqv #) ->
let {
tup1_skFs [Dmd=<L,U(1*U,U,1*U,1*U,1*U,1*U)>]
:: ShakeValue value_aibR
[LclId, Str=DmdType]
tup1_skFs =
Development.Shake.Core.$p2Rule
@ key_aibQ @ value_aibR $dRule_aibS } in
let {
lvl118_XpZ0 [Dmd=<L,U(U,U,U,U,U)>] :: TypeRep
[LclId, Str=DmdType]
lvl118_XpZ0 =
case tup1_skFs
of _ [Occ=Dead]
{ (tpl_Xol, tpl1_Xon, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
(tpl1_Xon
`cast` (Data.Typeable.Internal.NTCo:Typeable[0]
<*>_N <value_aibR>_N
:: Typeable value_aibR
~R# (GHC.Prim.Proxy# value_aibR -> TypeRep)))
(GHC.Prim.proxy# @ * @ value_aibR)
} } in
let {
w8_XpYB :: Eq value_aibR
[LclId, Str=DmdType]
w8_XpYB =
case tup1_skFs
of _ [Occ=Dead]
{ (tpl_Xol, tpl1_Xon, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl2_B3
} } in
let {
w9_XpYE :: Show value_aibR
[LclId, Str=DmdType]
w9_XpYE =
case tup1_skFs
of _ [Occ=Dead]
{ (tpl_Xol, tpl1_Xon, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl_Xol
} } in
let {
w10_XpYK :: Hashable value_aibR
[LclId, Str=DmdType]
w10_XpYK =
case tup1_skFs
of _ [Occ=Dead]
{ (tpl_Xol, tpl1_Xon, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl3_B4
} } in
let {
w11_XpYN :: Binary value_aibR
[LclId, Str=DmdType]
w11_XpYN =
case tup1_skFs
of _ [Occ=Dead]
{ (tpl_Xol, tpl1_Xon, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl4_B5
} } in
let {
w12_XpYQ :: NFData value_aibR
[LclId, Str=DmdType]
w12_XpYQ =
case tup1_skFs
of _ [Occ=Dead]
{ (tpl_Xol, tpl1_Xon, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl5_B6
} } in
let {
w13_XpYH :: Typeable value_aibR
[LclId, Str=DmdType]
w13_XpYH =
case tup1_skFs
of _ [Occ=Dead]
{ (tpl_Xol, tpl1_Xon, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl1_Xon
} } in
let {
a60_svRM :: value_aibR
[LclId, Str=DmdType]
a60_svRM =
Development.Shake.Value.registerWitness2 @ value_aibR w13_XpYH } in
let {
lvl119_XpZ9 :: Value
[LclId, Str=DmdType]
lvl119_XpZ9 =
Development.Shake.Value.Value
@ value_aibR
w8_XpYB
w9_XpYE
w13_XpYH
w10_XpYK
w11_XpYN
w12_XpYQ
a60_svRM } in
case GHC.Prim.atomicModifyMutVar#
@ GHC.Prim.RealWorld
@ (Map.HashMap TypeRep Value)
@ (Map.HashMap TypeRep Value, ())
@ ()
r#_ipLB
(\ (mp_ipLG :: Map.HashMap TypeRep Value) ->
(case lvl118_XpZ0
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt_ipLK dt1_ipLL ds5_ipLM ds6_ipLN
ds7_ipLO ->
Development.Shake.Value.$wpoly_go3
@ Value
dt_ipLK
dt_ipLK
dt1_ipLL
ds5_ipLM
ds6_ipLN
ds7_ipLO
lvl119_XpZ9
0
mp_ipLG
},
GHC.Tuple.()))
ipv_ilqu
of _ [Occ=Dead] { (# ipv2_XlE4, ipv3_XlE6 #) ->
(w_stlD
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_XlE4
}
}
}
}
}
}
Rec {
$wa12_rxvn
:: unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> IO ()
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=5,
Str=DmdType <L,1*U(U)><L,U><L,U><L,1*C1(U(U,U))><L,U>]
$wa12_rxvn =
\ (w_stme
:: unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])))
(ww_stml :: GHC.Prim.Int#)
(ww1_stmp :: GHC.Prim.Int#)
(w1_stmh :: IO ())
(w2_stmi [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.>=# ww1_stmp ww_stml)
of _ [Occ=Dead] {
False ->
case w_stme
of wild_ikJM
{ unordered-containers-0.2.5.1:Data.HashMap.Array.Array ds1_ikJO ->
case GHC.Prim.indexArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
ds1_ikJO
ww1_stmp
of _ [Occ=Dead] { (# ipv_ik1i #) ->
case ipv_ik1i
of _ [Occ=Dead]
{ unordered-containers-0.2.5.1:Data.HashMap.Base.L k1_ik1m
v1_ik1n ->
case v1_ik1n of _ [Occ=Dead] { (ww3_stlH, ww4_stlI, ww5_stlJ) ->
$wa11_rxvm
ww5_stlJ
((\ (w3_Xtzp [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
$wa12_rxvn
wild_ikJM ww_stml (GHC.Prim.+# ww1_stmp 1) w1_stmh w3_Xtzp)
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# IO ()))
w2_stmi
}
}
}
};
True ->
(w1_stmh
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
w2_stmi
}
end Rec }
Rec {
$wa13_rxvo
:: unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> IO ()
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=5,
Str=DmdType <L,U(U)><L,U><L,U><L,1*C1(U(U,U))><L,U>]
$wa13_rxvo =
\ (w_stm0
:: unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])))
(ww_stm7 :: GHC.Prim.Int#)
(ww1_stmb :: GHC.Prim.Int#)
(w1_stm3 :: IO ())
(w2_stm4 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.>=# ww1_stmb ww_stm7)
of _ [Occ=Dead] {
False ->
case w_stm0
of wild_ikJM
{ unordered-containers-0.2.5.1:Data.HashMap.Array.Array ds1_ikJO ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
ds1_ikJO
ww1_stmb
of _ [Occ=Dead] { (# ipv_ik0P #) ->
a52_rxvq
((\ (w3_XtyR [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
$wa13_rxvo
wild_ikJM ww_stm7 (GHC.Prim.+# ww1_stmb 1) w1_stm3 w3_XtyR)
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# IO ()))
ipv_ik0P
w2_stm4
}
};
True ->
(w1_stm3
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
w2_stm4
}
$wa14_rxvp
:: unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> IO ()
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=5,
Str=DmdType <L,U(U)><L,U><L,U><L,1*C1(U(U,U))><L,U>]
$wa14_rxvp =
\ (w_stlM
:: unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])))
(ww_stlT :: GHC.Prim.Int#)
(ww1_stlX :: GHC.Prim.Int#)
(w1_stlP :: IO ())
(w2_stlQ [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.>=# ww1_stlX ww_stlT)
of _ [Occ=Dead] {
False ->
case w_stlM
of wild_ikJM
{ unordered-containers-0.2.5.1:Data.HashMap.Array.Array ds1_ikJO ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
ds1_ikJO
ww1_stlX
of _ [Occ=Dead] { (# ipv_ik0e #) ->
a52_rxvq
((\ (w3_XtyE [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
$wa14_rxvp
wild_ikJM ww_stlT (GHC.Prim.+# ww1_stlX 1) w1_stlP w3_XtyE)
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# IO ()))
ipv_ik0e
w2_stlQ
}
};
True ->
(w1_stlP
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
w2_stlQ
}
a52_rxvq
:: IO ()
-> Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId, Arity=3, Str=DmdType <L,1*C1(U(U,U))><S,1*U><L,U>]
a52_rxvq =
\ (z_ijZL :: IO ())
(ds_ijZM
:: Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
(eta_Xbz [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case ds_ijZM of _ [Occ=Dead] {
unordered-containers-0.2.5.1:Data.HashMap.Base.Empty ->
(z_ijZL
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
eta_Xbz;
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed dt_ijZS
dt1_ijZT ->
$wa14_rxvp
(unordered-containers-0.2.5.1:Data.HashMap.Array.Array
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
dt1_ijZT)
(GHC.Prim.sizeofArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
dt1_ijZT)
0
z_ijZL
eta_Xbz;
unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf dt_ik0o
dt1_ik0p dt2_ik0q ->
case dt2_ik0q of _ [Occ=Dead] { (ww1_stlH, ww2_stlI, ww3_stlJ) ->
$wa11_rxvm ww3_stlJ z_ijZL eta_Xbz
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Full dt_ik0u ->
$wa13_rxvo
(unordered-containers-0.2.5.1:Data.HashMap.Array.Array
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
dt_ik0u)
(GHC.Prim.sizeofArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
dt_ik0u)
0
z_ijZL
eta_Xbz;
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision dt_ik0W
dt1_ik0X ->
$wa12_rxvn
(unordered-containers-0.2.5.1:Data.HashMap.Array.Array
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
dt1_ik0X)
(GHC.Prim.sizeofArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
dt1_ik0X)
0
z_ijZL
eta_Xbz
}
end Rec }
lvl96_rxvr :: [Char]
[GblId, Str=DmdType]
lvl96_rxvr =
GHC.CString.unpackCString#
"Continuing due to staunch mode, this error will be repeated later"#
lvl97_rxvs
:: SomeException
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
Either SomeException () #)
[GblId, Arity=2, Caf=NoCafRefs, Str=DmdType]
lvl97_rxvs =
\ (e1_imvo [OS=OneShot] :: SomeException)
(eta1_imvp [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
(# eta1_imvp, Data.Either.Left @ SomeException @ () e1_imvo #)
Rec {
go3_rxvt
:: [(Double, ARule Action)]
-> [(Double, Key -> Maybe (Action Value))]
[GblId, Arity=1, Str=DmdType <S,1*U>]
go3_rxvt =
\ (ds_iaAW :: [(Double, ARule Action)]) ->
case ds_iaAW of _ [Occ=Dead] {
[] -> GHC.Types.[] @ (Double, Key -> Maybe (Action Value));
: y_iaB1 ys_iaB2 ->
case y_iaB1 of _ [Occ=Dead] { (i_aevW, ds1_djh7) ->
case ds1_djh7
of _ [Occ=Dead]
{ ARule @ key_ai3E @ value_ai3F $dRule_ai3G r_aevX ->
let {
$dTypeable_skFb [Dmd=<L,C(U)>] :: Typeable key_ai3E
[LclId, Str=DmdType]
$dTypeable_skFb =
case Development.Shake.Core.$p1Rule
@ key_ai3E @ value_ai3F $dRule_ai3G
of _ [Occ=Dead]
{ (tpl_X6L, tpl1_XqS, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl1_XqS
} } in
let {
tup_skFc [Dmd=<L,U(1*U,1*U,1*U,1*U,1*U,1*U)>]
:: ShakeValue value_ai3F
[LclId, Str=DmdType]
tup_skFc =
Development.Shake.Core.$p2Rule
@ key_ai3E @ value_ai3F $dRule_ai3G } in
let {
$dNFData_skFa :: NFData value_ai3F
[LclId, Str=DmdType]
$dNFData_skFa =
case tup_skFc
of _ [Occ=Dead]
{ (tpl_X6N, tpl1_XqU, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl5_B6
} } in
let {
$dBinary_skF9 :: Binary value_ai3F
[LclId, Str=DmdType]
$dBinary_skF9 =
case tup_skFc
of _ [Occ=Dead]
{ (tpl_X6P, tpl1_XqV, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl4_B5
} } in
let {
$dHashable_skF8 :: Hashable value_ai3F
[LclId, Str=DmdType]
$dHashable_skF8 =
case tup_skFc
of _ [Occ=Dead]
{ (tpl_X6R, tpl1_XqW, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl3_B4
} } in
let {
$dTypeable1_skF7 :: Typeable value_ai3F
[LclId, Str=DmdType]
$dTypeable1_skF7 =
case tup_skFc
of _ [Occ=Dead]
{ (tpl_X6T, tpl1_XqX, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl1_XqX
} } in
let {
$dShow_skF6 :: Show value_ai3F
[LclId, Str=DmdType]
$dShow_skF6 =
case tup_skFc
of _ [Occ=Dead]
{ (tpl_X6V, tpl1_XqY, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl_X6V
} } in
let {
$dEq_skF5 :: Eq value_ai3F
[LclId, Str=DmdType]
$dEq_skF5 =
case tup_skFc
of _ [Occ=Dead]
{ (tpl_X6X, tpl1_XqZ, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl2_B3
} } in
GHC.Types.:
@ (Double, Key -> Maybe (Action Value))
(i_aevW,
\ (k_aevY :: Key) ->
case r_aevX
(fromValue
@ key_ai3E
$dTypeable_skFb
(k_aevY
`cast` (Development.Shake.Value.NTCo:Key[0] :: Key ~R# Value)))
of _ [Occ=Dead] {
Nothing -> GHC.Base.Nothing @ (Action Value);
Just a59_iaJQ ->
GHC.Base.Just
@ (Action Value)
((\ (eta1_XmgP :: S Global Local) ->
let {
m1_ilPc [Dmd=<L,C(U)>] :: ContT () IO value_ai3F
[LclId, Str=DmdType]
m1_ilPc =
(a59_iaJQ
`cast` (Development.Shake.Core.NTCo:Action[0]
; Development.Shake.Monad.NTCo:RAW[0]
<Global>_R <Local>_R <value_ai3F>_N
; Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <value_ai3F>_N
:: Action value_ai3F
~R# (S Global Local -> ContT () IO value_ai3F)))
eta1_XmgP } in
(\ (c_ilPd :: Value -> IO ()) ->
(m1_ilPc
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <value_ai3F>_R
:: ContT () IO value_ai3F ~R# ((value_ai3F -> IO ()) -> IO ())))
(\ (x_Xb3j :: value_ai3F) ->
c_ilPd
(Development.Shake.Value.Value
@ value_ai3F
$dEq_skF5
$dShow_skF6
$dTypeable1_skF7
$dHashable_skF8
$dBinary_skF9
$dNFData_skFa
x_Xb3j)))
`cast` (Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0] <()>_N <IO>_R <Value>_R)
:: ((Value -> IO ()) -> IO ()) ~R# ContT () IO Value))
`cast` (Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <Value>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <Value>_N
:: (S Global Local -> ContT () IO Value) ~R# Action Value))
})
(go3_rxvt ys_iaB2)
}
}
}
end Rec }
lvl98_rxvu :: [Char]
[GblId, Str=DmdType]
lvl98_rxvu = GHC.CString.unpackCString# " rules"#
lvl99_rxvv :: [Char]
[GblId, Str=DmdType]
lvl99_rxvv = ++ @ Char lvl24_rxtH lvl98_rxvu
lvl100_rxvw :: [Char]
[GblId, Str=DmdType]
lvl100_rxvw = ++ @ Char lvl23_rxtG lvl98_rxvu
lvl101_rxvx
:: String
-> Maybe String -> ([Char], Maybe String) -> [Char] -> Action Value
[GblId, Arity=4, Str=DmdType <L,U><L,U><L,U><L,U>b]
lvl101_rxvx =
\ (a59_stRQ :: String)
(a60_stRT :: Maybe String)
(a61_stRW :: ([Char], Maybe String))
(a62_stRZ :: [Char]) ->
lvl88_rxv9
@ (Action Value)
a62_stRZ
(GHC.Types.:
@ (String, Maybe String)
(lvl22_rxtF, GHC.Base.Just @ String a59_stRQ)
(GHC.Types.:
@ (String, Maybe String)
(lvl21_rxtE, a60_stRT)
(GHC.Types.:
@ (String, Maybe String)
a61_stRW
(GHC.Types.[] @ (String, Maybe String)))))
lvl19_rxtC
lvl102_rxvy
:: String
-> Maybe String -> ([Char], Maybe String) -> [Char] -> Action Value
[GblId, Arity=4, Str=DmdType <L,U><L,U><L,U><L,U>b]
lvl102_rxvy =
\ (a59_stRQ :: String)
(a60_stRT :: Maybe String)
(a61_stRW :: ([Char], Maybe String))
(a62_stRZ :: [Char]) ->
lvl88_rxv9
@ (Action Value)
a62_stRZ
(GHC.Types.:
@ (String, Maybe String)
(lvl22_rxtF, GHC.Base.Just @ String a59_stRQ)
(GHC.Types.:
@ (String, Maybe String)
(lvl21_rxtE, a60_stRT)
(GHC.Types.:
@ (String, Maybe String)
a61_stRW
(GHC.Types.[] @ (String, Maybe String)))))
lvl18_rxtB
lvl103_rxvz
:: Key
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> String
-> Action Value
[GblId, Arity=6, Str=DmdType <L,U><L,U><L,U><L,U><L,U><L,U>b]
lvl103_rxvz =
\ (k_aevZ :: Key)
(ds1_iaEh :: [Data.Typeable.Internal.KindRep])
(trs_iaEi :: [TypeRep])
(dt_iaMk :: GHC.Prim.Word#)
(dt1_iaMl :: GHC.Prim.Word#)
(ds3_iaMo :: String) ->
$werrorDuplicateOracle_rxve
@ (Action Value)
dt_iaMk
dt1_iaMl
ds3_iaMo
ds1_iaEh
trs_iaEi
(GHC.Base.Just
@ String
(Development.Shake.Value.$fShowKey_$cshow1
(k_aevZ
`cast` (Development.Shake.Value.NTCo:Key[0] :: Key ~R# Value))))
(GHC.Types.[] @ TypeRep)
lvl104_rxvA
:: TyCon
-> [Data.Typeable.Internal.KindRep] -> [TypeRep] -> Action Value
[GblId, Arity=3, Str=DmdType <L,U><L,U><L,U>b]
lvl104_rxvA =
\ (tc_iaEg :: TyCon)
(ds1_iaEh :: [Data.Typeable.Internal.KindRep])
(trs_iaEi :: [TypeRep]) ->
error
@ (Action Value)
(GHC.CString.unpackAppendCString#
"Development.Shake: Internal error, please report to Neil Mitchell ("#
(++
@ Char
(GHC.CString.unpackAppendCString#
"no oracle match for "#
(Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18 tc_iaEg ds1_iaEh trs_iaEi (GHC.Types.[] @ Char)))
Development.Shake.Core.traced2))
Rec {
a53_rxvB
:: [IO ()]
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId, Arity=2, Caf=NoCafRefs, Str=DmdType <S,1*U><L,U>]
a53_rxvB =
\ (ds_iaAW :: [IO ()])
(eta_XcO [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case ds_iaAW of _ [Occ=Dead] {
[] -> (# eta_XcO, GHC.Tuple.() #);
: y_iaB1 ys_iaB2 ->
case (y_iaB1
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
eta_XcO
of _ [Occ=Dead] { (# ipv_XlEa, ipv1_XlEc #) ->
a53_rxvB ys_iaB2 ipv_XlEa
}
}
end Rec }
Rec {
go4_rxvC :: [Key] -> [String]
[GblId, Arity=1, Str=DmdType <S,1*U>]
go4_rxvC =
\ (ds_iaAW :: [Key]) ->
case ds_iaAW of _ [Occ=Dead] {
[] -> GHC.Types.[] @ String;
: y_iaB1 ys_iaB2 ->
case typeKey y_iaB1
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt_ikqd dt1_ikqe tc_ikqf ds1_ikqg
trs_ikqh ->
case tc_ikqf
of _ [Occ=Dead]
{ Data.Typeable.Internal.TyCon dt2_ikql dt3_ikqm ds2_ikqn ds3_ikqo
ds4_ikqp ->
case GHC.Base.eqString
ds4_ikqp Development.Shake.Special.specialIsFileKey1
of _ [Occ=Dead] {
False -> go4_rxvC ys_iaB2;
True ->
GHC.Types.:
@ String
(Development.Shake.Value.$fShowKey_$cshow1
(y_iaB1
`cast` (Development.Shake.Value.NTCo:Key[0] :: Key ~R# Value)))
(go4_rxvC ys_iaB2)
}
}
}
}
end Rec }
lvl105_rxvD :: SomeException
[GblId, Str=DmdType]
lvl105_rxvD =
GHC.IO.Exception.$fExceptionAsyncException_$ctoException
GHC.IO.Exception.ThreadKilled
lvl106_rxvE
:: String
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId, Arity=2, Caf=NoCafRefs, Str=DmdType]
lvl106_rxvE =
\ _ [Occ=Dead]
(eta_Xsk [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
(# eta_Xsk, GHC.Tuple.() #)
lvl107_rxvF
:: FilePath -> String -> ([Char], Maybe String) -> IO ()
[GblId, Arity=3, Str=DmdType <L,U><L,U><L,U>b]
lvl107_rxvF =
\ (ipv1_XlyA :: FilePath)
(msg_aexd :: String)
(lvl116_slfX :: ([Char], Maybe String)) ->
lvl88_rxv9
@ (IO ())
lvl33_rxtQ
(GHC.Types.:
@ (String, Maybe String)
(lvl32_rxtP, GHC.Base.Just @ String msg_aexd)
(GHC.Types.:
@ (String, Maybe String)
lvl116_slfX
(GHC.Types.:
@ (String, Maybe String)
(lvl30_rxtN, GHC.Base.Just @ String ipv1_XlyA)
(GHC.Types.[] @ (String, Maybe String)))))
(GHC.Types.[] @ Char)
Development.Shake.Core.$wa2 [InlPrag=[0]]
:: FilePath
-> Int
-> String
-> Verbosity
-> Bool
-> [FilePath]
-> Maybe Lint
-> Maybe Double
-> Maybe Assume
-> [(String, String)]
-> Bool
-> Bool
-> Bool
-> Bool
-> Change
-> Bool
-> [FilePath]
-> (IO Progress -> IO ())
-> (Verbosity -> String -> IO ())
-> Rules ()
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=21,
Str=DmdType <L,U><L,U(U)><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><S,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,1*C1(U(U,1*U(A,1*U(U,U))))><L,U>]
Development.Shake.Core.$wa2 =
\ (ww_stnY :: FilePath)
(ww1_stnZ :: Int)
(ww2_sto0 :: String)
(ww3_sto1 :: Verbosity)
(ww4_sto2 :: Bool)
(ww5_sto3 :: [FilePath])
(ww6_sto4 :: Maybe Lint)
(ww7_sto5 :: Maybe Double)
(ww8_sto6 :: Maybe Assume)
(ww9_sto7 :: [(String, String)])
(ww10_sto8 :: Bool)
(ww11_sto9 :: Bool)
(ww12_stoa :: Bool)
(ww13_stob :: Bool)
(ww14_stoc :: Change)
(ww15_stod :: Bool)
(ww16_stoe :: [FilePath])
(ww17_stof :: IO Progress -> IO ())
(ww18_stog :: Verbosity -> String -> IO ())
(w_stnU :: Rules ())
(w1_stnV [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
let {
a59_smFa
:: GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId, Arity=1, Str=DmdType <L,U>]
a59_smFa =
\ (s_XlLd [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case System.Time.Extra.offsetTime1 s_XlLd
of _ [Occ=Dead] { (# ipv_ilkP, ipv1_ilkQ #) ->
case (w_stnU
`cast` (Development.Shake.Core.NTCo:Rules[0] <()>_N
; Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <()>_N
; GHC.Types.NTCo:IO[0] <((), SRules Action)>_R
:: Rules ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, ((), SRules Action) #))))
ipv_ilkP
of _ [Occ=Dead] { (# ipv2_XlLo, ipv3_XlLq #) ->
case ipv3_XlLq of _ [Occ=Dead] { (ds3_ajAO, w2_ajAP) ->
case w2_ajAP of _ [Occ=Dead] { SRules ds_djhC ds4_djhD ->
case a52_rxvq
(a34_rxt9
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# IO ()))
ds4_djhD
ipv2_XlLo
of _ [Occ=Dead] { (# ipv4_ilqu, ipv5_ilqv #) ->
case GHC.Prim.newMVar# @ GHC.Prim.RealWorld @ () ipv4_ilqu
of _ [Occ=Dead] { (# ipv6_imso, ipv7_imsp #) ->
case GHC.Prim.putMVar#
@ GHC.Prim.RealWorld @ () ipv7_imsp GHC.Tuple.() ipv6_imso
of s2#_imsr [OS=OneShot] { __DEFAULT ->
case GHC.Prim.newMutVar#
@ (Maybe (String, SomeException))
@ GHC.Prim.RealWorld
(GHC.Base.Nothing @ (String, SomeException))
s2#_imsr
of _ [Occ=Dead] { (# ipv8_imaz, ipv9_imaA #) ->
let {
$j_smF0
:: GHC.Prim.State# GHC.Prim.RealWorld
-> (String -> IO ())
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId, Arity=2, Str=DmdType <L,U><L,U>]
$j_smF0 =
\ (ipv10_XlN5 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld)
(ipv11_XlN7 [OS=OneShot] :: String -> IO ()) ->
case GHC.Prim.newMutVar#
@ [IO ()] @ GHC.Prim.RealWorld (GHC.Types.[] @ (IO ())) ipv10_XlN5
of _ [Occ=Dead] { (# ipv12_XmCU, ipv13_XmCW #) ->
case GHC.Prim.newMutVar#
@ [(Key, Key)]
@ GHC.Prim.RealWorld
(GHC.Types.[] @ (Key, Key))
ipv12_XmCU
of _ [Occ=Dead] { (# ipv14_XmD5, ipv15_XmD7 #) ->
case ww1_stnZ of wild2_iaMw { GHC.Types.I# x_iaMy ->
let {
$j1_smEU
:: GHC.Prim.State# GHC.Prim.RealWorld
-> Int -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId, Arity=2, Str=DmdType <L,U><L,U(U)>]
$j1_smEU =
\ (ipv16_XlNB [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld)
(ipv17_XlND [OS=OneShot] :: Int) ->
case GHC.Prim.newMutVar#
@ General.Cleanup.S
@ GHC.Prim.RealWorld
General.Cleanup.withCleanup5
ipv16_XlNB
of _ [Occ=Dead] { (# ipv18_imyT, ipv19_imyU #) ->
let {
lvl116_svxx :: String -> String
[LclId, Str=DmdType]
lvl116_svxx =
case ww9_sto7 of wild3_X2e {
[] -> id @ String;
: ipv20_sk7U ipv21_sk7V ->
let {
ordAbbrev_skGC :: [([Char], String)]
[LclId, Str=DmdType]
ordAbbrev_skGC =
sortBy @ ([Char], String) lvl44_rxu7 wild3_X2e } in
letrec {
f_skGB [Occ=LoopBreaker] :: [Char] -> [Char]
[LclId, Arity=1, Str=DmdType <S,1*U>]
f_skGB =
\ (ds11_djcZ :: [Char]) ->
case ds11_djcZ of wild4_X2n {
[] -> GHC.Types.[] @ Char;
: ipv22_sk8c ipv23_sk8d ->
letrec {
go5_iaAV [Occ=LoopBreaker]
:: [([Char], String)] -> [(String, [Char])]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go5_iaAV =
\ (ds12_iaAW :: [([Char], String)]) ->
case ds12_iaAW of _ [Occ=Dead] {
[] -> GHC.Types.[] @ (String, [Char]);
: y_iaB1 ys_iaB2 ->
case y_iaB1
of _ [Occ=Dead] { (from_aexG, to_aexH) ->
case stripPrefix
@ Char
GHC.Classes.$fEqChar
from_aexG
wild4_X2n
of _ [Occ=Dead] {
Nothing -> go5_iaAV ys_iaB2;
Just rest_aexI ->
GHC.Types.:
@ (String, [Char])
(to_aexH, rest_aexI)
(go5_iaAV ys_iaB2)
}
}
}; } in
case go5_iaAV ordAbbrev_skGC of _ [Occ=Dead] {
[] -> GHC.Types.: @ Char ipv22_sk8c (f_skGB ipv23_sk8d);
: ds12_djcX ds13_djcY ->
case ds12_djcX of _ [Occ=Dead] { (to_aexJ, rest_aexK) ->
++ @ Char to_aexJ (f_skGB rest_aexK)
}
}
}; } in
f_skGB
} } in
let {
lvl117_svxX :: IO ()
[LclId, Str=DmdType]
lvl117_svxX =
ww18_stog
Development.Shake.Types.Loud (lvl116_svxx lvl15_rxty) } in
let {
s1_slgX :: Local
[LclId, Str=DmdType m]
s1_slgX =
Development.Shake.Core.Local
emptyStack
ww3_sto1
(GHC.Base.Nothing @ String)
(GHC.Types.[] @ Depends)
0.0
(GHC.Types.[] @ Trace)
(GHC.Types.[] @ (Key -> Bool))
(GHC.Types.[] @ Key) } in
let {
p_XmFL :: Bool
[LclId, Str=DmdType]
p_XmFL =
case GHC.Classes.$fEq[]_$s$c==2 ww5_sto3 (GHC.Types.[] @ FilePath)
of _ [Occ=Dead] {
False -> GHC.Types.True;
True -> GHC.Types.False
} } in
let {
p1_XmFW :: Bool
[LclId, Str=DmdType]
p1_XmFW =
case GHC.Classes.$fEq[]_$s$c==2 ww16_stoe (GHC.Types.[] @ FilePath)
of _ [Occ=Dead] {
False -> GHC.Types.True;
True -> GHC.Types.False
} } in
let {
wild3_X4K :: ShakeOptions
[LclId, Str=DmdType]
wild3_X4K =
Development.Shake.Types.ShakeOptions
ww_stnY
wild2_iaMw
ww2_sto0
ww3_sto1
ww4_sto2
ww5_sto3
ww6_sto4
ww7_sto5
ww8_sto6
ww9_sto7
ww10_sto8
ww11_sto9
ww12_stoa
ww13_stob
ww14_stoc
ww15_stod
ww16_stoe
ww17_stof
ww18_stog } in
let {
ruleinfo_slgP :: Map.HashMap TypeRep (RuleInfo Action)
[LclId, Str=DmdType]
ruleinfo_slgP =
let {
$wf_stmO [InlPrag=[0]]
:: TypeRep
-> [(Double, ARule Action)]
-> (# Key -> IO (Maybe Value),
Key -> Value -> Value -> EqualCost,
Key -> Action Value,
TypeRep #)
[LclId, Arity=2, Str=DmdType <L,U><L,U>]
$wf_stmO =
\ (ww19_stmJ :: TypeRep) (ww20_stmK :: [(Double, ARule Action)]) ->
(# case ww20_stmK of _ [Occ=Dead] {
[] -> lvl29_rxtM;
: ds11_djgx ds12_djgy ->
case ds11_djgx of _ [Occ=Dead] { (ds13_djgz, ds14_djgA) ->
case ds14_djgA
of _ [Occ=Dead]
{ ARule @ key_ai87 @ value_ai88 $dRule_ai89 r_aevH ->
let {
tup_skFi [Dmd=<L,U(1*U,1*U,1*U,1*U,1*U,1*U)>]
:: ShakeValue value_ai88
[LclId, Str=DmdType]
tup_skFi =
Development.Shake.Core.$p2Rule
@ key_ai87 @ value_ai88 $dRule_ai89 } in
let {
a60_smpd :: Eq value_ai88
[LclId, Str=DmdType]
a60_smpd =
case tup_skFi
of _ [Occ=Dead]
{ (tpl_X6J, tpl1_XqR, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl2_B3
} } in
let {
a61_smpe :: Show value_ai88
[LclId, Str=DmdType]
a61_smpe =
case tup_skFi
of _ [Occ=Dead]
{ (tpl_X6J, tpl1_XqR, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl_X6J
} } in
let {
a62_smpf :: Typeable value_ai88
[LclId, Str=DmdType]
a62_smpf =
case tup_skFi
of _ [Occ=Dead]
{ (tpl_X6J, tpl1_XqR, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl1_XqR
} } in
let {
a63_smpg :: Hashable value_ai88
[LclId, Str=DmdType]
a63_smpg =
case tup_skFi
of _ [Occ=Dead]
{ (tpl_X6J, tpl1_XqR, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl3_B4
} } in
let {
a64_smph :: Binary value_ai88
[LclId, Str=DmdType]
a64_smph =
case tup_skFi
of _ [Occ=Dead]
{ (tpl_X6J, tpl1_XqR, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl4_B5
} } in
let {
a65_smpi :: NFData value_ai88
[LclId, Str=DmdType]
a65_smpi =
case tup_skFi
of _ [Occ=Dead]
{ (tpl_X6J, tpl1_XqR, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl5_B6
} } in
let {
f_Xbuy [Dmd=<L,C(C1(U(U,1*U)))>]
:: key_ai87 -> IO (Maybe value_ai88)
[LclId, Str=DmdType]
f_Xbuy =
storedValue
@ key_ai87 @ value_ai88 $dRule_ai89 wild3_X4K } in
let {
lvl118_svxz :: TypeRep
[LclId, Str=DmdType]
lvl118_svxz =
case Development.Shake.Core.$p1Rule
@ key_ai87 @ value_ai88 $dRule_ai89
of _ [Occ=Dead]
{ (tpl_X6J, tpl1_XqR, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
(tpl1_XqR
`cast` (Data.Typeable.Internal.NTCo:Typeable[0]
<*>_N <key_ai87>_N
:: Typeable key_ai87
~R# (GHC.Prim.Proxy# key_ai87 -> TypeRep)))
(GHC.Prim.proxy# @ * @ key_ai87)
} } in
(\ (x1_Xb3b :: Key)
(s2_Xmdy [OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case ((f_Xbuy
(case x1_Xb3b
`cast` (Development.Shake.Value.NTCo:Key[0]
:: Key ~R# Value)
of _ [Occ=Dead]
{ Development.Shake.Value.Value @ a66_ijUC
$dEq_ijUD
$dShow_ijUE
$dTypeable1_ijUF
$dHashable_ijUG
$dBinary_ijUH
$dNFData_ijUI
x2_ijUJ ->
case ($dTypeable1_ijUF
`cast` (Data.Typeable.Internal.NTCo:Typeable[0]
<*>_N <a66_ijUC>_N
:: Typeable a66_ijUC
~R# (GHC.Prim.Proxy# a66_ijUC
-> TypeRep)))
(GHC.Prim.proxy# @ * @ a66_ijUC)
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt_ijUN
dt1_ijUO
ds15_ijUP
ds16_ijUQ
ds17_ijUR ->
case lvl118_svxz
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt2_ijUV
dt3_ijUW
ds18_ijUX
ds19_ijUY
ds20_ijUZ ->
case GHC.Prim.tagToEnum#
@ Bool
(GHC.Prim.eqWord# dt_ijUN dt2_ijUV)
of _ [Occ=Dead] {
False ->
Development.Shake.Value.fromValue1
@ key_ai87;
True ->
case GHC.Prim.tagToEnum#
@ Bool
(GHC.Prim.eqWord# dt1_ijUO dt3_ijUW)
of _ [Occ=Dead] {
False ->
Development.Shake.Value.fromValue1
@ key_ai87;
True ->
x2_ijUJ
`cast` (UnivCo mkUnsafeCo representational
a66_ijUC key_ai87
:: a66_ijUC ~R# key_ai87)
}
}
}
}
}))
`cast` (GHC.Types.NTCo:IO[0] <Maybe value_ai88>_R
:: IO (Maybe value_ai88)
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
Maybe value_ai88 #))))
s2_Xmdy
of _ [Occ=Dead] { (# ipv20_ilko, ipv21_ilkp #) ->
(# ipv20_ilko,
case ipv21_ilkp of _ [Occ=Dead] {
Nothing -> GHC.Base.Nothing @ Value;
Just a66_iaJQ ->
GHC.Base.Just
@ Value
(Development.Shake.Value.Value
@ value_ai88
a60_smpd
a61_smpe
a62_smpf
a63_smpg
a64_smph
a65_smpi
a66_iaJQ)
} #)
})
`cast` (<Key>_R -> Sym (GHC.Types.NTCo:IO[0] <Maybe Value>_R)
:: (Key
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
Maybe Value #))
~R# (Key -> IO (Maybe Value)))
}
}
},
case ww20_stmK of _ [Occ=Dead] {
[] -> lvl28_rxtL;
: ds11_djgI ds12_djgJ ->
case ds11_djgI of _ [Occ=Dead] { (ds13_djgK, ds14_djgL) ->
case ds14_djgL
of _ [Occ=Dead]
{ ARule @ key_ai6f @ value_ai6g $dRule_ai6h r_aevM ->
let {
lvl118_svxB :: TypeRep
[LclId, Str=DmdType]
lvl118_svxB =
case Development.Shake.Core.$p2Rule
@ key_ai6f @ value_ai6g $dRule_ai6h
of _ [Occ=Dead]
{ (tpl_X6I, tpl1_XqR, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
(tpl1_XqR
`cast` (Data.Typeable.Internal.NTCo:Typeable[0]
<*>_N <value_ai6g>_N
:: Typeable value_ai6g
~R# (GHC.Prim.Proxy# value_ai6g -> TypeRep)))
(GHC.Prim.proxy# @ * @ value_ai6g)
} } in
let {
lvl119_svxA :: TypeRep
[LclId, Str=DmdType]
lvl119_svxA =
case Development.Shake.Core.$p1Rule
@ key_ai6f @ value_ai6g $dRule_ai6h
of _ [Occ=Dead]
{ (tpl_X6K, tpl1_XqQ, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
(tpl1_XqQ
`cast` (Data.Typeable.Internal.NTCo:Typeable[0]
<*>_N <key_ai6f>_N
:: Typeable key_ai6f
~R# (GHC.Prim.Proxy# key_ai6f -> TypeRep)))
(GHC.Prim.proxy# @ * @ key_ai6f)
} } in
\ (k_aevR :: Key) (v1_aevS :: Value) (v2_aevT :: Value) ->
equalValue
@ key_ai6f
@ value_ai6g
$dRule_ai6h
wild3_X4K
(case k_aevR
`cast` (Development.Shake.Value.NTCo:Key[0]
:: Key ~R# Value)
of _ [Occ=Dead]
{ Development.Shake.Value.Value @ a60_ijUC $dEq_ijUD
$dShow_ijUE
$dTypeable1_ijUF
$dHashable_ijUG
$dBinary_ijUH
$dNFData_ijUI x1_ijUJ ->
case ($dTypeable1_ijUF
`cast` (Data.Typeable.Internal.NTCo:Typeable[0]
<*>_N <a60_ijUC>_N
:: Typeable a60_ijUC
~R# (GHC.Prim.Proxy# a60_ijUC
-> TypeRep)))
(GHC.Prim.proxy# @ * @ a60_ijUC)
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt_ijUN dt1_ijUO
ds15_ijUP ds16_ijUQ
ds17_ijUR ->
case lvl119_svxA
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt2_ijUV dt3_ijUW
ds18_ijUX ds19_ijUY
ds20_ijUZ ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt_ijUN dt2_ijUV)
of _ [Occ=Dead] {
False ->
Development.Shake.Value.fromValue1 @ key_ai6f;
True ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt1_ijUO dt3_ijUW)
of _ [Occ=Dead] {
False ->
Development.Shake.Value.fromValue1 @ key_ai6f;
True ->
x1_ijUJ
`cast` (UnivCo mkUnsafeCo representational
a60_ijUC key_ai6f
:: a60_ijUC ~R# key_ai6f)
}
}
}
}
})
(case v1_aevS
of _ [Occ=Dead]
{ Development.Shake.Value.Value @ a60_ijUC $dEq_ijUD
$dShow_ijUE
$dTypeable1_ijUF
$dHashable_ijUG
$dBinary_ijUH
$dNFData_ijUI x1_ijUJ ->
case ($dTypeable1_ijUF
`cast` (Data.Typeable.Internal.NTCo:Typeable[0]
<*>_N <a60_ijUC>_N
:: Typeable a60_ijUC
~R# (GHC.Prim.Proxy# a60_ijUC
-> TypeRep)))
(GHC.Prim.proxy# @ * @ a60_ijUC)
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt_ijUN dt1_ijUO
ds15_ijUP ds16_ijUQ
ds17_ijUR ->
case lvl118_svxB
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt2_ijUV dt3_ijUW
ds18_ijUX ds19_ijUY
ds20_ijUZ ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt_ijUN dt2_ijUV)
of _ [Occ=Dead] {
False ->
Development.Shake.Value.fromValue1 @ value_ai6g;
True ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt1_ijUO dt3_ijUW)
of _ [Occ=Dead] {
False ->
Development.Shake.Value.fromValue1 @ value_ai6g;
True ->
x1_ijUJ
`cast` (UnivCo mkUnsafeCo representational
a60_ijUC value_ai6g
:: a60_ijUC ~R# value_ai6g)
}
}
}
}
})
(case v2_aevT
of _ [Occ=Dead]
{ Development.Shake.Value.Value @ a60_ijUC $dEq_ijUD
$dShow_ijUE
$dTypeable1_ijUF
$dHashable_ijUG
$dBinary_ijUH
$dNFData_ijUI x1_ijUJ ->
case ($dTypeable1_ijUF
`cast` (Data.Typeable.Internal.NTCo:Typeable[0]
<*>_N <a60_ijUC>_N
:: Typeable a60_ijUC
~R# (GHC.Prim.Proxy# a60_ijUC
-> TypeRep)))
(GHC.Prim.proxy# @ * @ a60_ijUC)
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt_ijUN dt1_ijUO
ds15_ijUP ds16_ijUQ
ds17_ijUR ->
case lvl118_svxB
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt2_ijUV dt3_ijUW
ds18_ijUX ds19_ijUY
ds20_ijUZ ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt_ijUN dt2_ijUV)
of _ [Occ=Dead] {
False ->
Development.Shake.Value.fromValue1 @ value_ai6g;
True ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt1_ijUO dt3_ijUW)
of _ [Occ=Dead] {
False ->
Development.Shake.Value.fromValue1 @ value_ai6g;
True ->
x1_ijUJ
`cast` (UnivCo mkUnsafeCo representational
a60_ijUC value_ai6g
:: a60_ijUC ~R# value_ai6g)
}
}
}
}
})
}
}
},
let {
rs2_skES :: [[Key -> Maybe (Action Value)]]
[LclId, Str=DmdType]
rs2_skES =
map
@ [(Double, Key -> Maybe (Action Value))]
@ [Key -> Maybe (Action Value)]
lvl27_rxtK
(GHC.List.reverse1
@ [(Double, Key -> Maybe (Action Value))]
(groupBy
@ (Double, Key -> Maybe (Action Value))
lvl26_rxtJ
(sortBy
@ (Double, Key -> Maybe (Action Value))
lvl25_rxtI
(go3_rxvt ww20_stmK)))
(GHC.Types.[]
@ [(Double, Key -> Maybe (Action Value))])) } in
\ (k_aevZ :: Key) ->
let {
a60_spKq
:: (Key -> Maybe (Action Value)) -> Maybe (Action Value)
[LclId,
Arity=1,
Str=DmdType <C(S),1*C1(U)>,
Unf=Unf{Src=InlineStable, TopLvl=False, Value=True,
ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=True)
Tmpl= \ (ds11_djgQ [Occ=Once!]
:: Key -> Maybe (Action Value)) ->
ds11_djgQ k_aevZ}]
a60_spKq =
\ (ds11_djgQ :: Key -> Maybe (Action Value)) ->
ds11_djgQ k_aevZ } in
letrec {
go5_iaAV [Occ=LoopBreaker]
:: [[Key -> Maybe (Action Value)]] -> [[Action Value]]
[LclId, Arity=1, Str=DmdType <S,1*U>]
go5_iaAV =
\ (ds11_iaAW :: [[Key -> Maybe (Action Value)]]) ->
case ds11_iaAW of _ [Occ=Dead] {
[] -> GHC.Types.[] @ [Action Value];
: y_iaB1 ys_iaB2 ->
case mapMaybe
@ (Key -> Maybe (Action Value))
@ (Action Value)
a60_spKq
y_iaB1
of wild5_ikpF {
[] -> go5_iaAV ys_iaB2;
: ds12_imgr ds13_imgs ->
GHC.Types.:
@ [Action Value] wild5_ikpF (go5_iaAV ys_iaB2)
}
}; } in
let {
ds11_skER [Dmd=<S,U>] :: [[Action Value]]
[LclId, Str=DmdType]
ds11_skER = go5_iaAV rs2_skES } in
let {
fail_skEQ :: GHC.Prim.Void# -> Action Value
[LclId, Arity=1, Str=DmdType <B,A>b]
fail_skEQ =
\ _ [Occ=Dead, OS=OneShot] ->
case typeKey k_aevZ
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt_iaEe dt1_iaEf tc_iaEg
ds13_iaEh trs_iaEi ->
case tc_iaEg
of wild5_iaMi
{ Data.Typeable.Internal.TyCon dt2_iaMk dt3_iaMl
ds14_iaMm ds15_iaMn
ds16_iaMo ->
case GHC.List.$wlenAcc @ [Action Value] ds11_skER 0
of ww21_ib1S { __DEFAULT ->
case GHC.Base.eqString ds16_iaMo lvl73_rxuJ
of _ [Occ=Dead] {
False ->
let {
a61_stRZ :: [Char]
[LclId, Str=DmdType]
a61_stRZ =
GHC.CString.unpackAppendCString#
"Build system error - key matches "#
(case ww21_ib1S of _ [Occ=Dead] {
__DEFAULT -> lvl99_rxvv;
0 -> lvl100_rxvw
}) } in
case ww21_ib1S of wild7_Xrz {
__DEFAULT ->
lvl101_rxvx
(Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18
wild5_iaMi
ds13_iaEh
trs_iaEi
(GHC.Types.[] @ Char))
(GHC.Base.Just
@ String
(case k_aevZ
`cast` (Development.Shake.Value.NTCo:Key[0]
:: Key ~R# Value)
of _ [Occ=Dead]
{ Development.Shake.Value.Value @ a62_imqt
$dEq_imqu
$dShow_imqv
$dTypeable_imqw
$dHashable_imqx
$dBinary_imqy
$dNFData_imqz
a63_imqA ->
show @ a62_imqt $dShow_imqv a63_imqA
}))
(lvl20_rxtD,
GHC.Base.Just
@ String
(case GHC.Show.$wshowSignedInt
0 wild7_Xrz (GHC.Types.[] @ Char)
of _ [Occ=Dead]
{ (# ww23_ib8B, ww24_ib8C #) ->
GHC.Types.: @ Char ww23_ib8B ww24_ib8C
}))
a61_stRZ;
0 ->
lvl102_rxvy
(Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18
wild5_iaMi
ds13_iaEh
trs_iaEi
(GHC.Types.[] @ Char))
(GHC.Base.Just
@ String
(case k_aevZ
`cast` (Development.Shake.Value.NTCo:Key[0]
:: Key ~R# Value)
of _ [Occ=Dead]
{ Development.Shake.Value.Value @ a62_imqt
$dEq_imqu
$dShow_imqv
$dTypeable_imqw
$dHashable_imqx
$dBinary_imqy
$dNFData_imqz
a63_imqA ->
show @ a62_imqt $dShow_imqv a63_imqA
}))
(lvl20_rxtD,
GHC.Base.Just
@ String
(case GHC.Show.$wshowSignedInt
0 0 (GHC.Types.[] @ Char)
of _ [Occ=Dead]
{ (# ww23_ib8B, ww24_ib8C #) ->
GHC.Types.: @ Char ww23_ib8B ww24_ib8C
}))
a61_stRZ
};
True ->
case ww21_ib1S of _ [Occ=Dead] {
__DEFAULT ->
lvl103_rxvz
k_aevZ
ds13_iaEh
trs_iaEi
dt2_iaMk
dt3_iaMl
ds16_iaMo;
0 -> lvl104_rxvA wild5_iaMi ds13_iaEh trs_iaEi
}
}
}
}
} } in
case ds11_skER of _ [Occ=Dead] {
[] -> fail_skEQ GHC.Prim.void#;
: ds12_djgT ds13_djgU ->
case ds12_djgT of _ [Occ=Dead] {
[] -> fail_skEQ GHC.Prim.void#;
: r_aew0 ds14_djgV ->
case ds14_djgV of _ [Occ=Dead] {
[] -> r_aew0;
: ipv20_skq5 ipv21_skq6 -> fail_skEQ GHC.Prim.void#
}
}
},
ww19_stmJ #) } in
letrec {
$wa19_svxT [InlPrag=[0], Occ=LoopBreaker]
:: forall s2_ijX5.
unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
-> unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s2_ijX5
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (RuleInfo Action))
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.State# s2_ijX5
-> (# GHC.Prim.State# s2_ijX5,
unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s2_ijX5
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (RuleInfo Action)) #)
[LclId, Arity=5, Str=DmdType <L,1*U(U)><L,U(U)><L,U><L,U><L,U>]
$wa19_svxT =
\ (@ s2_ijX5)
(w3_stnh
:: unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])))
(w4_stni
:: unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s2_ijX5
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (RuleInfo Action)))
(ww19_stno :: GHC.Prim.Int#)
(ww20_stns :: GHC.Prim.Int#)
(w5_stnl [OS=OneShot] :: GHC.Prim.State# s2_ijX5) ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.>=# ww19_stno ww20_stns)
of _ [Occ=Dead] {
False ->
case w3_stnh
of wild5_ikJM
{ unordered-containers-0.2.5.1:Data.HashMap.Array.Array ds11_ikJO ->
case GHC.Prim.indexArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep
(TypeRep, TypeRep, [(Double, ARule Action)]))
ds11_ikJO
ww19_stno
of _ [Occ=Dead] { (# ipv20_ijXp #) ->
case ipv20_ijXp
of _ [Occ=Dead]
{ unordered-containers-0.2.5.1:Data.HashMap.Base.L k1_ijXt
v_ijXu ->
case v_ijXu
of _ [Occ=Dead] { (ww22_stmI, ww23_stmJ, ww24_stmK) ->
case $wf_stmO ww23_stmJ ww24_stmK
of _ [Occ=Dead]
{ (# ww26_stu6, ww27_stu7, ww28_stu8, ww29_stu9 #) ->
case w4_stni
of wild7_ikLw
{ unordered-containers-0.2.5.1:Data.HashMap.Array.MArray ds13_ikLy ->
case GHC.Prim.writeArray#
@ s2_ijX5
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (RuleInfo Action))
ds13_ikLy
ww19_stno
(unordered-containers-0.2.5.1:Data.HashMap.Base.L
@ TypeRep
@ (RuleInfo Action)
k1_ijXt
(Development.Shake.Core.RuleInfo
@ Action ww26_stu6 ww27_stu7 ww28_stu8 ww29_stu9))
w5_stnl
of s'_ikO3 [OS=OneShot] { __DEFAULT ->
$wa19_svxT
@ s2_ijX5
wild5_ikJM
wild7_ikLw
(GHC.Prim.+# ww19_stno 1)
ww20_stns
s'_ikO3
}
}
}
}
}
}
};
True -> (# w5_stnl, w4_stni #)
}; } in
letrec {
$wa20_svxR [InlPrag=[0], Occ=LoopBreaker]
:: forall s2_ijWi.
unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
-> unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s2_ijWi (Map.HashMap TypeRep (RuleInfo Action))
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.State# s2_ijWi
-> (# GHC.Prim.State# s2_ijWi,
unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s2_ijWi (Map.HashMap TypeRep (RuleInfo Action)) #)
[LclId, Arity=5, Str=DmdType <L,U(U)><L,U(U)><L,U><L,U><L,U>]
$wa20_svxR =
\ (@ s2_ijWi)
(w3_stn3
:: unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])))
(w4_stn4
:: unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s2_ijWi (Map.HashMap TypeRep (RuleInfo Action)))
(ww19_stna :: GHC.Prim.Int#)
(ww20_stne :: GHC.Prim.Int#)
(w5_stn7 [OS=OneShot] :: GHC.Prim.State# s2_ijWi) ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.>=# ww19_stna ww20_stne)
of _ [Occ=Dead] {
False ->
case w3_stn3
of wild5_ikJM
{ unordered-containers-0.2.5.1:Data.HashMap.Array.Array ds11_ikJO ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep
(TypeRep, TypeRep, [(Double, ARule Action)]))
ds11_ikJO
ww19_stna
of _ [Occ=Dead] { (# ipv20_ijWC #) ->
case go5_ijVf ipv20_ijWC of vx_ikM8 { __DEFAULT ->
case w4_stn4
of wild6_ikLw
{ unordered-containers-0.2.5.1:Data.HashMap.Array.MArray ds13_ikLy ->
case GHC.Prim.writeArray#
@ s2_ijWi
@ (Map.HashMap TypeRep (RuleInfo Action))
ds13_ikLy
ww19_stna
vx_ikM8
w5_stn7
of s'_ikO3 [OS=OneShot] { __DEFAULT ->
$wa20_svxR
@ s2_ijWi
wild5_ikJM
wild6_ikLw
(GHC.Prim.+# ww19_stna 1)
ww20_stne
s'_ikO3
}
}
}
}
};
True -> (# w5_stn7, w4_stn4 #)
};
$wa21_svxP [InlPrag=[0], Occ=LoopBreaker]
:: forall s2_ijVq.
unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
-> unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s2_ijVq (Map.HashMap TypeRep (RuleInfo Action))
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.State# s2_ijVq
-> (# GHC.Prim.State# s2_ijVq,
unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s2_ijVq (Map.HashMap TypeRep (RuleInfo Action)) #)
[LclId, Arity=5, Str=DmdType <L,U(U)><L,U(U)><L,U><L,U><L,U>]
$wa21_svxP =
\ (@ s2_ijVq)
(w3_stmP
:: unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])))
(w4_stmQ
:: unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s2_ijVq (Map.HashMap TypeRep (RuleInfo Action)))
(ww19_stmW :: GHC.Prim.Int#)
(ww20_stn0 :: GHC.Prim.Int#)
(w5_stmT [OS=OneShot] :: GHC.Prim.State# s2_ijVq) ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.>=# ww19_stmW ww20_stn0)
of _ [Occ=Dead] {
False ->
case w3_stmP
of wild5_ikJM
{ unordered-containers-0.2.5.1:Data.HashMap.Array.Array ds11_ikJO ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep
(TypeRep, TypeRep, [(Double, ARule Action)]))
ds11_ikJO
ww19_stmW
of _ [Occ=Dead] { (# ipv20_ijVK #) ->
case go5_ijVf ipv20_ijVK of vx_ikM8 { __DEFAULT ->
case w4_stmQ
of wild6_ikLw
{ unordered-containers-0.2.5.1:Data.HashMap.Array.MArray ds13_ikLy ->
case GHC.Prim.writeArray#
@ s2_ijVq
@ (Map.HashMap TypeRep (RuleInfo Action))
ds13_ikLy
ww19_stmW
vx_ikM8
w5_stmT
of s'_ikO3 [OS=OneShot] { __DEFAULT ->
$wa21_svxP
@ s2_ijVq
wild5_ikJM
wild6_ikLw
(GHC.Prim.+# ww19_stmW 1)
ww20_stn0
s'_ikO3
}
}
}
}
};
True -> (# w5_stmT, w4_stmQ #)
};
go5_ijVf [Occ=LoopBreaker]
:: Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])
-> Map.HashMap TypeRep (RuleInfo Action)
[LclId, Arity=1, Str=DmdType <S,1*U>]
go5_ijVf =
\ (ds11_ijVg
:: Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])) ->
case ds11_ijVg of _ [Occ=Dead] {
unordered-containers-0.2.5.1:Data.HashMap.Base.Empty ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Empty
@ TypeRep @ (RuleInfo Action);
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed dt_ijVk
dt1_ijVl ->
let {
wild5_ijVV :: GHC.Prim.Int#
[LclId, Str=DmdType]
wild5_ijVV =
GHC.Prim.sizeofArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
dt1_ijVl } in
case GHC.Prim.newArray#
@ (Map.HashMap TypeRep (RuleInfo Action))
@ GHC.Prim.RealWorld
wild5_ijVV
(unordered-containers-0.2.5.1:Data.HashMap.Array.undefinedElem
@ (Map.HashMap TypeRep (RuleInfo Action)))
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv20_ikMA, ipv21_ikMB #) ->
case $wa21_svxP
@ GHC.Prim.RealWorld
(unordered-containers-0.2.5.1:Data.HashMap.Array.Array
@ (Map.HashMap
TypeRep
(TypeRep, TypeRep, [(Double, ARule Action)]))
dt1_ijVl)
(unordered-containers-0.2.5.1:Data.HashMap.Array.$WMArray
@ GHC.Prim.RealWorld
@ (Map.HashMap TypeRep (RuleInfo Action))
ipv21_ikMB)
0
wild5_ijVV
ipv20_ikMA
of _ [Occ=Dead] { (# ipv22_ikLM, ipv23_ikLN #) ->
case ipv23_ikLN
of _ [Occ=Dead]
{ unordered-containers-0.2.5.1:Data.HashMap.Array.MArray ds14_ikLy ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap TypeRep (RuleInfo Action))
ds14_ikLy
ipv22_ikLM
of _ [Occ=Dead] { (# ipv24_ikLT, ipv25_ikLU #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed
@ TypeRep @ (RuleInfo Action) dt_ijVk ipv25_ikLU
}
}
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf dt_ijW7
dt1_ijW8
dt2_ijW9 ->
case dt2_ijW9
of _ [Occ=Dead] { (ww20_stmI, ww21_stmJ, ww22_stmK) ->
case $wf_stmO ww21_stmJ ww22_stmK
of _ [Occ=Dead]
{ (# ww24_stu6, ww25_stu7, ww26_stu8, ww27_stu9 #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
@ TypeRep
@ (RuleInfo Action)
dt_ijW7
dt1_ijW8
(Development.Shake.Core.RuleInfo
@ Action ww24_stu6 ww25_stu7 ww26_stu8 ww27_stu9)
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Full dt_ijWe ->
let {
wild5_ijWN :: GHC.Prim.Int#
[LclId, Str=DmdType]
wild5_ijWN =
GHC.Prim.sizeofArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
dt_ijWe } in
case GHC.Prim.newArray#
@ (Map.HashMap TypeRep (RuleInfo Action))
@ GHC.Prim.RealWorld
wild5_ijWN
(unordered-containers-0.2.5.1:Data.HashMap.Array.undefinedElem
@ (Map.HashMap TypeRep (RuleInfo Action)))
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv20_ikMA, ipv21_ikMB #) ->
case $wa20_svxR
@ GHC.Prim.RealWorld
(unordered-containers-0.2.5.1:Data.HashMap.Array.Array
@ (Map.HashMap
TypeRep
(TypeRep, TypeRep, [(Double, ARule Action)]))
dt_ijWe)
(unordered-containers-0.2.5.1:Data.HashMap.Array.$WMArray
@ GHC.Prim.RealWorld
@ (Map.HashMap TypeRep (RuleInfo Action))
ipv21_ikMB)
0
wild5_ijWN
ipv20_ikMA
of _ [Occ=Dead] { (# ipv22_ikLM, ipv23_ikLN #) ->
case ipv23_ikLN
of _ [Occ=Dead]
{ unordered-containers-0.2.5.1:Data.HashMap.Array.MArray ds14_ikLy ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap TypeRep (RuleInfo Action))
ds14_ikLy
ipv22_ikLM
of _ [Occ=Dead] { (# ipv24_ikLT, ipv25_ikLU #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Full
@ TypeRep @ (RuleInfo Action) ipv25_ikLU
}
}
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision dt_ijWZ
dt1_ijX0 ->
let {
wild5_ijXG :: GHC.Prim.Int#
[LclId, Str=DmdType]
wild5_ijXG =
GHC.Prim.sizeofArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
dt1_ijX0 } in
case GHC.Prim.newArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (RuleInfo Action))
@ GHC.Prim.RealWorld
wild5_ijXG
(unordered-containers-0.2.5.1:Data.HashMap.Array.undefinedElem
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (RuleInfo Action)))
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv20_ikMA, ipv21_ikMB #) ->
case $wa19_svxT
@ GHC.Prim.RealWorld
(unordered-containers-0.2.5.1:Data.HashMap.Array.Array
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep
(TypeRep, TypeRep, [(Double, ARule Action)]))
dt1_ijX0)
(unordered-containers-0.2.5.1:Data.HashMap.Array.$WMArray
@ GHC.Prim.RealWorld
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (RuleInfo Action))
ipv21_ikMB)
0
wild5_ijXG
ipv20_ikMA
of _ [Occ=Dead] { (# ipv22_ikLM, ipv23_ikLN #) ->
case ipv23_ikLN
of _ [Occ=Dead]
{ unordered-containers-0.2.5.1:Data.HashMap.Array.MArray ds14_ikLy ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (RuleInfo Action))
ds14_ikLy
ipv22_ikLM
of _ [Occ=Dead] { (# ipv24_ikLT, ipv25_ikLU #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision
@ TypeRep @ (RuleInfo Action) dt_ijWZ ipv25_ikLU
}
}
}
}
}; } in
go5_ijVf ds4_djhD } in
let {
lvl118_slh7 :: Key -> IO (Maybe Value)
[LclId, Arity=2, Str=DmdType]
lvl118_slh7 = runStored_resL @ Action ruleinfo_slgP } in
let {
lvl119_slh8 :: Key -> Value -> Value -> EqualCost
[LclId, Arity=3, Str=DmdType]
lvl119_slh8 = runEqual_resM @ Action ruleinfo_slgP } in
let {
a60_smsu :: MVar ()
[LclId, Str=DmdType m]
a60_smsu = GHC.MVar.MVar @ () ipv7_imsp } in
let {
diagnostic_skEI :: [Char] -> IO ()
[LclId, Str=DmdType]
diagnostic_skEI =
case ww3_sto1 of _ [Occ=Dead] {
__DEFAULT ->
a35_rxta
`cast` (<[Char]>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: ([Char]
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# ([Char] -> IO ()));
Diagnostic ->
(\ (x1_Xb3g :: [Char])
(eta_XTx [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
Control.Concurrent.Extra.withLock1
@ ()
(a60_smsu
`cast` (Sym Control.Concurrent.Extra.NTCo:Lock[0]
:: MVar () ~R# Lock))
(ww18_stog
Development.Shake.Types.Diagnostic
(++ @ Char lvl34_rxtR x1_Xb3g))
eta_XTx)
`cast` (<[Char]>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: ([Char]
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# ([Char] -> IO ()))
} } in
let {
a61_sngO
:: Verbosity
-> String
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId,
Arity=3,
Str=DmdType <L,U><L,U><L,U> {djiK-><L,1*C1(C1(C(U)))>
slfM-><L,1*C1(U)> smsu-><L,1*U(U)>},
Unf=Unf{Src=InlineStable, TopLvl=False, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=False)
Tmpl= \ (v_aex3 [Occ=Once] :: Verbosity)
(eta_Xdl [Occ=Once] :: String)
(eta1_XqF [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
Control.Concurrent.Extra.withLock1
@ ()
(a60_smsu
`cast` (Sym Control.Concurrent.Extra.NTCo:Lock[0]
:: MVar () ~R# Lock))
(ww18_stog v_aex3 (lvl116_svxx eta_Xdl))
eta1_XqF}]
a61_sngO =
\ (v_aex3 :: Verbosity)
(eta_Xdl :: String)
(eta1_XqF [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
Control.Concurrent.Extra.withLock1
@ ()
(a60_smsu
`cast` (Sym Control.Concurrent.Extra.NTCo:Lock[0]
:: MVar () ~R# Lock))
(ww18_stog v_aex3 (lvl116_svxx eta_Xdl))
eta1_XqF } in
let {
a62_smvI
:: Either SomeException ()
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId, Arity=2, Str=DmdType <L,1*U><L,U>]
a62_smvI =
\ (x1_aexu :: Either SomeException ())
(eta_Xds [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case ww4_sto2 of _ [Occ=Dead] {
False ->
case x1_aexu of _ [Occ=Dead] {
Left x2_ik3X ->
GHC.Prim.raiseIO# @ SomeException @ () x2_ik3X eta_Xds;
Right y_ik40 -> (# eta_Xds, GHC.Tuple.() #)
};
True ->
case GHC.Prim.catch#
@ (Either SomeException ())
@ SomeException
(\ (s2_imvi [OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case x1_aexu of wild5_ik3V {
Left x2_ik3X ->
case GHC.Prim.raiseIO#
@ SomeException @ () x2_ik3X s2_imvi
of wild6_00 {
};
Right y_ik40 -> (# s2_imvi, wild5_ik3V #)
})
lvl97_rxvs
eta_Xds
of _ [Occ=Dead] { (# ipv20_XlN6, ipv21_XlN8 #) ->
case ipv21_XlN8 of _ [Occ=Dead] {
Left err_aex8 ->
let {
a63_smuV :: [Char]
[LclId, Str=DmdType]
a63_smuV =
case err_aex8
of _ [Occ=Dead]
{ SomeException @ e10_iaE7 $dException1_iaE8 e2_iaE9 ->
case ((GHC.Exception.$p1Exception
@ e10_iaE7 $dException1_iaE8)
`cast` (Data.Typeable.Internal.NTCo:Typeable[0]
<*>_N <e10_iaE7>_N
:: Typeable e10_iaE7
~R# (GHC.Prim.Proxy# e10_iaE7 -> TypeRep)))
(GHC.Prim.proxy# @ * @ e10_iaE7)
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt_iaP6 dt1_iaP7 ds12_iaP8
ds13_iaP9 ds14_iaPa ->
case dt_iaP6 of _ [Occ=Dead] {
__DEFAULT -> GHC.Types.[] @ Char;
__word 10157797340292954314 ->
case dt1_iaP7 of _ [Occ=Dead] {
__DEFAULT -> GHC.Types.[] @ Char;
__word 7334185207056361348 ->
lvl116_svxx
(shakeExceptionTarget
(e2_iaE9
`cast` (UnivCo mkUnsafeCo representational
e10_iaE7 ShakeException
:: e10_iaE7 ~R# ShakeException)))
}
}
}
} } in
let {
lvl120_slfP :: ([Char], SomeException)
[LclId, Str=DmdType m]
lvl120_slfP = (a63_smuV, err_aex8) } in
case GHC.Prim.atomicModifyMutVar#
@ GHC.Prim.RealWorld
@ (Maybe (String, SomeException))
@ (Maybe (String, SomeException), ())
@ ()
ipv9_imaA
(\ (v_aexa :: Maybe (String, SomeException)) ->
(GHC.Base.Just
@ ([Char], SomeException)
(case v_aexa of _ [Occ=Dead] {
Nothing -> lvl120_slfP;
Just v1_ik3e -> v1_ik3e
}),
GHC.Tuple.()))
ipv20_XlN6
of _ [Occ=Dead] { (# ipv22_XlSS, ipv23_XlSU #) ->
let {
$j2_smv9
:: GHC.Prim.Void#
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId, Arity=1, Str=DmdType <L,A>]
$j2_smv9 =
\ _ [Occ=Dead, OS=OneShot] ->
Control.Concurrent.Extra.withLock1
@ ()
(a60_smsu
`cast` (Sym Control.Concurrent.Extra.NTCo:Lock[0]
:: MVar () ~R# Lock))
(ww18_stog
Development.Shake.Types.Quiet
(lvl116_svxx
(case err_aex8
of _ [Occ=Dead]
{ SomeException @ e0_iaFO $dException_iaFP
e1_iaFQ ->
++
@ Char
(showsPrec
@ e0_iaFO
(GHC.Exception.$p2Exception
@ e0_iaFO $dException_iaFP)
GHC.Show.shows18
e1_iaFQ
(GHC.Types.[] @ Char))
lvl96_rxvr
})))
ipv22_XlSS } in
case ww3_sto1 of _ [Occ=Dead] {
Silent -> (# ipv22_XlSS, GHC.Tuple.() #);
Quiet -> $j2_smv9 GHC.Prim.void#;
Normal -> $j2_smv9 GHC.Prim.void#;
Loud -> $j2_smv9 GHC.Prim.void#;
Chatty -> $j2_smv9 GHC.Prim.void#;
Diagnostic -> $j2_smv9 GHC.Prim.void#
}
};
Right ds12_djip -> (# ipv20_XlN6, GHC.Tuple.() #)
}
}
} } in
let {
a63_smvN :: GHC.STRef.STRef GHC.Prim.RealWorld [IO ()]
[LclId, Str=DmdType m]
a63_smvN =
GHC.STRef.STRef @ GHC.Prim.RealWorld @ [IO ()] ipv13_XmCW } in
let {
a64_smvV :: GHC.STRef.STRef GHC.Prim.RealWorld [(Key, Key)]
[LclId, Str=DmdType m]
a64_smvV =
GHC.STRef.STRef @ GHC.Prim.RealWorld @ [(Key, Key)] ipv15_XmD7 } in
let {
a65_smyJ :: Bool
[LclId, Str=DmdType]
a65_smyJ =
case ipv17_XlND of _ [Occ=Dead] { GHC.Types.I# x1_Xbfs ->
case x1_Xbfs of _ [Occ=Dead] {
__DEFAULT -> GHC.Types.False;
1 -> GHC.Types.True
}
} } in
Control.Exception.Base.finally1
@ ()
@ ()
((\ (s2_XlNP [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case General.Cleanup.$wa
ipv19_imyU
((\ (s3_ilqr [OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case ww12_stoa of _ [Occ=Dead] {
False -> General.Timing.resetTimings1 s3_ilqr;
True ->
case General.Timing.printTimings1 s3_ilqr
of _ [Occ=Dead] { (# ipv20_XlEv, ipv21_XlEx #) ->
General.Timing.resetTimings1 ipv20_XlEv
}
})
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# IO ()))
s2_XlNP
of _ [Occ=Dead] { (# ipv20_XlNU, ipv21_XlNW #) ->
let {
a66_smzS :: GHC.STRef.STRef GHC.Prim.RealWorld General.Cleanup.S
[LclId, Str=DmdType m]
a66_smzS =
GHC.STRef.STRef
@ GHC.Prim.RealWorld @ General.Cleanup.S ipv19_imyU } in
Control.Concurrent.Extra.withNumCapabilities1
@ ()
ipv17_XlND
((\ (s3_XlTz [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case Development.Shake.Database.withDatabase1
@ ()
wild3_X4K
diagnostic_skEI
((\ (database_aexk :: Database)
(eta_X69 [OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.newMVar#
@ GHC.Prim.RealWorld @ () eta_X69
of _ [Occ=Dead] { (# ipv22_imA7, ipv23_imA8 #) ->
case GHC.Prim.newMVar#
@ GHC.Prim.RealWorld
@ (Either (MVar ()) ())
ipv22_imA7
of _ [Occ=Dead] { (# ipv24_imAc, ipv25_imAd #) ->
case GHC.Prim.putMVar#
@ GHC.Prim.RealWorld
@ (Either (MVar ()) ())
ipv25_imAd
(Data.Either.Left
@ (MVar ())
@ ()
(GHC.MVar.MVar @ () ipv23_imA8))
ipv24_imAc
of s2#1_imAf [OS=OneShot] { __DEFAULT ->
case GHC.Prim.fork#
@ (IO ())
((\ (eta1_imAm [OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
GHC.Prim.catch#
@ ()
@ SomeException
(Control.Exception.Base.finally1
@ ()
@ ()
(ww17_stof
((\ (s4_XmL2 [OS=OneShot]
:: GHC.Prim.State#
GHC.Prim.RealWorld) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld
@ (Maybe
(String,
SomeException))
ipv9_imaA
s4_XmL2
of _ [Occ=Dead]
{ (# ipv26_ilko, ipv27_ilkp #) ->
case database_aexk
of _ [Occ=Dead]
{ Development.Shake.Database.Database ww20_imAA
ww21_imAB
ww22_imAC
ww23_imAD
ww24_imAE
ww25_imAF
ww26_imAG ->
case ww22_imAC
`cast` (GHC.IORef.NTCo:IORef[0] <Development.Shake.Database.Map
General.Intern.Id
(Key,
Development.Shake.Database.Status)>_N
:: IORef
(Development.Shake.Database.Map
General.Intern.Id
(Key,
Development.Shake.Database.Status))
~R# GHC.STRef.STRef
GHC.Prim.RealWorld
(Development.Shake.Database.Map
General.Intern.Id
(Key,
Development.Shake.Database.Status)))
of _ [Occ=Dead]
{ GHC.STRef.STRef ww28_imAK ->
case Development.Shake.Database.$wa11
ww28_imAK
ww23_imAD
ipv26_ilko
of _ [Occ=Dead]
{ (# ipv28_XlOp, ipv29_XlOr #) ->
(# ipv28_XlOp,
case ipv29_XlOr
of _ [Occ=Dead]
{ Progress ds16_djhQ dt_djuz
dt1_djuA dt2_djuB
dt3_djuC dt4_djuD
dt5_djuE dt6_djuF
dt7_djuG
dt8_djuH ->
case case ipv27_ilkp
of _ [Occ=Dead] {
Nothing ->
GHC.Base.Nothing
@ String;
Just a67_iaJQ ->
GHC.Base.Just
@ String
(fst
@ String
@ SomeException
a67_iaJQ)
}
of dt9_Xji9 { __DEFAULT ->
Development.Shake.Progress.Progress
dt9_Xji9
dt_djuz
dt1_djuA
dt2_djuB
dt3_djuC
dt4_djuD
dt5_djuE
dt6_djuF
dt7_djuG
dt8_djuH
}
} #)
}
}
}
})
`cast` (Sym
(GHC.Types.NTCo:IO[0]
<Progress>_R)
:: (GHC.Prim.State#
GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
Progress #))
~R# IO Progress)))
((Control.Concurrent.Extra.signalBarrier1
@ ()
((GHC.MVar.MVar
@ (Either (MVar ()) ())
ipv25_imAd)
`cast` (Sym
Control.Concurrent.Extra.NTCo:Var[0] <Either
(MVar
())
()>_N
; Sym
(Control.Concurrent.Extra.NTCo:Barrier[0]
<()>_R)
:: MVar
(Either (MVar ()) ())
~R# Barrier ()))
GHC.Tuple.())
`cast` (Sym
(GHC.Types.NTCo:IO[0]
<()>_R)
:: (GHC.Prim.State#
GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
() #))
~R# IO ())))
GHC.Conc.Sync.childHandler1
eta1_imAm)
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
() #))
~R# IO ()))
s2#1_imAf
of _ [Occ=Dead] { (# ipv26_imAr, ipv27_imAs #) ->
case General.Cleanup.$wa
ipv19_imyU
((\ (s4_XlTW [OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.killThread#
@ SomeException
ipv27_imAs
lvl105_rxvD
s4_XlTW
of s5_imCt [OS=OneShot] { __DEFAULT ->
case System.Time.Extra.$wa1
@ ()
1000000.0
((\ (w3_imCx [OS=OneShot]
:: GHC.Prim.State#
GHC.Prim.RealWorld) ->
Control.Concurrent.Extra.$wa
@ () ipv25_imAd w3_imCx)
`cast` (Sym
(GHC.Types.NTCo:IO[0]
<()>_R)
:: (GHC.Prim.State#
GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
() #))
~R# IO ()))
s5_imCt
of _ [Occ=Dead]
{ (# ipv28_ilqM, ipv29_ilqN #) ->
(# ipv28_ilqM, GHC.Tuple.() #)
}
})
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
() #))
~R# IO ()))
ipv26_imAr
of _ [Occ=Dead] { (# ipv28_XlU0, ipv29_XlU2 #) ->
case General.Timing.addTiming1 lvl17_rxtA ipv28_XlU0
of _ [Occ=Dead] { (# ipv30_XlU4, ipv31_XlU6 #) ->
case Development.Shake.Pool.runPool1
a65_smyJ
ipv17_XlND
((\ (pool_aexq [OS=OneShot] :: Pool)
(eta1_XcW [OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
let {
s0_skEM :: Global
[LclId, Str=DmdType]
s0_skEM =
Development.Shake.Core.Global
database_aexk
pool_aexq
(a66_smzS
`cast` (Sym
GHC.IORef.NTCo:IORef[0] <General.Cleanup.S>_N
; Sym
General.Cleanup.NTCo:Cleanup[0]
:: GHC.STRef.STRef
GHC.Prim.RealWorld
General.Cleanup.S
~R# Cleanup))
ipv1_ilkQ
ruleinfo_slgP
(a61_sngO
`cast` (<Verbosity>_R
-> <String>_R
-> Sym
(GHC.Types.NTCo:IO[0]
<()>_R)
:: (Verbosity
-> String
-> GHC.Prim.State#
GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
() #))
~R# (Verbosity
-> String -> IO ())))
wild3_X4K
diagnostic_skEI
ipv11_XlN7
(a63_smvN
`cast` (Sym
GHC.IORef.NTCo:IORef[0] <[IO
()]>_N
:: GHC.STRef.STRef
GHC.Prim.RealWorld
[IO ()]
~R# IORef [IO ()]))
(a64_smvV
`cast` (Sym
GHC.IORef.NTCo:IORef[0] <[(Key,
Key)]>_N
:: GHC.STRef.STRef
GHC.Prim.RealWorld
[(Key, Key)]
~R# IORef
[(Key, Key)])) } in
letrec {
a67_sqlE [Occ=LoopBreaker]
:: [Action ()]
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
() #)
[LclId, Arity=2, Str=DmdType <S,1*U><L,U>]
a67_sqlE =
\ (ds17_iaAW :: [Action ()])
(eta2_Xd3 [OS=OneShot]
:: GHC.Prim.State#
GHC.Prim.RealWorld) ->
case ds17_iaAW of _ [Occ=Dead] {
[] -> (# eta2_Xd3, GHC.Tuple.() #);
: y_iaB1 ys_iaB2 ->
case pool_aexq
of _ [Occ=Dead]
{ Development.Shake.Pool.Pool ww20_ilVY
ww21_ilVZ ->
case Development.Shake.Pool.$wa
@ ()
ww20_ilVY
ww21_ilVZ
((Development.Shake.Monad.runRAW1
@ Global
@ Local
@ ()
s0_skEM
s1_slgX
(y_iaB1
`cast` (Development.Shake.Core.NTCo:Action[0] <()>_N
:: Action ()
~R# RAW
Global
Local
()))
(a62_smvI
`cast` (<Either
SomeException
()>_R
-> Sym
(GHC.Types.NTCo:IO[0]
<()>_R)
:: (Either
SomeException
()
-> GHC.Prim.State#
GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
() #))
~R# (Either
SomeException
()
-> IO
()))))
`cast` (Sym
(GHC.Types.NTCo:IO[0]
<()>_R)
:: (GHC.Prim.State#
GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
() #))
~R# IO ()))
eta2_Xd3
of _ [Occ=Dead]
{ (# ipv32_XlUj, ipv33_XlUl #) ->
a67_sqlE ys_iaB2 ipv32_XlUj
}
}
}; } in
a67_sqlE ds_djhC eta1_XcW)
`cast` (<Pool>_R
-> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (Pool
-> GHC.Prim.State#
GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
() #))
~R# (Pool -> IO ())))
ipv30_XlU4
of _ [Occ=Dead] { (# ipv32_XlU8, ipv33_XlUa #) ->
let {
$w$j_stnL [InlPrag=[0]]
:: GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId, Arity=1, Str=DmdType <L,U>]
$w$j_stnL =
\ (w3_stnJ [OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
let {
$w$j1_stnG [InlPrag=[0]]
:: GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
() #)
[LclId, Arity=1, Str=DmdType <L,U>]
$w$j1_stnG =
\ (w4_stnE [OS=OneShot]
:: GHC.Prim.State#
GHC.Prim.RealWorld) ->
case p1_XmFW of _ [Occ=Dead] {
False -> (# w4_stnE, GHC.Tuple.() #);
True ->
case General.Timing.addTiming1
lvl12_rxtv w4_stnE
of _ [Occ=Dead]
{ (# ipv34_XlUq, ipv35_XlUs #) ->
case database_aexk
of _ [Occ=Dead]
{ Development.Shake.Database.Database ww20_imDl
ww21_imDm
ww22_imDn
ww23_imDo
ww24_imDp
ww25_imDq
ww26_imDr ->
case ((ww25_imDq
Development.Shake.Database.listLive2)
`cast` (GHC.Types.NTCo:IO[0]
<()>_R
:: IO ()
~R# (GHC.Prim.State#
GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
() #))))
ipv34_XlUq
of _ [Occ=Dead]
{ (# ipv36_ipPN, ipv37_ipPO #) ->
case ww22_imDn
`cast` (GHC.IORef.NTCo:IORef[0] <Development.Shake.Database.Map
General.Intern.Id
(Key,
Development.Shake.Database.Status)>_N
:: IORef
(Development.Shake.Database.Map
General.Intern.Id
(Key,
Development.Shake.Database.Status))
~R# GHC.STRef.STRef
GHC.Prim.RealWorld
(Development.Shake.Database.Map
General.Intern.Id
(Key,
Development.Shake.Database.Status)))
of _ [Occ=Dead]
{ GHC.STRef.STRef var#_ipPS ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld
@ (Development.Shake.Database.Map
General.Intern.Id
(Key,
Development.Shake.Database.Status))
var#_ipPS
ipv36_ipPN
of _ [Occ=Dead]
{ (# ipv38_ipPW, ipv39_ipPX #) ->
let {
lvl120_slht :: String
[LclId, Str=DmdType]
lvl120_slht =
unlines
(go4_rxvC
(Development.Shake.Database.listLive_go
(GHC.Types.[] @ Key)
ipv39_ipPX)) } in
letrec {
a67_sqm2 [Occ=LoopBreaker]
:: [FilePath]
-> GHC.Prim.State#
GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
() #)
[LclId,
Arity=2,
Str=DmdType <S,1*U><L,U>]
a67_sqm2 =
\ (ds21_iaAW :: [FilePath])
(eta1_XdE [OS=OneShot]
:: GHC.Prim.State#
GHC.Prim.RealWorld) ->
case ds21_iaAW of _ [Occ=Dead] {
[] ->
(# eta1_XdE, GHC.Tuple.() #);
: y_iaB1 ys_iaB2 ->
let {
$w$j2_stnB [InlPrag=[0]]
:: GHC.Prim.State#
GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
() #)
[LclId,
Arity=1,
Str=DmdType <L,U>]
$w$j2_stnB =
\ (w5_stnz [OS=OneShot]
:: GHC.Prim.State#
GHC.Prim.RealWorld) ->
case GHC.Base.eqString
y_iaB1
lvl10_rxtt
of _ [Occ=Dead] {
False ->
System.IO.writeFile1
y_iaB1
lvl120_slht
w5_stnz;
True ->
GHC.IO.Handle.Text.hPutStr2
stdout
lvl120_slht
GHC.Types.False
w5_stnz
} } in
case ww3_sto1
of _ [Occ=Dead] {
__DEFAULT ->
case $w$j2_stnB eta1_XdE
of _ [Occ=Dead]
{ (# ipv40_XlSE, ipv41_XlSG #) ->
a67_sqm2
ys_iaB2 ipv40_XlSE
};
Normal ->
case Control.Concurrent.Extra.withLock1
@ ()
(a60_smsu
`cast` (Sym
Control.Concurrent.Extra.NTCo:Lock[0]
:: MVar
()
~R# Lock))
(ww18_stog
Development.Shake.Types.Normal
(lvl116_svxx
(lvl11_rxtu
@ [Char]
(GHC.Types.:
@ Char)
y_iaB1)))
eta1_XdE
of _ [Occ=Dead]
{ (# ipv40_XlSC, ipv41_XlSE #) ->
case $w$j2_stnB
ipv40_XlSC
of _ [Occ=Dead]
{ (# ipv42_Xm7H, ipv43_XlSG #) ->
a67_sqm2
ys_iaB2 ipv42_Xm7H
}
};
Loud ->
case Control.Concurrent.Extra.withLock1
@ ()
(a60_smsu
`cast` (Sym
Control.Concurrent.Extra.NTCo:Lock[0]
:: MVar
()
~R# Lock))
(ww18_stog
Development.Shake.Types.Normal
(lvl116_svxx
(lvl11_rxtu
@ [Char]
(GHC.Types.:
@ Char)
y_iaB1)))
eta1_XdE
of _ [Occ=Dead]
{ (# ipv40_XlSC, ipv41_XlSE #) ->
case $w$j2_stnB
ipv40_XlSC
of _ [Occ=Dead]
{ (# ipv42_Xm7H, ipv43_XlSG #) ->
a67_sqm2
ys_iaB2 ipv42_Xm7H
}
};
Chatty ->
case Control.Concurrent.Extra.withLock1
@ ()
(a60_smsu
`cast` (Sym
Control.Concurrent.Extra.NTCo:Lock[0]
:: MVar
()
~R# Lock))
(ww18_stog
Development.Shake.Types.Normal
(lvl116_svxx
(lvl11_rxtu
@ [Char]
(GHC.Types.:
@ Char)
y_iaB1)))
eta1_XdE
of _ [Occ=Dead]
{ (# ipv40_XlSC, ipv41_XlSE #) ->
case $w$j2_stnB
ipv40_XlSC
of _ [Occ=Dead]
{ (# ipv42_Xm7H, ipv43_XlSG #) ->
a67_sqm2
ys_iaB2 ipv42_Xm7H
}
};
Diagnostic ->
case Control.Concurrent.Extra.withLock1
@ ()
(a60_smsu
`cast` (Sym
Control.Concurrent.Extra.NTCo:Lock[0]
:: MVar
()
~R# Lock))
(ww18_stog
Development.Shake.Types.Normal
(lvl116_svxx
(lvl11_rxtu
@ [Char]
(GHC.Types.:
@ Char)
y_iaB1)))
eta1_XdE
of _ [Occ=Dead]
{ (# ipv40_XlSC, ipv41_XlSE #) ->
case $w$j2_stnB
ipv40_XlSC
of _ [Occ=Dead]
{ (# ipv42_Xm7H, ipv43_XlSG #) ->
a67_sqm2
ys_iaB2 ipv42_Xm7H
}
}
}
}; } in
a67_sqm2 ww16_stoe ipv38_ipPW
}
}
}
}
}
} } in
case p_XmFL of _ [Occ=Dead] {
False -> $w$j1_stnG w3_stnJ;
True ->
case General.Timing.addTiming1
lvl14_rxtx w3_stnJ
of _ [Occ=Dead]
{ (# ipv34_XlUm, ipv35_XlUo #) ->
case database_aexk
of _ [Occ=Dead]
{ Development.Shake.Database.Database ww20_imDB
ww21_imDC
ww22_imDD
ww23_imDE
ww24_imDF
ww25_imDG
ww26_imDH ->
case ww22_imDD
`cast` (GHC.IORef.NTCo:IORef[0] <Development.Shake.Database.Map
General.Intern.Id
(Key,
Development.Shake.Database.Status)>_N
:: IORef
(Development.Shake.Database.Map
General.Intern.Id
(Key,
Development.Shake.Database.Status))
~R# GHC.STRef.STRef
GHC.Prim.RealWorld
(Development.Shake.Database.Map
General.Intern.Id
(Key,
Development.Shake.Database.Status)))
of _ [Occ=Dead]
{ GHC.STRef.STRef ww28_imDL ->
case Development.Shake.Database.$wa13
ww28_imDL ipv34_XlUm
of _ [Occ=Dead]
{ (# ipv36_XlOL, ipv37_XlON #) ->
letrec {
a67_sqmj [Occ=LoopBreaker]
:: [FilePath]
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
() #)
[LclId, Arity=2, Str=DmdType <S,1*U><L,U>]
a67_sqmj =
\ (ds20_iaAW :: [FilePath])
(eta1_Xdx [OS=OneShot]
:: GHC.Prim.State#
GHC.Prim.RealWorld) ->
case ds20_iaAW of _ [Occ=Dead] {
[] -> (# eta1_Xdx, GHC.Tuple.() #);
: y_iaB1 ys_iaB2 ->
case ww3_sto1 of _ [Occ=Dead] {
__DEFAULT ->
case Development.Shake.Profile.writeProfile1
y_iaB1
ipv37_XlON
eta1_Xdx
of _ [Occ=Dead]
{ (# ipv38_XlSw, ipv39_XlSy #) ->
a67_sqmj ys_iaB2 ipv38_XlSw
};
Normal ->
case Control.Concurrent.Extra.withLock1
@ ()
(a60_smsu
`cast` (Sym
Control.Concurrent.Extra.NTCo:Lock[0]
:: MVar ()
~R# Lock))
(ww18_stog
Development.Shake.Types.Normal
(lvl116_svxx
(lvl13_rxtw
@ [Char]
(GHC.Types.:
@ Char)
y_iaB1)))
eta1_Xdx
of _ [Occ=Dead]
{ (# ipv38_XlSu, ipv39_XlSw #) ->
case Development.Shake.Profile.writeProfile1
y_iaB1
ipv37_XlON
ipv38_XlSu
of _ [Occ=Dead]
{ (# ipv40_Xm7v, ipv41_XlSy #) ->
a67_sqmj ys_iaB2 ipv40_Xm7v
}
};
Loud ->
case Control.Concurrent.Extra.withLock1
@ ()
(a60_smsu
`cast` (Sym
Control.Concurrent.Extra.NTCo:Lock[0]
:: MVar ()
~R# Lock))
(ww18_stog
Development.Shake.Types.Normal
(lvl116_svxx
(lvl13_rxtw
@ [Char]
(GHC.Types.:
@ Char)
y_iaB1)))
eta1_Xdx
of _ [Occ=Dead]
{ (# ipv38_XlSu, ipv39_XlSw #) ->
case Development.Shake.Profile.writeProfile1
y_iaB1
ipv37_XlON
ipv38_XlSu
of _ [Occ=Dead]
{ (# ipv40_Xm7v, ipv41_XlSy #) ->
a67_sqmj ys_iaB2 ipv40_Xm7v
}
};
Chatty ->
case Control.Concurrent.Extra.withLock1
@ ()
(a60_smsu
`cast` (Sym
Control.Concurrent.Extra.NTCo:Lock[0]
:: MVar ()
~R# Lock))
(ww18_stog
Development.Shake.Types.Normal
(lvl116_svxx
(lvl13_rxtw
@ [Char]
(GHC.Types.:
@ Char)
y_iaB1)))
eta1_Xdx
of _ [Occ=Dead]
{ (# ipv38_XlSu, ipv39_XlSw #) ->
case Development.Shake.Profile.writeProfile1
y_iaB1
ipv37_XlON
ipv38_XlSu
of _ [Occ=Dead]
{ (# ipv40_Xm7v, ipv41_XlSy #) ->
a67_sqmj ys_iaB2 ipv40_Xm7v
}
};
Diagnostic ->
case Control.Concurrent.Extra.withLock1
@ ()
(a60_smsu
`cast` (Sym
Control.Concurrent.Extra.NTCo:Lock[0]
:: MVar ()
~R# Lock))
(ww18_stog
Development.Shake.Types.Normal
(lvl116_svxx
(lvl13_rxtw
@ [Char]
(GHC.Types.:
@ Char)
y_iaB1)))
eta1_Xdx
of _ [Occ=Dead]
{ (# ipv38_XlSu, ipv39_XlSw #) ->
case Development.Shake.Profile.writeProfile1
y_iaB1
ipv37_XlON
ipv38_XlSu
of _ [Occ=Dead]
{ (# ipv40_Xm7v, ipv41_XlSy #) ->
a67_sqmj ys_iaB2 ipv40_Xm7v
}
}
}
}; } in
case a67_sqmj ww5_sto3 ipv36_XlOL
of _ [Occ=Dead]
{ (# ipv38_XlUi, ipv39_XlUk #) ->
$w$j1_stnG ipv38_XlUi
}
}
}
}
}
} } in
case ww6_sto4 of _ [Occ=Dead] {
Nothing -> $w$j_stnL ipv32_XlU8;
Just ipv34_ima1 ->
case General.Timing.addTiming1
lvl16_rxtz ipv32_XlU8
of _ [Occ=Dead] { (# ipv35_XlUi, ipv36_XlUk #) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld
@ [(Key, Key)]
ipv15_XmD7
ipv35_XlUi
of _ [Occ=Dead] { (# ipv37_XlOH, ipv38_XlOJ #) ->
case database_aexk
of _ [Occ=Dead]
{ Development.Shake.Database.Database ww20_imE0
ww21_imE1
ww22_imE2
ww23_imE3
ww24_imE4
ww25_imE5
ww26_imE6 ->
case ww22_imE2
`cast` (GHC.IORef.NTCo:IORef[0] <Development.Shake.Database.Map
General.Intern.Id
(Key,
Development.Shake.Database.Status)>_N
:: IORef
(Development.Shake.Database.Map
General.Intern.Id
(Key,
Development.Shake.Database.Status))
~R# GHC.STRef.STRef
GHC.Prim.RealWorld
(Development.Shake.Database.Map
General.Intern.Id
(Key,
Development.Shake.Database.Status)))
of _ [Occ=Dead] { GHC.STRef.STRef ww28_imEa ->
case Development.Shake.Database.$wa7
ww21_imE1
ww28_imEa
ww25_imE5
lvl118_slh7
lvl119_slh8
ipv38_XlOJ
ipv37_XlOH
of _ [Occ=Dead] { (# ipv39_XlUq, ipv40_XlUs #) ->
case ww3_sto1 of _ [Occ=Dead] {
__DEFAULT -> $w$j_stnL ipv39_XlUq;
Loud ->
case Control.Concurrent.Extra.withLock1
@ ()
(a60_smsu
`cast` (Sym
Control.Concurrent.Extra.NTCo:Lock[0]
:: MVar () ~R# Lock))
lvl117_svxX
ipv39_XlUq
of _ [Occ=Dead]
{ (# ipv41_XlUd, ipv42_Xmog #) ->
$w$j_stnL ipv41_XlUd
};
Chatty ->
case Control.Concurrent.Extra.withLock1
@ ()
(a60_smsu
`cast` (Sym
Control.Concurrent.Extra.NTCo:Lock[0]
:: MVar () ~R# Lock))
lvl117_svxX
ipv39_XlUq
of _ [Occ=Dead]
{ (# ipv41_XlUd, ipv42_Xmog #) ->
$w$j_stnL ipv41_XlUd
};
Diagnostic ->
case Control.Concurrent.Extra.withLock1
@ ()
(a60_smsu
`cast` (Sym
Control.Concurrent.Extra.NTCo:Lock[0]
:: MVar () ~R# Lock))
lvl117_svxX
ipv39_XlUq
of _ [Occ=Dead]
{ (# ipv41_XlUd, ipv42_Xmog #) ->
$w$j_stnL ipv41_XlUd
}
}
}
}
}
}
}
}
}
}
}
}
}
}
})
`cast` (<Database>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (Database
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
() #))
~R# (Database -> IO ())))
s3_XlTz
of _ [Occ=Dead] { (# ipv22_XlTE, ipv23_XlTG #) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld
@ (Maybe (String, SomeException))
ipv9_imaA
ipv22_XlTE
of _ [Occ=Dead] { (# ipv24_XlNl, ipv25_XlNn #) ->
case ipv25_XlNn of _ [Occ=Dead] {
Nothing ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ [IO ()] ipv13_XmCW ipv24_XlNl
of _ [Occ=Dead] { (# ipv26_XlNv, ipv27_XlNx #) ->
a53_rxvB
(GHC.List.reverse1
@ (IO ()) ipv27_XlNx (GHC.Types.[] @ (IO ())))
ipv26_XlNv
};
Just x1_ik30 ->
GHC.Prim.raiseIO#
@ SomeException
@ ()
(snd @ String @ SomeException x1_ik30)
ipv24_XlNl
}
}
})
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# IO ()))
ipv20_XlNU
})
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# IO ()))
((\ (s2_imyW [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.atomicModifyMutVar#
@ GHC.Prim.RealWorld
@ General.Cleanup.S
@ (General.Cleanup.S, Map.HashMap Int (IO ()))
@ (Map.HashMap Int (IO ()))
ipv19_imyU
General.Cleanup.withCleanup4
s2_imyW
of _ [Occ=Dead] { (# ipv20_imz1, ipv21_imz2 #) ->
General.Cleanup.withCleanup3
(sortBy
@ (Int, IO ())
General.Cleanup.withCleanup2
(General.Cleanup.withCleanup_go
(GHC.Types.[] @ (Int, IO ())) ipv21_imz2))
ipv20_imz1
})
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# IO ()))
ipv18_imyT
} } in
case x_iaMy of _ [Occ=Dead] {
__DEFAULT -> $j1_smEU ipv14_XmD5 wild2_iaMw;
0 ->
case (getProcessorCount
`cast` (GHC.Types.NTCo:IO[0] <Int>_R
:: IO Int
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, Int #))))
ipv14_XmD5
of _ [Occ=Dead] { (# ipv16_XlNB, ipv17_XlND #) ->
$j1_smEU ipv16_XlNB ipv17_XlND
}
}
}
}
} } in
case ww6_sto4 of _ [Occ=Dead] {
Nothing ->
$j_smF0
ipv8_imaz
(lvl106_rxvE
`cast` (<String>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (String
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (String -> IO ())));
Just ipv10_imvJ ->
case System.Win32.Info.getCurrentDirectory_$s$wa
System.Win32.Info.getCurrentDirectory2
@~ (<System.Win32.Types.LPTSTR>_R
-> <System.Win32.Types.UINT>_R
-> Sym (GHC.Types.NTCo:IO[0] <System.Win32.Types.UINT>_R))
(__word 512)
ipv8_imaz
of _ [Occ=Dead] { (# ipv11_XlN8, ipv12_XlNa #) ->
let {
a60_smc7 :: Maybe String
[LclId, Str=DmdType]
a60_smc7 = GHC.Base.Just @ String ipv12_XlNa } in
let {
lvl116_slfX :: ([Char], Maybe String)
[LclId, Str=DmdType m]
lvl116_slfX = (lvl31_rxtO, a60_smc7) } in
$j_smF0
ipv11_XlN8
((\ (msg_aexd :: String)
(eta_X64 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case System.Win32.Info.getCurrentDirectory_$s$wa
System.Win32.Info.getCurrentDirectory2
@~ (<System.Win32.Types.LPTSTR>_R
-> <System.Win32.Types.UINT>_R
-> Sym (GHC.Types.NTCo:IO[0] <System.Win32.Types.UINT>_R))
(__word 512)
eta_X64
of _ [Occ=Dead] { (# ipv13_Xlyy, ipv14_XlyA #) ->
case GHC.Classes.$fEq[]_$s$c==1 ipv12_XlNa ipv14_XlyA
of _ [Occ=Dead] {
False ->
case lvl107_rxvF ipv14_XlyA msg_aexd lvl116_slfX of wild4_00 { };
True -> (# ipv13_Xlyy, GHC.Tuple.() #)
}
})
`cast` (<String>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (String
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (String -> IO ())))
}
}
}
}
}
}
}
}
}
} } in
case ww11_sto9 of _ [Occ=Dead] {
False -> a59_smFa w1_stnV;
True ->
System.IO.Extra.withBuffering1
@ ()
stdout
GHC.IO.Handle.Types.LineBuffering
((System.IO.Extra.withBuffering1
@ ()
stderr
GHC.IO.Handle.Types.LineBuffering
(a59_smFa
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# IO ())))
`cast` (Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# IO ()))
w1_stnV
}
Development.Shake.Core.run1 [InlPrag=INLINE[0]]
:: ShakeOptions
-> Rules ()
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=3,
Str=DmdType <S(LLLLLLLLLLLSLLLLLLL),1*U(U,U(U),U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U)><L,1*C1(U(U,1*U(A,1*U(U,U))))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=False)
Tmpl= \ (w_stnT [Occ=Once!] :: ShakeOptions)
(w1_stnU [Occ=Once] :: Rules ())
(w2_stnV [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w_stnT
of _ [Occ=Dead]
{ ShakeOptions ww1_stnY [Occ=Once] ww2_stnZ [Occ=Once]
ww3_sto0 [Occ=Once] ww4_sto1 [Occ=Once] ww5_sto2 [Occ=Once]
ww6_sto3 [Occ=Once] ww7_sto4 [Occ=Once] ww8_sto5 [Occ=Once]
ww9_sto6 [Occ=Once] ww10_sto7 [Occ=Once] ww11_sto8 [Occ=Once]
ww12_sto9 [Occ=Once] ww13_stoa [Occ=Once] ww14_stob [Occ=Once]
ww15_stoc [Occ=Once] ww16_stod [Occ=Once] ww17_stoe [Occ=Once]
ww18_stof [Occ=Once] ww19_stog [Occ=Once] ->
Development.Shake.Core.$wa2
ww1_stnY
ww2_stnZ
ww3_sto0
ww4_sto1
ww5_sto2
ww6_sto3
ww7_sto4
ww8_sto5
ww9_sto6
ww10_sto7
ww11_sto8
ww12_sto9
ww13_stoa
ww14_stob
ww15_stoc
ww16_stod
ww17_stoe
ww18_stof
ww19_stog
w1_stnU
w2_stnV
}}]
Development.Shake.Core.run1 =
\ (w_stnT :: ShakeOptions)
(w1_stnU :: Rules ())
(w2_stnV [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w_stnT
of _ [Occ=Dead]
{ ShakeOptions ww1_stnY ww2_stnZ ww3_sto0 ww4_sto1 ww5_sto2
ww6_sto3 ww7_sto4 ww8_sto5 ww9_sto6 ww10_sto7 ww11_sto8 ww12_sto9
ww13_stoa ww14_stob ww15_stoc ww16_stod ww17_stoe ww18_stof
ww19_stog ->
Development.Shake.Core.$wa2
ww1_stnY
ww2_stnZ
ww3_sto0
ww4_sto1
ww5_sto2
ww6_sto3
ww7_sto4
ww8_sto5
ww9_sto6
ww10_sto7
ww11_sto8
ww12_sto9
ww13_stoa
ww14_stob
ww15_stoc
ww16_stod
ww17_stoe
ww18_stof
ww19_stog
w1_stnU
w2_stnV
}
rules
:: forall (m_aet5 :: * -> *).
SRules m_aet5
-> Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule m_aet5)])
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LS),1*U(A,1*U)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ (m_aeFO :: * -> *))
(ds_djlO [Occ=Once!] :: SRules m_aeFO) ->
case ds_djlO
of _ [Occ=Dead] { SRules _ [Occ=Dead] ds2_djlQ [Occ=Once] ->
ds2_djlQ
}}]
rules =
\ (@ (m_aeFO :: * -> *)) (ds_djlO :: SRules m_aeFO) ->
case ds_djlO of _ [Occ=Dead] { SRules ds1_djlP ds2_djlQ ->
ds2_djlQ
}
actions :: forall (m_aet5 :: * -> *). SRules m_aet5 -> [m_aet5 ()]
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(SL),1*U(1*U,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ (m_aeFN :: * -> *))
(ds_djlL [Occ=Once!] :: SRules m_aeFN) ->
case ds_djlL
of _ [Occ=Dead] { SRules ds1_djlM [Occ=Once] _ [Occ=Dead] ->
ds1_djlM
}}]
actions =
\ (@ (m_aeFN :: * -> *)) (ds_djlL :: SRules m_aeFN) ->
case ds_djlL of _ [Occ=Dead] { SRules ds1_djlM ds2_djlN ->
ds1_djlM
}
resultType :: forall (m_aet4 :: * -> *). RuleInfo m_aet4 -> TypeRep
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLLS),1*U(A,A,A,1*U(U,U,U,U,U))>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ (m_aeGh :: * -> *))
(ds_djlG [Occ=Once!] :: RuleInfo m_aeGh) ->
case ds_djlG
of _ [Occ=Dead]
{ RuleInfo _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
ds4_djlK [Occ=Once] ->
ds4_djlK
}}]
resultType =
\ (@ (m_aeGh :: * -> *)) (ds_djlG :: RuleInfo m_aeGh) ->
case ds_djlG
of _ [Occ=Dead] { RuleInfo ds1_djlH ds2_djlI ds3_djlJ ds4_djlK ->
ds4_djlK
}
Development.Shake.Core.execute
:: forall (m_aet4 :: * -> *).
RuleInfo m_aet4 -> Key -> m_aet4 Value
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLSL),1*U(A,A,1*U,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ (m_aeGg :: * -> *))
(ds_djlB [Occ=Once!] :: RuleInfo m_aeGg) ->
case ds_djlB
of _ [Occ=Dead]
{ RuleInfo _ [Occ=Dead] _ [Occ=Dead] ds3_djlE [Occ=Once]
_ [Occ=Dead] ->
ds3_djlE
}}]
Development.Shake.Core.execute =
\ (@ (m_aeGg :: * -> *)) (ds_djlB :: RuleInfo m_aeGg) ->
case ds_djlB
of _ [Occ=Dead] { RuleInfo ds1_djlC ds2_djlD ds3_djlE ds4_djlF ->
ds3_djlE
}
Development.Shake.Core.equal
:: forall (m_aet4 :: * -> *).
RuleInfo m_aet4 -> Key -> Value -> Value -> EqualCost
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LSLL),1*U(A,1*U,A,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ (m_aeGf :: * -> *))
(ds_djlw [Occ=Once!] :: RuleInfo m_aeGf) ->
case ds_djlw
of _ [Occ=Dead]
{ RuleInfo _ [Occ=Dead] ds2_djly [Occ=Once] _ [Occ=Dead]
_ [Occ=Dead] ->
ds2_djly
}}]
Development.Shake.Core.equal =
\ (@ (m_aeGf :: * -> *)) (ds_djlw :: RuleInfo m_aeGf) ->
case ds_djlw
of _ [Occ=Dead] { RuleInfo ds1_djlx ds2_djly ds3_djlz ds4_djlA ->
ds2_djly
}
Development.Shake.Core.stored
:: forall (m_aet4 :: * -> *).
RuleInfo m_aet4 -> Key -> IO (Maybe Value)
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(SLLL),1*U(1*U,A,A,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ (m_aeGe :: * -> *))
(ds_djlr [Occ=Once!] :: RuleInfo m_aeGe) ->
case ds_djlr
of _ [Occ=Dead]
{ RuleInfo ds1_djls [Occ=Once] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] ->
ds1_djls
}}]
Development.Shake.Core.stored =
\ (@ (m_aeGe :: * -> *)) (ds_djlr :: RuleInfo m_aeGe) ->
case ds_djlr
of _ [Occ=Dead] { RuleInfo ds1_djls ds2_djlt ds3_djlu ds4_djlv ->
ds1_djls
}
globalTrackAbsent :: Global -> IORef [(Key, Key)]
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLLLLLLLLLS),1*U(A,A,A,A,A,A,A,A,A,A,1*U(U))>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djld [Occ=Once!] :: Global) ->
case ds_djld
of _ [Occ=Dead]
{ Global _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] ds11_djlo [Occ=Once] ->
ds11_djlo
}}]
globalTrackAbsent =
\ (ds_djld :: Global) ->
case ds_djld
of _ [Occ=Dead]
{ Global ds1_djle ds2_djlf ds3_djlg ds4_djlh ds5_djli ds6_djlj
ds7_djlk ds8_djll ds9_djlm ds10_djln ds11_djlo ->
ds11_djlo
}
globalAfter :: Global -> IORef [IO ()]
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLLLLLLLLSL),1*U(A,A,A,A,A,A,A,A,A,1*U(U),A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djl1 [Occ=Once!] :: Global) ->
case ds_djl1
of _ [Occ=Dead]
{ Global _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
ds10_djlb [Occ=Once] _ [Occ=Dead] ->
ds10_djlb
}}]
globalAfter =
\ (ds_djl1 :: Global) ->
case ds_djl1
of _ [Occ=Dead]
{ Global ds1_djl2 ds2_djl3 ds3_djl4 ds4_djl5 ds5_djl6 ds6_djl7
ds7_djl8 ds8_djl9 ds9_djla ds10_djlb ds11_djlc ->
ds10_djlb
}
globalLint :: Global -> String -> IO ()
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLLLLLLLSLL),1*U(A,A,A,A,A,A,A,A,1*U,A,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djkP [Occ=Once!] :: Global) ->
case ds_djkP
of _ [Occ=Dead]
{ Global _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
ds9_djkY [Occ=Once] _ [Occ=Dead] _ [Occ=Dead] ->
ds9_djkY
}}]
globalLint =
\ (ds_djkP :: Global) ->
case ds_djkP
of _ [Occ=Dead]
{ Global ds1_djkQ ds2_djkR ds3_djkS ds4_djkT ds5_djkU ds6_djkV
ds7_djkW ds8_djkX ds9_djkY ds10_djkZ ds11_djl0 ->
ds9_djkY
}
globalDiagnostic :: Global -> String -> IO ()
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLLLLLLSLLL),1*U(A,A,A,A,A,A,A,1*U,A,A,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djkD [Occ=Once!] :: Global) ->
case ds_djkD
of _ [Occ=Dead]
{ Global _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ds8_djkL [Occ=Once]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
ds8_djkL
}}]
globalDiagnostic =
\ (ds_djkD :: Global) ->
case ds_djkD
of _ [Occ=Dead]
{ Global ds1_djkE ds2_djkF ds3_djkG ds4_djkH ds5_djkI ds6_djkJ
ds7_djkK ds8_djkL ds9_djkM ds10_djkN ds11_djkO ->
ds8_djkL
}
globalOptions :: Global -> ShakeOptions
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLLLLLSLLLL),1*U(A,A,A,A,A,A,1*U(U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U),A,A,A,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djkr [Occ=Once!] :: Global) ->
case ds_djkr
of _ [Occ=Dead]
{ Global _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] ds7_djky [Occ=Once] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
ds7_djky
}}]
globalOptions =
\ (ds_djkr :: Global) ->
case ds_djkr
of _ [Occ=Dead]
{ Global ds1_djks ds2_djkt ds3_djku ds4_djkv ds5_djkw ds6_djkx
ds7_djky ds8_djkz ds9_djkA ds10_djkB ds11_djkC ->
ds7_djky
}
globalOutput :: Global -> Verbosity -> String -> IO ()
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLLLLSLLLLL),1*U(A,A,A,A,A,1*U,A,A,A,A,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djkf [Occ=Once!] :: Global) ->
case ds_djkf
of _ [Occ=Dead]
{ Global _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] ds6_djkl [Occ=Once] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
ds6_djkl
}}]
globalOutput =
\ (ds_djkf :: Global) ->
case ds_djkf
of _ [Occ=Dead]
{ Global ds1_djkg ds2_djkh ds3_djki ds4_djkj ds5_djkk ds6_djkl
ds7_djkm ds8_djkn ds9_djko ds10_djkp ds11_djkq ->
ds6_djkl
}
globalRules :: Global -> Map.HashMap TypeRep (RuleInfo Action)
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLLLSLLLLLL),1*U(A,A,A,A,1*U,A,A,A,A,A,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djk3 [Occ=Once!] :: Global) ->
case ds_djk3
of _ [Occ=Dead]
{ Global _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
ds5_djk8 [Occ=Once] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
ds5_djk8
}}]
globalRules =
\ (ds_djk3 :: Global) ->
case ds_djk3
of _ [Occ=Dead]
{ Global ds1_djk4 ds2_djk5 ds3_djk6 ds4_djk7 ds5_djk8 ds6_djk9
ds7_djka ds8_djkb ds9_djkc ds10_djkd ds11_djke ->
ds5_djk8
}
globalTimestamp :: Global -> IO Seconds
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLLSLLLLLLL),1*U(A,A,A,1*U,A,A,A,A,A,A,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djjR [Occ=Once!] :: Global) ->
case ds_djjR
of _ [Occ=Dead]
{ Global _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ds4_djjV [Occ=Once]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] ->
ds4_djjV
}}]
globalTimestamp =
\ (ds_djjR :: Global) ->
case ds_djjR
of _ [Occ=Dead]
{ Global ds1_djjS ds2_djjT ds3_djjU ds4_djjV ds5_djjW ds6_djjX
ds7_djjY ds8_djjZ ds9_djk0 ds10_djk1 ds11_djk2 ->
ds4_djjV
}
globalCleanup :: Global -> Cleanup
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLSLLLLLLLL),1*U(A,A,1*U(U),A,A,A,A,A,A,A,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djjF [Occ=Once!] :: Global) ->
case ds_djjF
of _ [Occ=Dead]
{ Global _ [Occ=Dead] _ [Occ=Dead] ds3_djjI [Occ=Once] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] ->
ds3_djjI
}}]
globalCleanup =
\ (ds_djjF :: Global) ->
case ds_djjF
of _ [Occ=Dead]
{ Global ds1_djjG ds2_djjH ds3_djjI ds4_djjJ ds5_djjK ds6_djjL
ds7_djjM ds8_djjN ds9_djjO ds10_djjP ds11_djjQ ->
ds3_djjI
}
globalPool :: Global -> Pool
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LSLLLLLLLLL),1*U(A,1*U(U,U),A,A,A,A,A,A,A,A,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djjt [Occ=Once!] :: Global) ->
case ds_djjt
of _ [Occ=Dead]
{ Global _ [Occ=Dead] ds2_djjv [Occ=Once] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] ->
ds2_djjv
}}]
globalPool =
\ (ds_djjt :: Global) ->
case ds_djjt
of _ [Occ=Dead]
{ Global ds1_djju ds2_djjv ds3_djjw ds4_djjx ds5_djjy ds6_djjz
ds7_djjA ds8_djjB ds9_djjC ds10_djjD ds11_djjE ->
ds2_djjv
}
globalDatabase :: Global -> Database
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(SLLLLLLLLLL),1*U(1*U(U,U,U,U,U,U,U),A,A,A,A,A,A,A,A,A,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djjh [Occ=Once!] :: Global) ->
case ds_djjh
of _ [Occ=Dead]
{ Global ds1_djji [Occ=Once] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] ->
ds1_djji
}}]
globalDatabase =
\ (ds_djjh :: Global) ->
case ds_djjh
of _ [Occ=Dead]
{ Global ds1_djji ds2_djjj ds3_djjk ds4_djjl ds5_djjm ds6_djjn
ds7_djjo ds8_djjp ds9_djjq ds10_djjr ds11_djjs ->
ds1_djji
}
localTrackUsed :: Local -> [Key]
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLLLLLLS),1*U(A,A,A,A,A,A,A,1*U)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djmZ [Occ=Once!] :: Local) ->
case ds_djmZ
of _ [Occ=Dead]
{ Local _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ds7_djn7 [Occ=Once] ->
ds7_djn7
}}]
localTrackUsed =
\ (ds_djmZ :: Local) ->
case ds_djmZ
of _ [Occ=Dead]
{ Local ds1_djn0 ds2_djn1 ds3_djn2 ds4_djn3 dt_djuZ ds5_djn5
ds6_djn6 ds7_djn7 ->
ds7_djn7
}
localTrackAllows :: Local -> [Key -> Bool]
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLLLLLSL),1*U(A,A,A,A,A,A,1*U,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djmP [Occ=Once!] :: Local) ->
case ds_djmP
of _ [Occ=Dead]
{ Local _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] ds6_djmW [Occ=Once] _ [Occ=Dead] ->
ds6_djmW
}}]
localTrackAllows =
\ (ds_djmP :: Local) ->
case ds_djmP
of _ [Occ=Dead]
{ Local ds1_djmQ ds2_djmR ds3_djmS ds4_djmT dt_djuY ds5_djmV
ds6_djmW ds7_djmX ->
ds6_djmW
}
localTraces :: Local -> [Trace]
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLLLLSLL),1*U(A,A,A,A,A,1*U,A,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djmF [Occ=Once!] :: Local) ->
case ds_djmF
of _ [Occ=Dead]
{ Local _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] ds5_djmL [Occ=Once] _ [Occ=Dead] _ [Occ=Dead] ->
ds5_djmL
}}]
localTraces =
\ (ds_djmF :: Local) ->
case ds_djmF
of _ [Occ=Dead]
{ Local ds1_djmG ds2_djmH ds3_djmI ds4_djmJ dt_djuX ds5_djmL
ds6_djmM ds7_djmN ->
ds5_djmL
}
localDiscount :: Local -> Seconds
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S,1*U(A,A,A,A,U,A,A,A)>m,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djmv [Occ=Once!] :: Local) ->
case ds_djmv
of _ [Occ=Dead]
{ Local _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
dt_djuW [Occ=Once] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
GHC.Types.D# dt_djuW
}}]
localDiscount =
\ (ds_djmv :: Local) ->
case ds_djmv
of _ [Occ=Dead]
{ Local ds1_djmw ds2_djmx ds3_djmy ds4_djmz dt_djuW ds5_djmB
ds6_djmC ds7_djmD ->
GHC.Types.D# dt_djuW
}
localDepends :: Local -> [Depends]
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLLSLLLL),1*U(A,A,A,1*U,A,A,A,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djml [Occ=Once!] :: Local) ->
case ds_djml
of _ [Occ=Dead]
{ Local _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ds4_djmp [Occ=Once]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
ds4_djmp
}}]
localDepends =
\ (ds_djml :: Local) ->
case ds_djml
of _ [Occ=Dead]
{ Local ds1_djmm ds2_djmn ds3_djmo ds4_djmp dt_djuV ds5_djmr
ds6_djms ds7_djmt ->
ds4_djmp
}
localBlockApply :: Local -> Maybe String
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LLSLLLLL),1*U(A,A,1*U,A,A,A,A,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djmb [Occ=Once!] :: Local) ->
case ds_djmb
of _ [Occ=Dead]
{ Local _ [Occ=Dead] _ [Occ=Dead] ds3_djme [Occ=Once] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
ds3_djme
}}]
localBlockApply =
\ (ds_djmb :: Local) ->
case ds_djmb
of _ [Occ=Dead]
{ Local ds1_djmc ds2_djmd ds3_djme ds4_djmf dt_djuU ds5_djmh
ds6_djmi ds7_djmj ->
ds3_djme
}
localVerbosity :: Local -> Verbosity
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(LSLLLLLL),1*U(A,1*U,A,A,A,A,A,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djm1 [Occ=Once!] :: Local) ->
case ds_djm1
of _ [Occ=Dead]
{ Local _ [Occ=Dead] ds2_djm3 [Occ=Once] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
ds2_djm3
}}]
localVerbosity =
\ (ds_djm1 :: Local) ->
case ds_djm1
of _ [Occ=Dead]
{ Local ds1_djm2 ds2_djm3 ds3_djm4 ds4_djm5 dt_djuT ds5_djm7
ds6_djm8 ds7_djm9 ->
ds2_djm3
}
localStack :: Local -> Stack
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S(SLLLLLLL),1*U(1*U(U,U,U),A,A,A,A,A,A,A)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_djlR [Occ=Once!] :: Local) ->
case ds_djlR
of _ [Occ=Dead]
{ Local ds1_djlS [Occ=Once] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
ds1_djlS
}}]
localStack =
\ (ds_djlR :: Local) ->
case ds_djlR
of _ [Occ=Dead]
{ Local ds1_djlS ds2_djlT ds3_djlU ds4_djlV dt_djuS ds5_djlX
ds6_djlY ds7_djlZ ->
ds1_djlS
}
fromAction
:: forall a_aet3. Action a_aet3 -> RAW Global Local a_aet3
[GblId[[RecSel]],
Arity=1,
Caf=NoCafRefs,
Str=DmdType <S,1*U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.fromAction1
`cast` (forall a59_aeHg.
<Action a59_aeHg>_R
-> Development.Shake.Core.NTCo:Action[0] <a59_aeHg>_N
:: (forall a59_aeHg. Action a59_aeHg -> Action a59_aeHg)
~R# (forall a59_aeHg.
Action a59_aeHg -> RAW Global Local a59_aeHg))}]
fromAction =
Development.Shake.Core.fromAction1
`cast` (forall a59_aeHg.
<Action a59_aeHg>_R
-> Development.Shake.Core.NTCo:Action[0] <a59_aeHg>_N
:: (forall a59_aeHg. Action a59_aeHg -> Action a59_aeHg)
~R# (forall a59_aeHg.
Action a59_aeHg -> RAW Global Local a59_aeHg))
action :: forall a_aetX. Action a_aetX -> Rules ()
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <L,C(U)><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.action1
`cast` (forall a59_af7I.
<Action a59_af7I>_R
-> Sym (GHC.Types.NTCo:IO[0] <((), SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <()>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <()>_N
:: (forall a59_af7I.
Action a59_af7I
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, ((), SRules Action) #))
~R# (forall a59_af7I. Action a59_af7I -> Rules ()))}]
action =
Development.Shake.Core.action1
`cast` (forall a59_af7I.
<Action a59_af7I>_R
-> Sym (GHC.Types.NTCo:IO[0] <((), SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <()>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <()>_N
:: (forall a59_af7I.
Action a59_af7I
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, ((), SRules Action) #))
~R# (forall a59_af7I. Action a59_af7I -> Rules ()))
actionFinally
:: forall a_aetN b_aetO.
Action a_aetN -> IO b_aetO -> Action a_aetN
[GblId,
Arity=5,
Str=DmdType,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.actionFinally1
`cast` (forall a59_af6o b_af6p.
<Action a59_af6o>_R
-> <IO b_af6p>_R
-> (<S Global Local>_R
-> (<a59_af6o -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af6o>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af6o>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <a59_af6o>_N
:: (forall a59_af6o b_af6p.
Action a59_af6o
-> IO b_af6p
-> S Global Local
-> (a59_af6o -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (forall a59_af6o b_af6p.
Action a59_af6o -> IO b_af6p -> Action a59_af6o))}]
actionFinally =
Development.Shake.Core.actionFinally1
`cast` (forall a59_af6o b_af6p.
<Action a59_af6o>_R
-> <IO b_af6p>_R
-> (<S Global Local>_R
-> (<a59_af6o -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af6o>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af6o>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <a59_af6o>_N
:: (forall a59_af6o b_af6p.
Action a59_af6o
-> IO b_af6p
-> S Global Local
-> (a59_af6o -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (forall a59_af6o b_af6p.
Action a59_af6o -> IO b_af6p -> Action a59_af6o))
actionOnException
:: forall a_aetP b_aetQ.
Action a_aetP -> IO b_aetQ -> Action a_aetP
[GblId,
Arity=5,
Str=DmdType,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.actionOnException1
`cast` (forall a59_af6C b_af6D.
<Action a59_af6C>_R
-> <IO b_af6D>_R
-> (<S Global Local>_R
-> (<a59_af6C -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af6C>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af6C>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <a59_af6C>_N
:: (forall a59_af6C b_af6D.
Action a59_af6C
-> IO b_af6D
-> S Global Local
-> (a59_af6C -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (forall a59_af6C b_af6D.
Action a59_af6C -> IO b_af6D -> Action a59_af6C))}]
actionOnException =
Development.Shake.Core.actionOnException1
`cast` (forall a59_af6C b_af6D.
<Action a59_af6C>_R
-> <IO b_af6D>_R
-> (<S Global Local>_R
-> (<a59_af6C -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af6C>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af6C>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <a59_af6C>_N
:: (forall a59_af6C b_af6D.
Action a59_af6C
-> IO b_af6D
-> S Global Local
-> (a59_af6C -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (forall a59_af6C b_af6D.
Action a59_af6C -> IO b_af6D -> Action a59_af6C))
exec [InlPrag=NOINLINE]
:: forall t_ahCV.
Num t_ahCV =>
Global
-> Stack
-> Key
-> (Either SomeException (Value, [Depends], t_ahCV, [Trace])
-> IO ())
-> IO ()
[GblId,
Arity=6,
Str=DmdType <L,1*U(A,A,A,A,A,A,1*C1(U))><S,1*U(U,U,U,U,U,U,U(U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U),U,U,U,U)><L,U><L,U><L,C(C1(U(U,U)))><L,U>]
exec =
a50_rxv3
`cast` (forall t_ahCY.
<Num t_ahCY>_R
-> <Global>_R
-> <Stack>_R
-> <Key>_R
-> <Either SomeException (Value, [Depends], t_ahCY, [Trace])
-> IO ()>_R
-> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (forall t_ahCY.
Num t_ahCY =>
Global
-> Stack
-> Key
-> (Either SomeException (Value, [Depends], t_ahCY, [Trace])
-> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (forall t_ahCY.
Num t_ahCY =>
Global
-> Stack
-> Key
-> (Either SomeException (Value, [Depends], t_ahCY, [Trace])
-> IO ())
-> IO ()))
$wa15_rxvG
:: [Key]
-> IORef (SomeException -> IO ())
-> Database
-> Pool
-> Cleanup
-> IO Seconds
-> Map.HashMap TypeRep (RuleInfo Action)
-> (Verbosity -> String -> IO ())
-> ShakeOptions
-> (String -> IO ())
-> (String -> IO ())
-> IORef [IO ()]
-> IORef [(Key, Key)]
-> GHC.Prim.MutVar# GHC.Prim.RealWorld Local
-> ([Value] -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=16,
Str=DmdType <L,U><L,1*U(U)><L,U(U(U),U(U),U(U),U(U),U,U,U)><L,U(U,U)><L,U><L,U><L,U><L,U><L,U(U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U)><L,U><L,U><L,U><L,U><L,U><L,C(C1(U))><L,U>]
$wa15_rxvG =
\ (w_stoj :: [Key])
(ww_stop :: IORef (SomeException -> IO ()))
(ww1_stot :: Database)
(ww2_stou :: Pool)
(ww3_stov :: Cleanup)
(ww4_stow :: IO Seconds)
(ww5_stox :: Map.HashMap TypeRep (RuleInfo Action))
(ww6_stoy :: Verbosity -> String -> IO ())
(ww7_stoz :: ShakeOptions)
(ww8_stoA :: String -> IO ())
(ww9_stoB :: String -> IO ())
(ww10_stoC :: IORef [IO ()])
(ww11_stoD :: IORef [(Key, Key)])
(ww12_stoI :: GHC.Prim.MutVar# GHC.Prim.RealWorld Local)
(w1_stol :: [Value] -> IO ())
(w2_stom [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local ww12_stoI w2_stom
of _ [Occ=Dead] { (# ipv_ilTl, ipv1_ilTm #) ->
case ww_stop
`cast` (GHC.IORef.NTCo:IORef[0] <SomeException -> IO ()>_N
:: IORef (SomeException -> IO ())
~R# GHC.STRef.STRef GHC.Prim.RealWorld (SomeException -> IO ()))
of _ [Occ=Dead] { GHC.STRef.STRef ww14_ilWw ->
Development.Shake.Monad.$wa
@ (Seconds, Depends, [Value])
@ Global
@ Local
(build
ww2_stou
ww1_stot
(Development.Shake.Database.Ops
(runStored_resL @ Action ww5_stox)
(runEqual_resM @ Action ww5_stox)
(exec
@ Seconds
GHC.Float.$fNumDouble
(Development.Shake.Core.Global
ww1_stot
ww2_stou
ww3_stov
ww4_stow
ww5_stox
ww6_stoy
ww7_stoz
ww8_stoA
ww9_stoB
ww10_stoC
ww11_stoD)))
(case ipv1_ilTm
of _ [Occ=Dead]
{ Local ds_djlS ds1_djlT ds2_djlU ds4_djlV dt_djuS ds5_djlX
ds6_djlY ds7_djlZ ->
ds_djlS
})
w_stoj)
ww14_ilWw
((\ (x_ilFI :: (Seconds, Depends, [Value]))
(eta_Xcv [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case x_ilFI of _ [Occ=Dead] { (dur_aeyH, dep_aeyI, vs_aeyJ) ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local ww12_stoI eta_Xcv
of _ [Occ=Dead] { (# ipv2_ilTR, ipv3_ilTS #) ->
case ipv3_ilTS
of _ [Occ=Dead]
{ Local ds_djds ds2_djdt ds4_djdu ds5_djdv dt_djv7 ds6_djdx
ds7_djdy ds8_djdz ->
case dur_aeyH of _ [Occ=Dead] { GHC.Types.D# y_imFr ->
case GHC.Prim.writeMutVar#
@ GHC.Prim.RealWorld
@ Local
ww12_stoI
(Development.Shake.Core.Local
ds_djds
ds2_djdt
ds4_djdu
(GHC.Types.: @ Depends dep_aeyI ds5_djdv)
(GHC.Prim.+## dt_djv7 y_imFr)
ds6_djdx
ds7_djdy
ds8_djdz)
ipv2_ilTR
of s2#_ilTV [OS=OneShot] { __DEFAULT ->
((w1_stol vs_aeyJ)
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
s2#_ilTV
}
}
}
}
})
`cast` (<(Seconds, Depends, [Value])>_R
-> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: ((Seconds, Depends, [Value])
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# ((Seconds, Depends, [Value]) -> IO ())))
ipv_ilTl
}
}
a54_rxvH
:: [Key]
-> S Global Local
-> ([Value] -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GblId,
Arity=4,
Str=DmdType <L,U><S(LSS),1*U(1*U(U),1*U(U(U(U),U(U),U(U),U(U),U,U,U),U(U,U),U,U,U,U,U(U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U),U,U,U,U),1*U(U))><L,C(C1(U))><L,U>]
a54_rxvH =
\ (w_stoj :: [Key])
(w1_stok :: S Global Local)
(w2_stol :: [Value] -> IO ())
(w3_stom [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case w1_stok of _ [Occ=Dead] { S ww1_stop ww2_stoq ww3_stoF ->
case ww2_stoq
of _ [Occ=Dead]
{ Global ww5_stot ww6_stou ww7_stov ww8_stow ww9_stox ww10_stoy
ww11_stoz ww12_stoA ww13_stoB ww14_stoC ww15_stoD ->
case ww3_stoF
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef ww17_stoI ->
$wa15_rxvG
w_stoj
ww1_stop
ww5_stot
ww6_stou
ww7_stov
ww8_stow
ww9_stox
ww10_stoy
ww11_stoz
ww12_stoA
ww13_stoB
ww14_stoC
ww15_stoD
ww17_stoI
w2_stol
w3_stom
}
}
}
applyKeyValue_resT :: [Key] -> Action [Value]
[GblId,
Arity=4,
Str=DmdType <L,U><S(LSS),1*U(1*U(U),1*U(U(U(U),U(U),U(U),U(U),U,U,U),U(U,U),U,U,U,U,U(U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U),U,U,U,U),1*U(U))><L,C(C1(U))><L,U>]
applyKeyValue_resT =
a54_rxvH
`cast` (<[Key]>_R
-> (<S Global Local>_R
-> (<[Value] -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0] <()>_N <IO>_R <[Value]>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <[Value]>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <[Value]>_N
:: ([Key]
-> S Global Local
-> ([Value] -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# ([Key] -> Action [Value]))
lvl108_rxvI :: [Char]
[GblId, Str=DmdType]
lvl108_rxvI =
GHC.CString.unpackCString#
"Build system error - no _rule_ matches the _key_ type"#
lvl109_rxvJ :: [Char]
[GblId, Str=DmdType]
lvl109_rxvJ = GHC.CString.unpackCString# "_Result_ type"#
lvl110_rxvK :: [Char]
[GblId, Str=DmdType]
lvl110_rxvK =
GHC.CString.unpackCString#
"Either you are missing a call to _rule/defaultRule_, or your call to _apply_ has the wrong _key_ type"#
lvl111_rxvL
:: forall key_af5D value_af5E.
(key_af5D -> String)
-> [key_af5D]
-> TyCon
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> String
-> TypeRep
-> Action [value_af5E]
[GblId, Arity=7, Str=DmdType <L,U><L,U><L,U><L,U><L,U><L,U><L,U>b]
lvl111_rxvL =
\ (@ key_af5D)
(@ value_af5E)
(ds_XbbW :: key_af5D -> String)
(ks_aeyc :: [key_af5D])
(tc_iaEg :: TyCon)
(ds1_iaEh :: [Data.Typeable.Internal.KindRep])
(trs_iaEi :: [TypeRep])
(ds3_iaMo :: String)
(tv_sljd :: TypeRep) ->
structured_resv
@ (Action [value_af5E])
(GHC.Base.eqString ds3_iaMo lvl73_rxuJ)
lvl108_rxvI
(GHC.Types.:
@ (String, Maybe String)
(lvl4_rxtn,
GHC.Base.Just
@ String
(Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18 tc_iaEg ds1_iaEh trs_iaEi (GHC.Types.[] @ Char)))
(GHC.Types.:
@ (String, Maybe String)
(lvl3_rxtm,
case ks_aeyc of _ [Occ=Dead] {
[] -> GHC.Base.Nothing @ String;
: a59_ik79 ds2_ik7a -> GHC.Base.Just @ String (ds_XbbW a59_ik79)
})
(GHC.Types.:
@ (String, Maybe String)
(lvl109_rxvJ,
GHC.Base.Just
@ String (Data.Typeable.Internal.$fShowTypeRep_$cshow tv_sljd))
(GHC.Types.[] @ (String, Maybe String)))))
lvl110_rxvK
lvl112_rxvM
:: forall value_af5E.
TyCon
-> [Data.Typeable.Internal.KindRep]
-> [TypeRep]
-> Bool
-> ([Char], Maybe String)
-> ([Char], Maybe String)
-> ([Char], Maybe String)
-> Action [value_af5E]
[GblId, Arity=7, Str=DmdType <L,U><L,U><L,U><L,U><L,U><L,U><L,U>b]
lvl112_rxvM =
\ (@ value_af5E)
(ds5_ik9d :: TyCon)
(ds6_ik9e :: [Data.Typeable.Internal.KindRep])
(ds7_ik9f :: [TypeRep])
(lvl116_sljI :: Bool)
(lvl117_sljN :: ([Char], Maybe String))
(lvl118_sljR :: ([Char], Maybe String))
(lvl119_sljW :: ([Char], Maybe String)) ->
structured_resv
@ (Action [value_af5E])
lvl116_sljI
lvl5_rxto
(GHC.Types.:
@ (String, Maybe String)
lvl117_sljN
(GHC.Types.:
@ (String, Maybe String)
lvl118_sljR
(GHC.Types.:
@ (String, Maybe String)
(lvl2_rxtl,
GHC.Base.Just
@ String
(Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18 ds5_ik9d ds6_ik9e ds7_ik9f (GHC.Types.[] @ Char)))
(GHC.Types.:
@ (String, Maybe String)
lvl119_sljW
(GHC.Types.[] @ (String, Maybe String))))))
lvl_rxtj
lvl113_rxvN
:: String
-> Bool
-> ([Char], Maybe String)
-> ([Char], Maybe String)
-> Action ()
[GblId, Arity=4, Str=DmdType <L,U><L,U><L,U><L,U>b]
lvl113_rxvN =
\ (x_ik72 :: String)
(lvl116_sljo :: Bool)
(lvl117_sljv :: ([Char], Maybe String))
(lvl118_sljy :: ([Char], Maybe String)) ->
structured_resv
@ (Action ())
lvl116_sljo
lvl8_rxtr
(GHC.Types.:
@ (String, Maybe String)
(lvl7_rxtq, GHC.Base.Just @ String x_ik72)
(GHC.Types.:
@ (String, Maybe String)
lvl117_sljv
(GHC.Types.:
@ (String, Maybe String)
lvl118_sljy
(GHC.Types.[] @ (String, Maybe String)))))
lvl6_rxtp
apply
:: forall key_aetI value_aetJ.
Rule key_aetI value_aetJ =>
[key_aetI] -> Action [value_aetJ]
[GblId,
Arity=1,
Str=DmdType <L,U(1*U(U,U,U,U,U,U),1*U(A,1*U,A,A,A,A),A,A)>]
apply =
\ (@ key_af5D)
(@ value_af5E)
($dRule_aiqG :: Rule key_af5D value_af5E) ->
let {
tup_skEj [Dmd=<L,U(1*U,U,1*U,1*U,1*U,1*U)>] :: ShakeValue key_af5D
[LclId, Str=DmdType]
tup_skEj =
Development.Shake.Core.$p1Rule
@ key_af5D @ value_af5E $dRule_aiqG } in
let {
$dShow_skEi [Dmd=<L,U(U,U,U)>] :: Show key_af5D
[LclId, Str=DmdType]
$dShow_skEi =
case tup_skEj
of _ [Occ=Dead]
{ (tpl_X6b, tpl1_X6d, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl_X6b
} } in
let {
ds_Xbc9 [Dmd=<L,C(U)>] :: key_af5D -> String
[LclId, Str=DmdType]
ds_Xbc9 = show @ key_af5D $dShow_skEi } in
let {
tk_slji [Dmd=<L,U(U,U,U(U,U,A,A,U),U,U)>] :: TypeRep
[LclId, Str=DmdType]
tk_slji =
case tup_skEj
of _ [Occ=Dead]
{ (tpl_X6d, tpl1_X6f, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
(tpl1_X6f
`cast` (Data.Typeable.Internal.NTCo:Typeable[0] <*>_N <key_af5D>_N
:: Typeable key_af5D ~R# (GHC.Prim.Proxy# key_af5D -> TypeRep)))
(GHC.Prim.proxy# @ * @ key_af5D)
} } in
let {
a59_smX2 :: String
[LclId, Str=DmdType]
a59_smX2 =
case tk_slji
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww1_iaVl ww2_iaVm ww3_iaVn
ww4_iaVo ww5_iaVp ->
Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18 ww3_iaVn ww4_iaVo ww5_iaVp (GHC.Types.[] @ Char)
} } in
let {
a60_smX1 :: Maybe String
[LclId, Str=DmdType]
a60_smX1 = GHC.Base.Just @ String a59_smX2 } in
let {
lvl116_sljN :: ([Char], Maybe String)
[LclId, Str=DmdType m]
lvl116_sljN = (lvl4_rxtn, a60_smX1) } in
let {
lvl117_sljI :: Bool
[LclId, Str=DmdType]
lvl117_sljI =
case tk_slji
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt_iaEe dt1_iaEf tc_iaEg ds1_iaEh
trs_iaEi ->
case tc_iaEg
of _ [Occ=Dead]
{ Data.Typeable.Internal.TyCon dt2_iaMk dt3_iaMl ds2_iaMm ds3_iaMn
ds4_iaMo ->
GHC.Base.eqString ds4_iaMo lvl73_rxuJ
}
} } in
let {
$dTypeable_skEh :: Typeable key_af5D
[LclId, Str=DmdType]
$dTypeable_skEh =
case tup_skEj
of _ [Occ=Dead]
{ (tpl_X6d, tpl1_X6f, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl1_X6f
} } in
let {
$dNFData_skEg :: NFData key_af5D
[LclId, Str=DmdType]
$dNFData_skEg =
case tup_skEj
of _ [Occ=Dead]
{ (tpl_X6f, tpl1_X6h, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl5_B6
} } in
let {
$dBinary_skEf :: Binary key_af5D
[LclId, Str=DmdType]
$dBinary_skEf =
case tup_skEj
of _ [Occ=Dead]
{ (tpl_X6h, tpl1_X6j, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl4_B5
} } in
let {
$dHashable_skEe :: Hashable key_af5D
[LclId, Str=DmdType]
$dHashable_skEe =
case tup_skEj
of _ [Occ=Dead]
{ (tpl_X6j, tpl1_X6l, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl3_B4
} } in
let {
$dEq_skEd :: Eq key_af5D
[LclId, Str=DmdType]
$dEq_skEd =
case tup_skEj
of _ [Occ=Dead]
{ (tpl_X6l, tpl1_X6n, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl2_B3
} } in
let {
a61_smWY :: key_af5D -> Value
[LclId, Arity=1, Str=DmdType]
a61_smWY =
Development.Shake.Value.Value
@ key_af5D
$dEq_skEd
$dShow_skEi
$dTypeable_skEh
$dHashable_skEe
$dBinary_skEf
$dNFData_skEg } in
let {
$dTypeable1_skEk [Dmd=<L,C(U(U,U,U,U,U))>] :: Typeable value_af5E
[LclId, Str=DmdType]
$dTypeable1_skEk =
case Development.Shake.Core.$p2Rule
@ key_af5D @ value_af5E $dRule_aiqG
of _ [Occ=Dead]
{ (tpl_X67, tpl1_X69, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl1_X69
} } in
let {
tv_sljd [Dmd=<L,U(U,U,U(U,U,U,U,U),U,U)>] :: TypeRep
[LclId, Str=DmdType]
tv_sljd =
($dTypeable1_skEk
`cast` (Data.Typeable.Internal.NTCo:Typeable[0]
<*>_N <value_af5E>_N
:: Typeable value_af5E
~R# (GHC.Prim.Proxy# value_af5E -> TypeRep)))
(GHC.Prim.proxy# @ * @ value_af5E) } in
let {
a62_svWR :: [Char]
[LclId, Str=DmdType]
a62_svWR =
case tk_slji
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww1_iaVl ww2_iaVm ww3_iaVn
ww4_iaVo ww5_iaVp ->
Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18
ww3_iaVn
ww4_iaVo
ww5_iaVp
(GHC.Types.:
@ Char
GHC.Show.showList__1
(GHC.List.foldr1_$sfoldr1
@ (String -> String)
GHC.Show.$fShow(,)1
(case tv_sljd
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww7_Xb7G ww8_Xb7I ww9_Xb7K
ww10_Xb7M ww11_Xb7O ->
Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18 ww9_Xb7K ww10_Xb7M ww11_Xb7O
})
(GHC.Types.[] @ ShowS)
lvl50_rxud))
} } in
let {
lvl118_svyb :: [Char]
[LclId, Str=DmdType]
lvl118_svyb = GHC.Types.: @ Char GHC.Show.shows9 a62_svWR } in
let {
a63_smXb :: String
[LclId, Str=DmdType]
a63_smXb =
case tv_sljd
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww1_iaVl ww2_iaVm ww3_iaVn
ww4_iaVo ww5_iaVp ->
Data.Typeable.Internal.$w$cshowsPrec
GHC.Show.shows18 ww3_iaVn ww4_iaVo ww5_iaVp (GHC.Types.[] @ Char)
} } in
let {
a64_smXa :: Maybe String
[LclId, Str=DmdType]
a64_smXa = GHC.Base.Just @ String a63_smXb } in
let {
lvl119_sljW :: ([Char], Maybe String)
[LclId, Str=DmdType m]
lvl119_sljW = (lvl1_rxtk, a64_smXa) } in
letrec {
go5_svye [Occ=LoopBreaker] :: [Value] -> [value_af5E]
[LclId, Arity=1, Str=DmdType]
go5_svye =
\ (ds1_iaAW :: [Value]) ->
case ds1_iaAW of _ [Occ=Dead] {
[] -> GHC.Types.[] @ value_af5E;
: y_iaB1 ys_iaB2 ->
GHC.Types.:
@ value_af5E
(fromValue @ value_af5E $dTypeable1_skEk y_iaB1)
(go5_svye ys_iaB2)
}; } in
\ (ks_aeyc :: [key_af5D]) ->
let {
a65_smXl :: Maybe String
[LclId, Str=DmdType]
a65_smXl =
case ks_aeyc of _ [Occ=Dead] {
[] -> GHC.Base.Nothing @ String;
: a66_ik79 ds1_ik7a -> GHC.Base.Just @ String (ds_Xbc9 a66_ik79)
} } in
let {
lvl120_sljR :: ([Char], Maybe String)
[LclId, Str=DmdType m]
lvl120_sljR = (lvl3_rxtm, a65_smXl) } in
let {
lvl121_sljE :: Action [value_af5E]
[LclId, Str=DmdType b]
lvl121_sljE =
case tk_slji
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt_iaEe dt1_iaEf tc_iaEg ds1_iaEh
trs_iaEi ->
case tc_iaEg
of wild1_iaMi
{ Data.Typeable.Internal.TyCon dt2_iaMk dt3_iaMl ds2_iaMm ds3_iaMn
ds4_iaMo ->
lvl111_rxvL
@ key_af5D
@ value_af5E
ds_Xbc9
ks_aeyc
wild1_iaMi
ds1_iaEh
trs_iaEi
ds4_iaMo
tv_sljd
}
} } in
let {
a66_smXi :: [Key]
[LclId, Str=DmdType]
a66_smXi =
map
@ key_af5D
@ Key
(a61_smWY
`cast` (<key_af5D>_R -> Sym Development.Shake.Value.NTCo:Key[0]
:: (key_af5D -> Value) ~R# (key_af5D -> Key)))
ks_aeyc } in
(\ (eta_Xm9s :: S Global Local)
(c_ilGR :: [value_af5E] -> IO ())
(eta1_B1 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.IO.Handle.Text.hPutStr2
stdout lvl118_svyb GHC.Types.True eta1_B1
of _ [Occ=Dead] { (# ipv_ilkP, ipv1_ilkQ #) ->
case eta_Xm9s of wild_ilUH { S ds2_ilUJ ds3_ilUK ds4_ilUL ->
case ds3_ilUK
of _ [Occ=Dead]
{ Global ds5_djiU ds6_djiV ds7_djiW ds8_djiX ds9_djiY ds10_djiZ
ds11_djj0 ds12_djj1 ds13_djj2 ds14_djj3 ds15_djj4 ->
case ds4_ilUL
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef var#_ilTh ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local var#_ilTh ipv_ilkP
of _ [Occ=Dead] { (# ipv2_ilTl, ipv3_ilTm #) ->
case ipv3_ilTm
of _ [Occ=Dead]
{ Local ds17_djmc ds18_djmd ds19_djme ds20_djmf dt_djuU ds21_djmh
ds22_djmi ds23_djmj ->
case tk_slji
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt1_ilsE dt2_ilsF ds24_ilsG
ds25_ilsH ds26_ilsI ->
case ds19_djme of _ [Occ=Dead] {
Nothing ->
case Development.Shake.Core.$wpoly_go2
@ (RuleInfo Action) dt1_ilsE dt1_ilsE dt2_ilsF 0 ds9_djiY
of _ [Occ=Dead] {
Nothing -> case lvl121_sljE of wild7_00 { };
Just ds27_djiM ->
case ds27_djiM
of _ [Occ=Dead]
{ RuleInfo ds28_djiN ds29_djiO ds30_djiP ds31_djiQ ->
case tv_sljd
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt3_ik93 dt4_ik94 ds32_ik95
ds33_ik96 ds34_ik97 ->
case ds31_djiQ
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt5_ik9b dt6_ik9c ds35_ik9d
ds36_ik9e ds37_ik9f ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt3_ik93 dt5_ik9b)
of _ [Occ=Dead] {
False ->
case lvl112_rxvM
@ value_af5E
ds35_ik9d
ds36_ik9e
ds37_ik9f
lvl117_sljI
lvl116_sljN
lvl120_sljR
lvl119_sljW
of wild11_00 {
};
True ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt4_ik94 dt6_ik9c)
of _ [Occ=Dead] {
False ->
case lvl112_rxvM
@ value_af5E
ds35_ik9d
ds36_ik9e
ds37_ik9f
lvl117_sljI
lvl116_sljN
lvl120_sljR
lvl119_sljW
of wild12_00 {
};
True ->
((((((applyKeyValue_resT a66_smXi)
`cast` (Development.Shake.Core.NTCo:Action[0]
; Development.Shake.Monad.NTCo:RAW[0]
<Global>_R <Local>_R <[Value]>_N
; Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <[Value]>_N
:: Action [Value]
~R# (S Global Local -> ContT () IO [Value])))
wild_ilUH)
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <[Value]>_R
:: ContT () IO [Value] ~R# (([Value] -> IO ()) -> IO ())))
(\ (x_Xb4F :: [Value]) -> c_ilGR (go5_svye x_Xb4F)))
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
ipv2_ilTl
}
}
}
}
}
};
Just x_ik72 ->
case lvl113_rxvN x_ik72 lvl117_sljI lvl116_sljN lvl120_sljR
of wild6_00 {
}
}
}
}
}
}
}
}
})
`cast` ((<S Global Local>_R
-> (<[value_af5E] -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <[value_af5E]>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <[value_af5E]>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <[value_af5E]>_N
:: (S Global Local
-> ([value_af5E] -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# Action [value_af5E])
apply1
:: forall key_aetu value_aetv.
Rule key_aetu value_aetv =>
key_aetu -> Action value_aetv
[GblId,
Arity=1,
Str=DmdType <L,U(U(U,U,U,U,U,U),U(A,U,A,A,A,A),A,A)>,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [0] 172 60}]
apply1 =
\ (@ key_af3V)
(@ value_af3W)
($dRule_aiub :: Rule key_af3V value_af3W) ->
let {
f_Xbv4 [Dmd=<L,C(U)>] :: [key_af3V] -> Action [value_af3W]
[LclId, Str=DmdType]
f_Xbv4 = apply @ key_af3V @ value_af3W $dRule_aiub } in
\ (x_Xb3m :: key_af3V) ->
let {
a59_smXL [Dmd=<L,C(U)>] :: Action [value_af3W]
[LclId, Str=DmdType]
a59_smXL =
f_Xbv4 (GHC.Base.$fApplicative[]_$cpure @ key_af3V x_Xb3m) } in
(\ (eta1_XmII :: S Global Local) ->
let {
m1_ilPc [Dmd=<L,C(U)>] :: ContT () IO [value_af3W]
[LclId, Str=DmdType]
m1_ilPc =
(a59_smXL
`cast` (Development.Shake.Core.NTCo:Action[0]
; Development.Shake.Monad.NTCo:RAW[0]
<Global>_R <Local>_R <[value_af3W]>_N
; Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <[value_af3W]>_N
:: Action [value_af3W]
~R# (S Global Local -> ContT () IO [value_af3W])))
eta1_XmII } in
(\ (c_ilPd :: value_af3W -> IO ()) ->
(m1_ilPc
`cast` (Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <[value_af3W]>_R
:: ContT () IO [value_af3W]
~R# (([value_af3W] -> IO ()) -> IO ())))
(\ (x1_Xb3k :: [value_af3W]) ->
c_ilPd (head @ value_af3W x1_Xb3k)))
`cast` (Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <value_af3W>_R)
:: ((value_af3W -> IO ()) -> IO ()) ~R# ContT () IO value_af3W))
`cast` (Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <value_af3W>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <value_af3W>_N
:: (S Global Local -> ContT () IO value_af3W)
~R# Action value_af3W)
getShakeOptions :: Action ShakeOptions
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <L,1*U(A,1*U(A,A,A,A,A,A,1*U,A,A,A,A),A)><C(S),1*C1(U)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.getShakeOptions1
`cast` ((<S Global Local>_R
-> Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <ShakeOptions>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <ShakeOptions>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <ShakeOptions>_N
:: (S Global Local -> (ShakeOptions -> IO ()) -> IO ())
~R# Action ShakeOptions)}]
getShakeOptions =
Development.Shake.Core.getShakeOptions1
`cast` ((<S Global Local>_R
-> Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <ShakeOptions>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <ShakeOptions>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <ShakeOptions>_N
:: (S Global Local -> (ShakeOptions -> IO ()) -> IO ())
~R# Action ShakeOptions)
getVerbosity :: Action Verbosity
[GblId,
Arity=3,
Caf=NoCafRefs,
Str=DmdType <S(LLS),1*U(A,A,1*U(U))><L,1*C1(C1(U(U,U)))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.getVerbosity1
`cast` ((<S Global Local>_R
-> (<Verbosity -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <Verbosity>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <Verbosity>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <Verbosity>_N
:: (S Global Local
-> (Verbosity -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# Action Verbosity)}]
getVerbosity =
Development.Shake.Core.getVerbosity1
`cast` ((<S Global Local>_R
-> (<Verbosity -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <Verbosity>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <Verbosity>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <Verbosity>_N
:: (S Global Local
-> (Verbosity -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# Action Verbosity)
newCacheIO
:: forall k_aetj v_aetk.
(Eq k_aetj, Hashable k_aetj) =>
(k_aetj -> Action v_aetk) -> IO (k_aetj -> Action v_aetk)
[GblId,
Arity=4,
Str=DmdType <L,U(C(C1(U)),A)><L,U(A,C(U(U)))><L,C(U)><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.newCache2
`cast` (forall k_af1e v_Xfd8.
<Eq k_af1e>_R
-> <Hashable k_af1e>_R
-> <k_af1e -> Action v_Xfd8>_R
-> Sym (GHC.Types.NTCo:IO[0] <k_af1e -> Action v_Xfd8>_R)
:: (forall k_af1e v_Xfd8.
(Eq k_af1e, Hashable k_af1e) =>
(k_af1e -> Action v_Xfd8)
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
k_af1e -> Action v_Xfd8 #))
~R# (forall k_af1e v_Xfd8.
(Eq k_af1e, Hashable k_af1e) =>
(k_af1e -> Action v_Xfd8) -> IO (k_af1e -> Action v_Xfd8)))}]
newCacheIO =
Development.Shake.Core.newCache2
`cast` (forall k_af1e v_Xfd8.
<Eq k_af1e>_R
-> <Hashable k_af1e>_R
-> <k_af1e -> Action v_Xfd8>_R
-> Sym (GHC.Types.NTCo:IO[0] <k_af1e -> Action v_Xfd8>_R)
:: (forall k_af1e v_Xfd8.
(Eq k_af1e, Hashable k_af1e) =>
(k_af1e -> Action v_Xfd8)
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
k_af1e -> Action v_Xfd8 #))
~R# (forall k_af1e v_Xfd8.
(Eq k_af1e, Hashable k_af1e) =>
(k_af1e -> Action v_Xfd8) -> IO (k_af1e -> Action v_Xfd8)))
Development.Shake.Core.priority1
:: Double
-> Rules ()
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, ((), SRules Action) #)
[GblId,
Arity=3,
Str=DmdType <L,U><C(S(LS)),1*C1(U(U,1*U(U,1*U(U,1*U))))><L,U>]
Development.Shake.Core.priority1 =
\ (i_aeva :: Double)
(eta_B1 :: Rules ())
(eta1_X2 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (eta_B1
`cast` (Development.Shake.Core.NTCo:Rules[0] <()>_N
; Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <()>_N
; GHC.Types.NTCo:IO[0] <((), SRules Action)>_R
:: Rules ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, ((), SRules Action) #))))
eta1_X2
of _ [Occ=Dead] { (# ipv_ilkP, ipv1_ilkQ #) ->
case ipv1_ilkQ of _ [Occ=Dead] { (a59_apWD, w4_apWE) ->
(# ipv_ilkP,
(a59_apWD,
case w4_apWE of _ [Occ=Dead] { SRules ds_djdS ds2_djdT ->
Development.Shake.Core.SRules
@ Action
ds_djdS
(let {
lvl116_sleT :: (Double, ARule Action) -> (Double, ARule Action)
[LclId,
Arity=1,
Str=DmdType <L,1*U(A,1*U)>m,
Unf=Unf{Src=InlineStable, TopLvl=False, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds3_iaTu [Occ=Once!] :: (Double, ARule Action)) ->
(i_aeva,
case ds3_iaTu
of _ [Occ=Dead] { (_ [Occ=Dead], y_iaTD [Occ=Once]) ->
y_iaTD
})}]
lvl116_sleT =
\ (ds3_iaTu :: (Double, ARule Action)) ->
(i_aeva,
case ds3_iaTu of _ [Occ=Dead] { (x_iaTC, y_iaTD) -> y_iaTD }) } in
letrec {
$wa19_svyl [InlPrag=[0], Occ=LoopBreaker]
:: forall s_ijX5.
unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
-> unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s_ijX5
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.State# s_ijX5
-> (# GHC.Prim.State# s_ijX5,
unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s_ijX5
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])) #)
[LclId, Arity=5, Str=DmdType <L,1*U(U)><L,U(U)><L,U><L,U><L,U>]
$wa19_svyl =
\ (@ s_ijX5)
(w_stph
:: unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])))
(w1_stpi
:: unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s_ijX5
(unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])))
(ww_stpo :: GHC.Prim.Int#)
(ww1_stps :: GHC.Prim.Int#)
(w2_stpl [OS=OneShot] :: GHC.Prim.State# s_ijX5) ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.>=# ww_stpo ww1_stps)
of _ [Occ=Dead] {
False ->
case w_stph
of wild2_ikJM
{ unordered-containers-0.2.5.1:Data.HashMap.Array.Array ds3_ikJO ->
case GHC.Prim.indexArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
ds3_ikJO
ww_stpo
of _ [Occ=Dead] { (# ipv2_ijXp #) ->
case ipv2_ijXp
of _ [Occ=Dead]
{ unordered-containers-0.2.5.1:Data.HashMap.Base.L k1_ijXt
v_ijXu ->
case v_ijXu of _ [Occ=Dead] { (a60_aevc, b_aevd, cs_aeve) ->
case w1_stpi
of wild6_ikLw
{ unordered-containers-0.2.5.1:Data.HashMap.Array.MArray ds5_ikLy ->
case GHC.Prim.writeArray#
@ s_ijX5
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
ds5_ikLy
ww_stpo
(unordered-containers-0.2.5.1:Data.HashMap.Base.L
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule Action)])
k1_ijXt
(a60_aevc,
b_aevd,
map
@ (Double, ARule Action)
@ (Double, ARule Action)
lvl116_sleT
cs_aeve))
w2_stpl
of s'_ikO3 [OS=OneShot] { __DEFAULT ->
$wa19_svyl
@ s_ijX5
wild2_ikJM
wild6_ikLw
(GHC.Prim.+# ww_stpo 1)
ww1_stps
s'_ikO3
}
}
}
}
}
};
True -> (# w2_stpl, w1_stpi #)
}; } in
letrec {
$wa20_svyj [InlPrag=[0], Occ=LoopBreaker]
:: forall s_ijWi.
unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
-> unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s_ijWi
(Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.State# s_ijWi
-> (# GHC.Prim.State# s_ijWi,
unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s_ijWi
(Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])) #)
[LclId, Arity=5, Str=DmdType <L,U(U)><L,U(U)><L,U><L,U><L,U>]
$wa20_svyj =
\ (@ s_ijWi)
(w_stp3
:: unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])))
(w1_stp4
:: unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s_ijWi
(Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])))
(ww_stpa :: GHC.Prim.Int#)
(ww1_stpe :: GHC.Prim.Int#)
(w2_stp7 [OS=OneShot] :: GHC.Prim.State# s_ijWi) ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.>=# ww_stpa ww1_stpe)
of _ [Occ=Dead] {
False ->
case w_stp3
of wild2_ikJM
{ unordered-containers-0.2.5.1:Data.HashMap.Array.Array ds3_ikJO ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
ds3_ikJO
ww_stpa
of _ [Occ=Dead] { (# ipv2_ijWC #) ->
case go5_ijVf ipv2_ijWC of vx_ikM8 { __DEFAULT ->
case w1_stp4
of wild4_ikLw
{ unordered-containers-0.2.5.1:Data.HashMap.Array.MArray ds5_ikLy ->
case GHC.Prim.writeArray#
@ s_ijWi
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
ds5_ikLy
ww_stpa
vx_ikM8
w2_stp7
of s'_ikO3 [OS=OneShot] { __DEFAULT ->
$wa20_svyj
@ s_ijWi
wild2_ikJM
wild4_ikLw
(GHC.Prim.+# ww_stpa 1)
ww1_stpe
s'_ikO3
}
}
}
}
};
True -> (# w2_stp7, w1_stp4 #)
};
$wa21_svyh [InlPrag=[0], Occ=LoopBreaker]
:: forall s_ijVq.
unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
-> unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s_ijVq
(Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.State# s_ijVq
-> (# GHC.Prim.State# s_ijVq,
unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s_ijVq
(Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])) #)
[LclId, Arity=5, Str=DmdType <L,U(U)><L,U(U)><L,U><L,U><L,U>]
$wa21_svyh =
\ (@ s_ijVq)
(w_stoP
:: unordered-containers-0.2.5.1:Data.HashMap.Array.Array
(Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])))
(w1_stoQ
:: unordered-containers-0.2.5.1:Data.HashMap.Array.MArray
s_ijVq
(Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])))
(ww_stoW :: GHC.Prim.Int#)
(ww1_stp0 :: GHC.Prim.Int#)
(w2_stoT [OS=OneShot] :: GHC.Prim.State# s_ijVq) ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.>=# ww_stoW ww1_stp0)
of _ [Occ=Dead] {
False ->
case w_stoP
of wild2_ikJM
{ unordered-containers-0.2.5.1:Data.HashMap.Array.Array ds3_ikJO ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
ds3_ikJO
ww_stoW
of _ [Occ=Dead] { (# ipv2_ijVK #) ->
case go5_ijVf ipv2_ijVK of vx_ikM8 { __DEFAULT ->
case w1_stoQ
of wild4_ikLw
{ unordered-containers-0.2.5.1:Data.HashMap.Array.MArray ds5_ikLy ->
case GHC.Prim.writeArray#
@ s_ijVq
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
ds5_ikLy
ww_stoW
vx_ikM8
w2_stoT
of s'_ikO3 [OS=OneShot] { __DEFAULT ->
$wa21_svyh
@ s_ijVq
wild2_ikJM
wild4_ikLw
(GHC.Prim.+# ww_stoW 1)
ww1_stp0
s'_ikO3
}
}
}
}
};
True -> (# w2_stoT, w1_stoQ #)
};
go5_ijVf [Occ=LoopBreaker]
:: Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])
-> Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])
[LclId, Arity=1, Str=DmdType <S,1*U>]
go5_ijVf =
\ (ds3_ijVg
:: Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])) ->
case ds3_ijVg of _ [Occ=Dead] {
unordered-containers-0.2.5.1:Data.HashMap.Base.Empty ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Empty
@ TypeRep @ (TypeRep, TypeRep, [(Double, ARule Action)]);
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed dt_ijVk
dt1_ijVl ->
let {
wild3_ijVV :: GHC.Prim.Int#
[LclId, Str=DmdType]
wild3_ijVV =
GHC.Prim.sizeofArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
dt1_ijVl } in
case GHC.Prim.newArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
@ GHC.Prim.RealWorld
wild3_ijVV
(unordered-containers-0.2.5.1:Data.HashMap.Array.undefinedElem
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])))
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv2_ikMA, ipv3_ikMB #) ->
case $wa21_svyh
@ GHC.Prim.RealWorld
(unordered-containers-0.2.5.1:Data.HashMap.Array.Array
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
dt1_ijVl)
(unordered-containers-0.2.5.1:Data.HashMap.Array.$WMArray
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
ipv3_ikMB)
0
wild3_ijVV
ipv2_ikMA
of _ [Occ=Dead] { (# ipv4_ikLM, ipv5_ikLN #) ->
case ipv5_ikLN
of _ [Occ=Dead]
{ unordered-containers-0.2.5.1:Data.HashMap.Array.MArray ds6_ikLy ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
ds6_ikLy
ipv4_ikLM
of _ [Occ=Dead] { (# ipv6_ikLT, ipv7_ikLU #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule Action)])
dt_ijVk
ipv7_ikLU
}
}
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf dt_ijW7
dt1_ijW8 dt2_ijW9 ->
case dt2_ijW9 of _ [Occ=Dead] { (a60_aevc, b_aevd, cs_aeve) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule Action)])
dt_ijW7
dt1_ijW8
(a60_aevc,
b_aevd,
map
@ (Double, ARule Action)
@ (Double, ARule Action)
lvl116_sleT
cs_aeve)
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Full dt_ijWe ->
let {
wild3_ijWN :: GHC.Prim.Int#
[LclId, Str=DmdType]
wild3_ijWN =
GHC.Prim.sizeofArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
dt_ijWe } in
case GHC.Prim.newArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
@ GHC.Prim.RealWorld
wild3_ijWN
(unordered-containers-0.2.5.1:Data.HashMap.Array.undefinedElem
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])))
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv2_ikMA, ipv3_ikMB #) ->
case $wa20_svyj
@ GHC.Prim.RealWorld
(unordered-containers-0.2.5.1:Data.HashMap.Array.Array
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
dt_ijWe)
(unordered-containers-0.2.5.1:Data.HashMap.Array.$WMArray
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
ipv3_ikMB)
0
wild3_ijWN
ipv2_ikMA
of _ [Occ=Dead] { (# ipv4_ikLM, ipv5_ikLN #) ->
case ipv5_ikLN
of _ [Occ=Dead]
{ unordered-containers-0.2.5.1:Data.HashMap.Array.MArray ds6_ikLy ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
ds6_ikLy
ipv4_ikLM
of _ [Occ=Dead] { (# ipv6_ikLT, ipv7_ikLU #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Full
@ TypeRep @ (TypeRep, TypeRep, [(Double, ARule Action)]) ipv7_ikLU
}
}
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision dt_ijWZ
dt1_ijX0 ->
let {
wild3_ijXG :: GHC.Prim.Int#
[LclId, Str=DmdType]
wild3_ijXG =
GHC.Prim.sizeofArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
dt1_ijX0 } in
case GHC.Prim.newArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
@ GHC.Prim.RealWorld
wild3_ijXG
(unordered-containers-0.2.5.1:Data.HashMap.Array.undefinedElem
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)])))
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv2_ikMA, ipv3_ikMB #) ->
case $wa19_svyl
@ GHC.Prim.RealWorld
(unordered-containers-0.2.5.1:Data.HashMap.Array.Array
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
dt1_ijX0)
(unordered-containers-0.2.5.1:Data.HashMap.Array.$WMArray
@ GHC.Prim.RealWorld
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
ipv3_ikMB)
0
wild3_ijXG
ipv2_ikMA
of _ [Occ=Dead] { (# ipv4_ikLM, ipv5_ikLN #) ->
case ipv5_ikLN
of _ [Occ=Dead]
{ unordered-containers-0.2.5.1:Data.HashMap.Array.MArray ds6_ikLy ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule Action)]))
ds6_ikLy
ipv4_ikLM
of _ [Occ=Dead] { (# ipv6_ikLT, ipv7_ikLU #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule Action)])
dt_ijWZ
ipv7_ikLU
}
}
}
}
}; } in
go5_ijVf ds2_djdT)
}) #)
}
}
priority :: Double -> Rules () -> Rules ()
[GblId,
Arity=3,
Str=DmdType <L,U><C(S(LS)),1*C1(U(U,1*U(U,1*U(U,1*U))))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.priority1
`cast` (<Double>_R
-> <Rules ()>_R
-> Sym (GHC.Types.NTCo:IO[0] <((), SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <()>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <()>_N
:: (Double
-> Rules ()
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, ((), SRules Action) #))
~R# (Double -> Rules () -> Rules ()))}]
priority =
Development.Shake.Core.priority1
`cast` (<Double>_R
-> <Rules ()>_R
-> Sym (GHC.Types.NTCo:IO[0] <((), SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <()>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <()>_N
:: (Double
-> Rules ()
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, ((), SRules Action) #))
~R# (Double -> Rules () -> Rules ()))
quietly :: forall a_aetr. Action a_aetr -> Action a_aetr
[GblId,
Arity=4,
Caf=NoCafRefs,
Str=DmdType,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.quietly1
`cast` (forall a59_af36.
<Action a59_af36>_R
-> (<S Global Local>_R
-> (<a59_af36 -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af36>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af36>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <a59_af36>_N
:: (forall a59_af36.
Action a59_af36
-> S Global Local
-> (a59_af36 -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (forall a59_af36. Action a59_af36 -> Action a59_af36))}]
quietly =
Development.Shake.Core.quietly1
`cast` (forall a59_af36.
<Action a59_af36>_R
-> (<S Global Local>_R
-> (<a59_af36 -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af36>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af36>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <a59_af36>_N
:: (forall a59_af36.
Action a59_af36
-> S Global Local
-> (a59_af36 -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (forall a59_af36. Action a59_af36 -> Action a59_af36))
rule
:: forall key_aetY value_aetZ.
Rule key_aetY value_aetZ =>
(key_aetY -> Maybe (Action value_aetZ)) -> Rules ()
[GblId,
Arity=3,
Caf=NoCafRefs,
Str=DmdType <L,U(U(U,U,U,U,U,U),U(U,U,U,U,U,U),U,U)><L,U><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.rule1
`cast` (forall key_af8h value_af8i.
<Rule key_af8h value_af8i>_R
-> <key_af8h -> Maybe (Action value_af8i)>_R
-> Sym (GHC.Types.NTCo:IO[0] <((), SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <()>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <()>_N
:: (forall key_af8h value_af8i.
Rule key_af8h value_af8i =>
(key_af8h -> Maybe (Action value_af8i))
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, ((), SRules Action) #))
~R# (forall key_af8h value_af8i.
Rule key_af8h value_af8i =>
(key_af8h -> Maybe (Action value_af8i)) -> Rules ()))}]
rule =
Development.Shake.Core.rule1
`cast` (forall key_af8h value_af8i.
<Rule key_af8h value_af8i>_R
-> <key_af8h -> Maybe (Action value_af8i)>_R
-> Sym (GHC.Types.NTCo:IO[0] <((), SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <()>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <()>_N
:: (forall key_af8h value_af8i.
Rule key_af8h value_af8i =>
(key_af8h -> Maybe (Action value_af8i))
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, ((), SRules Action) #))
~R# (forall key_af8h value_af8i.
Rule key_af8h value_af8i =>
(key_af8h -> Maybe (Action value_af8i)) -> Rules ()))
run :: ShakeOptions -> Rules () -> IO ()
[GblId,
Arity=3,
Str=DmdType <S(LLLLLLLLLLLSLLLLLLL),1*U(U,U(U),U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U)><L,1*C1(U(U,1*U(A,1*U(U,U))))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.run1
`cast` (<ShakeOptions>_R
-> <Rules ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (ShakeOptions
-> Rules ()
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (ShakeOptions -> Rules () -> IO ()))}]
run =
Development.Shake.Core.run1
`cast` (<ShakeOptions>_R
-> <Rules ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R)
:: (ShakeOptions
-> Rules ()
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (ShakeOptions -> Rules () -> IO ()))
runAfter :: IO () -> Action ()
[GblId,
Arity=4,
Caf=NoCafRefs,
Str=DmdType <L,U><S(LS(LLLLLLLLLSL)L),1*U(A,1*U(A,A,A,A,A,A,A,A,A,1*U(U),A),A)><L,1*C1(C1(U(U,U)))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.runAfter1
`cast` (<IO ()>_R
-> (<S Global Local>_R
-> (<() -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0] <()>_N <IO>_R <()>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <()>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <()>_N
:: (IO ()
-> S Global Local
-> (() -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (IO () -> Action ()))}]
runAfter =
Development.Shake.Core.runAfter1
`cast` (<IO ()>_R
-> (<S Global Local>_R
-> (<() -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0] <()>_N <IO>_R <()>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <()>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <()>_N
:: (IO ()
-> S Global Local
-> (() -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (IO () -> Action ()))
traced :: forall a_aett. String -> IO a_aett -> Action a_aett
[GblId,
Arity=3,
Str=DmdType <L,U><L,C(U(U,U))><L,U(A,U(A,A,A,C(U(U,1*U(U))),A,C(C1(C1(U(U,A)))),A,A,A,A,A),U(U))>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.traced1
`cast` (forall a59_af3r.
<String>_R
-> <IO a59_af3r>_R
-> Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af3r>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <a59_af3r>_N
:: (forall a59_af3r.
String -> IO a59_af3r -> S Global Local -> ContT () IO a59_af3r)
~R# (forall a59_af3r. String -> IO a59_af3r -> Action a59_af3r))}]
traced =
Development.Shake.Core.traced1
`cast` (forall a59_af3r.
<String>_R
-> <IO a59_af3r>_R
-> Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af3r>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <a59_af3r>_N
:: (forall a59_af3r.
String -> IO a59_af3r -> S Global Local -> ContT () IO a59_af3r)
~R# (forall a59_af3r. String -> IO a59_af3r -> Action a59_af3r))
trackAllow
:: forall key_aeto.
ShakeValue key_aeto =>
(key_aeto -> Bool) -> Action ()
[GblId,
Arity=2,
Str=DmdType <L,U(A,U,A,A,A,A)><L,C(U)>,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [40 60] 290 60}]
trackAllow =
\ (@ key_af2a)
(tup_aiuD :: ShakeValue key_af2a)
(eta_XkU :: key_af2a -> Bool) ->
let {
$dTypeable_skGy [Dmd=<L,C(U)>] :: Typeable key_af2a
[LclId, Str=DmdType]
$dTypeable_skGy =
case tup_aiuD
of _ [Occ=Dead]
{ (tpl_X3G, tpl1_Xce, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
tpl1_Xce
} } in
let {
ty_skGx :: TypeRep
[LclId, Str=DmdType]
ty_skGx =
case tup_aiuD
of _ [Occ=Dead]
{ (tpl_X3G, tpl1_Xcg, tpl2_B3, tpl3_B4, tpl4_B5, tpl5_B6) ->
(tpl1_Xcg
`cast` (Data.Typeable.Internal.NTCo:Typeable[0] <*>_N <key_af2a>_N
:: Typeable key_af2a ~R# (GHC.Prim.Proxy# key_af2a -> TypeRep)))
(GHC.Prim.proxy# @ * @ key_af2a)
} } in
let {
f_skGw :: Key -> Bool
[LclId, Arity=1, Str=DmdType <S,U>]
f_skGw =
\ (k_aeBm :: Key) ->
case typeKey k_aeBm
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt_ik93 dt1_ik94 ds2_ik95 ds3_ik96
ds4_ik97 ->
case ty_skGx
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep dt2_ik9b dt3_ik9c ds5_ik9d
ds6_ik9e ds7_ik9f ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.eqWord# dt_ik93 dt2_ik9b)
of _ [Occ=Dead] {
False -> GHC.Types.False;
True ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt1_ik94 dt3_ik9c)
of _ [Occ=Dead] {
False -> GHC.Types.False;
True ->
eta_XkU
(fromValue
@ key_af2a
$dTypeable_skGy
(k_aeBm
`cast` (Development.Shake.Value.NTCo:Key[0] :: Key ~R# Value)))
}
}
}
} } in
(\ (eta1_ilTC :: S Global Local)
(eta2_ilTD :: () -> IO ())
(eta3_ilTE [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case eta1_ilTC of _ [Occ=Dead] { S ds_ilTH ds1_ilTI ds2_ilTJ ->
case ds2_ilTJ
`cast` (GHC.IORef.NTCo:IORef[0] <Local>_N
:: IORef Local ~R# GHC.STRef.STRef GHC.Prim.RealWorld Local)
of _ [Occ=Dead] { GHC.STRef.STRef var#_ilTN ->
case GHC.Prim.readMutVar#
@ GHC.Prim.RealWorld @ Local var#_ilTN eta3_ilTE
of _ [Occ=Dead] { (# ipv_ilTR, ipv1_ilTS #) ->
case ipv1_ilTS
of _ [Occ=Dead]
{ Local ds4_djj6 ds5_djj7 ds6_djj8 ds7_djj9 dt_djux ds8_djjb
ds9_djjc ds10_djjd ->
case GHC.Prim.writeMutVar#
@ GHC.Prim.RealWorld
@ Local
var#_ilTN
(Development.Shake.Core.Local
ds4_djj6
ds5_djj7
ds6_djj8
ds7_djj9
dt_djux
ds8_djjb
(GHC.Types.: @ (Key -> Bool) f_skGw ds9_djjc)
ds10_djjd)
ipv_ilTR
of s2#_ilTV [OS=OneShot] { __DEFAULT ->
((eta2_ilTD GHC.Tuple.())
`cast` (GHC.Types.NTCo:IO[0] <()>_R
:: IO ()
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))))
s2#_ilTV
}
}
}
}
})
`cast` ((<S Global Local>_R
-> (<() -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0] <()>_N <IO>_R <()>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <()>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <()>_N
:: (S Global Local
-> (() -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# Action ())
trackChange
:: forall key_aetp. ShakeValue key_aetp => key_aetp -> Action ()
[GblId,
Arity=5,
Caf=NoCafRefs,
Str=DmdType <L,U(1*U,U,1*U,1*U,1*U,1*U)><L,U><S(LSS),1*U(A,1*U(A,A,A,A,A,A,A,A,A,A,1*U(U)),1*U(U))><L,1*C1(C1(U(U,U)))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.trackChange1
`cast` (forall key_af2y.
<ShakeValue key_af2y>_R
-> <key_af2y>_R
-> (<S Global Local>_R
-> (<() -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0] <()>_N <IO>_R <()>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <()>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <()>_N
:: (forall key_af2y.
ShakeValue key_af2y =>
key_af2y
-> S Global Local
-> (() -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (forall key_af2y.
ShakeValue key_af2y =>
key_af2y -> Action ()))}]
trackChange =
Development.Shake.Core.trackChange1
`cast` (forall key_af2y.
<ShakeValue key_af2y>_R
-> <key_af2y>_R
-> (<S Global Local>_R
-> (<() -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0] <()>_N <IO>_R <()>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <()>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <()>_N
:: (forall key_af2y.
ShakeValue key_af2y =>
key_af2y
-> S Global Local
-> (() -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (forall key_af2y.
ShakeValue key_af2y =>
key_af2y -> Action ()))
trackUse
:: forall key_aetq. ShakeValue key_aetq => key_aetq -> Action ()
[GblId,
Arity=5,
Str=DmdType <L,U(1*U,U,1*U,1*U,1*U,1*U)><L,U><S(LSS),1*U(A,1*U(U(U(U),A,U(U),A,A,A,A),A,A,A,A,A,A,A,A,A,A),1*U(U))><L,1*C1(C1(U(U,U)))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.trackUse1
`cast` (forall key_af2X.
<ShakeValue key_af2X>_R
-> <key_af2X>_R
-> (<S Global Local>_R
-> (<() -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0] <()>_N <IO>_R <()>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <()>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <()>_N
:: (forall key_af2X.
ShakeValue key_af2X =>
key_af2X
-> S Global Local
-> (() -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (forall key_af2X.
ShakeValue key_af2X =>
key_af2X -> Action ()))}]
trackUse =
Development.Shake.Core.trackUse1
`cast` (forall key_af2X.
<ShakeValue key_af2X>_R
-> <key_af2X>_R
-> (<S Global Local>_R
-> (<() -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0] <()>_N <IO>_R <()>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <()>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <()>_N
:: (forall key_af2X.
ShakeValue key_af2X =>
key_af2X
-> S Global Local
-> (() -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (forall key_af2X.
ShakeValue key_af2X =>
key_af2X -> Action ()))
unsafeExtraThread :: forall a_aetg. Action a_aetg -> Action a_aetg
[GblId,
Arity=4,
Str=DmdType <L,C(C1(C1(U(U,U))))><S(LS(LSLLLLLLLLL)L),1*U(U(U),U(U,U(U,U),U,U,U,U,U,U,U,U,U),U)><L,C(C(U))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.unsafeExtraThread1
`cast` (forall a59_af0z.
<Action a59_af0z>_R
-> (<S Global Local>_R
-> (<a59_af0z -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af0z>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af0z>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <a59_af0z>_N
:: (forall a59_af0z.
Action a59_af0z
-> S Global Local
-> (a59_af0z -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (forall a59_af0z. Action a59_af0z -> Action a59_af0z))}]
unsafeExtraThread =
Development.Shake.Core.unsafeExtraThread1
`cast` (forall a59_af0z.
<Action a59_af0z>_R
-> (<S Global Local>_R
-> (<a59_af0z -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af0z>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af0z>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <a59_af0z>_N
:: (forall a59_af0z.
Action a59_af0z
-> S Global Local
-> (a59_af0z -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (forall a59_af0z. Action a59_af0z -> Action a59_af0z))
unsafeIgnoreDependencies
:: forall a_aetf. Action a_aetf -> Action a_aetf
[GblId,
Arity=4,
Caf=NoCafRefs,
Str=DmdType <L,1*C1(C1(C1(U(U,U))))><S(LLS),1*U(U,U,U(U))><L,C(C1(U))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.unsafeIgnoreDependencies1
`cast` (forall a59_af0q.
<Action a59_af0q>_R
-> (<S Global Local>_R
-> (<a59_af0q -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af0q>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af0q>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <a59_af0q>_N
:: (forall a59_af0q.
Action a59_af0q
-> S Global Local
-> (a59_af0q -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (forall a59_af0q. Action a59_af0q -> Action a59_af0q))}]
unsafeIgnoreDependencies =
Development.Shake.Core.unsafeIgnoreDependencies1
`cast` (forall a59_af0q.
<Action a59_af0q>_R
-> (<S Global Local>_R
-> (<a59_af0q -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af0q>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af0q>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <a59_af0q>_N
:: (forall a59_af0q.
Action a59_af0q
-> S Global Local
-> (a59_af0q -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (forall a59_af0q. Action a59_af0q -> Action a59_af0q))
withResource
:: forall a_aetm. Resource -> Int -> Action a_aetm -> Action a_aetm
[GblId,
Arity=4,
Str=DmdType <L,U(A,U,C(C1(C1(C1(U(U,U))))),C(C1(U)))><L,U(U)><L,C(C1(C1(U(U,U))))><L,U(U(U),U(U,U,U,U,U,U,U,U,U,U,U),U)>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.withResource1
`cast` (forall a59_af1B.
<Resource>_R
-> <Int>_R
-> <Action a59_af1B>_R
-> Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af1B>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <a59_af1B>_N
:: (forall a59_af1B.
Resource
-> Int
-> Action a59_af1B
-> S Global Local
-> ContT () IO a59_af1B)
~R# (forall a59_af1B.
Resource -> Int -> Action a59_af1B -> Action a59_af1B))}]
withResource =
Development.Shake.Core.withResource1
`cast` (forall a59_af1B.
<Resource>_R
-> <Int>_R
-> <Action a59_af1B>_R
-> Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af1B>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <a59_af1B>_N
:: (forall a59_af1B.
Resource
-> Int
-> Action a59_af1B
-> S Global Local
-> ContT () IO a59_af1B)
~R# (forall a59_af1B.
Resource -> Int -> Action a59_af1B -> Action a59_af1B))
Rec {
Development.Shake.Core.$wgo1 [InlPrag=[0], Occ=LoopBreaker]
:: [(Resource, Int)] -> GHC.Prim.Int# -> GHC.Prim.Int#
[GblId, Arity=2, Caf=NoCafRefs, Str=DmdType <S,1*U><L,U>]
Development.Shake.Core.$wgo1 =
\ (w_stpC :: [(Resource, Int)]) (ww_stpG :: GHC.Prim.Int#) ->
case w_stpC of _ [Occ=Dead] {
[] -> ww_stpG;
: y_iaB1 ys_iaB2 ->
case y_iaB1 of _ [Occ=Dead] { (ds1_ijUr, y1_ijUs) ->
case y1_ijUs of _ [Occ=Dead] { GHC.Types.I# y2_iaI6 ->
Development.Shake.Core.$wgo1 ys_iaB2 (GHC.Prim.+# ww_stpG y2_iaI6)
}
}
}
end Rec }
Development.Shake.Core.withResources1
:: forall a_af1s. Resource -> Int -> Action a_af1s
[GblId, Arity=2, Str=DmdType <L,U><L,U>b]
Development.Shake.Core.withResources1 =
\ (@ a59_af1s) (r_aeBS :: Resource) (i_aeBT :: Int) ->
error
@ (Action a59_af1s)
(GHC.CString.unpackAppendCString#
"You cannot acquire a negative quantity of "#
(case r_aeBS
of _ [Occ=Dead]
{ Development.Shake.Resource.Resource ds1_ikqQ ds2_ikqR ds3_ikqS
ds4_ikqT ->
++
@ Char
ds2_ikqR
(GHC.CString.unpackAppendCString#
", requested "#
(case i_aeBT of _ [Occ=Dead] { GHC.Types.I# ww3_ib8x ->
case GHC.Show.$wshowSignedInt 0 ww3_ib8x (GHC.Types.[] @ Char)
of _ [Occ=Dead] { (# ww5_ib8B, ww6_ib8C #) ->
GHC.Types.: @ Char ww5_ib8B ww6_ib8C
}
}))
}))
withResources
:: forall a_aetl.
[(Resource, Int)] -> Action a_aetl -> Action a_aetl
[GblId,
Arity=2,
Str=DmdType <S,U><L,U>,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [0 0] 350 0}]
withResources =
\ (@ a59_af1s)
(res_aeBN :: [(Resource, Int)])
(act_aeBO :: Action a59_af1s) ->
case filter
@ (Resource, Int) Development.Shake.Core.withResources4 res_aeBN
of _ [Occ=Dead] {
[] ->
letrec {
f_skEy [Occ=LoopBreaker] :: [[(Resource, Int)]] -> Action a59_af1s
[LclId, Arity=1, Str=DmdType <S,1*U>]
f_skEy =
\ (ds_dj9K :: [[(Resource, Int)]]) ->
case ds_dj9K of _ [Occ=Dead] {
[] -> act_aeBO;
: r_aeBQ rs_aeBR ->
(Development.Shake.Core.withResource1
@ a59_af1s
(case r_aeBQ of _ [Occ=Dead] {
[] -> case GHC.List.badHead of wild3_00 { };
: x_ik4N ds1_ik4O ->
case x_ik4N of _ [Occ=Dead] { (x1_iaBA, ds2_iaBB) -> x1_iaBA }
})
(case Development.Shake.Core.$wgo1 r_aeBQ 0
of ww_stpK { __DEFAULT ->
GHC.Types.I# ww_stpK
})
(f_skEy rs_aeBR))
`cast` (Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af1s>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <a59_af1s>_N
:: (S Global Local -> ContT () IO a59_af1s) ~R# Action a59_af1s)
}; } in
f_skEy
(groupBy
@ (Resource, Int)
Development.Shake.Core.withResources3
(sortBy
@ (Resource, Int) Development.Shake.Core.withResources2 res_aeBN));
: ds_dj9G ds1_dj9H ->
case ds_dj9G of _ [Occ=Dead] { (r_aeBS, i_aeBT) ->
Development.Shake.Core.withResources1 @ a59_af1s r_aeBS i_aeBT
}
}
withVerbosity
:: forall a_aets. Verbosity -> Action a_aets -> Action a_aets
[GblId,
Arity=5,
Caf=NoCafRefs,
Str=DmdType <L,U><L,1*C1(C1(C1(U(U,U))))><S(LLS),1*U(U,U,1*U(U))><L,C(C1(U))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.withVerbosity1
`cast` (forall a59_af3f.
<Verbosity>_R
-> <Action a59_af3f>_R
-> (<S Global Local>_R
-> (<a59_af3f -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af3f>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af3f>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <a59_af3f>_N
:: (forall a59_af3f.
Verbosity
-> Action a59_af3f
-> S Global Local
-> (a59_af3f -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (forall a59_af3f.
Verbosity -> Action a59_af3f -> Action a59_af3f))}]
withVerbosity =
Development.Shake.Core.withVerbosity1
`cast` (forall a59_af3f.
<Verbosity>_R
-> <Action a59_af3f>_R
-> (<S Global Local>_R
-> (<a59_af3f -> IO ()>_R -> Sym (GHC.Types.NTCo:IO[0] <()>_R))
; Sym
(Control.Monad.Trans.Cont.NTCo:ContT[0]
<()>_N <IO>_R <a59_af3f>_R))
; Sym
(Control.Monad.Trans.Reader.NTCo:ReaderT[0]
<S Global Local>_R <ContT () IO>_R <a59_af3f>_N)
; Sym (Development.Shake.Monad.NTCo:RAW[0] <Global>_R <Local>_R)
; Sym Development.Shake.Core.NTCo:Action[0] <a59_af3f>_N
:: (forall a59_af3f.
Verbosity
-> Action a59_af3f
-> S Global Local
-> (a59_af3f -> IO ())
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #))
~R# (forall a59_af3f.
Verbosity -> Action a59_af3f -> Action a59_af3f))
withoutActions :: Rules () -> Rules ()
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <C(S(LS)),1*C1(U(U,1*U(U,1*U(A,U))))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.withoutActions1
`cast` (<Rules ()>_R
-> Sym (GHC.Types.NTCo:IO[0] <((), SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <()>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <()>_N
:: (Rules ()
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, ((), SRules Action) #))
~R# (Rules () -> Rules ()))}]
withoutActions =
Development.Shake.Core.withoutActions1
`cast` (<Rules ()>_R
-> Sym (GHC.Types.NTCo:IO[0] <((), SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <()>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <()>_N
:: (Rules ()
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, ((), SRules Action) #))
~R# (Rules () -> Rules ()))
lvl114_rxvO
:: forall (m_aiI1 :: * -> *).
(TypeRep, TypeRep, [(Double, ARule m_aiI1)])
-> (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
-> (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
[GblId, Arity=2, Str=DmdType]
lvl114_rxvO =
\ (@ (m_aiI1 :: * -> *))
(x_ijCT :: (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
(y_ijCU [OS=OneShot]
:: (TypeRep, TypeRep, [(Double, ARule m_aiI1)])) ->
lvl94_rxvi @ m_aiI1 y_ijCU x_ijCT
lvl115_rxvP
:: forall (m_aiI1 :: * -> *).
Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
[GblId, Str=DmdType b]
lvl115_rxvP =
\ (@ (m_aiI1 :: * -> *)) ->
Control.Exception.Base.patError
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
"Data\\HashMap\\Strict.hs:(240,5)-(304,20)|function go"#
Rec {
poly_$wgoDifferentHash_rxvQ
:: forall (m_aiI1 :: * -> *).
GHC.Prim.Int#
-> GHC.Prim.Word#
-> GHC.Prim.Word#
-> Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
-> Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
-> Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
[GblId, Arity=5, Str=DmdType <L,U><L,U><L,U><L,U><L,U>]
poly_$wgoDifferentHash_rxvQ =
\ (@ (m_aiI1 :: * -> *))
(ww_stpW :: GHC.Prim.Int#)
(ww1_stq0 :: GHC.Prim.Word#)
(ww2_stq4 :: GHC.Prim.Word#)
(w_stpS
:: Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
(w1_stpT
:: Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])) ->
let {
a59_ikJu :: GHC.Prim.Word#
[LclId, Str=DmdType]
a59_ikJu =
GHC.Prim.uncheckedShiftL#
(__word 1)
(GHC.Prim.word2Int#
(GHC.Prim.and#
(GHC.Prim.uncheckedShiftRL# ww1_stq0 ww_stpW) (__word 15))) } in
let {
b1_ikJy :: GHC.Prim.Word#
[LclId, Str=DmdType]
b1_ikJy =
GHC.Prim.uncheckedShiftL#
(__word 1)
(GHC.Prim.word2Int#
(GHC.Prim.and#
(GHC.Prim.uncheckedShiftRL# ww2_stq4 ww_stpW) (__word 15))) } in
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.eqWord# a59_ikJu b1_ikJy)
of _ [Occ=Dead] {
False ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.ltWord# a59_ikJu b1_ikJy)
of _ [Occ=Dead] {
False ->
case GHC.Prim.newArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
2
w1_stpT
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv_ijGS, ipv1_ijGT #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ijGT
1
w_stpS
ipv_ijGS
of s'_ijH7 [OS=OneShot] { __DEFAULT ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ijGT
s'_ijH7
of _ [Occ=Dead] { (# ipv2_ikLT, ipv3_ikLU #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
(GHC.Prim.or# a59_ikJu b1_ikJy)
ipv3_ikLU
}
}
};
True ->
case GHC.Prim.newArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
2
w_stpS
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv_ijHv, ipv1_ijHw #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ijHw
1
w1_stpT
ipv_ijHv
of s'_ijHG [OS=OneShot] { __DEFAULT ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ijHw
s'_ijHG
of _ [Occ=Dead] { (# ipv2_ikLT, ipv3_ikLU #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
(GHC.Prim.or# a59_ikJu b1_ikJy)
ipv3_ikLU
}
}
}
};
True ->
case Development.Shake.Core.$fApplicativeRules2
@ m_aiI1 (GHC.Prim.+# ww_stpW 4) w_stpS w1_stpT
of vx_ikM8 { __DEFAULT ->
case GHC.Prim.newArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
1
vx_ikM8
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv_ilvd, ipv1_ilve #) ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ilve
ipv_ilvd
of _ [Occ=Dead] { (# ipv2_ilvq, ipv3_ilvr #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
a59_ikJu
ipv3_ilvr
}
}
}
}
Development.Shake.Core.$fApplicativeRules2 [InlPrag=[0],
Occ=LoopBreaker]
:: forall (m_aiI1 :: * -> *).
GHC.Prim.Int#
-> Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
-> Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
-> Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
[GblId, Arity=3, Str=DmdType <L,U><S,U><S,1*U>]
Development.Shake.Core.$fApplicativeRules2 =
\ (@ (m_aiI1 :: * -> *))
(ww_strZ :: GHC.Prim.Int#)
(w_strV
:: Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
(w1_strW
:: Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])) ->
case w1_strW of wild_ijId {
__DEFAULT ->
let {
fail_ijIe
:: GHC.Prim.Void#
-> Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
[LclId, Arity=1, Str=DmdType <L,A>]
fail_ijIe =
\ _ [Occ=Dead, OS=OneShot] ->
case wild_ijId of wild1_ijIg {
__DEFAULT ->
case w_strV of wild2_ijIh {
__DEFAULT ->
case wild1_ijIg of _ [Occ=Dead] {
__DEFAULT -> lvl115_rxvP @ m_aiI1;
unordered-containers-0.2.5.1:Data.HashMap.Base.Full dt_ijIm ->
case wild2_ijIh of wild4_ijEo {
__DEFAULT -> case lvl47_rxua of wild5_00 { };
unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf dt1_ijEr
dt2_ijEs dt3_ijEt ->
let {
ww1_stq9 :: GHC.Prim.Int#
[LclId, Str=DmdType]
ww1_stq9 =
GHC.Prim.word2Int#
(GHC.Prim.and#
(GHC.Prim.uncheckedShiftRL# dt1_ijEr ww_strZ)
(__word 15)) } in
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt_ijIm
ww1_stq9
of _ [Occ=Dead] { (# ipv_ilvS #) ->
case Development.Shake.Core.$fApplicativeRules2
@ m_aiI1 (GHC.Prim.+# ww_strZ 4) wild4_ijEo ipv_ilvS
of vx_ikM8 { __DEFAULT ->
case GHC.Prim.thawArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
dt_ijIm
0
16
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv1_ilwW, ipv2_ilwX #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv2_ilwX
ww1_stq9
vx_ikM8
ipv1_ilwW
of s'_ilwr [OS=OneShot] { __DEFAULT ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv2_ilwX
s'_ilwr
of _ [Occ=Dead] { (# ipv4_ilwC, ipv5_ilwD #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Full
@ TypeRep @ (TypeRep, TypeRep, [(Double, ARule m_aiI1)]) ipv5_ilwD
}
}
}
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision dt1_ijEw
dt2_ijEx ->
let {
ww1_stq9 :: GHC.Prim.Int#
[LclId, Str=DmdType]
ww1_stq9 =
GHC.Prim.word2Int#
(GHC.Prim.and#
(GHC.Prim.uncheckedShiftRL# dt1_ijEw ww_strZ)
(__word 15)) } in
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt_ijIm
ww1_stq9
of _ [Occ=Dead] { (# ipv_ilvS #) ->
case Development.Shake.Core.$fApplicativeRules2
@ m_aiI1 (GHC.Prim.+# ww_strZ 4) wild4_ijEo ipv_ilvS
of vx_ikM8 { __DEFAULT ->
case GHC.Prim.thawArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
dt_ijIm
0
16
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv1_ilwW, ipv2_ilwX #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv2_ilwX
ww1_stq9
vx_ikM8
ipv1_ilwW
of s'_ilwr [OS=OneShot] { __DEFAULT ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv2_ilwX
s'_ilwr
of _ [Occ=Dead] { (# ipv4_ilwC, ipv5_ilwD #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Full
@ TypeRep @ (TypeRep, TypeRep, [(Double, ARule m_aiI1)]) ipv5_ilwD
}
}
}
}
}
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Full dt_ijID ->
case wild1_ijIg of wild3_ijEo {
unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf dt1_ijEr
dt2_ijEs dt3_ijEt ->
let {
ww1_stqd :: GHC.Prim.Int#
[LclId, Str=DmdType]
ww1_stqd =
GHC.Prim.word2Int#
(GHC.Prim.and#
(GHC.Prim.uncheckedShiftRL# dt1_ijEr ww_strZ) (__word 15)) } in
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt_ijID
ww1_stqd
of _ [Occ=Dead] { (# ipv_ilvS #) ->
case Development.Shake.Core.$fApplicativeRules2
@ m_aiI1 (GHC.Prim.+# ww_strZ 4) ipv_ilvS wild3_ijEo
of vx_ikM8 { __DEFAULT ->
case GHC.Prim.thawArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
dt_ijID
0
16
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv1_ilwW, ipv2_ilwX #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv2_ilwX
ww1_stqd
vx_ikM8
ipv1_ilwW
of s'_ilwr [OS=OneShot] { __DEFAULT ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv2_ilwX
s'_ilwr
of _ [Occ=Dead] { (# ipv4_ilwC, ipv5_ilwD #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Full
@ TypeRep @ (TypeRep, TypeRep, [(Double, ARule m_aiI1)]) ipv5_ilwD
}
}
}
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Full ipv_slIJ ->
case lvl47_rxua of wild4_00 { };
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision dt1_ijEw
dt2_ijEx ->
let {
ww1_stqd :: GHC.Prim.Int#
[LclId, Str=DmdType]
ww1_stqd =
GHC.Prim.word2Int#
(GHC.Prim.and#
(GHC.Prim.uncheckedShiftRL# dt1_ijEw ww_strZ) (__word 15)) } in
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt_ijID
ww1_stqd
of _ [Occ=Dead] { (# ipv_ilvS #) ->
case Development.Shake.Core.$fApplicativeRules2
@ m_aiI1 (GHC.Prim.+# ww_strZ 4) ipv_ilvS wild3_ijEo
of vx_ikM8 { __DEFAULT ->
case GHC.Prim.thawArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
dt_ijID
0
16
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv1_ilwW, ipv2_ilwX #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv2_ilwX
ww1_stqd
vx_ikM8
ipv1_ilwW
of s'_ilwr [OS=OneShot] { __DEFAULT ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv2_ilwX
s'_ilwr
of _ [Occ=Dead] { (# ipv4_ilwC, ipv5_ilwD #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Full
@ TypeRep @ (TypeRep, TypeRep, [(Double, ARule m_aiI1)]) ipv5_ilwD
}
}
}
}
}
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed dt_ijIV
dt1_ijIW ->
let {
$j_snkO
:: GHC.Prim.Word#
-> Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
[LclId, Arity=1, Str=DmdType <L,U>]
$j_snkO =
\ (y#_ikJo [OS=OneShot] :: GHC.Prim.Word#) ->
case GHC.Prim.and# dt_ijIV y#_ikJo of _ [Occ=Dead] {
__DEFAULT ->
let {
a59_slIX :: GHC.Prim.Int#
[LclId, Str=DmdType]
a59_slIX =
GHC.Prim.word2Int#
(GHC.Prim.popCnt#
(GHC.Prim.and#
dt_ijIV (GHC.Prim.minusWord# y#_ikJo (__word 1)))) } in
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt1_ijIW
a59_slIX
of _ [Occ=Dead] { (# ipv_ilvS #) ->
case Development.Shake.Core.$fApplicativeRules2
@ m_aiI1 (GHC.Prim.+# ww_strZ 4) w_strV ipv_ilvS
of vx_ikM8 { __DEFAULT ->
case GHC.Prim.thawArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
dt1_ijIW
0
(GHC.Prim.sizeofArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt1_ijIW)
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv1_ilxM, ipv2_ilxN #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv2_ilxN
a59_slIX
vx_ikM8
ipv1_ilxM
of s'_ily1 [OS=OneShot] { __DEFAULT ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv2_ilxN
s'_ily1
of _ [Occ=Dead] { (# ipv5_ilyc, ipv6_ilyd #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
dt_ijIV
ipv6_ilyd
}
}
}
}
};
__word 0 ->
case w_strV of vx_ikM8 { __DEFAULT ->
let {
wild3_il3K :: GHC.Prim.Int#
[LclId, Str=DmdType]
wild3_il3K =
GHC.Prim.sizeofArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt1_ijIW } in
case GHC.Prim.newArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
(GHC.Prim.+# wild3_il3K 1)
(unordered-containers-0.2.5.1:Data.HashMap.Array.undefinedElem
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])))
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv_ikMA, ipv1_ikMB #) ->
let {
a59_slJ7 :: GHC.Prim.Int#
[LclId, Str=DmdType]
a59_slJ7 =
GHC.Prim.word2Int#
(GHC.Prim.popCnt#
(GHC.Prim.and#
dt_ijIV (GHC.Prim.minusWord# y#_ikJo (__word 1)))) } in
case GHC.Prim.copyArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
dt1_ijIW
0
ipv1_ikMB
0
a59_slJ7
ipv_ikMA
of s2_ilo2 [OS=OneShot] { __DEFAULT ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
a59_slJ7
vx_ikM8
s2_ilo2
of s'_il43 [OS=OneShot] { __DEFAULT ->
case GHC.Prim.copyArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
dt1_ijIW
a59_slJ7
ipv1_ikMB
(GHC.Prim.+# a59_slJ7 1)
(GHC.Prim.-# wild3_il3K a59_slJ7)
s'_il43
of s1_XlHv [OS=OneShot] { __DEFAULT ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
s1_XlHv
of _ [Occ=Dead] { (# ipv8_il4j, ipv9_il4k #) ->
case GHC.Prim.or# dt_ijIV y#_ikJo of wild4_XiI {
__DEFAULT ->
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
wild4_XiI
ipv9_il4k;
__word 65535 ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Full
@ TypeRep @ (TypeRep, TypeRep, [(Double, ARule m_aiI1)]) ipv9_il4k
}
}
}
}
}
}
}
} } in
case w_strV of _ [Occ=Dead] {
__DEFAULT -> case lvl47_rxua of wild3_00 { };
unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf dt2_ijEr
dt3_ijEs dt4_ijEt ->
$j_snkO
(GHC.Prim.uncheckedShiftL#
(__word 1)
(GHC.Prim.word2Int#
(GHC.Prim.and#
(GHC.Prim.uncheckedShiftRL# dt2_ijEr ww_strZ) (__word 15))));
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision dt2_ijEw
dt3_ijEx ->
$j_snkO
(GHC.Prim.uncheckedShiftL#
(__word 1)
(GHC.Prim.word2Int#
(GHC.Prim.and#
(GHC.Prim.uncheckedShiftRL# dt2_ijEw ww_strZ) (__word 15))))
}
} } in
case w_strV of wild1_ijJy {
unordered-containers-0.2.5.1:Data.HashMap.Base.Empty -> wild_ijId;
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed dt_ijJD
dt1_ijJE ->
case wild_ijId of wild2_ijJG {
__DEFAULT ->
let {
$j_snl6
:: GHC.Prim.Word#
-> Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
[LclId, Arity=1, Str=DmdType <L,U>]
$j_snl6 =
\ (y#_ikJo [OS=OneShot] :: GHC.Prim.Word#) ->
case GHC.Prim.and# dt_ijJD y#_ikJo of _ [Occ=Dead] {
__DEFAULT ->
let {
a59_slJt :: GHC.Prim.Int#
[LclId, Str=DmdType]
a59_slJt =
GHC.Prim.word2Int#
(GHC.Prim.popCnt#
(GHC.Prim.and#
dt_ijJD (GHC.Prim.minusWord# y#_ikJo (__word 1)))) } in
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt1_ijJE
a59_slJt
of _ [Occ=Dead] { (# ipv_ilvS #) ->
case Development.Shake.Core.$fApplicativeRules2
@ m_aiI1 (GHC.Prim.+# ww_strZ 4) ipv_ilvS wild2_ijJG
of vx_ikM8 { __DEFAULT ->
case GHC.Prim.thawArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
dt1_ijJE
0
(GHC.Prim.sizeofArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt1_ijJE)
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv1_ilxM, ipv2_ilxN #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv2_ilxN
a59_slJt
vx_ikM8
ipv1_ilxM
of s'_ily1 [OS=OneShot] { __DEFAULT ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv2_ilxN
s'_ily1
of _ [Occ=Dead] { (# ipv5_ilyc, ipv6_ilyd #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
dt_ijJD
ipv6_ilyd
}
}
}
}
};
__word 0 ->
let {
wild5_ijKh :: GHC.Prim.Int#
[LclId, Str=DmdType]
wild5_ijKh =
GHC.Prim.sizeofArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt1_ijJE } in
case GHC.Prim.newArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
(GHC.Prim.+# wild5_ijKh 1)
(unordered-containers-0.2.5.1:Data.HashMap.Array.undefinedElem
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])))
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv_ikMA, ipv1_ikMB #) ->
let {
a59_slJC :: GHC.Prim.Int#
[LclId, Str=DmdType]
a59_slJC =
GHC.Prim.word2Int#
(GHC.Prim.popCnt#
(GHC.Prim.and#
dt_ijJD (GHC.Prim.minusWord# y#_ikJo (__word 1)))) } in
case GHC.Prim.copyArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
dt1_ijJE
0
ipv1_ikMB
0
a59_slJC
ipv_ikMA
of s2_ilo2 [OS=OneShot] { __DEFAULT ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
a59_slJC
wild2_ijJG
s2_ilo2
of s'_ijKG [OS=OneShot] { __DEFAULT ->
case GHC.Prim.copyArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
dt1_ijJE
a59_slJC
ipv1_ikMB
(GHC.Prim.+# a59_slJC 1)
(GHC.Prim.-# wild5_ijKh a59_slJC)
s'_ijKG
of s1_XlHv [OS=OneShot] { __DEFAULT ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
s1_XlHv
of _ [Occ=Dead] { (# ipv9_ijKW, ipv10_ijKX #) ->
case GHC.Prim.or# dt_ijJD y#_ikJo of wild4_XiK {
__DEFAULT ->
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
wild4_XiK
ipv10_ijKX;
__word 65535 ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Full
@ TypeRep @ (TypeRep, TypeRep, [(Double, ARule m_aiI1)]) ipv10_ijKX
}
}
}
}
}
}
} } in
case wild2_ijJG of _ [Occ=Dead] {
unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf dt2_ijEr
dt3_ijEs dt4_ijEt ->
$j_snl6
(GHC.Prim.uncheckedShiftL#
(__word 1)
(GHC.Prim.word2Int#
(GHC.Prim.and#
(GHC.Prim.uncheckedShiftRL# dt2_ijEr ww_strZ) (__word 15))));
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision dt2_ijEw
dt3_ijEx ->
$j_snl6
(GHC.Prim.uncheckedShiftL#
(__word 1)
(GHC.Prim.word2Int#
(GHC.Prim.and#
(GHC.Prim.uncheckedShiftRL# dt2_ijEw ww_strZ) (__word 15))))
};
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed dt2_ijL7
dt3_ijL8 ->
let {
a59_slJV :: GHC.Prim.Word#
[LclId, Str=DmdType]
a59_slJV = GHC.Prim.or# dt_ijJD dt2_ijL7 } in
case GHC.Prim.newArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
(GHC.Prim.word2Int# (GHC.Prim.popCnt# a59_slJV))
(unordered-containers-0.2.5.1:Data.HashMap.Array.undefinedElem
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])))
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv_ikMA, ipv1_ikMB #) ->
let {
a60_slJU :: GHC.Prim.Int#
[LclId, Str=DmdType]
a60_slJU = GHC.Prim.+# ww_strZ 4 } in
let {
a61_slJX :: GHC.Prim.Word#
[LclId, Str=DmdType]
a61_slJX = GHC.Prim.and# dt_ijJD dt2_ijL7 } in
letrec {
$wa19_stqL [InlPrag=[0], Occ=LoopBreaker]
:: GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.Word#
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId, Arity=5, Str=DmdType <L,U><L,U><L,U><L,U><L,U>]
$wa19_stqL =
\ (ww1_stqx :: GHC.Prim.Int#)
(ww2_stqB :: GHC.Prim.Int#)
(ww3_stqF :: GHC.Prim.Int#)
(ww4_stqJ :: GHC.Prim.Word#)
(w2_stqu [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.gtWord# ww4_stqJ a59_slJV)
of _ [Occ=Dead] {
False ->
case GHC.Prim.and# a59_slJV ww4_stqJ of _ [Occ=Dead] {
__DEFAULT ->
case GHC.Prim.and# a61_slJX ww4_stqJ of _ [Occ=Dead] {
__DEFAULT ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt1_ijJE
ww2_stqB
of _ [Occ=Dead] { (# ipv7_ijML #) ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt3_ijL8
ww3_stqF
of _ [Occ=Dead] { (# ipv2_ijMQ #) ->
case Development.Shake.Core.$fApplicativeRules2
@ m_aiI1 a60_slJU ipv7_ijML ipv2_ijMQ
of vx_ikM8 { __DEFAULT ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
ww1_stqx
vx_ikM8
w2_stqu
of s'_ikO3 [OS=OneShot] { __DEFAULT ->
$wa19_stqL
(GHC.Prim.+# ww1_stqx 1)
(GHC.Prim.+# ww2_stqB 1)
(GHC.Prim.+# ww3_stqF 1)
(GHC.Prim.uncheckedShiftL# ww4_stqJ 1)
s'_ikO3
}
}
}
};
__word 0 ->
case GHC.Prim.and# dt_ijJD ww4_stqJ of _ [Occ=Dead] {
__DEFAULT ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep
(TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt1_ijJE
ww2_stqB
of _ [Occ=Dead] { (# ipv7_ijMy #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep
(TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
ww1_stqx
ipv7_ijMy
w2_stqu
of s'_ikO3 [OS=OneShot] { __DEFAULT ->
$wa19_stqL
(GHC.Prim.+# ww1_stqx 1)
(GHC.Prim.+# ww2_stqB 1)
ww3_stqF
(GHC.Prim.uncheckedShiftL# ww4_stqJ 1)
s'_ikO3
}
};
__word 0 ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep
(TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt3_ijL8
ww3_stqF
of _ [Occ=Dead] { (# ipv7_ijMk #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep
(TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
ww1_stqx
ipv7_ijMk
w2_stqu
of s'_ikO3 [OS=OneShot] { __DEFAULT ->
$wa19_stqL
(GHC.Prim.+# ww1_stqx 1)
ww2_stqB
(GHC.Prim.+# ww3_stqF 1)
(GHC.Prim.uncheckedShiftL# ww4_stqJ 1)
s'_ikO3
}
}
}
};
__word 0 ->
$wa19_stqL
ww1_stqx
ww2_stqB
ww3_stqF
(GHC.Prim.uncheckedShiftL# ww4_stqJ 1)
w2_stqu
};
True -> (# w2_stqu, GHC.Tuple.() #)
}; } in
case $wa19_stqL
0
0
0
(GHC.Prim.and#
a59_slJV
(GHC.Prim.int2Word#
(GHC.Prim.negateInt# (GHC.Prim.word2Int# a59_slJV))))
ipv_ikMA
of _ [Occ=Dead] { (# ipv3_ijN5, ipv4_ijN6 #) ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
ipv3_ijN5
of _ [Occ=Dead] { (# ipv2_ikLT, ipv5_ikLU #) ->
case a59_slJV of wild3_XiE {
__DEFAULT ->
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
wild3_XiE
ipv5_ikLU;
__word 65535 ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Full
@ TypeRep @ (TypeRep, TypeRep, [(Double, ARule m_aiI1)]) ipv5_ikLU
}
}
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Full dt2_ijNf ->
let {
a59_slKC :: GHC.Prim.Word#
[LclId, Str=DmdType]
a59_slKC = GHC.Prim.or# dt_ijJD (__word 65535) } in
case GHC.Prim.newArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
(GHC.Prim.word2Int# (GHC.Prim.popCnt# a59_slKC))
(unordered-containers-0.2.5.1:Data.HashMap.Array.undefinedElem
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])))
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv_ikMA, ipv1_ikMB #) ->
let {
a60_slKB :: GHC.Prim.Int#
[LclId, Str=DmdType]
a60_slKB = GHC.Prim.+# ww_strZ 4 } in
let {
a61_slKE :: GHC.Prim.Word#
[LclId, Str=DmdType]
a61_slKE = GHC.Prim.and# dt_ijJD (__word 65535) } in
letrec {
$wa19_strb [InlPrag=[0], Occ=LoopBreaker]
:: GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.Word#
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId, Arity=5, Str=DmdType <L,U><L,U><L,U><L,U><L,U>]
$wa19_strb =
\ (ww1_stqX :: GHC.Prim.Int#)
(ww2_str1 :: GHC.Prim.Int#)
(ww3_str5 :: GHC.Prim.Int#)
(ww4_str9 :: GHC.Prim.Word#)
(w2_stqU [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.gtWord# ww4_str9 a59_slKC)
of _ [Occ=Dead] {
False ->
case GHC.Prim.and# a59_slKC ww4_str9 of _ [Occ=Dead] {
__DEFAULT ->
case GHC.Prim.and# a61_slKE ww4_str9 of _ [Occ=Dead] {
__DEFAULT ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt1_ijJE
ww2_str1
of _ [Occ=Dead] { (# ipv7_ijOy #) ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt2_ijNf
ww3_str5
of _ [Occ=Dead] { (# ipv2_ijOD #) ->
case Development.Shake.Core.$fApplicativeRules2
@ m_aiI1 a60_slKB ipv7_ijOy ipv2_ijOD
of vx_ikM8 { __DEFAULT ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
ww1_stqX
vx_ikM8
w2_stqU
of s'_ikO3 [OS=OneShot] { __DEFAULT ->
$wa19_strb
(GHC.Prim.+# ww1_stqX 1)
(GHC.Prim.+# ww2_str1 1)
(GHC.Prim.+# ww3_str5 1)
(GHC.Prim.uncheckedShiftL# ww4_str9 1)
s'_ikO3
}
}
}
};
__word 0 ->
case GHC.Prim.and# dt_ijJD ww4_str9 of _ [Occ=Dead] {
__DEFAULT ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep
(TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt1_ijJE
ww2_str1
of _ [Occ=Dead] { (# ipv7_ijOl #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep
(TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
ww1_stqX
ipv7_ijOl
w2_stqU
of s'_ikO3 [OS=OneShot] { __DEFAULT ->
$wa19_strb
(GHC.Prim.+# ww1_stqX 1)
(GHC.Prim.+# ww2_str1 1)
ww3_str5
(GHC.Prim.uncheckedShiftL# ww4_str9 1)
s'_ikO3
}
};
__word 0 ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep
(TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt2_ijNf
ww3_str5
of _ [Occ=Dead] { (# ipv7_ijO7 #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep
(TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
ww1_stqX
ipv7_ijO7
w2_stqU
of s'_ikO3 [OS=OneShot] { __DEFAULT ->
$wa19_strb
(GHC.Prim.+# ww1_stqX 1)
ww2_str1
(GHC.Prim.+# ww3_str5 1)
(GHC.Prim.uncheckedShiftL# ww4_str9 1)
s'_ikO3
}
}
}
};
__word 0 ->
$wa19_strb
ww1_stqX
ww2_str1
ww3_str5
(GHC.Prim.uncheckedShiftL# ww4_str9 1)
w2_stqU
};
True -> (# w2_stqU, GHC.Tuple.() #)
}; } in
case $wa19_strb
0
0
0
(GHC.Prim.and#
a59_slKC
(GHC.Prim.int2Word#
(GHC.Prim.negateInt# (GHC.Prim.word2Int# a59_slKC))))
ipv_ikMA
of _ [Occ=Dead] { (# ipv3_ijOR, ipv4_ijOS #) ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
ipv3_ijOR
of _ [Occ=Dead] { (# ipv2_ikLT, ipv5_ikLU #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Full
@ TypeRep @ (TypeRep, TypeRep, [(Double, ARule m_aiI1)]) ipv5_ikLU
}
}
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf dt_ijP0
dt1_ijP1 dt2_ijP2 ->
case dt1_ijP1
of wild2_svyA
{ Data.Typeable.Internal.TypeRep dt3_svyB dt4_svyC ds2_svyD
ds3_svyE ds4_svyF ->
case wild_ijId of wild3_ijP4 {
__DEFAULT -> fail_ijIe GHC.Prim.void#;
unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf dt5_ijP7
dt6_ijP8 dt7_ijP9 ->
case dt6_ijP8
of wild4_svyH
{ Data.Typeable.Internal.TypeRep dt8_svyI dt9_svyJ ds5_svyK
ds6_svyL ds7_svyM ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.eqWord# dt_ijP0 dt5_ijP7)
of _ [Occ=Dead] {
False ->
poly_$wgoDifferentHash_rxvQ
@ m_aiI1 ww_strZ dt_ijP0 dt5_ijP7 wild1_ijJy wild3_ijP4;
True ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt3_svyB dt8_svyI)
of _ [Occ=Dead] {
False ->
case GHC.Prim.newArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
2
(unordered-containers-0.2.5.1:Data.HashMap.Base.L
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
wild2_svyA
dt2_ijP2)
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv1_ijPq, ipv2_ijPr #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv2_ijPr
1
(unordered-containers-0.2.5.1:Data.HashMap.Base.L
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
wild4_svyH
dt7_ijP9)
ipv1_ijPq
of s'_ijPB [OS=OneShot] { __DEFAULT ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv2_ijPr
s'_ijPB
of _ [Occ=Dead] { (# ipv3_ikLT, ipv4_ikLU #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
dt_ijP0
ipv4_ikLU
}
}
};
True ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.eqWord# dt4_svyC dt9_svyJ)
of _ [Occ=Dead] {
False ->
case GHC.Prim.newArray#
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
2
(unordered-containers-0.2.5.1:Data.HashMap.Base.L
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
wild2_svyA
dt2_ijP2)
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv1_ijPq, ipv2_ijPr #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv2_ijPr
1
(unordered-containers-0.2.5.1:Data.HashMap.Base.L
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
wild4_svyH
dt7_ijP9)
ipv1_ijPq
of s'_ijPB [OS=OneShot] { __DEFAULT ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv2_ijPr
s'_ijPB
of _ [Occ=Dead] { (# ipv3_ikLT, ipv4_ikLU #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
dt_ijP0
ipv4_ikLU
}
}
};
True ->
case dt2_ijP2 of _ [Occ=Dead] { (ww2_stl8, ww3_stl9, ww4_stli) ->
case ww3_stl9
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww6_stlc ww7_stld ww8_stle
ww9_stlf ww10_stlg ->
case dt7_ijP9
of _ [Occ=Dead] { (ww12_stlm, ww13_stln, ww14_stlo) ->
case $wlvl11_rxvh
@ m_aiI1
ww2_stl8
ww6_stlc
ww7_stld
ww8_stle
ww9_stlf
ww10_stlg
ww4_stli
ww13_stln
ww14_stlo
of _ [Occ=Dead] { (# ww16_stu1, ww17_stu2, ww18_stu3 #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
dt_ijP0
wild2_svyA
(ww16_stu1, ww17_stu2, ww18_stu3)
}
}
}
}
}
}
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision dt5_ijPR
dt6_ijPS ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.eqWord# dt_ijP0 dt5_ijPR)
of _ [Occ=Dead] {
False ->
poly_$wgoDifferentHash_rxvQ
@ m_aiI1 ww_strZ dt_ijP0 dt5_ijPR wild1_ijJy wild3_ijP4;
True ->
case Development.Shake.Core.$w$s$wupdateOrSnocWith1
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
(lvl94_rxvi @ m_aiI1)
dt3_svyB
dt4_svyC
ds2_svyD
ds3_svyE
ds4_svyF
dt2_ijP2
dt6_ijPS
of ww2_ikPl { __DEFAULT ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
dt_ijP0
ww2_ikPl
}
}
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Full dt_ijQ7 ->
case wild_ijId of _ [Occ=Dead] {
__DEFAULT -> fail_ijIe GHC.Prim.void#;
unordered-containers-0.2.5.1:Data.HashMap.Base.BitmapIndexed dt1_ijQc
dt2_ijQd ->
let {
a59_slLD :: GHC.Prim.Word#
[LclId, Str=DmdType]
a59_slLD = GHC.Prim.or# (__word 65535) dt1_ijQc } in
case GHC.Prim.newArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
(GHC.Prim.word2Int# (GHC.Prim.popCnt# a59_slLD))
(unordered-containers-0.2.5.1:Data.HashMap.Array.undefinedElem
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])))
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv_ikMA, ipv1_ikMB #) ->
let {
a60_slLC :: GHC.Prim.Int#
[LclId, Str=DmdType]
a60_slLC = GHC.Prim.+# ww_strZ 4 } in
let {
a61_slLF :: GHC.Prim.Word#
[LclId, Str=DmdType]
a61_slLF = GHC.Prim.and# (__word 65535) dt1_ijQc } in
letrec {
$wa19_strx [InlPrag=[0], Occ=LoopBreaker]
:: GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.Word#
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId, Arity=5, Str=DmdType <L,U><L,U><L,U><L,U><L,U>]
$wa19_strx =
\ (ww1_strj :: GHC.Prim.Int#)
(ww2_strn :: GHC.Prim.Int#)
(ww3_strr :: GHC.Prim.Int#)
(ww4_strv :: GHC.Prim.Word#)
(w2_strg [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.gtWord# ww4_strv a59_slLD)
of _ [Occ=Dead] {
False ->
case GHC.Prim.and# a59_slLD ww4_strv of _ [Occ=Dead] {
__DEFAULT ->
case GHC.Prim.and# a61_slLF ww4_strv of _ [Occ=Dead] {
__DEFAULT ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt_ijQ7
ww2_strn
of _ [Occ=Dead] { (# ipv7_ijRx #) ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt2_ijQd
ww3_strr
of _ [Occ=Dead] { (# ipv2_ijRC #) ->
case Development.Shake.Core.$fApplicativeRules2
@ m_aiI1 a60_slLC ipv7_ijRx ipv2_ijRC
of vx_ikM8 { __DEFAULT ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
ww1_strj
vx_ikM8
w2_strg
of s'_ikO3 [OS=OneShot] { __DEFAULT ->
$wa19_strx
(GHC.Prim.+# ww1_strj 1)
(GHC.Prim.+# ww2_strn 1)
(GHC.Prim.+# ww3_strr 1)
(GHC.Prim.uncheckedShiftL# ww4_strv 1)
s'_ikO3
}
}
}
};
__word 0 ->
case GHC.Prim.and# (__word 65535) ww4_strv of _ [Occ=Dead] {
__DEFAULT ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep
(TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt_ijQ7
ww2_strn
of _ [Occ=Dead] { (# ipv7_ijRk #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep
(TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
ww1_strj
ipv7_ijRk
w2_strg
of s'_ikO3 [OS=OneShot] { __DEFAULT ->
$wa19_strx
(GHC.Prim.+# ww1_strj 1)
(GHC.Prim.+# ww2_strn 1)
ww3_strr
(GHC.Prim.uncheckedShiftL# ww4_strv 1)
s'_ikO3
}
};
__word 0 ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep
(TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt2_ijQd
ww3_strr
of _ [Occ=Dead] { (# ipv7_ijR6 #) ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep
(TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
ww1_strj
ipv7_ijR6
w2_strg
of s'_ikO3 [OS=OneShot] { __DEFAULT ->
$wa19_strx
(GHC.Prim.+# ww1_strj 1)
ww2_strn
(GHC.Prim.+# ww3_strr 1)
(GHC.Prim.uncheckedShiftL# ww4_strv 1)
s'_ikO3
}
}
}
};
__word 0 ->
$wa19_strx
ww1_strj
ww2_strn
ww3_strr
(GHC.Prim.uncheckedShiftL# ww4_strv 1)
w2_strg
};
True -> (# w2_strg, GHC.Tuple.() #)
}; } in
case $wa19_strx
0
0
0
(GHC.Prim.and#
a59_slLD
(GHC.Prim.int2Word#
(GHC.Prim.negateInt# (GHC.Prim.word2Int# a59_slLD))))
ipv_ikMA
of _ [Occ=Dead] { (# ipv3_ijRQ, ipv4_ijRR #) ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
ipv3_ijRQ
of _ [Occ=Dead] { (# ipv2_ikLT, ipv5_ikLU #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Full
@ TypeRep @ (TypeRep, TypeRep, [(Double, ARule m_aiI1)]) ipv5_ikLU
}
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Full dt1_ijRZ ->
case GHC.Prim.newArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
@ GHC.Prim.RealWorld
(GHC.Prim.word2Int# (GHC.Prim.popCnt# (__word 65535)))
(unordered-containers-0.2.5.1:Data.HashMap.Array.undefinedElem
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)])))
GHC.Prim.realWorld#
of _ [Occ=Dead] { (# ipv_ikMA, ipv1_ikMB #) ->
let {
a59_slMf :: GHC.Prim.Int#
[LclId, Str=DmdType]
a59_slMf = GHC.Prim.+# ww_strZ 4 } in
letrec {
$wa19_strT [InlPrag=[0], Occ=LoopBreaker]
:: GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.Word#
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[LclId, Arity=5, Str=DmdType <L,U><L,U><L,U><L,U><L,U>]
$wa19_strT =
\ (ww1_strF :: GHC.Prim.Int#)
(ww2_strJ :: GHC.Prim.Int#)
(ww3_strN :: GHC.Prim.Int#)
(ww4_strR :: GHC.Prim.Word#)
(w2_strC [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case GHC.Prim.tagToEnum#
@ Bool (GHC.Prim.gtWord# ww4_strR (__word 65535))
of _ [Occ=Dead] {
False ->
case GHC.Prim.and# (__word 65535) ww4_strR of _ [Occ=Dead] {
__DEFAULT ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt_ijQ7
ww2_strJ
of _ [Occ=Dead] { (# ipv7_ijTi #) ->
case GHC.Prim.indexArray#
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
dt1_ijRZ
ww3_strN
of _ [Occ=Dead] { (# ipv2_ijTn #) ->
case Development.Shake.Core.$fApplicativeRules2
@ m_aiI1 a59_slMf ipv7_ijTi ipv2_ijTn
of vx_ikM8 { __DEFAULT ->
case GHC.Prim.writeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
ww1_strF
vx_ikM8
w2_strC
of s'_ikO3 [OS=OneShot] { __DEFAULT ->
$wa19_strT
(GHC.Prim.+# ww1_strF 1)
(GHC.Prim.+# ww2_strJ 1)
(GHC.Prim.+# ww3_strN 1)
(GHC.Prim.uncheckedShiftL# ww4_strR 1)
s'_ikO3
}
}
}
};
__word 0 ->
$wa19_strT
ww1_strF
ww2_strJ
ww3_strN
(GHC.Prim.uncheckedShiftL# ww4_strR 1)
w2_strC
};
True -> (# w2_strC, GHC.Tuple.() #)
}; } in
case $wa19_strT 0 0 0 (__word 1) ipv_ikMA
of _ [Occ=Dead] { (# ipv3_ijTB, ipv4_ijTC #) ->
case GHC.Prim.unsafeFreezeArray#
@ GHC.Prim.RealWorld
@ (Map.HashMap
TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
ipv1_ikMB
ipv3_ijTB
of _ [Occ=Dead] { (# ipv2_ikLT, ipv5_ikLU #) ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Full
@ TypeRep @ (TypeRep, TypeRep, [(Double, ARule m_aiI1)]) ipv5_ikLU
}
}
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision dt_ijTK
dt1_ijTL ->
case wild_ijId of wild2_ijTN {
__DEFAULT -> fail_ijIe GHC.Prim.void#;
unordered-containers-0.2.5.1:Data.HashMap.Base.Leaf dt2_ijTQ
dt3_ijTR dt4_ijTS ->
case dt3_ijTR
of _ [Occ=Dead]
{ Data.Typeable.Internal.TypeRep ww2_svyW ww3_svyX ww4_svyY
ww5_svyZ ww6_svz0 ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.eqWord# dt_ijTK dt2_ijTQ)
of _ [Occ=Dead] {
False ->
poly_$wgoDifferentHash_rxvQ
@ m_aiI1 ww_strZ dt_ijTK dt2_ijTQ wild1_ijJy wild2_ijTN;
True ->
case Development.Shake.Core.$w$s$wupdateOrSnocWith1
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
(lvl114_rxvO @ m_aiI1)
ww2_svyW
ww3_svyX
ww4_svyY
ww5_svyZ
ww6_svz0
dt4_ijTS
dt1_ijTL
of ww7_ikPl { __DEFAULT ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
dt_ijTK
ww7_ikPl
}
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision dt2_ijU5
dt3_ijU6 ->
case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.eqWord# dt_ijTK dt2_ijU5)
of _ [Occ=Dead] {
False ->
poly_$wgoDifferentHash_rxvQ
@ m_aiI1 ww_strZ dt_ijTK dt2_ijU5 wild1_ijJy wild2_ijTN;
True ->
case Development.Shake.Core.$s$wupdateOrConcatWith
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
(lvl94_rxvi @ m_aiI1)
dt1_ijTL
dt3_ijU6
of ww4_ikQh { __DEFAULT ->
unordered-containers-0.2.5.1:Data.HashMap.Base.Collision
@ TypeRep
@ (TypeRep, TypeRep, [(Double, ARule m_aiI1)])
dt_ijTK
ww4_ikQh
}
}
}
};
unordered-containers-0.2.5.1:Data.HashMap.Base.Empty -> w_strV
}
end Rec }
Development.Shake.Core.$fApplicativeRules_$cmappend [InlPrag=INLINE[0]]
:: forall (m_aiI1 :: * -> *).
SRules m_aiI1 -> SRules m_aiI1 -> SRules m_aiI1
[GblId,
Arity=2,
Str=DmdType <S,1*U(1*U,U)><S,1*U(1*U,1*U)>m,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ (m_aiI1 :: * -> *))
(w_sts2 [Occ=Once!] :: SRules m_aiI1)
(w1_sts3 [Occ=Once!] :: SRules m_aiI1) ->
case w_sts2
of _ [Occ=Dead] { SRules ww1_sts6 [Occ=Once] ww2_sts7 [Occ=Once] ->
case w1_sts3
of _ [Occ=Dead] { SRules ww4_stsb [Occ=Once] ww5_stsc [Occ=Once] ->
Development.Shake.Core.SRules
@ m_aiI1
(++ @ (m_aiI1 ()) ww1_sts6 ww4_stsb)
(Development.Shake.Core.$fApplicativeRules2
@ m_aiI1 0 ww2_sts7 ww5_stsc)
}
}}]
Development.Shake.Core.$fApplicativeRules_$cmappend =
\ (@ (m_aiI1 :: * -> *))
(w_sts2 :: SRules m_aiI1)
(w1_sts3 :: SRules m_aiI1) ->
case w_sts2 of _ [Occ=Dead] { SRules ww1_sts6 ww2_sts7 ->
case w1_sts3 of _ [Occ=Dead] { SRules ww4_stsb ww5_stsc ->
Development.Shake.Core.SRules
@ m_aiI1
(++ @ (m_aiI1 ()) ww1_sts6 ww4_stsb)
(Development.Shake.Core.$fApplicativeRules2
@ m_aiI1 0 ww2_sts7 ww5_stsc)
}
}
a55_rxvR
:: forall a_akeL b_akeM.
WriterT (SRules Action) IO a_akeL
-> WriterT (SRules Action) IO b_akeM
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_akeM, SRules Action) #)
[GblId,
Arity=3,
Str=DmdType <C(S(LS)),1*C1(U(U,1*U(A,1*U(1*U,U))))><L,1*C1(U(U,1*U(U,1*U(1*U,1*U))))><L,U>]
a55_rxvR =
\ (@ a59_akeL)
(@ b_akeM)
(m1_akeN :: WriterT (SRules Action) IO a59_akeL)
(k_akeO :: WriterT (SRules Action) IO b_akeM)
(eta_Xbu [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (m1_akeN
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_akeL>_N
; GHC.Types.NTCo:IO[0] <(a59_akeL, SRules Action)>_R
:: WriterT (SRules Action) IO a59_akeL
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_akeL, SRules Action) #))))
eta_Xbu
of _ [Occ=Dead] { (# ipv_ilkP, ipv1_ilkQ #) ->
case ipv1_ilkQ of _ [Occ=Dead] { (a60_aq06, w5_aq07) ->
case (k_akeO
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <b_akeM>_N
; GHC.Types.NTCo:IO[0] <(b_akeM, SRules Action)>_R
:: WriterT (SRules Action) IO b_akeM
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_akeM, SRules Action) #))))
ipv_ilkP
of _ [Occ=Dead] { (# ipv2_XlxI, ipv3_XlxK #) ->
case ipv3_XlxK of _ [Occ=Dead] { (b1_aq0c, w'_aq0d) ->
(# ipv2_XlxI,
(b1_aq0c,
Development.Shake.Core.$fApplicativeRules_$cmappend
@ Action w5_aq07 w'_aq0d) #)
}
}
}
}
Development.Shake.Core.$fApplicativeRules4
:: forall a_aiFm b_aiFn.
WriterT (SRules Action) IO (a_aiFm -> b_aiFn)
-> WriterT (SRules Action) IO a_aiFm
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_aiFn, SRules Action) #)
[GblId,
Arity=3,
Str=DmdType <C(S),1*C1(U(U,1*U(1*C1(U),1*U(1*U,U))))><L,1*C1(U(U,1*U(U,1*U(1*U,1*U))))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a59_aiFm)
(@ b_aiFn)
(w4_XlYT [Occ=Once]
:: WriterT (SRules Action) IO (a59_aiFm -> b_aiFn))
(w5_XlYV [Occ=Once] :: WriterT (SRules Action) IO a59_aiFm)
(s_ipXV [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (w4_XlYT
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_aiFm -> b_aiFn>_N
; GHC.Types.NTCo:IO[0] <(a59_aiFm -> b_aiFn, SRules Action)>_R
:: WriterT (SRules Action) IO (a59_aiFm -> b_aiFn)
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_aiFm -> b_aiFn, SRules Action) #))))
s_ipXV
of _ [Occ=Dead]
{ (# ipv_ilko [Occ=Once], ipv1_ilkp [Occ=Once!] #) ->
case (w5_XlYV
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_aiFm>_N
; GHC.Types.NTCo:IO[0] <(a59_aiFm, SRules Action)>_R
:: WriterT (SRules Action) IO a59_aiFm
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_aiFm, SRules Action) #))))
ipv_ilko
of _ [Occ=Dead]
{ (# ipv2_ipY3 [Occ=Once], ipv3_ipY4 [Occ=Once!] #) ->
(# ipv2_ipY3,
case ipv1_ilkp
of _ [Occ=Dead] { (a60_apXz [Occ=Once!], w1_apXA [Occ=Once]) ->
case ipv3_ipY4
of _ [Occ=Dead] { (b1_apXE [Occ=Once], w'_apXF [Occ=Once]) ->
(a60_apXz b1_apXE,
Development.Shake.Core.$fApplicativeRules_$cmappend
@ Action w1_apXA w'_apXF)
}
} #)
}
}}]
Development.Shake.Core.$fApplicativeRules4 =
\ (@ a59_aiFm)
(@ b_aiFn)
(w4_XlYT :: WriterT (SRules Action) IO (a59_aiFm -> b_aiFn))
(w5_XlYV :: WriterT (SRules Action) IO a59_aiFm)
(s_ipXV [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (w4_XlYT
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_aiFm -> b_aiFn>_N
; GHC.Types.NTCo:IO[0] <(a59_aiFm -> b_aiFn, SRules Action)>_R
:: WriterT (SRules Action) IO (a59_aiFm -> b_aiFn)
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_aiFm -> b_aiFn, SRules Action) #))))
s_ipXV
of _ [Occ=Dead] { (# ipv_ilko, ipv1_ilkp #) ->
case (w5_XlYV
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_aiFm>_N
; GHC.Types.NTCo:IO[0] <(a59_aiFm, SRules Action)>_R
:: WriterT (SRules Action) IO a59_aiFm
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_aiFm, SRules Action) #))))
ipv_ilko
of _ [Occ=Dead] { (# ipv2_ipY3, ipv3_ipY4 #) ->
(# ipv2_ipY3,
case ipv1_ilkp of _ [Occ=Dead] { (a60_apXz, w1_apXA) ->
case ipv3_ipY4 of _ [Occ=Dead] { (b1_apXE, w'_apXF) ->
(a60_apXz b1_apXE,
Development.Shake.Core.$fApplicativeRules_$cmappend
@ Action w1_apXA w'_apXF)
}
} #)
}
}
Development.Shake.Core.$fApplicativeRules3
:: forall a_aiFZ b_aiG0.
WriterT (SRules Action) IO a_aiFZ
-> WriterT (SRules Action) IO b_aiG0
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_aiG0, SRules Action) #)
[GblId,
Arity=3,
Str=DmdType <C(S),1*C1(U(U,1*U(A,1*U(1*U,U))))><L,1*C1(U(U,1*U(U,1*U(1*U,1*U))))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a59_aiFZ)
(@ b_aiG0)
(eta_Xm5n [Occ=Once] :: WriterT (SRules Action) IO a59_aiFZ)
(eta1_Xm5p [Occ=Once] :: WriterT (SRules Action) IO b_aiG0)
(s_ipXV [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (eta_Xm5n
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_aiFZ>_N
; GHC.Types.NTCo:IO[0] <(a59_aiFZ, SRules Action)>_R
:: WriterT (SRules Action) IO a59_aiFZ
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_aiFZ, SRules Action) #))))
s_ipXV
of _ [Occ=Dead]
{ (# ipv_ilko [Occ=Once], ipv1_ilkp [Occ=Once!] #) ->
case (eta1_Xm5p
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <b_aiG0>_N
; GHC.Types.NTCo:IO[0] <(b_aiG0, SRules Action)>_R
:: WriterT (SRules Action) IO b_aiG0
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_aiG0, SRules Action) #))))
ipv_ilko
of _ [Occ=Dead]
{ (# ipv2_ipY3 [Occ=Once], ipv3_ipY4 [Occ=Once!] #) ->
(# ipv2_ipY3,
case ipv1_ilkp
of _ [Occ=Dead] { (_ [Occ=Dead], w1_akbW [Occ=Once]) ->
case ipv3_ipY4
of _ [Occ=Dead] { (b1_apXE [Occ=Once], w'_apXF [Occ=Once]) ->
(b1_apXE,
Development.Shake.Core.$fApplicativeRules_$cmappend
@ Action w1_akbW w'_apXF)
}
} #)
}
}}]
Development.Shake.Core.$fApplicativeRules3 =
\ (@ a59_aiFZ)
(@ b_aiG0)
(eta_Xm5n :: WriterT (SRules Action) IO a59_aiFZ)
(eta1_Xm5p :: WriterT (SRules Action) IO b_aiG0)
(s_ipXV [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (eta_Xm5n
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_aiFZ>_N
; GHC.Types.NTCo:IO[0] <(a59_aiFZ, SRules Action)>_R
:: WriterT (SRules Action) IO a59_aiFZ
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_aiFZ, SRules Action) #))))
s_ipXV
of _ [Occ=Dead] { (# ipv_ilko, ipv1_ilkp #) ->
case (eta1_Xm5p
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <b_aiG0>_N
; GHC.Types.NTCo:IO[0] <(b_aiG0, SRules Action)>_R
:: WriterT (SRules Action) IO b_aiG0
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_aiG0, SRules Action) #))))
ipv_ilko
of _ [Occ=Dead] { (# ipv2_ipY3, ipv3_ipY4 #) ->
(# ipv2_ipY3,
case ipv1_ilkp of _ [Occ=Dead] { (a60_akbV, w1_akbW) ->
case ipv3_ipY4 of _ [Occ=Dead] { (b1_apXE, w'_apXF) ->
(b1_apXE,
Development.Shake.Core.$fApplicativeRules_$cmappend
@ Action w1_akbW w'_apXF)
}
} #)
}
}
Development.Shake.Core.$fApplicativeRules1
:: forall a_aiGC b_aiGD.
WriterT (SRules Action) IO a_aiGC
-> WriterT (SRules Action) IO b_aiGD
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a_aiGC, SRules Action) #)
[GblId,
Arity=3,
Str=DmdType <C(S),1*C1(U(U,1*U(U,1*U(1*U,U))))><L,1*C1(U(U,1*U(A,1*U(1*U,1*U))))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a59_aiGC)
(@ b_aiGD)
(eta_Xm5H [Occ=Once] :: WriterT (SRules Action) IO a59_aiGC)
(eta1_Xm5J [Occ=Once] :: WriterT (SRules Action) IO b_aiGD)
(s_ipXV [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (eta_Xm5H
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_aiGC>_N
; GHC.Types.NTCo:IO[0] <(a59_aiGC, SRules Action)>_R
:: WriterT (SRules Action) IO a59_aiGC
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_aiGC, SRules Action) #))))
s_ipXV
of _ [Occ=Dead]
{ (# ipv_ilko [Occ=Once], ipv1_ilkp [Occ=Once!] #) ->
case (eta1_Xm5J
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <b_aiGD>_N
; GHC.Types.NTCo:IO[0] <(b_aiGD, SRules Action)>_R
:: WriterT (SRules Action) IO b_aiGD
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_aiGD, SRules Action) #))))
ipv_ilko
of _ [Occ=Dead]
{ (# ipv2_ipY3 [Occ=Once], ipv3_ipY4 [Occ=Once!] #) ->
(# ipv2_ipY3,
case ipv1_ilkp
of _ [Occ=Dead] { (a60_akbF [Occ=Once], w1_akbG [Occ=Once]) ->
case ipv3_ipY4
of _ [Occ=Dead] { (_ [Occ=Dead], w'_apXF [Occ=Once]) ->
(a60_akbF,
Development.Shake.Core.$fApplicativeRules_$cmappend
@ Action w1_akbG w'_apXF)
}
} #)
}
}}]
Development.Shake.Core.$fApplicativeRules1 =
\ (@ a59_aiGC)
(@ b_aiGD)
(eta_Xm5H :: WriterT (SRules Action) IO a59_aiGC)
(eta1_Xm5J :: WriterT (SRules Action) IO b_aiGD)
(s_ipXV [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (eta_Xm5H
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_aiGC>_N
; GHC.Types.NTCo:IO[0] <(a59_aiGC, SRules Action)>_R
:: WriterT (SRules Action) IO a59_aiGC
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_aiGC, SRules Action) #))))
s_ipXV
of _ [Occ=Dead] { (# ipv_ilko, ipv1_ilkp #) ->
case (eta1_Xm5J
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <b_aiGD>_N
; GHC.Types.NTCo:IO[0] <(b_aiGD, SRules Action)>_R
:: WriterT (SRules Action) IO b_aiGD
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_aiGD, SRules Action) #))))
ipv_ilko
of _ [Occ=Dead] { (# ipv2_ipY3, ipv3_ipY4 #) ->
(# ipv2_ipY3,
case ipv1_ilkp of _ [Occ=Dead] { (a60_akbF, w1_akbG) ->
case ipv3_ipY4 of _ [Occ=Dead] { (b1_apXE, w'_apXF) ->
(a60_akbF,
Development.Shake.Core.$fApplicativeRules_$cmappend
@ Action w1_akbG w'_apXF)
}
} #)
}
}
Development.Shake.Core.$fMonoidRules2
:: forall a_aiHo.
Monoid a_aiHo =>
Rules a_aiHo
-> Rules a_aiHo
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a_aiHo, SRules Action) #)
[GblId,
Arity=4,
Str=DmdType <L,1*U(A,1*C1(C1(U)),A)><C(S),1*C1(U(U,1*U(U,1*U(1*U,U))))><L,1*C1(U(U,1*U(U,1*U(1*U,1*U))))><L,U>,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=IF_ARGS [30 0 0 0] 120 30}]
Development.Shake.Core.$fMonoidRules2 =
\ (@ a59_aiHo)
($dMonoid_aiHp :: Monoid a59_aiHo)
(eta_XcJ :: Rules a59_aiHo)
(eta1_XlF :: Rules a59_aiHo)
(s_ipXV [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (eta_XcJ
`cast` (Development.Shake.Core.NTCo:Rules[0] <a59_aiHo>_N
; Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_aiHo>_N
; GHC.Types.NTCo:IO[0] <(a59_aiHo, SRules Action)>_R
:: Rules a59_aiHo
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_aiHo, SRules Action) #))))
s_ipXV
of _ [Occ=Dead] { (# ipv_ilko, ipv1_ilkp #) ->
case (eta1_XlF
`cast` (Development.Shake.Core.NTCo:Rules[0] <a59_aiHo>_N
; Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_aiHo>_N
; GHC.Types.NTCo:IO[0] <(a59_aiHo, SRules Action)>_R
:: Rules a59_aiHo
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_aiHo, SRules Action) #))))
ipv_ilko
of _ [Occ=Dead] { (# ipv2_ipY3, ipv3_ipY4 #) ->
(# ipv2_ipY3,
case ipv1_ilkp of _ [Occ=Dead] { (a60_akbF, w1_akbG) ->
case ipv3_ipY4 of _ [Occ=Dead] { (b1_apXE, w'_apXF) ->
(mappend @ a59_aiHo $dMonoid_aiHp a60_akbF b1_apXE,
Development.Shake.Core.$fApplicativeRules_$cmappend
@ Action w1_akbG w'_apXF)
}
} #)
}
}
Development.Shake.Core.$fMonadRules3
:: forall a_alNY b_alNZ.
WriterT (SRules Action) IO a_alNY
-> (a_alNY -> WriterT (SRules Action) IO b_alNZ)
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_alNZ, SRules Action) #)
[GblId,
Arity=3,
Str=DmdType <C(S(LS)),1*C1(U(U,1*U(U,1*U(1*U,U))))><L,1*C1(C1(U(U,1*U(U,1*U(1*U,1*U)))))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a59_alNY)
(@ b_alNZ)
(w4_alO0 [Occ=Once] :: WriterT (SRules Action) IO a59_alNY)
(w5_alO1 [Occ=Once!]
:: a59_alNY -> WriterT (SRules Action) IO b_alNZ)
(s_ilkM [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (w4_alO0
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_alNY>_N
; GHC.Types.NTCo:IO[0] <(a59_alNY, SRules Action)>_R
:: WriterT (SRules Action) IO a59_alNY
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_alNY, SRules Action) #))))
s_ilkM
of _ [Occ=Dead]
{ (# ipv_ilkP [Occ=Once], ipv1_ilkQ [Occ=Once!] #) ->
case ipv1_ilkQ
of _ [Occ=Dead] { (a60_aq06 [Occ=Once], w1_aq07 [Occ=Once]) ->
case ((w5_alO1 a60_aq06)
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <b_alNZ>_N
; GHC.Types.NTCo:IO[0] <(b_alNZ, SRules Action)>_R
:: WriterT (SRules Action) IO b_alNZ
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_alNZ, SRules Action) #))))
ipv_ilkP
of _ [Occ=Dead]
{ (# ipv2_XlxL [Occ=Once], ipv3_XlxN [Occ=Once!] #) ->
case ipv3_XlxN
of _ [Occ=Dead] { (b1_aq0c [Occ=Once], w'_aq0d [Occ=Once]) ->
(# ipv2_XlxL,
(b1_aq0c,
Development.Shake.Core.$fApplicativeRules_$cmappend
@ Action w1_aq07 w'_aq0d) #)
}
}
}
}}]
Development.Shake.Core.$fMonadRules3 =
\ (@ a59_alNY)
(@ b_alNZ)
(w4_alO0 :: WriterT (SRules Action) IO a59_alNY)
(w5_alO1 :: a59_alNY -> WriterT (SRules Action) IO b_alNZ)
(s_ilkM [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (w4_alO0
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_alNY>_N
; GHC.Types.NTCo:IO[0] <(a59_alNY, SRules Action)>_R
:: WriterT (SRules Action) IO a59_alNY
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_alNY, SRules Action) #))))
s_ilkM
of _ [Occ=Dead] { (# ipv_ilkP, ipv1_ilkQ #) ->
case ipv1_ilkQ of _ [Occ=Dead] { (a60_aq06, w1_aq07) ->
case ((w5_alO1 a60_aq06)
`cast` (Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <b_alNZ>_N
; GHC.Types.NTCo:IO[0] <(b_alNZ, SRules Action)>_R
:: WriterT (SRules Action) IO b_alNZ
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_alNZ, SRules Action) #))))
ipv_ilkP
of _ [Occ=Dead] { (# ipv2_XlxL, ipv3_XlxN #) ->
case ipv3_XlxN of _ [Occ=Dead] { (b1_aq0c, w'_aq0d) ->
(# ipv2_XlxL,
(b1_aq0c,
Development.Shake.Core.$fApplicativeRules_$cmappend
@ Action w1_aq07 w'_aq0d) #)
}
}
}
}
Development.Shake.Core.$fApplicativeRules_$cmempty
:: forall (m_aiI1 :: * -> *). SRules m_aiI1
[GblId,
Caf=NoCafRefs,
Str=DmdType m,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 30}]
Development.Shake.Core.$fApplicativeRules_$cmempty =
\ (@ (m_aiI1 :: * -> *)) ->
Development.Shake.Core.SRules
@ m_aiI1
(GHC.Types.[] @ (m_aiI1 ()))
(unordered-containers-0.2.5.1:Data.HashMap.Base.Empty
@ TypeRep @ (TypeRep, TypeRep, [(Double, ARule m_aiI1)]))
Rec {
Development.Shake.Core.$fMonoidSRules1 [InlPrag=[0],
Occ=LoopBreaker]
:: forall (m_aiI1 :: * -> *).
[SRules m_aiI1]
-> (# [m_aiI1 ()],
Map.HashMap TypeRep (TypeRep, TypeRep, [(Double, ARule m_aiI1)]) #)
[GblId, Arity=1, Str=DmdType <S,1*U>]
Development.Shake.Core.$fMonoidSRules1 =
\ (@ (m_aiI1 :: * -> *)) (w_stsl :: [SRules m_aiI1]) ->
case w_stsl of _ [Occ=Dead] {
[] ->
(# GHC.Types.[] @ (m_aiI1 ()),
unordered-containers-0.2.5.1:Data.HashMap.Base.Empty
@ TypeRep @ (TypeRep, TypeRep, [(Double, ARule m_aiI1)]) #);
: y_iaB1 ys_iaB2 ->
case y_iaB1 of _ [Occ=Dead] { SRules ww1_sts6 ww2_sts7 ->
case Development.Shake.Core.$fMonoidSRules1 @ m_aiI1 ys_iaB2
of _ [Occ=Dead] { (# ww4_stuk, ww5_stul #) ->
(# ++ @ (m_aiI1 ()) ww1_sts6 ww4_stuk,
Development.Shake.Core.$fApplicativeRules2
@ m_aiI1 0 ww2_sts7 ww5_stul #)
}
}
}
end Rec }
Development.Shake.Core.$fMonoidSRules_$cmconcat [InlPrag=INLINE[0]]
:: forall (m_aiI1 :: * -> *). [SRules m_aiI1] -> SRules m_aiI1
[GblId,
Arity=1,
Str=DmdType <S,1*U>m,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ (m_aiI1 :: * -> *))
(w_stsp [Occ=Once] :: [SRules m_aiI1]) ->
case Development.Shake.Core.$fMonoidSRules1 @ m_aiI1 w_stsp
of _ [Occ=Dead] { (# ww1_stug [Occ=Once], ww2_stuh [Occ=Once] #) ->
Development.Shake.Core.SRules @ m_aiI1 ww1_stug ww2_stuh
}}]
Development.Shake.Core.$fMonoidSRules_$cmconcat =
\ (@ (m_aiI1 :: * -> *)) (w_stsp :: [SRules m_aiI1]) ->
case Development.Shake.Core.$fMonoidSRules1 @ m_aiI1 w_stsp
of _ [Occ=Dead] { (# ww1_stug, ww2_stuh #) ->
Development.Shake.Core.SRules @ m_aiI1 ww1_stug ww2_stuh
}
Development.Shake.Core.$fMonoidSRules [InlPrag=[ALWAYS] CONLIKE]
:: forall (m_aeI4 :: * -> *). Monoid (SRules m_aeI4)
[GblId[DFunId],
Str=DmdType m,
Unf=DFun: \ (@ (m_aiI1 :: * -> *)) ->
GHC.Base.D:Monoid TYPE SRules m_aiI1
Development.Shake.Core.$fApplicativeRules_$cmempty @ m_aiI1
Development.Shake.Core.$fApplicativeRules_$cmappend @ m_aiI1
Development.Shake.Core.$fMonoidSRules_$cmconcat @ m_aiI1]
Development.Shake.Core.$fMonoidSRules =
\ (@ (m_aiI1 :: * -> *)) ->
GHC.Base.D:Monoid
@ (SRules m_aiI1)
(Development.Shake.Core.$fApplicativeRules_$cmempty @ m_aiI1)
(Development.Shake.Core.$fApplicativeRules_$cmappend @ m_aiI1)
(Development.Shake.Core.$fMonoidSRules_$cmconcat @ m_aiI1)
Development.Shake.Core.$fApplicativeRules5
:: forall a_aiEV.
a_aiEV
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a_aiEV, SRules Action) #)
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <L,U><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a59_aiEV)
(a60_Xm4Q [Occ=Once] :: a59_aiEV)
(s_ilkf [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
(# s_ilkf,
(a60_Xm4Q,
Development.Shake.Core.$fApplicativeRules_$cmempty @ Action) #)}]
Development.Shake.Core.$fApplicativeRules5 =
\ (@ a59_aiEV)
(a60_Xm4Q :: a59_aiEV)
(s_ilkf [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
(# s_ilkf,
(a60_Xm4Q,
Development.Shake.Core.$fApplicativeRules_$cmempty @ Action) #)
Development.Shake.Core.$fMonadRules_$s$fApplicativeWriterT [InlPrag=[ALWAYS] CONLIKE]
:: Applicative (WriterT (SRules Action) IO)
[GblId,
Str=DmdType m,
Unf=DFun: \ ->
GHC.Base.D:Applicative TYPE WriterT (SRules Action) IO
Development.Shake.Core.$fMonadRules2
Control.Monad.Trans.Writer.Strict.$fApplicativeWriterT_$cpure
@ (SRules Action)
@ IO
Development.Shake.Core.$fMonadRules2
(Development.Shake.Core.$fMonoidSRules @ Action)
GHC.Base.$fApplicativeIO
Control.Monad.Trans.Writer.Strict.$fApplicativeWriterT_$c<*>
@ (SRules Action)
@ IO
Development.Shake.Core.$fMonadRules2
(Development.Shake.Core.$fMonoidSRules @ Action)
GHC.Base.$fApplicativeIO
Control.Monad.Trans.Writer.Strict.$fApplicativeWriterT_$c*>
@ (SRules Action)
@ IO
Development.Shake.Core.$fMonadRules2
(Development.Shake.Core.$fMonoidSRules @ Action)
GHC.Base.$fApplicativeIO
Control.Monad.Trans.Writer.Strict.$fApplicativeWriterT_$c<*
@ (SRules Action)
@ IO
Development.Shake.Core.$fMonadRules2
(Development.Shake.Core.$fMonoidSRules @ Action)
GHC.Base.$fApplicativeIO]
Development.Shake.Core.$fMonadRules_$s$fApplicativeWriterT =
GHC.Base.D:Applicative
@ (WriterT (SRules Action) IO)
(Development.Shake.Core.$fMonadRules_$s$fFunctorWriterT
@ (SRules Action))
(Development.Shake.Core.$fApplicativeRules5
`cast` (forall a59_Xm5v.
<a59_Xm5v>_R
-> Sym (GHC.Types.NTCo:IO[0] <(a59_Xm5v, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_Xm5v>_N)
:: (forall a59_Xm5v.
a59_Xm5v
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_Xm5v, SRules Action) #))
~R# (forall a59_Xm5v.
a59_Xm5v -> WriterT (SRules Action) IO a59_Xm5v)))
(Development.Shake.Core.$fApplicativeRules4
`cast` (forall a59_XlZD b_XlZF.
<WriterT (SRules Action) IO (a59_XlZD -> b_XlZF)>_R
-> <WriterT (SRules Action) IO a59_XlZD>_R
-> Sym (GHC.Types.NTCo:IO[0] <(b_XlZF, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <b_XlZF>_N)
:: (forall a59_XlZD b_XlZF.
WriterT (SRules Action) IO (a59_XlZD -> b_XlZF)
-> WriterT (SRules Action) IO a59_XlZD
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_XlZF, SRules Action) #))
~R# (forall a59_XlZD b_XlZF.
WriterT (SRules Action) IO (a59_XlZD -> b_XlZF)
-> WriterT (SRules Action) IO a59_XlZD
-> WriterT (SRules Action) IO b_XlZF)))
(Development.Shake.Core.$fApplicativeRules3
`cast` (forall a59_XlZT b_XlZV.
<WriterT (SRules Action) IO a59_XlZT>_R
-> <WriterT (SRules Action) IO b_XlZV>_R
-> Sym (GHC.Types.NTCo:IO[0] <(b_XlZV, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <b_XlZV>_N)
:: (forall a59_XlZT b_XlZV.
WriterT (SRules Action) IO a59_XlZT
-> WriterT (SRules Action) IO b_XlZV
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_XlZV, SRules Action) #))
~R# (forall a59_XlZT b_XlZV.
WriterT (SRules Action) IO a59_XlZT
-> WriterT (SRules Action) IO b_XlZV
-> WriterT (SRules Action) IO b_XlZV)))
(Development.Shake.Core.$fApplicativeRules1
`cast` (forall a59_Xm0b b_Xm0d.
<WriterT (SRules Action) IO a59_Xm0b>_R
-> <WriterT (SRules Action) IO b_Xm0d>_R
-> Sym (GHC.Types.NTCo:IO[0] <(a59_Xm0b, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_Xm0b>_N)
:: (forall a59_Xm0b b_Xm0d.
WriterT (SRules Action) IO a59_Xm0b
-> WriterT (SRules Action) IO b_Xm0d
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_Xm0b, SRules Action) #))
~R# (forall a59_Xm0b b_Xm0d.
WriterT (SRules Action) IO a59_Xm0b
-> WriterT (SRules Action) IO b_Xm0d
-> WriterT (SRules Action) IO a59_Xm0b)))
Development.Shake.Core.$fMonadRules1
:: Applicative (WriterT (SRules Action) IO)
[GblId,
Str=DmdType m,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=False, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.$fMonadRules_$s$fApplicativeWriterT}]
Development.Shake.Core.$fMonadRules1 =
Development.Shake.Core.$fMonadRules_$s$fApplicativeWriterT
Development.Shake.Core.$fMonadRules_$s$fMonadWriterT_$c>> [InlPrag=INLINE (sat-args=2)]
:: forall a_ajZb b_ajZc.
WriterT (SRules Action) IO a_ajZb
-> WriterT (SRules Action) IO b_ajZc
-> WriterT (SRules Action) IO b_ajZc
[GblId,
Arity=3,
Str=DmdType <C(S(LS)),1*C1(U(U,1*U(A,1*U(1*U,U))))><L,1*C1(U(U,1*U(U,1*U(1*U,1*U))))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=False,boring_ok=False)
Tmpl= \ (@ a59_XkwP)
(@ b_XkwR)
(m1_XkwT [Occ=Once] :: WriterT (SRules Action) IO a59_XkwP)
(k_XkwV [Occ=OnceL] :: WriterT (SRules Action) IO b_XkwR) ->
Control.Monad.Trans.Writer.Strict.$fMonadWriterT_$c>>=
@ (SRules Action)
@ IO
Development.Shake.Core.$fMonadRules1
(Development.Shake.Core.$fMonoidSRules @ Action)
GHC.Base.$fMonadIO
@ a59_XkwP
@ b_XkwR
m1_XkwT
(\ _ [Occ=Dead] -> k_XkwV)}]
Development.Shake.Core.$fMonadRules_$s$fMonadWriterT_$c>> =
a55_rxvR
`cast` (forall a59_Xkqy b_XkqA.
<WriterT (SRules Action) IO a59_Xkqy>_R
-> <WriterT (SRules Action) IO b_XkqA>_R
-> Sym (GHC.Types.NTCo:IO[0] <(b_XkqA, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <b_XkqA>_N)
:: (forall a59_Xkqy b_XkqA.
WriterT (SRules Action) IO a59_Xkqy
-> WriterT (SRules Action) IO b_XkqA
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_XkqA, SRules Action) #))
~R# (forall a59_Xkqy b_XkqA.
WriterT (SRules Action) IO a59_Xkqy
-> WriterT (SRules Action) IO b_XkqA
-> WriterT (SRules Action) IO b_XkqA))
Development.Shake.Core.$fMonoidRules3
:: forall a_Xj3P.
Monoid a_Xj3P =>
GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a_Xj3P, SRules Action) #)
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <L,1*U(1*U,A,A)><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a59_Xj3P)
($dMonoid_Xj3R [Occ=Once] :: Monoid a59_Xj3P)
(s_ilkf [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
(# s_ilkf,
(mempty @ a59_Xj3P $dMonoid_Xj3R,
Development.Shake.Core.$fApplicativeRules_$cmempty @ Action) #)}]
Development.Shake.Core.$fMonoidRules3 =
\ (@ a59_Xj3P)
($dMonoid_Xj3R :: Monoid a59_Xj3P)
(s_ilkf [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
(# s_ilkf,
(mempty @ a59_Xj3P $dMonoid_Xj3R,
Development.Shake.Core.$fApplicativeRules_$cmempty @ Action) #)
Development.Shake.Core.rulesIO1
:: forall a_akfl.
IO a_akfl
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a_akfl, SRules Action) #)
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <C(S),1*C1(U(U,U))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ a59_akfl)
(w4_akfm [Occ=Once] :: IO a59_akfl)
(s_ilkM [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (w4_akfm
`cast` (GHC.Types.NTCo:IO[0] <a59_akfl>_R
:: IO a59_akfl
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, a59_akfl #))))
s_ilkM
of _ [Occ=Dead]
{ (# ipv_ilkP [Occ=Once], ipv1_ilkQ [Occ=Once] #) ->
(# ipv_ilkP,
(ipv1_ilkQ,
Development.Shake.Core.$fApplicativeRules_$cmempty @ Action) #)
}}]
Development.Shake.Core.rulesIO1 =
\ (@ a59_akfl)
(w4_akfm :: IO a59_akfl)
(s_ilkM [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (w4_akfm
`cast` (GHC.Types.NTCo:IO[0] <a59_akfl>_R
:: IO a59_akfl
~R# (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld, a59_akfl #))))
s_ilkM
of _ [Occ=Dead] { (# ipv_ilkP, ipv1_ilkQ #) ->
(# ipv_ilkP,
(ipv1_ilkQ,
Development.Shake.Core.$fApplicativeRules_$cmempty @ Action) #)
}
rulesIO :: forall a_aeu0. IO a_aeu0 -> Rules a_aeu0
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <C(S),1*C1(U(U,U))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.rulesIO1
`cast` (forall a59_Xflp.
<IO a59_Xflp>_R
-> Sym (GHC.Types.NTCo:IO[0] <(a59_Xflp, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_Xflp>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <a59_Xflp>_N
:: (forall a59_Xflp.
IO a59_Xflp
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_Xflp, SRules Action) #))
~R# (forall a59_Xflp. IO a59_Xflp -> Rules a59_Xflp))}]
rulesIO =
Development.Shake.Core.rulesIO1
`cast` (forall a59_Xflp.
<IO a59_Xflp>_R
-> Sym (GHC.Types.NTCo:IO[0] <(a59_Xflp, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_Xflp>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <a59_Xflp>_N
:: (forall a59_Xflp.
IO a59_Xflp
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_Xflp, SRules Action) #))
~R# (forall a59_Xflp. IO a59_Xflp -> Rules a59_Xflp))
Development.Shake.Core.newThrottle1
:: String
-> Int
-> Double
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(Resource, SRules Action) #)
[GblId,
Arity=4,
Str=DmdType <L,U><S,1*U(U)><L,U><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=4,unsat_ok=True,boring_ok=False)
Tmpl= \ (name_aeBq [Occ=Once] :: String)
(count_aeBr [Occ=Once!] :: Int)
(period_aeBs [Occ=Once] :: Double)
(s_ilkM [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case count_aeBr
of _ [Occ=Dead] { GHC.Types.I# ww1_im0S [Occ=Once] ->
case Development.Shake.Resource.$wa1
name_aeBq ww1_im0S period_aeBs s_ilkM
of _ [Occ=Dead]
{ (# ipv_ilkP [Occ=Once], ipv1_ilkQ [Occ=Once] #) ->
(# ipv_ilkP,
(ipv1_ilkQ,
Development.Shake.Core.$fApplicativeRules_$cmempty @ Action) #)
}
}}]
Development.Shake.Core.newThrottle1 =
\ (name_aeBq :: String)
(count_aeBr :: Int)
(period_aeBs :: Double)
(s_ilkM [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case count_aeBr of _ [Occ=Dead] { GHC.Types.I# ww1_im0S ->
case Development.Shake.Resource.$wa1
name_aeBq ww1_im0S period_aeBs s_ilkM
of _ [Occ=Dead] { (# ipv_ilkP, ipv1_ilkQ #) ->
(# ipv_ilkP,
(ipv1_ilkQ,
Development.Shake.Core.$fApplicativeRules_$cmempty @ Action) #)
}
}
newThrottle :: String -> Int -> Double -> Rules Resource
[GblId,
Arity=4,
Str=DmdType <L,U><S,1*U(U)><L,U><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.newThrottle1
`cast` (<String>_R
-> <Int>_R
-> <Double>_R
-> Sym (GHC.Types.NTCo:IO[0] <(Resource, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <Resource>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <Resource>_N
:: (String
-> Int
-> Double
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(Resource, SRules Action) #))
~R# (String -> Int -> Double -> Rules Resource))}]
newThrottle =
Development.Shake.Core.newThrottle1
`cast` (<String>_R
-> <Int>_R
-> <Double>_R
-> Sym (GHC.Types.NTCo:IO[0] <(Resource, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <Resource>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <Resource>_N
:: (String
-> Int
-> Double
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(Resource, SRules Action) #))
~R# (String -> Int -> Double -> Rules Resource))
Development.Shake.Core.newResource1
:: String
-> Int
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(Resource, SRules Action) #)
[GblId,
Arity=3,
Str=DmdType <L,U><S,1*U(U)><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=False)
Tmpl= \ (name_aeBo [Occ=Once] :: String)
(mx_aeBp [Occ=Once!] :: Int)
(s_ilkM [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case mx_aeBp of _ [Occ=Dead] { GHC.Types.I# ww1_im10 [Occ=Once] ->
case Development.Shake.Resource.$wa name_aeBo ww1_im10 s_ilkM
of _ [Occ=Dead]
{ (# ipv_ilkP [Occ=Once], ipv1_ilkQ [Occ=Once] #) ->
(# ipv_ilkP,
(ipv1_ilkQ,
Development.Shake.Core.$fApplicativeRules_$cmempty @ Action) #)
}
}}]
Development.Shake.Core.newResource1 =
\ (name_aeBo :: String)
(mx_aeBp :: Int)
(s_ilkM [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case mx_aeBp of _ [Occ=Dead] { GHC.Types.I# ww1_im10 ->
case Development.Shake.Resource.$wa name_aeBo ww1_im10 s_ilkM
of _ [Occ=Dead] { (# ipv_ilkP, ipv1_ilkQ #) ->
(# ipv_ilkP,
(ipv1_ilkQ,
Development.Shake.Core.$fApplicativeRules_$cmempty @ Action) #)
}
}
newResource :: String -> Int -> Rules Resource
[GblId,
Arity=3,
Str=DmdType <L,U><S,1*U(U)><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.newResource1
`cast` (<String>_R
-> <Int>_R
-> Sym (GHC.Types.NTCo:IO[0] <(Resource, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <Resource>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <Resource>_N
:: (String
-> Int
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(Resource, SRules Action) #))
~R# (String -> Int -> Rules Resource))}]
newResource =
Development.Shake.Core.newResource1
`cast` (<String>_R
-> <Int>_R
-> Sym (GHC.Types.NTCo:IO[0] <(Resource, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <Resource>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <Resource>_N
:: (String
-> Int
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(Resource, SRules Action) #))
~R# (String -> Int -> Rules Resource))
Development.Shake.Core.newCache1
:: forall k_af0T v_af0U.
(Eq k_af0T, Hashable k_af0T) =>
(k_af0T -> Action v_af0U)
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(k_af0T -> Action v_af0U, SRules Action) #)
[GblId,
Arity=4,
Str=DmdType <L,U(C(C1(U)),A)><L,U(A,C(U(U)))><L,C(U)><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=4,unsat_ok=True,boring_ok=False)
Tmpl= \ (@ k_af0T)
(@ v_af0U)
($dEq_ahSn [Occ=Once] :: Eq k_af0T)
($dHashable_ahSo [Occ=Once] :: Hashable k_af0T)
(eta_X65 [Occ=Once] :: k_af0T -> Action v_af0U)
(s_ilkM [Occ=Once, OS=OneShot]
:: GHC.Prim.State# GHC.Prim.RealWorld) ->
case Development.Shake.Core.newCache2
@ k_af0T @ v_af0U $dEq_ahSn $dHashable_ahSo eta_X65 s_ilkM
of _ [Occ=Dead]
{ (# ipv_ilkP [Occ=Once], ipv1_ilkQ [Occ=Once] #) ->
(# ipv_ilkP,
(ipv1_ilkQ,
Development.Shake.Core.$fApplicativeRules_$cmempty @ Action) #)
}}]
Development.Shake.Core.newCache1 =
\ (@ k_af0T)
(@ v_af0U)
($dEq_ahSn :: Eq k_af0T)
($dHashable_ahSo :: Hashable k_af0T)
(eta_X65 :: k_af0T -> Action v_af0U)
(s_ilkM [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case Development.Shake.Core.newCache2
@ k_af0T @ v_af0U $dEq_ahSn $dHashable_ahSo eta_X65 s_ilkM
of _ [Occ=Dead] { (# ipv_ilkP, ipv1_ilkQ #) ->
(# ipv_ilkP,
(ipv1_ilkQ,
Development.Shake.Core.$fApplicativeRules_$cmempty @ Action) #)
}
newCache
:: forall k_aeth v_aeti.
(Eq k_aeth, Hashable k_aeth) =>
(k_aeth -> Action v_aeti) -> Rules (k_aeth -> Action v_aeti)
[GblId,
Arity=4,
Str=DmdType <L,U(C(C1(U)),A)><L,U(A,C(U(U)))><L,C(U)><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.newCache1
`cast` (forall k_Xfe1 v_Xfe3.
<Eq k_Xfe1>_R
-> <Hashable k_Xfe1>_R
-> <k_Xfe1 -> Action v_Xfe3>_R
-> Sym
(GHC.Types.NTCo:IO[0] <(k_Xfe1 -> Action v_Xfe3, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <k_Xfe1 -> Action v_Xfe3>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <k_Xfe1
-> Action v_Xfe3>_N
:: (forall k_Xfe1 v_Xfe3.
(Eq k_Xfe1, Hashable k_Xfe1) =>
(k_Xfe1 -> Action v_Xfe3)
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(k_Xfe1 -> Action v_Xfe3, SRules Action) #))
~R# (forall k_Xfe1 v_Xfe3.
(Eq k_Xfe1, Hashable k_Xfe1) =>
(k_Xfe1 -> Action v_Xfe3) -> Rules (k_Xfe1 -> Action v_Xfe3)))}]
newCache =
Development.Shake.Core.newCache1
`cast` (forall k_Xfe1 v_Xfe3.
<Eq k_Xfe1>_R
-> <Hashable k_Xfe1>_R
-> <k_Xfe1 -> Action v_Xfe3>_R
-> Sym
(GHC.Types.NTCo:IO[0] <(k_Xfe1 -> Action v_Xfe3, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <k_Xfe1 -> Action v_Xfe3>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <k_Xfe1
-> Action v_Xfe3>_N
:: (forall k_Xfe1 v_Xfe3.
(Eq k_Xfe1, Hashable k_Xfe1) =>
(k_Xfe1 -> Action v_Xfe3)
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(k_Xfe1 -> Action v_Xfe3, SRules Action) #))
~R# (forall k_Xfe1 v_Xfe3.
(Eq k_Xfe1, Hashable k_Xfe1) =>
(k_Xfe1 -> Action v_Xfe3) -> Rules (k_Xfe1 -> Action v_Xfe3)))
Development.Shake.Core.$fMonoidRules1
:: forall a_Xj3U.
Monoid a_Xj3U =>
[Rules a_Xj3U]
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a_Xj3U, SRules Action) #)
[GblId,
Arity=3,
Str=DmdType <L,U(U,C(C1(U)),A)><S,1*U><L,U>,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [30 0 0] 170 0}]
Development.Shake.Core.$fMonoidRules1 =
\ (@ a59_Xj3U)
($dMonoid_Xj3W :: Monoid a59_Xj3U)
(eta_ijAj :: [Rules a59_Xj3U])
(eta1_Xc7 [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
let {
a60_sw1J :: a59_Xj3U
[LclId, Str=DmdType]
a60_sw1J = mempty @ a59_Xj3U $dMonoid_Xj3W } in
let {
lvl116_svz4 :: (a59_Xj3U, SRules Action)
[LclId, Str=DmdType]
lvl116_svz4 =
(a60_sw1J,
Development.Shake.Core.$fApplicativeRules_$cmempty @ Action) } in
letrec {
a61_sqsF [Occ=LoopBreaker]
:: [Rules a59_Xj3U]
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_Xj3U, SRules Action) #)
[LclId, Arity=2, Str=DmdType <S,1*U><L,U>]
a61_sqsF =
\ (ds_iaAW :: [Rules a59_Xj3U])
(eta2_Xcc [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case ds_iaAW of _ [Occ=Dead] {
[] -> (# eta2_Xcc, lvl116_svz4 #);
: y_iaB1 ys_iaB2 ->
Development.Shake.Core.$fMonoidRules2
@ a59_Xj3U
$dMonoid_Xj3W
y_iaB1
((a61_sqsF ys_iaB2)
`cast` (Sym (GHC.Types.NTCo:IO[0] <(a59_Xj3U, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_Xj3U>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <a59_Xj3U>_N
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_Xj3U, SRules Action) #))
~R# Rules a59_Xj3U))
eta2_Xcc
}; } in
a61_sqsF eta_ijAj eta1_Xc7
Development.Shake.Core.$fMonoidRules_$cmconcat
:: forall a_aiHo. Monoid a_aiHo => [Rules a_aiHo] -> Rules a_aiHo
[GblId,
Arity=3,
Str=DmdType <L,U(U,C(C1(U)),A)><S,1*U><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.$fMonoidRules1
`cast` (forall a59_Xj3U.
<Monoid a59_Xj3U>_R
-> <[Rules a59_Xj3U]>_R
-> Sym (GHC.Types.NTCo:IO[0] <(a59_Xj3U, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_Xj3U>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <a59_Xj3U>_N
:: (forall a59_Xj3U.
Monoid a59_Xj3U =>
[Rules a59_Xj3U]
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_Xj3U, SRules Action) #))
~R# (forall a59_Xj3U.
Monoid a59_Xj3U =>
[Rules a59_Xj3U] -> Rules a59_Xj3U))}]
Development.Shake.Core.$fMonoidRules_$cmconcat =
Development.Shake.Core.$fMonoidRules1
`cast` (forall a59_Xj3U.
<Monoid a59_Xj3U>_R
-> <[Rules a59_Xj3U]>_R
-> Sym (GHC.Types.NTCo:IO[0] <(a59_Xj3U, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_Xj3U>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <a59_Xj3U>_N
:: (forall a59_Xj3U.
Monoid a59_Xj3U =>
[Rules a59_Xj3U]
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_Xj3U, SRules Action) #))
~R# (forall a59_Xj3U.
Monoid a59_Xj3U =>
[Rules a59_Xj3U] -> Rules a59_Xj3U))
Development.Shake.Core.$fMonoidRules_$cmappend
:: forall a_aiHo.
Monoid a_aiHo =>
Rules a_aiHo -> Rules a_aiHo -> Rules a_aiHo
[GblId,
Arity=4,
Str=DmdType <L,1*U(A,1*C1(C1(U)),A)><C(S),1*C1(U(U,1*U(U,1*U(1*U,U))))><L,1*C1(U(U,1*U(U,1*U(1*U,1*U))))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.$fMonoidRules2
`cast` (forall a59_XiUA.
<Monoid a59_XiUA>_R
-> <Rules a59_XiUA>_R
-> <Rules a59_XiUA>_R
-> Sym (GHC.Types.NTCo:IO[0] <(a59_XiUA, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_XiUA>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <a59_XiUA>_N
:: (forall a59_XiUA.
Monoid a59_XiUA =>
Rules a59_XiUA
-> Rules a59_XiUA
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_XiUA, SRules Action) #))
~R# (forall a59_XiUA.
Monoid a59_XiUA =>
Rules a59_XiUA -> Rules a59_XiUA -> Rules a59_XiUA))}]
Development.Shake.Core.$fMonoidRules_$cmappend =
Development.Shake.Core.$fMonoidRules2
`cast` (forall a59_XiUA.
<Monoid a59_XiUA>_R
-> <Rules a59_XiUA>_R
-> <Rules a59_XiUA>_R
-> Sym (GHC.Types.NTCo:IO[0] <(a59_XiUA, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_XiUA>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <a59_XiUA>_N
:: (forall a59_XiUA.
Monoid a59_XiUA =>
Rules a59_XiUA
-> Rules a59_XiUA
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_XiUA, SRules Action) #))
~R# (forall a59_XiUA.
Monoid a59_XiUA =>
Rules a59_XiUA -> Rules a59_XiUA -> Rules a59_XiUA))
Development.Shake.Core.$fMonoidRules_$cmempty
:: forall a_aiHo. Monoid a_aiHo => Rules a_aiHo
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <L,1*U(1*U,A,A)><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.$fMonoidRules3
`cast` (forall a59_Xj3P.
<Monoid a59_Xj3P>_R
-> Sym (GHC.Types.NTCo:IO[0] <(a59_Xj3P, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_Xj3P>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <a59_Xj3P>_N
:: (forall a59_Xj3P.
Monoid a59_Xj3P =>
GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_Xj3P, SRules Action) #))
~R# (forall a59_Xj3P. Monoid a59_Xj3P => Rules a59_Xj3P))}]
Development.Shake.Core.$fMonoidRules_$cmempty =
Development.Shake.Core.$fMonoidRules3
`cast` (forall a59_Xj3P.
<Monoid a59_Xj3P>_R
-> Sym (GHC.Types.NTCo:IO[0] <(a59_Xj3P, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_Xj3P>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <a59_Xj3P>_N
:: (forall a59_Xj3P.
Monoid a59_Xj3P =>
GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_Xj3P, SRules Action) #))
~R# (forall a59_Xj3P. Monoid a59_Xj3P => Rules a59_Xj3P))
Development.Shake.Core.$fMonoidRules [InlPrag=[ALWAYS] CONLIKE]
:: forall a_aeI0. Monoid a_aeI0 => Monoid (Rules a_aeI0)
[GblId[DFunId],
Arity=1,
Str=DmdType <L,U(U,C(C1(U)),A)>m,
Unf=DFun: \ (@ a59_Xj3T) ($dMonoid_Xj3V :: Monoid a59_Xj3T) ->
GHC.Base.D:Monoid TYPE Rules a59_Xj3T
Development.Shake.Core.$fMonoidRules_$cmempty
@ a59_Xj3T $dMonoid_Xj3V
Development.Shake.Core.$fMonoidRules_$cmappend
@ a59_Xj3T $dMonoid_Xj3V
Development.Shake.Core.$fMonoidRules_$cmconcat
@ a59_Xj3T $dMonoid_Xj3V]
Development.Shake.Core.$fMonoidRules =
\ (@ a59_Xj3T) ($dMonoid_Xj3V :: Monoid a59_Xj3T) ->
GHC.Base.D:Monoid
@ (Rules a59_Xj3T)
((\ (s_ilkf [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) ->
(# s_ilkf,
(mempty @ a59_Xj3T $dMonoid_Xj3V,
Development.Shake.Core.$fApplicativeRules_$cmempty @ Action) #))
`cast` (Sym (GHC.Types.NTCo:IO[0] <(a59_Xj3T, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_Xj3T>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <a59_Xj3T>_N
:: (GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_Xj3T, SRules Action) #))
~R# Rules a59_Xj3T))
((Development.Shake.Core.$fMonoidRules2 @ a59_Xj3T $dMonoid_Xj3V)
`cast` (<Rules a59_Xj3T>_R
-> <Rules a59_Xj3T>_R
-> Sym (GHC.Types.NTCo:IO[0] <(a59_Xj3T, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_Xj3T>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <a59_Xj3T>_N
:: (Rules a59_Xj3T
-> Rules a59_Xj3T
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_Xj3T, SRules Action) #))
~R# (Rules a59_Xj3T -> Rules a59_Xj3T -> Rules a59_Xj3T)))
((Development.Shake.Core.$fMonoidRules1 @ a59_Xj3T $dMonoid_Xj3V)
`cast` (<[Rules a59_Xj3T]>_R
-> Sym (GHC.Types.NTCo:IO[0] <(a59_Xj3T, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_Xj3T>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <a59_Xj3T>_N
:: ([Rules a59_Xj3T]
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_Xj3T, SRules Action) #))
~R# ([Rules a59_Xj3T] -> Rules a59_Xj3T)))
Development.Shake.Core.$fShowLocal_$cshowList :: [Local] -> ShowS
[GblId,
Arity=2,
Caf=NoCafRefs,
Str=DmdType <S,1*U><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=False)
Tmpl= \ (ls_iaDD [Occ=Once] :: [Local])
(s_iaDE [Occ=Once] :: String) ->
GHC.Show.showList__
@ Local
(\ _ [Occ=Dead] (s1_iaDN [Occ=Once, OS=OneShot] :: String) ->
s1_iaDN)
ls_iaDD
s_iaDE}]
Development.Shake.Core.$fShowLocal_$cshowList =
\ (ls_iaDD :: [Local]) (s_iaDE :: String) ->
GHC.Show.showList__
@ Local Development.Shake.Core.$s$dmshowList1 ls_iaDD s_iaDE
Development.Shake.Core.$fShowLocal_$cshow :: Local -> String
[GblId,
Arity=1,
Caf=NoCafRefs,
Str=DmdType <L,A>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=True)
Tmpl= \ _ [Occ=Dead] -> GHC.Types.[] @ Char}]
Development.Shake.Core.$fShowLocal_$cshow =
\ _ [Occ=Dead] -> GHC.Types.[] @ Char
Development.Shake.Core.$fShowLocal_$s$dmshowsPrec
:: Int -> Local -> ShowS
[GblId,
Arity=3,
Caf=NoCafRefs,
Str=DmdType <L,A><L,A><S,1*U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=-1,unsat_ok=True,boring_ok=False)
Tmpl= \ _ [Occ=Dead]
(x_iaDM [Occ=Once] :: Local)
(s_iaDN [Occ=Once] :: String) ->
GHC.Base.augment
@ Char
(\ (@ b_iaDR)
(c_iaDS [Occ=Once, OS=OneShot] :: Char -> b_iaDR -> b_iaDR)
(n_iaDT [Occ=Once, OS=OneShot] :: b_iaDR) ->
GHC.Base.foldr
@ Char
@ b_iaDR
c_iaDS
n_iaDT
(Development.Shake.Core.$fShowLocal_$cshow x_iaDM))
s_iaDN}]
Development.Shake.Core.$fShowLocal_$s$dmshowsPrec =
\ _ [Occ=Dead] _ [Occ=Dead] (s_iaDN :: String) -> s_iaDN
a56_rxvS :: Int -> Local -> String -> [Char]
[GblId, Arity=3, Caf=NoCafRefs, Str=DmdType]
a56_rxvS =
\ _ [Occ=Dead] _ [Occ=Dead] (s_iaDN :: String) ->
letrec {
go5_iaAV [Occ=LoopBreaker] :: [Char] -> [Char]
[LclId, Arity=1, Str=DmdType]
go5_iaAV =
\ (ds1_iaAW :: [Char]) ->
case ds1_iaAW of _ [Occ=Dead] {
[] -> s_iaDN;
: y_iaB1 ys_iaB2 -> GHC.Types.: @ Char y_iaB1 (go5_iaAV ys_iaB2)
}; } in
go5_iaAV (GHC.Types.[] @ Char)
Development.Shake.Core.$fShowLocal [InlPrag=[ALWAYS] CONLIKE]
:: Show Local
[GblId[DFunId],
Caf=NoCafRefs,
Str=DmdType m,
Unf=DFun: \ ->
GHC.Show.D:Show TYPE Local
Development.Shake.Core.$fShowLocal_$s$dmshowsPrec
Development.Shake.Core.$fShowLocal_$cshow
Development.Shake.Core.$fShowLocal_$cshowList]
Development.Shake.Core.$fShowLocal =
GHC.Show.D:Show
@ Local
a56_rxvS
Development.Shake.Core.$fShowLocal_$cshow
Development.Shake.Core.$fShowLocal_$cshowList
Development.Shake.Core.$fApplicativeRules_$c<*
:: forall a_ieSi b_ieSj.
Rules a_ieSi -> Rules b_ieSj -> Rules a_ieSi
[GblId,
Arity=3,
Str=DmdType <C(S),1*C1(U(U,1*U(U,1*U(1*U,U))))><L,1*C1(U(U,1*U(A,1*U(1*U,1*U))))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.$fApplicativeRules1
`cast` (forall a59_XiTZ b_XiU1.
Sym Development.Shake.Core.NTCo:Rules[0] <a59_XiTZ>_N
-> Sym Development.Shake.Core.NTCo:Rules[0] <b_XiU1>_N
-> Sym (GHC.Types.NTCo:IO[0] <(a59_XiTZ, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_XiTZ>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <a59_XiTZ>_N
:: (forall a59_XiTZ b_XiU1.
WriterT (SRules Action) IO a59_XiTZ
-> WriterT (SRules Action) IO b_XiU1
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_XiTZ, SRules Action) #))
~R# (forall a59_XiTZ b_XiU1.
Rules a59_XiTZ -> Rules b_XiU1 -> Rules a59_XiTZ))}]
Development.Shake.Core.$fApplicativeRules_$c<* =
Development.Shake.Core.$fApplicativeRules1
`cast` (forall a59_XiTZ b_XiU1.
Sym Development.Shake.Core.NTCo:Rules[0] <a59_XiTZ>_N
-> Sym Development.Shake.Core.NTCo:Rules[0] <b_XiU1>_N
-> Sym (GHC.Types.NTCo:IO[0] <(a59_XiTZ, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <a59_XiTZ>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <a59_XiTZ>_N
:: (forall a59_XiTZ b_XiU1.
WriterT (SRules Action) IO a59_XiTZ
-> WriterT (SRules Action) IO b_XiU1
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(a59_XiTZ, SRules Action) #))
~R# (forall a59_XiTZ b_XiU1.
Rules a59_XiTZ -> Rules b_XiU1 -> Rules a59_XiTZ))
Development.Shake.Core.$fApplicativeRules_$c*>
:: forall a_ieSc b_ieSd.
Rules a_ieSc -> Rules b_ieSd -> Rules b_ieSd
[GblId,
Arity=3,
Str=DmdType <C(S),1*C1(U(U,1*U(A,1*U(1*U,U))))><L,1*C1(U(U,1*U(U,1*U(1*U,1*U))))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.$fApplicativeRules3
`cast` (forall a59_XiTn b_XiTp.
Sym Development.Shake.Core.NTCo:Rules[0] <a59_XiTn>_N
-> Sym Development.Shake.Core.NTCo:Rules[0] <b_XiTp>_N
-> Sym (GHC.Types.NTCo:IO[0] <(b_XiTp, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <b_XiTp>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <b_XiTp>_N
:: (forall a59_XiTn b_XiTp.
WriterT (SRules Action) IO a59_XiTn
-> WriterT (SRules Action) IO b_XiTp
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_XiTp, SRules Action) #))
~R# (forall a59_XiTn b_XiTp.
Rules a59_XiTn -> Rules b_XiTp -> Rules b_XiTp))}]
Development.Shake.Core.$fApplicativeRules_$c*> =
Development.Shake.Core.$fApplicativeRules3
`cast` (forall a59_XiTn b_XiTp.
Sym Development.Shake.Core.NTCo:Rules[0] <a59_XiTn>_N
-> Sym Development.Shake.Core.NTCo:Rules[0] <b_XiTp>_N
-> Sym (GHC.Types.NTCo:IO[0] <(b_XiTp, SRules Action)>_R)
; Sym
(Control.Monad.Trans.Writer.Strict.NTCo:WriterT[0]
<SRules Action>_N <IO>_R <b_XiTp>_N)
; Sym Development.Shake.Core.NTCo:Rules[0] <b_XiTp>_N
:: (forall a59_XiTn b_XiTp.
WriterT (SRules Action) IO a59_XiTn
-> WriterT (SRules Action) IO b_XiTp
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
(b_XiTp, SRules Action) #))
~R# (forall a59_XiTn b_XiTp.
Rules a59_XiTn -> Rules b_XiTp -> Rules b_XiTp))
Development.Shake.Core.$fApplicativeRules_$c<*>
:: forall a_ieS6 b_ieS7.
Rules (a_ieS6 -> b_ieS7) -> Rules a_ieS6 -> Rules b_ieS7
[GblId,
Arity=3,
Str=DmdType <C(S),1*C1(U(U,1*U(1*C1(U),1*U(1*U,U))))><L,1*C1(U(U,1*U(U,1*U(1*U,1*U))))><L,U>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)
Tmpl= Development.Shake.Core.$fApplicativeRules4
`cast` (forall a59_aiFm b_aiFn.
Sym Development.Shake.Core.NTCo:Rules[0] <a59_aiFm -> b_aiFn>_N
-> Sym Development.Shak
Raw
Bad (summary)
View raw

(Sorry about that, but we can’t show files that are this big right now.)

Raw
Good (full)
View raw

(Sorry about that, but we can’t show files that are this big right now.)

Raw
Good (summary)
View raw

(Sorry about that, but we can’t show files that are this big right now.)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment