Resolving dependencies... Build profile: -w ghc-9.2.4 -O0 In order, the following will be built (use -v for more details): - inspection-testing-0.5.0.3 (first run) Configuring inspection-testing-0.5.0.3... Preprocessing library for inspection-testing-0.5.0.3.. Building library for inspection-testing-0.5.0.3.. [1 of 3] Compiling Test.Inspection ( src/Test/Inspection.hs, /home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.2.4/inspection-testing-0.5.0.3/noopt/build/Test/Inspection.o, /home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.2.4/inspection-testing-0.5.0.3/noopt/build/Test/Inspection.dyn_o ) [2 of 3] Compiling Test.Inspection.Core ( src/Test/Inspection/Core.hs, /home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.2.4/inspection-testing-0.5.0.3/noopt/build/Test/Inspection/Core.o, /home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.2.4/inspection-testing-0.5.0.3/noopt/build/Test/Inspection/Core.dyn_o ) [3 of 3] Compiling Test.Inspection.Plugin ( src/Test/Inspection/Plugin.hs, /home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.2.4/inspection-testing-0.5.0.3/noopt/build/Test/Inspection/Plugin.o, /home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.2.4/inspection-testing-0.5.0.3/noopt/build/Test/Inspection/Plugin.dyn_o ) Preprocessing test suite 'HPCs' for inspection-testing-0.5.0.3.. Building test suite 'HPCs' for inspection-testing-0.5.0.3.. [1 of 1] Compiling HPCs ( examples/HPCs.hs, /home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.2.4/inspection-testing-0.5.0.3/noopt/build/HPCs/HPCs-tmp/HPCs.o, /home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.2.4/inspection-testing-0.5.0.3/noopt/build/HPCs/HPCs-tmp/HPCs.dyn_o ) Linking /home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.2.4/inspection-testing-0.5.0.3/noopt/build/HPCs/HPCs ... Preprocessing test suite 'NS_NP' for inspection-testing-0.5.0.3.. Building test suite 'NS_NP' for inspection-testing-0.5.0.3.. [1 of 1] Compiling NS_NP ( examples/NS_NP.hs, /home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.2.4/inspection-testing-0.5.0.3/noopt/build/NS_NP/NS_NP-tmp/NS_NP.o, /home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.2.4/inspection-testing-0.5.0.3/noopt/build/NS_NP/NS_NP-tmp/NS_NP.dyn_o ) examples/NS_NP.hs:44:1: roundtrip === roundtrip_id failed: LHS: roundtrip [InlPrag=INLINE (sat-args=0)] :: Ordering -> Ordering [LclIdX, Unf=Unf{Src=InlineStable, TopLvl=True, Value=False, ConLike=False, WorkFree=False, Expandable=False, Guidance=ALWAYS_IF(arity=0,unsat_ok=False,boring_ok=True) Tmpl= let { f [Occ=OnceL1!] :: NS (NP I) '[ '[], '[], '[]] -> Ordering [LclId, Unf=Unf{Src=, TopLvl=False, Value=False, ConLike=False, WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 490 60}] f = hpc hpc hpc \ (x [Occ=Once1!] :: NS (NP I) '[ '[], '[], '[]]) -> hpc hpc case x of { Z @x @xs co_aEZ ds_d3gF [Occ=Once1!] -> case ds_d3gF of { Nil co_aF0 -> hpc LT; :* @ipv_s3nw @ipv_s3nx ipv _ [Occ=Dead] _ [Occ=Dead] -> hpc hpc error @LiftedRep @Ordering ($dIP_s3n8 `cast` (Sym (N:IP[0] <"callStack">_N _N) :: Coercible CallStack (?callStack::CallStack))) (build @Char (\ (@b) -> unpackFoldrCString# @b "unreachable"#)) }; S @xs @x co_aF5 ds_d3gG [Occ=Once1!] -> case ds_d3gG of { Z @x @xs co_aF8 ds_d3gH [Occ=Once1!] -> case ds_d3gH of { Nil co_aF9 -> hpc EQ; :* @ipv_s3nC @ipv_s3nD ipv _ [Occ=Dead] _ [Occ=Dead] -> hpc hpc error @LiftedRep @Ordering ($dIP_s3n8 `cast` (Sym (N:IP[0] <"callStack">_N _N) :: Coercible CallStack (?callStack::CallStack))) (build @Char (\ (@b) -> unpackFoldrCString# @b "unreachable"#)) }; S @xs @x co_aFi ds_d3gI [Occ=Once1!] -> case ds_d3gI of { Z @x @xs co_aFl ds_d3gJ [Occ=Once1!] -> case ds_d3gJ of { Nil co_aFm -> hpc GT; :* @ipv_s3nI @ipv_s3nJ ipv _ [Occ=Dead] _ [Occ=Dead] -> hpc hpc error @LiftedRep @Ordering ($dIP_s3n8 `cast` (Sym (N:IP[0] <"callStack">_N _N) :: Coercible CallStack (?callStack::CallStack))) (build @Char (\ (@b) -> unpackFoldrCString# @b "unreachable"#)) }; S @ipv_s3nO @ipv_s3nP ipv _ [Occ=Dead] -> hpc hpc error @LiftedRep @Ordering ($dIP_s3n8 `cast` (Sym (N:IP[0] <"callStack">_N _N) :: Coercible CallStack (?callStack::CallStack))) (build @Char (\ (@b) -> unpackFoldrCString# @b "unreachable"#)) } } } } in let { g [Occ=OnceL1!] :: Ordering -> NS (NP I) '[ '[], '[], '[]] [LclId, Unf=Unf{Src=, TopLvl=False, Value=False, ConLike=False, WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 160 60}] g = hpc hpc hpc \ (x [Occ=Once1!] :: Ordering) -> hpc hpc case x of { LT -> hpc $WZ @[*] @(NP I) @'[] @'[ '[], '[]] ((hpc $WNil) @(*) @I); EQ -> hpc hpc $WS @[*] @(NP I) @'[ '[], '[]] @'[] ($WZ @[*] @(NP I) @'[] @'[ '[]] ((hpc $WNil) @(*) @I)); GT -> hpc hpc hpc $WS @[*] @(NP I) @'[ '[], '[]] @'[] ($WS @[*] @(NP I) @'[ '[]] @'[] ($WZ @[*] @(NP I) @'[] @'[] ((hpc $WNil) @(*) @I))) } } in hpc hpc \ (x [Occ=Once1] :: Ordering) -> f (g x)}] roundtrip = hpc hpc \ (x :: Ordering) -> f (g x) $trModule_s3lJ :: Addr# [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 20 0}] $trModule_s3lJ = "main"# $trModule_s3lL :: Addr# [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 30 0}] $trModule_s3lL = "NS_NP"# loc_s3mZ :: [Char] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=True, WorkFree=False, Expandable=True, Guidance=IF_ARGS [] 20 0}] loc_s3mZ = unpackCString# $trModule_s3lJ loc_s3n0 :: [Char] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=True, WorkFree=False, Expandable=True, Guidance=IF_ARGS [] 20 0}] loc_s3n0 = unpackCString# $trModule_s3lL loc_s3YQ :: Addr# [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 60 0}] loc_s3YQ = "examples/NS_NP.hs"# loc_s3n1 :: [Char] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=True, WorkFree=False, Expandable=True, Guidance=IF_ARGS [] 20 0}] loc_s3n1 = unpackCString# loc_s3YQ loc_s3n2 :: Int [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] loc_s3n2 = I# 31# loc_s3n3 :: Int [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] loc_s3n3 = I# 8# loc_s3n5 :: Int [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] loc_s3n5 = I# 13# $dIP_s3YR :: Addr# [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 30 0}] $dIP_s3YR = "error"# $dIP_s3n6 :: [Char] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=True, WorkFree=False, Expandable=True, Guidance=IF_ARGS [] 20 0}] $dIP_s3n6 = unpackCString# $dIP_s3YR $dIP_s3n7 :: SrcLoc [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] $dIP_s3n7 = SrcLoc loc_s3mZ loc_s3n0 loc_s3n1 loc_s3n2 loc_s3n3 loc_s3n2 loc_s3n5 $dIP_s3n8 :: CallStack [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] $dIP_s3n8 = PushCallStack $dIP_s3n6 $dIP_s3n7 EmptyCallStack lvl_s3YV :: Addr# [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 40 0}] lvl_s3YV = "unreachable"# lvl_s3Yv :: Ordering [LclId, Str=b, Cpr=b, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=False, WorkFree=False, Expandable=False, Guidance=NEVER}] lvl_s3Yv = hpc error @LiftedRep @Ordering ($dIP_s3n8 `cast` (Sym (N:IP[0] <"callStack">_N _N) :: Coercible CallStack (?callStack::CallStack))) (unpackCString# lvl_s3YV) f :: NS (NP I) '[ '[], '[], '[]] -> Ordering [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=False, WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 130 60}] f = hpc hpc hpc \ (x [Dmd=1L] :: NS (NP I) '[ '[], '[], '[]]) -> hpc hpc case x of { Z @x @xs co_aEZ [Dmd=A] ds_d3gF [Dmd=1L] -> case ds_d3gF of { Nil co_aF0 [Dmd=A] -> hpc LT; :* @ipv_s3nw @ipv_s3nx ipv [Dmd=B] ipv [Dmd=B] ipv [Dmd=B] -> hpc lvl_s3Yv }; S @xs @x co_aF5 [Dmd=A] ds_d3gG [Dmd=1L] -> case ds_d3gG of { Z @x @xs co_aF8 [Dmd=A] ds_d3gH [Dmd=1L] -> case ds_d3gH of { Nil co_aF9 [Dmd=A] -> hpc EQ; :* @ipv_s3nC @ipv_s3nD ipv [Dmd=B] ipv [Dmd=B] ipv [Dmd=B] -> hpc lvl_s3Yv }; S @xs @x co_aFi [Dmd=A] ds_d3gI [Dmd=1L] -> case ds_d3gI of { Z @x @xs co_aFl [Dmd=A] ds_d3gJ [Dmd=1L] -> case ds_d3gJ of { Nil co_aFm [Dmd=A] -> hpc GT; :* @ipv_s3nI @ipv_s3nJ ipv [Dmd=B] ipv [Dmd=B] ipv [Dmd=B] -> hpc lvl_s3Yv }; S @ipv_s3nO @ipv_s3nP ipv [Dmd=B] ipv [Dmd=B] -> hpc lvl_s3Yv } } } lvl_s3YF :: NP I '[] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=False, WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 0 0}] lvl_s3YF = (hpc $WNil) @(*) @I lvl_s3YG :: NS (NP I) '[ '[], '[], '[]] [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] lvl_s3YG = Z @[*] @(NP I) @'[ '[], '[], '[]] @'[] @'[ '[], '[]] @~(<'[ '[], '[], '[]]>_N :: '[ '[], '[], '[]] ~ '[ '[], '[], '[]]) lvl_s3YF lvl_s3YH :: NP I '[] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=False, WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 0 0}] lvl_s3YH = (hpc $WNil) @(*) @I lvl_s3YS :: NS (NP I) '[ '[], '[]] [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] lvl_s3YS = Z @[*] @(NP I) @'[ '[], '[]] @'[] @'[ '[]] @~(<'[ '[], '[]]>_N :: '[ '[], '[]] ~ '[ '[], '[]]) lvl_s3YH lvl_s3YI :: NS (NP I) '[ '[], '[], '[]] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=False, WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 10 10}] lvl_s3YI = hpc S @[*] @(NP I) @'[ '[], '[], '[]] @'[ '[], '[]] @'[] @~(<'[ '[], '[], '[]]>_N :: '[ '[], '[], '[]] ~ '[ '[], '[], '[]]) lvl_s3YS lvl_s3YJ :: NP I '[] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=False, WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 0 0}] lvl_s3YJ = (hpc $WNil) @(*) @I lvl_s3YT :: NS (NP I) '[ '[]] [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] lvl_s3YT = Z @[*] @(NP I) @'[ '[]] @'[] @'[] @~(<'[ '[]]>_N :: '[ '[]] ~ '[ '[]]) lvl_s3YJ lvl_s3YU :: NS (NP I) '[ '[], '[]] [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] lvl_s3YU = S @[*] @(NP I) @'[ '[], '[]] @'[ '[]] @'[] @~(<'[ '[], '[]]>_N :: '[ '[], '[]] ~ '[ '[], '[]]) lvl_s3YT lvl_s3YK :: NS (NP I) '[ '[], '[], '[]] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=False, WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 10 10}] lvl_s3YK = hpc hpc S @[*] @(NP I) @'[ '[], '[], '[]] @'[ '[], '[]] @'[] @~(<'[ '[], '[], '[]]>_N :: '[ '[], '[], '[]] ~ '[ '[], '[], '[]]) lvl_s3YU g :: Ordering -> NS (NP I) '[ '[], '[], '[]] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=False, WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 40 60}] g = hpc hpc hpc \ (x [Dmd=1L] :: Ordering) -> hpc hpc case x of { LT -> hpc lvl_s3YG; EQ -> hpc lvl_s3YI; GT -> hpc lvl_s3YK } RHS: roundtrip_id :: Ordering -> Ordering [LclIdX, Arity=1, Str=<1L>, Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=True) Tmpl= \ (x [Occ=Once1] :: Ordering) -> hpc hpc x}] roundtrip_id = \ (x [Dmd=1L] :: Ordering) -> hpc hpc x examples/NS_NP.hs: error: inspection testing unsuccessful unexpected failures: 1