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.1 (first run) Configuring inspection-testing-0.5.0.1... Preprocessing library for inspection-testing-0.5.0.1.. Building library for inspection-testing-0.5.0.1.. [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.1/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.1/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.1/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.1/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.1/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.1/noopt/build/Test/Inspection/Plugin.dyn_o ) Preprocessing test suite 'HPCs' for inspection-testing-0.5.0.1.. Building test suite 'HPCs' for inspection-testing-0.5.0.1.. [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.1/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.1/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.1/noopt/build/HPCs/HPCs ... Preprocessing test suite 'NS_NP' for inspection-testing-0.5.0.1.. Building test suite 'NS_NP' for inspection-testing-0.5.0.1.. [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.1/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.1/noopt/build/NS_NP/NS_NP-tmp/NS_NP.dyn_o ) examples/NS_NP.hs:43: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_aEU ds_d3gA [Occ=Once1!] -> case ds_d3gA of { Nil co_aEV -> hpc LT; :* @ipv_s3nr @ipv_s3ns ipv _ [Occ=Dead] _ [Occ=Dead] -> hpc hpc error @LiftedRep @Ordering ($dIP_s3n3 `cast` (Sym (N:IP[0] <"callStack">_N _N) :: Coercible CallStack (?callStack::CallStack))) (build @Char (\ (@b) -> unpackFoldrCString# @b "unreachable"#)) }; S @xs @x co_aF0 ds_d3gB [Occ=Once1!] -> case ds_d3gB of { Z @x @xs co_aF3 ds_d3gC [Occ=Once1!] -> case ds_d3gC of { Nil co_aF4 -> hpc EQ; :* @ipv_s3nx @ipv_s3ny ipv _ [Occ=Dead] _ [Occ=Dead] -> hpc hpc error @LiftedRep @Ordering ($dIP_s3n3 `cast` (Sym (N:IP[0] <"callStack">_N _N) :: Coercible CallStack (?callStack::CallStack))) (build @Char (\ (@b) -> unpackFoldrCString# @b "unreachable"#)) }; S @xs @x co_aFd ds_d3gD [Occ=Once1!] -> case ds_d3gD of { Z @x @xs co_aFg ds_d3gE [Occ=Once1!] -> case ds_d3gE of { Nil co_aFh -> hpc GT; :* @ipv_s3nD @ipv_s3nE ipv _ [Occ=Dead] _ [Occ=Dead] -> hpc hpc error @LiftedRep @Ordering ($dIP_s3n3 `cast` (Sym (N:IP[0] <"callStack">_N _N) :: Coercible CallStack (?callStack::CallStack))) (build @Char (\ (@b) -> unpackFoldrCString# @b "unreachable"#)) }; S @ipv_s3nJ @ipv_s3nK ipv _ [Occ=Dead] -> hpc hpc error @LiftedRep @Ordering ($dIP_s3n3 `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_s3lE :: Addr# [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 20 0}] $trModule_s3lE = "main"# $trModule_s3lG :: Addr# [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 30 0}] $trModule_s3lG = "NS_NP"# loc_s3mU :: [Char] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=True, WorkFree=False, Expandable=True, Guidance=IF_ARGS [] 20 0}] loc_s3mU = unpackCString# $trModule_s3lE loc_s3mV :: [Char] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=True, WorkFree=False, Expandable=True, Guidance=IF_ARGS [] 20 0}] loc_s3mV = unpackCString# $trModule_s3lG loc_s3YL :: Addr# [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 60 0}] loc_s3YL = "examples/NS_NP.hs"# loc_s3mW :: [Char] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=True, WorkFree=False, Expandable=True, Guidance=IF_ARGS [] 20 0}] loc_s3mW = unpackCString# loc_s3YL loc_s3mX :: Int [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] loc_s3mX = I# 30# loc_s3mY :: Int [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] loc_s3mY = I# 8# loc_s3n0 :: Int [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] loc_s3n0 = I# 13# $dIP_s3YM :: Addr# [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 30 0}] $dIP_s3YM = "error"# $dIP_s3n1 :: [Char] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=True, WorkFree=False, Expandable=True, Guidance=IF_ARGS [] 20 0}] $dIP_s3n1 = unpackCString# $dIP_s3YM $dIP_s3n2 :: SrcLoc [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] $dIP_s3n2 = SrcLoc loc_s3mU loc_s3mV loc_s3mW loc_s3mX loc_s3mY loc_s3mX loc_s3n0 $dIP_s3n3 :: CallStack [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] $dIP_s3n3 = PushCallStack $dIP_s3n1 $dIP_s3n2 EmptyCallStack lvl_s3YQ :: Addr# [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 40 0}] lvl_s3YQ = "unreachable"# lvl_s3Yq :: Ordering [LclId, Str=b, Cpr=b, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=False, WorkFree=False, Expandable=False, Guidance=NEVER}] lvl_s3Yq = hpc error @LiftedRep @Ordering ($dIP_s3n3 `cast` (Sym (N:IP[0] <"callStack">_N _N) :: Coercible CallStack (?callStack::CallStack))) (unpackCString# lvl_s3YQ) 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_aEU [Dmd=A] ds_d3gA [Dmd=1L] -> case ds_d3gA of { Nil co_aEV [Dmd=A] -> hpc LT; :* @ipv_s3nr @ipv_s3ns ipv [Dmd=B] ipv [Dmd=B] ipv [Dmd=B] -> hpc lvl_s3Yq }; S @xs @x co_aF0 [Dmd=A] ds_d3gB [Dmd=1L] -> case ds_d3gB of { Z @x @xs co_aF3 [Dmd=A] ds_d3gC [Dmd=1L] -> case ds_d3gC of { Nil co_aF4 [Dmd=A] -> hpc EQ; :* @ipv_s3nx @ipv_s3ny ipv [Dmd=B] ipv [Dmd=B] ipv [Dmd=B] -> hpc lvl_s3Yq }; S @xs @x co_aFd [Dmd=A] ds_d3gD [Dmd=1L] -> case ds_d3gD of { Z @x @xs co_aFg [Dmd=A] ds_d3gE [Dmd=1L] -> case ds_d3gE of { Nil co_aFh [Dmd=A] -> hpc GT; :* @ipv_s3nD @ipv_s3nE ipv [Dmd=B] ipv [Dmd=B] ipv [Dmd=B] -> hpc lvl_s3Yq }; S @ipv_s3nJ @ipv_s3nK ipv [Dmd=B] ipv [Dmd=B] -> hpc lvl_s3Yq } } } lvl_s3YA :: NP I '[] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=False, WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 0 0}] lvl_s3YA = (hpc $WNil) @(*) @I lvl_s3YB :: NS (NP I) '[ '[], '[], '[]] [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] lvl_s3YB = Z @[*] @(NP I) @'[ '[], '[], '[]] @'[] @'[ '[], '[]] @~(<'[ '[], '[], '[]]>_N :: '[ '[], '[], '[]] ~ '[ '[], '[], '[]]) lvl_s3YA lvl_s3YC :: NP I '[] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=False, WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 0 0}] lvl_s3YC = (hpc $WNil) @(*) @I lvl_s3YN :: NS (NP I) '[ '[], '[]] [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] lvl_s3YN = Z @[*] @(NP I) @'[ '[], '[]] @'[] @'[ '[]] @~(<'[ '[], '[]]>_N :: '[ '[], '[]] ~ '[ '[], '[]]) lvl_s3YC lvl_s3YD :: NS (NP I) '[ '[], '[], '[]] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=False, WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 10 10}] lvl_s3YD = hpc S @[*] @(NP I) @'[ '[], '[], '[]] @'[ '[], '[]] @'[] @~(<'[ '[], '[], '[]]>_N :: '[ '[], '[], '[]] ~ '[ '[], '[], '[]]) lvl_s3YN lvl_s3YE :: NP I '[] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=False, WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 0 0}] lvl_s3YE = (hpc $WNil) @(*) @I lvl_s3YO :: NS (NP I) '[ '[]] [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] lvl_s3YO = Z @[*] @(NP I) @'[ '[]] @'[] @'[] @~(<'[ '[]]>_N :: '[ '[]] ~ '[ '[]]) lvl_s3YE lvl_s3YP :: NS (NP I) '[ '[], '[]] [LclId, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] lvl_s3YP = S @[*] @(NP I) @'[ '[], '[]] @'[ '[]] @'[] @~(<'[ '[], '[]]>_N :: '[ '[], '[]] ~ '[ '[], '[]]) lvl_s3YO lvl_s3YF :: NS (NP I) '[ '[], '[], '[]] [LclId, Unf=Unf{Src=, TopLvl=True, Value=False, ConLike=False, WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 10 10}] lvl_s3YF = hpc hpc S @[*] @(NP I) @'[ '[], '[], '[]] @'[ '[], '[]] @'[] @~(<'[ '[], '[], '[]]>_N :: '[ '[], '[], '[]] ~ '[ '[], '[], '[]]) lvl_s3YP 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_s3YB; EQ -> hpc lvl_s3YD; GT -> hpc lvl_s3YF } 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