Skip to content

Instantly share code, notes, and snippets.

@MaxGabriel

MaxGabriel/gist:d0d524bff89ea8439e24aa356c0b7332

Created July 28, 2018 22:35
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save MaxGabriel/d0d524bff89ea8439e24aa356c0b7332 to your computer and use it in GitHub Desktop.
Save MaxGabriel/d0d524bff89ea8439e24aa356c0b7332 to your computer and use it in GitHub Desktop.
Download ZIP
GHC internal warnings
Raw
gistfile1.txt
❄️ ✔︎ ~/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