Created
July 28, 2018 22:35
-
-
Save MaxGabriel/d0d524bff89ea8439e24aa356c0b7332 to your computer and use it in GitHub Desktop.
GHC internal warnings
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
❄️ ✔︎ ~/D/M/h/mercury-web-backend> cabal build 15:31:54 | |
Warning: The package list for 'hackage.haskell.org' does not exist. Run 'cabal | |
update' to download it. | |
Resolving dependencies... | |
Configuring mercury-web-backend-0.0.0... | |
clang-5.0: warning: argument unused during compilation: '-nopie' [-Wunused-command-line-argument] | |
Preprocessing library for mercury-web-backend-0.0.0.. | |
Building library for mercury-web-backend-0.0.0.. | |
[ 1 of 141] Compiling AWS.Types ( src/AWS/Types.hs, dist/build/AWS/Types.o ) | |
stgEqType: unequal | |
PkgName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
PkgName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
PkgName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
PkgName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
PkgName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
PkgName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
PkgName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
PkgName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
PkgName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
PkgName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
PkgName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
PkgName | |
[Char] | |
stgEqType: unequal | |
OccName | |
[Char] | |
stgEqType: unequal | |
BucketName | |
Text | |
stgEqType: unequal | |
Text | |
SQSQueueURL | |
<no location info>: error: | |
ghc: panic! (the 'impossible' happened) | |
(GHC version 8.2.2 for x86_64-apple-darwin): | |
*** Stg Lint ErrMsgs: in Stg2Stg *** | |
<no location info>: warning: | |
[RHS of sat_sDDH :: S3Settings] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: AWSCredentials -> BucketName -> S3Settings | |
Arg types: | |
AWSCredentials | |
Text | |
<no location info>: warning: | |
[RHS of sat_sDIg :: [Char]] | |
In a function application, function type doesn't match arg types: | |
Function type: Text -> String -> (# Char, [Char] #) | |
Arg types: | |
SQSQueueURL | |
[Char] | |
Expression: $w$cshowsPrec x_sDIb $fShowSQSQueueURL5 | |
*** Offending Program *** | |
$fFromJSONAWSCredentials6 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"AWSCredentials"#; | |
$fFromJSONAWSCredentials5 :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fFromJSONAWSCredentials6; | |
lvl_rDwg :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"region"#; | |
key2_rDwh :: Text | |
[GblId] = | |
\u [] unpackCString# lvl_rDwg; | |
lvl1_rDwi :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"key "#; | |
lvl2_rDwj :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
" not present"#; | |
lvl3_rDwk :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl2_rDwj; | |
lvl4_rDwl :: [Char] | |
[GblId] = | |
\u [] | |
case $w$cshow key2_rDwh of { | |
(#,#) ww1_sDzz [Occ=Once] ww2_sDzA [Occ=Once] -> | |
let { | |
sat_sDzC [Occ=Once] :: [Char] | |
[LclId] = | |
NO_CCS :! [ww1_sDzz ww2_sDzA]; | |
} in ++ sat_sDzC lvl3_rDwk; | |
}; | |
msg20_rDwm :: String | |
[GblId] = | |
\u [] unpackAppendCString# lvl1_rDwi lvl4_rDwl; | |
lvl5_rDwn | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success Region f4 r -> f4 r | |
[GblId, | |
Arity=3, | |
Str=<L,1*U><C(C(S)),1*C1(C1(U))><L,A>, | |
Unf=OtherCon []] = | |
\r [path_sDzD kf_sDzE _ks_sDzF] | |
let { | |
sat_sDzG [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sDzD; | |
} in kf_sDzE sat_sDzG msg20_rDwm; | |
pathElem17_rDwo :: JSONPathElement | |
[GblId, Str=m1, Unf=OtherCon []] = | |
NO_CCS Key! [key2_rDwh]; | |
lvl6_rDwp :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"access-key"#; | |
key1_rDwq :: Text | |
[GblId] = | |
\u [] unpackCString# lvl6_rDwp; | |
lvl7_rDwr :: [Char] | |
[GblId] = | |
\u [] | |
case $w$cshow key1_rDwq of { | |
(#,#) ww1_sDzI [Occ=Once] ww2_sDzJ [Occ=Once] -> | |
let { | |
sat_sDzK [Occ=Once] :: [Char] | |
[LclId] = | |
NO_CCS :! [ww1_sDzI ww2_sDzJ]; | |
} in ++ sat_sDzK lvl3_rDwk; | |
}; | |
msg1_rDws :: String | |
[GblId] = | |
\u [] unpackAppendCString# lvl1_rDwi lvl7_rDwr; | |
lvl8_rDwt | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success AccessKey f4 r -> f4 r | |
[GblId, | |
Arity=3, | |
Str=<L,1*U><C(C(S)),1*C1(C1(U))><L,A>, | |
Unf=OtherCon []] = | |
\r [path_sDzL kf_sDzM _ks_sDzN] | |
let { | |
sat_sDzO [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sDzL; | |
} in kf_sDzM sat_sDzO msg1_rDws; | |
pathElem1_rDwu :: JSONPathElement | |
[GblId, Str=m1, Unf=OtherCon []] = | |
NO_CCS Key! [key1_rDwq]; | |
lvl9_rDwv :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"secret-key"#; | |
key3_rDww :: Text | |
[GblId] = | |
\u [] unpackCString# lvl9_rDwv; | |
lvl10_rDwx :: [Char] | |
[GblId] = | |
\u [] | |
case $w$cshow key3_rDww of { | |
(#,#) ww1_sDzR [Occ=Once] ww2_sDzS [Occ=Once] -> | |
let { | |
sat_sDzT [Occ=Once] :: [Char] | |
[LclId] = | |
NO_CCS :! [ww1_sDzR ww2_sDzS]; | |
} in ++ sat_sDzT lvl3_rDwk; | |
}; | |
msg2_rDwy :: String | |
[GblId] = | |
\u [] unpackAppendCString# lvl1_rDwi lvl10_rDwx; | |
lvl11_rDwz | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success SecretKey f4 r -> f4 r | |
[GblId, | |
Arity=3, | |
Str=<L,1*U><C(C(S)),1*C1(C1(U))><L,A>, | |
Unf=OtherCon []] = | |
\r [path_sDzU kf_sDzV _ks_sDzW] | |
let { | |
sat_sDzX [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sDzU; | |
} in kf_sDzV sat_sDzX msg2_rDwy; | |
pathElem2_rDwA :: JSONPathElement | |
[GblId, Str=m1, Unf=OtherCon []] = | |
NO_CCS Key! [key3_rDww]; | |
$fFromJSONAWSCredentials4 :: Object -> Parser AWSCredentials | |
[GblId, Arity=1, Str=<L,U>, Unf=OtherCon []] = | |
\r [o_sDzZ] | |
let { | |
m_sDA0 [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser Region | |
[LclId] = | |
\u [] | |
case key2_rDwh of { | |
Text ww1_sDA2 [Occ=Once] ww2_sDA3 [Occ=Once] ww3_sDA4 [Occ=Once] -> | |
case $w$slookup ww1_sDA2 ww2_sDA3 ww3_sDA4 o_sDzZ of { | |
Nothing -> lvl5_rDwn; | |
Just v_sDA7 [Occ=Once] -> | |
let { | |
p1_sDA8 [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser Region | |
[LclId] = | |
\u [] | |
parseJSONText | |
$fFromJSONRegion2 $fFromJSONRegion1 v_sDA7; } in | |
let { | |
sat_sDAh [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success Region f4 r -> f4 r | |
[LclId] = | |
\r [path_sDAa kf_sDAb ks_sDAc] | |
let { | |
sat_sDAe [Occ=Once] :: JSONPath | |
[LclId] = | |
NO_CCS :! [pathElem17_rDwo path_sDAa]; | |
} in p1_sDA8 sat_sDAe kf_sDAb ks_sDAc; | |
} in sat_sDAh; | |
}; | |
}; } in | |
let { | |
e_sDAj [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser AccessKey | |
[LclId] = | |
\u [] | |
case key1_rDwq of { | |
Text ww1_sDAl [Occ=Once] ww2_sDAm [Occ=Once] ww3_sDAn [Occ=Once] -> | |
case $w$slookup ww1_sDAl ww2_sDAm ww3_sDAn o_sDzZ of { | |
Nothing -> lvl8_rDwt; | |
Just v_sDAp [Occ=Once] -> | |
let { | |
p1_sDAr [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser AccessKey | |
[LclId] = | |
\u [] | |
parseJSONText | |
$fFromTextByteString1 $fDataAccessKey6 v_sDAp; } in | |
let { | |
sat_sDAw [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success AccessKey f4 r -> f4 r | |
[LclId] = | |
\r [path_sDAs kf_sDAt ks_sDAu] | |
let { | |
sat_sDAv [Occ=Once] :: JSONPath | |
[LclId] = | |
NO_CCS :! [pathElem1_rDwu path_sDAs]; | |
} in p1_sDAr sat_sDAv kf_sDAt ks_sDAu; | |
} in sat_sDAw; | |
}; | |
}; } in | |
let { | |
e1_sDAx [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser SecretKey | |
[LclId] = | |
\u [] | |
case key3_rDww of { | |
Text ww1_sDAz [Occ=Once] ww2_sDAA [Occ=Once] ww3_sDAB [Occ=Once] -> | |
case $w$slookup ww1_sDAz ww2_sDAA ww3_sDAB o_sDzZ of { | |
Nothing -> lvl11_rDwz; | |
Just v_sDAD [Occ=Once] -> | |
let { | |
p1_sDAE [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser SecretKey | |
[LclId] = | |
\u [] | |
parseJSONText | |
$fFromTextByteString1 $fDataSecretKey5 v_sDAD; } in | |
let { | |
sat_sDAJ [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success SecretKey f4 r -> f4 r | |
[LclId] = | |
\r [path_sDAF kf_sDAG ks_sDAH] | |
let { | |
sat_sDAI [Occ=Once] :: JSONPath | |
[LclId] = | |
NO_CCS :! [pathElem2_rDwA path_sDAF]; | |
} in p1_sDAE sat_sDAI kf_sDAG ks_sDAH; | |
} in sat_sDAJ; | |
}; | |
}; } in | |
let { | |
sat_sDAW [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success AWSCredentials f4 r -> f4 r | |
[LclId] = | |
\r [path_sDAK kf_sDAL ks_sDAM] | |
let { | |
sat_sDAU [Occ=Once] :: Success Region f4_Xvgg r_Xvgi | |
[LclId] = | |
\r [a1_sDAN] | |
let { | |
sat_sDAT [Occ=Once] :: Success AccessKey f4_Xvgg r_Xvgi | |
[LclId] = | |
\r [a2_sDAO] | |
let { | |
sat_sDAS [Occ=Once] :: Success SecretKey f4_Xvgg r_Xvgi | |
[LclId] = | |
\r [a4_sDAP] | |
let { | |
sat_sDAR [Occ=Once] :: AWSCredentials | |
[LclId] = | |
NO_CCS AWSCredentials! [a1_sDAN | |
a2_sDAO | |
a4_sDAP]; | |
} in ks_sDAM sat_sDAR; | |
} in e1_sDAx path_sDAK kf_sDAL sat_sDAS; | |
} in e_sDAj path_sDAK kf_sDAL sat_sDAT; | |
} in m_sDA0 path_sDAK kf_sDAL sat_sDAU; | |
} in sat_sDAW; | |
$fFromJSONAWSCredentials_$cparseJSON | |
:: Value -> Parser AWSCredentials | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] | |
withObject | |
$fFromJSONAWSCredentials5 $fFromJSONAWSCredentials4 eta_B1; | |
z33_rDwB | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success [AWSCredentials] f4 r -> f4 r | |
[GblId, | |
Arity=3, | |
Caf=NoCafRefs, | |
Str=<L,A><L,A><C(S),1*C1(U)>, | |
Unf=OtherCon []] = | |
\r [_path_sDAZ _kf_sDB0 ks_sDB1] ks_sDB1 []; | |
$fFromJSONAWSCredentials3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"expected "#; | |
$fFromJSONAWSCredentials2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"[a]"#; | |
$fFromJSONAWSCredentials1 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
", encountered "#; | |
$fFromJSONAWSCredentials_go [Occ=LoopBreaker] | |
:: Int# -> [Value] -> Parser [AWSCredentials] | |
[GblId, Arity=2, Str=<L,U><S,1*U>, Unf=OtherCon []] = | |
\r [x_sDB2 eta_sDB3] | |
case eta_sDB3 of { | |
[] -> z33_rDwB; | |
: y_sDB5 [Occ=Once!] ys_sDB7 [Occ=Once] -> | |
let { | |
p1_sDB8 [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser AWSCredentials | |
[LclId] = | |
\u [] | |
case y_sDB5 of wild_sDB9 { | |
__DEFAULT -> | |
let { | |
msg6_sDBa [Occ=OnceL] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sDBi [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDBh [Occ=Once, Dmd=<L,1*U>] :: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sDBg [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case wild_sDB9 of { | |
Array _ [Occ=Dead] -> | |
typeMismatch1; | |
String _ [Occ=Dead] -> | |
$dmliftParseJSONList8; | |
Number _ [Occ=Dead] -> | |
$dmliftParseJSONList6; | |
Bool _ [Occ=Dead] -> | |
$dmliftParseJSONList4; | |
Null -> | |
$dmliftParseJSONList1; | |
}; | |
} in | |
unpackAppendCString# | |
typeMismatch3 sat_sDBg; | |
} in ++ $fFromJSONAWSCredentials5 sat_sDBh; | |
} in unpackAppendCString# typeMismatch4 sat_sDBi; } in | |
let { | |
sat_sDBo [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath | |
-> Failure f4 r -> Success AWSCredentials f4 r -> f4 r | |
[LclId] = | |
\r [path_sDBj kf_sDBk _ks_sDBl] | |
let { | |
sat_sDBm [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sDBj; | |
} in kf_sDBk sat_sDBm msg6_sDBa; | |
} in sat_sDBo; | |
Object obj_sDBp [Occ=Once] -> $fFromJSONAWSCredentials4 obj_sDBp; | |
}; } in | |
let { | |
pathElem6_sDBq [Occ=OnceL] :: JSONPathElement | |
[LclId, Unf=OtherCon []] = | |
NO_CCS Index! [x_sDB2]; } in | |
let { | |
ys1_sDBr [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] | |
:: Parser [AWSCredentials] | |
[LclId] = | |
\u [] | |
case x_sDB2 of wild_sDBs { | |
__DEFAULT -> | |
case +# [wild_sDBs 1#] of sat_sDBu { | |
__DEFAULT -> $fFromJSONAWSCredentials_go sat_sDBu ys_sDB7; | |
}; | |
9223372036854775807# -> z33_rDwB; | |
}; } in | |
let { | |
sat_sDBH [Occ=Once] | |
:: forall (f5 :: * -> *) r. | |
JSONPath -> Failure f5 r -> Success [AWSCredentials] f5 r -> f5 r | |
[LclId] = | |
\r [eta1_sDBv eta2_sDBw eta3_sDBx] | |
let { | |
sat_sDBF [Occ=Once] :: Success AWSCredentials f5_auQI r_auQJ | |
[LclId] = | |
\r [a3_sDBz] | |
let { | |
sat_sDBE [Occ=Once] :: Success [AWSCredentials] f5_auQI r_auQJ | |
[LclId] = | |
\r [a4_sDBB] | |
let { | |
sat_sDBD [Occ=Once] :: [AWSCredentials] | |
[LclId] = | |
NO_CCS :! [a3_sDBz a4_sDBB]; | |
} in eta3_sDBx sat_sDBD; | |
} in ys1_sDBr eta1_sDBv eta2_sDBw sat_sDBE; } in | |
let { | |
sat_sDBy [Occ=Once] :: JSONPath | |
[LclId] = | |
NO_CCS :! [pathElem6_sDBq eta1_sDBv]; | |
} in p1_sDB8 sat_sDBy eta2_sDBw sat_sDBF; | |
} in sat_sDBH; | |
}; | |
$fFromJSONAWSCredentials_$cparseJSONList | |
:: Value -> Parser [AWSCredentials] | |
[GblId, Arity=1, Str=<S,1*U>, Unf=OtherCon []] = | |
\r [ds_sDBI] | |
case ds_sDBI of wild_sDBJ { | |
__DEFAULT -> | |
let { | |
msg6_sDBK [Occ=OnceL] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sDBS [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDBR [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDBQ [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case wild_sDBJ of { | |
Object _ [Occ=Dead] -> | |
$dmliftParseJSONList10; | |
String _ [Occ=Dead] -> | |
$dmliftParseJSONList8; | |
Number _ [Occ=Dead] -> | |
$dmliftParseJSONList6; | |
Bool _ [Occ=Dead] -> | |
$dmliftParseJSONList4; | |
Null -> $dmliftParseJSONList1; | |
}; | |
} in | |
unpackAppendCString# | |
$fFromJSONAWSCredentials1 sat_sDBQ; | |
} in unpackAppendCString# $fFromJSONAWSCredentials2 sat_sDBR; | |
} in unpackAppendCString# $fFromJSONAWSCredentials3 sat_sDBS; } in | |
let { | |
sat_sDBY [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success [AWSCredentials] f4 r -> f4 r | |
[LclId] = | |
\r [path_sDBT kf_sDBV _ks_sDBW] | |
let { | |
sat_sDBX [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sDBT; | |
} in kf_sDBV sat_sDBX msg6_sDBK; | |
} in sat_sDBY; | |
Array a2_sDBZ [Occ=Once!] -> | |
case a2_sDBZ of { | |
Vector dt_sDC1 [Occ=OnceL] | |
dt1_sDC2 [Occ=OnceL] | |
dt2_sDC3 [Occ=OnceL] -> | |
let { | |
$wgo_sDC4 [InlPrag=[0], Occ=LoopBreaker] :: Int# -> [Value] | |
[LclId, Arity=1, Str=<S,U>, Unf=OtherCon []] = | |
sat-only \r [ww_sDC5] | |
case >=# [ww_sDC5 dt1_sDC2] of sat_sDC7 { | |
__DEFAULT -> | |
case tagToEnum# [sat_sDC7] of { | |
False -> | |
case +# [dt_sDC1 ww_sDC5] of sat_sDC9 { | |
__DEFAULT -> | |
case indexArray# [dt2_sDC3 sat_sDC9] of { | |
Unit# ipv_sDCb [Occ=Once] -> | |
let { | |
sat_sDCe [Occ=Once] :: [Value] | |
[LclId] = | |
\u [] | |
case +# [ww_sDC5 1#] of sat_sDCc { | |
__DEFAULT -> $wgo_sDC4 sat_sDCc; | |
}; | |
} in : [ipv_sDCb sat_sDCe]; | |
}; | |
}; | |
True -> [] []; | |
}; | |
}; | |
} in | |
case $wgo_sDC4 0# of sat_sDCf { | |
__DEFAULT -> $fFromJSONAWSCredentials_go 0# sat_sDCf; | |
}; | |
}; | |
}; | |
$fFromJSONAWSCredentials [InlPrag=CONLIKE] | |
:: FromJSON AWSCredentials | |
[GblId[DFunId], Str=m, Unf=OtherCon []] = | |
NO_CCS C:FromJSON! [$fFromJSONAWSCredentials_$cparseJSON | |
$fFromJSONAWSCredentials_$cparseJSONList]; | |
$fFromJSONS3Settings3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"S3Settings"#; | |
$fFromJSONS3Settings2 :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fFromJSONS3Settings3; | |
lvl12_rDwC :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"credentials"#; | |
key4_rDwD :: Text | |
[GblId] = | |
\u [] unpackCString# lvl12_rDwC; | |
lvl13_rDwE :: [Char] | |
[GblId] = | |
\u [] | |
case $w$cshow key4_rDwD of { | |
(#,#) ww1_sDCi [Occ=Once] ww2_sDCj [Occ=Once] -> | |
let { | |
sat_sDCk [Occ=Once] :: [Char] | |
[LclId] = | |
NO_CCS :! [ww1_sDCi ww2_sDCj]; | |
} in ++ sat_sDCk lvl3_rDwk; | |
}; | |
msg3_rDwF :: String | |
[GblId] = | |
\u [] unpackAppendCString# lvl1_rDwi lvl13_rDwE; | |
lvl14_rDwG | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success AWSCredentials f4 r -> f4 r | |
[GblId, | |
Arity=3, | |
Str=<L,1*U><C(C(S)),1*C1(C1(U))><L,A>, | |
Unf=OtherCon []] = | |
\r [path_sDCl kf_sDCm _ks_sDCn] | |
let { | |
sat_sDCo [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sDCl; | |
} in kf_sDCm sat_sDCo msg3_rDwF; | |
pathElem3_rDwH :: JSONPathElement | |
[GblId, Str=m1, Unf=OtherCon []] = | |
NO_CCS Key! [key4_rDwD]; | |
lvl15_rDwI :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"bucket"#; | |
key5_rDwJ :: Text | |
[GblId] = | |
\u [] unpackCString# lvl15_rDwI; | |
lvl16_rDwK :: [Char] | |
[GblId] = | |
\u [] | |
case $w$cshow key5_rDwJ of { | |
(#,#) ww1_sDCr [Occ=Once] ww2_sDCs [Occ=Once] -> | |
let { | |
sat_sDCt [Occ=Once] :: [Char] | |
[LclId] = | |
NO_CCS :! [ww1_sDCr ww2_sDCs]; | |
} in ++ sat_sDCt lvl3_rDwk; | |
}; | |
msg4_rDwL :: String | |
[GblId] = | |
\u [] unpackAppendCString# lvl1_rDwi lvl16_rDwK; | |
lvl17_rDwM | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success Text f4 r -> f4 r | |
[GblId, | |
Arity=3, | |
Str=<L,1*U><C(C(S)),1*C1(C1(U))><L,A>, | |
Unf=OtherCon []] = | |
\r [path_sDCu kf_sDCv _ks_sDCw] | |
let { | |
sat_sDCx [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sDCu; | |
} in kf_sDCv sat_sDCx msg4_rDwL; | |
lvl18_rDwN :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Text"#; | |
lvl19_rDwO :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl18_rDwN; | |
pathElem4_rDwP :: JSONPathElement | |
[GblId, Str=m1, Unf=OtherCon []] = | |
NO_CCS Key! [key5_rDwJ]; | |
$fFromJSONS3Settings1 :: Object -> Parser S3Settings | |
[GblId, Arity=1, Str=<L,U>, Unf=OtherCon []] = | |
\r [o_sDCy] | |
let { | |
m_sDCz [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser AWSCredentials | |
[LclId] = | |
\u [] | |
case key4_rDwD of { | |
Text ww1_sDCB [Occ=Once] ww2_sDCC [Occ=Once] ww3_sDCD [Occ=Once] -> | |
case $w$slookup ww1_sDCB ww2_sDCC ww3_sDCD o_sDCy of { | |
Nothing -> lvl14_rDwG; | |
Just v_sDCF [Occ=Once!] -> | |
let { | |
p1_sDCG [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser AWSCredentials | |
[LclId] = | |
\u [] | |
case v_sDCF of wild1_sDCH { | |
__DEFAULT -> | |
let { | |
msg6_sDCI [Occ=OnceL] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sDCR [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDCQ [Occ=Once, | |
Dmd=<L,1*U>] | |
:: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sDCO [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
case | |
wild1_sDCH | |
of | |
{ Array _ [Occ=Dead] -> | |
typeMismatch1; | |
String _ [Occ=Dead] -> | |
$dmliftParseJSONList8; | |
Number _ [Occ=Dead] -> | |
$dmliftParseJSONList6; | |
Bool _ [Occ=Dead] -> | |
$dmliftParseJSONList4; | |
Null -> | |
$dmliftParseJSONList1; | |
}; | |
} in | |
unpackAppendCString# | |
typeMismatch3 | |
sat_sDCO; | |
} in | |
++ $fFromJSONAWSCredentials5 | |
sat_sDCQ; | |
} in | |
unpackAppendCString# | |
typeMismatch4 sat_sDCR; } in | |
let { | |
sat_sDCW [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath | |
-> Failure f4 r | |
-> Success AWSCredentials f4 r | |
-> f4 r | |
[LclId] = | |
\r [path_sDCS kf_sDCT _ks_sDCU] | |
let { | |
sat_sDCV [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sDCS; | |
} in kf_sDCT sat_sDCV msg6_sDCI; | |
} in sat_sDCW; | |
Object obj_sDCX [Occ=Once] -> | |
$fFromJSONAWSCredentials4 obj_sDCX; | |
}; } in | |
let { | |
sat_sDD3 [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath | |
-> Failure f4 r -> Success AWSCredentials f4 r -> f4 r | |
[LclId] = | |
\r [path_sDCY kf_sDCZ ks_sDD0] | |
let { | |
sat_sDD2 [Occ=Once] :: JSONPath | |
[LclId] = | |
NO_CCS :! [pathElem3_rDwH path_sDCY]; | |
} in p1_sDCG sat_sDD2 kf_sDCZ ks_sDD0; | |
} in sat_sDD3; | |
}; | |
}; } in | |
let { | |
m1_sDD4 [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser Text | |
[LclId] = | |
\u [] | |
case key5_rDwJ of { | |
Text ww1_sDD6 [Occ=Once] ww2_sDD7 [Occ=Once] ww3_sDD8 [Occ=Once] -> | |
case $w$slookup ww1_sDD6 ww2_sDD7 ww3_sDD8 o_sDCy of { | |
Nothing -> lvl17_rDwM; | |
Just v_sDDa [Occ=Once!] -> | |
let { | |
p1_sDDb [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser Text | |
[LclId] = | |
\u [] | |
case v_sDDa of wild1_sDDc { | |
__DEFAULT -> | |
let { | |
msg6_sDDd [Occ=OnceL] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sDDm [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDDl [Occ=Once, | |
Dmd=<L,1*U>] | |
:: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sDDk [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
case | |
wild1_sDDc | |
of | |
{ Object _ [Occ=Dead] -> | |
$dmliftParseJSONList10; | |
Array _ [Occ=Dead] -> | |
typeMismatch1; | |
Number _ [Occ=Dead] -> | |
$dmliftParseJSONList6; | |
Bool _ [Occ=Dead] -> | |
$dmliftParseJSONList4; | |
Null -> | |
$dmliftParseJSONList1; | |
}; | |
} in | |
unpackAppendCString# | |
typeMismatch3 | |
sat_sDDk; | |
} in ++ lvl19_rDwO sat_sDDl; | |
} in | |
unpackAppendCString# | |
typeMismatch4 sat_sDDm; } in | |
let { | |
sat_sDDr [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath | |
-> Failure f4 r -> Success Text f4 r -> f4 r | |
[LclId] = | |
\r [path_sDDn kf_sDDo _ks_sDDp] | |
let { | |
sat_sDDq [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sDDn; | |
} in kf_sDDo sat_sDDq msg6_sDDd; | |
} in sat_sDDr; | |
String txt_sDDs [Occ=OnceL] -> | |
let { | |
sat_sDDw [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath | |
-> Failure f4 r -> Success Text f4 r -> f4 r | |
[LclId] = | |
\r [_path_sDDt _kf_sDDu ks_sDDv] | |
ks_sDDv txt_sDDs; | |
} in sat_sDDw; | |
}; } in | |
let { | |
sat_sDDB [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success Text f4 r -> f4 r | |
[LclId] = | |
\r [path_sDDx kf_sDDy ks_sDDz] | |
let { | |
sat_sDDA [Occ=Once] :: JSONPath | |
[LclId] = | |
NO_CCS :! [pathElem4_rDwP path_sDDx]; | |
} in p1_sDDb sat_sDDA kf_sDDy ks_sDDz; | |
} in sat_sDDB; | |
}; | |
}; } in | |
let { | |
sat_sDDL [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success S3Settings f4 r -> f4 r | |
[LclId] = | |
\r [path_sDDC kf_sDDD ks_sDDE] | |
let { | |
sat_sDDJ [Occ=Once] :: Success AWSCredentials f4_avf2 r_avf3 | |
[LclId] = | |
\r [a1_sDDF] | |
let { | |
sat_sDDI [Occ=Once] :: Success Text f4_avf2 r_avf3 | |
[LclId] = | |
\r [a2_sDDG] | |
let { | |
sat_sDDH [Occ=Once] :: S3Settings | |
[LclId] = | |
NO_CCS S3Settings! [a1_sDDF a2_sDDG]; | |
} in ks_sDDE sat_sDDH; | |
} in m1_sDD4 path_sDDC kf_sDDD sat_sDDI; | |
} in m_sDCz path_sDDC kf_sDDD sat_sDDJ; | |
} in sat_sDDL; | |
$fFromJSONS3Settings_$cparseJSON :: Value -> Parser S3Settings | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] | |
withObject $fFromJSONS3Settings2 $fFromJSONS3Settings1 eta_B1; | |
z1_rDwQ | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success [S3Settings] f4 r -> f4 r | |
[GblId, | |
Arity=3, | |
Caf=NoCafRefs, | |
Str=<L,A><L,A><C(S),1*C1(U)>, | |
Unf=OtherCon []] = | |
\r [_path_sDDM _kf_sDDN ks_sDDO] ks_sDDO []; | |
$fFromJSONS3Settings_go [Occ=LoopBreaker] | |
:: Int# -> [Value] -> Parser [S3Settings] | |
[GblId, Arity=2, Str=<L,U><S,1*U>, Unf=OtherCon []] = | |
\r [x_sDDR eta_sDDS] | |
case eta_sDDS of { | |
[] -> z1_rDwQ; | |
: y_sDDU [Occ=Once!] ys_sDDV [Occ=Once] -> | |
let { | |
p1_sDDW [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser S3Settings | |
[LclId] = | |
\u [] | |
case y_sDDU of wild_sDDX { | |
__DEFAULT -> | |
let { | |
msg6_sDDY [Occ=OnceL] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sDE8 [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDE5 [Occ=Once, Dmd=<L,1*U>] :: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sDE4 [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case wild_sDDX of { | |
Array _ [Occ=Dead] -> | |
typeMismatch1; | |
String _ [Occ=Dead] -> | |
$dmliftParseJSONList8; | |
Number _ [Occ=Dead] -> | |
$dmliftParseJSONList6; | |
Bool _ [Occ=Dead] -> | |
$dmliftParseJSONList4; | |
Null -> | |
$dmliftParseJSONList1; | |
}; | |
} in | |
unpackAppendCString# | |
typeMismatch3 sat_sDE4; | |
} in ++ $fFromJSONS3Settings2 sat_sDE5; | |
} in unpackAppendCString# typeMismatch4 sat_sDE8; } in | |
let { | |
sat_sDEd [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success S3Settings f4 r -> f4 r | |
[LclId] = | |
\r [path_sDE9 kf_sDEa _ks_sDEb] | |
let { | |
sat_sDEc [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sDE9; | |
} in kf_sDEa sat_sDEc msg6_sDDY; | |
} in sat_sDEd; | |
Object obj_sDEe [Occ=Once] -> $fFromJSONS3Settings1 obj_sDEe; | |
}; } in | |
let { | |
pathElem6_sDEf [Occ=OnceL] :: JSONPathElement | |
[LclId, Unf=OtherCon []] = | |
NO_CCS Index! [x_sDDR]; } in | |
let { | |
ys1_sDEh [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser [S3Settings] | |
[LclId] = | |
\u [] | |
case x_sDDR of wild_sDEi { | |
__DEFAULT -> | |
case +# [wild_sDEi 1#] of sat_sDEj { | |
__DEFAULT -> $fFromJSONS3Settings_go sat_sDEj ys_sDDV; | |
}; | |
9223372036854775807# -> z1_rDwQ; | |
}; } in | |
let { | |
sat_sDEw [Occ=Once] | |
:: forall (f5 :: * -> *) r. | |
JSONPath -> Failure f5 r -> Success [S3Settings] f5 r -> f5 r | |
[LclId] = | |
\r [eta1_sDEk eta2_sDEl eta3_sDEm] | |
let { | |
sat_sDEv [Occ=Once] :: Success S3Settings f5_auQI r_auQJ | |
[LclId] = | |
\r [a3_sDEq] | |
let { | |
sat_sDEu [Occ=Once] :: Success [S3Settings] f5_auQI r_auQJ | |
[LclId] = | |
\r [a4_sDEr] | |
let { | |
sat_sDEs [Occ=Once] :: [S3Settings] | |
[LclId] = | |
NO_CCS :! [a3_sDEq a4_sDEr]; | |
} in eta3_sDEm sat_sDEs; | |
} in ys1_sDEh eta1_sDEk eta2_sDEl sat_sDEu; } in | |
let { | |
sat_sDEp [Occ=Once] :: JSONPath | |
[LclId] = | |
NO_CCS :! [pathElem6_sDEf eta1_sDEk]; | |
} in p1_sDDW sat_sDEp eta2_sDEl sat_sDEv; | |
} in sat_sDEw; | |
}; | |
$fFromJSONS3Settings_$cparseJSONList | |
:: Value -> Parser [S3Settings] | |
[GblId, Arity=1, Str=<S,1*U>, Unf=OtherCon []] = | |
\r [ds_sDEx] | |
case ds_sDEx of wild_sDEy { | |
__DEFAULT -> | |
let { | |
msg6_sDEz [Occ=OnceL] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sDEH [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDEG [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDEF [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case wild_sDEy of { | |
Object _ [Occ=Dead] -> | |
$dmliftParseJSONList10; | |
String _ [Occ=Dead] -> | |
$dmliftParseJSONList8; | |
Number _ [Occ=Dead] -> | |
$dmliftParseJSONList6; | |
Bool _ [Occ=Dead] -> | |
$dmliftParseJSONList4; | |
Null -> $dmliftParseJSONList1; | |
}; | |
} in | |
unpackAppendCString# | |
$fFromJSONAWSCredentials1 sat_sDEF; | |
} in unpackAppendCString# $fFromJSONAWSCredentials2 sat_sDEG; | |
} in unpackAppendCString# $fFromJSONAWSCredentials3 sat_sDEH; } in | |
let { | |
sat_sDEM [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success [S3Settings] f4 r -> f4 r | |
[LclId] = | |
\r [path_sDEI kf_sDEJ _ks_sDEK] | |
let { | |
sat_sDEL [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sDEI; | |
} in kf_sDEJ sat_sDEL msg6_sDEz; | |
} in sat_sDEM; | |
Array a2_sDEN [Occ=Once!] -> | |
case a2_sDEN of { | |
Vector dt_sDEP [Occ=OnceL] | |
dt1_sDEQ [Occ=OnceL] | |
dt2_sDER [Occ=OnceL] -> | |
let { | |
$wgo_sDES [InlPrag=[0], Occ=LoopBreaker] :: Int# -> [Value] | |
[LclId, Arity=1, Str=<S,U>, Unf=OtherCon []] = | |
sat-only \r [ww_sDET] | |
case >=# [ww_sDET dt1_sDEQ] of sat_sDEU { | |
__DEFAULT -> | |
case tagToEnum# [sat_sDEU] of { | |
False -> | |
case +# [dt_sDEP ww_sDET] of sat_sDEW { | |
__DEFAULT -> | |
case indexArray# [dt2_sDER sat_sDEW] of { | |
Unit# ipv_sDEY [Occ=Once] -> | |
let { | |
sat_sDF1 [Occ=Once] :: [Value] | |
[LclId] = | |
\u [] | |
case +# [ww_sDET 1#] of sat_sDF0 { | |
__DEFAULT -> $wgo_sDES sat_sDF0; | |
}; | |
} in : [ipv_sDEY sat_sDF1]; | |
}; | |
}; | |
True -> [] []; | |
}; | |
}; | |
} in | |
case $wgo_sDES 0# of sat_sDF3 { | |
__DEFAULT -> $fFromJSONS3Settings_go 0# sat_sDF3; | |
}; | |
}; | |
}; | |
$fFromJSONS3Settings [InlPrag=CONLIKE] :: FromJSON S3Settings | |
[GblId[DFunId], Str=m, Unf=OtherCon []] = | |
NO_CCS C:FromJSON! [$fFromJSONS3Settings_$cparseJSON | |
$fFromJSONS3Settings_$cparseJSONList]; | |
$fFromJSONSQSQueueURL [InlPrag=CONLIKE] :: FromJSON SQSQueueURL | |
[GblId[DFunId], Str=m, Unf=OtherCon []] = | |
NO_CCS C:FromJSON! [$fFromJSONText0_$cparseJSON | |
$fFromJSONKeyText0_$cparseJSONList]; | |
$fFromJSONSQSSettings3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"SQSSettings"#; | |
$fFromJSONSQSSettings2 :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fFromJSONSQSSettings3; | |
lvl20_rDwR :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"url"#; | |
key6_rDwS :: Text | |
[GblId] = | |
\u [] unpackCString# lvl20_rDwR; | |
lvl21_rDwT :: [Char] | |
[GblId] = | |
\u [] | |
case $w$cshow key6_rDwS of { | |
(#,#) ww1_sDF5 [Occ=Once] ww2_sDF6 [Occ=Once] -> | |
let { | |
sat_sDF7 [Occ=Once] :: [Char] | |
[LclId] = | |
NO_CCS :! [ww1_sDF5 ww2_sDF6]; | |
} in ++ sat_sDF7 lvl3_rDwk; | |
}; | |
msg5_rDwU :: String | |
[GblId] = | |
\u [] unpackAppendCString# lvl1_rDwi lvl21_rDwT; | |
lvl22_rDwV | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success SQSQueueURL f4 r -> f4 r | |
[GblId, | |
Arity=3, | |
Str=<L,1*U><C(C(S)),1*C1(C1(U))><L,A>, | |
Unf=OtherCon []] = | |
\r [path_sDF8 kf_sDF9 _ks_sDFa] | |
let { | |
sat_sDFb [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sDF8; | |
} in kf_sDF9 sat_sDFb msg5_rDwU; | |
pathElem5_rDwW :: JSONPathElement | |
[GblId, Str=m1, Unf=OtherCon []] = | |
NO_CCS Key! [key6_rDwS]; | |
$fFromJSONSQSSettings1 :: Object -> Parser SQSSettings | |
[GblId, Arity=1, Str=<L,U>, Unf=OtherCon []] = | |
\r [o_sDFc] | |
let { | |
m_sDFd [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser AWSCredentials | |
[LclId] = | |
\u [] | |
case key4_rDwD of { | |
Text ww1_sDFf [Occ=Once] ww2_sDFg [Occ=Once] ww3_sDFh [Occ=Once] -> | |
case $w$slookup ww1_sDFf ww2_sDFg ww3_sDFh o_sDFc of { | |
Nothing -> lvl14_rDwG; | |
Just v_sDFj [Occ=Once!] -> | |
let { | |
p1_sDFl [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser AWSCredentials | |
[LclId] = | |
\u [] | |
case v_sDFj of wild1_sDFm { | |
__DEFAULT -> | |
let { | |
msg6_sDFn [Occ=OnceL] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sDFw [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDFv [Occ=Once, | |
Dmd=<L,1*U>] | |
:: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sDFu [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
case | |
wild1_sDFm | |
of | |
{ Array _ [Occ=Dead] -> | |
typeMismatch1; | |
String _ [Occ=Dead] -> | |
$dmliftParseJSONList8; | |
Number _ [Occ=Dead] -> | |
$dmliftParseJSONList6; | |
Bool _ [Occ=Dead] -> | |
$dmliftParseJSONList4; | |
Null -> | |
$dmliftParseJSONList1; | |
}; | |
} in | |
unpackAppendCString# | |
typeMismatch3 | |
sat_sDFu; | |
} in | |
++ $fFromJSONAWSCredentials5 | |
sat_sDFv; | |
} in | |
unpackAppendCString# | |
typeMismatch4 sat_sDFw; } in | |
let { | |
sat_sDFB [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath | |
-> Failure f4 r | |
-> Success AWSCredentials f4 r | |
-> f4 r | |
[LclId] = | |
\r [path_sDFx kf_sDFy _ks_sDFz] | |
let { | |
sat_sDFA [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sDFx; | |
} in kf_sDFy sat_sDFA msg6_sDFn; | |
} in sat_sDFB; | |
Object obj_sDFC [Occ=Once] -> | |
$fFromJSONAWSCredentials4 obj_sDFC; | |
}; } in | |
let { | |
sat_sDFH [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath | |
-> Failure f4 r -> Success AWSCredentials f4 r -> f4 r | |
[LclId] = | |
\r [path_sDFD kf_sDFE ks_sDFF] | |
let { | |
sat_sDFG [Occ=Once] :: JSONPath | |
[LclId] = | |
NO_CCS :! [pathElem3_rDwH path_sDFD]; | |
} in p1_sDFl sat_sDFG kf_sDFE ks_sDFF; | |
} in sat_sDFH; | |
}; | |
}; } in | |
let { | |
e_sDFI [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser SQSQueueURL | |
[LclId] = | |
\u [] | |
case key6_rDwS of { | |
Text ww1_sDFL [Occ=Once] ww2_sDFM [Occ=Once] ww3_sDFN [Occ=Once] -> | |
case $w$slookup ww1_sDFL ww2_sDFM ww3_sDFN o_sDFc of { | |
Nothing -> lvl22_rDwV; | |
Just v_sDFP [Occ=Once!] -> | |
let { | |
p1_sDFQ [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser Text | |
[LclId] = | |
\u [] | |
case v_sDFP of wild1_sDFR { | |
__DEFAULT -> | |
let { | |
msg6_sDFS [Occ=OnceL] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sDG0 [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDFZ [Occ=Once, | |
Dmd=<L,1*U>] | |
:: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sDFY [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
case | |
wild1_sDFR | |
of | |
{ Object _ [Occ=Dead] -> | |
$dmliftParseJSONList10; | |
Array _ [Occ=Dead] -> | |
typeMismatch1; | |
Number _ [Occ=Dead] -> | |
$dmliftParseJSONList6; | |
Bool _ [Occ=Dead] -> | |
$dmliftParseJSONList4; | |
Null -> | |
$dmliftParseJSONList1; | |
}; | |
} in | |
unpackAppendCString# | |
typeMismatch3 | |
sat_sDFY; | |
} in ++ lvl19_rDwO sat_sDFZ; | |
} in | |
unpackAppendCString# | |
typeMismatch4 sat_sDG0; } in | |
let { | |
sat_sDG5 [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath | |
-> Failure f4 r -> Success Text f4 r -> f4 r | |
[LclId] = | |
\r [path_sDG1 kf_sDG2 _ks_sDG3] | |
let { | |
sat_sDG4 [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sDG1; | |
} in kf_sDG2 sat_sDG4 msg6_sDFS; | |
} in sat_sDG5; | |
String txt_sDG6 [Occ=OnceL] -> | |
let { | |
sat_sDGa [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath | |
-> Failure f4 r -> Success Text f4 r -> f4 r | |
[LclId] = | |
\r [_path_sDG7 _kf_sDG8 ks_sDG9] | |
ks_sDG9 txt_sDG6; | |
} in sat_sDGa; | |
}; } in | |
let { | |
sat_sDGf [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success SQSQueueURL f4 r -> f4 r | |
[LclId] = | |
\r [path_sDGb kf_sDGc ks_sDGd] | |
let { | |
sat_sDGe [Occ=Once] :: JSONPath | |
[LclId] = | |
NO_CCS :! [pathElem5_rDwW path_sDGb]; | |
} in p1_sDFQ sat_sDGe kf_sDGc ks_sDGd; | |
} in sat_sDGf; | |
}; | |
}; } in | |
let { | |
sat_sDGq [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success SQSSettings f4 r -> f4 r | |
[LclId] = | |
\r [path_sDGg kf_sDGh ks_sDGi] | |
let { | |
sat_sDGp [Occ=Once] :: Success AWSCredentials f4_avf2 r_avf3 | |
[LclId] = | |
\r [a1_sDGj] | |
let { | |
sat_sDGn [Occ=Once] :: Success SQSQueueURL f4_avf2 r_avf3 | |
[LclId] = | |
\r [a2_sDGl] | |
let { | |
sat_sDGm [Occ=Once] :: SQSSettings | |
[LclId] = | |
NO_CCS SQSSettings! [a1_sDGj a2_sDGl]; | |
} in ks_sDGi sat_sDGm; | |
} in e_sDFI path_sDGg kf_sDGh sat_sDGn; | |
} in m_sDFd path_sDGg kf_sDGh sat_sDGp; | |
} in sat_sDGq; | |
$fFromJSONSQSSettings_$cparseJSON :: Value -> Parser SQSSettings | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] | |
withObject $fFromJSONSQSSettings2 $fFromJSONSQSSettings1 eta_B1; | |
z2_rDwX | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success [SQSSettings] f4 r -> f4 r | |
[GblId, | |
Arity=3, | |
Caf=NoCafRefs, | |
Str=<L,A><L,A><C(S),1*C1(U)>, | |
Unf=OtherCon []] = | |
\r [_path_sDGr _kf_sDGs ks_sDGt] ks_sDGt []; | |
$fFromJSONSQSSettings_go [Occ=LoopBreaker] | |
:: Int# -> [Value] -> Parser [SQSSettings] | |
[GblId, Arity=2, Str=<L,U><S,1*U>, Unf=OtherCon []] = | |
\r [x_sDGu eta_sDGv] | |
case eta_sDGv of { | |
[] -> z2_rDwX; | |
: y_sDGx [Occ=Once!] ys_sDGy [Occ=Once] -> | |
let { | |
p1_sDGz [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser SQSSettings | |
[LclId] = | |
\u [] | |
case y_sDGx of wild_sDGA { | |
__DEFAULT -> | |
let { | |
msg6_sDGB [Occ=OnceL] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sDGL [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDGJ [Occ=Once, Dmd=<L,1*U>] :: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sDGI [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case wild_sDGA of { | |
Array _ [Occ=Dead] -> | |
typeMismatch1; | |
String _ [Occ=Dead] -> | |
$dmliftParseJSONList8; | |
Number _ [Occ=Dead] -> | |
$dmliftParseJSONList6; | |
Bool _ [Occ=Dead] -> | |
$dmliftParseJSONList4; | |
Null -> | |
$dmliftParseJSONList1; | |
}; | |
} in | |
unpackAppendCString# | |
typeMismatch3 sat_sDGI; | |
} in ++ $fFromJSONSQSSettings2 sat_sDGJ; | |
} in unpackAppendCString# typeMismatch4 sat_sDGL; } in | |
let { | |
sat_sDGS [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success SQSSettings f4 r -> f4 r | |
[LclId] = | |
\r [path_sDGM kf_sDGN _ks_sDGO] | |
let { | |
sat_sDGQ [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sDGM; | |
} in kf_sDGN sat_sDGQ msg6_sDGB; | |
} in sat_sDGS; | |
Object obj_sDGT [Occ=Once] -> $fFromJSONSQSSettings1 obj_sDGT; | |
}; } in | |
let { | |
pathElem6_sDGU [Occ=OnceL] :: JSONPathElement | |
[LclId, Unf=OtherCon []] = | |
NO_CCS Index! [x_sDGu]; } in | |
let { | |
ys1_sDGV [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser [SQSSettings] | |
[LclId] = | |
\u [] | |
case x_sDGu of wild_sDGW { | |
__DEFAULT -> | |
case +# [wild_sDGW 1#] of sat_sDGX { | |
__DEFAULT -> $fFromJSONSQSSettings_go sat_sDGX ys_sDGy; | |
}; | |
9223372036854775807# -> z2_rDwX; | |
}; } in | |
let { | |
sat_sDH9 [Occ=Once] | |
:: forall (f5 :: * -> *) r. | |
JSONPath -> Failure f5 r -> Success [SQSSettings] f5 r -> f5 r | |
[LclId] = | |
\r [eta1_sDGY eta2_sDGZ eta3_sDH0] | |
let { | |
sat_sDH7 [Occ=Once] :: Success SQSSettings f5_auQI r_auQJ | |
[LclId] = | |
\r [a3_sDH2] | |
let { | |
sat_sDH6 [Occ=Once] :: Success [SQSSettings] f5_auQI r_auQJ | |
[LclId] = | |
\r [a4_sDH3] | |
let { | |
sat_sDH4 [Occ=Once] :: [SQSSettings] | |
[LclId] = | |
NO_CCS :! [a3_sDH2 a4_sDH3]; | |
} in eta3_sDH0 sat_sDH4; | |
} in ys1_sDGV eta1_sDGY eta2_sDGZ sat_sDH6; } in | |
let { | |
sat_sDH1 [Occ=Once] :: JSONPath | |
[LclId] = | |
NO_CCS :! [pathElem6_sDGU eta1_sDGY]; | |
} in p1_sDGz sat_sDH1 eta2_sDGZ sat_sDH7; | |
} in sat_sDH9; | |
}; | |
$fFromJSONSQSSettings_$cparseJSONList | |
:: Value -> Parser [SQSSettings] | |
[GblId, Arity=1, Str=<S,1*U>, Unf=OtherCon []] = | |
\r [ds_sDHa] | |
case ds_sDHa of wild_sDHb { | |
__DEFAULT -> | |
let { | |
msg6_sDHc [Occ=OnceL] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sDHk [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDHj [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDHi [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case wild_sDHb of { | |
Object _ [Occ=Dead] -> | |
$dmliftParseJSONList10; | |
String _ [Occ=Dead] -> | |
$dmliftParseJSONList8; | |
Number _ [Occ=Dead] -> | |
$dmliftParseJSONList6; | |
Bool _ [Occ=Dead] -> | |
$dmliftParseJSONList4; | |
Null -> $dmliftParseJSONList1; | |
}; | |
} in | |
unpackAppendCString# | |
$fFromJSONAWSCredentials1 sat_sDHi; | |
} in unpackAppendCString# $fFromJSONAWSCredentials2 sat_sDHj; | |
} in unpackAppendCString# $fFromJSONAWSCredentials3 sat_sDHk; } in | |
let { | |
sat_sDHq [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success [SQSSettings] f4 r -> f4 r | |
[LclId] = | |
\r [path_sDHl kf_sDHm _ks_sDHn] | |
let { | |
sat_sDHo [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sDHl; | |
} in kf_sDHm sat_sDHo msg6_sDHc; | |
} in sat_sDHq; | |
Array a2_sDHr [Occ=Once!] -> | |
case a2_sDHr of { | |
Vector dt_sDHt [Occ=OnceL] | |
dt1_sDHu [Occ=OnceL] | |
dt2_sDHv [Occ=OnceL] -> | |
let { | |
$wgo_sDHx [InlPrag=[0], Occ=LoopBreaker] :: Int# -> [Value] | |
[LclId, Arity=1, Str=<S,U>, Unf=OtherCon []] = | |
sat-only \r [ww_sDHy] | |
case >=# [ww_sDHy dt1_sDHu] of sat_sDHz { | |
__DEFAULT -> | |
case tagToEnum# [sat_sDHz] of { | |
False -> | |
case +# [dt_sDHt ww_sDHy] of sat_sDHB { | |
__DEFAULT -> | |
case indexArray# [dt2_sDHv sat_sDHB] of { | |
Unit# ipv_sDHE [Occ=Once] -> | |
let { | |
sat_sDHH [Occ=Once] :: [Value] | |
[LclId] = | |
\u [] | |
case +# [ww_sDHy 1#] of sat_sDHF { | |
__DEFAULT -> $wgo_sDHx sat_sDHF; | |
}; | |
} in : [ipv_sDHE sat_sDHH]; | |
}; | |
}; | |
True -> [] []; | |
}; | |
}; | |
} in | |
case $wgo_sDHx 0# of sat_sDHI { | |
__DEFAULT -> $fFromJSONSQSSettings_go 0# sat_sDHI; | |
}; | |
}; | |
}; | |
$fFromJSONSQSSettings [InlPrag=CONLIKE] :: FromJSON SQSSettings | |
[GblId[DFunId], Str=m, Unf=OtherCon []] = | |
NO_CCS C:FromJSON! [$fFromJSONSQSSettings_$cparseJSON | |
$fFromJSONSQSSettings_$cparseJSONList]; | |
$fEqSQSQueueURL [InlPrag=CONLIKE] :: Eq SQSQueueURL | |
[GblId[DFunId], Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS C:Eq! [$fEqText_$c== $fEqText_$c/=]; | |
$fShowSQSQueueURL4 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"SQSQueueURL {"#; | |
$fShowSQSQueueURL3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"unSQSQueueURL = "#; | |
$fShowSQSQueueURL2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"}"#; | |
$w$cshowsPrec [InlPrag=[0]] | |
:: Int# -> SQSQueueURL -> String -> String | |
[GblId, Arity=3, Str=<S,U><L,1*U(U,U,U)><L,U>, Unf=OtherCon []] = | |
\r [ww_sDHK w_sDHL w1_sDHM] | |
case >=# [ww_sDHK 11#] of sat_sDHO { | |
__DEFAULT -> | |
case tagToEnum# [sat_sDHO] of { | |
False -> | |
let { | |
sat_sDHW [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDHV [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDHQ [Occ=Once] :: String | |
[LclId] = | |
\u [] | |
unpackAppendCString# $fShowSQSQueueURL2 w1_sDHM; | |
} in | |
case $w$cshowsPrec w_sDHL sat_sDHQ of { | |
(#,#) ww2_sDHT [Occ=Once] ww3_sDHU [Occ=Once] -> | |
: [ww2_sDHT ww3_sDHU]; | |
}; | |
} in unpackAppendCString# $fShowSQSQueueURL3 sat_sDHV; | |
} in unpackAppendCString# $fShowSQSQueueURL4 sat_sDHW; | |
True -> | |
let { | |
sat_sDI5 [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDI4 [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDI3 [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDHZ [Occ=Once] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sDHY [Occ=Once] :: [Char] | |
[LclId] = | |
NO_CCS :! [$fShow(,)2 w1_sDHM]; | |
} in | |
unpackAppendCString# | |
$fShowSQSQueueURL2 sat_sDHY; | |
} in | |
case $w$cshowsPrec w_sDHL sat_sDHZ of { | |
(#,#) ww2_sDI1 [Occ=Once] | |
ww3_sDI2 [Occ=Once] -> | |
: [ww2_sDI1 ww3_sDI2]; | |
}; | |
} in unpackAppendCString# $fShowSQSQueueURL3 sat_sDI3; | |
} in unpackAppendCString# $fShowSQSQueueURL4 sat_sDI4; | |
} in : [$fShow(,)4 sat_sDI5]; | |
}; | |
}; | |
$fShowSQSQueueURL_$cshowsPrec [InlPrag=INLINE[0]] | |
:: Int -> SQSQueueURL -> ShowS | |
[GblId, | |
Arity=3, | |
Str=<S(S),1*U(U)><L,1*U(U,U,U)><L,U>, | |
Unf=OtherCon []] = | |
\r [w_sDI6 w1_sDI7 w2_sDI8] | |
case w_sDI6 of { | |
I# ww1_sDIa [Occ=Once] -> $w$cshowsPrec ww1_sDIa w1_sDI7 w2_sDI8; | |
}; | |
$fShowSQSQueueURL5 :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fShowSQSQueueURL2; | |
$fShowSQSQueueURL_$cshow :: SQSQueueURL -> String | |
[GblId, Arity=1, Str=<L,1*U(U,U,U)>, Unf=OtherCon []] = | |
\r [x_sDIb] | |
let { | |
sat_sDIh [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sDIg [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case $w$cshowsPrec x_sDIb $fShowSQSQueueURL5 of { | |
(#,#) ww1_sDIe [Occ=Once] ww2_sDIf [Occ=Once] -> | |
: [ww1_sDIe ww2_sDIf]; | |
}; | |
} in unpackAppendCString# $fShowSQSQueueURL3 sat_sDIg; | |
} in unpackAppendCString# $fShowSQSQueueURL4 sat_sDIh; | |
$fShowSQSQueueURL1 :: SQSQueueURL -> ShowS | |
[GblId, Arity=2, Str=<L,1*U(U,U,U)><L,U>, Unf=OtherCon []] = | |
\r [w_sDIi w1_sDIj] $w$cshowsPrec 0# w_sDIi w1_sDIj; | |
$fShowSQSQueueURL_$cshowList :: [SQSQueueURL] -> ShowS | |
[GblId, Arity=2, Unf=OtherCon []] = | |
\r [eta_B2 eta_B1] showList__ $fShowSQSQueueURL1 eta_B2 eta_B1; | |
$fShowSQSQueueURL [InlPrag=CONLIKE] :: Show SQSQueueURL | |
[GblId[DFunId], Str=m, Unf=OtherCon []] = | |
NO_CCS C:Show! [$fShowSQSQueueURL_$cshowsPrec | |
$fShowSQSQueueURL_$cshow | |
$fShowSQSQueueURL_$cshowList]; | |
awsSecretKey :: AWSCredentials -> SecretKey | |
[GblId[[RecSel]], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S(LLS),1*U(A,A,1*U(U,U,U,U))>m, | |
Unf=OtherCon []] = | |
\r [ds_sDIm] | |
case ds_sDIm of { | |
AWSCredentials _ [Occ=Dead] _ [Occ=Dead] ds3_sDIr [Occ=Once] -> | |
ds3_sDIr; | |
}; | |
awsAccessKey :: AWSCredentials -> AccessKey | |
[GblId[[RecSel]], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S(LSL),1*U(A,1*U(U,U,U,U),A)>m, | |
Unf=OtherCon []] = | |
\r [ds_sDIs] | |
case ds_sDIs of { | |
AWSCredentials _ [Occ=Dead] ds2_sDIv [Occ=Once] _ [Occ=Dead] -> | |
ds2_sDIv; | |
}; | |
awsRegion :: AWSCredentials -> Region | |
[GblId[[RecSel]], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S(SLL),1*U(1*U,A,A)>, | |
Unf=OtherCon []] = | |
\r [ds_sDIx] | |
case ds_sDIx of { | |
AWSCredentials ds1_sDIz [Occ=Once] _ [Occ=Dead] _ [Occ=Dead] -> | |
ds1_sDIz; | |
}; | |
s3Bucket :: S3Settings -> BucketName | |
[GblId[[RecSel]], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S(LS),1*U(A,1*U(U,U,U))>m, | |
Unf=OtherCon []] = | |
\r [ds_sDIC] | |
case ds_sDIC of { | |
S3Settings _ [Occ=Dead] ds2_sDIF [Occ=Once] -> ds2_sDIF; | |
}; | |
s3Credentials :: S3Settings -> AWSCredentials | |
[GblId[[RecSel]], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S(SL),1*U(1*U(U,U,U),A)>m, | |
Unf=OtherCon []] = | |
\r [ds_sDIG] | |
case ds_sDIG of { | |
S3Settings ds1_sDII [Occ=Once] _ [Occ=Dead] -> ds1_sDII; | |
}; | |
unSQSQueueURL1 :: SQSQueueURL -> SQSQueueURL | |
[GblId, | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S,1*U(U,U,U)>m, | |
Unf=OtherCon []] = | |
\r [ds_sDIK] ds_sDIK; | |
unSQSQueueURL :: SQSQueueURL -> Text | |
[GblId[[RecSel]], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S,1*U(U,U,U)>m, | |
Unf=OtherCon []] = | |
\r [eta_B1] unSQSQueueURL1 eta_B1; | |
sqsQueueURL :: SQSSettings -> SQSQueueURL | |
[GblId[[RecSel]], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S(LS),1*U(A,1*U(U,U,U))>m, | |
Unf=OtherCon []] = | |
\r [ds_sDIL] | |
case ds_sDIL of { | |
SQSSettings _ [Occ=Dead] ds2_sDIO [Occ=Once] -> ds2_sDIO; | |
}; | |
sqsCredentials :: SQSSettings -> AWSCredentials | |
[GblId[[RecSel]], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S(SL),1*U(1*U(U,U,U),A)>m, | |
Unf=OtherCon []] = | |
\r [ds_sDIP] | |
case ds_sDIP of { | |
SQSSettings ds1_sDIR [Occ=Once] _ [Occ=Dead] -> ds1_sDIR; | |
}; | |
$trModule4 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"mercury-web-backend-0.0.0-Cj9KdUSnX1JLO86MCj5tij"#; | |
$trModule3 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$trModule4]; | |
$trModule2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"AWS.Types"#; | |
$trModule1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$trModule2]; | |
$trModule :: Module | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS Module! [$trModule3 $trModule1]; | |
$krep_rDwY :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcSecretKey []]; | |
$krep1_rDwZ :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcAccessKey []]; | |
$krep2_rDx0 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcRegion []]; | |
$krep3_rDx1 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcBucketName []]; | |
$krep4_rDx2 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcText []]; | |
$tcAWSCredentials1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$fFromJSONAWSCredentials6]; | |
$tcAWSCredentials :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [444935429577525866## | |
7586524910527421543## | |
$trModule | |
$tcAWSCredentials1 | |
0# | |
krep$*]; | |
$krep5_rDx3 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcAWSCredentials []]; | |
$krep6_rDx4 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep_rDwY $krep5_rDx3]; | |
$krep7_rDx5 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep1_rDwZ $krep6_rDx4]; | |
$tc'AWSCredentials1 [InlPrag=[~]] :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep2_rDx0 $krep7_rDx5]; | |
$tc'AWSCredentials3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"'AWSCredentials"#; | |
$tc'AWSCredentials2 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tc'AWSCredentials3]; | |
$tc'AWSCredentials :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [11963169642876551354## | |
12292867203708447777## | |
$trModule | |
$tc'AWSCredentials2 | |
0# | |
$tc'AWSCredentials1]; | |
$tcS3Settings1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$fFromJSONS3Settings3]; | |
$tcS3Settings :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [14377596045244026178## | |
14237265613856600457## | |
$trModule | |
$tcS3Settings1 | |
0# | |
krep$*]; | |
$krep8_rDx6 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcS3Settings []]; | |
$krep9_rDx7 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep3_rDx1 $krep8_rDx6]; | |
$tc'S3Settings1 [InlPrag=[~]] :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep5_rDx3 $krep9_rDx7]; | |
$tc'S3Settings3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"'S3Settings"#; | |
$tc'S3Settings2 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tc'S3Settings3]; | |
$tc'S3Settings :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [13918231924130680577## | |
7135125269901536698## | |
$trModule | |
$tc'S3Settings2 | |
0# | |
$tc'S3Settings1]; | |
$tcSQSQueueURL2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"SQSQueueURL"#; | |
$tcSQSQueueURL1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tcSQSQueueURL2]; | |
$tcSQSQueueURL :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [4457833087290968742## | |
9425709806326211094## | |
$trModule | |
$tcSQSQueueURL1 | |
0# | |
krep$*]; | |
$krep10_rDx8 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcSQSQueueURL []]; | |
$tc'SQSQueueURL1 [InlPrag=[~]] :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep4_rDx2 $krep10_rDx8]; | |
$tc'SQSQueueURL3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"'SQSQueueURL"#; | |
$tc'SQSQueueURL2 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tc'SQSQueueURL3]; | |
$tc'SQSQueueURL :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [3635244871116793504## | |
3625723599306669065## | |
$trModule | |
$tc'SQSQueueURL2 | |
0# | |
$tc'SQSQueueURL1]; | |
$tcSQSSettings1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$fFromJSONSQSSettings3]; | |
$tcSQSSettings :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [696396465779044270## | |
585818041684841874## | |
$trModule | |
$tcSQSSettings1 | |
0# | |
krep$*]; | |
$krep11_rDx9 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcSQSSettings []]; | |
$krep12_rDxa :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep10_rDx8 $krep11_rDx9]; | |
$tc'SQSSettings1 [InlPrag=[~]] :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep5_rDx3 $krep12_rDxa]; | |
$tc'SQSSettings3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"'SQSSettings"#; | |
$tc'SQSSettings2 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tc'SQSSettings3]; | |
$tc'SQSSettings :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [10880781672572823331## | |
9110323071188593693## | |
$trModule | |
$tc'SQSSettings2 | |
0# | |
$tc'SQSSettings1]; | |
SQSSettings :: AWSCredentials -> SQSQueueURL -> SQSSettings | |
[GblId[DataCon], | |
Arity=2, | |
Caf=NoCafRefs, | |
Str=<L,U><L,U>m, | |
Unf=OtherCon []] = | |
\r [eta_B2 eta_B1] SQSSettings [eta_B2 eta_B1]; | |
S3Settings :: AWSCredentials -> BucketName -> S3Settings | |
[GblId[DataCon], | |
Arity=2, | |
Caf=NoCafRefs, | |
Str=<L,U><L,U>m, | |
Unf=OtherCon []] = | |
\r [eta_B2 eta_B1] S3Settings [eta_B2 eta_B1]; | |
AWSCredentials | |
:: Region -> AccessKey -> SecretKey -> AWSCredentials | |
[GblId[DataCon], | |
Arity=3, | |
Caf=NoCafRefs, | |
Str=<L,U><L,U><L,U>m, | |
Unf=OtherCon []] = | |
\r [eta_B3 eta_B2 eta_B1] AWSCredentials [eta_B3 eta_B2 eta_B1]; | |
*** End of Offense *** | |
Call stack: | |
CallStack (from HasCallStack): | |
prettyCurrentCallStack, called at compiler/utils/Outputable.hs:1133:58 in ghc:Outputable | |
callStackDoc, called at compiler/utils/Outputable.hs:1137:37 in ghc:Outputable | |
pprPanic, called at compiler/stgSyn/StgLint.hs:65:19 in ghc:StgLint | |
Please report this as a GHC bug: http://www.haskell.org/ghc/reportabug | |
[ 2 of 141] Compiling Mercury.Casing ( src/Mercury/Casing.hs, dist/build/Mercury/Casing.o ) | |
[ 3 of 141] Compiling Mercury.AesonUtils ( src/Mercury/AesonUtils.hs, dist/build/Mercury/AesonUtils.o ) | |
[ 4 of 141] Compiling Kafka.Types ( src/Kafka/Types.hs, dist/build/Kafka/Types.o ) | |
stgEqType: unequal | |
Text | |
ProcessingError | |
stgEqType: unequal | |
Text | |
DecodingError | |
stgEqType: unequal | |
Text | |
DecodingError | |
stgEqType: unequal | |
Text | |
ProcessingError | |
stgEqType: unequal | |
Text | |
KafkaHost | |
<no location info>: error: | |
ghc: panic! (the 'impossible' happened) | |
(GHC version 8.2.2 for x86_64-apple-darwin): | |
*** Stg Lint ErrMsgs: in Stg2Stg *** | |
<no location info>: warning: | |
[RHS of sat_sVDM :: [Char]] | |
In a function application, function type doesn't match arg types: | |
Function type: Text -> String -> (# Char, [Char] #) | |
Arg types: | |
ProcessingError | |
forall a. [a] | |
Expression: $w$cshowsPrec x_sVDI [] | |
<no location info>: warning: | |
[RHS of sat_sVEd :: [Char]] | |
In a function application, function type doesn't match arg types: | |
Function type: Text -> String -> (# Char, [Char] #) | |
Arg types: | |
DecodingError | |
forall a. [a] | |
Expression: $w$cshowsPrec x_sVE9 [] | |
<no location info>: warning: | |
[RHS of sat_sVES :: [Char]] | |
In a function application, function type doesn't match arg types: | |
Function type: Text -> String -> (# Char, [Char] #) | |
Arg types: | |
DecodingError | |
[Char] | |
Expression: $w$cshowsPrec b1_sVEO $fShowWALConsumerError8 | |
<no location info>: warning: | |
[RHS of sat_sVEZ :: [Char]] | |
In a function application, function type doesn't match arg types: | |
Function type: Text -> String -> (# Char, [Char] #) | |
Arg types: | |
ProcessingError | |
[Char] | |
Expression: $w$cshowsPrec b1_sVEV $fShowWALConsumerError8 | |
<no location info>: warning: | |
[RHS of sat_sVFw :: [Char]] | |
In a function application, function type doesn't match arg types: | |
Function type: Text -> String -> (# Char, [Char] #) | |
Arg types: | |
KafkaHost | |
[Char] | |
Expression: $w$cshowsPrec x_sVFs $fShowKafkaHost4 | |
*** Offending Program *** | |
$fShowKafkaEnvelope1 :: Int | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS I#! [0#]; | |
$fFromJSONKafkaEnvelope8 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"name"#; | |
lvl_rVm9 :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fFromJSONKafkaEnvelope8; | |
$fFromJSONKafkaEnvelope4 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"version"#; | |
lvl1_rVma :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fFromJSONKafkaEnvelope4; | |
$fFromJSONKafkaEnvelope2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"payload"#; | |
lvl2_rVmb :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fFromJSONKafkaEnvelope2; | |
$w$ctoEncoding [InlPrag=[0]] | |
:: forall a. ToJSON a => Text -> Int -> a -> Encoding | |
[GblId, | |
Arity=4, | |
Str=<L,1*U(A,1*C1(C(C(C1(U(U,U))))),A,A)><L,U(U,U,U)><L,U(U)><L,U>, | |
Unf=OtherCon []] = | |
\r [w_sVng ww_sVnh ww1_sVni ww2_sVnj] | |
let { | |
e_sVnk [Dmd=<L,C(C(C1(U(U,U))))>] :: Encoding | |
[LclId] = | |
\u [] | |
let { | |
sat_sVp2 [Occ=OnceL] :: Encoding | |
[LclId] = | |
\u [] | |
let { | |
g_sVoM [Occ=OnceL!, Dmd=<L,C(C(C1(U(U,U))))>] | |
:: BuildStep r_aSeX -> BuildStep r_aSeX | |
[LclId] = | |
\u [] toEncoding w_sVng ww2_sVnj; } in | |
let { | |
sat_sVp1 | |
:: BuildStep r_aSeX | |
-> BufferRange | |
-> State# RealWorld | |
-> (# State# RealWorld, BuildSignal r_aSeX #) | |
[LclId] = | |
\r [x_sVoN] | |
let { | |
w1_sVoO [Occ=OnceL, Dmd=<L,C(C1(U(U,U)))>] | |
:: BuildStep r_aSeX | |
[LclId] = | |
\u [] g_sVoM x_sVoN; } in | |
let { | |
w2_sVoP [Occ=OnceL, Dmd=<L,C(C1(U(U,U)))>] | |
:: BufferRange | |
-> State# RealWorld | |
-> (# State# RealWorld, BuildSignal r_aSeX #) | |
[LclId, | |
Arity=2, | |
Str=<S(SS),1*U(U,U)><S,U>, | |
Unf=OtherCon []] = | |
\r [w3_sVoQ w4_sVoR] | |
case w3_sVoQ of { | |
BufferRange ww4_sVoT [Occ=Once] | |
ww5_sVoU [Occ=Once] -> | |
$wcolon w1_sVoO ww4_sVoT ww5_sVoU w4_sVoR; | |
}; } in | |
let { | |
sat_sVp0 [Occ=OnceT[0]] | |
:: BufferRange | |
-> State# RealWorld | |
-> (# State# RealWorld, BuildSignal r_aSeX #) | |
[LclId] = | |
\r [w3_sVoV w4_sVoW] | |
case w3_sVoV of { | |
BufferRange ww4_sVoY [Occ=Once] | |
ww5_sVoZ [Occ=Once] -> | |
$wstring | |
lvl2_rVmb | |
w2_sVoP | |
ww4_sVoY | |
ww5_sVoZ | |
w4_sVoW; | |
}; | |
} in sat_sVp0; | |
} in sat_sVp1; } in | |
let { | |
sat_sVp3 [Occ=OnceL] :: [Encoding] | |
[LclId] = | |
NO_CCS :! [sat_sVp2 []]; } in | |
let { | |
sat_sVoL [Occ=OnceL] :: Encoding | |
[LclId] = | |
\r [x_sVnM eta_sVnN eta1_sVnO] | |
case eta_sVnN of { | |
BufferRange ww4_sVnQ [Occ=Once] ww5_sVnR [Occ=Once] -> | |
let { | |
lvl39_sVnS | |
:: BufferRange | |
-> State# RealWorld | |
-> (# State# RealWorld, BuildSignal r_aSeX #) | |
[LclId, Arity=2, Str=<S(SL),1*U(U,U)><S,U>, Unf=OtherCon []] = | |
\r [ds1_sVnT eta2_sVnU] | |
case ds1_sVnT of { | |
BufferRange dt_sVnW [Occ=Once] | |
dt1_sVnX [Occ=Once] -> | |
case ww1_sVni of { | |
I# x#_sVnZ [Occ=Once] -> | |
case | |
__pkg_ccall bytestring-0.10.8.2 [x#_sVnZ | |
dt_sVnW | |
eta2_sVnU] | |
of | |
{ (#,#) ds7_sVo2 [Occ=Once] | |
ds8_sVo3 [Occ=Once] -> | |
let { | |
sat_sVo4 [Occ=Once] :: BufferRange | |
[LclId] = | |
NO_CCS BufferRange! [ds8_sVo3 | |
dt1_sVnX]; | |
} in x_sVnM sat_sVo4 ds7_sVo2; | |
}; | |
}; | |
}; } in | |
let { | |
lvl40_sVo5 [Occ=OnceL] | |
:: BufferRange | |
-> State# RealWorld | |
-> (# State# RealWorld, BuildSignal r_aSeX #) | |
[LclId, Arity=2, Str=<S(SS),1*U(U,U)><S,U>, Unf=OtherCon []] = | |
\r [ds1_sVo6 eta2_sVo7] | |
case ds1_sVo6 of { | |
BufferRange dt_sVo9 dt1_sVoa -> | |
case | |
writeWord8OffAddr# [dt_sVo9 | |
0# | |
58## | |
eta2_sVo7] | |
of | |
s2_sVob | |
{ __DEFAULT -> | |
case | |
plusAddr# [dt_sVo9 1#] | |
of | |
ww6_sVoc [Dmd=<S,U>] | |
{ __DEFAULT -> | |
case | |
minusAddr# [dt1_sVoa ww6_sVoc] | |
of | |
sat_sVod | |
{ __DEFAULT -> | |
case | |
<# [sat_sVod 20#] | |
of | |
sat_sVoe | |
{ __DEFAULT -> | |
case | |
tagToEnum# [sat_sVoe] | |
of | |
{ False -> | |
case ww1_sVni of { | |
I# x#_sVoh [Occ=Once] -> | |
case | |
__pkg_ccall bytestring-0.10.8.2 [x#_sVoh | |
ww6_sVoc | |
s2_sVob] | |
of | |
{ (#,#) ds7_sVok [Occ=Once] | |
ds8_sVol [Occ=Once] -> | |
let { | |
sat_sVom [Occ=Once] | |
:: BufferRange | |
[LclId] = | |
NO_CCS BufferRange! [ds8_sVol | |
dt1_sVoa]; | |
} in | |
x_sVnM | |
sat_sVom | |
ds7_sVok; | |
}; | |
}; | |
True -> | |
let { | |
sat_sVon [Occ=Once] | |
:: BuildSignal | |
r_aSeX | |
[LclId] = | |
NO_CCS BufferFull! [20# | |
ww6_sVoc | |
lvl39_sVnS]; | |
} in | |
(#,#) [s2_sVob | |
sat_sVon]; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; } in | |
let { | |
sat_sVoK [Occ=Once] :: BuildStep r_aSeX | |
[LclId] = | |
\r [eta2_sVoo eta3_sVop] | |
case eta2_sVoo of { | |
BufferRange ww7_sVor ww8_sVos -> | |
case | |
minusAddr# [ww8_sVos ww7_sVor] | |
of | |
sat_sVot | |
{ __DEFAULT -> | |
case <# [sat_sVot 1#] of sat_sVou { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVou] of { | |
False -> | |
case | |
writeWord8OffAddr# [ww7_sVor | |
0# | |
58## | |
eta3_sVop] | |
of | |
s2_sVow | |
{ __DEFAULT -> | |
case | |
plusAddr# [ww7_sVor | |
1#] | |
of | |
ww9_sVox [Dmd=<S,U>] | |
{ __DEFAULT -> | |
case | |
minusAddr# [ww8_sVos | |
ww9_sVox] | |
of | |
sat_sVoy | |
{ __DEFAULT -> | |
case | |
<# [sat_sVoy | |
20#] | |
of | |
sat_sVoz | |
{ __DEFAULT -> | |
case | |
tagToEnum# [sat_sVoz] | |
of | |
{ False -> | |
case | |
ww1_sVni | |
of | |
{ I# x#_sVoC [Occ=Once] -> | |
case | |
__pkg_ccall bytestring-0.10.8.2 [x#_sVoC | |
ww9_sVox | |
s2_sVow] | |
of | |
{ (#,#) ds7_sVoF [Occ=Once] | |
ds8_sVoG [Occ=Once] -> | |
let { | |
sat_sVoH [Occ=Once] | |
:: BufferRange | |
[LclId] = | |
NO_CCS BufferRange! [ds8_sVoG | |
ww8_sVos]; | |
} in | |
x_sVnM | |
sat_sVoH | |
ds7_sVoF; | |
}; | |
}; | |
True -> | |
let { | |
sat_sVoI [Occ=Once] | |
:: BuildSignal | |
r_aSeX | |
[LclId] = | |
NO_CCS BufferFull! [20# | |
ww9_sVox | |
lvl39_sVnS]; | |
} in | |
(#,#) [s2_sVow | |
sat_sVoI]; | |
}; | |
}; | |
}; | |
}; | |
}; | |
True -> | |
let { | |
sat_sVoJ [Occ=Once] | |
:: BuildSignal r_aSeX | |
[LclId] = | |
NO_CCS BufferFull! [1# | |
ww7_sVor | |
lvl40_sVo5]; | |
} in | |
(#,#) [eta3_sVop sat_sVoJ]; | |
}; | |
}; | |
}; | |
}; | |
} in $wstring lvl1_rVma sat_sVoK ww4_sVnQ ww5_sVnR eta1_sVnO; | |
}; } in | |
let { | |
sat_sVp4 [Occ=Once] :: [Encoding' Value] | |
[LclId] = | |
NO_CCS :! [sat_sVoL sat_sVp3]; } in | |
let { | |
sat_sVnL [Occ=Once] :: Encoding' Value | |
[LclId] = | |
\r [x_sVnl eta_sVnm eta1_sVnn] | |
case eta_sVnm of { | |
BufferRange ww4_sVnp [Occ=Once] ww5_sVnq [Occ=Once] -> | |
let { | |
lvl39_sVnr [Occ=OnceL] | |
:: BufferRange | |
-> State# RealWorld | |
-> (# State# RealWorld, BuildSignal r_aSeX #) | |
[LclId, Arity=2, Str=<S(SS),1*U(U,U)><S,U>, Unf=OtherCon []] = | |
\r [ds1_sVns eta2_sVnt] | |
case ds1_sVns of { | |
BufferRange dt_sVnv dt1_sVnw [Occ=Once] -> | |
case | |
writeWord8OffAddr# [dt_sVnv | |
0# | |
58## | |
eta2_sVnt] | |
of | |
s2_sVnx | |
{ __DEFAULT -> | |
case plusAddr# [dt_sVnv 1#] of sat_sVny { | |
__DEFAULT -> | |
$wtext | |
ww_sVnh | |
x_sVnl | |
sat_sVny | |
dt1_sVnw | |
s2_sVnx; | |
}; | |
}; | |
}; } in | |
let { | |
sat_sVnK [Occ=Once] :: BuildStep r_aSeX | |
[LclId] = | |
\r [eta2_sVnz eta3_sVnA] | |
case eta2_sVnz of { | |
BufferRange ww7_sVnC ww8_sVnD -> | |
case | |
minusAddr# [ww8_sVnD ww7_sVnC] | |
of | |
sat_sVnE | |
{ __DEFAULT -> | |
case <# [sat_sVnE 1#] of sat_sVnF { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVnF] of { | |
False -> | |
case | |
writeWord8OffAddr# [ww7_sVnC | |
0# | |
58## | |
eta3_sVnA] | |
of | |
s2_sVnH | |
{ __DEFAULT -> | |
case | |
plusAddr# [ww7_sVnC | |
1#] | |
of | |
sat_sVnI | |
{ __DEFAULT -> | |
$wtext | |
ww_sVnh | |
x_sVnl | |
sat_sVnI | |
ww8_sVnD | |
s2_sVnH; | |
}; | |
}; | |
True -> | |
let { | |
sat_sVnJ [Occ=Once] | |
:: BuildSignal r_aSeX | |
[LclId] = | |
NO_CCS BufferFull! [1# | |
ww7_sVnC | |
lvl39_sVnr]; | |
} in | |
(#,#) [eta3_sVnA sat_sVnJ]; | |
}; | |
}; | |
}; | |
}; | |
} in $wstring lvl_rVm9 sat_sVnK ww4_sVnp ww5_sVnq eta1_sVnn; | |
}; | |
} in commaSep_$scommaSep sat_sVnL sat_sVp4; } in | |
let { | |
sat_sVpe [Occ=Once] | |
:: forall r. | |
BuildStep r | |
-> BufferRange | |
-> State# RealWorld | |
-> (# State# RealWorld, BuildSignal r #) | |
[LclId] = | |
\r [x_sVp5] | |
let { | |
w1_sVp6 [Occ=OnceL, Dmd=<L,C(C1(U(U,U)))>] :: BuildStep r_aSjA | |
[LclId] = | |
\u [] | |
let { | |
sat_sVp7 [Occ=Once] :: BuildStep r_aSjA | |
[LclId] = | |
\r [eta_B2 eta_B1] closeCurly1 x_sVp5 eta_B2 eta_B1; | |
} in e_sVnk sat_sVp7; } in | |
let { | |
sat_sVpd [Occ=OnceT[0]] | |
:: BufferRange | |
-> State# RealWorld -> (# State# RealWorld, BuildSignal r_aSjA #) | |
[LclId] = | |
\r [w2_sVp8 w3_sVp9] | |
case w2_sVp8 of { | |
BufferRange ww4_sVpb [Occ=Once] ww5_sVpc [Occ=Once] -> | |
$wopenCurly w1_sVp6 ww4_sVpb ww5_sVpc w3_sVp9; | |
}; | |
} in sat_sVpd; | |
} in sat_sVpe; | |
$fToJSONKafkaEnvelope_$ctoEncoding [InlPrag=INLINE[0]] | |
:: forall a. ToJSON a => KafkaEnvelope a -> Encoding | |
[GblId, | |
Arity=2, | |
Str=<L,1*U(A,1*C1(C(C(C1(U(U,U))))),A,A)><S,1*U(U(U,U,U),U(U),U)>, | |
Unf=OtherCon []] = | |
\r [w_sVpf w1_sVpg] | |
case w1_sVpg of { | |
KafkaEnvelope ww1_sVpi [Occ=Once] | |
ww2_sVpj [Occ=Once] | |
ww3_sVpk [Occ=Once] -> | |
$w$ctoEncoding w_sVpf ww1_sVpi ww2_sVpj ww3_sVpk; | |
}; | |
$fFromJSONKafkaEnvelope1 :: Text | |
[GblId] = | |
\u [] unpackCString# $fFromJSONKafkaEnvelope2; | |
$fFromJSONKafkaEnvelope3 :: Text | |
[GblId] = | |
\u [] unpackCString# $fFromJSONKafkaEnvelope4; | |
$fFromJSONKafkaEnvelope7 :: Text | |
[GblId] = | |
\u [] unpackCString# $fFromJSONKafkaEnvelope8; | |
$w$ctoJSON [InlPrag=[0]] | |
:: forall a. | |
ToJSON a => | |
ByteArray# -> Int# -> Int# -> Int# -> a -> (# Object #) | |
[GblId, | |
Arity=6, | |
Str=<S(C(S)LLL),1*U(1*C1(U),A,A,A)><L,U><L,U><L,U><S,U><L,U>, | |
Unf=OtherCon []] = | |
\r [w_sVpl ww_sVpm ww1_sVpn ww2_sVpo ww3_sVpp ww4_sVpq] | |
case $fFromJSONKafkaEnvelope7 of { | |
Text ww6_sVps [Occ=Once] ww7_sVpt [Occ=Once] ww8_sVpu [Occ=Once] -> | |
let { | |
sat_sVpv [Occ=Once] :: Text | |
[LclId] = | |
NO_CCS Text! [ww_sVpm ww1_sVpn ww2_sVpo]; } in | |
let { | |
sat_sVpw [Occ=Once] :: Value | |
[LclId] = | |
NO_CCS String! [sat_sVpv]; | |
} in | |
case | |
$w$sunsafeInsert ww6_sVps ww7_sVpt ww8_sVpu sat_sVpw Empty | |
of | |
z23_sVpx | |
{ __DEFAULT -> | |
case smallInteger ww3_sVpp of dt_sVpy { | |
__DEFAULT -> | |
case $fFromJSONKafkaEnvelope3 of { | |
Text ww10_sVpA [Occ=Once] | |
ww11_sVpB [Occ=Once] | |
ww12_sVpC [Occ=Once] -> | |
let { | |
sat_sVpD [Occ=Once] :: Scientific | |
[LclId] = | |
NO_CCS Scientific! [dt_sVpy 0#]; } in | |
let { | |
sat_sVpE [Occ=Once] :: Value | |
[LclId] = | |
NO_CCS Number! [sat_sVpD]; | |
} in | |
case | |
$w$sunsafeInsert | |
ww10_sVpA ww11_sVpB ww12_sVpC sat_sVpE z23_sVpx | |
of | |
z1_sVpF | |
{ __DEFAULT -> | |
case toJSON w_sVpl ww4_sVpq of v2_sVpG { | |
__DEFAULT -> | |
case $fFromJSONKafkaEnvelope1 of { | |
Text ww14_sVpI [Occ=Once] | |
ww15_sVpJ [Occ=Once] | |
ww16_sVpK [Occ=Once] -> | |
case | |
$w$sunsafeInsert | |
ww14_sVpI | |
ww15_sVpJ | |
ww16_sVpK | |
v2_sVpG | |
z1_sVpF | |
of | |
dt1_sVpL | |
{ __DEFAULT -> Unit# [dt1_sVpL]; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
$fToJSONKafkaEnvelope_$ctoJSON [InlPrag=INLINE[0]] | |
:: forall a. ToJSON a => KafkaEnvelope a -> Value | |
[GblId, | |
Arity=2, | |
Str=<S(C(S)LLL),1*U(1*C1(U),A,A,A)><S(S(SSS)S(S)L),1*U(1*U(U,U,U),1*U(U),U)>m1, | |
Unf=OtherCon []] = | |
\r [w_sVpM w1_sVpN] | |
case w1_sVpN of { | |
KafkaEnvelope ww1_sVpP [Occ=Once!] | |
ww2_sVpQ [Occ=Once!] | |
ww3_sVpR [Occ=Once] -> | |
case ww1_sVpP of { | |
Text ww5_sVpT [Occ=Once] ww6_sVpU [Occ=Once] ww7_sVpV [Occ=Once] -> | |
case ww2_sVpQ of { | |
I# ww9_sVpX [Occ=Once] -> | |
case | |
$w$ctoJSON w_sVpM ww5_sVpT ww6_sVpU ww7_sVpV ww9_sVpX ww3_sVpR | |
of | |
{ Unit# ww11_sVpZ [Occ=Once] -> Object [ww11_sVpZ]; | |
}; | |
}; | |
}; | |
}; | |
$s$wfoldlM_loop_rVmc | |
:: State# RealWorld | |
-> [Value] | |
-> Int# | |
-> MutableArray# RealWorld Value | |
-> Int# | |
-> Int# | |
-> (# State# RealWorld, Vector Value #) | |
[GblId, | |
Arity=6, | |
Str=<S,U><S,1*U><L,U><S,U><L,U><L,U>, | |
Unf=OtherCon []] = | |
sat-only \r [sc_sVq0 sc1_sVq1 sc2_sVq2 sc3_sVq3 sc4_sVq4 sc5_sVq5] | |
case sc1_sVq1 of { | |
[] -> | |
case unsafeFreezeArray# [sc3_sVq3 sc_sVq0] of { | |
(#,#) ipv_sVq8 [Occ=Once] ipv1_sVq9 [Occ=Once] -> | |
let { | |
sat_sVqa [Occ=Once] :: Vector Value | |
[LclId] = | |
NO_CCS Vector! [sc5_sVq5 sc2_sVq2 ipv1_sVq9]; | |
} in (#,#) [ipv_sVq8 sat_sVqa]; | |
}; | |
: x_sVqb [Occ=Once*] xs1_sVqc [Occ=Once*] -> | |
case +# [sc2_sVq2 1#] of y_sVqd [Dmd=<S,U>] { | |
__DEFAULT -> | |
case <# [sc4_sVq4 y_sVqd] of sat_sVqe { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVqe] of { | |
False -> | |
case +# [sc5_sVq5 sc2_sVq2] of sat_sVqg { | |
__DEFAULT -> | |
case | |
writeArray# [sc3_sVq3 sat_sVqg x_sVqb sc_sVq0] | |
of | |
s'#_sVqh | |
{ __DEFAULT -> | |
$s$wfoldlM_loop_rVmc | |
s'#_sVqh | |
xs1_sVqc | |
y_sVqd | |
sc3_sVq3 | |
sc4_sVq4 | |
sc5_sVq5; | |
}; | |
}; | |
True -> | |
case <=# [sc4_sVq4 1#] of sat_sVqi { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVqi] of { | |
False -> | |
case -# [y_sVqd sc4_sVq4] of y2_sVqk [Dmd=<S,U>] { | |
__DEFAULT -> | |
case <=# [sc4_sVq4 y2_sVqk] of sat_sVql { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVql] of { | |
False -> | |
case | |
+# [sc4_sVq4 sc4_sVq4] | |
of | |
n#_sVqn [Dmd=<S,U>] | |
{ __DEFAULT -> | |
case | |
newArray# [n#_sVqn | |
uninitialised | |
sc_sVq0] | |
of | |
{ (#,#) ipv_sVqp [Occ=Once] | |
ipv1_sVqq -> | |
case | |
copyMutableArray# [sc3_sVq3 | |
sc5_sVq5 | |
ipv1_sVqq | |
0# | |
sc4_sVq4 | |
ipv_sVqp] | |
of | |
s'#_sVqr | |
{ __DEFAULT -> | |
case | |
writeArray# [ipv1_sVqq | |
sc2_sVq2 | |
x_sVqb | |
s'#_sVqr] | |
of | |
s'#1_sVqs | |
{ __DEFAULT -> | |
$s$wfoldlM_loop_rVmc | |
s'#1_sVqs | |
xs1_sVqc | |
y_sVqd | |
ipv1_sVqq | |
n#_sVqn | |
0#; | |
}; | |
}; | |
}; | |
}; | |
True -> | |
case | |
+# [sc4_sVq4 y2_sVqk] | |
of | |
n#_sVqt [Dmd=<S,U>] | |
{ __DEFAULT -> | |
case | |
newArray# [n#_sVqt | |
uninitialised | |
sc_sVq0] | |
of | |
{ (#,#) ipv_sVqv [Occ=Once] | |
ipv1_sVqw -> | |
case | |
copyMutableArray# [sc3_sVq3 | |
sc5_sVq5 | |
ipv1_sVqw | |
0# | |
sc4_sVq4 | |
ipv_sVqv] | |
of | |
s'#_sVqx | |
{ __DEFAULT -> | |
case | |
writeArray# [ipv1_sVqw | |
sc2_sVq2 | |
x_sVqb | |
s'#_sVqx] | |
of | |
s'#1_sVqy | |
{ __DEFAULT -> | |
$s$wfoldlM_loop_rVmc | |
s'#1_sVqy | |
xs1_sVqc | |
y_sVqd | |
ipv1_sVqw | |
n#_sVqt | |
0#; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
True -> | |
case -# [y_sVqd sc4_sVq4] of y2_sVqz [Dmd=<S,U>] { | |
__DEFAULT -> | |
case <=# [1# y2_sVqz] of sat_sVqA { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVqA] of { | |
False -> | |
case | |
+# [sc4_sVq4 1#] | |
of | |
n#_sVqC [Dmd=<S,U>] | |
{ __DEFAULT -> | |
case | |
newArray# [n#_sVqC | |
uninitialised | |
sc_sVq0] | |
of | |
{ (#,#) ipv_sVqE [Occ=Once] | |
ipv1_sVqF -> | |
case | |
copyMutableArray# [sc3_sVq3 | |
sc5_sVq5 | |
ipv1_sVqF | |
0# | |
sc4_sVq4 | |
ipv_sVqE] | |
of | |
s'#_sVqG | |
{ __DEFAULT -> | |
case | |
writeArray# [ipv1_sVqF | |
sc2_sVq2 | |
x_sVqb | |
s'#_sVqG] | |
of | |
s'#1_sVqH | |
{ __DEFAULT -> | |
$s$wfoldlM_loop_rVmc | |
s'#1_sVqH | |
xs1_sVqc | |
y_sVqd | |
ipv1_sVqF | |
n#_sVqC | |
0#; | |
}; | |
}; | |
}; | |
}; | |
True -> | |
case | |
+# [sc4_sVq4 y2_sVqz] | |
of | |
n#_sVqI [Dmd=<S,U>] | |
{ __DEFAULT -> | |
case | |
newArray# [n#_sVqI | |
uninitialised | |
sc_sVq0] | |
of | |
{ (#,#) ipv_sVqK [Occ=Once] | |
ipv1_sVqL -> | |
case | |
copyMutableArray# [sc3_sVq3 | |
sc5_sVq5 | |
ipv1_sVqL | |
0# | |
sc4_sVq4 | |
ipv_sVqK] | |
of | |
s'#_sVqM | |
{ __DEFAULT -> | |
case | |
writeArray# [ipv1_sVqL | |
sc2_sVq2 | |
x_sVqb | |
s'#_sVqM] | |
of | |
s'#1_sVqN | |
{ __DEFAULT -> | |
$s$wfoldlM_loop_rVmc | |
s'#1_sVqN | |
xs1_sVqc | |
y_sVqd | |
ipv1_sVqL | |
n#_sVqI | |
0#; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
$fToJSONKafkaEnvelope_$ctoJSONList [InlPrag=INLINE (sat-args=0)] | |
:: forall a. ToJSON a => [KafkaEnvelope a] -> Value | |
[GblId, Arity=2, Str=<L,U(C(U),A,A,A)><S,1*U>m2, Unf=OtherCon []] = | |
\r [$dToJSON_sVqO eta_sVqP] | |
case | |
case newArray# [0# uninitialised realWorld#] of { | |
(#,#) ipv_sVqR [Occ=Once] ipv1_sVqS [Occ=Once] -> | |
let { | |
sat_sVqT [Occ=Once] :: KafkaEnvelope a_aRIG -> Value | |
[LclId] = | |
\r [eta_B1] $fToJSONKafkaEnvelope_$ctoJSON $dToJSON_sVqO eta_B1; | |
} in | |
case map sat_sVqT eta_sVqP of sat_sVqU { | |
__DEFAULT -> | |
$s$wfoldlM_loop_rVmc ipv_sVqR sat_sVqU 0# ipv1_sVqS 0# 0#; | |
}; | |
} | |
of | |
{ (#,#) _ [Occ=Dead] ipv2_sVqX [Occ=Once!] -> | |
case ipv2_sVqX of dt_sVqY { | |
Vector _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> Array [dt_sVqY]; | |
}; | |
}; | |
z_rVmd | |
:: forall r. BuildStep r -> BufferRange -> IO (BuildSignal r) | |
[GblId, | |
Arity=2, | |
Caf=NoCafRefs, | |
Str=<C(S),1*C1(U)><L,U>, | |
Unf=OtherCon []] = | |
\r [cont_sVr2 range_sVr3] cont_sVr2 range_sVr3; | |
$fToJSONKafkaEnvelope_$ctoEncodingList [InlPrag=INLINE (sat-args=0)] | |
:: forall a. ToJSON a => [KafkaEnvelope a] -> Encoding | |
[GblId, | |
Arity=2, | |
Str=<L,U(A,C(C(C(C1(U(U,U))))),A,A)><S,1*U>, | |
Unf=OtherCon []] = | |
\r [$dToJSON_sVr4 eta_sVr5] | |
case eta_sVr5 of { | |
[] -> emptyArray_1; | |
: x_sVr7 [Occ=Once!] xs_sVr8 -> | |
let { | |
f_sVr9 [Occ=OnceL!, Dmd=<L,C(C(C1(U(U,U))))>] | |
:: BuildStep r_aSeX -> BuildStep r_aSeX | |
[LclId] = | |
\u [] | |
case x_sVr7 of { | |
KafkaEnvelope ww1_sVrb [Occ=Once] | |
ww2_sVrc [Occ=Once] | |
ww3_sVrd [Occ=Once] -> | |
$w$ctoEncoding $dToJSON_sVr4 ww1_sVrb ww2_sVrc ww3_sVrd; | |
}; } in | |
let { | |
f1_sVre [Occ=OnceL!, Dmd=<L,C(U)>] | |
:: BuildStep r_aSeX -> BuildStep r_aSeX | |
[LclId] = | |
\u [] | |
let { | |
go_sVrf [Occ=LoopBreaker] | |
:: [KafkaEnvelope a_aRIG] -> Encoding' Value | |
[LclId, Arity=1, Str=<S,1*U>, Unf=OtherCon []] = | |
sat-only \r [ds1_sVrg] | |
case ds1_sVrg of { | |
[] -> z_rVmd; | |
: y_sVri [Occ=Once!] ys_sVrj [Occ=Once] -> | |
let { | |
vs_sVrk [Dmd=<L,C(U)>] :: Encoding' Value | |
[LclId] = | |
\u [] go_sVrf ys_sVrj; } in | |
let { | |
f2_sVrl [Occ=OnceL!, Dmd=<L,C(C(C1(U(U,U))))>] | |
:: BuildStep r1_XSkB -> BuildStep r1_XSkB | |
[LclId] = | |
\u [] | |
case y_sVri of { | |
KafkaEnvelope ww1_sVrn [Occ=Once] | |
ww2_sVro [Occ=Once] | |
ww3_sVrp [Occ=Once] -> | |
$w$ctoEncoding | |
$dToJSON_sVr4 | |
ww1_sVrn | |
ww2_sVro | |
ww3_sVrp; | |
}; } in | |
let { | |
sat_sVrz [Occ=Once] | |
:: BuildStep r1_XSkB | |
-> BufferRange | |
-> State# RealWorld | |
-> (# State# RealWorld, BuildSignal r1_XSkB #) | |
[LclId] = | |
\r [x1_sVrq] | |
let { | |
w_sVrr [Occ=OnceL, Dmd=<L,C(C1(U(U,U)))>] | |
:: BuildStep r1_XSkB | |
[LclId] = | |
\u [] | |
let { | |
sat_sVrs [Occ=Once] | |
:: BuildStep r1_XSkB | |
[LclId] = | |
\u [] vs_sVrk x1_sVrq; | |
} in f2_sVrl sat_sVrs; } in | |
let { | |
sat_sVry [Occ=OnceT[0]] | |
:: BufferRange | |
-> State# RealWorld | |
-> (# State# RealWorld, | |
BuildSignal r1_XSkB #) | |
[LclId] = | |
\r [w1_sVrt w2_sVru] | |
case w1_sVrt of { | |
BufferRange ww1_sVrw [Occ=Once] | |
ww2_sVrx [Occ=Once] -> | |
$wcomma | |
w_sVrr | |
ww1_sVrw | |
ww2_sVrx | |
w2_sVru; | |
}; | |
} in sat_sVry; | |
} in sat_sVrz; | |
}; | |
} in go_sVrf xs_sVr8; } in | |
let { | |
sat_sVrK [Occ=Once] | |
:: BuildStep r_aSeX | |
-> BufferRange | |
-> State# RealWorld | |
-> (# State# RealWorld, BuildSignal r_aSeX #) | |
[LclId] = | |
\r [x1_sVrA] | |
let { | |
w_sVrB [Occ=OnceL, Dmd=<L,C(C1(U(U,U)))>] :: BuildStep r_aSeX | |
[LclId] = | |
\u [] | |
let { | |
sat_sVrD [Occ=Once] :: BuildStep r_aSeX | |
[LclId] = | |
\u [] | |
let { | |
sat_sVrC [Occ=Once] :: BuildStep r_aSeX | |
[LclId] = | |
\r [eta_B2 eta_B1] | |
closeBracket1 x1_sVrA eta_B2 eta_B1; | |
} in f1_sVre sat_sVrC; | |
} in f_sVr9 sat_sVrD; } in | |
let { | |
sat_sVrJ [Occ=OnceT[0]] | |
:: BufferRange | |
-> State# RealWorld -> (# State# RealWorld, BuildSignal r_aSeX #) | |
[LclId] = | |
\r [w1_sVrE w2_sVrF] | |
case w1_sVrE of { | |
BufferRange ww1_sVrH [Occ=Once] ww2_sVrI [Occ=Once] -> | |
$wopenBracket w_sVrB ww1_sVrH ww2_sVrI w2_sVrF; | |
}; | |
} in sat_sVrJ; | |
} in sat_sVrK; | |
}; | |
$fToJSONKafkaEnvelope [InlPrag=CONLIKE] | |
:: forall a. ToJSON a => ToJSON (KafkaEnvelope a) | |
[GblId[DFunId], | |
Arity=1, | |
Str=<L,U(C(U),C(C(C(C1(U(U,U))))),A,A)>m, | |
Unf=OtherCon []] = | |
\r [$dToJSON_sVrL] | |
let { | |
sat_sVrP [Occ=Once] :: [KafkaEnvelope a_aRIG] -> Encoding | |
[LclId] = | |
\r [eta_B1] | |
$fToJSONKafkaEnvelope_$ctoEncodingList $dToJSON_sVrL eta_B1; } in | |
let { | |
sat_sVrO [Occ=Once] :: [KafkaEnvelope a_aRIG] -> Value | |
[LclId] = | |
\r [eta_B1] | |
$fToJSONKafkaEnvelope_$ctoJSONList $dToJSON_sVrL eta_B1; } in | |
let { | |
sat_sVrN [Occ=Once] :: KafkaEnvelope a_aRIG -> Encoding | |
[LclId] = | |
\r [eta_B1] | |
$fToJSONKafkaEnvelope_$ctoEncoding $dToJSON_sVrL eta_B1; } in | |
let { | |
sat_sVrM [Occ=Once] :: KafkaEnvelope a_aRIG -> Value | |
[LclId] = | |
\r [eta_B1] $fToJSONKafkaEnvelope_$ctoJSON $dToJSON_sVrL eta_B1; | |
} in C:ToJSON [sat_sVrM sat_sVrN sat_sVrO sat_sVrP]; | |
$fFromJSONKafkaEnvelope14 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"KafkaEnvelope"#; | |
$fFromJSONKafkaEnvelope13 :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fFromJSONKafkaEnvelope14; | |
$fFromJSONKafkaEnvelope12 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Kafka.Types.KafkaEnvelope"#; | |
$fFromJSONKafkaEnvelope11 :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fFromJSONKafkaEnvelope12; | |
$fFromJSONKafkaEnvelope10 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Object"#; | |
$fFromJSONKafkaEnvelope9 :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fFromJSONKafkaEnvelope10; | |
$fFromJSONKafkaEnvelope6 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"elope"#; | |
$fFromJSONKafkaEnvelope5 :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fFromJSONKafkaEnvelope6; | |
$fFromJSONKafkaEnvelope_$cparseJSON | |
:: forall a. FromJSON a => Value -> Parser (KafkaEnvelope a) | |
[GblId, | |
Arity=2, | |
Str=<L,1*U(1*C1(C(C1(C1(U)))),A)><S,1*U>, | |
Unf=OtherCon []] = | |
\r [$dFromJSON_sVrQ value_sVrR] | |
case value_sVrR of wild_sVrS { | |
__DEFAULT -> | |
let { | |
sat_sVrY [Occ=Once] :: String | |
[LclId] = | |
\u [] | |
case wild_sVrS of { | |
Array _ [Occ=Dead] -> valueConName9; | |
String _ [Occ=Dead] -> valueConName7; | |
Number _ [Occ=Dead] -> valueConName5; | |
Bool _ [Occ=Dead] -> valueConName3; | |
Null -> valueConName1; | |
}; | |
} in | |
parseTypeMismatch' | |
$fFromJSONKafkaEnvelope13 | |
$fFromJSONKafkaEnvelope11 | |
$fFromJSONKafkaEnvelope9 | |
sat_sVrY; | |
Object recObj_sVrZ -> | |
let { | |
m_sVs0 [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser Text | |
[LclId] = | |
\u [] | |
case $fFromJSONKafkaEnvelope7 of { | |
Text ww1_sVs2 [Occ=Once] ww2_sVs3 [Occ=Once] ww3_sVs4 [Occ=Once] -> | |
$w$clookupField1 | |
$fFromJSONText0_$cparseJSON | |
$fFromJSONKafkaEnvelope11 | |
$fFromJSONKafkaEnvelope5 | |
recObj_sVrZ | |
ww1_sVs2 | |
ww2_sVs3 | |
ww3_sVs4; | |
}; } in | |
let { | |
e_sVs5 [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser Int | |
[LclId] = | |
\u [] | |
case $fFromJSONKafkaEnvelope3 of { | |
Text ww1_sVs7 [Occ=Once] ww2_sVs8 [Occ=Once] ww3_sVs9 [Occ=Once] -> | |
$w$clookupField1 | |
$fFromJSON1IntMap_$cparseJSON | |
$fFromJSONKafkaEnvelope11 | |
$fFromJSONKafkaEnvelope5 | |
recObj_sVrZ | |
ww1_sVs7 | |
ww2_sVs8 | |
ww3_sVs9; | |
}; } in | |
let { | |
e1_sVsa [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser a_aRHS | |
[LclId] = | |
\u [] | |
case $fFromJSONKafkaEnvelope1 of { | |
Text ww1_sVsc [Occ=Once] ww2_sVsd [Occ=Once] ww3_sVse [Occ=Once] -> | |
let { | |
sat_sVsf [Occ=Once, Dmd=<L,1*C1(C(C1(C1(U))))>] | |
:: Value -> Parser a_aRHS | |
[LclId] = | |
\s [] parseJSON $dFromJSON_sVrQ; | |
} in | |
$w$clookupField1 | |
sat_sVsf | |
$fFromJSONKafkaEnvelope11 | |
$fFromJSONKafkaEnvelope5 | |
recObj_sVrZ | |
ww1_sVsc | |
ww2_sVsd | |
ww3_sVse; | |
}; } in | |
let { | |
sat_sVsq [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath | |
-> Failure f4 r -> Success (KafkaEnvelope a_aRHS) f4 r -> f4 r | |
[LclId] = | |
\r [path_sVsg kf_sVsh ks_sVsi] | |
let { | |
sat_sVsp [Occ=Once] :: Success Text f4_Xvhu r_Xvhw | |
[LclId] = | |
\r [a1_sVsj] | |
let { | |
sat_sVso [Occ=Once] :: Success Int f4_Xvhu r_Xvhw | |
[LclId] = | |
\r [a2_sVsk] | |
let { | |
sat_sVsn [Occ=Once] :: Success a_aRHS f4_Xvhu r_Xvhw | |
[LclId] = | |
\r [a4_sVsl] | |
let { | |
sat_sVsm [Occ=Once] | |
:: KafkaEnvelope a_aRHS | |
[LclId] = | |
NO_CCS KafkaEnvelope! [a1_sVsj | |
a2_sVsk | |
a4_sVsl]; | |
} in ks_sVsi sat_sVsm; | |
} in e1_sVsa path_sVsg kf_sVsh sat_sVsn; | |
} in e_sVs5 path_sVsg kf_sVsh sat_sVso; | |
} in m_sVs0 path_sVsg kf_sVsh sat_sVsp; | |
} in sat_sVsq; | |
}; | |
$fFromJSONKafkaEnvelope15 | |
:: forall a (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success [KafkaEnvelope a] f4 r -> f4 r | |
[GblId, | |
Arity=3, | |
Caf=NoCafRefs, | |
Str=<L,A><L,A><C(S),1*C1(U)>, | |
Unf=OtherCon []] = | |
\r [_path_sVsr _kf_sVss ks_sVst] ks_sVst []; | |
$fFromJSONKafkaEnvelope18 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"expected "#; | |
$fFromJSONKafkaEnvelope17 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"[a]"#; | |
$fFromJSONKafkaEnvelope16 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
", encountered "#; | |
$fFromJSONKafkaEnvelope_$cparseJSONList | |
:: forall a. FromJSON a => Value -> Parser [KafkaEnvelope a] | |
[GblId, | |
Arity=2, | |
Str=<L,U(C(C(C1(C1(U)))),A)><S,1*U>, | |
Unf=OtherCon []] = | |
\r [$dFromJSON_sVsu ds1_sVsv] | |
case ds1_sVsv of wild_sVsw { | |
__DEFAULT -> | |
let { | |
msg1_sVsx [Occ=OnceL] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sVsF [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVsE [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVsD [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case wild_sVsw of { | |
Object _ [Occ=Dead] -> | |
$dmliftParseJSONList10; | |
String _ [Occ=Dead] -> | |
$dmliftParseJSONList8; | |
Number _ [Occ=Dead] -> | |
$dmliftParseJSONList6; | |
Bool _ [Occ=Dead] -> | |
$dmliftParseJSONList4; | |
Null -> $dmliftParseJSONList1; | |
}; | |
} in | |
unpackAppendCString# | |
$fFromJSONKafkaEnvelope16 sat_sVsD; | |
} in unpackAppendCString# $fFromJSONKafkaEnvelope17 sat_sVsE; | |
} in unpackAppendCString# $fFromJSONKafkaEnvelope18 sat_sVsF; } in | |
let { | |
sat_sVsK [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath | |
-> Failure f4 r -> Success [KafkaEnvelope a_aRHS] f4 r -> f4 r | |
[LclId] = | |
\r [path_sVsG kf_sVsH _ks_sVsI] | |
let { | |
sat_sVsJ [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sVsG; | |
} in kf_sVsH sat_sVsJ msg1_sVsx; | |
} in sat_sVsK; | |
Array a2_sVsL [Occ=Once!] -> | |
case a2_sVsL of { | |
Vector dt_sVsN [Occ=OnceL] | |
dt1_sVsO [Occ=OnceL] | |
dt2_sVsP [Occ=OnceL] -> | |
let { | |
go_sVsQ [Occ=LoopBreaker] | |
:: Int# -> [Value] -> Parser [KafkaEnvelope a_aRHS] | |
[LclId, Arity=2, Str=<L,U><S,1*U>, Unf=OtherCon []] = | |
sat-only \r [x_sVsR eta_sVsS] | |
case eta_sVsS of { | |
[] -> $fFromJSONKafkaEnvelope15; | |
: y_sVsU [Occ=Once] ys_sVsV [Occ=Once] -> | |
let { | |
p1_sVsW [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] | |
:: Parser (KafkaEnvelope a_aRHS) | |
[LclId] = | |
\u [] | |
$fFromJSONKafkaEnvelope_$cparseJSON | |
$dFromJSON_sVsu y_sVsU; } in | |
let { | |
pathElem1_sVsX [Occ=OnceL] :: JSONPathElement | |
[LclId, Unf=OtherCon []] = | |
NO_CCS Index! [x_sVsR]; } in | |
let { | |
ys1_sVsY [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] | |
:: Parser [KafkaEnvelope a_aRHS] | |
[LclId] = | |
\u [] | |
case x_sVsR of wild3_sVsZ { | |
__DEFAULT -> | |
case +# [wild3_sVsZ 1#] of sat_sVt0 { | |
__DEFAULT -> go_sVsQ sat_sVt0 ys_sVsV; | |
}; | |
9223372036854775807# -> $fFromJSONKafkaEnvelope15; | |
}; } in | |
let { | |
sat_sVta [Occ=Once] | |
:: forall (f5 :: * -> *) r. | |
JSONPath | |
-> Failure f5 r | |
-> Success [KafkaEnvelope a_aRHS] f5 r | |
-> f5 r | |
[LclId] = | |
\r [eta1_sVt1 eta2_sVt2 eta3_sVt3] | |
let { | |
sat_sVt9 [Occ=Once] | |
:: Success (KafkaEnvelope a_aRHS) f5_auQI r_auQJ | |
[LclId] = | |
\r [a3_sVt5] | |
let { | |
sat_sVt8 [Occ=Once] | |
:: Success | |
[KafkaEnvelope a_aRHS] | |
f5_auQI | |
r_auQJ | |
[LclId] = | |
\r [a4_sVt6] | |
let { | |
sat_sVt7 [Occ=Once] | |
:: [KafkaEnvelope a_aRHS] | |
[LclId] = | |
NO_CCS :! [a3_sVt5 | |
a4_sVt6]; | |
} in eta3_sVt3 sat_sVt7; | |
} in | |
ys1_sVsY | |
eta1_sVt1 eta2_sVt2 sat_sVt8; } in | |
let { | |
sat_sVt4 [Occ=Once] :: JSONPath | |
[LclId] = | |
NO_CCS :! [pathElem1_sVsX eta1_sVt1]; | |
} in p1_sVsW sat_sVt4 eta2_sVt2 sat_sVt9; | |
} in sat_sVta; | |
}; } in | |
let { | |
$wgo_sVtb [InlPrag=[0], Occ=LoopBreaker] :: Int# -> [Value] | |
[LclId, Arity=1, Str=<S,U>, Unf=OtherCon []] = | |
sat-only \r [ww_sVtc] | |
case >=# [ww_sVtc dt1_sVsO] of sat_sVtd { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVtd] of { | |
False -> | |
case +# [dt_sVsN ww_sVtc] of sat_sVtf { | |
__DEFAULT -> | |
case indexArray# [dt2_sVsP sat_sVtf] of { | |
Unit# ipv_sVth [Occ=Once] -> | |
let { | |
sat_sVtj [Occ=Once] :: [Value] | |
[LclId] = | |
\u [] | |
case +# [ww_sVtc 1#] of sat_sVti { | |
__DEFAULT -> $wgo_sVtb sat_sVti; | |
}; | |
} in : [ipv_sVth sat_sVtj]; | |
}; | |
}; | |
True -> [] []; | |
}; | |
}; | |
} in | |
case $wgo_sVtb 0# of sat_sVtk { | |
__DEFAULT -> go_sVsQ 0# sat_sVtk; | |
}; | |
}; | |
}; | |
$fFromJSONKafkaEnvelope [InlPrag=CONLIKE] | |
:: forall a. FromJSON a => FromJSON (KafkaEnvelope a) | |
[GblId[DFunId], | |
Arity=1, | |
Str=<L,U(C(C(C1(C1(U)))),A)>m, | |
Unf=OtherCon []] = | |
\r [$dFromJSON_sVtl] | |
let { | |
sat_sVtn [Occ=Once] :: Value -> Parser [KafkaEnvelope a_aRHS] | |
[LclId] = | |
\r [eta_B1] | |
$fFromJSONKafkaEnvelope_$cparseJSONList | |
$dFromJSON_sVtl eta_B1; } in | |
let { | |
sat_sVtm [Occ=Once] :: Value -> Parser (KafkaEnvelope a_aRHS) | |
[LclId] = | |
\r [eta_B1] | |
$fFromJSONKafkaEnvelope_$cparseJSON $dFromJSON_sVtl eta_B1; | |
} in C:FromJSON [sat_sVtm sat_sVtn]; | |
$fFromJSONPostgresOperation3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"PostgresOperation"#; | |
$fFromJSONPostgresOperation2 :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fFromJSONPostgresOperation3; | |
lvl3_rVme | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success PostgresOperation f4 r -> f4 r | |
[GblId, | |
Arity=3, | |
Caf=NoCafRefs, | |
Str=<L,A><L,A><C(S),1*C1(U)>, | |
Unf=OtherCon []] = | |
\r [_path_sVto _kf_sVtp ks_sVtq] ks_sVtq OperationSnapshot; | |
lvl4_rVmf :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"r"#; | |
lvl5_rVmg :: Text | |
[GblId] = | |
\u [] unpackCString# lvl4_rVmf; | |
lvl6_rVmh | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success PostgresOperation f4 r -> f4 r | |
[GblId, | |
Arity=3, | |
Caf=NoCafRefs, | |
Str=<L,A><L,A><C(S),1*C1(U)>, | |
Unf=OtherCon []] = | |
\r [_path_sVtr _kf_sVts ks_sVtt] ks_sVtt OperationDelete; | |
lvl7_rVmi :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"d"#; | |
lvl8_rVmj :: Text | |
[GblId] = | |
\u [] unpackCString# lvl7_rVmi; | |
lvl9_rVmk | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success PostgresOperation f4 r -> f4 r | |
[GblId, | |
Arity=3, | |
Caf=NoCafRefs, | |
Str=<L,A><L,A><C(S),1*C1(U)>, | |
Unf=OtherCon []] = | |
\r [_path_sVtu _kf_sVtv ks_sVtw] ks_sVtw OperationUpdate; | |
lvl10_rVml :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"u"#; | |
lvl11_rVmm :: Text | |
[GblId] = | |
\u [] unpackCString# lvl10_rVml; | |
lvl12_rVmn | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success PostgresOperation f4 r -> f4 r | |
[GblId, | |
Arity=3, | |
Caf=NoCafRefs, | |
Str=<L,A><L,A><C(S),1*C1(U)>, | |
Unf=OtherCon []] = | |
\r [_path_sVtx _kf_sVty ks_sVtz] ks_sVtz OperationInsert; | |
lvl13_rVmo :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"c"#; | |
lvl14_rVmp :: Text | |
[GblId] = | |
\u [] unpackCString# lvl13_rVmo; | |
lvl15_rVmq :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Couldn't decode PostgresOperation from: "#; | |
$w$cparseJSON [InlPrag=[0]] | |
:: ByteArray# -> Int# -> Int# -> Parser PostgresOperation | |
[GblId, Arity=3, Str=<L,U><L,U><S,U>, Unf=OtherCon []] = | |
\r [ww_sVtA ww1_sVtB ww2_sVtC] | |
case lvl14_rVmp of { | |
Text dt3_sVtE [Occ=Once] dt4_sVtF [Occ=Once] dt5_sVtG [Occ=Once] -> | |
case ==# [ww2_sVtC dt5_sVtG] of sat_sVv5 { | |
__DEFAULT -> | |
let-no-escape { | |
$j_sVtH [Occ=Once*T[0], Dmd=<L,1*U>] :: Parser PostgresOperation | |
[LclId[JoinId(0)], Unf=OtherCon []] = | |
\r [] | |
case lvl11_rVmm of { | |
Text dt1_sVtJ [Occ=Once] | |
dt2_sVtK [Occ=Once] | |
dt6_sVtL [Occ=Once] -> | |
case ==# [ww2_sVtC dt6_sVtL] of sat_sVuV { | |
__DEFAULT -> | |
let-no-escape { | |
$j1_sVtM [Occ=Once*T[0], Dmd=<L,1*U>] | |
:: Parser PostgresOperation | |
[LclId[JoinId(0)], Unf=OtherCon []] = | |
\r [] | |
case lvl8_rVmj of { | |
Text dt7_sVtO [Occ=Once] | |
dt8_sVtP [Occ=Once] | |
dt9_sVtQ [Occ=Once] -> | |
case | |
==# [ww2_sVtC dt9_sVtQ] | |
of | |
sat_sVuL | |
{ __DEFAULT -> | |
let-no-escape { | |
$j2_sVtR [Occ=Once*T[0], | |
Dmd=<L,1*U>] | |
:: Parser PostgresOperation | |
[LclId[JoinId(0)], | |
Unf=OtherCon []] = | |
\r [] | |
case lvl5_rVmg of { | |
Text dt10_sVtT [Occ=Once] | |
dt11_sVtU [Occ=Once] | |
dt12_sVtV [Occ=Once] -> | |
case | |
==# [ww2_sVtC | |
dt12_sVtV] | |
of | |
sat_sVuB | |
{ __DEFAULT -> | |
let-no-escape { | |
$j3_sVtW [Occ=Once*T[0], | |
Dmd=<L,1*U>] | |
:: Parser | |
PostgresOperation | |
[LclId[JoinId(0)], | |
Unf=OtherCon []] = | |
\r [] | |
let { | |
msg_sVtX [Occ=OnceL] | |
:: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sVuv [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
case | |
+# [ww1_sVtB | |
ww2_sVtC] | |
of | |
end_sVtY [Dmd=<S,U>] | |
{ __DEFAULT -> | |
let { | |
$wunfold_sVtZ [InlPrag=[0], | |
Occ=LoopBreaker] | |
:: Int# | |
-> [Char] | |
[LclId, | |
Arity=1, | |
Str=<S,U>, | |
Unf=OtherCon []] = | |
sat-only \r [ww3_sVu0] | |
case | |
>=# [ww3_sVu0 | |
end_sVtY] | |
of | |
sat_sVu1 | |
{ __DEFAULT -> | |
case | |
tagToEnum# [sat_sVu1] | |
of | |
{ False -> | |
case | |
indexWord16Array# [ww_sVtA | |
ww3_sVu0] | |
of | |
r#_sVu3 | |
{ __DEFAULT -> | |
case | |
geWord# [r#_sVu3 | |
55296##] | |
of | |
sat_sVu4 | |
{ __DEFAULT -> | |
case | |
tagToEnum# [sat_sVu4] | |
of | |
{ False -> | |
let { | |
sat_sVua [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
case | |
+# [ww3_sVu0 | |
1#] | |
of | |
sat_sVu9 | |
{ __DEFAULT -> | |
$wunfold_sVtZ | |
sat_sVu9; | |
}; | |
} in | |
case | |
word2Int# [r#_sVu3] | |
of | |
sat_sVu6 | |
{ __DEFAULT -> | |
case | |
chr# [sat_sVu6] | |
of | |
sat_sVu7 | |
{ __DEFAULT -> | |
let { | |
sat_sVu8 [Occ=Once] | |
:: Char | |
[LclId] = | |
NO_CCS C#! [sat_sVu7]; | |
} in | |
: [sat_sVu8 | |
sat_sVua]; | |
}; | |
}; | |
True -> | |
case | |
leWord# [r#_sVu3 | |
56319##] | |
of | |
sat_sVub | |
{ __DEFAULT -> | |
case | |
tagToEnum# [sat_sVub] | |
of | |
{ False -> | |
let { | |
sat_sVuh [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
case | |
+# [ww3_sVu0 | |
1#] | |
of | |
sat_sVug | |
{ __DEFAULT -> | |
$wunfold_sVtZ | |
sat_sVug; | |
}; | |
} in | |
case | |
word2Int# [r#_sVu3] | |
of | |
sat_sVud | |
{ __DEFAULT -> | |
case | |
chr# [sat_sVud] | |
of | |
sat_sVue | |
{ __DEFAULT -> | |
let { | |
sat_sVuf [Occ=Once] | |
:: Char | |
[LclId] = | |
NO_CCS C#! [sat_sVue]; | |
} in | |
: [sat_sVuf | |
sat_sVuh]; | |
}; | |
}; | |
True -> | |
let { | |
sat_sVuu [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
case | |
+# [ww3_sVu0 | |
2#] | |
of | |
sat_sVut | |
{ __DEFAULT -> | |
$wunfold_sVtZ | |
sat_sVut; | |
}; } in | |
let { | |
sat_sVus [Occ=Once] | |
:: Char | |
[LclId] = | |
\u [] | |
case | |
+# [ww3_sVu0 | |
1#] | |
of | |
sat_sVui | |
{ __DEFAULT -> | |
case | |
indexWord16Array# [ww_sVtA | |
sat_sVui] | |
of | |
r#1_sVuj | |
{ __DEFAULT -> | |
case | |
word2Int# [r#1_sVuj] | |
of | |
sat_sVun | |
{ __DEFAULT -> | |
case | |
-# [sat_sVun | |
56320#] | |
of | |
sat_sVuo | |
{ __DEFAULT -> | |
case | |
word2Int# [r#_sVu3] | |
of | |
sat_sVuk | |
{ __DEFAULT -> | |
case | |
-# [sat_sVuk | |
55296#] | |
of | |
sat_sVul | |
{ __DEFAULT -> | |
case | |
uncheckedIShiftL# [sat_sVul | |
10#] | |
of | |
sat_sVum | |
{ __DEFAULT -> | |
case | |
+# [sat_sVum | |
sat_sVuo] | |
of | |
sat_sVup | |
{ __DEFAULT -> | |
case | |
+# [sat_sVup | |
65536#] | |
of | |
sat_sVuq | |
{ __DEFAULT -> | |
case | |
chr# [sat_sVuq] | |
of | |
sat_sVur | |
{ __DEFAULT -> | |
C# [sat_sVur]; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
} in | |
: [sat_sVus | |
sat_sVuu]; | |
}; | |
}; | |
}; | |
}; | |
}; | |
True -> | |
[] []; | |
}; | |
}; | |
} in | |
$wunfold_sVtZ | |
ww1_sVtB; | |
}; | |
} in | |
unpackAppendCString# | |
lvl15_rVmq | |
sat_sVuv; } in | |
let { | |
sat_sVuA | |
:: forall (f4 :: * | |
-> *) r. | |
JSONPath | |
-> Failure | |
f4 | |
r | |
-> Success | |
PostgresOperation | |
f4 | |
r | |
-> f4 r | |
[LclId] = | |
\r [path_sVuw | |
kf_sVux | |
_ks_sVuy] | |
let { | |
sat_sVuz [Occ=Once] | |
:: JSONPath | |
[LclId] = | |
\u [] | |
reverse | |
path_sVuw; | |
} in | |
kf_sVux | |
sat_sVuz | |
msg_sVtX; | |
} in | |
sat_sVuA; | |
} in | |
case | |
tagToEnum# [sat_sVuB] | |
of | |
{ False -> | |
$j3_sVtW; | |
True -> | |
case | |
int2Word# [ww2_sVtC] | |
of | |
sat_sVuG | |
{ __DEFAULT -> | |
case | |
int2Word# [dt11_sVtU] | |
of | |
sat_sVuF | |
{ __DEFAULT -> | |
case | |
int2Word# [ww1_sVtB] | |
of | |
sat_sVuE | |
{ __DEFAULT -> | |
case | |
__pkg_ccall text-1.2.2.2 [ww_sVtA | |
sat_sVuE | |
dt10_sVtT | |
sat_sVuF | |
sat_sVuG | |
realWorld#] | |
of | |
{ (#,#) _ [Occ=Dead] | |
ds3_sVuJ [Occ=Once] -> | |
case | |
narrow32Int# [ds3_sVuJ] | |
of | |
{ __DEFAULT -> | |
$j3_sVtW; | |
0# -> | |
lvl3_rVme; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
} in | |
case tagToEnum# [sat_sVuL] of { | |
False -> $j2_sVtR; | |
True -> | |
case | |
int2Word# [ww2_sVtC] | |
of | |
sat_sVuQ | |
{ __DEFAULT -> | |
case | |
int2Word# [dt8_sVtP] | |
of | |
sat_sVuP | |
{ __DEFAULT -> | |
case | |
int2Word# [ww1_sVtB] | |
of | |
sat_sVuO | |
{ __DEFAULT -> | |
case | |
__pkg_ccall text-1.2.2.2 [ww_sVtA | |
sat_sVuO | |
dt7_sVtO | |
sat_sVuP | |
sat_sVuQ | |
realWorld#] | |
of | |
{ (#,#) _ [Occ=Dead] | |
ds3_sVuT [Occ=Once] -> | |
case | |
narrow32Int# [ds3_sVuT] | |
of | |
{ __DEFAULT -> | |
$j2_sVtR; | |
0# -> | |
lvl6_rVmh; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
} in | |
case tagToEnum# [sat_sVuV] of { | |
False -> $j1_sVtM; | |
True -> | |
case int2Word# [ww2_sVtC] of sat_sVv0 { | |
__DEFAULT -> | |
case int2Word# [dt2_sVtK] of sat_sVuZ { | |
__DEFAULT -> | |
case | |
int2Word# [ww1_sVtB] | |
of | |
sat_sVuY | |
{ __DEFAULT -> | |
case | |
__pkg_ccall text-1.2.2.2 [ww_sVtA | |
sat_sVuY | |
dt1_sVtJ | |
sat_sVuZ | |
sat_sVv0 | |
realWorld#] | |
of | |
{ (#,#) _ [Occ=Dead] | |
ds3_sVv3 [Occ=Once] -> | |
case | |
narrow32Int# [ds3_sVv3] | |
of | |
{ __DEFAULT -> $j1_sVtM; | |
0# -> lvl9_rVmk; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
} in | |
case tagToEnum# [sat_sVv5] of { | |
False -> $j_sVtH; | |
True -> | |
case int2Word# [ww2_sVtC] of sat_sVva { | |
__DEFAULT -> | |
case int2Word# [dt4_sVtF] of sat_sVv9 { | |
__DEFAULT -> | |
case int2Word# [ww1_sVtB] of sat_sVv8 { | |
__DEFAULT -> | |
case | |
__pkg_ccall text-1.2.2.2 [ww_sVtA | |
sat_sVv8 | |
dt3_sVtE | |
sat_sVv9 | |
sat_sVva | |
realWorld#] | |
of | |
{ (#,#) _ [Occ=Dead] ds3_sVvd [Occ=Once] -> | |
case narrow32Int# [ds3_sVvd] of { | |
__DEFAULT -> $j_sVtH; | |
0# -> lvl12_rVmn; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
$fFromJSONPostgresOperation1 [InlPrag=INLINE[0]] | |
:: Text -> Parser PostgresOperation | |
[GblId, Arity=1, Str=<S(SSS),1*U(U,U,U)>, Unf=OtherCon []] = | |
\r [w_sVvf] | |
case w_sVvf of { | |
Text ww1_sVvh [Occ=Once] ww2_sVvi [Occ=Once] ww3_sVvj [Occ=Once] -> | |
$w$cparseJSON ww1_sVvh ww2_sVvi ww3_sVvj; | |
}; | |
$fFromJSONPostgresOperation_$cparseJSON | |
:: Value -> Parser PostgresOperation | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] | |
withText | |
$fFromJSONPostgresOperation2 $fFromJSONPostgresOperation1 eta_B1; | |
z33_rVmr | |
:: forall (f4 :: * -> *) r. | |
JSONPath | |
-> Failure f4 r -> Success [PostgresOperation] f4 r -> f4 r | |
[GblId, | |
Arity=3, | |
Caf=NoCafRefs, | |
Str=<L,A><L,A><C(S),1*C1(U)>, | |
Unf=OtherCon []] = | |
\r [_path_sVvk _kf_sVvl ks_sVvm] ks_sVvm []; | |
$fFromJSONPostgresOperation_go [Occ=LoopBreaker] | |
:: Int# -> [Value] -> Parser [PostgresOperation] | |
[GblId, Arity=2, Str=<L,U><S,1*U>, Unf=OtherCon []] = | |
\r [x_sVvn eta_sVvo] | |
case eta_sVvo of { | |
[] -> z33_rVmr; | |
: y_sVvq [Occ=Once!] ys_sVvr [Occ=Once] -> | |
let { | |
p1_sVvs [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] | |
:: Parser PostgresOperation | |
[LclId] = | |
\u [] | |
case y_sVvq of wild_sVvt { | |
__DEFAULT -> | |
let { | |
msg1_sVvu [Occ=OnceL] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sVvC [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVvB [Occ=Once, Dmd=<L,1*U>] :: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sVvA [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case wild_sVvt of { | |
Object _ [Occ=Dead] -> | |
$dmliftParseJSONList10; | |
Array _ [Occ=Dead] -> | |
typeMismatch1; | |
Number _ [Occ=Dead] -> | |
$dmliftParseJSONList6; | |
Bool _ [Occ=Dead] -> | |
$dmliftParseJSONList4; | |
Null -> | |
$dmliftParseJSONList1; | |
}; | |
} in | |
unpackAppendCString# | |
typeMismatch3 sat_sVvA; | |
} in ++ $fFromJSONPostgresOperation2 sat_sVvB; | |
} in unpackAppendCString# typeMismatch4 sat_sVvC; } in | |
let { | |
sat_sVvH [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath | |
-> Failure f4 r -> Success PostgresOperation f4 r -> f4 r | |
[LclId] = | |
\r [path_sVvD kf_sVvE _ks_sVvF] | |
let { | |
sat_sVvG [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sVvD; | |
} in kf_sVvE sat_sVvG msg1_sVvu; | |
} in sat_sVvH; | |
String txt_sVvI [Occ=Once!] -> | |
case txt_sVvI of { | |
Text ww1_sVvK [Occ=Once] | |
ww2_sVvL [Occ=Once] | |
ww3_sVvM [Occ=Once] -> | |
$w$cparseJSON ww1_sVvK ww2_sVvL ww3_sVvM; | |
}; | |
}; } in | |
let { | |
pathElem1_sVvN [Occ=OnceL] :: JSONPathElement | |
[LclId, Unf=OtherCon []] = | |
NO_CCS Index! [x_sVvn]; } in | |
let { | |
ys1_sVvO [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] | |
:: Parser [PostgresOperation] | |
[LclId] = | |
\u [] | |
case x_sVvn of wild_sVvP { | |
__DEFAULT -> | |
case +# [wild_sVvP 1#] of sat_sVvQ { | |
__DEFAULT -> $fFromJSONPostgresOperation_go sat_sVvQ ys_sVvr; | |
}; | |
9223372036854775807# -> z33_rVmr; | |
}; } in | |
let { | |
sat_sVw0 [Occ=Once] | |
:: forall (f5 :: * -> *) r. | |
JSONPath | |
-> Failure f5 r -> Success [PostgresOperation] f5 r -> f5 r | |
[LclId] = | |
\r [eta1_sVvR eta2_sVvS eta3_sVvT] | |
let { | |
sat_sVvZ [Occ=Once] :: Success PostgresOperation f5_auQI r_auQJ | |
[LclId] = | |
\r [a3_sVvV] | |
let { | |
sat_sVvY [Occ=Once] | |
:: Success [PostgresOperation] f5_auQI r_auQJ | |
[LclId] = | |
\r [a4_sVvW] | |
let { | |
sat_sVvX [Occ=Once] :: [PostgresOperation] | |
[LclId] = | |
NO_CCS :! [a3_sVvV a4_sVvW]; | |
} in eta3_sVvT sat_sVvX; | |
} in ys1_sVvO eta1_sVvR eta2_sVvS sat_sVvY; } in | |
let { | |
sat_sVvU [Occ=Once] :: JSONPath | |
[LclId] = | |
NO_CCS :! [pathElem1_sVvN eta1_sVvR]; | |
} in p1_sVvs sat_sVvU eta2_sVvS sat_sVvZ; | |
} in sat_sVw0; | |
}; | |
$fFromJSONPostgresOperation_$cparseJSONList | |
:: Value -> Parser [PostgresOperation] | |
[GblId, Arity=1, Str=<S,1*U>, Unf=OtherCon []] = | |
\r [ds1_sVw1] | |
case ds1_sVw1 of wild_sVw2 { | |
__DEFAULT -> | |
let { | |
msg1_sVw3 [Occ=OnceL] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sVwb [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVwa [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVw9 [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case wild_sVw2 of { | |
Object _ [Occ=Dead] -> | |
$dmliftParseJSONList10; | |
String _ [Occ=Dead] -> | |
$dmliftParseJSONList8; | |
Number _ [Occ=Dead] -> | |
$dmliftParseJSONList6; | |
Bool _ [Occ=Dead] -> | |
$dmliftParseJSONList4; | |
Null -> $dmliftParseJSONList1; | |
}; | |
} in | |
unpackAppendCString# | |
$fFromJSONKafkaEnvelope16 sat_sVw9; | |
} in unpackAppendCString# $fFromJSONKafkaEnvelope17 sat_sVwa; | |
} in unpackAppendCString# $fFromJSONKafkaEnvelope18 sat_sVwb; } in | |
let { | |
sat_sVwg [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath | |
-> Failure f4 r -> Success [PostgresOperation] f4 r -> f4 r | |
[LclId] = | |
\r [path_sVwc kf_sVwd _ks_sVwe] | |
let { | |
sat_sVwf [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sVwc; | |
} in kf_sVwd sat_sVwf msg1_sVw3; | |
} in sat_sVwg; | |
Array a2_sVwh [Occ=Once!] -> | |
case a2_sVwh of { | |
Vector dt_sVwj [Occ=OnceL] | |
dt1_sVwk [Occ=OnceL] | |
dt2_sVwl [Occ=OnceL] -> | |
let { | |
$wgo_sVwm [InlPrag=[0], Occ=LoopBreaker] :: Int# -> [Value] | |
[LclId, Arity=1, Str=<S,U>, Unf=OtherCon []] = | |
sat-only \r [ww_sVwn] | |
case >=# [ww_sVwn dt1_sVwk] of sat_sVwo { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVwo] of { | |
False -> | |
case +# [dt_sVwj ww_sVwn] of sat_sVwq { | |
__DEFAULT -> | |
case indexArray# [dt2_sVwl sat_sVwq] of { | |
Unit# ipv_sVws [Occ=Once] -> | |
let { | |
sat_sVwu [Occ=Once] :: [Value] | |
[LclId] = | |
\u [] | |
case +# [ww_sVwn 1#] of sat_sVwt { | |
__DEFAULT -> $wgo_sVwm sat_sVwt; | |
}; | |
} in : [ipv_sVws sat_sVwu]; | |
}; | |
}; | |
True -> [] []; | |
}; | |
}; | |
} in | |
case $wgo_sVwm 0# of sat_sVwv { | |
__DEFAULT -> $fFromJSONPostgresOperation_go 0# sat_sVwv; | |
}; | |
}; | |
}; | |
$fFromJSONPostgresOperation [InlPrag=CONLIKE] | |
:: FromJSON PostgresOperation | |
[GblId[DFunId], Str=m, Unf=OtherCon []] = | |
NO_CCS C:FromJSON! [$fFromJSONPostgresOperation_$cparseJSON | |
$fFromJSONPostgresOperation_$cparseJSONList]; | |
$tcWALRecord2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"WALRecord"#; | |
lvl16_rVms :: [Char] | |
[GblId] = | |
\u [] unpackCString# $tcWALRecord2; | |
lvl17_rVmt :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"after"#; | |
key2_rVmu :: Text | |
[GblId] = | |
\u [] unpackCString# lvl17_rVmt; | |
lvl18_rVmv :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"key "#; | |
lvl19_rVmw :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
" not present"#; | |
lvl20_rVmx :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl19_rVmw; | |
lvl21_rVmy :: [Char] | |
[GblId] = | |
\u [] | |
case $w$cshow key2_rVmu of { | |
(#,#) ww1_sVwx [Occ=Once] ww2_sVwy [Occ=Once] -> | |
let { | |
sat_sVwz [Occ=Once] :: [Char] | |
[LclId] = | |
NO_CCS :! [ww1_sVwx ww2_sVwy]; | |
} in ++ sat_sVwz lvl20_rVmx; | |
}; | |
msg20_rVmz :: String | |
[GblId] = | |
\u [] unpackAppendCString# lvl18_rVmv lvl21_rVmy; | |
lvl22_rVmA | |
:: forall a (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success a f4 r -> f4 r | |
[GblId, | |
Arity=3, | |
Str=<L,1*U><C(C(S)),1*C1(C1(U))><L,A>, | |
Unf=OtherCon []] = | |
\r [path_sVwA kf_sVwB _ks_sVwC] | |
let { | |
sat_sVwD [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sVwA; | |
} in kf_sVwB sat_sVwD msg20_rVmz; | |
pathElem17_rVmB :: JSONPathElement | |
[GblId, Str=m1, Unf=OtherCon []] = | |
NO_CCS Key! [key2_rVmu]; | |
lvl23_rVmC :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"op"#; | |
key1_rVmD :: Text | |
[GblId] = | |
\u [] unpackCString# lvl23_rVmC; | |
lvl24_rVmE :: JSONPathElement | |
[GblId, Str=m1, Unf=OtherCon []] = | |
NO_CCS Key! [key1_rVmD]; | |
lvl25_rVmF :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"lsn"#; | |
ds_rVmG :: Text | |
[GblId] = | |
\u [] unpackCString# lvl25_rVmF; | |
lvl26_rVmH :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"source"#; | |
key3_rVmI :: Text | |
[GblId] = | |
\u [] unpackCString# lvl26_rVmH; | |
lvl27_rVmJ :: JSONPathElement | |
[GblId, Str=m1, Unf=OtherCon []] = | |
NO_CCS Key! [key3_rVmI]; | |
lvl28_rVmK :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Integer"#; | |
lvl29_rVmL :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl28_rVmK; | |
lvl30_rVmM :: JSONPathElement | |
[GblId, Str=m1, Unf=OtherCon []] = | |
NO_CCS Key! [ds_rVmG]; | |
lvl31_rVmN :: [Char] | |
[GblId] = | |
\u [] | |
case $w$cshow key1_rVmD of { | |
(#,#) ww1_sVwF [Occ=Once] ww2_sVwG [Occ=Once] -> | |
let { | |
sat_sVwH [Occ=Once] :: [Char] | |
[LclId] = | |
NO_CCS :! [ww1_sVwF ww2_sVwG]; | |
} in ++ sat_sVwH lvl20_rVmx; | |
}; | |
lvl32_rVmO :: [Char] | |
[GblId] = | |
\u [] unpackAppendCString# lvl18_rVmv lvl31_rVmN; | |
lvl33_rVmP :: [Char] | |
[GblId] = | |
\u [] | |
case $w$cshow key3_rVmI of { | |
(#,#) ww1_sVwJ [Occ=Once] ww2_sVwK [Occ=Once] -> | |
let { | |
sat_sVwL [Occ=Once] :: [Char] | |
[LclId] = | |
NO_CCS :! [ww1_sVwJ ww2_sVwK]; | |
} in ++ sat_sVwL lvl20_rVmx; | |
}; | |
lvl34_rVmQ :: [Char] | |
[GblId] = | |
\u [] unpackAppendCString# lvl18_rVmv lvl33_rVmP; | |
lvl35_rVmR :: Value -> Parser (HashMap Text Value) | |
[GblId] = | |
\u [] | |
$w$cliftParseJSON | |
$fFromJSONKeyText0 | |
$fEqText | |
$fHashableText0 | |
$fApplicativeParser_$cpure; | |
lvl36_rVmS :: [Char] | |
[GblId] = | |
\u [] | |
case $w$cshow ds_rVmG of { | |
(#,#) ww1_sVwN [Occ=Once] ww2_sVwO [Occ=Once] -> | |
let { | |
sat_sVwP [Occ=Once] :: [Char] | |
[LclId] = | |
NO_CCS :! [ww1_sVwN ww2_sVwO]; | |
} in ++ sat_sVwP lvl20_rVmx; | |
}; | |
lvl37_rVmT :: [Char] | |
[GblId] = | |
\u [] unpackAppendCString# lvl18_rVmv lvl36_rVmS; | |
lvl38_rVmU :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
", encountered floating number "#; | |
$fFromJSONWALRecord_$cparseJSON | |
:: forall a. FromJSON a => Value -> Parser (WALRecord a) | |
[GblId, | |
Arity=2, | |
Str=<L,1*U(1*C1(C(C1(C1(U)))),A)><S,1*U>, | |
Unf=OtherCon []] = | |
\r [$dFromJSON_sVwQ eta_sVwR] | |
case eta_sVwR of wild_sVwS { | |
__DEFAULT -> typeMismatch lvl16_rVms wild_sVwS; | |
Object obj_sVwT -> | |
let { | |
lvl39_sVwU [Occ=OnceL!] :: Maybe Value | |
[LclId] = | |
\u [] | |
case key1_rVmD of { | |
Text ww1_sVwW [Occ=Once] ww2_sVwX [Occ=Once] ww3_sVwY [Occ=Once] -> | |
$w$slookup ww1_sVwW ww2_sVwX ww3_sVwY obj_sVwT; | |
}; } in | |
let { | |
lvl40_sVwZ [Occ=OnceL!] :: Maybe Value | |
[LclId] = | |
\u [] | |
case key3_rVmI of { | |
Text ww1_sVx1 [Occ=Once] ww2_sVx2 [Occ=Once] ww3_sVx3 [Occ=Once] -> | |
$w$slookup ww1_sVx1 ww2_sVx2 ww3_sVx3 obj_sVwT; | |
}; } in | |
let { | |
m_sVx4 [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser a_aRzW | |
[LclId] = | |
\u [] | |
case key2_rVmu of { | |
Text ww1_sVx6 [Occ=Once] ww2_sVx7 [Occ=Once] ww3_sVx8 [Occ=Once] -> | |
case $w$slookup ww1_sVx6 ww2_sVx7 ww3_sVx8 obj_sVwT of { | |
Nothing -> lvl22_rVmA; | |
Just v_sVxa [Occ=Once] -> | |
let { | |
p1_sVxb [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] :: Parser a_aRzW | |
[LclId] = | |
\u [] parseJSON $dFromJSON_sVwQ v_sVxa; } in | |
let { | |
sat_sVxg [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success a_aRzW f4 r -> f4 r | |
[LclId] = | |
\r [path_sVxc kf_sVxd ks_sVxe] | |
let { | |
sat_sVxf [Occ=Once] :: JSONPath | |
[LclId] = | |
NO_CCS :! [pathElem17_rVmB path_sVxc]; | |
} in p1_sVxb sat_sVxf kf_sVxd ks_sVxe; | |
} in sat_sVxg; | |
}; | |
}; } in | |
let { | |
sat_sVyn [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success (WALRecord a_aRzW) f4 r -> f4 r | |
[LclId] = | |
\r [path_sVxh kf_sVxi ks_sVxj] | |
let { | |
lvl41_sVxk [Occ=OnceL*] :: [JSONPathElement] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVxl [Occ=Once] :: [JSONPathElement] | |
[LclId] = | |
NO_CCS :! [lvl30_rVmM path_sVxh]; | |
} in reverse1 sat_sVxl []; } in | |
let { | |
lvl42_sVxm [Occ=OnceL] :: f4_aSCR r_aSCS | |
[LclId] = | |
\u [] | |
let { | |
sat_sVxn [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sVxh; | |
} in kf_sVxi sat_sVxn lvl37_rVmT; } in | |
let { | |
lvl43_sVxo [Occ=OnceL] :: [JSONPathElement] | |
[LclId, Unf=OtherCon []] = | |
NO_CCS :! [lvl27_rVmJ path_sVxh]; } in | |
let { | |
lvl44_sVxp [Occ=OnceL] :: f4_aSCR r_aSCS | |
[LclId] = | |
\u [] | |
let { | |
sat_sVxq [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sVxh; | |
} in kf_sVxi sat_sVxq lvl34_rVmQ; } in | |
let { | |
lvl45_sVxr [Occ=OnceL] :: [JSONPathElement] | |
[LclId, Unf=OtherCon []] = | |
NO_CCS :! [lvl24_rVmE path_sVxh]; } in | |
let { | |
lvl46_sVxs [Occ=OnceL] :: [JSONPathElement] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVxt [Occ=Once] :: [JSONPathElement] | |
[LclId] = | |
NO_CCS :! [lvl24_rVmE path_sVxh]; | |
} in reverse1 sat_sVxt []; } in | |
let { | |
lvl47_sVxu [Occ=OnceL] :: f4_aSCR r_aSCS | |
[LclId] = | |
\u [] | |
let { | |
sat_sVxv [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sVxh; | |
} in kf_sVxi sat_sVxv lvl32_rVmO; } in | |
let { | |
sat_sVym [Occ=Once] :: Success a_aRzW f4_aSCR r_aSCS | |
[LclId] = | |
\r [a1_sVxw] | |
case lvl39_sVwU of { | |
Nothing -> lvl47_sVxu; | |
Just v_sVxy [Occ=Once!] -> | |
case v_sVxy of wild2_sVxz { | |
__DEFAULT -> | |
let { | |
sat_sVxI [Occ=Once] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sVxH [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVxG [Occ=Once, | |
Dmd=<L,1*U>] | |
:: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sVxF [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
case | |
wild2_sVxz | |
of | |
{ Object _ [Occ=Dead] -> | |
$dmliftParseJSONList10; | |
Array _ [Occ=Dead] -> | |
typeMismatch1; | |
Number _ [Occ=Dead] -> | |
$dmliftParseJSONList6; | |
Bool _ [Occ=Dead] -> | |
$dmliftParseJSONList4; | |
Null -> | |
$dmliftParseJSONList1; | |
}; | |
} in | |
unpackAppendCString# | |
typeMismatch3 | |
sat_sVxF; | |
} in | |
++ $fFromJSONPostgresOperation2 | |
sat_sVxG; | |
} in | |
unpackAppendCString# | |
typeMismatch4 sat_sVxH; | |
} in kf_sVxi lvl46_sVxs sat_sVxI; | |
String txt_sVxJ [Occ=Once!] -> | |
case txt_sVxJ of { | |
Text ww1_sVxL [Occ=Once] | |
ww2_sVxM [Occ=Once] | |
ww3_sVxN [Occ=Once] -> | |
let { | |
sat_sVyl [Occ=Once] | |
:: Success | |
PostgresOperation f4_aSCR r_aSCS | |
[LclId] = | |
\r [a2_sVxO] | |
case lvl40_sVwZ of { | |
Nothing -> lvl44_sVxp; | |
Just v1_sVxQ [Occ=Once] -> | |
let { | |
sat_sVyk [Occ=Once] | |
:: Success | |
Object f4_aSCR r_aSCS | |
[LclId] = | |
\r [a3_sVxR] | |
case ds_rVmG of { | |
Text ww5_sVxT [Occ=Once] | |
ww6_sVxU [Occ=Once] | |
ww7_sVxV [Occ=Once] -> | |
case | |
$w$slookup | |
ww5_sVxT | |
ww6_sVxU | |
ww7_sVxV | |
a3_sVxR | |
of | |
{ Nothing -> | |
lvl42_sVxm; | |
Just v2_sVxX [Occ=Once!] -> | |
case | |
v2_sVxX | |
of | |
wild5_sVxY | |
{ __DEFAULT -> | |
let { | |
sat_sVy7 [Occ=Once] | |
:: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sVy6 [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVy5 [Occ=Once, | |
Dmd=<L,1*U>] | |
:: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sVy4 [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
case | |
wild5_sVxY | |
of | |
{ Object _ [Occ=Dead] -> | |
$dmliftParseJSONList10; | |
Array _ [Occ=Dead] -> | |
typeMismatch1; | |
String _ [Occ=Dead] -> | |
$dmliftParseJSONList8; | |
Bool _ [Occ=Dead] -> | |
$dmliftParseJSONList4; | |
Null -> | |
$dmliftParseJSONList1; | |
}; | |
} in | |
unpackAppendCString# | |
typeMismatch3 | |
sat_sVy4; | |
} in | |
++ lvl29_rVmL | |
sat_sVy5; | |
} in | |
unpackAppendCString# | |
typeMismatch4 | |
sat_sVy6; | |
} in | |
kf_sVxi | |
lvl41_sVxk | |
sat_sVy7; | |
Number scientific_sVy8 [Occ=Once!] -> | |
case | |
scientific_sVy8 | |
of | |
{ Scientific ww9_sVya | |
ww10_sVyb -> | |
case | |
$wfloatingOrInteger | |
$fRealFloatDouble | |
$fIntegralInteger | |
ww9_sVya | |
ww10_sVyb | |
of | |
{ Left _ [Occ=Dead] -> | |
let { | |
sat_sVyh [Occ=Once] | |
:: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sVyg [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVyf [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVye [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
$w$cshow | |
ww9_sVya | |
ww10_sVyb; | |
} in | |
unpackAppendCString# | |
lvl38_rVmU | |
sat_sVye; | |
} in | |
unpackAppendCString# | |
lvl28_rVmK | |
sat_sVyf; | |
} in | |
unpackAppendCString# | |
$fFromJSONKafkaEnvelope18 | |
sat_sVyg; | |
} in | |
kf_sVxi | |
lvl41_sVxk | |
sat_sVyh; | |
Right x_sVyi [Occ=Once] -> | |
let { | |
sat_sVyj [Occ=Once] | |
:: WALRecord | |
a_aRzW | |
[LclId] = | |
NO_CCS WALRecord! [a1_sVxw | |
a2_sVxO | |
x_sVyi]; | |
} in | |
ks_sVxj | |
sat_sVyj; | |
}; | |
}; | |
}; | |
}; | |
}; | |
} in | |
lvl35_rVmR | |
v1_sVxQ | |
lvl43_sVxo | |
kf_sVxi | |
sat_sVyk; | |
}; | |
} in | |
$w$cparseJSON | |
ww1_sVxL | |
ww2_sVxM | |
ww3_sVxN | |
lvl45_sVxr | |
kf_sVxi | |
sat_sVyl; | |
}; | |
}; | |
}; | |
} in m_sVx4 path_sVxh kf_sVxi sat_sVym; | |
} in sat_sVyn; | |
}; | |
$fFromJSONWALRecord1 | |
:: forall a (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success [WALRecord a] f4 r -> f4 r | |
[GblId, | |
Arity=3, | |
Caf=NoCafRefs, | |
Str=<L,A><L,A><C(S),1*C1(U)>, | |
Unf=OtherCon []] = | |
\r [_path_sVyo _kf_sVyp ks_sVyq] ks_sVyq []; | |
$fFromJSONWALRecord_$cparseJSONList | |
:: forall a. FromJSON a => Value -> Parser [WALRecord a] | |
[GblId, | |
Arity=2, | |
Str=<L,U(C(C(C1(C1(U)))),A)><S,1*U>, | |
Unf=OtherCon []] = | |
\r [$dFromJSON_sVyr ds1_sVys] | |
case ds1_sVys of wild_sVyt { | |
__DEFAULT -> | |
let { | |
msg1_sVyu [Occ=OnceL] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sVyC [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVyB [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVyA [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case wild_sVyt of { | |
Object _ [Occ=Dead] -> | |
$dmliftParseJSONList10; | |
String _ [Occ=Dead] -> | |
$dmliftParseJSONList8; | |
Number _ [Occ=Dead] -> | |
$dmliftParseJSONList6; | |
Bool _ [Occ=Dead] -> | |
$dmliftParseJSONList4; | |
Null -> $dmliftParseJSONList1; | |
}; | |
} in | |
unpackAppendCString# | |
$fFromJSONKafkaEnvelope16 sat_sVyA; | |
} in unpackAppendCString# $fFromJSONKafkaEnvelope17 sat_sVyB; | |
} in unpackAppendCString# $fFromJSONKafkaEnvelope18 sat_sVyC; } in | |
let { | |
sat_sVyH [Occ=Once] | |
:: forall (f4 :: * -> *) r. | |
JSONPath -> Failure f4 r -> Success [WALRecord a_aRzW] f4 r -> f4 r | |
[LclId] = | |
\r [path_sVyD kf_sVyE _ks_sVyF] | |
let { | |
sat_sVyG [Occ=Once] :: JSONPath | |
[LclId] = | |
\u [] reverse path_sVyD; | |
} in kf_sVyE sat_sVyG msg1_sVyu; | |
} in sat_sVyH; | |
Array a2_sVyI [Occ=Once!] -> | |
case a2_sVyI of { | |
Vector dt_sVyK [Occ=OnceL] | |
dt1_sVyL [Occ=OnceL] | |
dt2_sVyM [Occ=OnceL] -> | |
let { | |
go_sVyN [Occ=LoopBreaker] | |
:: Int# -> [Value] -> Parser [WALRecord a_aRzW] | |
[LclId, Arity=2, Str=<L,U><S,1*U>, Unf=OtherCon []] = | |
sat-only \r [x_sVyO eta_sVyP] | |
case eta_sVyP of { | |
[] -> $fFromJSONWALRecord1; | |
: y_sVyR [Occ=Once] ys_sVyS [Occ=Once] -> | |
let { | |
p1_sVyT [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] | |
:: Parser (WALRecord a_aRzW) | |
[LclId] = | |
\u [] | |
$fFromJSONWALRecord_$cparseJSON | |
$dFromJSON_sVyr y_sVyR; } in | |
let { | |
pathElem1_sVyU [Occ=OnceL] :: JSONPathElement | |
[LclId, Unf=OtherCon []] = | |
NO_CCS Index! [x_sVyO]; } in | |
let { | |
ys1_sVyV [Occ=OnceL, Dmd=<L,C(C1(C1(U)))>] | |
:: Parser [WALRecord a_aRzW] | |
[LclId] = | |
\u [] | |
case x_sVyO of wild3_sVyW { | |
__DEFAULT -> | |
case +# [wild3_sVyW 1#] of sat_sVyX { | |
__DEFAULT -> go_sVyN sat_sVyX ys_sVyS; | |
}; | |
9223372036854775807# -> $fFromJSONWALRecord1; | |
}; } in | |
let { | |
sat_sVz7 [Occ=Once] | |
:: forall (f5 :: * -> *) r. | |
JSONPath | |
-> Failure f5 r | |
-> Success [WALRecord a_aRzW] f5 r | |
-> f5 r | |
[LclId] = | |
\r [eta1_sVyY eta2_sVyZ eta3_sVz0] | |
let { | |
sat_sVz6 [Occ=Once] | |
:: Success (WALRecord a_aRzW) f5_auQI r_auQJ | |
[LclId] = | |
\r [a3_sVz2] | |
let { | |
sat_sVz5 [Occ=Once] | |
:: Success | |
[WALRecord a_aRzW] f5_auQI r_auQJ | |
[LclId] = | |
\r [a4_sVz3] | |
let { | |
sat_sVz4 [Occ=Once] | |
:: [WALRecord a_aRzW] | |
[LclId] = | |
NO_CCS :! [a3_sVz2 | |
a4_sVz3]; | |
} in eta3_sVz0 sat_sVz4; | |
} in | |
ys1_sVyV | |
eta1_sVyY eta2_sVyZ sat_sVz5; } in | |
let { | |
sat_sVz1 [Occ=Once] :: JSONPath | |
[LclId] = | |
NO_CCS :! [pathElem1_sVyU eta1_sVyY]; | |
} in p1_sVyT sat_sVz1 eta2_sVyZ sat_sVz6; | |
} in sat_sVz7; | |
}; } in | |
let { | |
$wgo_sVz8 [InlPrag=[0], Occ=LoopBreaker] :: Int# -> [Value] | |
[LclId, Arity=1, Str=<S,U>, Unf=OtherCon []] = | |
sat-only \r [ww_sVz9] | |
case >=# [ww_sVz9 dt1_sVyL] of sat_sVza { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVza] of { | |
False -> | |
case +# [dt_sVyK ww_sVz9] of sat_sVzc { | |
__DEFAULT -> | |
case indexArray# [dt2_sVyM sat_sVzc] of { | |
Unit# ipv_sVze [Occ=Once] -> | |
let { | |
sat_sVzg [Occ=Once] :: [Value] | |
[LclId] = | |
\u [] | |
case +# [ww_sVz9 1#] of sat_sVzf { | |
__DEFAULT -> $wgo_sVz8 sat_sVzf; | |
}; | |
} in : [ipv_sVze sat_sVzg]; | |
}; | |
}; | |
True -> [] []; | |
}; | |
}; | |
} in | |
case $wgo_sVz8 0# of sat_sVzh { | |
__DEFAULT -> go_sVyN 0# sat_sVzh; | |
}; | |
}; | |
}; | |
$fFromJSONWALRecord [InlPrag=CONLIKE] | |
:: forall a. FromJSON a => FromJSON (WALRecord a) | |
[GblId[DFunId], | |
Arity=1, | |
Str=<L,U(C(C(C1(C1(U)))),A)>m, | |
Unf=OtherCon []] = | |
\r [$dFromJSON_sVzi] | |
let { | |
sat_sVzk [Occ=Once] :: Value -> Parser [WALRecord a_aRzW] | |
[LclId] = | |
\r [eta_B1] | |
$fFromJSONWALRecord_$cparseJSONList $dFromJSON_sVzi eta_B1; } in | |
let { | |
sat_sVzj [Occ=Once] :: Value -> Parser (WALRecord a_aRzW) | |
[LclId] = | |
\r [eta_B1] $fFromJSONWALRecord_$cparseJSON $dFromJSON_sVzi eta_B1; | |
} in C:FromJSON [sat_sVzj sat_sVzk]; | |
$fEqKafkaEnvelope_$c== | |
:: forall a. Eq a => KafkaEnvelope a -> KafkaEnvelope a -> Bool | |
[GblId, | |
Arity=3, | |
Caf=NoCafRefs, | |
Str=<L,1*U(1*C1(C1(U)),A)><S(S(LLS)LL),1*U(1*U(U,U,U),1*U(U),U)><S(S(LLS)LL),1*U(1*U(U,U,U),1*U(U),U)>, | |
Unf=OtherCon []] = | |
\r [$dEq_sVzl ds1_sVzm ds2_sVzn] | |
case ds1_sVzm of { | |
KafkaEnvelope a1_sVzp [Occ=Once!] | |
a2_sVzq [Occ=Once!] | |
a3_sVzr [Occ=Once] -> | |
case ds2_sVzn of { | |
KafkaEnvelope b1_sVzt [Occ=Once!] | |
b2_sVzu [Occ=Once!] | |
b3_sVzv [Occ=Once] -> | |
case a1_sVzp of { | |
Text dt_sVzx [Occ=Once] dt1_sVzy [Occ=Once] dt2_sVzz -> | |
case b1_sVzt of { | |
Text dt3_sVzB [Occ=Once] dt4_sVzC [Occ=Once] dt5_sVzD [Occ=Once] -> | |
case ==# [dt2_sVzz dt5_sVzD] of sat_sVzE { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVzE] of { | |
False -> False []; | |
True -> | |
case int2Word# [dt2_sVzz] of sat_sVzJ { | |
__DEFAULT -> | |
case int2Word# [dt4_sVzC] of sat_sVzI { | |
__DEFAULT -> | |
case int2Word# [dt1_sVzy] of sat_sVzH { | |
__DEFAULT -> | |
case | |
__pkg_ccall text-1.2.2.2 [dt_sVzx | |
sat_sVzH | |
dt3_sVzB | |
sat_sVzI | |
sat_sVzJ | |
realWorld#] | |
of | |
{ (#,#) _ [Occ=Dead] | |
ds4_sVzM [Occ=Once] -> | |
case | |
narrow32Int# [ds4_sVzM] | |
of | |
{ __DEFAULT -> False []; | |
0# -> | |
case a2_sVzq of { | |
I# x_sVzP [Occ=Once] -> | |
case b2_sVzu of { | |
I# y_sVzR [Occ=Once] -> | |
case | |
==# [x_sVzP | |
y_sVzR] | |
of | |
sat_sVzS | |
{ __DEFAULT -> | |
case | |
tagToEnum# [sat_sVzS] | |
of | |
{ False -> | |
False []; | |
True -> | |
== $dEq_sVzl | |
a3_sVzr | |
b3_sVzv; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
$fEqKafkaEnvelope_$c/= | |
:: forall a. Eq a => KafkaEnvelope a -> KafkaEnvelope a -> Bool | |
[GblId, | |
Arity=3, | |
Caf=NoCafRefs, | |
Str=<L,1*U(1*C1(C1(U)),A)><S(S(LLS)LL),1*U(1*U(U,U,U),1*U(U),U)><S(S(LLS)LL),1*U(1*U(U,U,U),1*U(U),U)>, | |
Unf=OtherCon []] = | |
\r [$dEq_sVzU a1_sVzV b_sVzW] | |
case $fEqKafkaEnvelope_$c== $dEq_sVzU a1_sVzV b_sVzW of { | |
False -> True []; | |
True -> False []; | |
}; | |
$fEqKafkaEnvelope [InlPrag=CONLIKE] | |
:: forall a. Eq a => Eq (KafkaEnvelope a) | |
[GblId[DFunId], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<L,U(C(C1(U)),A)>m, | |
Unf=OtherCon []] = | |
\r [$dEq_sVzY] | |
let { | |
sat_sVA0 [Occ=Once] | |
:: KafkaEnvelope a_aRzC -> KafkaEnvelope a_aRzC -> Bool | |
[LclId] = | |
\r [eta_B2 eta_B1] | |
$fEqKafkaEnvelope_$c/= $dEq_sVzY eta_B2 eta_B1; } in | |
let { | |
sat_sVzZ [Occ=Once] | |
:: KafkaEnvelope a_aRzC -> KafkaEnvelope a_aRzC -> Bool | |
[LclId] = | |
\r [eta_B2 eta_B1] $fEqKafkaEnvelope_$c== $dEq_sVzY eta_B2 eta_B1; | |
} in C:Eq [sat_sVzZ sat_sVA0]; | |
$fShowKafkaEnvelope6 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"KafkaEnvelope {"#; | |
$fShowKafkaEnvelope5 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"envelopeName = "#; | |
$fShowKafkaEnvelope4 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"envelopeVersion = "#; | |
$fShowKafkaEnvelope3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"envelopePayload = "#; | |
$fShowKafkaEnvelope2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"}"#; | |
$w$cshowsPrec1 [InlPrag=[0]] | |
:: forall a. Show a => Int# -> Text -> Int -> a -> ShowS | |
[GblId, | |
Arity=5, | |
Str=<L,1*U(1*C1(C1(C(U))),A,A)><S,U><L,U(U,U,U)><L,U(U)><L,U>, | |
Unf=OtherCon []] = | |
\r [w_sVA1 ww_sVA2 ww1_sVA3 ww2_sVA4 ww3_sVA5] | |
let { | |
f_sVA6 [Occ=OnceL!, Dmd=<L,C(U)>] :: String -> String | |
[LclId] = | |
\u [] showsPrec w_sVA1 $fShowKafkaEnvelope1 ww3_sVA5; } in | |
let { | |
p_sVA7 [Occ=OnceL*] :: ShowS | |
[LclId, Arity=1, Str=<L,U>, Unf=OtherCon []] = | |
\r [x_sVA8] | |
let { | |
sat_sVAp [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVAo [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVAk [Occ=Once] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sVAj [Occ=Once, Dmd=<L,1*U>] :: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sVAi [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case ww2_sVA4 of { | |
I# ww5_sVAa [Occ=Once] -> | |
let { | |
sat_sVAe [Occ=Once] | |
:: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sVAd [Occ=Once, | |
Dmd=<L,1*U>] | |
:: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sVAc [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVAb [Occ=Once] | |
:: String | |
[LclId] = | |
\u [] | |
unpackAppendCString# | |
$fShowKafkaEnvelope2 | |
x_sVA8; | |
} in | |
f_sVA6 | |
sat_sVAb; | |
} in | |
unpackAppendCString# | |
$fShowKafkaEnvelope3 | |
sat_sVAc; | |
} in | |
++ showCommaSpace1 | |
sat_sVAd; | |
} in | |
case | |
$wshowSignedInt | |
0# | |
ww5_sVAa | |
sat_sVAe | |
of | |
{ (#,#) ww7_sVAg [Occ=Once] | |
ww8_sVAh [Occ=Once] -> | |
: [ww7_sVAg | |
ww8_sVAh]; | |
}; | |
}; | |
} in | |
unpackAppendCString# | |
$fShowKafkaEnvelope4 sat_sVAi; | |
} in ++ showCommaSpace1 sat_sVAj; | |
} in | |
case $w$cshowsPrec ww1_sVA3 sat_sVAk of { | |
(#,#) ww5_sVAm [Occ=Once] ww6_sVAn [Occ=Once] -> | |
: [ww5_sVAm ww6_sVAn]; | |
}; | |
} in unpackAppendCString# $fShowKafkaEnvelope5 sat_sVAo; | |
} in unpackAppendCString# $fShowKafkaEnvelope6 sat_sVAp; | |
} in | |
case >=# [ww_sVA2 11#] of sat_sVAq { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVAq] of { | |
False -> p_sVA7; | |
True -> | |
let { | |
sat_sVAv [Occ=OnceT[0]] :: String -> [Char] | |
[LclId] = | |
\r [x_sVAs] | |
let { | |
sat_sVAu [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVAt [Occ=Once] :: String | |
[LclId] = | |
NO_CCS :! [$fShow(,)2 x_sVAs]; | |
} in p_sVA7 sat_sVAt; | |
} in : [$fShow(,)4 sat_sVAu]; | |
} in sat_sVAv; | |
}; | |
}; | |
$fShowKafkaEnvelope_$cshowsPrec [InlPrag=INLINE[0]] | |
:: forall a. Show a => Int -> KafkaEnvelope a -> ShowS | |
[GblId, | |
Arity=3, | |
Str=<L,1*U(1*C1(C1(C(U))),A,A)><S(S),1*U(U)><S,1*U(U(U,U,U),U(U),U)>, | |
Unf=OtherCon []] = | |
\r [w_sVAw w1_sVAx w2_sVAy] | |
case w1_sVAx of { | |
I# ww1_sVAA [Occ=Once] -> | |
case w2_sVAy of { | |
KafkaEnvelope ww3_sVAC [Occ=Once] | |
ww4_sVAD [Occ=Once] | |
ww5_sVAE [Occ=Once] -> | |
$w$cshowsPrec1 w_sVAw ww1_sVAA ww3_sVAC ww4_sVAD ww5_sVAE; | |
}; | |
}; | |
$fShowKafkaEnvelope7 :: [Char] | |
[GblId] = | |
\u [] unpackAppendCString# $fShowKafkaEnvelope2 []; | |
$w$cshow [InlPrag=[0]] | |
:: forall a. Show a => Text -> Int -> a -> String | |
[GblId, | |
Arity=4, | |
Str=<L,1*U(1*C1(C1(C1(U))),A,A)><L,1*U(U,U,U)><L,1*U(U)><L,U>, | |
Unf=OtherCon []] = | |
\r [w_sVAF ww_sVAG ww1_sVAH ww2_sVAI] | |
let { | |
sat_sVAY [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVAX [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVAT [Occ=Once] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sVAS [Occ=Once, Dmd=<L,1*U>] :: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sVAR [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case ww1_sVAH of { | |
I# ww4_sVAK [Occ=Once] -> | |
let { | |
sat_sVAN [Occ=Once] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sVAM [Occ=Once, | |
Dmd=<L,1*U>] | |
:: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sVAL [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
showsPrec | |
w_sVAF | |
$fShowKafkaEnvelope1 | |
ww2_sVAI | |
$fShowKafkaEnvelope7; | |
} in | |
unpackAppendCString# | |
$fShowKafkaEnvelope3 | |
sat_sVAL; | |
} in | |
++ showCommaSpace1 | |
sat_sVAM; | |
} in | |
case | |
$wshowSignedInt | |
0# ww4_sVAK sat_sVAN | |
of | |
{ (#,#) ww6_sVAP [Occ=Once] | |
ww7_sVAQ [Occ=Once] -> | |
: [ww6_sVAP ww7_sVAQ]; | |
}; | |
}; | |
} in | |
unpackAppendCString# | |
$fShowKafkaEnvelope4 sat_sVAR; | |
} in ++ showCommaSpace1 sat_sVAS; | |
} in | |
case $w$cshowsPrec ww_sVAG sat_sVAT of { | |
(#,#) ww4_sVAV [Occ=Once] ww5_sVAW [Occ=Once] -> | |
: [ww4_sVAV ww5_sVAW]; | |
}; | |
} in unpackAppendCString# $fShowKafkaEnvelope5 sat_sVAX; | |
} in unpackAppendCString# $fShowKafkaEnvelope6 sat_sVAY; | |
$fShowKafkaEnvelope_$cshow [InlPrag=INLINE[0]] | |
:: forall a. Show a => KafkaEnvelope a -> String | |
[GblId, | |
Arity=2, | |
Str=<L,1*U(1*C1(C1(C1(U))),A,A)><S,1*U(1*U(U,U,U),1*U(U),U)>, | |
Unf=OtherCon []] = | |
\r [w_sVAZ w1_sVB0] | |
case w1_sVB0 of { | |
KafkaEnvelope ww1_sVB2 [Occ=Once] | |
ww2_sVB3 [Occ=Once] | |
ww3_sVB4 [Occ=Once] -> | |
$w$cshow w_sVAZ ww1_sVB2 ww2_sVB3 ww3_sVB4; | |
}; | |
$fShowKafkaEnvelope_$cshowList | |
:: forall a. Show a => [KafkaEnvelope a] -> ShowS | |
[GblId, | |
Arity=3, | |
Str=<L,U(C(C1(C(U))),A,A)><S,1*U><L,U>, | |
Unf=OtherCon []] = | |
\r [$dShow_sVB5 eta_sVB6 eta1_sVB7] | |
let { | |
sat_sVBd [Occ=Once] :: KafkaEnvelope a_aRyH -> ShowS | |
[LclId] = | |
\r [w_sVB8] | |
case w_sVB8 of { | |
KafkaEnvelope ww1_sVBa [Occ=Once] | |
ww2_sVBb [Occ=Once] | |
ww3_sVBc [Occ=Once] -> | |
$w$cshowsPrec1 $dShow_sVB5 0# ww1_sVBa ww2_sVBb ww3_sVBc; | |
}; | |
} in showList__ sat_sVBd eta_sVB6 eta1_sVB7; | |
$fShowKafkaEnvelope [InlPrag=CONLIKE] | |
:: forall a. Show a => Show (KafkaEnvelope a) | |
[GblId[DFunId], | |
Arity=1, | |
Str=<L,U(C(C1(C(U))),A,A)>m, | |
Unf=OtherCon []] = | |
\r [$dShow_sVBe] | |
let { | |
sat_sVBh [Occ=Once] :: [KafkaEnvelope a_aRyH] -> ShowS | |
[LclId] = | |
\r [eta_B2 eta_B1] | |
$fShowKafkaEnvelope_$cshowList $dShow_sVBe eta_B2 eta_B1; } in | |
let { | |
sat_sVBg [Occ=Once] :: KafkaEnvelope a_aRyH -> String | |
[LclId] = | |
\r [eta_B1] $fShowKafkaEnvelope_$cshow $dShow_sVBe eta_B1; } in | |
let { | |
sat_sVBf [Occ=Once] :: Int -> KafkaEnvelope a_aRyH -> ShowS | |
[LclId] = | |
\r [eta_B2 eta_B1] | |
$fShowKafkaEnvelope_$cshowsPrec $dShow_sVBe eta_B2 eta_B1; | |
} in C:Show [sat_sVBf sat_sVBg sat_sVBh]; | |
$fEqPostgresOperation_$c== | |
:: PostgresOperation -> PostgresOperation -> Bool | |
[GblId, | |
Arity=2, | |
Caf=NoCafRefs, | |
Str=<S,1*U><S,1*U>, | |
Unf=OtherCon []] = | |
\r [ds1_sVBi ds2_sVBj] | |
case ds1_sVBi of { | |
OperationInsert -> | |
case ds2_sVBj of { | |
__DEFAULT -> False []; | |
OperationInsert -> True []; | |
}; | |
OperationUpdate -> | |
case ds2_sVBj of { | |
__DEFAULT -> False []; | |
OperationUpdate -> True []; | |
}; | |
OperationDelete -> | |
case ds2_sVBj of { | |
__DEFAULT -> False []; | |
OperationDelete -> True []; | |
}; | |
OperationSnapshot -> | |
case ds2_sVBj of { | |
__DEFAULT -> False []; | |
OperationSnapshot -> True []; | |
}; | |
}; | |
$fEqPostgresOperation_$c/= | |
:: PostgresOperation -> PostgresOperation -> Bool | |
[GblId, | |
Arity=2, | |
Caf=NoCafRefs, | |
Str=<S,1*U><S,1*U>, | |
Unf=OtherCon []] = | |
\r [a_sVBp b_sVBq] | |
case a_sVBp of { | |
OperationInsert -> | |
case b_sVBq of { | |
__DEFAULT -> True []; | |
OperationInsert -> False []; | |
}; | |
OperationUpdate -> | |
case b_sVBq of { | |
__DEFAULT -> True []; | |
OperationUpdate -> False []; | |
}; | |
OperationDelete -> | |
case b_sVBq of { | |
__DEFAULT -> True []; | |
OperationDelete -> False []; | |
}; | |
OperationSnapshot -> | |
case b_sVBq of { | |
__DEFAULT -> True []; | |
OperationSnapshot -> False []; | |
}; | |
}; | |
$fEqPostgresOperation [InlPrag=CONLIKE] :: Eq PostgresOperation | |
[GblId[DFunId], Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS C:Eq! [$fEqPostgresOperation_$c== | |
$fEqPostgresOperation_$c/=]; | |
$w$c== [InlPrag=[0]] | |
:: forall a. | |
Eq a => | |
a | |
-> PostgresOperation | |
-> Integer | |
-> a | |
-> PostgresOperation | |
-> Integer | |
-> Bool | |
[GblId, | |
Arity=7, | |
Caf=NoCafRefs, | |
Str=<S(C(C(S))L),1*U(1*C1(C1(U)),A)><L,U><L,1*U><L,1*U><L,U><L,1*U><L,1*U>, | |
Unf=OtherCon []] = | |
\r [w_sVBw ww_sVBx ww1_sVBy ww2_sVBz ww3_sVBA ww4_sVBB ww5_sVBC] | |
case == w_sVBw ww_sVBx ww3_sVBA of { | |
False -> False []; | |
True -> | |
case ww1_sVBy of { | |
OperationInsert -> | |
case ww4_sVBB of { | |
__DEFAULT -> False []; | |
OperationInsert -> eqInteger ww2_sVBz ww5_sVBC; | |
}; | |
OperationUpdate -> | |
case ww4_sVBB of { | |
__DEFAULT -> False []; | |
OperationUpdate -> eqInteger ww2_sVBz ww5_sVBC; | |
}; | |
OperationDelete -> | |
case ww4_sVBB of { | |
__DEFAULT -> False []; | |
OperationDelete -> eqInteger ww2_sVBz ww5_sVBC; | |
}; | |
OperationSnapshot -> | |
case ww4_sVBB of { | |
__DEFAULT -> False []; | |
OperationSnapshot -> eqInteger ww2_sVBz ww5_sVBC; | |
}; | |
}; | |
}; | |
$fEqWALRecord_$c== [InlPrag=INLINE[0]] | |
:: forall a. Eq a => WALRecord a -> WALRecord a -> Bool | |
[GblId, | |
Arity=3, | |
Caf=NoCafRefs, | |
Str=<S(C(C(S))L),1*U(1*C1(C1(U)),A)><S,1*U(U,1*U,1*U)><S,1*U(U,1*U,1*U)>, | |
Unf=OtherCon []] = | |
\r [w_sVBJ w1_sVBK w2_sVBL] | |
case w1_sVBK of { | |
WALRecord ww1_sVBN [Occ=Once] | |
ww2_sVBO [Occ=Once] | |
ww3_sVBP [Occ=Once] -> | |
case w2_sVBL of { | |
WALRecord ww5_sVBR [Occ=Once] | |
ww6_sVBS [Occ=Once] | |
ww7_sVBT [Occ=Once] -> | |
$w$c== | |
w_sVBJ ww1_sVBN ww2_sVBO ww3_sVBP ww5_sVBR ww6_sVBS ww7_sVBT; | |
}; | |
}; | |
$fEqWALRecord_$c/= | |
:: forall a. Eq a => WALRecord a -> WALRecord a -> Bool | |
[GblId, | |
Arity=3, | |
Caf=NoCafRefs, | |
Str=<S(C(C(S))L),1*U(1*C1(C1(U)),A)><S,1*U(U,1*U,1*U)><S,1*U(U,1*U,1*U)>, | |
Unf=OtherCon []] = | |
\r [$dEq_sVBU a1_sVBV b_sVBW] | |
case a1_sVBV of { | |
WALRecord ww1_sVBY [Occ=Once] | |
ww2_sVBZ [Occ=Once] | |
ww3_sVC0 [Occ=Once] -> | |
case b_sVBW of { | |
WALRecord ww5_sVC2 [Occ=Once] | |
ww6_sVC3 [Occ=Once] | |
ww7_sVC4 [Occ=Once] -> | |
case | |
$w$c== | |
$dEq_sVBU ww1_sVBY ww2_sVBZ ww3_sVC0 ww5_sVC2 ww6_sVC3 ww7_sVC4 | |
of | |
{ False -> True []; | |
True -> False []; | |
}; | |
}; | |
}; | |
$fEqWALRecord [InlPrag=CONLIKE] | |
:: forall a. Eq a => Eq (WALRecord a) | |
[GblId[DFunId], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<L,U(C(C1(U)),A)>m, | |
Unf=OtherCon []] = | |
\r [$dEq_sVC6] | |
let { | |
sat_sVC8 [Occ=Once] :: WALRecord a_aRyn -> WALRecord a_aRyn -> Bool | |
[LclId] = | |
\r [eta_B2 eta_B1] $fEqWALRecord_$c/= $dEq_sVC6 eta_B2 eta_B1; } in | |
let { | |
sat_sVC7 [Occ=Once] :: WALRecord a_aRyn -> WALRecord a_aRyn -> Bool | |
[LclId] = | |
\r [eta_B2 eta_B1] $fEqWALRecord_$c== $dEq_sVC6 eta_B2 eta_B1; | |
} in C:Eq [sat_sVC7 sat_sVC8]; | |
$fShowPostgresOperation8 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"OperationInsert"#; | |
$fShowPostgresOperation7 :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fShowPostgresOperation8; | |
$fShowPostgresOperation6 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"OperationUpdate"#; | |
$fShowPostgresOperation5 :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fShowPostgresOperation6; | |
$fShowPostgresOperation4 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"OperationDelete"#; | |
$fShowPostgresOperation3 :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fShowPostgresOperation4; | |
$fShowPostgresOperation2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"OperationSnapshot"#; | |
$fShowPostgresOperation1 :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fShowPostgresOperation2; | |
$w$cshowsPrec3 [InlPrag=[0]] | |
:: PostgresOperation -> String -> String | |
[GblId, Arity=2, Str=<S,1*U><L,1*U>, Unf=OtherCon []] = | |
\r [w_sVC9 w1_sVCa] | |
case w_sVC9 of { | |
OperationInsert -> ++ $fShowPostgresOperation7 w1_sVCa; | |
OperationUpdate -> ++ $fShowPostgresOperation5 w1_sVCa; | |
OperationDelete -> ++ $fShowPostgresOperation3 w1_sVCa; | |
OperationSnapshot -> ++ $fShowPostgresOperation1 w1_sVCa; | |
}; | |
$fShowPostgresOperation_$cshowsPrec [InlPrag=INLINE[0]] | |
:: Int -> PostgresOperation -> ShowS | |
[GblId, Arity=3, Str=<L,A><S,1*U><L,1*U>, Unf=OtherCon []] = | |
\r [w_sVCc w1_sVCd w2_sVCe] $w$cshowsPrec3 w1_sVCd w2_sVCe; | |
$fShowPostgresOperation_$cshow :: PostgresOperation -> String | |
[GblId, Arity=1, Str=<S,1*U>, Unf=OtherCon []] = | |
\r [x_sVCf] | |
case x_sVCf of { | |
OperationInsert -> $fShowPostgresOperation7; | |
OperationUpdate -> $fShowPostgresOperation5; | |
OperationDelete -> $fShowPostgresOperation3; | |
OperationSnapshot -> $fShowPostgresOperation1; | |
}; | |
$fShowPostgresOperation_$cshowList :: [PostgresOperation] -> ShowS | |
[GblId, Arity=2, Unf=OtherCon []] = | |
\r [eta_B2 eta_B1] showList__ $w$cshowsPrec3 eta_B2 eta_B1; | |
$fShowPostgresOperation [InlPrag=CONLIKE] :: Show PostgresOperation | |
[GblId[DFunId], Str=m, Unf=OtherCon []] = | |
NO_CCS C:Show! [$fShowPostgresOperation_$cshowsPrec | |
$fShowPostgresOperation_$cshow | |
$fShowPostgresOperation_$cshowList]; | |
$fShowWALRecord4 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"WALRecord {"#; | |
$fShowWALRecord3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"payload = "#; | |
$fShowWALRecord2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"operation = "#; | |
$fShowWALRecord1 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"lsn = "#; | |
$w$cshowsPrec6 [InlPrag=[0]] | |
:: forall a. | |
Show a => | |
Int# -> a -> PostgresOperation -> Integer -> ShowS | |
[GblId, | |
Arity=5, | |
Str=<L,1*U(1*C1(C1(C(U))),A,A)><S,U><L,U><L,U><L,U>, | |
Unf=OtherCon []] = | |
\r [w_sVCh ww_sVCi ww1_sVCj ww2_sVCk ww3_sVCl] | |
let { | |
f_sVCm [Occ=OnceL!, Dmd=<L,C(U)>] :: String -> String | |
[LclId] = | |
\u [] showsPrec w_sVCh $fShowKafkaEnvelope1 ww1_sVCj; } in | |
let { | |
p_sVCn [Occ=OnceL*] :: ShowS | |
[LclId, Arity=1, Str=<L,U>, Unf=OtherCon []] = | |
\r [x_sVCo] | |
let { | |
sat_sVCA [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVCz [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVCy [Occ=Once] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sVCx [Occ=Once, Dmd=<L,1*U>] :: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sVCw [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVCv [Occ=Once, | |
Dmd=<L,1*U>] | |
:: String | |
[LclId] = | |
\s [] | |
let { | |
sat_sVCu [Occ=Once, | |
Dmd=<L,1*U>] | |
:: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sVCt [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVCp [Occ=Once] | |
:: String | |
[LclId] = | |
\u [] | |
unpackAppendCString# | |
$fShowKafkaEnvelope2 | |
x_sVCo; | |
} in | |
case | |
$w$cshowsPrec4 | |
0# | |
ww3_sVCl | |
sat_sVCp | |
of | |
{ (#,#) ww5_sVCr [Occ=Once] | |
ww6_sVCs [Occ=Once] -> | |
: [ww5_sVCr | |
ww6_sVCs]; | |
}; | |
} in | |
unpackAppendCString# | |
$fShowWALRecord1 | |
sat_sVCt; | |
} in | |
++ showCommaSpace1 | |
sat_sVCu; | |
} in | |
$w$cshowsPrec3 | |
ww2_sVCk sat_sVCv; | |
} in | |
unpackAppendCString# | |
$fShowWALRecord2 sat_sVCw; | |
} in ++ showCommaSpace1 sat_sVCx; | |
} in f_sVCm sat_sVCy; | |
} in unpackAppendCString# $fShowWALRecord3 sat_sVCz; | |
} in unpackAppendCString# $fShowWALRecord4 sat_sVCA; | |
} in | |
case >=# [ww_sVCi 11#] of sat_sVCB { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVCB] of { | |
False -> p_sVCn; | |
True -> | |
let { | |
sat_sVCG [Occ=OnceT[0]] :: String -> [Char] | |
[LclId] = | |
\r [x_sVCD] | |
let { | |
sat_sVCF [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVCE [Occ=Once] :: String | |
[LclId] = | |
NO_CCS :! [$fShow(,)2 x_sVCD]; | |
} in p_sVCn sat_sVCE; | |
} in : [$fShow(,)4 sat_sVCF]; | |
} in sat_sVCG; | |
}; | |
}; | |
$fShowWALRecord_$cshowsPrec [InlPrag=INLINE[0]] | |
:: forall a. Show a => Int -> WALRecord a -> ShowS | |
[GblId, | |
Arity=3, | |
Str=<L,1*U(1*C1(C1(C(U))),A,A)><S(S),1*U(U)><S,1*U(U,U,U)>, | |
Unf=OtherCon []] = | |
\r [w_sVCH w1_sVCI w2_sVCJ] | |
case w1_sVCI of { | |
I# ww1_sVCL [Occ=Once] -> | |
case w2_sVCJ of { | |
WALRecord ww3_sVCN [Occ=Once] | |
ww4_sVCO [Occ=Once] | |
ww5_sVCP [Occ=Once] -> | |
$w$cshowsPrec6 w_sVCH ww1_sVCL ww3_sVCN ww4_sVCO ww5_sVCP; | |
}; | |
}; | |
$w$cshow1 [InlPrag=[0]] | |
:: forall a. Show a => a -> PostgresOperation -> Integer -> String | |
[GblId, | |
Arity=4, | |
Str=<L,1*U(1*C1(C1(C1(U))),A,A)><L,U><L,1*U><L,U>, | |
Unf=OtherCon []] = | |
\r [w_sVCQ ww_sVCR ww1_sVCS ww2_sVCT] | |
let { | |
sat_sVD4 [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVD3 [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVD2 [Occ=Once] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sVD1 [Occ=Once, Dmd=<L,1*U>] :: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sVD0 [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVCZ [Occ=Once, Dmd=<L,1*U>] | |
:: String | |
[LclId] = | |
\s [] | |
let { | |
sat_sVCY [Occ=Once, | |
Dmd=<L,1*U>] | |
:: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sVCX [Occ=Once] | |
:: [Char] | |
[LclId] = | |
\u [] | |
case | |
$w$cshowsPrec4 | |
0# | |
ww2_sVCT | |
$fShowKafkaEnvelope7 | |
of | |
{ (#,#) ww4_sVCV [Occ=Once] | |
ww5_sVCW [Occ=Once] -> | |
: [ww4_sVCV | |
ww5_sVCW]; | |
}; | |
} in | |
unpackAppendCString# | |
$fShowWALRecord1 | |
sat_sVCX; | |
} in | |
++ showCommaSpace1 sat_sVCY; | |
} in $w$cshowsPrec3 ww1_sVCS sat_sVCZ; | |
} in | |
unpackAppendCString# $fShowWALRecord2 sat_sVD0; | |
} in ++ showCommaSpace1 sat_sVD1; | |
} in showsPrec w_sVCQ $fShowKafkaEnvelope1 ww_sVCR sat_sVD2; | |
} in unpackAppendCString# $fShowWALRecord3 sat_sVD3; | |
} in unpackAppendCString# $fShowWALRecord4 sat_sVD4; | |
$fShowWALRecord_$cshow [InlPrag=INLINE[0]] | |
:: forall a. Show a => WALRecord a -> String | |
[GblId, | |
Arity=2, | |
Str=<L,1*U(1*C1(C1(C1(U))),A,A)><S,1*U(U,1*U,U)>, | |
Unf=OtherCon []] = | |
\r [w_sVD5 w1_sVD6] | |
case w1_sVD6 of { | |
WALRecord ww1_sVD8 [Occ=Once] | |
ww2_sVD9 [Occ=Once] | |
ww3_sVDa [Occ=Once] -> | |
$w$cshow1 w_sVD5 ww1_sVD8 ww2_sVD9 ww3_sVDa; | |
}; | |
$fShowWALRecord_$cshowList | |
:: forall a. Show a => [WALRecord a] -> ShowS | |
[GblId, | |
Arity=3, | |
Str=<L,U(C(C1(C(U))),A,A)><S,1*U><L,U>, | |
Unf=OtherCon []] = | |
\r [$dShow_sVDb eta_sVDc eta1_sVDd] | |
let { | |
sat_sVDj [Occ=Once] :: WALRecord a_aRxs -> ShowS | |
[LclId] = | |
\r [w_sVDe] | |
case w_sVDe of { | |
WALRecord ww1_sVDg [Occ=Once] | |
ww2_sVDh [Occ=Once] | |
ww3_sVDi [Occ=Once] -> | |
$w$cshowsPrec6 $dShow_sVDb 0# ww1_sVDg ww2_sVDh ww3_sVDi; | |
}; | |
} in showList__ sat_sVDj eta_sVDc eta1_sVDd; | |
$fShowWALRecord [InlPrag=CONLIKE] | |
:: forall a. Show a => Show (WALRecord a) | |
[GblId[DFunId], | |
Arity=1, | |
Str=<L,U(C(C1(C(U))),A,A)>m, | |
Unf=OtherCon []] = | |
\r [$dShow_sVDk] | |
let { | |
sat_sVDn [Occ=Once] :: [WALRecord a_aRxs] -> ShowS | |
[LclId] = | |
\r [eta_B2 eta_B1] | |
$fShowWALRecord_$cshowList $dShow_sVDk eta_B2 eta_B1; } in | |
let { | |
sat_sVDm [Occ=Once] :: WALRecord a_aRxs -> String | |
[LclId] = | |
\r [eta_B1] $fShowWALRecord_$cshow $dShow_sVDk eta_B1; } in | |
let { | |
sat_sVDl [Occ=Once] :: Int -> WALRecord a_aRxs -> ShowS | |
[LclId] = | |
\r [eta_B2 eta_B1] | |
$fShowWALRecord_$cshowsPrec $dShow_sVDk eta_B2 eta_B1; | |
} in C:Show [sat_sVDl sat_sVDm sat_sVDn]; | |
$fShowProcessingError2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"ProcessingError "#; | |
$w$cshowsPrec4 [InlPrag=[0]] | |
:: Int# -> ProcessingError -> String -> String | |
[GblId, Arity=3, Str=<S,U><L,1*U(U,U,U)><L,U>, Unf=OtherCon []] = | |
\r [ww_sVDo w_sVDp w1_sVDq] | |
case >=# [ww_sVDo 11#] of sat_sVDr { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVDr] of { | |
False -> | |
let { | |
sat_sVDw [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case $w$cshowsPrec w_sVDp w1_sVDq of { | |
(#,#) ww2_sVDu [Occ=Once] ww3_sVDv [Occ=Once] -> | |
: [ww2_sVDu ww3_sVDv]; | |
}; | |
} in unpackAppendCString# $fShowProcessingError2 sat_sVDw; | |
True -> | |
let { | |
sat_sVDC [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVDB [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVDx [Occ=Once] :: String | |
[LclId] = | |
NO_CCS :! [$fShow(,)2 w1_sVDq]; | |
} in | |
case $w$cshowsPrec w_sVDp sat_sVDx of { | |
(#,#) ww2_sVDz [Occ=Once] ww3_sVDA [Occ=Once] -> | |
: [ww2_sVDz ww3_sVDA]; | |
}; | |
} in unpackAppendCString# $fShowProcessingError2 sat_sVDB; | |
} in : [$fShow(,)4 sat_sVDC]; | |
}; | |
}; | |
$fShowProcessingError_$cshowsPrec [InlPrag=INLINE[0]] | |
:: Int -> ProcessingError -> ShowS | |
[GblId, | |
Arity=3, | |
Str=<S(S),1*U(U)><L,1*U(U,U,U)><L,U>, | |
Unf=OtherCon []] = | |
\r [w_sVDD w1_sVDE w2_sVDF] | |
case w_sVDD of { | |
I# ww1_sVDH [Occ=Once] -> $w$cshowsPrec4 ww1_sVDH w1_sVDE w2_sVDF; | |
}; | |
$fShowProcessingError_$cshow :: ProcessingError -> String | |
[GblId, Arity=1, Str=<L,1*U(U,U,U)>, Unf=OtherCon []] = | |
\r [x_sVDI] | |
let { | |
sat_sVDM [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case $w$cshowsPrec x_sVDI [] of { | |
(#,#) ww1_sVDK [Occ=Once] ww2_sVDL [Occ=Once] -> | |
: [ww1_sVDK ww2_sVDL]; | |
}; | |
} in unpackAppendCString# $fShowProcessingError2 sat_sVDM; | |
$fShowProcessingError1 :: ProcessingError -> ShowS | |
[GblId, Arity=2, Str=<L,1*U(U,U,U)><L,U>, Unf=OtherCon []] = | |
\r [w_sVDN w1_sVDO] $w$cshowsPrec4 0# w_sVDN w1_sVDO; | |
$fShowProcessingError_$cshowList :: [ProcessingError] -> ShowS | |
[GblId, Arity=2, Unf=OtherCon []] = | |
\r [eta_B2 eta_B1] showList__ $fShowProcessingError1 eta_B2 eta_B1; | |
$fShowProcessingError [InlPrag=CONLIKE] :: Show ProcessingError | |
[GblId[DFunId], Str=m, Unf=OtherCon []] = | |
NO_CCS C:Show! [$fShowProcessingError_$cshowsPrec | |
$fShowProcessingError_$cshow | |
$fShowProcessingError_$cshowList]; | |
$fShowDecodingError2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"DecodingError "#; | |
$w$cshowsPrec [InlPrag=[0]] | |
:: Int# -> DecodingError -> String -> String | |
[GblId, Arity=3, Str=<S,U><L,1*U(U,U,U)><L,U>, Unf=OtherCon []] = | |
\r [ww_sVDP w_sVDQ w1_sVDR] | |
case >=# [ww_sVDP 11#] of sat_sVDS { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVDS] of { | |
False -> | |
let { | |
sat_sVDX [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case $w$cshowsPrec w_sVDQ w1_sVDR of { | |
(#,#) ww2_sVDV [Occ=Once] ww3_sVDW [Occ=Once] -> | |
: [ww2_sVDV ww3_sVDW]; | |
}; | |
} in unpackAppendCString# $fShowDecodingError2 sat_sVDX; | |
True -> | |
let { | |
sat_sVE3 [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVE2 [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVDY [Occ=Once] :: String | |
[LclId] = | |
NO_CCS :! [$fShow(,)2 w1_sVDR]; | |
} in | |
case $w$cshowsPrec w_sVDQ sat_sVDY of { | |
(#,#) ww2_sVE0 [Occ=Once] ww3_sVE1 [Occ=Once] -> | |
: [ww2_sVE0 ww3_sVE1]; | |
}; | |
} in unpackAppendCString# $fShowDecodingError2 sat_sVE2; | |
} in : [$fShow(,)4 sat_sVE3]; | |
}; | |
}; | |
$fShowDecodingError_$cshowsPrec [InlPrag=INLINE[0]] | |
:: Int -> DecodingError -> ShowS | |
[GblId, | |
Arity=3, | |
Str=<S(S),1*U(U)><L,1*U(U,U,U)><L,U>, | |
Unf=OtherCon []] = | |
\r [w_sVE4 w1_sVE5 w2_sVE6] | |
case w_sVE4 of { | |
I# ww1_sVE8 [Occ=Once] -> $w$cshowsPrec ww1_sVE8 w1_sVE5 w2_sVE6; | |
}; | |
$fShowDecodingError_$cshow :: DecodingError -> String | |
[GblId, Arity=1, Str=<L,1*U(U,U,U)>, Unf=OtherCon []] = | |
\r [x_sVE9] | |
let { | |
sat_sVEd [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case $w$cshowsPrec x_sVE9 [] of { | |
(#,#) ww1_sVEb [Occ=Once] ww2_sVEc [Occ=Once] -> | |
: [ww1_sVEb ww2_sVEc]; | |
}; | |
} in unpackAppendCString# $fShowDecodingError2 sat_sVEd; | |
$fShowDecodingError1 :: DecodingError -> ShowS | |
[GblId, Arity=2, Str=<L,1*U(U,U,U)><L,U>, Unf=OtherCon []] = | |
\r [w_sVEe w1_sVEf] $w$cshowsPrec 0# w_sVEe w1_sVEf; | |
$fShowDecodingError_$cshowList :: [DecodingError] -> ShowS | |
[GblId, Arity=2, Unf=OtherCon []] = | |
\r [eta_B2 eta_B1] showList__ $fShowDecodingError1 eta_B2 eta_B1; | |
$fShowDecodingError [InlPrag=CONLIKE] :: Show DecodingError | |
[GblId[DFunId], Str=m, Unf=OtherCon []] = | |
NO_CCS C:Show! [$fShowDecodingError_$cshowsPrec | |
$fShowDecodingError_$cshow | |
$fShowDecodingError_$cshowList]; | |
$fShowWALConsumerError6 :: Int | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS I#! [11#]; | |
$fShowWALConsumerError5 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"DE "#; | |
$fShowWALConsumerError4 :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fShowWALConsumerError5; | |
$fShowWALConsumerError3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"PE "#; | |
$fShowWALConsumerError2 :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fShowWALConsumerError3; | |
$fShowWALConsumerError7 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"KE "#; | |
$w$cshowsPrec5 [InlPrag=[0]] | |
:: Int# -> WALConsumerError -> String -> String | |
[GblId, Arity=3, Str=<S,U><S,1*U><L,U>, Unf=OtherCon []] = | |
\r [ww_sVEg w_sVEh w1_sVEi] | |
case w_sVEh of { | |
KE b1_sVEk [Occ=Once*] -> | |
case >=# [ww_sVEg 11#] of sat_sVEl { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVEl] of { | |
False -> | |
let { | |
sat_sVEn [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
$fShowKafkaError_$cshowsPrec | |
$fShowWALConsumerError6 b1_sVEk w1_sVEi; | |
} in unpackAppendCString# $fShowWALConsumerError7 sat_sVEn; | |
True -> | |
let { | |
sat_sVEq [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVEp [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVEo [Occ=Once] :: String | |
[LclId] = | |
NO_CCS :! [$fShow(,)2 w1_sVEi]; | |
} in | |
$fShowKafkaError_$cshowsPrec | |
$fShowWALConsumerError6 b1_sVEk sat_sVEo; | |
} in unpackAppendCString# $fShowWALConsumerError7 sat_sVEp; | |
} in : [$fShow(,)4 sat_sVEq]; | |
}; | |
}; | |
DE b1_sVEr [Occ=Once*] -> | |
case >=# [ww_sVEg 11#] of sat_sVEs { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVEs] of { | |
False -> | |
let { | |
sat_sVEu [Occ=Once, Dmd=<L,1*U>] :: [Char] | |
[LclId] = | |
\s [] $w$cshowsPrec 11# b1_sVEr w1_sVEi; | |
} in ++ $fShowWALConsumerError4 sat_sVEu; | |
True -> | |
let { | |
sat_sVEx [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVEw [Occ=Once, Dmd=<L,1*U>] :: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sVEv [Occ=Once] :: String | |
[LclId] = | |
NO_CCS :! [$fShow(,)2 w1_sVEi]; | |
} in $w$cshowsPrec 11# b1_sVEr sat_sVEv; | |
} in ++ $fShowWALConsumerError4 sat_sVEw; | |
} in : [$fShow(,)4 sat_sVEx]; | |
}; | |
}; | |
PE b1_sVEy [Occ=Once*] -> | |
case >=# [ww_sVEg 11#] of sat_sVEz { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVEz] of { | |
False -> | |
let { | |
sat_sVEB [Occ=Once, Dmd=<L,1*U>] :: [Char] | |
[LclId] = | |
\s [] $w$cshowsPrec4 11# b1_sVEy w1_sVEi; | |
} in ++ $fShowWALConsumerError2 sat_sVEB; | |
True -> | |
let { | |
sat_sVEE [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVED [Occ=Once, Dmd=<L,1*U>] :: [Char] | |
[LclId] = | |
\s [] | |
let { | |
sat_sVEC [Occ=Once] :: String | |
[LclId] = | |
NO_CCS :! [$fShow(,)2 w1_sVEi]; | |
} in $w$cshowsPrec4 11# b1_sVEy sat_sVEC; | |
} in ++ $fShowWALConsumerError2 sat_sVED; | |
} in : [$fShow(,)4 sat_sVEE]; | |
}; | |
}; | |
}; | |
$fShowWALConsumerError_$cshowsPrec [InlPrag=INLINE[0]] | |
:: Int -> WALConsumerError -> ShowS | |
[GblId, Arity=3, Str=<S(S),1*U(U)><S,1*U><L,U>, Unf=OtherCon []] = | |
\r [w_sVEF w1_sVEG w2_sVEH] | |
case w_sVEF of { | |
I# ww1_sVEJ [Occ=Once] -> $w$cshowsPrec5 ww1_sVEJ w1_sVEG w2_sVEH; | |
}; | |
$fShowWALConsumerError8 :: [Char] | |
[GblId, Caf=NoCafRefs, Str=m2, Unf=OtherCon []] = | |
NO_CCS :! [$fShow(,)2 []]; | |
$fShowWALConsumerError_$cshow :: WALConsumerError -> String | |
[GblId, Arity=1, Str=<S,1*U>, Unf=OtherCon []] = | |
\r [x_sVEK] | |
case x_sVEK of { | |
KE b1_sVEM [Occ=Once] -> | |
let { | |
sat_sVEN [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
$fShowKafkaError_$cshowsPrec $fShowWALConsumerError6 b1_sVEM []; | |
} in unpackAppendCString# $fShowWALConsumerError7 sat_sVEN; | |
DE b1_sVEO [Occ=Once] -> | |
let { | |
sat_sVET [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVES [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case $w$cshowsPrec b1_sVEO $fShowWALConsumerError8 of { | |
(#,#) ww1_sVEQ [Occ=Once] ww2_sVER [Occ=Once] -> | |
: [ww1_sVEQ ww2_sVER]; | |
}; | |
} in unpackAppendCString# $fShowDecodingError2 sat_sVES; } in | |
let { | |
sat_sVEU [Occ=Once] :: [Char] | |
[LclId] = | |
NO_CCS :! [$fShow(,)4 sat_sVET]; | |
} in ++ $fShowWALConsumerError4 sat_sVEU; | |
PE b1_sVEV [Occ=Once] -> | |
let { | |
sat_sVF0 [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVEZ [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case $w$cshowsPrec b1_sVEV $fShowWALConsumerError8 of { | |
(#,#) ww1_sVEX [Occ=Once] ww2_sVEY [Occ=Once] -> | |
: [ww1_sVEX ww2_sVEY]; | |
}; | |
} in unpackAppendCString# $fShowProcessingError2 sat_sVEZ; } in | |
let { | |
sat_sVF1 [Occ=Once] :: [Char] | |
[LclId] = | |
NO_CCS :! [$fShow(,)4 sat_sVF0]; | |
} in ++ $fShowWALConsumerError2 sat_sVF1; | |
}; | |
$fShowWALConsumerError1 :: WALConsumerError -> ShowS | |
[GblId, Arity=2, Str=<S,1*U><L,U>, Unf=OtherCon []] = | |
\r [w_sVF2 w1_sVF3] $w$cshowsPrec5 0# w_sVF2 w1_sVF3; | |
$fShowWALConsumerError_$cshowList :: [WALConsumerError] -> ShowS | |
[GblId, Arity=2, Unf=OtherCon []] = | |
\r [eta_B2 eta_B1] | |
showList__ $fShowWALConsumerError1 eta_B2 eta_B1; | |
$fShowWALConsumerError [InlPrag=CONLIKE] :: Show WALConsumerError | |
[GblId[DFunId], Str=m, Unf=OtherCon []] = | |
NO_CCS C:Show! [$fShowWALConsumerError_$cshowsPrec | |
$fShowWALConsumerError_$cshow | |
$fShowWALConsumerError_$cshowList]; | |
$fFromJSONKafkaHost [InlPrag=CONLIKE] :: FromJSON KafkaHost | |
[GblId[DFunId], Str=m, Unf=OtherCon []] = | |
NO_CCS C:FromJSON! [$fFromJSONText0_$cparseJSON | |
$fFromJSONKeyText0_$cparseJSONList]; | |
$fEqKafkaHost [InlPrag=CONLIKE] :: Eq KafkaHost | |
[GblId[DFunId], Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS C:Eq! [$fEqText_$c== $fEqText_$c/=]; | |
$fShowKafkaHost3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"KafkaHost {"#; | |
$fShowKafkaHost2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"unKafkaHost = "#; | |
$w$cshowsPrec2 [InlPrag=[0]] | |
:: Int# -> KafkaHost -> String -> String | |
[GblId, Arity=3, Str=<S,U><L,1*U(U,U,U)><L,U>, Unf=OtherCon []] = | |
\r [ww_sVF4 w_sVF5 w1_sVF6] | |
case >=# [ww_sVF4 11#] of sat_sVF7 { | |
__DEFAULT -> | |
case tagToEnum# [sat_sVF7] of { | |
False -> | |
let { | |
sat_sVFe [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVFd [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVF9 [Occ=Once] :: String | |
[LclId] = | |
\u [] | |
unpackAppendCString# | |
$fShowKafkaEnvelope2 w1_sVF6; | |
} in | |
case $w$cshowsPrec w_sVF5 sat_sVF9 of { | |
(#,#) ww2_sVFb [Occ=Once] ww3_sVFc [Occ=Once] -> | |
: [ww2_sVFb ww3_sVFc]; | |
}; | |
} in unpackAppendCString# $fShowKafkaHost2 sat_sVFd; | |
} in unpackAppendCString# $fShowKafkaHost3 sat_sVFe; | |
True -> | |
let { | |
sat_sVFm [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVFl [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVFk [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVFg [Occ=Once] :: String | |
[LclId] = | |
\u [] | |
let { | |
sat_sVFf [Occ=Once] :: [Char] | |
[LclId] = | |
NO_CCS :! [$fShow(,)2 w1_sVF6]; | |
} in | |
unpackAppendCString# | |
$fShowKafkaEnvelope2 sat_sVFf; | |
} in | |
case $w$cshowsPrec w_sVF5 sat_sVFg of { | |
(#,#) ww2_sVFi [Occ=Once] | |
ww3_sVFj [Occ=Once] -> | |
: [ww2_sVFi ww3_sVFj]; | |
}; | |
} in unpackAppendCString# $fShowKafkaHost2 sat_sVFk; | |
} in unpackAppendCString# $fShowKafkaHost3 sat_sVFl; | |
} in : [$fShow(,)4 sat_sVFm]; | |
}; | |
}; | |
$fShowKafkaHost_$cshowsPrec [InlPrag=INLINE[0]] | |
:: Int -> KafkaHost -> ShowS | |
[GblId, | |
Arity=3, | |
Str=<S(S),1*U(U)><L,1*U(U,U,U)><L,U>, | |
Unf=OtherCon []] = | |
\r [w_sVFn w1_sVFo w2_sVFp] | |
case w_sVFn of { | |
I# ww1_sVFr [Occ=Once] -> $w$cshowsPrec2 ww1_sVFr w1_sVFo w2_sVFp; | |
}; | |
$fShowKafkaHost4 :: [Char] | |
[GblId] = | |
\u [] unpackCString# $fShowKafkaEnvelope2; | |
$fShowKafkaHost_$cshow :: KafkaHost -> String | |
[GblId, Arity=1, Str=<L,1*U(U,U,U)>, Unf=OtherCon []] = | |
\r [x_sVFs] | |
let { | |
sat_sVFx [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
let { | |
sat_sVFw [Occ=Once] :: [Char] | |
[LclId] = | |
\u [] | |
case $w$cshowsPrec x_sVFs $fShowKafkaHost4 of { | |
(#,#) ww1_sVFu [Occ=Once] ww2_sVFv [Occ=Once] -> | |
: [ww1_sVFu ww2_sVFv]; | |
}; | |
} in unpackAppendCString# $fShowKafkaHost2 sat_sVFw; | |
} in unpackAppendCString# $fShowKafkaHost3 sat_sVFx; | |
$fShowKafkaHost1 :: KafkaHost -> ShowS | |
[GblId, Arity=2, Str=<L,1*U(U,U,U)><L,U>, Unf=OtherCon []] = | |
\r [w_sVFy w1_sVFz] $w$cshowsPrec2 0# w_sVFy w1_sVFz; | |
$fShowKafkaHost_$cshowList :: [KafkaHost] -> ShowS | |
[GblId, Arity=2, Unf=OtherCon []] = | |
\r [eta_B2 eta_B1] showList__ $fShowKafkaHost1 eta_B2 eta_B1; | |
$fShowKafkaHost [InlPrag=CONLIKE] :: Show KafkaHost | |
[GblId[DFunId], Str=m, Unf=OtherCon []] = | |
NO_CCS C:Show! [$fShowKafkaHost_$cshowsPrec | |
$fShowKafkaHost_$cshow | |
$fShowKafkaHost_$cshowList]; | |
walThreadId :: WALConsumer -> ThreadId | |
[GblId[[RecSel]], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S(LS),1*U(A,1*U(U))>m, | |
Unf=OtherCon []] = | |
\r [ds1_sVFA] | |
case ds1_sVFA of { | |
WALConsumer _ [Occ=Dead] ds3_sVFD [Occ=Once] -> ds3_sVFD; | |
}; | |
walConsumer :: WALConsumer -> KafkaConsumer | |
[GblId[[RecSel]], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S(SL),1*U(1*U(U,U),A)>m, | |
Unf=OtherCon []] = | |
\r [ds1_sVFE] | |
case ds1_sVFE of { | |
WALConsumer ds2_sVFG [Occ=Once] _ [Occ=Dead] -> ds2_sVFG; | |
}; | |
unKafkaHost1 :: KafkaHost -> KafkaHost | |
[GblId, | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S,1*U(U,U,U)>m, | |
Unf=OtherCon []] = | |
\r [ds1_sVFI] ds1_sVFI; | |
unKafkaHost :: KafkaHost -> Text | |
[GblId[[RecSel]], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S,1*U(U,U,U)>m, | |
Unf=OtherCon []] = | |
\r [eta_B1] unKafkaHost1 eta_B1; | |
lsn :: forall a. WALRecord a -> Integer | |
[GblId[[RecSel]], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S(LLS),1*U(A,A,1*U)>, | |
Unf=OtherCon []] = | |
\r [ds1_sVFJ] | |
case ds1_sVFJ of { | |
WALRecord _ [Occ=Dead] _ [Occ=Dead] ds4_sVFN [Occ=Once] -> | |
ds4_sVFN; | |
}; | |
operation :: forall a. WALRecord a -> PostgresOperation | |
[GblId[[RecSel]], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S(LSL),1*U(A,1*U,A)>, | |
Unf=OtherCon []] = | |
\r [ds1_sVFO] | |
case ds1_sVFO of { | |
WALRecord _ [Occ=Dead] ds3_sVFR [Occ=Once] _ [Occ=Dead] -> | |
ds3_sVFR; | |
}; | |
payload :: forall a. WALRecord a -> a | |
[GblId[[RecSel]], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S(SLL),1*U(1*U,A,A)>, | |
Unf=OtherCon []] = | |
\r [ds1_sVFT] | |
case ds1_sVFT of { | |
WALRecord ds2_sVFV [Occ=Once] _ [Occ=Dead] _ [Occ=Dead] -> | |
ds2_sVFV; | |
}; | |
envelopePayload :: forall a. KafkaEnvelope a -> a | |
[GblId[[RecSel]], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S(LLS),1*U(A,A,1*U)>, | |
Unf=OtherCon []] = | |
\r [ds1_sVFY] | |
case ds1_sVFY of { | |
KafkaEnvelope _ [Occ=Dead] _ [Occ=Dead] ds4_sVG2 [Occ=Once] -> | |
ds4_sVG2; | |
}; | |
envelopeVersion :: forall a. KafkaEnvelope a -> Int | |
[GblId[[RecSel]], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S(LSL),1*U(A,1*U(U),A)>m, | |
Unf=OtherCon []] = | |
\r [ds1_sVG3] | |
case ds1_sVG3 of { | |
KafkaEnvelope _ [Occ=Dead] ds3_sVG6 [Occ=Once] _ [Occ=Dead] -> | |
ds3_sVG6; | |
}; | |
envelopeName :: forall a. KafkaEnvelope a -> Text | |
[GblId[[RecSel]], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<S(SLL),1*U(1*U(U,U,U),A,A)>m, | |
Unf=OtherCon []] = | |
\r [ds1_sVG8] | |
case ds1_sVG8 of { | |
KafkaEnvelope ds2_sVGa [Occ=Once] _ [Occ=Dead] _ [Occ=Dead] -> | |
ds2_sVGa; | |
}; | |
$trModule4 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"mercury-web-backend-0.0.0-Cj9KdUSnX1JLO86MCj5tij"#; | |
$trModule3 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$trModule4]; | |
$trModule2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Kafka.Types"#; | |
$trModule1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$trModule2]; | |
$trModule :: Module | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS Module! [$trModule3 $trModule1]; | |
$krep_rVmV :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcThreadId []]; | |
$krep1_rVmW :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcKafkaConsumer []]; | |
$krep2_rVmX :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcKafkaError []]; | |
$krep3_rVmY :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcInteger []]; | |
$krep4_rVmZ :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcInt []]; | |
$krep5_rVn0 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcText []]; | |
$krep6_rVn1 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m2, Unf=OtherCon []] = | |
NO_CCS KindRepVar! [0#]; | |
$tcWALConsumer2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"WALConsumer"#; | |
$tcWALConsumer1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tcWALConsumer2]; | |
$tcWALConsumer :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [1805364623727207934## | |
15766092924625294740## | |
$trModule | |
$tcWALConsumer1 | |
0# | |
krep$*]; | |
$krep7_rVn2 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcWALConsumer []]; | |
$krep8_rVn3 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep_rVmV $krep7_rVn2]; | |
$tc'WALConsumer1 [InlPrag=[~]] :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep1_rVmW $krep8_rVn3]; | |
$tc'WALConsumer3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"'WALConsumer"#; | |
$tc'WALConsumer2 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tc'WALConsumer3]; | |
$tc'WALConsumer :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [16938375430112386431## | |
7690712073888027385## | |
$trModule | |
$tc'WALConsumer2 | |
0# | |
$tc'WALConsumer1]; | |
$tcKafkaHost2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"KafkaHost"#; | |
$tcKafkaHost1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tcKafkaHost2]; | |
$tcKafkaHost :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [17127208484192232167## | |
8820850208983047910## | |
$trModule | |
$tcKafkaHost1 | |
0# | |
krep$*]; | |
$krep9_rVn4 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcKafkaHost []]; | |
$tc'KafkaHost1 [InlPrag=[~]] :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep5_rVn0 $krep9_rVn4]; | |
$tc'KafkaHost3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"'KafkaHost"#; | |
$tc'KafkaHost2 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tc'KafkaHost3]; | |
$tc'KafkaHost :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [10607048084740100484## | |
14549330605829323463## | |
$trModule | |
$tc'KafkaHost2 | |
0# | |
$tc'KafkaHost1]; | |
$tcDecodingError2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"DecodingError"#; | |
$tcDecodingError1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tcDecodingError2]; | |
$tcDecodingError :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [14800783912842302239## | |
16526117732807537596## | |
$trModule | |
$tcDecodingError1 | |
0# | |
krep$*]; | |
$krep10_rVn5 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcDecodingError []]; | |
$tc'DecodingError1 [InlPrag=[~]] :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep5_rVn0 $krep10_rVn5]; | |
$tc'DecodingError3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"'DecodingError"#; | |
$tc'DecodingError2 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tc'DecodingError3]; | |
$tc'DecodingError :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [13705038794188781480## | |
7055348114335234897## | |
$trModule | |
$tc'DecodingError2 | |
0# | |
$tc'DecodingError1]; | |
$tcProcessingError2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"ProcessingError"#; | |
$tcProcessingError1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tcProcessingError2]; | |
$tcProcessingError :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [18188804672352018163## | |
6248348112307410526## | |
$trModule | |
$tcProcessingError1 | |
0# | |
krep$*]; | |
$krep11_rVn6 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcProcessingError []]; | |
$tc'ProcessingError1 [InlPrag=[~]] :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep5_rVn0 $krep11_rVn6]; | |
$tc'ProcessingError3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"'ProcessingError"#; | |
$tc'ProcessingError2 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tc'ProcessingError3]; | |
$tc'ProcessingError :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [10779866793613474117## | |
17753276480104611209## | |
$trModule | |
$tc'ProcessingError2 | |
0# | |
$tc'ProcessingError1]; | |
$tcWALConsumerError2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"WALConsumerError"#; | |
$tcWALConsumerError1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tcWALConsumerError2]; | |
$tcWALConsumerError :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [419569135435787943## | |
16350749177786126809## | |
$trModule | |
$tcWALConsumerError1 | |
0# | |
krep$*]; | |
$krep12_rVn7 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcWALConsumerError []]; | |
$tc'KE1 [InlPrag=[~]] :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep2_rVmX $krep12_rVn7]; | |
$tc'KE3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"'KE"#; | |
$tc'KE2 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tc'KE3]; | |
$tc'KE :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [16096688279732070452## | |
3920195388480019955## | |
$trModule | |
$tc'KE2 | |
0# | |
$tc'KE1]; | |
$tc'DE1 [InlPrag=[~]] :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep10_rVn5 $krep12_rVn7]; | |
$tc'DE3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"'DE"#; | |
$tc'DE2 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tc'DE3]; | |
$tc'DE :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [15226107387469482821## | |
5519589206176502422## | |
$trModule | |
$tc'DE2 | |
0# | |
$tc'DE1]; | |
$tc'PE1 [InlPrag=[~]] :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep11_rVn6 $krep12_rVn7]; | |
$tc'PE3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"'PE"#; | |
$tc'PE2 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tc'PE3]; | |
$tc'PE :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [9730118284890604790## | |
17418168581219261781## | |
$trModule | |
$tc'PE2 | |
0# | |
$tc'PE1]; | |
$tcPostgresOperation1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$fFromJSONPostgresOperation3]; | |
$tcPostgresOperation :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [3248849802726453403## | |
16724263676407647261## | |
$trModule | |
$tcPostgresOperation1 | |
0# | |
krep$*]; | |
$tc'OperationDelete1 [InlPrag=[~]] :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcPostgresOperation []]; | |
$tc'OperationInsert2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"'OperationInsert"#; | |
$tc'OperationInsert1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tc'OperationInsert2]; | |
$tc'OperationInsert :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [892913791986105811## | |
5243765373915537916## | |
$trModule | |
$tc'OperationInsert1 | |
0# | |
$tc'OperationDelete1]; | |
$tc'OperationUpdate2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"'OperationUpdate"#; | |
$tc'OperationUpdate1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tc'OperationUpdate2]; | |
$tc'OperationUpdate :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [17623934439929759096## | |
5976535633824101842## | |
$trModule | |
$tc'OperationUpdate1 | |
0# | |
$tc'OperationDelete1]; | |
$tc'OperationDelete3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"'OperationDelete"#; | |
$tc'OperationDelete2 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tc'OperationDelete3]; | |
$tc'OperationDelete :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [824464909589447214## | |
9986260643056616721## | |
$trModule | |
$tc'OperationDelete2 | |
0# | |
$tc'OperationDelete1]; | |
$tc'OperationSnapshot2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"'OperationSnapshot"#; | |
$tc'OperationSnapshot1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tc'OperationSnapshot2]; | |
$tc'OperationSnapshot :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [243603130426070551## | |
15439867094763839058## | |
$trModule | |
$tc'OperationSnapshot1 | |
0# | |
$tc'OperationDelete1]; | |
$tcWALRecord1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tcWALRecord2]; | |
$tcWALRecord :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [7413717383996026833## | |
1756939240825563640## | |
$trModule | |
$tcWALRecord1 | |
0# | |
krep$*Arr*]; | |
$krep13_rVn8 :: [KindRep] | |
[GblId, Caf=NoCafRefs, Str=m2, Unf=OtherCon []] = | |
NO_CCS :! [$krep6_rVn1 []]; | |
$krep14_rVn9 :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcWALRecord $krep13_rVn8]; | |
$krep15_rVna :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep3_rVmY $krep14_rVn9]; | |
$krep16_rVnb :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$tc'OperationDelete1 $krep15_rVna]; | |
$tc'WALRecord1 [InlPrag=[~]] :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep6_rVn1 $krep16_rVnb]; | |
$tc'WALRecord3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"'WALRecord"#; | |
$tc'WALRecord2 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tc'WALRecord3]; | |
$tc'WALRecord :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [7916507416154839066## | |
10861403691881280113## | |
$trModule | |
$tc'WALRecord2 | |
1# | |
$tc'WALRecord1]; | |
$tcKafkaEnvelope1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$fFromJSONKafkaEnvelope14]; | |
$tcKafkaEnvelope :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [1722930307342524605## | |
6976466545816662081## | |
$trModule | |
$tcKafkaEnvelope1 | |
0# | |
krep$*Arr*]; | |
$krep17_rVnc :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS KindRepTyConApp! [$tcKafkaEnvelope $krep13_rVn8]; | |
$krep18_rVnd :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep6_rVn1 $krep17_rVnc]; | |
$krep19_rVne :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep4_rVmZ $krep18_rVnd]; | |
$tc'KafkaEnvelope1 [InlPrag=[~]] :: KindRep | |
[GblId, Caf=NoCafRefs, Str=m4, Unf=OtherCon []] = | |
NO_CCS KindRepFun! [$krep5_rVn0 $krep19_rVne]; | |
$tc'KafkaEnvelope3 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"'KafkaEnvelope"#; | |
$tc'KafkaEnvelope2 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$tc'KafkaEnvelope3]; | |
$tc'KafkaEnvelope :: TyCon | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS TyCon! [10740896734799731780## | |
907118131475183793## | |
$trModule | |
$tc'KafkaEnvelope2 | |
1# | |
$tc'KafkaEnvelope1]; | |
KafkaEnvelope :: forall a. Text -> Int -> a -> KafkaEnvelope a | |
[GblId[DataCon], | |
Arity=3, | |
Caf=NoCafRefs, | |
Str=<L,U><L,U><L,U>m, | |
Unf=OtherCon []] = | |
\r [eta_B3 eta_B2 eta_B1] KafkaEnvelope [eta_B3 eta_B2 eta_B1]; | |
WALRecord | |
:: forall a. a -> PostgresOperation -> Integer -> WALRecord a | |
[GblId[DataCon], | |
Arity=3, | |
Caf=NoCafRefs, | |
Str=<L,U><L,U><L,U>m, | |
Unf=OtherCon []] = | |
\r [eta_B3 eta_B2 eta_B1] WALRecord [eta_B3 eta_B2 eta_B1]; | |
OperationInsert :: PostgresOperation | |
[GblId[DataCon], Caf=NoCafRefs, Unf=OtherCon []] = | |
NO_CCS OperationInsert! []; | |
OperationUpdate :: PostgresOperation | |
[GblId[DataCon], Caf=NoCafRefs, Unf=OtherCon []] = | |
NO_CCS OperationUpdate! []; | |
OperationDelete :: PostgresOperation | |
[GblId[DataCon], Caf=NoCafRefs, Unf=OtherCon []] = | |
NO_CCS OperationDelete! []; | |
OperationSnapshot :: PostgresOperation | |
[GblId[DataCon], Caf=NoCafRefs, Unf=OtherCon []] = | |
NO_CCS OperationSnapshot! []; | |
KE :: KafkaError -> WALConsumerError | |
[GblId[DataCon], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<L,U>m1, | |
Unf=OtherCon []] = | |
\r [eta_B1] KE [eta_B1]; | |
DE :: DecodingError -> WALConsumerError | |
[GblId[DataCon], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<L,U>m2, | |
Unf=OtherCon []] = | |
\r [eta_B1] DE [eta_B1]; | |
PE :: ProcessingError -> WALConsumerError | |
[GblId[DataCon], | |
Arity=1, | |
Caf=NoCafRefs, | |
Str=<L,U>m3, | |
Unf=OtherCon []] = | |
\r [eta_B1] PE [eta_B1]; | |
WALConsumer :: KafkaConsumer -> ThreadId -> WALConsumer | |
[GblId[DataCon], | |
Arity=2, | |
Caf=NoCafRefs, | |
Str=<L,U><L,U>m, | |
Unf=OtherCon []] = | |
\r [eta_B2 eta_B1] WALConsumer [eta_B2 eta_B1]; | |
*** End of Offense *** | |
Call stack: | |
CallStack (from HasCallStack): | |
prettyCurrentCallStack, called at compiler/utils/Outputable.hs:1133:58 in ghc:Outputable | |
callStackDoc, called at compiler/utils/Outputable.hs:1137:37 in ghc:Outputable | |
pprPanic, called at compiler/stgSyn/StgLint.hs:65:19 in ghc:StgLint | |
Please report this as a GHC bug: http://www.haskell.org/ghc/reportabug | |
[ 5 of 141] Compiling Mercury.Database.Persist.TH ( src/Mercury/Database/Persist/TH.hs, dist/build/Mercury/Database/Persist/TH.o ) | |
<no location info>: error: | |
ghc: panic! (the 'impossible' happened) | |
(GHC version 8.2.2 for x86_64-apple-darwin): | |
*** Stg Lint ErrMsgs: in Stg2Stg *** | |
<no location info>: warning: | |
[RHS of ds6_rtRY :: NameFlavour] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: NameSpace -> PkgName -> ModName -> NameFlavour | |
Arg types: | |
NameSpace | |
[Char] | |
[Char] | |
<no location info>: warning: | |
[RHS of ds7_rtRZ :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
<no location info>: warning: | |
[RHS of ds14_rtS6 :: NameFlavour] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: NameSpace -> PkgName -> ModName -> NameFlavour | |
Arg types: | |
NameSpace | |
[Char] | |
[Char] | |
<no location info>: warning: | |
[RHS of ds15_rtS7 :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
<no location info>: warning: | |
[RHS of lvl2_rtSb :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
<no location info>: warning: | |
[RHS of lvl11_rtZo :: NameFlavour] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: NameSpace -> PkgName -> ModName -> NameFlavour | |
Arg types: | |
NameSpace | |
[Char] | |
[Char] | |
<no location info>: warning: | |
[RHS of lvl12_rtZp :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
<no location info>: warning: | |
[RHS of x4_rtZv :: NameFlavour] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: NameSpace -> PkgName -> ModName -> NameFlavour | |
Arg types: | |
NameSpace | |
[Char] | |
[Char] | |
<no location info>: warning: | |
[RHS of x5_rtZw :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
<no location info>: warning: | |
[RHS of z4_rtZC :: NameFlavour] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: NameSpace -> PkgName -> ModName -> NameFlavour | |
Arg types: | |
NameSpace | |
[Char] | |
[Char] | |
<no location info>: warning: | |
[RHS of z5_rtZD :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
<no location info>: warning: | |
[RHS of lvl26_rtZT :: NameFlavour] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: NameSpace -> PkgName -> ModName -> NameFlavour | |
Arg types: | |
NameSpace | |
[Char] | |
[Char] | |
<no location info>: warning: | |
[RHS of lvl27_rtZU :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
<no location info>: warning: | |
[RHS of lvl32_rtZZ :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
<no location info>: warning: | |
[RHS of lvl36_ru03 :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
<no location info>: warning: | |
[RHS of lvl42_ru0b :: NameFlavour] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: NameSpace -> PkgName -> ModName -> NameFlavour | |
Arg types: | |
NameSpace | |
[Char] | |
[Char] | |
<no location info>: warning: | |
[RHS of lvl43_ru0c :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
<no location info>: warning: | |
[RHS of lvl48_ru0h :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
<no location info>: warning: | |
[RHS of lvl58_ru0r :: NameFlavour] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: NameSpace -> PkgName -> ModName -> NameFlavour | |
Arg types: | |
NameSpace | |
[Char] | |
[Char] | |
<no location info>: warning: | |
[RHS of lvl59_ru0s :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
<no location info>: warning: | |
[RHS of lvl71_ru0G :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
<no location info>: warning: | |
[RHS of lvl87_ru0W :: NameFlavour] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: NameSpace -> PkgName -> ModName -> NameFlavour | |
Arg types: | |
NameSpace | |
[Char] | |
[Char] | |
<no location info>: warning: | |
[RHS of lvl88_ru0X :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
<no location info>: warning: | |
[RHS of lvl92_ru11 :: NameFlavour] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: NameSpace -> PkgName -> ModName -> NameFlavour | |
Arg types: | |
NameSpace | |
[Char] | |
[Char] | |
<no location info>: warning: | |
[RHS of lvl93_ru12 :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
<no location info>: warning: | |
[RHS of lvl96_ru15 :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
<no location info>: warning: | |
[RHS of lvl101_ru1a :: NameFlavour] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: NameSpace -> PkgName -> ModName -> NameFlavour | |
Arg types: | |
NameSpace | |
[Char] | |
[Char] | |
<no location info>: warning: | |
[RHS of lvl102_ru1b :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
<no location info>: warning: | |
[RHS of lvl106_ru1f :: NameFlavour] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: NameSpace -> PkgName -> ModName -> NameFlavour | |
Arg types: | |
NameSpace | |
[Char] | |
[Char] | |
<no location info>: warning: | |
[RHS of lvl107_ru1g :: Name] | |
In a RHS constructor application, con type doesn't match arg types: | |
Constructor type: OccName -> NameFlavour -> Name | |
Arg types: | |
[Char] | |
NameFlavour | |
*** Offending Program *** | |
$trModule4 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"mercury-web-backend-0.0.0-Cj9KdUSnX1JLO86MCj5tij"#; | |
$trModule3 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$trModule4]; | |
$trModule2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Mercury.Database.Persist.TH"#; | |
$trModule1 :: TrName | |
[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = | |
NO_CCS TrNameS! [$trModule2]; | |
$trModule :: Module | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS Module! [$trModule3 $trModule1]; | |
ds_rtRS :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"SqlOther"#; | |
ds1_rtRT :: [Char] | |
[GblId] = | |
\u [] unpackCString# ds_rtRS; | |
ds2_rtRU :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"persistent-2.7.1-LIWY77Lc5Kh1xuGhsUMRSv"#; | |
ds3_rtRV :: [Char] | |
[GblId] = | |
\u [] unpackCString# ds2_rtRU; | |
ds4_rtRW :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Database.Persist.Types.Base"#; | |
ds5_rtRX :: [Char] | |
[GblId] = | |
\u [] unpackCString# ds4_rtRW; | |
ds6_rtRY :: NameFlavour | |
[GblId, Str=m5, Unf=OtherCon []] = | |
NO_CCS NameG! [DataName ds3_rtRV ds5_rtRX]; | |
ds7_rtRZ :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [ds1_rtRT ds6_rtRY]; | |
ds8_rtS0 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"pack"#; | |
ds9_rtS1 :: [Char] | |
[GblId] = | |
\u [] unpackCString# ds8_rtS0; | |
ds10_rtS2 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"text-1.2.2.2-J0kTo5xltQjAfCz3JZ4Oj0"#; | |
ds11_rtS3 :: [Char] | |
[GblId] = | |
\u [] unpackCString# ds10_rtS2; | |
ds12_rtS4 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Data.Text"#; | |
ds13_rtS5 :: [Char] | |
[GblId] = | |
\u [] unpackCString# ds12_rtS4; | |
ds14_rtS6 :: NameFlavour | |
[GblId, Str=m5, Unf=OtherCon []] = | |
NO_CCS NameG! [VarName ds11_rtS3 ds13_rtS5]; | |
ds15_rtS7 :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [ds9_rtS1 ds14_rtS6]; | |
ds16_rtS8 :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] varE1 ds15_rtS7 eta_B1; | |
lvl_rtS9 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"PersistDbSpecific"#; | |
lvl1_rtSa :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl_rtS9; | |
lvl2_rtSb :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [lvl1_rtSa ds6_rtRY]; | |
lvl3_rtSc :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] conE1 lvl2_rtSb eta_B1; | |
lvl4_rtSd :: Maybe ExpQ | |
[GblId, Str=m2, Unf=OtherCon []] = | |
NO_CCS Just! [lvl3_rtSc]; | |
lvl5_rtSe :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"."#; | |
lvl6_rtSf :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl5_rtSe; | |
lvl7_rtSg :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"base"#; | |
lvl8_rtSh :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl7_rtSg; | |
lvl9_rtZm :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"GHC.Base"#; | |
lvl10_rtZn :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl9_rtZm; | |
lvl11_rtZo :: NameFlavour | |
[GblId, Str=m5, Unf=OtherCon []] = | |
NO_CCS NameG! [VarName lvl8_rtSh lvl10_rtZn]; | |
lvl12_rtZp :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [lvl6_rtSf lvl11_rtZo]; | |
lvl13_rtZq :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] varE1 lvl12_rtZp eta_B1; | |
x_rtZr :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"bytestring-0.10.8.2"#; | |
x1_rtZs :: [Char] | |
[GblId] = | |
\u [] unpackCString# x_rtZr; | |
x2_rtZt :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Data.ByteString.Char8"#; | |
x3_rtZu :: [Char] | |
[GblId] = | |
\u [] unpackCString# x2_rtZt; | |
x4_rtZv :: NameFlavour | |
[GblId, Str=m5, Unf=OtherCon []] = | |
NO_CCS NameG! [VarName x1_rtZs x3_rtZu]; | |
x5_rtZw :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [ds9_rtS1 x4_rtZv]; | |
x6_rtZx :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] varE1 x5_rtZw eta_B1; | |
z_rtZy :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"show"#; | |
z1_rtZz :: [Char] | |
[GblId] = | |
\u [] unpackCString# z_rtZy; | |
z2_rtZA :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"GHC.Show"#; | |
z3_rtZB :: [Char] | |
[GblId] = | |
\u [] unpackCString# z2_rtZA; | |
z4_rtZC :: NameFlavour | |
[GblId, Str=m5, Unf=OtherCon []] = | |
NO_CCS NameG! [VarName lvl8_rtSh z3_rtZB]; | |
z5_rtZD :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [z1_rtZz z4_rtZC]; | |
z6_rtZE :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] varE1 z5_rtZD eta_B1; | |
lvl14_rtZF :: Maybe ExpQ | |
[GblId, Str=m2, Unf=OtherCon []] = | |
NO_CCS Just! [x6_rtZx]; | |
lvl15_rtZG :: Maybe ExpQ | |
[GblId, Str=m2, Unf=OtherCon []] = | |
NO_CCS Just! [z6_rtZE]; | |
lvl16_rtZH :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, | |
Arity=1, | |
Str=<S(S(S(LC(C(S))LLL)L)LLLLLLLLLLLLLLLLLLLLL),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)>, | |
Unf=OtherCon []] = | |
\r [eta_sug6] infixApp2 lvl14_rtZF lvl13_rtZq lvl15_rtZG eta_sug6; | |
lvl17_rtZI :: Maybe ExpQ | |
[GblId, Str=m2, Unf=OtherCon []] = | |
NO_CCS Just! [lvl16_rtZH]; | |
lvl18_rtZJ :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"dt"#; | |
lvl19_rtZK :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl18_rtZJ; | |
lvl20_rtZL :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"v"#; | |
lvl21_rtZM :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl20_rtZL; | |
s_rtZN :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"bs"#; | |
s1_rtZO :: String | |
[GblId] = | |
\u [] unpackCString# s_rtZN; | |
lvl22_rtZP :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"readEither"#; | |
lvl23_rtZQ :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl22_rtZP; | |
lvl24_rtZR :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Text.Read"#; | |
lvl25_rtZS :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl24_rtZR; | |
lvl26_rtZT :: NameFlavour | |
[GblId, Str=m5, Unf=OtherCon []] = | |
NO_CCS NameG! [VarName lvl8_rtSh lvl25_rtZS]; | |
lvl27_rtZU :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [lvl23_rtZQ lvl26_rtZT]; | |
lvl28_rtZV :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] varE1 lvl27_rtZU eta_B1; | |
lvl29_rtZW :: Maybe ExpQ | |
[GblId, Str=m2, Unf=OtherCon []] = | |
NO_CCS Just! [lvl28_rtZV]; | |
lvl30_rtZX :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"$"#; | |
lvl31_rtZY :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl30_rtZX; | |
lvl32_rtZZ :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [lvl31_rtZY lvl11_rtZo]; | |
lvl33_ru00 :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] varE1 lvl32_rtZZ eta_B1; | |
lvl34_ru01 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"unpack"#; | |
lvl35_ru02 :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl34_ru01; | |
lvl36_ru03 :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [lvl35_ru02 x4_rtZv]; | |
lvl37_ru04 :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] varE1 lvl36_ru03 eta_B1; | |
s2_ru05 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"err"#; | |
s3_ru06 :: String | |
[GblId] = | |
\u [] unpackCString# s2_ru05; | |
lvl38_ru07 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Left"#; | |
lvl39_ru08 :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl38_ru07; | |
lvl40_ru09 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Data.Either"#; | |
lvl41_ru0a :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl40_ru09; | |
lvl42_ru0b :: NameFlavour | |
[GblId, Str=m5, Unf=OtherCon []] = | |
NO_CCS NameG! [DataName lvl8_rtSh lvl41_ru0a]; | |
lvl43_ru0c :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [lvl39_ru08 lvl42_ru0b]; | |
lvl44_ru0d :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] conE1 lvl43_ru0c eta_B1; | |
lvl45_ru0e :: Maybe ExpQ | |
[GblId, Str=m2, Unf=OtherCon []] = | |
NO_CCS Just! [lvl44_ru0d]; | |
lvl46_ru0f :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"concat"#; | |
lvl47_ru0g :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl46_ru0f; | |
lvl48_ru0h :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [lvl47_ru0g ds14_rtS6]; | |
lvl49_ru0i :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] varE1 lvl48_ru0h eta_B1; | |
lvl50_ru0j :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Couldn't parse "#; | |
lvl51_ru0k :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl50_ru0j; | |
lvl52_ru0l :: Lit | |
[GblId, Str=m2, Unf=OtherCon []] = | |
NO_CCS StringL! [lvl51_ru0k]; | |
lvl53_ru0m :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] litE1 lvl52_ru0l eta_B1; | |
lvl54_ru0n :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"decodeUtf8"#; | |
lvl55_ru0o :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl54_ru0n; | |
lvl56_ru0p :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Data.Text.Encoding"#; | |
lvl57_ru0q :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl56_ru0p; | |
lvl58_ru0r :: NameFlavour | |
[GblId, Str=m5, Unf=OtherCon []] = | |
NO_CCS NameG! [VarName ds11_rtS3 lvl57_ru0q]; | |
lvl59_ru0s :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [lvl55_ru0o lvl58_ru0r]; | |
lvl60_ru0t :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] varE1 lvl59_ru0s eta_B1; | |
lvl61_ru0u :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
" into "#; | |
lvl62_ru0v :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl61_ru0u; | |
lvl63_ru0w :: Lit | |
[GblId, Str=m2, Unf=OtherCon []] = | |
NO_CCS StringL! [lvl62_ru0v]; | |
lvl64_ru0x :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] litE1 lvl63_ru0w eta_B1; | |
lvl65_ru0y :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
". Error: "#; | |
lvl66_ru0z :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl65_ru0y; | |
lvl67_ru0A :: Lit | |
[GblId, Str=m2, Unf=OtherCon []] = | |
NO_CCS StringL! [lvl66_ru0z]; | |
lvl68_ru0B :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] litE1 lvl67_ru0A eta_B1; | |
s4_ru0C :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"x"#; | |
s5_ru0D :: String | |
[GblId] = | |
\u [] unpackCString# s4_ru0C; | |
lvl69_ru0E :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Right"#; | |
lvl70_ru0F :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl69_ru0E; | |
lvl71_ru0G :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [lvl70_ru0F lvl42_ru0b]; | |
lvl72_ru0H :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] conE1 lvl71_ru0G eta_B1; | |
lvl73_ru0I :: forall (m :: * -> *). Quasi m => m Match | |
[GblId, | |
Arity=1, | |
Str=<S(S(S(LC(C(S))LLL)L)LLLLLLLLLLLLLLLLLLLLL),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)>, | |
Unf=OtherCon []] = | |
\r [$dQuasi_sug7] | |
let { | |
sat_sugi [Occ=Once] :: Name -> m_Xfqj Match | |
[LclId] = | |
\r [x7_sugb] | |
let { | |
sat_sugf :: ExpQ | |
[LclId] = | |
\r [eta_B1] varE1 x7_sugb eta_B1; } in | |
let { | |
sat_sugg [Occ=OnceL] :: ExpQ | |
[LclId] = | |
\r [eta_B1] appE1 lvl72_ru0H sat_sugf eta_B1; } in | |
let { | |
sat_sugh [Occ=Once] :: BodyQ | |
[LclId] = | |
\r [eta_B1] normalB1 sat_sugg eta_B1; } in | |
let { | |
sat_sugc [Occ=OnceL] :: PatQ | |
[LclId] = | |
\r [eta_B1] varP1 x7_sugb eta_B1; } in | |
let { | |
sat_sugd [Occ=OnceL] :: [PatQ] | |
[LclId] = | |
NO_CCS :! [sat_sugc []]; } in | |
let { | |
sat_suge [Occ=Once] :: PatQ | |
[LclId] = | |
\r [eta_B1] conP1 lvl71_ru0G sat_sugd eta_B1; | |
} in match1 sat_suge sat_sugh [] $dQuasi_sug7; } in | |
let { | |
sat_suga [Occ=Once] :: m_Xfqj Name | |
[LclId] = | |
\u [] qNewName $dQuasi_sug7 s5_ru0D; | |
} in | |
case $p1Quasi $dQuasi_sug7 of sat_sug8 { | |
__DEFAULT -> | |
case $p1MonadFail sat_sug8 of sat_sug9 { | |
__DEFAULT -> >>= sat_sug9 sat_suga sat_sugi; | |
}; | |
}; | |
lvl74_ru0J :: [MatchQ] | |
[GblId, Str=m2, Unf=OtherCon []] = | |
NO_CCS :! [lvl73_ru0I []]; | |
lvl75_ru0K :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"When trying to deserialize a"#; | |
lvl76_ru0L :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl75_ru0K; | |
lvl77_ru0M :: Lit | |
[GblId, Str=m2, Unf=OtherCon []] = | |
NO_CCS StringL! [lvl76_ru0L]; | |
lvl78_ru0N :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] litE1 lvl77_ru0M eta_B1; | |
lvl79_ru0O :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
": expected PersistDbSpecific, received: "#; | |
lvl80_ru0P :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl79_ru0O; | |
lvl81_ru0Q :: Lit | |
[GblId, Str=m2, Unf=OtherCon []] = | |
NO_CCS StringL! [lvl80_ru0P]; | |
lvl82_ru0R :: forall (m :: * -> *). Quasi m => m Exp | |
[GblId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] litE1 lvl81_ru0Q eta_B1; | |
lvl83_ru0S :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"PersistField"#; | |
lvl84_ru0T :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl83_ru0S; | |
lvl85_ru0U :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Database.Persist.Class.PersistField"#; | |
lvl86_ru0V :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl85_ru0U; | |
lvl87_ru0W :: NameFlavour | |
[GblId, Str=m5, Unf=OtherCon []] = | |
NO_CCS NameG! [TcClsName ds3_rtRV lvl86_ru0V]; | |
lvl88_ru0X :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [lvl84_ru0T lvl87_ru0W]; | |
lvl89_ru0Y :: Type | |
[GblId, Str=m5, Unf=OtherCon []] = | |
NO_CCS ConT! [lvl88_ru0X]; | |
lvl90_ru0Z :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"toPersistValue"#; | |
lvl91_ru10 :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl90_ru0Z; | |
lvl92_ru11 :: NameFlavour | |
[GblId, Str=m5, Unf=OtherCon []] = | |
NO_CCS NameG! [VarName ds3_rtRV lvl86_ru0V]; | |
lvl93_ru12 :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [lvl91_ru10 lvl92_ru11]; | |
lvl94_ru13 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"fromPersistValue"#; | |
lvl95_ru14 :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl94_ru13; | |
lvl96_ru15 :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [lvl95_ru14 lvl92_ru11]; | |
lvl97_ru16 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"PersistFieldSql"#; | |
lvl98_ru17 :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl97_ru16; | |
lvl99_ru18 :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"Database.Persist.Sql.Class"#; | |
lvl100_ru19 :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl99_ru18; | |
lvl101_ru1a :: NameFlavour | |
[GblId, Str=m5, Unf=OtherCon []] = | |
NO_CCS NameG! [TcClsName ds3_rtRV lvl100_ru19]; | |
lvl102_ru1b :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [lvl98_ru17 lvl101_ru1a]; | |
lvl103_ru1c :: Type | |
[GblId, Str=m5, Unf=OtherCon []] = | |
NO_CCS ConT! [lvl102_ru1b]; | |
lvl104_ru1d :: Addr# | |
[GblId, Caf=NoCafRefs, Unf=OtherCon []] = | |
"sqlType"#; | |
lvl105_ru1e :: [Char] | |
[GblId] = | |
\u [] unpackCString# lvl104_ru1d; | |
lvl106_ru1f :: NameFlavour | |
[GblId, Str=m5, Unf=OtherCon []] = | |
NO_CCS NameG! [VarName ds3_rtRV lvl100_ru19]; | |
lvl107_ru1g :: Name | |
[GblId, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [lvl105_ru1e lvl106_ru1f]; | |
lvl108_ru1h :: [Pat] | |
[GblId, Caf=NoCafRefs, Str=m2, Unf=OtherCon []] = | |
NO_CCS :! [WildP []]; | |
lvl109_ru1i :: Name | |
[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = | |
NO_CCS Name! [[] NameS]; | |
derivePostgresEnum :: String -> String -> Q [Dec] | |
[GblId, Arity=2, Str=<L,U><L,1*U>, Unf=OtherCon []] = | |
\r [s6_sugj postgresType_sugk] | |
let { | |
lvl110_sugl [Occ=OnceL] :: Name | |
[LclId] = | |
\u [] | |
case reverse1 s6_sugj [] of { | |
[] -> lvl109_ru1i; | |
: ds17_sugn [Occ=Once!] rev_sugo [Occ=Once] -> | |
case ds17_sugn of wild1_sugp { | |
C# _ [Occ=Dead] -> | |
case mkName_$s$wsplit1 rev_sugo wild1_sugp [] of { | |
(#,#) ww1_sugs [Occ=Once] ww2_sugt [Occ=Once] -> | |
Name [ww1_sugs ww2_sugt]; | |
}; | |
}; | |
}; } in | |
let { | |
lvl111_sugu :: Type | |
[LclId, Unf=OtherCon []] = | |
NO_CCS ConT! [lvl110_sugl]; } in | |
let { | |
lvl112_sugv [Occ=OnceL] :: Type | |
[LclId, Unf=OtherCon []] = | |
NO_CCS AppT! [lvl89_ru0Y lvl111_sugu]; } in | |
let { | |
lvl113_sugw [Occ=OnceL] :: Lit | |
[LclId, Unf=OtherCon []] = | |
NO_CCS StringL! [s6_sugj]; } in | |
let { | |
lvl114_sugx [Occ=OnceL] :: Exp | |
[LclId, Unf=OtherCon []] = | |
NO_CCS LitE! [lvl113_sugw]; } in | |
let { | |
lvl115_sugy [Occ=OnceL] :: Type | |
[LclId, Unf=OtherCon []] = | |
NO_CCS AppT! [lvl103_ru1c lvl111_sugu]; } in | |
let { | |
ds17_sugz [Occ=OnceL, Dmd=<L,C(U)>] :: Q Exp | |
[LclId] = | |
\u [] $fLift[]_$clift $fLiftChar1 postgresType_sugk; } in | |
let { | |
sat_suiL [Occ=Once] :: forall (m :: * -> *). Quasi m => m [Dec] | |
[LclId] = | |
\r [$dQuasi_sugB] | |
case | |
$p1Quasi $dQuasi_sugB | |
of | |
lvl116_sugC [Dmd=<S(S(LC(C(S))LLL)L),1*U(1*U(1*U(A,C(U),A,A,A,A),C(C1(U)),A,A,A),A)>] | |
{ __DEFAULT -> | |
case | |
$p1MonadFail lvl116_sugC | |
of | |
lvl117_sugD [Dmd=<S(LC(C(S))LLL),U(1*U(A,C(U),A,A,A,A),C(C1(U)),A,A,A)>] | |
{ __DEFAULT -> | |
let { | |
lvl118_sugE [Dmd=<L,U(A,C(U),A,A,A,A)>] :: Applicative m_afpm | |
[LclId] = | |
\u [] $p1Monad lvl117_sugD; } in | |
let { | |
lvl119_sugF [Occ=OnceL] :: m_afpm Exp | |
[LclId] = | |
\u [] | |
infixApp2 | |
lvl4_rtSd lvl13_rtZq lvl17_rtZI $dQuasi_sugB; } in | |
let { | |
lvl120_sugG [Occ=OnceL] :: m_afpm Exp | |
[LclId] = | |
\u [] | |
let { | |
lvl121_sugH [Occ=OnceL] :: m_afpm Name | |
[LclId] = | |
\u [] qNewName $dQuasi_sugB lvl21_rtZM; } in | |
let { | |
sat_sui8 [Occ=Once] :: Name -> m_afpm Exp | |
[LclId] = | |
\r [x7_sugK] | |
let { | |
lvl122_sugL [Occ=OnceL, Dmd=<L,C(U)>] | |
:: forall (m1 :: * -> *). Quasi m1 => m1 Exp | |
[LclId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] varE1 x7_sugK eta_B1; } in | |
let { | |
lvl123_sugN | |
:: forall (m1 :: * -> *). Quasi m1 => m1 Exp | |
[LclId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] | |
appE1 | |
ds16_rtS8 lvl122_sugL eta_B1; } in | |
let { | |
lvl124_sugO [Occ=OnceL] | |
:: forall (m1 :: * -> *). Quasi m1 => m1 Pat | |
[LclId, Arity=1, Unf=OtherCon []] = | |
\r [eta_B1] varP1 x7_sugK eta_B1; } in | |
let { | |
lvl125_sugP [Occ=OnceL] | |
:: forall (m1 :: * -> *). | |
Quasi m1 => | |
m1 Match | |
[LclId, | |
Arity=1, | |
Str=<S(S(S(LC(C(S))LLL)L)LLLLLLLLLLLLLLLLLLLLL),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)>, | |
Unf=OtherCon []] = | |
\r [$dQuasi1_sugR] | |
let { | |
sat_suhD [Occ=Once] | |
:: Name -> m1_Xfq9 Match | |
[LclId] = | |
\r [x8_sugW] | |
let { | |
lvl126_sugX [Occ=OnceL, | |
Dmd=<L,C(U)>] | |
:: forall (m2 :: * | |
-> *). | |
Quasi m2 => | |
m2 Exp | |
[LclId, | |
Arity=1, | |
Unf=OtherCon []] = | |
\r [eta_B1] | |
varE1 | |
x8_sugW | |
eta_B1; } in | |
let { | |
lvl127_sugY | |
:: forall (m2 :: * | |
-> *). | |
Quasi m2 => | |
m2 Exp | |
[LclId, | |
Arity=1, | |
Unf=OtherCon []] = | |
\r [eta_B1] | |
appE1 | |
lvl60_ru0t | |
lvl126_sugX | |
eta_B1; } in | |
let { | |
sat_suhv [Occ=OnceL] | |
:: MatchQ | |
[LclId] = | |
\r [$dQuasi2_suh7] | |
let { | |
sat_suhu [Occ=Once] | |
:: Name | |
-> m2_XfBx Match | |
[LclId] = | |
\r [x9_suhb] | |
let { | |
sat_suhr [Occ=OnceL] | |
:: ExpQ | |
[LclId] = | |
\r [eta_suhf] | |
let { | |
sat_suhg | |
:: ExpQ | |
[LclId] = | |
\r [eta_B1] | |
varE1 | |
x9_suhb | |
eta_B1; } in | |
let { | |
sat_suhh [Occ=OnceL] | |
:: ExpQ | |
[LclId] = | |
\r [eta_B1] | |
appE1 | |
ds16_rtS8 | |
sat_suhg | |
eta_B1; } in | |
let { | |
sat_suhi [Occ=OnceL] | |
:: [ExpQ] | |
[LclId] = | |
NO_CCS :! [sat_suhh | |
[]]; } in | |
let { | |
sat_suhj [Occ=OnceL] | |
:: [ExpQ] | |
[LclId] = | |
NO_CCS :! [lvl68_ru0B | |
sat_suhi]; } in | |
let { | |
sat_suhk [Occ=OnceL] | |
:: [ExpQ] | |
[LclId] = | |
NO_CCS :! [lvl123_sugN | |
sat_suhj]; } in | |
let { | |
sat_suhl [Occ=OnceL] | |
:: [ExpQ] | |
[LclId] = | |
NO_CCS :! [lvl64_ru0x | |
sat_suhk]; } in | |
let { | |
sat_suhm [Occ=OnceL] | |
:: [ExpQ] | |
[LclId] = | |
NO_CCS :! [lvl127_sugY | |
sat_suhl]; } in | |
let { | |
sat_suhn | |
:: [ExpQ] | |
[LclId] = | |
NO_CCS :! [lvl53_ru0m | |
sat_suhm]; } in | |
let { | |
sat_suho [Occ=OnceL] | |
:: ExpQ | |
[LclId] = | |
\r [eta_B1] | |
listE1 | |
sat_suhn | |
eta_B1; } in | |
let { | |
sat_suhp [Occ=Once] | |
:: ExpQ | |
[LclId] = | |
\r [eta_B1] | |
appE1 | |
lvl49_ru0i | |
sat_suho | |
eta_B1; } in | |
let { | |
sat_suhq [Occ=Once] | |
:: Maybe | |
ExpQ | |
[LclId] = | |
NO_CCS Just! [sat_suhp]; | |
} in | |
infixApp2 | |
lvl45_ru0e | |
lvl33_ru00 | |
sat_suhq | |
eta_suhf; } in | |
let { | |
sat_suhs [Occ=Once] | |
:: BodyQ | |
[LclId] = | |
\r [eta_B1] | |
normalB1 | |
sat_suhr | |
eta_B1; } in | |
let { | |
sat_suhc [Occ=OnceL] | |
:: PatQ | |
[LclId] = | |
\r [eta_B1] | |
varP1 | |
x9_suhb | |
eta_B1; } in | |
let { | |
sat_suhd [Occ=OnceL] | |
:: [PatQ] | |
[LclId] = | |
NO_CCS :! [sat_suhc | |
[]]; } in | |
let { | |
sat_suhe [Occ=Once] | |
:: PatQ | |
[LclId] = | |
\r [eta_B1] | |
conP1 | |
lvl43_ru0c | |
sat_suhd | |
eta_B1; | |
} in | |
match1 | |
sat_suhe | |
sat_suhs | |
[] | |
$dQuasi2_suh7; } in | |
let { | |
sat_suha [Occ=Once] | |
:: m2_XfBx Name | |
[LclId] = | |
\u [] | |
qNewName | |
$dQuasi2_suh7 | |
s3_ru06; | |
} in | |
case | |
$p1Quasi | |
$dQuasi2_suh7 | |
of | |
sat_suh8 | |
{ __DEFAULT -> | |
case | |
$p1MonadFail | |
sat_suh8 | |
of | |
sat_suh9 | |
{ __DEFAULT -> | |
>>= sat_suh9 | |
sat_suha | |
sat_suhu; | |
}; | |
}; } in | |
let { | |
sat_suhw :: [MatchQ] | |
[LclId] = | |
NO_CCS :! [sat_suhv | |
lvl74_ru0J]; } in | |
let { | |
sat_suh6 :: ExpQ | |
[LclId] = | |
\r [eta_suh2] | |
let { | |
sat_suh3 [Occ=OnceL] | |
:: ExpQ | |
[LclId] = | |
\r [eta_B1] | |
varE1 | |
x8_sugW | |
eta_B1; } in | |
let { | |
sat_suh4 [Occ=Once] | |
:: ExpQ | |
[LclId] = | |
\r [eta_B1] | |
appE1 | |
lvl37_ru04 | |
sat_suh3 | |
eta_B1; } in | |
let { | |
sat_suh5 [Occ=Once] | |
:: Maybe ExpQ | |
[LclId] = | |
NO_CCS Just! [sat_suh4]; | |
} in | |
infixApp2 | |
lvl29_rtZW | |
lvl33_ru00 | |
sat_suh5 | |
eta_suh2; } in | |
let { | |
sat_suhz [Occ=OnceL] | |
:: ExpQ | |
[LclId] = | |
\r [eta_B1] | |
caseE1 | |
sat_suh6 | |
sat_suhw | |
eta_B1; } in | |
let { | |
sat_suhB [Occ=Once] | |
:: BodyQ | |
[LclId] = | |
\r [eta_B1] | |
normalB1 | |
sat_suhz | |
eta_B1; } in | |
let { | |
sat_sugZ [Occ=OnceL] | |
:: PatQ | |
[LclId] = | |
\r [eta_B1] | |
varP1 | |
x8_sugW | |
eta_B1; } in | |
let { | |
sat_suh0 [Occ=OnceL] | |
:: [PatQ] | |
[LclId] = | |
NO_CCS :! [sat_sugZ | |
[]]; } in | |
let { | |
sat_suh1 [Occ=Once] | |
:: PatQ | |
[LclId] = | |
\r [eta_B1] | |
conP1 | |
lvl2_rtSb | |
sat_suh0 | |
eta_B1; | |
} in | |
match1 | |
sat_suh1 | |
sat_suhB | |
[] | |
$dQuasi1_sugR; } in | |
let { | |
sat_sugV [Occ=Once] :: m1_Xfq9 Name | |
[LclId] = | |
\u [] | |
qNewName | |
$dQuasi1_sugR s1_rtZO; | |
} in | |
case | |
$p1Quasi $dQuasi1_sugR | |
of | |
sat_sugS | |
{ __DEFAULT -> | |
case | |
$p1MonadFail sat_sugS | |
of | |
sat_sugU | |
{ __DEFAULT -> | |
>>= sat_sugU | |
sat_sugV | |
sat_suhD; | |
}; | |
}; } in | |
let { | |
lvl126_suhE [Occ=OnceL] | |
:: forall (m1 :: * -> *). | |
Quasi m1 => | |
m1 Match | |
[LclId, | |
Arity=1, | |
Str=<S(S(S(LC(C(S))LLL)L)LLLLLLLLLLLLLLLLLLLLL),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)>, | |
Unf=OtherCon []] = | |
\r [$dQuasi1_suhF] | |
let { | |
sat_suhY [Occ=Once] | |
:: Name -> m1_Xfq9 Match | |
[LclId] = | |
\r [x8_suhJ] | |
let { | |
sat_suhW [Occ=OnceL] | |
:: ExpQ | |
[LclId] = | |
\r [eta_suhL] | |
let { | |
sat_suhM :: ExpQ | |
[LclId] = | |
\r [eta_B1] | |
varE1 | |
x8_suhJ | |
eta_B1; } in | |
let { | |
sat_suhN :: ExpQ | |
[LclId] = | |
\r [eta_B1] | |
appE1 | |
z6_rtZE | |
sat_suhM | |
eta_B1; } in | |
let { | |
sat_suhO [Occ=OnceL] | |
:: ExpQ | |
[LclId] = | |
\r [eta_B1] | |
appE1 | |
ds16_rtS8 | |
sat_suhN | |
eta_B1; } in | |
let { | |
sat_suhP [Occ=OnceL] | |
:: [ExpQ] | |
[LclId] = | |
NO_CCS :! [sat_suhO | |
[]]; } in | |
let { | |
sat_suhQ [Occ=OnceL] | |
:: [ExpQ] | |
[LclId] = | |
NO_CCS :! [lvl82_ru0R | |
sat_suhP]; } in | |
let { | |
sat_suhR [Occ=OnceL] | |
:: [ExpQ] | |
[LclId] = | |
NO_CCS :! [lvl123_sugN | |
sat_suhQ]; } in | |
let { | |
sat_suhS | |
:: [ExpQ] | |
[LclId] = | |
NO_CCS :! [lvl78_ru0N | |
sat_suhR]; } in | |
let { | |
sat_suhT [Occ=OnceL] | |
:: ExpQ | |
[LclId] = | |
\r [eta_B1] | |
listE1 | |
sat_suhS | |
eta_B1; } in | |
let { | |
sat_suhU [Occ=Once] | |
:: ExpQ | |
[LclId] = | |
\r [eta_B1] | |
appE1 | |
lvl49_ru0i | |
sat_suhT | |
eta_B1; } in | |
let { | |
sat_suhV [Occ=Once] | |
:: Maybe ExpQ | |
[LclId] = | |
NO_CCS Just! [sat_suhU]; | |
} in | |
infixApp2 | |
lvl45_ru0e | |
lvl33_ru00 | |
sat_suhV | |
eta_suhL; } in | |
let { | |
sat_suhX [Occ=Once] | |
:: BodyQ | |
[LclId] = | |
\r [eta_B1] | |
normalB1 | |
sat_suhW | |
eta_B1; } in | |
let { | |
sat_suhK [Occ=Once] | |
:: PatQ | |
[LclId] = | |
\r [eta_B1] | |
varP1 | |
x8_suhJ | |
eta_B1; | |
} in | |
match1 | |
sat_suhK | |
sat_suhX | |
[] | |
$dQuasi1_suhF; } in | |
let { | |
sat_suhI [Occ=Once] :: m1_Xfq9 Name | |
[LclId] = | |
\u [] | |
qNewName | |
$dQuasi1_suhF s5_ru0D; | |
} in | |
case | |
$p1Quasi $dQuasi1_suhF | |
of | |
sat_suhG | |
{ __DEFAULT -> | |
case | |
$p1MonadFail sat_suhG | |
of | |
sat_suhH | |
{ __DEFAULT -> | |
>>= sat_suhH | |
sat_suhI | |
sat_suhY; | |
}; | |
}; } in | |
let { | |
lvl127_suhZ [Occ=OnceL] :: [MatchQ] | |
[LclId, Unf=OtherCon []] = | |
NO_CCS :! [lvl126_suhE []]; } in | |
let { | |
lvl128_sui0 [Occ=OnceL] :: [MatchQ] | |
[LclId, Unf=OtherCon []] = | |
NO_CCS :! [lvl125_sugP lvl127_suhZ]; } in | |
let { | |
sat_sui7 [Occ=Once] :: Name -> m_afpm Exp | |
[LclId] = | |
\r [x8_sui1] | |
let { | |
sat_sui5 [Occ=OnceL] :: ExpQ | |
[LclId] = | |
\r [eta_B1] | |
varE1 x8_sui1 eta_B1; } in | |
let { | |
sat_sui6 [Occ=Once] :: ExpQ | |
[LclId] = | |
\r [eta_B1] | |
caseE1 | |
sat_sui5 | |
lvl128_sui0 | |
eta_B1; } in | |
let { | |
sat_sui2 [Occ=Once] :: PatQ | |
[LclId] = | |
\r [eta_B1] | |
varP1 x8_sui1 eta_B1; } in | |
let { | |
sat_sui3 [Occ=Once] :: [PatQ] | |
[LclId] = | |
NO_CCS :! [sat_sui2 []]; } in | |
let { | |
sat_sui4 [Occ=Once] :: [PatQ] | |
[LclId] = | |
NO_CCS :! [lvl124_sugO | |
sat_sui3]; | |
} in | |
lam1E2 | |
sat_sui4 sat_sui6 $dQuasi_sugB; | |
} in >>= lvl117_sugD lvl121_sugH sat_sui7; } in | |
let { | |
sat_sugI [Occ=Once] :: m_afpm Name | |
[LclId] = | |
\u [] qNewName $dQuasi_sugB lvl19_rtZK; | |
} in >>= lvl117_sugD sat_sugI sat_sui8; } in | |
let { | |
sat_suiK [Occ=Once] :: Exp -> m_afpm [Dec] | |
[LclId] = | |
\r [x7_suih] | |
let { | |
lvl121_suii [Occ=OnceL] :: Body | |
[LclId, Unf=OtherCon []] = | |
NO_CCS NormalB! [x7_suih]; } in | |
let { | |
lvl122_suij [Occ=OnceL] :: Clause | |
[LclId, Unf=OtherCon []] = | |
NO_CCS Clause! [lvl108_ru1h lvl121_suii []]; } in | |
let { | |
lvl123_suik [Occ=OnceL] :: [Clause] | |
[LclId, Unf=OtherCon []] = | |
NO_CCS :! [lvl122_suij []]; } in | |
let { | |
lvl124_suil [Occ=OnceL] :: Dec | |
[LclId, Unf=OtherCon []] = | |
NO_CCS FunD! [lvl107_ru1g lvl123_suik]; } in | |
let { | |
lvl125_suim [Occ=OnceL] :: [Dec] | |
[LclId, Unf=OtherCon []] = | |
NO_CCS :! [lvl124_suil []]; } in | |
let { | |
lvl126_suin [Occ=OnceL] :: Dec | |
[LclId, Unf=OtherCon []] = | |
NO_CCS InstanceD! [Nothing | |
[] | |
lvl115_sugy | |
lvl125_suim]; } in | |
let { | |
lvl127_suio [Occ=OnceL] :: [Dec] | |
[LclId, Unf=OtherCon []] = | |
NO_CCS :! [lvl126_suin []]; } in | |
let { | |
sat_suiJ [Occ=Once] :: Exp -> m_afpm [Dec] | |
[LclId] = | |
\r [x8_suip] | |
let { | |
lvl128_suiq [Occ=OnceL] :: Body | |
[LclId, Unf=OtherCon []] = | |
NO_CCS NormalB! [x8_suip]; } in | |
let { | |
lvl129_suir [Occ=OnceL] :: Clause | |
[LclId, Unf=OtherCon []] = | |
NO_CCS Clause! [[] lvl128_suiq []]; } in | |
let { | |
lvl130_suis [Occ=OnceL] :: [Clause] | |
[LclId, Unf=OtherCon []] = | |
NO_CCS :! [lvl129_suir []]; } in | |
let { | |
lvl131_suit [Occ=OnceL] :: Dec | |
[LclId, Unf=OtherCon []] = | |
NO_CCS FunD! [lvl93_ru12 | |
lvl130_suis]; } in | |
let { | |
sat_suiH [Occ=Once] :: Exp -> m_afpm [Dec] | |
[LclId] = | |
\r [x9_suiv] | |
let { | |
sat_suiw [Occ=Once] :: Exp | |
[LclId] = | |
NO_CCS AppE! [x9_suiv | |
lvl114_sugx]; } in | |
let { | |
sat_suix [Occ=Once] :: Body | |
[LclId] = | |
NO_CCS NormalB! [sat_suiw]; } in | |
let { | |
sat_suiy [Occ=Once] :: Clause | |
[LclId] = | |
NO_CCS Clause! [[] | |
sat_suix | |
[]]; } in | |
let { | |
sat_suiz [Occ=Once] :: [Clause] | |
[LclId] = | |
NO_CCS :! [sat_suiy []]; } in | |
let { | |
sat_suiA [Occ=Once] :: Dec | |
[LclId] = | |
NO_CCS FunD! [lvl96_ru15 | |
sat_suiz]; } in | |
let { | |
sat_suiC [Occ=Once] :: [Dec] | |
[LclId] = | |
NO_CCS :! [sat_suiA []]; } in | |
let { | |
sat_suiD [Occ=Once] :: [Dec] | |
[LclId] = | |
NO_CCS :! [lvl131_suit | |
sat_suiC]; } in | |
let { | |
sat_suiE [Occ=Once] :: Dec | |
[LclId] = | |
NO_CCS InstanceD! [Nothing | |
[] | |
lvl112_sugv | |
sat_suiD]; } in | |
let { | |
sat_suiF [Occ=Once] :: [Dec] | |
[LclId] = | |
NO_CCS :! [sat_suiE | |
lvl127_suio]; | |
} in pure lvl118_sugE sat_suiF; | |
} in >>= lvl117_sugD lvl120_sugG sat_suiH; | |
} in >>= lvl117_sugD lvl119_sugF sat_suiJ; } in | |
let { | |
sat_suig [Occ=Once] :: m_afpm Exp | |
[LclId] = | |
\u [] | |
let { | |
lvl121_sui9 [Occ=OnceL] :: m_afpm Exp | |
[LclId] = | |
\u [] appE1 ds16_rtS8 ds17_sugz $dQuasi_sugB; } in | |
let { | |
sat_suif [Occ=Once] :: Exp -> m_afpm Exp | |
[LclId] = | |
\r [x7_suib] | |
let { | |
sat_suie [Occ=Once] :: Exp -> m_afpm Exp | |
[LclId] = | |
\r [x8_suic] | |
let { | |
sat_suid [Occ=Once] :: Exp | |
[LclId] = | |
NO_CCS AppE! [x7_suib x8_suic]; | |
} in pure lvl118_sugE sat_suid; | |
} in >>= lvl117_sugD lvl121_sui9 sat_suie; } in | |
let { | |
sat_suia [Occ=Once] :: m_afpm Exp | |
[LclId] = | |
\u [] conE1 ds7_rtRZ $dQuasi_sugB; | |
} in >>= lvl117_sugD sat_suia sat_suif; | |
} in >>= lvl117_sugD sat_suig sat_suiK; | |
}; | |
}; | |
} in sat_suiL; | |
*** End of Offense *** | |
Call stack: | |
CallStack (from HasCallStack): | |
prettyCurrentCallStack, called at compiler/utils/Outputable.hs:1133:58 in ghc:Outputable | |
callStackDoc, called at compiler/utils/Outputable.hs:1137:37 in ghc:Outputable | |
pprPanic, called at compiler/stgSyn/StgLint.hs:65:19 in ghc:StgLint | |
Please report this as a GHC bug: http://www.haskell.org/ghc/reportabug | |
[ 23 of 141] Compiling Mercury.Yesod.Routes.Generator.Core ( src/Mercury/Yesod/Routes/Generator/Core.hs, dist/build/Mercury/Yesod/Routes/Generator/Core.o ) | |
[ 24 of 141] Compiling Mercury.Yesod.Routes.Generator.Typescript ( src/Mercury/Yesod/Routes/Generator/Typescript.hs, dist/build/Mercury/Yesod/Routes/Generator/Typescript.o ) | |
[ 25 of 141] Compiling Mercury.Yesod.Routes.Generator ( src/Mercury/Yesod/Routes/Generator.hs, dist/build/Mercury/Yesod/Routes/Generator.o ) | |
[ 31 of 141] Compiling Paths_mercury_web_backend ( dist/build/autogen/Paths_mercury_web_backend.hs, dist/build/Paths_mercury_web_backend.o ) | |
❄️ ✗ ~/D/M/h/mercury-web-backend> 15:32:05 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment