From 2ec18435b8c57afcfcec0b7da872621b1179d45f Mon Sep 17 00:00:00 2001 From: Ryan Scott Date: Sun, 10 Nov 2019 10:14:59 -0500 Subject: [PATCH] Simplify TH defunctionalization machinery slightly The inner loop of the `defunctionalize` function was passing around a higher-order function to compute the right-hand sides of `Apply` instances. But this is really more complicated than it needs to be, as it is quite feasible to determine what the right-hand side of any `Apply` instance will be without keeping track of this extra state. The general formula is simply: ```hs type instnce Apply (DSym{n} a{1} ... a{n}) a_{n+1} = DSym{n+1} a{1} ... a{n} a{n+1} ``` Where `n` is the number of matchable arguments for the defunctionalization symbol being generated. Previously, `defunctionalize` had a special case for when `n+1` equals the number of arguments the original type `D` accepts, which caused it to generate `D a{1} ... a{n} a{n+1}` as the right-hand side. Due to the aforementioned simplification, it now generates `DSym{n+1} a{1} ... a{n} a{n+1}` instead, which causes quite a number of golden test files to change. As a result, this patch looks large, but the vast majority of the changes are simply the result of `D` changing to `DSym{n+1}`. --- src/Data/Singletons/Promote/Defun.hs | 17 ++--- .../GradingClient/Database.golden | 26 +++---- .../InsertionSort/InsertionSortImp.golden | 10 +-- .../Promote/Constructors.golden | 4 +- .../Promote/GenDefunSymbols.golden | 6 +- .../compile-and-dump/Promote/Newtypes.golden | 6 +- tests/compile-and-dump/Promote/Prelude.golden | 2 +- tests/compile-and-dump/Promote/T180.golden | 8 +-- tests/compile-and-dump/Promote/T361.golden | 2 +- .../Singletons/AsPattern.golden | 22 +++--- .../Singletons/BoundedDeriving.golden | 4 +- .../Singletons/BoxUnBox.golden | 4 +- .../Singletons/CaseExpressions.golden | 18 ++--- .../Singletons/Classes.golden | 26 +++---- .../Singletons/Classes2.golden | 4 +- .../Singletons/Contains.golden | 2 +- .../Singletons/DataValues.golden | 4 +- .../Singletons/EmptyShowDeriving.golden | 2 +- .../Singletons/EnumDeriving.golden | 8 +-- .../compile-and-dump/Singletons/Error.golden | 2 +- .../compile-and-dump/Singletons/Fixity.golden | 4 +- .../Singletons/FunDeps.golden | 8 +-- .../Singletons/FunctorLikeDeriving.golden | 46 ++++++------- .../Singletons/HigherOrder.golden | 20 +++--- .../Singletons/LambdaCase.golden | 12 ++-- .../Singletons/Lambdas.golden | 40 +++++------ .../Singletons/LambdasComprehensive.golden | 2 +- .../Singletons/LetStatements.golden | 68 +++++++++---------- .../compile-and-dump/Singletons/Maybe.golden | 4 +- tests/compile-and-dump/Singletons/Nat.golden | 10 +-- .../Singletons/Operators.golden | 6 +- .../Singletons/OrdDeriving.golden | 18 ++--- .../Singletons/OverloadedStrings.golden | 2 +- .../Singletons/PatternMatching.golden | 16 ++--- .../Singletons/PolyKinds.golden | 2 +- .../Singletons/Records.golden | 6 +- .../Singletons/ReturnFunc.golden | 6 +- .../Singletons/Sections.golden | 4 +- .../Singletons/ShowDeriving.golden | 20 +++--- .../Singletons/StandaloneDeriving.golden | 14 ++-- tests/compile-and-dump/Singletons/Star.golden | 8 +-- tests/compile-and-dump/Singletons/T124.golden | 2 +- tests/compile-and-dump/Singletons/T136.golden | 8 +-- .../compile-and-dump/Singletons/T136b.golden | 4 +- tests/compile-and-dump/Singletons/T145.golden | 2 +- tests/compile-and-dump/Singletons/T159.golden | 8 +-- tests/compile-and-dump/Singletons/T160.golden | 4 +- tests/compile-and-dump/Singletons/T163.golden | 4 +- tests/compile-and-dump/Singletons/T166.golden | 8 +-- tests/compile-and-dump/Singletons/T167.golden | 8 +-- tests/compile-and-dump/Singletons/T172.golden | 2 +- tests/compile-and-dump/Singletons/T176.golden | 10 +-- tests/compile-and-dump/Singletons/T178.golden | 4 +- tests/compile-and-dump/Singletons/T183.golden | 36 +++++----- tests/compile-and-dump/Singletons/T184.golden | 24 +++---- tests/compile-and-dump/Singletons/T187.golden | 2 +- tests/compile-and-dump/Singletons/T190.golden | 8 +-- tests/compile-and-dump/Singletons/T197.golden | 2 +- .../compile-and-dump/Singletons/T197b.golden | 4 +- tests/compile-and-dump/Singletons/T200.golden | 10 +-- tests/compile-and-dump/Singletons/T209.golden | 2 +- tests/compile-and-dump/Singletons/T216.golden | 4 +- tests/compile-and-dump/Singletons/T229.golden | 2 +- tests/compile-and-dump/Singletons/T249.golden | 6 +- tests/compile-and-dump/Singletons/T271.golden | 8 +-- tests/compile-and-dump/Singletons/T287.golden | 6 +- tests/compile-and-dump/Singletons/T29.golden | 8 +-- tests/compile-and-dump/Singletons/T297.golden | 2 +- tests/compile-and-dump/Singletons/T312.golden | 10 +-- tests/compile-and-dump/Singletons/T313.golden | 16 ++--- tests/compile-and-dump/Singletons/T316.golden | 2 +- tests/compile-and-dump/Singletons/T322.golden | 2 +- tests/compile-and-dump/Singletons/T33.golden | 2 +- tests/compile-and-dump/Singletons/T332.golden | 4 +- tests/compile-and-dump/Singletons/T342.golden | 2 +- tests/compile-and-dump/Singletons/T353.golden | 6 +- tests/compile-and-dump/Singletons/T358.golden | 8 +-- tests/compile-and-dump/Singletons/T367.golden | 2 +- tests/compile-and-dump/Singletons/T371.golden | 8 +-- tests/compile-and-dump/Singletons/T376.golden | 2 +- .../compile-and-dump/Singletons/T378a.golden | 2 +- tests/compile-and-dump/Singletons/T402.golden | 2 +- tests/compile-and-dump/Singletons/T410.golden | 4 +- tests/compile-and-dump/Singletons/T412.golden | 16 ++--- tests/compile-and-dump/Singletons/T414.golden | 4 +- tests/compile-and-dump/Singletons/T54.golden | 4 +- tests/compile-and-dump/Singletons/T78.golden | 2 +- .../Singletons/TopLevelPatterns.golden | 14 ++-- .../compile-and-dump/Singletons/Undef.golden | 4 +- 89 files changed, 397 insertions(+), 400 deletions(-) diff --git a/src/Data/Singletons/Promote/Defun.hs b/src/Data/Singletons/Promote/Defun.hs index 36bbf97c..5ad680b2 100644 --- a/src/Data/Singletons/Promote/Defun.hs +++ b/src/Data/Singletons/Promote/Defun.hs @@ -225,11 +225,9 @@ defunctionalize name m_fixity m_arg_tvbs' m_res_kind' = do ++ maybeToList m_res_kind -- (2)(i)(a) go :: Int -> [DTyVarBndr] -> Maybe DKind - -> ([DTyVarBndr] -> DType) -- given the argument tyvar binders, - -- produce the RHS of the Apply instance -> PrM [DDec] - go _ [] _ _ = return [] - go n (m_arg : m_args) m_result mk_rhs = do + go _ [] _ = return [] + go n (m_arg : m_args) m_result = do extra_name <- qNewName "arg" let tyfun_name = extractTvbName m_arg data_name = promoteTySym name n @@ -276,7 +274,8 @@ defunctionalize name m_fixity m_arg_tvbs' m_res_kind' = do app_eqn = DTySynEqn Nothing (DConT applyName `DAppT` app_data_ty `DAppT` DVarT tyfun_name) - (mk_rhs (m_args ++ [DPlainTV tyfun_name])) + (foldTypeTvbs (DConT next_name) + (m_args ++ [DPlainTV tyfun_name])) app_decl = DTySynInstD app_eqn suppress = DInstanceD Nothing Nothing [] (DConT suppressClassName `DAppT` app_data_ty) @@ -286,20 +285,18 @@ defunctionalize name m_fixity m_arg_tvbs' m_res_kind' = do mkTupleDExp [DConE con_name, mkTupleDExp []])]] - mk_rhs' = foldTypeTvbs (DConT data_name) -- See Note [Fixity declarations for defunctionalization symbols] fixity_decl = maybeToList $ fmap (mk_fix_decl data_name) m_fixity - decls <- go (n - 1) m_args m_tyfun mk_rhs' + decls <- go (n - 1) m_args m_tyfun return $ suppress : data_decl : app_decl : fixity_decl ++ decls let num_args = length m_arg_tvbs sat_name = promoteTySym name num_args - mk_rhs = foldTypeTvbs (DConT name) - sat_dec = DTySynD sat_name m_arg_tvbs (mk_rhs m_arg_tvbs) + sat_dec = DTySynD sat_name m_arg_tvbs $ foldTypeTvbs (DConT name) m_arg_tvbs sat_fixity_dec = maybeToList $ fmap (mk_fix_decl sat_name) m_fixity - other_decs <- go (num_args - 1) (reverse m_arg_tvbs) m_res_kind mk_rhs + other_decs <- go (num_args - 1) (reverse m_arg_tvbs) m_res_kind return $ sat_dec : sat_fixity_dec ++ other_decs where eta_expand :: [DTyVarBndr] -> Maybe DKind -> PrM ([DTyVarBndr], Maybe DKind) diff --git a/tests/compile-and-dump/GradingClient/Database.golden b/tests/compile-and-dump/GradingClient/Database.golden index a10e4d60..93783a2f 100644 --- a/tests/compile-and-dump/GradingClient/Database.golden +++ b/tests/compile-and-dump/GradingClient/Database.golden @@ -17,7 +17,7 @@ GradingClient/Database.hs:(0,0)-(0,0): Splicing declarations SuccSym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply SuccSym0 arg) (SuccSym1 arg) => SuccSym0 t0123456789876543210 - type instance Apply SuccSym0 t0123456789876543210 = Succ t0123456789876543210 + type instance Apply SuccSym0 t0123456789876543210 = SuccSym1 t0123456789876543210 type family Compare_0123456789876543210 (a :: Nat) (a :: Nat) :: Ordering where Compare_0123456789876543210 Zero Zero = Apply (Apply (Apply FoldlSym0 ThenCmpSym0) EQSym0) '[] Compare_0123456789876543210 (Succ a_0123456789876543210) (Succ b_0123456789876543210) = Apply (Apply (Apply FoldlSym0 ThenCmpSym0) EQSym0) (Apply (Apply (:@#@$) (Apply (Apply CompareSym0 a_0123456789876543210) b_0123456789876543210)) '[]) @@ -34,7 +34,7 @@ GradingClient/Database.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Compare_0123456789876543210Sym1 a0123456789876543210) arg) (Compare_0123456789876543210Sym2 a0123456789876543210 arg) => Compare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Compare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Compare_0123456789876543210Sym0KindInference) ()) @@ -242,7 +242,7 @@ GradingClient/Database.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (VECSym1 t0123456789876543210) arg) (VECSym2 t0123456789876543210 arg) => VECSym1 t0123456789876543210 t0123456789876543210 - type instance Apply (VECSym1 t0123456789876543210) t0123456789876543210 = VEC t0123456789876543210 t0123456789876543210 + type instance Apply (VECSym1 t0123456789876543210) t0123456789876543210 = VECSym2 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings VECSym0 where suppressUnusedWarnings = snd (((,) VECSym0KindInference) ()) data VECSym0 :: (~>) U ((~>) Nat U) @@ -287,7 +287,7 @@ GradingClient/Database.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (AttrSym1 t0123456789876543210) arg) (AttrSym2 t0123456789876543210 arg) => AttrSym1 t0123456789876543210 t0123456789876543210 - type instance Apply (AttrSym1 t0123456789876543210) t0123456789876543210 = Attr t0123456789876543210 t0123456789876543210 + type instance Apply (AttrSym1 t0123456789876543210) t0123456789876543210 = AttrSym2 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings AttrSym0 where suppressUnusedWarnings = snd (((,) AttrSym0KindInference) ()) data AttrSym0 :: (~>) [AChar] ((~>) U Attribute) @@ -305,7 +305,7 @@ GradingClient/Database.hs:(0,0)-(0,0): Splicing declarations SchSym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply SchSym0 arg) (SchSym1 arg) => SchSym0 t0123456789876543210 - type instance Apply SchSym0 t0123456789876543210 = Sch t0123456789876543210 + type instance Apply SchSym0 t0123456789876543210 = SchSym1 t0123456789876543210 type Let0123456789876543210Scrutinee_0123456789876543210Sym4 name0123456789876543210 name'0123456789876543210 u0123456789876543210 attrs0123456789876543210 = Let0123456789876543210Scrutinee_0123456789876543210 name0123456789876543210 name'0123456789876543210 u0123456789876543210 attrs0123456789876543210 instance SuppressUnusedWarnings (Let0123456789876543210Scrutinee_0123456789876543210Sym3 u0123456789876543210 name'0123456789876543210 name0123456789876543210) where @@ -322,7 +322,7 @@ GradingClient/Database.hs:(0,0)-(0,0): Splicing declarations attrs0123456789876543210 arg. SameKind (Apply (Let0123456789876543210Scrutinee_0123456789876543210Sym3 name0123456789876543210 name'0123456789876543210 u0123456789876543210) arg) (Let0123456789876543210Scrutinee_0123456789876543210Sym4 name0123456789876543210 name'0123456789876543210 u0123456789876543210 arg) => Let0123456789876543210Scrutinee_0123456789876543210Sym3 name0123456789876543210 name'0123456789876543210 u0123456789876543210 attrs0123456789876543210 - type instance Apply (Let0123456789876543210Scrutinee_0123456789876543210Sym3 u0123456789876543210 name'0123456789876543210 name0123456789876543210) attrs0123456789876543210 = Let0123456789876543210Scrutinee_0123456789876543210 u0123456789876543210 name'0123456789876543210 name0123456789876543210 attrs0123456789876543210 + type instance Apply (Let0123456789876543210Scrutinee_0123456789876543210Sym3 u0123456789876543210 name'0123456789876543210 name0123456789876543210) attrs0123456789876543210 = Let0123456789876543210Scrutinee_0123456789876543210Sym4 u0123456789876543210 name'0123456789876543210 name0123456789876543210 attrs0123456789876543210 instance SuppressUnusedWarnings (Let0123456789876543210Scrutinee_0123456789876543210Sym2 name'0123456789876543210 name0123456789876543210) where suppressUnusedWarnings = snd @@ -377,7 +377,7 @@ GradingClient/Database.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (LookupSym1 a0123456789876543210) arg) (LookupSym2 a0123456789876543210 arg) => LookupSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (LookupSym1 a0123456789876543210) a0123456789876543210 = Lookup a0123456789876543210 a0123456789876543210 + type instance Apply (LookupSym1 a0123456789876543210) a0123456789876543210 = LookupSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings LookupSym0 where suppressUnusedWarnings = snd (((,) LookupSym0KindInference) ()) data LookupSym0 :: (~>) [AChar] ((~>) Schema U) @@ -396,7 +396,7 @@ GradingClient/Database.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (OccursSym1 a0123456789876543210) arg) (OccursSym2 a0123456789876543210 arg) => OccursSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (OccursSym1 a0123456789876543210) a0123456789876543210 = Occurs a0123456789876543210 a0123456789876543210 + type instance Apply (OccursSym1 a0123456789876543210) a0123456789876543210 = OccursSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings OccursSym0 where suppressUnusedWarnings = snd (((,) OccursSym0KindInference) ()) data OccursSym0 :: (~>) [AChar] ((~>) Schema Bool) @@ -415,7 +415,7 @@ GradingClient/Database.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (DisjointSym1 a0123456789876543210) arg) (DisjointSym2 a0123456789876543210 arg) => DisjointSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (DisjointSym1 a0123456789876543210) a0123456789876543210 = Disjoint a0123456789876543210 a0123456789876543210 + type instance Apply (DisjointSym1 a0123456789876543210) a0123456789876543210 = DisjointSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings DisjointSym0 where suppressUnusedWarnings = snd (((,) DisjointSym0KindInference) ()) data DisjointSym0 :: (~>) Schema ((~>) Schema Bool) @@ -434,7 +434,7 @@ GradingClient/Database.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (AttrNotInSym1 a0123456789876543210) arg) (AttrNotInSym2 a0123456789876543210 arg) => AttrNotInSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (AttrNotInSym1 a0123456789876543210) a0123456789876543210 = AttrNotIn a0123456789876543210 a0123456789876543210 + type instance Apply (AttrNotInSym1 a0123456789876543210) a0123456789876543210 = AttrNotInSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings AttrNotInSym0 where suppressUnusedWarnings = snd (((,) AttrNotInSym0KindInference) ()) data AttrNotInSym0 :: (~>) Attribute ((~>) Schema Bool) @@ -453,7 +453,7 @@ GradingClient/Database.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (AppendSym1 a0123456789876543210) arg) (AppendSym2 a0123456789876543210 arg) => AppendSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (AppendSym1 a0123456789876543210) a0123456789876543210 = Append a0123456789876543210 a0123456789876543210 + type instance Apply (AppendSym1 a0123456789876543210) a0123456789876543210 = AppendSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings AppendSym0 where suppressUnusedWarnings = snd (((,) AppendSym0KindInference) ()) data AppendSym0 :: (~>) Schema ((~>) Schema Schema) @@ -493,7 +493,7 @@ GradingClient/Database.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ShowsPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ShowsPrec_0123456789876543210Sym1KindInference) ()) @@ -554,7 +554,7 @@ GradingClient/Database.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ShowsPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ShowsPrec_0123456789876543210Sym1KindInference) ()) diff --git a/tests/compile-and-dump/InsertionSort/InsertionSortImp.golden b/tests/compile-and-dump/InsertionSort/InsertionSortImp.golden index afa838d5..4d323117 100644 --- a/tests/compile-and-dump/InsertionSort/InsertionSortImp.golden +++ b/tests/compile-and-dump/InsertionSort/InsertionSortImp.golden @@ -12,7 +12,7 @@ InsertionSort/InsertionSortImp.hs:(0,0)-(0,0): Splicing declarations SuccSym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply SuccSym0 arg) (SuccSym1 arg) => SuccSym0 t0123456789876543210 - type instance Apply SuccSym0 t0123456789876543210 = Succ t0123456789876543210 + type instance Apply SuccSym0 t0123456789876543210 = SuccSym1 t0123456789876543210 data SNat :: Nat -> Type where SZero :: SNat (Zero :: Nat) @@ -72,7 +72,7 @@ InsertionSort/InsertionSortImp.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Let0123456789876543210Scrutinee_0123456789876543210Sym2 n0123456789876543210 h0123456789876543210) arg) (Let0123456789876543210Scrutinee_0123456789876543210Sym3 n0123456789876543210 h0123456789876543210 arg) => Let0123456789876543210Scrutinee_0123456789876543210Sym2 n0123456789876543210 h0123456789876543210 t0123456789876543210 - type instance Apply (Let0123456789876543210Scrutinee_0123456789876543210Sym2 h0123456789876543210 n0123456789876543210) t0123456789876543210 = Let0123456789876543210Scrutinee_0123456789876543210 h0123456789876543210 n0123456789876543210 t0123456789876543210 + type instance Apply (Let0123456789876543210Scrutinee_0123456789876543210Sym2 h0123456789876543210 n0123456789876543210) t0123456789876543210 = Let0123456789876543210Scrutinee_0123456789876543210Sym3 h0123456789876543210 n0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Let0123456789876543210Scrutinee_0123456789876543210Sym1 n0123456789876543210) where suppressUnusedWarnings = snd @@ -113,7 +113,7 @@ InsertionSort/InsertionSortImp.hs:(0,0)-(0,0): Splicing declarations InsertionSortSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply InsertionSortSym0 arg) (InsertionSortSym1 arg) => InsertionSortSym0 a0123456789876543210 - type instance Apply InsertionSortSym0 a0123456789876543210 = InsertionSort a0123456789876543210 + type instance Apply InsertionSortSym0 a0123456789876543210 = InsertionSortSym1 a0123456789876543210 type InsertSym2 (a0123456789876543210 :: Nat) (a0123456789876543210 :: [Nat]) = Insert a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (InsertSym1 a0123456789876543210) where @@ -124,7 +124,7 @@ InsertionSort/InsertionSortImp.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (InsertSym1 a0123456789876543210) arg) (InsertSym2 a0123456789876543210 arg) => InsertSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (InsertSym1 a0123456789876543210) a0123456789876543210 = Insert a0123456789876543210 a0123456789876543210 + type instance Apply (InsertSym1 a0123456789876543210) a0123456789876543210 = InsertSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings InsertSym0 where suppressUnusedWarnings = snd (((,) InsertSym0KindInference) ()) data InsertSym0 :: (~>) Nat ((~>) [Nat] [Nat]) @@ -143,7 +143,7 @@ InsertionSort/InsertionSortImp.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (LeqSym1 a0123456789876543210) arg) (LeqSym2 a0123456789876543210 arg) => LeqSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (LeqSym1 a0123456789876543210) a0123456789876543210 = Leq a0123456789876543210 a0123456789876543210 + type instance Apply (LeqSym1 a0123456789876543210) a0123456789876543210 = LeqSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings LeqSym0 where suppressUnusedWarnings = snd (((,) LeqSym0KindInference) ()) data LeqSym0 :: (~>) Nat ((~>) Nat Bool) diff --git a/tests/compile-and-dump/Promote/Constructors.golden b/tests/compile-and-dump/Promote/Constructors.golden index 5f7745a0..99895900 100644 --- a/tests/compile-and-dump/Promote/Constructors.golden +++ b/tests/compile-and-dump/Promote/Constructors.golden @@ -16,7 +16,7 @@ Promote/Constructors.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply ((:+@#@$$) t0123456789876543210) arg) ((:+@#@$$$) t0123456789876543210 arg) => (:+@#@$$) t0123456789876543210 t0123456789876543210 - type instance Apply ((:+@#@$$) t0123456789876543210) t0123456789876543210 = (:+) t0123456789876543210 t0123456789876543210 + type instance Apply ((:+@#@$$) t0123456789876543210) t0123456789876543210 = (:+@#@$$$) t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (:+@#@$) where suppressUnusedWarnings = snd (((,) (::+@#@$###)) ()) data (:+@#@$) :: (~>) Foo ((~>) Foo Foo) @@ -38,7 +38,7 @@ Promote/Constructors.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (BarSym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210) arg) (BarSym5 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 arg) => BarSym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (BarSym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210) t0123456789876543210 = Bar t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 + type instance Apply (BarSym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210) t0123456789876543210 = BarSym5 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (BarSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) where suppressUnusedWarnings = snd (((,) BarSym3KindInference) ()) data BarSym3 (t0123456789876543210 :: Bar) (t0123456789876543210 :: Bar) (t0123456789876543210 :: Bar) :: (~>) Bar ((~>) Foo Bar) diff --git a/tests/compile-and-dump/Promote/GenDefunSymbols.golden b/tests/compile-and-dump/Promote/GenDefunSymbols.golden index a8cdc0a9..d9bdfb13 100644 --- a/tests/compile-and-dump/Promote/GenDefunSymbols.golden +++ b/tests/compile-and-dump/Promote/GenDefunSymbols.golden @@ -11,7 +11,7 @@ Promote/GenDefunSymbols.hs:0:0:: Splicing declarations x0123456789876543210 arg. Data.Singletons.Internal.SameKind (Apply (LiftMaybeSym1 f0123456789876543210) arg) (LiftMaybeSym2 f0123456789876543210 arg) => LiftMaybeSym1 f0123456789876543210 x0123456789876543210 - type instance Apply (LiftMaybeSym1 f0123456789876543210) x0123456789876543210 = LiftMaybe f0123456789876543210 x0123456789876543210 + type instance Apply (LiftMaybeSym1 f0123456789876543210) x0123456789876543210 = LiftMaybeSym2 f0123456789876543210 x0123456789876543210 instance SuppressUnusedWarnings LiftMaybeSym0 where suppressUnusedWarnings = snd (((,) LiftMaybeSym0KindInference) ()) data LiftMaybeSym0 :: forall a0123456789876543210 @@ -32,7 +32,7 @@ Promote/GenDefunSymbols.hs:0:0:: Splicing declarations SuccSym0KindInference :: forall t0123456789876543210 arg. Data.Singletons.Internal.SameKind (Apply SuccSym0 arg) (SuccSym1 arg) => SuccSym0 t0123456789876543210 - type instance Apply SuccSym0 t0123456789876543210 = 'Succ t0123456789876543210 + type instance Apply SuccSym0 t0123456789876543210 = SuccSym1 t0123456789876543210 type (:+@#@$$$) (a0123456789876543210 :: Nat) (b0123456789876543210 :: Nat) = (:+) a0123456789876543210 b0123456789876543210 instance SuppressUnusedWarnings ((:+@#@$$) a0123456789876543210) where @@ -43,7 +43,7 @@ Promote/GenDefunSymbols.hs:0:0:: Splicing declarations b0123456789876543210 arg. Data.Singletons.Internal.SameKind (Apply ((:+@#@$$) a0123456789876543210) arg) ((:+@#@$$$) a0123456789876543210 arg) => (:+@#@$$) a0123456789876543210 b0123456789876543210 - type instance Apply ((:+@#@$$) a0123456789876543210) b0123456789876543210 = (:+) a0123456789876543210 b0123456789876543210 + type instance Apply ((:+@#@$$) a0123456789876543210) b0123456789876543210 = (:+@#@$$$) a0123456789876543210 b0123456789876543210 instance SuppressUnusedWarnings (:+@#@$) where suppressUnusedWarnings = snd (((,) (::+@#@$###)) ()) data (:+@#@$) a0123456789876543210 diff --git a/tests/compile-and-dump/Promote/Newtypes.golden b/tests/compile-and-dump/Promote/Newtypes.golden index c1519040..cc197509 100644 --- a/tests/compile-and-dump/Promote/Newtypes.golden +++ b/tests/compile-and-dump/Promote/Newtypes.golden @@ -23,7 +23,7 @@ Promote/Newtypes.hs:(0,0)-(0,0): Splicing declarations UnBarSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply UnBarSym0 arg) (UnBarSym1 arg) => UnBarSym0 a0123456789876543210 - type instance Apply UnBarSym0 a0123456789876543210 = UnBar a0123456789876543210 + type instance Apply UnBarSym0 a0123456789876543210 = UnBarSym1 a0123456789876543210 type family UnBar (a :: Bar) :: Nat where UnBar (Bar field) = field type FooSym1 (t0123456789876543210 :: Nat) = @@ -35,7 +35,7 @@ Promote/Newtypes.hs:(0,0)-(0,0): Splicing declarations FooSym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply FooSym0 arg) (FooSym1 arg) => FooSym0 t0123456789876543210 - type instance Apply FooSym0 t0123456789876543210 = Foo t0123456789876543210 + type instance Apply FooSym0 t0123456789876543210 = FooSym1 t0123456789876543210 type BarSym1 (t0123456789876543210 :: Nat) = Bar t0123456789876543210 instance SuppressUnusedWarnings BarSym0 where @@ -45,4 +45,4 @@ Promote/Newtypes.hs:(0,0)-(0,0): Splicing declarations BarSym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply BarSym0 arg) (BarSym1 arg) => BarSym0 t0123456789876543210 - type instance Apply BarSym0 t0123456789876543210 = Bar t0123456789876543210 + type instance Apply BarSym0 t0123456789876543210 = BarSym1 t0123456789876543210 diff --git a/tests/compile-and-dump/Promote/Prelude.golden b/tests/compile-and-dump/Promote/Prelude.golden index e0292b9f..fc99d45f 100644 --- a/tests/compile-and-dump/Promote/Prelude.golden +++ b/tests/compile-and-dump/Promote/Prelude.golden @@ -13,7 +13,7 @@ Promote/Prelude.hs:(0,0)-(0,0): Splicing declarations OddSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply OddSym0 arg) (OddSym1 arg) => OddSym0 a0123456789876543210 - type instance Apply OddSym0 a0123456789876543210 = Odd a0123456789876543210 + type instance Apply OddSym0 a0123456789876543210 = OddSym1 a0123456789876543210 type family Odd (a :: Nat) :: Bool where Odd 0 = FalseSym0 Odd n = Apply (Apply ($@#@$) (Apply (Apply (.@#@$) NotSym0) OddSym0)) (Apply (Apply (-@#@$) n) (FromInteger 1)) diff --git a/tests/compile-and-dump/Promote/T180.golden b/tests/compile-and-dump/Promote/T180.golden index dbdd1670..396f16ac 100644 --- a/tests/compile-and-dump/Promote/T180.golden +++ b/tests/compile-and-dump/Promote/T180.golden @@ -16,7 +16,7 @@ Promote/T180.hs:(0,0)-(0,0): Splicing declarations ZSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply ZSym0 arg) (ZSym1 arg) => ZSym0 a0123456789876543210 - type instance Apply ZSym0 a0123456789876543210 = Z a0123456789876543210 + type instance Apply ZSym0 a0123456789876543210 = ZSym1 a0123456789876543210 type family Z a where Z (X1 x) = x Z (X2 x) = x @@ -28,7 +28,7 @@ Promote/T180.hs:(0,0)-(0,0): Splicing declarations YSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply YSym0 arg) (YSym1 arg) => YSym0 a0123456789876543210 - type instance Apply YSym0 a0123456789876543210 = Y a0123456789876543210 + type instance Apply YSym0 a0123456789876543210 = YSym1 a0123456789876543210 type family Y (a :: X) :: Symbol where Y (X1 field) = field Y (X2 field) = field @@ -41,7 +41,7 @@ Promote/T180.hs:(0,0)-(0,0): Splicing declarations X1Sym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply X1Sym0 arg) (X1Sym1 arg) => X1Sym0 t0123456789876543210 - type instance Apply X1Sym0 t0123456789876543210 = X1 t0123456789876543210 + type instance Apply X1Sym0 t0123456789876543210 = X1Sym1 t0123456789876543210 type X2Sym1 (t0123456789876543210 :: Symbol) = X2 t0123456789876543210 instance SuppressUnusedWarnings X2Sym0 where @@ -51,4 +51,4 @@ Promote/T180.hs:(0,0)-(0,0): Splicing declarations X2Sym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply X2Sym0 arg) (X2Sym1 arg) => X2Sym0 t0123456789876543210 - type instance Apply X2Sym0 t0123456789876543210 = X2 t0123456789876543210 + type instance Apply X2Sym0 t0123456789876543210 = X2Sym1 t0123456789876543210 diff --git a/tests/compile-and-dump/Promote/T361.golden b/tests/compile-and-dump/Promote/T361.golden index a0c307ac..677a3ee7 100644 --- a/tests/compile-and-dump/Promote/T361.golden +++ b/tests/compile-and-dump/Promote/T361.golden @@ -16,6 +16,6 @@ Promote/T361.hs:(0,0)-(0,0): Splicing declarations FSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply FSym0 arg) (FSym1 arg) => FSym0 a0123456789876543210 - type instance Apply FSym0 a0123456789876543210 = F a0123456789876543210 + type instance Apply FSym0 a0123456789876543210 = FSym1 a0123456789876543210 type family F (a :: Proxy 1) :: Proxy 2 where F 'Proxy = ProxySym0 diff --git a/tests/compile-and-dump/Singletons/AsPattern.golden b/tests/compile-and-dump/Singletons/AsPattern.golden index 3c9aabf4..30bd49d3 100644 --- a/tests/compile-and-dump/Singletons/AsPattern.golden +++ b/tests/compile-and-dump/Singletons/AsPattern.golden @@ -45,7 +45,7 @@ Singletons/AsPattern.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (BazSym2 t0123456789876543210 t0123456789876543210) arg) (BazSym3 t0123456789876543210 t0123456789876543210 arg) => BazSym2 t0123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (BazSym2 t0123456789876543210 t0123456789876543210) t0123456789876543210 = Baz t0123456789876543210 t0123456789876543210 t0123456789876543210 + type instance Apply (BazSym2 t0123456789876543210 t0123456789876543210) t0123456789876543210 = BazSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (BazSym1 t0123456789876543210) where suppressUnusedWarnings = snd (((,) BazSym1KindInference) ()) data BazSym1 (t0123456789876543210 :: Nat) :: (~>) Nat ((~>) Nat Baz) @@ -76,7 +76,7 @@ Singletons/AsPattern.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210PSym0KindInference :: forall wild_01234567898765432100123456789876543210 arg. SameKind (Apply Let0123456789876543210PSym0 arg) (Let0123456789876543210PSym1 arg) => Let0123456789876543210PSym0 wild_01234567898765432100123456789876543210 - type instance Apply Let0123456789876543210PSym0 wild_01234567898765432100123456789876543210 = Let0123456789876543210P wild_01234567898765432100123456789876543210 + type instance Apply Let0123456789876543210PSym0 wild_01234567898765432100123456789876543210 = Let0123456789876543210PSym1 wild_01234567898765432100123456789876543210 type family Let0123456789876543210P wild_0123456789876543210 where Let0123456789876543210P wild_0123456789876543210 = Apply (Apply (:@#@$) wild_0123456789876543210) '[] type Let0123456789876543210PSym3 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 = @@ -91,7 +91,7 @@ Singletons/AsPattern.hs:(0,0)-(0,0): Splicing declarations wild_01234567898765432100123456789876543210 arg. SameKind (Apply (Let0123456789876543210PSym2 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210) arg) (Let0123456789876543210PSym3 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 arg) => Let0123456789876543210PSym2 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 - type instance Apply (Let0123456789876543210PSym2 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210) wild_01234567898765432100123456789876543210 = Let0123456789876543210P wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 + type instance Apply (Let0123456789876543210PSym2 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210) wild_01234567898765432100123456789876543210 = Let0123456789876543210PSym3 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 instance SuppressUnusedWarnings (Let0123456789876543210PSym1 wild_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Let0123456789876543210PSym1KindInference) ()) @@ -124,7 +124,7 @@ Singletons/AsPattern.hs:(0,0)-(0,0): Splicing declarations wild_01234567898765432100123456789876543210 arg. SameKind (Apply (Let0123456789876543210PSym1 wild_01234567898765432100123456789876543210) arg) (Let0123456789876543210PSym2 wild_01234567898765432100123456789876543210 arg) => Let0123456789876543210PSym1 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 - type instance Apply (Let0123456789876543210PSym1 wild_01234567898765432100123456789876543210) wild_01234567898765432100123456789876543210 = Let0123456789876543210P wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 + type instance Apply (Let0123456789876543210PSym1 wild_01234567898765432100123456789876543210) wild_01234567898765432100123456789876543210 = Let0123456789876543210PSym2 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 instance SuppressUnusedWarnings Let0123456789876543210PSym0 where suppressUnusedWarnings = snd (((,) Let0123456789876543210PSym0KindInference) ()) @@ -151,7 +151,7 @@ Singletons/AsPattern.hs:(0,0)-(0,0): Splicing declarations wild_01234567898765432100123456789876543210 arg. SameKind (Apply (Let0123456789876543210PSym2 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210) arg) (Let0123456789876543210PSym3 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 arg) => Let0123456789876543210PSym2 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 - type instance Apply (Let0123456789876543210PSym2 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210) wild_01234567898765432100123456789876543210 = Let0123456789876543210P wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 + type instance Apply (Let0123456789876543210PSym2 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210) wild_01234567898765432100123456789876543210 = Let0123456789876543210PSym3 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 wild_01234567898765432100123456789876543210 instance SuppressUnusedWarnings (Let0123456789876543210PSym1 wild_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Let0123456789876543210PSym1KindInference) ()) @@ -183,7 +183,7 @@ Singletons/AsPattern.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210XSym0KindInference :: forall wild_01234567898765432100123456789876543210 arg. SameKind (Apply Let0123456789876543210XSym0 arg) (Let0123456789876543210XSym1 arg) => Let0123456789876543210XSym0 wild_01234567898765432100123456789876543210 - type instance Apply Let0123456789876543210XSym0 wild_01234567898765432100123456789876543210 = Let0123456789876543210X wild_01234567898765432100123456789876543210 + type instance Apply Let0123456789876543210XSym0 wild_01234567898765432100123456789876543210 = Let0123456789876543210XSym1 wild_01234567898765432100123456789876543210 type family Let0123456789876543210X wild_0123456789876543210 where Let0123456789876543210X wild_0123456789876543210 = Apply JustSym0 wild_0123456789876543210 type Let0123456789876543210PSym0 = Let0123456789876543210P @@ -198,7 +198,7 @@ Singletons/AsPattern.hs:(0,0)-(0,0): Splicing declarations FooSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply FooSym0 arg) (FooSym1 arg) => FooSym0 a0123456789876543210 - type instance Apply FooSym0 a0123456789876543210 = Foo a0123456789876543210 + type instance Apply FooSym0 a0123456789876543210 = FooSym1 a0123456789876543210 type TupSym1 (a0123456789876543210 :: (Nat, Nat)) = Tup a0123456789876543210 instance SuppressUnusedWarnings TupSym0 where @@ -208,7 +208,7 @@ Singletons/AsPattern.hs:(0,0)-(0,0): Splicing declarations TupSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply TupSym0 arg) (TupSym1 arg) => TupSym0 a0123456789876543210 - type instance Apply TupSym0 a0123456789876543210 = Tup a0123456789876543210 + type instance Apply TupSym0 a0123456789876543210 = TupSym1 a0123456789876543210 type Baz_Sym1 (a0123456789876543210 :: Maybe Baz) = Baz_ a0123456789876543210 instance SuppressUnusedWarnings Baz_Sym0 where @@ -218,7 +218,7 @@ Singletons/AsPattern.hs:(0,0)-(0,0): Splicing declarations Baz_Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Baz_Sym0 arg) (Baz_Sym1 arg) => Baz_Sym0 a0123456789876543210 - type instance Apply Baz_Sym0 a0123456789876543210 = Baz_ a0123456789876543210 + type instance Apply Baz_Sym0 a0123456789876543210 = Baz_Sym1 a0123456789876543210 type BarSym1 (a0123456789876543210 :: Maybe Nat) = Bar a0123456789876543210 instance SuppressUnusedWarnings BarSym0 where @@ -228,7 +228,7 @@ Singletons/AsPattern.hs:(0,0)-(0,0): Splicing declarations BarSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply BarSym0 arg) (BarSym1 arg) => BarSym0 a0123456789876543210 - type instance Apply BarSym0 a0123456789876543210 = Bar a0123456789876543210 + type instance Apply BarSym0 a0123456789876543210 = BarSym1 a0123456789876543210 type MaybePlusSym1 (a0123456789876543210 :: Maybe Nat) = MaybePlus a0123456789876543210 instance SuppressUnusedWarnings MaybePlusSym0 where @@ -238,7 +238,7 @@ Singletons/AsPattern.hs:(0,0)-(0,0): Splicing declarations MaybePlusSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply MaybePlusSym0 arg) (MaybePlusSym1 arg) => MaybePlusSym0 a0123456789876543210 - type instance Apply MaybePlusSym0 a0123456789876543210 = MaybePlus a0123456789876543210 + type instance Apply MaybePlusSym0 a0123456789876543210 = MaybePlusSym1 a0123456789876543210 type family Foo (a :: [Nat]) :: [Nat] where Foo '[] = Let0123456789876543210PSym0 Foo '[wild_0123456789876543210] = Let0123456789876543210PSym1 wild_0123456789876543210 diff --git a/tests/compile-and-dump/Singletons/BoundedDeriving.golden b/tests/compile-and-dump/Singletons/BoundedDeriving.golden index 423471ee..246adc92 100644 --- a/tests/compile-and-dump/Singletons/BoundedDeriving.golden +++ b/tests/compile-and-dump/Singletons/BoundedDeriving.golden @@ -47,7 +47,7 @@ Singletons/BoundedDeriving.hs:(0,0)-(0,0): Splicing declarations Foo3Sym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply Foo3Sym0 arg) (Foo3Sym1 arg) => Foo3Sym0 t0123456789876543210 - type instance Apply Foo3Sym0 t0123456789876543210 = Foo3 t0123456789876543210 + type instance Apply Foo3Sym0 t0123456789876543210 = Foo3Sym1 t0123456789876543210 type Foo41Sym0 = Foo41 type Foo42Sym0 = Foo42 type PairSym2 (t0123456789876543210 :: Bool) (t0123456789876543210 :: Bool) = @@ -60,7 +60,7 @@ Singletons/BoundedDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (PairSym1 t0123456789876543210) arg) (PairSym2 t0123456789876543210 arg) => PairSym1 t0123456789876543210 t0123456789876543210 - type instance Apply (PairSym1 t0123456789876543210) t0123456789876543210 = Pair t0123456789876543210 t0123456789876543210 + type instance Apply (PairSym1 t0123456789876543210) t0123456789876543210 = PairSym2 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings PairSym0 where suppressUnusedWarnings = snd (((,) PairSym0KindInference) ()) data PairSym0 :: (~>) Bool ((~>) Bool Pair) diff --git a/tests/compile-and-dump/Singletons/BoxUnBox.golden b/tests/compile-and-dump/Singletons/BoxUnBox.golden index 1628e835..22b8d4bb 100644 --- a/tests/compile-and-dump/Singletons/BoxUnBox.golden +++ b/tests/compile-and-dump/Singletons/BoxUnBox.golden @@ -18,7 +18,7 @@ Singletons/BoxUnBox.hs:(0,0)-(0,0): Splicing declarations FBoxSym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply FBoxSym0 arg) (FBoxSym1 arg) => FBoxSym0 t0123456789876543210 - type instance Apply FBoxSym0 t0123456789876543210 = FBox t0123456789876543210 + type instance Apply FBoxSym0 t0123456789876543210 = FBoxSym1 t0123456789876543210 type UnBoxSym1 (a0123456789876543210 :: Box a0123456789876543210) = UnBox a0123456789876543210 instance SuppressUnusedWarnings UnBoxSym0 where @@ -29,7 +29,7 @@ Singletons/BoxUnBox.hs:(0,0)-(0,0): Splicing declarations UnBoxSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply UnBoxSym0 arg) (UnBoxSym1 arg) => UnBoxSym0 a0123456789876543210 - type instance Apply UnBoxSym0 a0123456789876543210 = UnBox a0123456789876543210 + type instance Apply UnBoxSym0 a0123456789876543210 = UnBoxSym1 a0123456789876543210 type family UnBox (a :: Box a) :: a where UnBox (FBox a) = a sUnBox :: diff --git a/tests/compile-and-dump/Singletons/CaseExpressions.golden b/tests/compile-and-dump/Singletons/CaseExpressions.golden index 184fea3c..454df711 100644 --- a/tests/compile-and-dump/Singletons/CaseExpressions.golden +++ b/tests/compile-and-dump/Singletons/CaseExpressions.golden @@ -53,7 +53,7 @@ Singletons/CaseExpressions.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 y0123456789876543210 x0123456789876543210) arg) (Lambda_0123456789876543210Sym3 y0123456789876543210 x0123456789876543210 arg) => Lambda_0123456789876543210Sym2 y0123456789876543210 x0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 x0123456789876543210 y0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 x0123456789876543210 y0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 x0123456789876543210 y0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 x0123456789876543210 y0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 y0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -86,7 +86,7 @@ Singletons/CaseExpressions.hs:(0,0)-(0,0): Splicing declarations x0123456789876543210 arg. SameKind (Apply (Let0123456789876543210ZSym1 y0123456789876543210) arg) (Let0123456789876543210ZSym2 y0123456789876543210 arg) => Let0123456789876543210ZSym1 y0123456789876543210 x0123456789876543210 - type instance Apply (Let0123456789876543210ZSym1 y0123456789876543210) x0123456789876543210 = Let0123456789876543210Z y0123456789876543210 x0123456789876543210 + type instance Apply (Let0123456789876543210ZSym1 y0123456789876543210) x0123456789876543210 = Let0123456789876543210ZSym2 y0123456789876543210 x0123456789876543210 instance SuppressUnusedWarnings Let0123456789876543210ZSym0 where suppressUnusedWarnings = snd (((,) Let0123456789876543210ZSym0KindInference) ()) @@ -114,7 +114,7 @@ Singletons/CaseExpressions.hs:(0,0)-(0,0): Splicing declarations b0123456789876543210 arg. SameKind (Apply (Let0123456789876543210Scrutinee_0123456789876543210Sym1 a0123456789876543210) arg) (Let0123456789876543210Scrutinee_0123456789876543210Sym2 a0123456789876543210 arg) => Let0123456789876543210Scrutinee_0123456789876543210Sym1 a0123456789876543210 b0123456789876543210 - type instance Apply (Let0123456789876543210Scrutinee_0123456789876543210Sym1 a0123456789876543210) b0123456789876543210 = Let0123456789876543210Scrutinee_0123456789876543210 a0123456789876543210 b0123456789876543210 + type instance Apply (Let0123456789876543210Scrutinee_0123456789876543210Sym1 a0123456789876543210) b0123456789876543210 = Let0123456789876543210Scrutinee_0123456789876543210Sym2 a0123456789876543210 b0123456789876543210 instance SuppressUnusedWarnings Let0123456789876543210Scrutinee_0123456789876543210Sym0 where suppressUnusedWarnings = snd @@ -144,7 +144,7 @@ Singletons/CaseExpressions.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210Scrutinee_0123456789876543210Sym0KindInference :: forall d0123456789876543210 arg. SameKind (Apply Let0123456789876543210Scrutinee_0123456789876543210Sym0 arg) (Let0123456789876543210Scrutinee_0123456789876543210Sym1 arg) => Let0123456789876543210Scrutinee_0123456789876543210Sym0 d0123456789876543210 - type instance Apply Let0123456789876543210Scrutinee_0123456789876543210Sym0 d0123456789876543210 = Let0123456789876543210Scrutinee_0123456789876543210 d0123456789876543210 + type instance Apply Let0123456789876543210Scrutinee_0123456789876543210Sym0 d0123456789876543210 = Let0123456789876543210Scrutinee_0123456789876543210Sym1 d0123456789876543210 type family Let0123456789876543210Scrutinee_0123456789876543210 d where Let0123456789876543210Scrutinee_0123456789876543210 d = Apply JustSym0 d type family Case_0123456789876543210 d t where @@ -162,7 +162,7 @@ Singletons/CaseExpressions.hs:(0,0)-(0,0): Splicing declarations Foo5Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo5Sym0 arg) (Foo5Sym1 arg) => Foo5Sym0 a0123456789876543210 - type instance Apply Foo5Sym0 a0123456789876543210 = Foo5 a0123456789876543210 + type instance Apply Foo5Sym0 a0123456789876543210 = Foo5Sym1 a0123456789876543210 type Foo4Sym1 (a0123456789876543210 :: a0123456789876543210) = Foo4 a0123456789876543210 instance SuppressUnusedWarnings Foo4Sym0 where @@ -173,7 +173,7 @@ Singletons/CaseExpressions.hs:(0,0)-(0,0): Splicing declarations Foo4Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo4Sym0 arg) (Foo4Sym1 arg) => Foo4Sym0 a0123456789876543210 - type instance Apply Foo4Sym0 a0123456789876543210 = Foo4 a0123456789876543210 + type instance Apply Foo4Sym0 a0123456789876543210 = Foo4Sym1 a0123456789876543210 type Foo3Sym2 (a0123456789876543210 :: a0123456789876543210) (a0123456789876543210 :: b0123456789876543210) = Foo3 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (Foo3Sym1 a0123456789876543210) where @@ -185,7 +185,7 @@ Singletons/CaseExpressions.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Foo3Sym1 a0123456789876543210) arg) (Foo3Sym2 a0123456789876543210 arg) => Foo3Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Foo3Sym1 a0123456789876543210) a0123456789876543210 = Foo3 a0123456789876543210 a0123456789876543210 + type instance Apply (Foo3Sym1 a0123456789876543210) a0123456789876543210 = Foo3Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Foo3Sym0 where suppressUnusedWarnings = snd (((,) Foo3Sym0KindInference) ()) data Foo3Sym0 :: forall a0123456789876543210 b0123456789876543210. @@ -205,7 +205,7 @@ Singletons/CaseExpressions.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Foo2Sym1 a0123456789876543210) arg) (Foo2Sym2 a0123456789876543210 arg) => Foo2Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Foo2Sym1 a0123456789876543210) a0123456789876543210 = Foo2 a0123456789876543210 a0123456789876543210 + type instance Apply (Foo2Sym1 a0123456789876543210) a0123456789876543210 = Foo2Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Foo2Sym0 where suppressUnusedWarnings = snd (((,) Foo2Sym0KindInference) ()) data Foo2Sym0 :: forall a0123456789876543210. @@ -225,7 +225,7 @@ Singletons/CaseExpressions.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Foo1Sym1 a0123456789876543210) arg) (Foo1Sym2 a0123456789876543210 arg) => Foo1Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Foo1Sym1 a0123456789876543210) a0123456789876543210 = Foo1 a0123456789876543210 a0123456789876543210 + type instance Apply (Foo1Sym1 a0123456789876543210) a0123456789876543210 = Foo1Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Foo1Sym0 where suppressUnusedWarnings = snd (((,) Foo1Sym0KindInference) ()) data Foo1Sym0 :: forall a0123456789876543210. diff --git a/tests/compile-and-dump/Singletons/Classes.golden b/tests/compile-and-dump/Singletons/Classes.golden index a3c37dda..58450c4c 100644 --- a/tests/compile-and-dump/Singletons/Classes.golden +++ b/tests/compile-and-dump/Singletons/Classes.golden @@ -75,7 +75,7 @@ Singletons/Classes.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (FooCompareSym1 a0123456789876543210) arg) (FooCompareSym2 a0123456789876543210 arg) => FooCompareSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (FooCompareSym1 a0123456789876543210) a0123456789876543210 = FooCompare a0123456789876543210 a0123456789876543210 + type instance Apply (FooCompareSym1 a0123456789876543210) a0123456789876543210 = FooCompareSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings FooCompareSym0 where suppressUnusedWarnings = snd (((,) FooCompareSym0KindInference) ()) data FooCompareSym0 :: (~>) Foo ((~>) Foo Ordering) @@ -95,7 +95,7 @@ Singletons/Classes.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ConstSym1 a0123456789876543210) arg) (ConstSym2 a0123456789876543210 arg) => ConstSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (ConstSym1 a0123456789876543210) a0123456789876543210 = Const a0123456789876543210 a0123456789876543210 + type instance Apply (ConstSym1 a0123456789876543210) a0123456789876543210 = ConstSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings ConstSym0 where suppressUnusedWarnings = snd (((,) ConstSym0KindInference) ()) data ConstSym0 :: forall a0123456789876543210 b0123456789876543210. @@ -122,7 +122,7 @@ Singletons/Classes.hs:(0,0)-(0,0): Splicing declarations arg0123456789876543210 arg. SameKind (Apply (MycompareSym1 arg0123456789876543210) arg) (MycompareSym2 arg0123456789876543210 arg) => MycompareSym1 arg0123456789876543210 arg0123456789876543210 - type instance Apply (MycompareSym1 arg0123456789876543210) arg0123456789876543210 = Mycompare arg0123456789876543210 arg0123456789876543210 + type instance Apply (MycompareSym1 arg0123456789876543210) arg0123456789876543210 = MycompareSym2 arg0123456789876543210 arg0123456789876543210 instance SuppressUnusedWarnings MycompareSym0 where suppressUnusedWarnings = snd (((,) MycompareSym0KindInference) ()) data MycompareSym0 :: forall a0123456789876543210. @@ -143,7 +143,7 @@ Singletons/Classes.hs:(0,0)-(0,0): Splicing declarations arg0123456789876543210 arg. SameKind (Apply ((<=>@#@$$) arg0123456789876543210) arg) ((<=>@#@$$$) arg0123456789876543210 arg) => (<=>@#@$$) arg0123456789876543210 arg0123456789876543210 - type instance Apply ((<=>@#@$$) arg0123456789876543210) arg0123456789876543210 = (<=>) arg0123456789876543210 arg0123456789876543210 + type instance Apply ((<=>@#@$$) arg0123456789876543210) arg0123456789876543210 = (<=>@#@$$$) arg0123456789876543210 arg0123456789876543210 infix 4 <=>@#@$$ instance SuppressUnusedWarnings (<=>@#@$) where suppressUnusedWarnings = snd (((,) (:<=>@#@$###)) ()) @@ -168,7 +168,7 @@ Singletons/Classes.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (TFHelper_0123456789876543210Sym1 a0123456789876543210) arg) (TFHelper_0123456789876543210Sym2 a0123456789876543210 arg) => TFHelper_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (TFHelper_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = TFHelper_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (TFHelper_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = TFHelper_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings TFHelper_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) TFHelper_0123456789876543210Sym0KindInference) ()) @@ -199,7 +199,7 @@ Singletons/Classes.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) arg) (Mycompare_0123456789876543210Sym2 a0123456789876543210 arg) => Mycompare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Mycompare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Mycompare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Mycompare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Mycompare_0123456789876543210Sym0KindInference) ()) @@ -224,7 +224,7 @@ Singletons/Classes.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) arg) (Mycompare_0123456789876543210Sym2 a0123456789876543210 arg) => Mycompare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Mycompare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Mycompare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Mycompare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Mycompare_0123456789876543210Sym0KindInference) ()) @@ -249,7 +249,7 @@ Singletons/Classes.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) arg) (Mycompare_0123456789876543210Sym2 a0123456789876543210 arg) => Mycompare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Mycompare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Mycompare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Mycompare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Mycompare_0123456789876543210Sym0KindInference) ()) @@ -277,7 +277,7 @@ Singletons/Classes.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (TFHelper_0123456789876543210Sym1 a0123456789876543210) arg) (TFHelper_0123456789876543210Sym2 a0123456789876543210 arg) => TFHelper_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (TFHelper_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = TFHelper_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (TFHelper_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = TFHelper_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings TFHelper_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) TFHelper_0123456789876543210Sym0KindInference) ()) @@ -447,7 +447,7 @@ Singletons/Classes.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) arg) (Mycompare_0123456789876543210Sym2 a0123456789876543210 arg) => Mycompare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Mycompare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Mycompare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Mycompare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Mycompare_0123456789876543210Sym0KindInference) ()) @@ -474,7 +474,7 @@ Singletons/Classes.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Compare_0123456789876543210Sym1 a0123456789876543210) arg) (Compare_0123456789876543210Sym2 a0123456789876543210 arg) => Compare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Compare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Compare_0123456789876543210Sym0KindInference) ()) @@ -512,7 +512,7 @@ Singletons/Classes.hs:(0,0)-(0,0): Splicing declarations Succ'Sym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply Succ'Sym0 arg) (Succ'Sym1 arg) => Succ'Sym0 t0123456789876543210 - type instance Apply Succ'Sym0 t0123456789876543210 = Succ' t0123456789876543210 + type instance Apply Succ'Sym0 t0123456789876543210 = Succ'Sym1 t0123456789876543210 type family Mycompare_0123456789876543210 (a :: Nat') (a :: Nat') :: Ordering where Mycompare_0123456789876543210 Zero' Zero' = EQSym0 Mycompare_0123456789876543210 Zero' (Succ' _) = LTSym0 @@ -529,7 +529,7 @@ Singletons/Classes.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) arg) (Mycompare_0123456789876543210Sym2 a0123456789876543210 arg) => Mycompare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Mycompare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Mycompare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Mycompare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Mycompare_0123456789876543210Sym0KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/Classes2.golden b/tests/compile-and-dump/Singletons/Classes2.golden index 4a58381a..726fd576 100644 --- a/tests/compile-and-dump/Singletons/Classes2.golden +++ b/tests/compile-and-dump/Singletons/Classes2.golden @@ -24,7 +24,7 @@ Singletons/Classes2.hs:(0,0)-(0,0): Splicing declarations SuccFooSym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply SuccFooSym0 arg) (SuccFooSym1 arg) => SuccFooSym0 t0123456789876543210 - type instance Apply SuccFooSym0 t0123456789876543210 = SuccFoo t0123456789876543210 + type instance Apply SuccFooSym0 t0123456789876543210 = SuccFooSym1 t0123456789876543210 type family Mycompare_0123456789876543210 (a :: NatFoo) (a :: NatFoo) :: Ordering where Mycompare_0123456789876543210 ZeroFoo ZeroFoo = EQSym0 Mycompare_0123456789876543210 ZeroFoo (SuccFoo _) = LTSym0 @@ -41,7 +41,7 @@ Singletons/Classes2.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) arg) (Mycompare_0123456789876543210Sym2 a0123456789876543210 arg) => Mycompare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Mycompare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Mycompare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Mycompare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Mycompare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Mycompare_0123456789876543210Sym0KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/Contains.golden b/tests/compile-and-dump/Singletons/Contains.golden index 2638b765..3786dbbf 100644 --- a/tests/compile-and-dump/Singletons/Contains.golden +++ b/tests/compile-and-dump/Singletons/Contains.golden @@ -17,7 +17,7 @@ Singletons/Contains.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ContainsSym1 a0123456789876543210) arg) (ContainsSym2 a0123456789876543210 arg) => ContainsSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (ContainsSym1 a0123456789876543210) a0123456789876543210 = Contains a0123456789876543210 a0123456789876543210 + type instance Apply (ContainsSym1 a0123456789876543210) a0123456789876543210 = ContainsSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings ContainsSym0 where suppressUnusedWarnings = snd (((,) ContainsSym0KindInference) ()) data ContainsSym0 :: forall a0123456789876543210. diff --git a/tests/compile-and-dump/Singletons/DataValues.golden b/tests/compile-and-dump/Singletons/DataValues.golden index 67722630..e1b6c2ea 100644 --- a/tests/compile-and-dump/Singletons/DataValues.golden +++ b/tests/compile-and-dump/Singletons/DataValues.golden @@ -27,7 +27,7 @@ Singletons/DataValues.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (PairSym1 t0123456789876543210) arg) (PairSym2 t0123456789876543210 arg) => PairSym1 t0123456789876543210 t0123456789876543210 - type instance Apply (PairSym1 t0123456789876543210) t0123456789876543210 = Pair t0123456789876543210 t0123456789876543210 + type instance Apply (PairSym1 t0123456789876543210) t0123456789876543210 = PairSym2 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings PairSym0 where suppressUnusedWarnings = snd (((,) PairSym0KindInference) ()) data PairSym0 :: forall a0123456789876543210 b0123456789876543210. @@ -63,7 +63,7 @@ Singletons/DataValues.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ShowsPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ShowsPrec_0123456789876543210Sym1KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/EmptyShowDeriving.golden b/tests/compile-and-dump/Singletons/EmptyShowDeriving.golden index e350d030..f47e5042 100644 --- a/tests/compile-and-dump/Singletons/EmptyShowDeriving.golden +++ b/tests/compile-and-dump/Singletons/EmptyShowDeriving.golden @@ -21,7 +21,7 @@ Singletons/EmptyShowDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ShowsPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ShowsPrec_0123456789876543210Sym1KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/EnumDeriving.golden b/tests/compile-and-dump/Singletons/EnumDeriving.golden index b23e6d3f..762ab961 100644 --- a/tests/compile-and-dump/Singletons/EnumDeriving.golden +++ b/tests/compile-and-dump/Singletons/EnumDeriving.golden @@ -35,7 +35,7 @@ Singletons/EnumDeriving.hs:(0,0)-(0,0): Splicing declarations ToEnum_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply ToEnum_0123456789876543210Sym0 arg) (ToEnum_0123456789876543210Sym1 arg) => ToEnum_0123456789876543210Sym0 a0123456789876543210 - type instance Apply ToEnum_0123456789876543210Sym0 a0123456789876543210 = ToEnum_0123456789876543210 a0123456789876543210 + type instance Apply ToEnum_0123456789876543210Sym0 a0123456789876543210 = ToEnum_0123456789876543210Sym1 a0123456789876543210 type family FromEnum_0123456789876543210 (a :: Foo) :: GHC.Types.Nat where FromEnum_0123456789876543210 Bar = Data.Singletons.Prelude.Num.FromInteger 0 FromEnum_0123456789876543210 Baz = Data.Singletons.Prelude.Num.FromInteger 1 @@ -50,7 +50,7 @@ Singletons/EnumDeriving.hs:(0,0)-(0,0): Splicing declarations FromEnum_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply FromEnum_0123456789876543210Sym0 arg) (FromEnum_0123456789876543210Sym1 arg) => FromEnum_0123456789876543210Sym0 a0123456789876543210 - type instance Apply FromEnum_0123456789876543210Sym0 a0123456789876543210 = FromEnum_0123456789876543210 a0123456789876543210 + type instance Apply FromEnum_0123456789876543210Sym0 a0123456789876543210 = FromEnum_0123456789876543210Sym1 a0123456789876543210 instance PEnum Foo where type ToEnum a = Apply ToEnum_0123456789876543210Sym0 a type FromEnum a = Apply FromEnum_0123456789876543210Sym0 a @@ -152,7 +152,7 @@ Singletons/EnumDeriving.hs:0:0:: Splicing declarations ToEnum_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply ToEnum_0123456789876543210Sym0 arg) (ToEnum_0123456789876543210Sym1 arg) => ToEnum_0123456789876543210Sym0 a0123456789876543210 - type instance Apply ToEnum_0123456789876543210Sym0 a0123456789876543210 = ToEnum_0123456789876543210 a0123456789876543210 + type instance Apply ToEnum_0123456789876543210Sym0 a0123456789876543210 = ToEnum_0123456789876543210Sym1 a0123456789876543210 type family FromEnum_0123456789876543210 (a :: Quux) :: GHC.Types.Nat where FromEnum_0123456789876543210 'Q1 = Data.Singletons.Prelude.Num.FromInteger 0 FromEnum_0123456789876543210 'Q2 = Data.Singletons.Prelude.Num.FromInteger 1 @@ -166,7 +166,7 @@ Singletons/EnumDeriving.hs:0:0:: Splicing declarations FromEnum_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply FromEnum_0123456789876543210Sym0 arg) (FromEnum_0123456789876543210Sym1 arg) => FromEnum_0123456789876543210Sym0 a0123456789876543210 - type instance Apply FromEnum_0123456789876543210Sym0 a0123456789876543210 = FromEnum_0123456789876543210 a0123456789876543210 + type instance Apply FromEnum_0123456789876543210Sym0 a0123456789876543210 = FromEnum_0123456789876543210Sym1 a0123456789876543210 instance PEnum Quux where type ToEnum a = Apply ToEnum_0123456789876543210Sym0 a type FromEnum a = Apply FromEnum_0123456789876543210Sym0 a diff --git a/tests/compile-and-dump/Singletons/Error.golden b/tests/compile-and-dump/Singletons/Error.golden index 4d18eca5..62d57ec5 100644 --- a/tests/compile-and-dump/Singletons/Error.golden +++ b/tests/compile-and-dump/Singletons/Error.golden @@ -17,7 +17,7 @@ Singletons/Error.hs:(0,0)-(0,0): Splicing declarations HeadSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply HeadSym0 arg) (HeadSym1 arg) => HeadSym0 a0123456789876543210 - type instance Apply HeadSym0 a0123456789876543210 = Head a0123456789876543210 + type instance Apply HeadSym0 a0123456789876543210 = HeadSym1 a0123456789876543210 type family Head (a :: [a]) :: a where Head ('(:) a _) = a Head '[] = Apply ErrorSym0 "Data.Singletons.List.head: empty list" diff --git a/tests/compile-and-dump/Singletons/Fixity.golden b/tests/compile-and-dump/Singletons/Fixity.golden index 1cadf4a8..53e4b904 100644 --- a/tests/compile-and-dump/Singletons/Fixity.golden +++ b/tests/compile-and-dump/Singletons/Fixity.golden @@ -27,7 +27,7 @@ Singletons/Fixity.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply ((====@#@$$) a0123456789876543210) arg) ((====@#@$$$) a0123456789876543210 arg) => (====@#@$$) a0123456789876543210 a0123456789876543210 - type instance Apply ((====@#@$$) a0123456789876543210) a0123456789876543210 = (====) a0123456789876543210 a0123456789876543210 + type instance Apply ((====@#@$$) a0123456789876543210) a0123456789876543210 = (====@#@$$$) a0123456789876543210 a0123456789876543210 infix 4 ====@#@$$ instance SuppressUnusedWarnings (====@#@$) where suppressUnusedWarnings = snd (((,) (:====@#@$###)) ()) @@ -52,7 +52,7 @@ Singletons/Fixity.hs:(0,0)-(0,0): Splicing declarations arg0123456789876543210 arg. SameKind (Apply ((<=>@#@$$) arg0123456789876543210) arg) ((<=>@#@$$$) arg0123456789876543210 arg) => (<=>@#@$$) arg0123456789876543210 arg0123456789876543210 - type instance Apply ((<=>@#@$$) arg0123456789876543210) arg0123456789876543210 = (<=>) arg0123456789876543210 arg0123456789876543210 + type instance Apply ((<=>@#@$$) arg0123456789876543210) arg0123456789876543210 = (<=>@#@$$$) arg0123456789876543210 arg0123456789876543210 infix 4 <=>@#@$$ instance SuppressUnusedWarnings (<=>@#@$) where suppressUnusedWarnings = snd (((,) (:<=>@#@$###)) ()) diff --git a/tests/compile-and-dump/Singletons/FunDeps.golden b/tests/compile-and-dump/Singletons/FunDeps.golden index 58e74f06..794e6589 100644 --- a/tests/compile-and-dump/Singletons/FunDeps.golden +++ b/tests/compile-and-dump/Singletons/FunDeps.golden @@ -32,7 +32,7 @@ Singletons/FunDeps.hs:(0,0)-(0,0): Splicing declarations MethSym0KindInference :: forall arg0123456789876543210 arg. SameKind (Apply MethSym0 arg) (MethSym1 arg) => MethSym0 arg0123456789876543210 - type instance Apply MethSym0 arg0123456789876543210 = Meth arg0123456789876543210 + type instance Apply MethSym0 arg0123456789876543210 = MethSym1 arg0123456789876543210 type L2rSym1 (arg0123456789876543210 :: a0123456789876543210) = L2r arg0123456789876543210 instance SuppressUnusedWarnings L2rSym0 where @@ -43,7 +43,7 @@ Singletons/FunDeps.hs:(0,0)-(0,0): Splicing declarations L2rSym0KindInference :: forall arg0123456789876543210 arg. SameKind (Apply L2rSym0 arg) (L2rSym1 arg) => L2rSym0 arg0123456789876543210 - type instance Apply L2rSym0 arg0123456789876543210 = L2r arg0123456789876543210 + type instance Apply L2rSym0 arg0123456789876543210 = L2rSym1 arg0123456789876543210 class PFD a b | a -> b where type Meth (arg :: a) :: a type L2r (arg :: a) :: b @@ -59,7 +59,7 @@ Singletons/FunDeps.hs:(0,0)-(0,0): Splicing declarations Meth_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Meth_0123456789876543210Sym0 arg) (Meth_0123456789876543210Sym1 arg) => Meth_0123456789876543210Sym0 a0123456789876543210 - type instance Apply Meth_0123456789876543210Sym0 a0123456789876543210 = Meth_0123456789876543210 a0123456789876543210 + type instance Apply Meth_0123456789876543210Sym0 a0123456789876543210 = Meth_0123456789876543210Sym1 a0123456789876543210 type family L2r_0123456789876543210 (a :: Bool) :: Nat where L2r_0123456789876543210 'False = FromInteger 0 L2r_0123456789876543210 'True = FromInteger 1 @@ -73,7 +73,7 @@ Singletons/FunDeps.hs:(0,0)-(0,0): Splicing declarations L2r_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply L2r_0123456789876543210Sym0 arg) (L2r_0123456789876543210Sym1 arg) => L2r_0123456789876543210Sym0 a0123456789876543210 - type instance Apply L2r_0123456789876543210Sym0 a0123456789876543210 = L2r_0123456789876543210 a0123456789876543210 + type instance Apply L2r_0123456789876543210Sym0 a0123456789876543210 = L2r_0123456789876543210Sym1 a0123456789876543210 instance PFD Bool Nat where type Meth a = Apply Meth_0123456789876543210Sym0 a type L2r a = Apply L2r_0123456789876543210Sym0 a diff --git a/tests/compile-and-dump/Singletons/FunctorLikeDeriving.golden b/tests/compile-and-dump/Singletons/FunctorLikeDeriving.golden index 946438d6..023b7806 100644 --- a/tests/compile-and-dump/Singletons/FunctorLikeDeriving.golden +++ b/tests/compile-and-dump/Singletons/FunctorLikeDeriving.golden @@ -21,7 +21,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (MkT1Sym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) arg) (MkT1Sym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 arg) => MkT1Sym3 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (MkT1Sym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) t0123456789876543210 = MkT1 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 + type instance Apply (MkT1Sym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) t0123456789876543210 = MkT1Sym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (MkT1Sym2 t0123456789876543210 t0123456789876543210) where suppressUnusedWarnings = snd (((,) MkT1Sym2KindInference) ()) data MkT1Sym2 (t0123456789876543210 :: x0123456789876543210) (t0123456789876543210 :: a0123456789876543210) :: (~>) (Maybe a0123456789876543210) ((~>) (Maybe (Maybe a0123456789876543210)) (T x0123456789876543210 a0123456789876543210)) @@ -61,7 +61,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations MkT2Sym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply MkT2Sym0 arg) (MkT2Sym1 arg) => MkT2Sym0 t0123456789876543210 - type instance Apply MkT2Sym0 t0123456789876543210 = MkT2 t0123456789876543210 + type instance Apply MkT2Sym0 t0123456789876543210 = MkT2Sym1 t0123456789876543210 type family Lambda_0123456789876543210 _f_0123456789876543210 a_0123456789876543210 a_0123456789876543210 a_0123456789876543210 a_0123456789876543210 t where Lambda_0123456789876543210 _f_0123456789876543210 a_0123456789876543210 a_0123456789876543210 a_0123456789876543210 a_0123456789876543210 n_0123456789876543210 = n_0123456789876543210 type Lambda_0123456789876543210Sym6 _f_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 = @@ -79,7 +79,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym5 _f_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) arg) (Lambda_0123456789876543210Sym6 _f_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 arg) => Lambda_0123456789876543210Sym5 _f_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym5 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym5 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym6 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym4 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym4KindInference) ()) @@ -149,7 +149,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 _f_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) arg) (Lambda_0123456789876543210Sym3 _f_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 arg) => Lambda_0123456789876543210Sym2 _f_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 _f_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -184,7 +184,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Fmap_0123456789876543210Sym1 a0123456789876543210) arg) (Fmap_0123456789876543210Sym2 a0123456789876543210 arg) => Fmap_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Fmap_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Fmap_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Fmap_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Fmap_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Fmap_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Fmap_0123456789876543210Sym0KindInference) ()) @@ -214,7 +214,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym5 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) arg) (Lambda_0123456789876543210Sym6 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 arg) => Lambda_0123456789876543210Sym5 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym5 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym5 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym6 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym4 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym4KindInference) ()) @@ -287,7 +287,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym5 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) arg) (Lambda_0123456789876543210Sym6 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 arg) => Lambda_0123456789876543210Sym5 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym5 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym5 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym6 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym4 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym4KindInference) ()) @@ -357,7 +357,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) arg) (Lambda_0123456789876543210Sym3 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 arg) => Lambda_0123456789876543210Sym2 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 _z_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -393,7 +393,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (TFHelper_0123456789876543210Sym1 a0123456789876543210) arg) (TFHelper_0123456789876543210Sym2 a0123456789876543210 arg) => TFHelper_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (TFHelper_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = TFHelper_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (TFHelper_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = TFHelper_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings TFHelper_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) TFHelper_0123456789876543210Sym0KindInference) ()) @@ -426,7 +426,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym5 _f_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) arg) (Lambda_0123456789876543210Sym6 _f_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 arg) => Lambda_0123456789876543210Sym5 _f_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym5 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym5 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym6 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym4 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym4KindInference) ()) @@ -496,7 +496,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 _f_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) arg) (Lambda_0123456789876543210Sym3 _f_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 arg) => Lambda_0123456789876543210Sym2 _f_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 a_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 _f_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -531,7 +531,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (FoldMap_0123456789876543210Sym1 a0123456789876543210) arg) (FoldMap_0123456789876543210Sym2 a0123456789876543210 arg) => FoldMap_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (FoldMap_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = FoldMap_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (FoldMap_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = FoldMap_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings FoldMap_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) FoldMap_0123456789876543210Sym0KindInference) ()) @@ -563,7 +563,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym7 _f_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210) arg) (Lambda_0123456789876543210Sym8 _f_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 arg) => Lambda_0123456789876543210Sym7 _f_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym7 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym7 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym8 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym6 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym6KindInference) ()) @@ -667,7 +667,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym7 _f_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210) arg) (Lambda_0123456789876543210Sym8 _f_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 arg) => Lambda_0123456789876543210Sym7 _f_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym7 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym7 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym8 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym6 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym6KindInference) ()) @@ -773,7 +773,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym9 n1_01234567898765432100123456789876543210 n2_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210) arg) (Lambda_0123456789876543210Sym10 n1_01234567898765432100123456789876543210 n2_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 arg) => Lambda_0123456789876543210Sym9 n1_01234567898765432100123456789876543210 n2_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym9 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 n2_01234567898765432100123456789876543210 n1_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 n2_01234567898765432100123456789876543210 n1_01234567898765432100123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym9 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 n2_01234567898765432100123456789876543210 n1_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym10 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 n2_01234567898765432100123456789876543210 n1_01234567898765432100123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym8 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 n2_01234567898765432100123456789876543210 n1_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym8KindInference) ()) @@ -910,7 +910,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym7 _f_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210) arg) (Lambda_0123456789876543210Sym8 _f_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 arg) => Lambda_0123456789876543210Sym7 _f_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym7 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym7 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym8 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym6 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym6KindInference) ()) @@ -1011,7 +1011,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym4 _f_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210) arg) (Lambda_0123456789876543210Sym5 _f_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 arg) => Lambda_0123456789876543210Sym4 _f_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym4 t0123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 t0123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym4 t0123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym5 t0123456789876543210 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym3 a_01234567898765432100123456789876543210 _z_01234567898765432100123456789876543210 _f_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym3KindInference) ()) @@ -1070,7 +1070,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Foldr_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (Foldr_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => Foldr_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (Foldr_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = Foldr_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Foldr_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = Foldr_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (Foldr_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) Foldr_0123456789876543210Sym1KindInference) ()) @@ -1112,7 +1112,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Traverse_0123456789876543210Sym1 a0123456789876543210) arg) (Traverse_0123456789876543210Sym2 a0123456789876543210 arg) => Traverse_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Traverse_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Traverse_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Traverse_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Traverse_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Traverse_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Traverse_0123456789876543210Sym0KindInference) ()) @@ -1142,7 +1142,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Fmap_0123456789876543210Sym1 a0123456789876543210) arg) (Fmap_0123456789876543210Sym2 a0123456789876543210 arg) => Fmap_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Fmap_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Fmap_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Fmap_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Fmap_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Fmap_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Fmap_0123456789876543210Sym0KindInference) ()) @@ -1169,7 +1169,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (TFHelper_0123456789876543210Sym1 a0123456789876543210) arg) (TFHelper_0123456789876543210Sym2 a0123456789876543210 arg) => TFHelper_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (TFHelper_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = TFHelper_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (TFHelper_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = TFHelper_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings TFHelper_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) TFHelper_0123456789876543210Sym0KindInference) ()) @@ -1197,7 +1197,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (FoldMap_0123456789876543210Sym1 a0123456789876543210) arg) (FoldMap_0123456789876543210Sym2 a0123456789876543210 arg) => FoldMap_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (FoldMap_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = FoldMap_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (FoldMap_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = FoldMap_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings FoldMap_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) FoldMap_0123456789876543210Sym0KindInference) ()) @@ -1225,7 +1225,7 @@ Singletons/FunctorLikeDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Traverse_0123456789876543210Sym1 a0123456789876543210) arg) (Traverse_0123456789876543210Sym2 a0123456789876543210 arg) => Traverse_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Traverse_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Traverse_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Traverse_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Traverse_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Traverse_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Traverse_0123456789876543210Sym0KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/HigherOrder.golden b/tests/compile-and-dump/Singletons/HigherOrder.golden index 7341f34f..9d1de65f 100644 --- a/tests/compile-and-dump/Singletons/HigherOrder.golden +++ b/tests/compile-and-dump/Singletons/HigherOrder.golden @@ -50,7 +50,7 @@ Singletons/HigherOrder.hs:(0,0)-(0,0): Splicing declarations LeftSym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply LeftSym0 arg) (LeftSym1 arg) => LeftSym0 t0123456789876543210 - type instance Apply LeftSym0 t0123456789876543210 = Left t0123456789876543210 + type instance Apply LeftSym0 t0123456789876543210 = LeftSym1 t0123456789876543210 type RightSym1 (t0123456789876543210 :: b0123456789876543210) = Right t0123456789876543210 instance SuppressUnusedWarnings RightSym0 where @@ -61,7 +61,7 @@ Singletons/HigherOrder.hs:(0,0)-(0,0): Splicing declarations RightSym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply RightSym0 arg) (RightSym1 arg) => RightSym0 t0123456789876543210 - type instance Apply RightSym0 t0123456789876543210 = Right t0123456789876543210 + type instance Apply RightSym0 t0123456789876543210 = RightSym1 t0123456789876543210 type family Case_0123456789876543210 n b a_0123456789876543210 a_0123456789876543210 t where Case_0123456789876543210 n b a_0123456789876543210 a_0123456789876543210 'True = Apply SuccSym0 (Apply SuccSym0 n) Case_0123456789876543210 n b a_0123456789876543210 a_0123456789876543210 'False = n @@ -80,7 +80,7 @@ Singletons/HigherOrder.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym3 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210) arg) (Lambda_0123456789876543210Sym4 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 arg) => Lambda_0123456789876543210Sym3 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym3 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym3 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym4 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym2 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym2KindInference) ()) @@ -129,7 +129,7 @@ Singletons/HigherOrder.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym3 ns0123456789876543210 bs0123456789876543210 t0123456789876543210) arg) (Lambda_0123456789876543210Sym4 ns0123456789876543210 bs0123456789876543210 t0123456789876543210 arg) => Lambda_0123456789876543210Sym3 ns0123456789876543210 bs0123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym3 t0123456789876543210 bs0123456789876543210 ns0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 t0123456789876543210 bs0123456789876543210 ns0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym3 t0123456789876543210 bs0123456789876543210 ns0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym4 t0123456789876543210 bs0123456789876543210 ns0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym2 bs0123456789876543210 ns0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym2KindInference) ()) @@ -170,7 +170,7 @@ Singletons/HigherOrder.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (EtadSym1 a0123456789876543210) arg) (EtadSym2 a0123456789876543210 arg) => EtadSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (EtadSym1 a0123456789876543210) a0123456789876543210 = Etad a0123456789876543210 a0123456789876543210 + type instance Apply (EtadSym1 a0123456789876543210) a0123456789876543210 = EtadSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings EtadSym0 where suppressUnusedWarnings = snd (((,) EtadSym0KindInference) ()) data EtadSym0 :: (~>) [Nat] ((~>) [Bool] [Nat]) @@ -189,7 +189,7 @@ Singletons/HigherOrder.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (SplungeSym1 a0123456789876543210) arg) (SplungeSym2 a0123456789876543210 arg) => SplungeSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (SplungeSym1 a0123456789876543210) a0123456789876543210 = Splunge a0123456789876543210 a0123456789876543210 + type instance Apply (SplungeSym1 a0123456789876543210) a0123456789876543210 = SplungeSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings SplungeSym0 where suppressUnusedWarnings = snd (((,) SplungeSym0KindInference) ()) data SplungeSym0 :: (~>) [Nat] ((~>) [Bool] [Nat]) @@ -209,7 +209,7 @@ Singletons/HigherOrder.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (FooSym2 a0123456789876543210 a0123456789876543210) arg) (FooSym3 a0123456789876543210 a0123456789876543210 arg) => FooSym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (FooSym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = Foo a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (FooSym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = FooSym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (FooSym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) FooSym1KindInference) ()) data FooSym1 (a0123456789876543210 :: (~>) ((~>) a0123456789876543210 b0123456789876543210) ((~>) a0123456789876543210 b0123456789876543210)) :: (~>) ((~>) a0123456789876543210 b0123456789876543210) ((~>) a0123456789876543210 b0123456789876543210) @@ -239,7 +239,7 @@ Singletons/HigherOrder.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ZipWithSym2 a0123456789876543210 a0123456789876543210) arg) (ZipWithSym3 a0123456789876543210 a0123456789876543210 arg) => ZipWithSym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ZipWithSym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ZipWith a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ZipWithSym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ZipWithSym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ZipWithSym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ZipWithSym1KindInference) ()) data ZipWithSym1 (a0123456789876543210 :: (~>) a0123456789876543210 ((~>) b0123456789876543210 c0123456789876543210)) :: (~>) [a0123456789876543210] ((~>) [b0123456789876543210] [c0123456789876543210]) @@ -270,7 +270,7 @@ Singletons/HigherOrder.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (LiftMaybeSym1 a0123456789876543210) arg) (LiftMaybeSym2 a0123456789876543210 arg) => LiftMaybeSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (LiftMaybeSym1 a0123456789876543210) a0123456789876543210 = LiftMaybe a0123456789876543210 a0123456789876543210 + type instance Apply (LiftMaybeSym1 a0123456789876543210) a0123456789876543210 = LiftMaybeSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings LiftMaybeSym0 where suppressUnusedWarnings = snd (((,) LiftMaybeSym0KindInference) ()) data LiftMaybeSym0 :: forall a0123456789876543210 @@ -291,7 +291,7 @@ Singletons/HigherOrder.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (MapSym1 a0123456789876543210) arg) (MapSym2 a0123456789876543210 arg) => MapSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (MapSym1 a0123456789876543210) a0123456789876543210 = Map a0123456789876543210 a0123456789876543210 + type instance Apply (MapSym1 a0123456789876543210) a0123456789876543210 = MapSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings MapSym0 where suppressUnusedWarnings = snd (((,) MapSym0KindInference) ()) data MapSym0 :: forall a0123456789876543210 b0123456789876543210. diff --git a/tests/compile-and-dump/Singletons/LambdaCase.golden b/tests/compile-and-dump/Singletons/LambdaCase.golden index 85d9ef92..8d1148b2 100644 --- a/tests/compile-and-dump/Singletons/LambdaCase.golden +++ b/tests/compile-and-dump/Singletons/LambdaCase.golden @@ -45,7 +45,7 @@ Singletons/LambdaCase.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 a0123456789876543210 b0123456789876543210) arg) (Lambda_0123456789876543210Sym3 a0123456789876543210 b0123456789876543210 arg) => Lambda_0123456789876543210Sym2 a0123456789876543210 b0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 b0123456789876543210 a0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 b0123456789876543210 a0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 b0123456789876543210 a0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 b0123456789876543210 a0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -81,7 +81,7 @@ Singletons/LambdaCase.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym1 d0123456789876543210) arg) (Lambda_0123456789876543210Sym2 d0123456789876543210 arg) => Lambda_0123456789876543210Sym1 d0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym1 d0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 d0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym1 d0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym2 d0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings Lambda_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym0KindInference) ()) @@ -108,7 +108,7 @@ Singletons/LambdaCase.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 d0123456789876543210 x0123456789876543210) arg) (Lambda_0123456789876543210Sym3 d0123456789876543210 x0123456789876543210 arg) => Lambda_0123456789876543210Sym2 d0123456789876543210 x0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 x0123456789876543210 d0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 x0123456789876543210 d0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 x0123456789876543210 d0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 x0123456789876543210 d0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 d0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -139,7 +139,7 @@ Singletons/LambdaCase.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Foo3Sym1 a0123456789876543210) arg) (Foo3Sym2 a0123456789876543210 arg) => Foo3Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Foo3Sym1 a0123456789876543210) a0123456789876543210 = Foo3 a0123456789876543210 a0123456789876543210 + type instance Apply (Foo3Sym1 a0123456789876543210) a0123456789876543210 = Foo3Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Foo3Sym0 where suppressUnusedWarnings = snd (((,) Foo3Sym0KindInference) ()) data Foo3Sym0 :: forall a0123456789876543210 b0123456789876543210. @@ -159,7 +159,7 @@ Singletons/LambdaCase.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Foo2Sym1 a0123456789876543210) arg) (Foo2Sym2 a0123456789876543210 arg) => Foo2Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Foo2Sym1 a0123456789876543210) a0123456789876543210 = Foo2 a0123456789876543210 a0123456789876543210 + type instance Apply (Foo2Sym1 a0123456789876543210) a0123456789876543210 = Foo2Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Foo2Sym0 where suppressUnusedWarnings = snd (((,) Foo2Sym0KindInference) ()) data Foo2Sym0 :: forall a0123456789876543210. @@ -179,7 +179,7 @@ Singletons/LambdaCase.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Foo1Sym1 a0123456789876543210) arg) (Foo1Sym2 a0123456789876543210 arg) => Foo1Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Foo1Sym1 a0123456789876543210) a0123456789876543210 = Foo1 a0123456789876543210 a0123456789876543210 + type instance Apply (Foo1Sym1 a0123456789876543210) a0123456789876543210 = Foo1Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Foo1Sym0 where suppressUnusedWarnings = snd (((,) Foo1Sym0KindInference) ()) data Foo1Sym0 :: forall a0123456789876543210. diff --git a/tests/compile-and-dump/Singletons/Lambdas.golden b/tests/compile-and-dump/Singletons/Lambdas.golden index 66aa6865..43e9b9f5 100644 --- a/tests/compile-and-dump/Singletons/Lambdas.golden +++ b/tests/compile-and-dump/Singletons/Lambdas.golden @@ -51,7 +51,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (FooSym1 t0123456789876543210) arg) (FooSym2 t0123456789876543210 arg) => FooSym1 t0123456789876543210 t0123456789876543210 - type instance Apply (FooSym1 t0123456789876543210) t0123456789876543210 = Foo t0123456789876543210 t0123456789876543210 + type instance Apply (FooSym1 t0123456789876543210) t0123456789876543210 = FooSym2 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings FooSym0 where suppressUnusedWarnings = snd (((,) FooSym0KindInference) ()) data FooSym0 :: forall a0123456789876543210 b0123456789876543210. @@ -76,7 +76,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym1 x0123456789876543210) arg) (Lambda_0123456789876543210Sym2 x0123456789876543210 arg) => Lambda_0123456789876543210Sym1 x0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym1 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 x0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym1 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym2 x0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings Lambda_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym0KindInference) ()) @@ -102,7 +102,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 x0123456789876543210 y0123456789876543210) arg) (Lambda_0123456789876543210Sym3 x0123456789876543210 y0123456789876543210 arg) => Lambda_0123456789876543210Sym2 x0123456789876543210 y0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 y0123456789876543210 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 y0123456789876543210 x0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 y0123456789876543210 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 y0123456789876543210 x0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 x0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -139,7 +139,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym3 x0123456789876543210 a0123456789876543210 b0123456789876543210) arg) (Lambda_0123456789876543210Sym4 x0123456789876543210 a0123456789876543210 b0123456789876543210 arg) => Lambda_0123456789876543210Sym3 x0123456789876543210 a0123456789876543210 b0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym3 b0123456789876543210 a0123456789876543210 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 b0123456789876543210 a0123456789876543210 x0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym3 b0123456789876543210 a0123456789876543210 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym4 b0123456789876543210 a0123456789876543210 x0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym2 a0123456789876543210 x0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym2KindInference) ()) @@ -184,7 +184,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 a0123456789876543210 b0123456789876543210) arg) (Lambda_0123456789876543210Sym3 a0123456789876543210 b0123456789876543210 arg) => Lambda_0123456789876543210Sym2 a0123456789876543210 b0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 b0123456789876543210 a0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 b0123456789876543210 a0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 b0123456789876543210 a0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 b0123456789876543210 a0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -218,7 +218,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 x0123456789876543210 y0123456789876543210) arg) (Lambda_0123456789876543210Sym3 x0123456789876543210 y0123456789876543210 arg) => Lambda_0123456789876543210Sym2 x0123456789876543210 y0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 y0123456789876543210 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 y0123456789876543210 x0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 y0123456789876543210 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 y0123456789876543210 x0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 x0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -257,7 +257,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym4 x0123456789876543210 y0123456789876543210 z0123456789876543210 t0123456789876543210) arg) (Lambda_0123456789876543210Sym5 x0123456789876543210 y0123456789876543210 z0123456789876543210 t0123456789876543210 arg) => Lambda_0123456789876543210Sym4 x0123456789876543210 y0123456789876543210 z0123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym4 t0123456789876543210 z0123456789876543210 y0123456789876543210 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 t0123456789876543210 z0123456789876543210 y0123456789876543210 x0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym4 t0123456789876543210 z0123456789876543210 y0123456789876543210 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym5 t0123456789876543210 z0123456789876543210 y0123456789876543210 x0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym3 z0123456789876543210 y0123456789876543210 x0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym3KindInference) ()) @@ -313,7 +313,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym1 x0123456789876543210) arg) (Lambda_0123456789876543210Sym2 x0123456789876543210 arg) => Lambda_0123456789876543210Sym1 x0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym1 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 x0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym1 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym2 x0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings Lambda_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym0KindInference) ()) @@ -339,7 +339,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 x0123456789876543210 y0123456789876543210) arg) (Lambda_0123456789876543210Sym3 x0123456789876543210 y0123456789876543210 arg) => Lambda_0123456789876543210Sym2 x0123456789876543210 y0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 y0123456789876543210 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 y0123456789876543210 x0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 y0123456789876543210 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 y0123456789876543210 x0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 x0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -375,7 +375,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 x0123456789876543210 a_01234567898765432100123456789876543210) arg) (Lambda_0123456789876543210Sym3 x0123456789876543210 a_01234567898765432100123456789876543210 arg) => Lambda_0123456789876543210Sym2 x0123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 a_01234567898765432100123456789876543210 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 a_01234567898765432100123456789876543210 x0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 a_01234567898765432100123456789876543210 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 a_01234567898765432100123456789876543210 x0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 x0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -410,7 +410,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym3 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210) arg) (Lambda_0123456789876543210Sym4 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 arg) => Lambda_0123456789876543210Sym3 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym3 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym3 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym4 t0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym2 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym2KindInference) ()) @@ -451,7 +451,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations Foo8Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo8Sym0 arg) (Foo8Sym1 arg) => Foo8Sym0 a0123456789876543210 - type instance Apply Foo8Sym0 a0123456789876543210 = Foo8 a0123456789876543210 + type instance Apply Foo8Sym0 a0123456789876543210 = Foo8Sym1 a0123456789876543210 type Foo7Sym2 (a0123456789876543210 :: a0123456789876543210) (a0123456789876543210 :: b0123456789876543210) = Foo7 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (Foo7Sym1 a0123456789876543210) where @@ -463,7 +463,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Foo7Sym1 a0123456789876543210) arg) (Foo7Sym2 a0123456789876543210 arg) => Foo7Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Foo7Sym1 a0123456789876543210) a0123456789876543210 = Foo7 a0123456789876543210 a0123456789876543210 + type instance Apply (Foo7Sym1 a0123456789876543210) a0123456789876543210 = Foo7Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Foo7Sym0 where suppressUnusedWarnings = snd (((,) Foo7Sym0KindInference) ()) data Foo7Sym0 :: forall a0123456789876543210 b0123456789876543210. @@ -484,7 +484,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Foo6Sym1 a0123456789876543210) arg) (Foo6Sym2 a0123456789876543210 arg) => Foo6Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Foo6Sym1 a0123456789876543210) a0123456789876543210 = Foo6 a0123456789876543210 a0123456789876543210 + type instance Apply (Foo6Sym1 a0123456789876543210) a0123456789876543210 = Foo6Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Foo6Sym0 where suppressUnusedWarnings = snd (((,) Foo6Sym0KindInference) ()) data Foo6Sym0 :: forall a0123456789876543210 b0123456789876543210. @@ -505,7 +505,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Foo5Sym1 a0123456789876543210) arg) (Foo5Sym2 a0123456789876543210 arg) => Foo5Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Foo5Sym1 a0123456789876543210) a0123456789876543210 = Foo5 a0123456789876543210 a0123456789876543210 + type instance Apply (Foo5Sym1 a0123456789876543210) a0123456789876543210 = Foo5Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Foo5Sym0 where suppressUnusedWarnings = snd (((,) Foo5Sym0KindInference) ()) data Foo5Sym0 :: forall a0123456789876543210 b0123456789876543210. @@ -527,7 +527,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Foo4Sym2 a0123456789876543210 a0123456789876543210) arg) (Foo4Sym3 a0123456789876543210 a0123456789876543210 arg) => Foo4Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (Foo4Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = Foo4 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Foo4Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = Foo4Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (Foo4Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) Foo4Sym1KindInference) ()) data Foo4Sym1 (a0123456789876543210 :: a0123456789876543210) :: forall b0123456789876543210 @@ -560,7 +560,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations Foo3Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo3Sym0 arg) (Foo3Sym1 arg) => Foo3Sym0 a0123456789876543210 - type instance Apply Foo3Sym0 a0123456789876543210 = Foo3 a0123456789876543210 + type instance Apply Foo3Sym0 a0123456789876543210 = Foo3Sym1 a0123456789876543210 type Foo2Sym2 (a0123456789876543210 :: a0123456789876543210) (a0123456789876543210 :: b0123456789876543210) = Foo2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (Foo2Sym1 a0123456789876543210) where @@ -572,7 +572,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Foo2Sym1 a0123456789876543210) arg) (Foo2Sym2 a0123456789876543210 arg) => Foo2Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Foo2Sym1 a0123456789876543210) a0123456789876543210 = Foo2 a0123456789876543210 a0123456789876543210 + type instance Apply (Foo2Sym1 a0123456789876543210) a0123456789876543210 = Foo2Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Foo2Sym0 where suppressUnusedWarnings = snd (((,) Foo2Sym0KindInference) ()) data Foo2Sym0 :: forall a0123456789876543210 b0123456789876543210. @@ -593,7 +593,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Foo1Sym1 a0123456789876543210) arg) (Foo1Sym2 a0123456789876543210 arg) => Foo1Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Foo1Sym1 a0123456789876543210) a0123456789876543210 = Foo1 a0123456789876543210 a0123456789876543210 + type instance Apply (Foo1Sym1 a0123456789876543210) a0123456789876543210 = Foo1Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Foo1Sym0 where suppressUnusedWarnings = snd (((,) Foo1Sym0KindInference) ()) data Foo1Sym0 :: forall a0123456789876543210 b0123456789876543210. @@ -614,7 +614,7 @@ Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Foo0Sym1 a0123456789876543210) arg) (Foo0Sym2 a0123456789876543210 arg) => Foo0Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Foo0Sym1 a0123456789876543210) a0123456789876543210 = Foo0 a0123456789876543210 a0123456789876543210 + type instance Apply (Foo0Sym1 a0123456789876543210) a0123456789876543210 = Foo0Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Foo0Sym0 where suppressUnusedWarnings = snd (((,) Foo0Sym0KindInference) ()) data Foo0Sym0 :: forall a0123456789876543210 b0123456789876543210. diff --git a/tests/compile-and-dump/Singletons/LambdasComprehensive.golden b/tests/compile-and-dump/Singletons/LambdasComprehensive.golden index 96d8c708..80b1a04e 100644 --- a/tests/compile-and-dump/Singletons/LambdasComprehensive.golden +++ b/tests/compile-and-dump/Singletons/LambdasComprehensive.golden @@ -24,7 +24,7 @@ Singletons/LambdasComprehensive.hs:(0,0)-(0,0): Splicing declarations Lambda_0123456789876543210Sym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply Lambda_0123456789876543210Sym0 arg) (Lambda_0123456789876543210Sym1 arg) => Lambda_0123456789876543210Sym0 t0123456789876543210 - type instance Apply Lambda_0123456789876543210Sym0 t0123456789876543210 = Lambda_0123456789876543210 t0123456789876543210 + type instance Apply Lambda_0123456789876543210Sym0 t0123456789876543210 = Lambda_0123456789876543210Sym1 t0123456789876543210 type BarSym0 = Bar type FooSym0 = Foo type family Bar :: [Nat] where diff --git a/tests/compile-and-dump/Singletons/LetStatements.golden b/tests/compile-and-dump/Singletons/LetStatements.golden index 5eec753e..f22f8ae3 100644 --- a/tests/compile-and-dump/Singletons/LetStatements.golden +++ b/tests/compile-and-dump/Singletons/LetStatements.golden @@ -205,7 +205,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210ZSym0KindInference :: forall x0123456789876543210 arg. SameKind (Apply Let0123456789876543210ZSym0 arg) (Let0123456789876543210ZSym1 arg) => Let0123456789876543210ZSym0 x0123456789876543210 - type instance Apply Let0123456789876543210ZSym0 x0123456789876543210 = Let0123456789876543210Z x0123456789876543210 + type instance Apply Let0123456789876543210ZSym0 x0123456789876543210 = Let0123456789876543210ZSym1 x0123456789876543210 type Let0123456789876543210YSym1 x0123456789876543210 = Let0123456789876543210Y x0123456789876543210 instance SuppressUnusedWarnings Let0123456789876543210YSym0 where @@ -216,7 +216,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210YSym0KindInference :: forall x0123456789876543210 arg. SameKind (Apply Let0123456789876543210YSym0 arg) (Let0123456789876543210YSym1 arg) => Let0123456789876543210YSym0 x0123456789876543210 - type instance Apply Let0123456789876543210YSym0 x0123456789876543210 = Let0123456789876543210Y x0123456789876543210 + type instance Apply Let0123456789876543210YSym0 x0123456789876543210 = Let0123456789876543210YSym1 x0123456789876543210 type Let0123456789876543210X_0123456789876543210Sym1 x0123456789876543210 = Let0123456789876543210X_0123456789876543210 x0123456789876543210 instance SuppressUnusedWarnings Let0123456789876543210X_0123456789876543210Sym0 where @@ -229,7 +229,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210X_0123456789876543210Sym0KindInference :: forall x0123456789876543210 arg. SameKind (Apply Let0123456789876543210X_0123456789876543210Sym0 arg) (Let0123456789876543210X_0123456789876543210Sym1 arg) => Let0123456789876543210X_0123456789876543210Sym0 x0123456789876543210 - type instance Apply Let0123456789876543210X_0123456789876543210Sym0 x0123456789876543210 = Let0123456789876543210X_0123456789876543210 x0123456789876543210 + type instance Apply Let0123456789876543210X_0123456789876543210Sym0 x0123456789876543210 = Let0123456789876543210X_0123456789876543210Sym1 x0123456789876543210 type family Let0123456789876543210Z x where Let0123456789876543210Z x = Case_0123456789876543210 x (Let0123456789876543210X_0123456789876543210Sym1 x) type family Let0123456789876543210Y x where @@ -246,7 +246,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210BarSym0KindInference :: forall x0123456789876543210 arg. SameKind (Apply Let0123456789876543210BarSym0 arg) (Let0123456789876543210BarSym1 arg) => Let0123456789876543210BarSym0 x0123456789876543210 - type instance Apply Let0123456789876543210BarSym0 x0123456789876543210 = Let0123456789876543210Bar x0123456789876543210 + type instance Apply Let0123456789876543210BarSym0 x0123456789876543210 = Let0123456789876543210BarSym1 x0123456789876543210 type family Let0123456789876543210Bar x :: a where Let0123456789876543210Bar x = x type (<<<%%%%%%%%%%%%%%%%%%%%@#@$$$$) x0123456789876543210 (a0123456789876543210 :: Nat) (a0123456789876543210 :: Nat) = @@ -261,7 +261,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply ((<<<%%%%%%%%%%%%%%%%%%%%@#@$$$) x0123456789876543210 a0123456789876543210) arg) ((<<<%%%%%%%%%%%%%%%%%%%%@#@$$$$) x0123456789876543210 a0123456789876543210 arg) => (<<<%%%%%%%%%%%%%%%%%%%%@#@$$$) x0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply ((<<<%%%%%%%%%%%%%%%%%%%%@#@$$$) a0123456789876543210 x0123456789876543210) a0123456789876543210 = (<<<%%%%%%%%%%%%%%%%%%%%) a0123456789876543210 x0123456789876543210 a0123456789876543210 + type instance Apply ((<<<%%%%%%%%%%%%%%%%%%%%@#@$$$) a0123456789876543210 x0123456789876543210) a0123456789876543210 = (<<<%%%%%%%%%%%%%%%%%%%%@#@$$$$) a0123456789876543210 x0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings ((<<<%%%%%%%%%%%%%%%%%%%%@#@$$) x0123456789876543210) where suppressUnusedWarnings = snd (((,) (:<<<%%%%%%%%%%%%%%%%%%%%@#@$$###)) ()) @@ -294,7 +294,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210ZSym0KindInference :: forall x0123456789876543210 arg. SameKind (Apply Let0123456789876543210ZSym0 arg) (Let0123456789876543210ZSym1 arg) => Let0123456789876543210ZSym0 x0123456789876543210 - type instance Apply Let0123456789876543210ZSym0 x0123456789876543210 = Let0123456789876543210Z x0123456789876543210 + type instance Apply Let0123456789876543210ZSym0 x0123456789876543210 = Let0123456789876543210ZSym1 x0123456789876543210 type (<<<%%%%%%%%%%%%%%%%%%%%@#@$$$$) x0123456789876543210 (a0123456789876543210 :: Nat) (a0123456789876543210 :: Nat) = (<<<%%%%%%%%%%%%%%%%%%%%) x0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings ((<<<%%%%%%%%%%%%%%%%%%%%@#@$$$) a0123456789876543210 x0123456789876543210) where @@ -307,7 +307,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply ((<<<%%%%%%%%%%%%%%%%%%%%@#@$$$) x0123456789876543210 a0123456789876543210) arg) ((<<<%%%%%%%%%%%%%%%%%%%%@#@$$$$) x0123456789876543210 a0123456789876543210 arg) => (<<<%%%%%%%%%%%%%%%%%%%%@#@$$$) x0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply ((<<<%%%%%%%%%%%%%%%%%%%%@#@$$$) a0123456789876543210 x0123456789876543210) a0123456789876543210 = (<<<%%%%%%%%%%%%%%%%%%%%) a0123456789876543210 x0123456789876543210 a0123456789876543210 + type instance Apply ((<<<%%%%%%%%%%%%%%%%%%%%@#@$$$) a0123456789876543210 x0123456789876543210) a0123456789876543210 = (<<<%%%%%%%%%%%%%%%%%%%%@#@$$$$) a0123456789876543210 x0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings ((<<<%%%%%%%%%%%%%%%%%%%%@#@$$) x0123456789876543210) where suppressUnusedWarnings = snd (((,) (:<<<%%%%%%%%%%%%%%%%%%%%@#@$$###)) ()) @@ -344,7 +344,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply ((<<<%%%%%%%%%%%%%%%%%%%%@#@$$$) x0123456789876543210 a0123456789876543210) arg) ((<<<%%%%%%%%%%%%%%%%%%%%@#@$$$$) x0123456789876543210 a0123456789876543210 arg) => (<<<%%%%%%%%%%%%%%%%%%%%@#@$$$) x0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply ((<<<%%%%%%%%%%%%%%%%%%%%@#@$$$) a0123456789876543210 x0123456789876543210) a0123456789876543210 = (<<<%%%%%%%%%%%%%%%%%%%%) a0123456789876543210 x0123456789876543210 a0123456789876543210 + type instance Apply ((<<<%%%%%%%%%%%%%%%%%%%%@#@$$$) a0123456789876543210 x0123456789876543210) a0123456789876543210 = (<<<%%%%%%%%%%%%%%%%%%%%@#@$$$$) a0123456789876543210 x0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings ((<<<%%%%%%%%%%%%%%%%%%%%@#@$$) x0123456789876543210) where suppressUnusedWarnings = snd (((,) (:<<<%%%%%%%%%%%%%%%%%%%%@#@$$###)) ()) @@ -381,7 +381,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 a_01234567898765432100123456789876543210 x0123456789876543210) arg) (Lambda_0123456789876543210Sym3 a_01234567898765432100123456789876543210 x0123456789876543210 arg) => Lambda_0123456789876543210Sym2 a_01234567898765432100123456789876543210 x0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 x0123456789876543210 a_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 x0123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 x0123456789876543210 a_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 x0123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 a_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -412,7 +412,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Let0123456789876543210ZSym1 x0123456789876543210) arg) (Let0123456789876543210ZSym2 x0123456789876543210 arg) => Let0123456789876543210ZSym1 x0123456789876543210 a0123456789876543210 - type instance Apply (Let0123456789876543210ZSym1 x0123456789876543210) a0123456789876543210 = Let0123456789876543210Z x0123456789876543210 a0123456789876543210 + type instance Apply (Let0123456789876543210ZSym1 x0123456789876543210) a0123456789876543210 = Let0123456789876543210ZSym2 x0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Let0123456789876543210ZSym0 where suppressUnusedWarnings = snd (((,) Let0123456789876543210ZSym0KindInference) ()) @@ -437,7 +437,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym1 x0123456789876543210) arg) (Lambda_0123456789876543210Sym2 x0123456789876543210 arg) => Lambda_0123456789876543210Sym1 x0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym1 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 x0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym1 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym2 x0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings Lambda_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym0KindInference) ()) @@ -457,7 +457,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210ZSym0KindInference :: forall x0123456789876543210 arg. SameKind (Apply Let0123456789876543210ZSym0 arg) (Let0123456789876543210ZSym1 arg) => Let0123456789876543210ZSym0 x0123456789876543210 - type instance Apply Let0123456789876543210ZSym0 x0123456789876543210 = Let0123456789876543210Z x0123456789876543210 + type instance Apply Let0123456789876543210ZSym0 x0123456789876543210 = Let0123456789876543210ZSym1 x0123456789876543210 type family Let0123456789876543210Z x :: Nat where Let0123456789876543210Z x = Apply (Apply Lambda_0123456789876543210Sym0 x) ZeroSym0 type Let0123456789876543210XSym1 x0123456789876543210 = @@ -470,7 +470,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210XSym0KindInference :: forall x0123456789876543210 arg. SameKind (Apply Let0123456789876543210XSym0 arg) (Let0123456789876543210XSym1 arg) => Let0123456789876543210XSym0 x0123456789876543210 - type instance Apply Let0123456789876543210XSym0 x0123456789876543210 = Let0123456789876543210X x0123456789876543210 + type instance Apply Let0123456789876543210XSym0 x0123456789876543210 = Let0123456789876543210XSym1 x0123456789876543210 type family Let0123456789876543210X x :: Nat where Let0123456789876543210X x = ZeroSym0 type Let0123456789876543210FSym2 x0123456789876543210 (a0123456789876543210 :: Nat) = @@ -484,7 +484,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Let0123456789876543210FSym1 x0123456789876543210) arg) (Let0123456789876543210FSym2 x0123456789876543210 arg) => Let0123456789876543210FSym1 x0123456789876543210 a0123456789876543210 - type instance Apply (Let0123456789876543210FSym1 x0123456789876543210) a0123456789876543210 = Let0123456789876543210F x0123456789876543210 a0123456789876543210 + type instance Apply (Let0123456789876543210FSym1 x0123456789876543210) a0123456789876543210 = Let0123456789876543210FSym2 x0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Let0123456789876543210FSym0 where suppressUnusedWarnings = snd (((,) Let0123456789876543210FSym0KindInference) ()) @@ -506,7 +506,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210ZSym0KindInference :: forall x0123456789876543210 arg. SameKind (Apply Let0123456789876543210ZSym0 arg) (Let0123456789876543210ZSym1 arg) => Let0123456789876543210ZSym0 x0123456789876543210 - type instance Apply Let0123456789876543210ZSym0 x0123456789876543210 = Let0123456789876543210Z x0123456789876543210 + type instance Apply Let0123456789876543210ZSym0 x0123456789876543210 = Let0123456789876543210ZSym1 x0123456789876543210 type family Let0123456789876543210Z x :: Nat where Let0123456789876543210Z x = Apply (Let0123456789876543210FSym1 x) x type Let0123456789876543210ZSym2 y0123456789876543210 x0123456789876543210 = @@ -520,7 +520,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations x0123456789876543210 arg. SameKind (Apply (Let0123456789876543210ZSym1 y0123456789876543210) arg) (Let0123456789876543210ZSym2 y0123456789876543210 arg) => Let0123456789876543210ZSym1 y0123456789876543210 x0123456789876543210 - type instance Apply (Let0123456789876543210ZSym1 y0123456789876543210) x0123456789876543210 = Let0123456789876543210Z y0123456789876543210 x0123456789876543210 + type instance Apply (Let0123456789876543210ZSym1 y0123456789876543210) x0123456789876543210 = Let0123456789876543210ZSym2 y0123456789876543210 x0123456789876543210 instance SuppressUnusedWarnings Let0123456789876543210ZSym0 where suppressUnusedWarnings = snd (((,) Let0123456789876543210ZSym0KindInference) ()) @@ -543,7 +543,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Let0123456789876543210FSym1 x0123456789876543210) arg) (Let0123456789876543210FSym2 x0123456789876543210 arg) => Let0123456789876543210FSym1 x0123456789876543210 a0123456789876543210 - type instance Apply (Let0123456789876543210FSym1 x0123456789876543210) a0123456789876543210 = Let0123456789876543210F x0123456789876543210 a0123456789876543210 + type instance Apply (Let0123456789876543210FSym1 x0123456789876543210) a0123456789876543210 = Let0123456789876543210FSym2 x0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Let0123456789876543210FSym0 where suppressUnusedWarnings = snd (((,) Let0123456789876543210FSym0KindInference) ()) @@ -566,7 +566,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Let0123456789876543210FSym1 x0123456789876543210) arg) (Let0123456789876543210FSym2 x0123456789876543210 arg) => Let0123456789876543210FSym1 x0123456789876543210 a0123456789876543210 - type instance Apply (Let0123456789876543210FSym1 x0123456789876543210) a0123456789876543210 = Let0123456789876543210F x0123456789876543210 a0123456789876543210 + type instance Apply (Let0123456789876543210FSym1 x0123456789876543210) a0123456789876543210 = Let0123456789876543210FSym2 x0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Let0123456789876543210FSym0 where suppressUnusedWarnings = snd (((,) Let0123456789876543210FSym0KindInference) ()) @@ -588,7 +588,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210YSym0KindInference :: forall x0123456789876543210 arg. SameKind (Apply Let0123456789876543210YSym0 arg) (Let0123456789876543210YSym1 arg) => Let0123456789876543210YSym0 x0123456789876543210 - type instance Apply Let0123456789876543210YSym0 x0123456789876543210 = Let0123456789876543210Y x0123456789876543210 + type instance Apply Let0123456789876543210YSym0 x0123456789876543210 = Let0123456789876543210YSym1 x0123456789876543210 type family Let0123456789876543210Y x :: Nat where Let0123456789876543210Y x = Apply SuccSym0 x type Let0123456789876543210ZSym0 = Let0123456789876543210Z @@ -607,7 +607,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210YSym0KindInference :: forall x0123456789876543210 arg. SameKind (Apply Let0123456789876543210YSym0 arg) (Let0123456789876543210YSym1 arg) => Let0123456789876543210YSym0 x0123456789876543210 - type instance Apply Let0123456789876543210YSym0 x0123456789876543210 = Let0123456789876543210Y x0123456789876543210 + type instance Apply Let0123456789876543210YSym0 x0123456789876543210 = Let0123456789876543210YSym1 x0123456789876543210 type family Let0123456789876543210Y x :: Nat where Let0123456789876543210Y x = Apply SuccSym0 ZeroSym0 type Foo14Sym1 (a0123456789876543210 :: Nat) = @@ -619,7 +619,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Foo14Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo14Sym0 arg) (Foo14Sym1 arg) => Foo14Sym0 a0123456789876543210 - type instance Apply Foo14Sym0 a0123456789876543210 = Foo14 a0123456789876543210 + type instance Apply Foo14Sym0 a0123456789876543210 = Foo14Sym1 a0123456789876543210 type Foo13_Sym1 (a0123456789876543210 :: a0123456789876543210) = Foo13_ a0123456789876543210 instance SuppressUnusedWarnings Foo13_Sym0 where @@ -630,7 +630,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Foo13_Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo13_Sym0 arg) (Foo13_Sym1 arg) => Foo13_Sym0 a0123456789876543210 - type instance Apply Foo13_Sym0 a0123456789876543210 = Foo13_ a0123456789876543210 + type instance Apply Foo13_Sym0 a0123456789876543210 = Foo13_Sym1 a0123456789876543210 type Foo13Sym1 (a0123456789876543210 :: a0123456789876543210) = Foo13 a0123456789876543210 instance SuppressUnusedWarnings Foo13Sym0 where @@ -641,7 +641,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Foo13Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo13Sym0 arg) (Foo13Sym1 arg) => Foo13Sym0 a0123456789876543210 - type instance Apply Foo13Sym0 a0123456789876543210 = Foo13 a0123456789876543210 + type instance Apply Foo13Sym0 a0123456789876543210 = Foo13Sym1 a0123456789876543210 type Foo12Sym1 (a0123456789876543210 :: Nat) = Foo12 a0123456789876543210 instance SuppressUnusedWarnings Foo12Sym0 where @@ -651,7 +651,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Foo12Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo12Sym0 arg) (Foo12Sym1 arg) => Foo12Sym0 a0123456789876543210 - type instance Apply Foo12Sym0 a0123456789876543210 = Foo12 a0123456789876543210 + type instance Apply Foo12Sym0 a0123456789876543210 = Foo12Sym1 a0123456789876543210 type Foo11Sym1 (a0123456789876543210 :: Nat) = Foo11 a0123456789876543210 instance SuppressUnusedWarnings Foo11Sym0 where @@ -661,7 +661,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Foo11Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo11Sym0 arg) (Foo11Sym1 arg) => Foo11Sym0 a0123456789876543210 - type instance Apply Foo11Sym0 a0123456789876543210 = Foo11 a0123456789876543210 + type instance Apply Foo11Sym0 a0123456789876543210 = Foo11Sym1 a0123456789876543210 type Foo10Sym1 (a0123456789876543210 :: Nat) = Foo10 a0123456789876543210 instance SuppressUnusedWarnings Foo10Sym0 where @@ -671,7 +671,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Foo10Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo10Sym0 arg) (Foo10Sym1 arg) => Foo10Sym0 a0123456789876543210 - type instance Apply Foo10Sym0 a0123456789876543210 = Foo10 a0123456789876543210 + type instance Apply Foo10Sym0 a0123456789876543210 = Foo10Sym1 a0123456789876543210 type Foo9Sym1 (a0123456789876543210 :: Nat) = Foo9 a0123456789876543210 instance SuppressUnusedWarnings Foo9Sym0 where @@ -681,7 +681,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Foo9Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo9Sym0 arg) (Foo9Sym1 arg) => Foo9Sym0 a0123456789876543210 - type instance Apply Foo9Sym0 a0123456789876543210 = Foo9 a0123456789876543210 + type instance Apply Foo9Sym0 a0123456789876543210 = Foo9Sym1 a0123456789876543210 type Foo8Sym1 (a0123456789876543210 :: Nat) = Foo8 a0123456789876543210 instance SuppressUnusedWarnings Foo8Sym0 where @@ -691,7 +691,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Foo8Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo8Sym0 arg) (Foo8Sym1 arg) => Foo8Sym0 a0123456789876543210 - type instance Apply Foo8Sym0 a0123456789876543210 = Foo8 a0123456789876543210 + type instance Apply Foo8Sym0 a0123456789876543210 = Foo8Sym1 a0123456789876543210 type Foo7Sym1 (a0123456789876543210 :: Nat) = Foo7 a0123456789876543210 instance SuppressUnusedWarnings Foo7Sym0 where @@ -701,7 +701,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Foo7Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo7Sym0 arg) (Foo7Sym1 arg) => Foo7Sym0 a0123456789876543210 - type instance Apply Foo7Sym0 a0123456789876543210 = Foo7 a0123456789876543210 + type instance Apply Foo7Sym0 a0123456789876543210 = Foo7Sym1 a0123456789876543210 type Foo6Sym1 (a0123456789876543210 :: Nat) = Foo6 a0123456789876543210 instance SuppressUnusedWarnings Foo6Sym0 where @@ -711,7 +711,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Foo6Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo6Sym0 arg) (Foo6Sym1 arg) => Foo6Sym0 a0123456789876543210 - type instance Apply Foo6Sym0 a0123456789876543210 = Foo6 a0123456789876543210 + type instance Apply Foo6Sym0 a0123456789876543210 = Foo6Sym1 a0123456789876543210 type Foo5Sym1 (a0123456789876543210 :: Nat) = Foo5 a0123456789876543210 instance SuppressUnusedWarnings Foo5Sym0 where @@ -721,7 +721,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Foo5Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo5Sym0 arg) (Foo5Sym1 arg) => Foo5Sym0 a0123456789876543210 - type instance Apply Foo5Sym0 a0123456789876543210 = Foo5 a0123456789876543210 + type instance Apply Foo5Sym0 a0123456789876543210 = Foo5Sym1 a0123456789876543210 type Foo4Sym1 (a0123456789876543210 :: Nat) = Foo4 a0123456789876543210 instance SuppressUnusedWarnings Foo4Sym0 where @@ -731,7 +731,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Foo4Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo4Sym0 arg) (Foo4Sym1 arg) => Foo4Sym0 a0123456789876543210 - type instance Apply Foo4Sym0 a0123456789876543210 = Foo4 a0123456789876543210 + type instance Apply Foo4Sym0 a0123456789876543210 = Foo4Sym1 a0123456789876543210 type Foo3Sym1 (a0123456789876543210 :: Nat) = Foo3 a0123456789876543210 instance SuppressUnusedWarnings Foo3Sym0 where @@ -741,7 +741,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Foo3Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo3Sym0 arg) (Foo3Sym1 arg) => Foo3Sym0 a0123456789876543210 - type instance Apply Foo3Sym0 a0123456789876543210 = Foo3 a0123456789876543210 + type instance Apply Foo3Sym0 a0123456789876543210 = Foo3Sym1 a0123456789876543210 type Foo2Sym0 = Foo2 type Foo1Sym1 (a0123456789876543210 :: Nat) = Foo1 a0123456789876543210 @@ -752,7 +752,7 @@ Singletons/LetStatements.hs:(0,0)-(0,0): Splicing declarations Foo1Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo1Sym0 arg) (Foo1Sym1 arg) => Foo1Sym0 a0123456789876543210 - type instance Apply Foo1Sym0 a0123456789876543210 = Foo1 a0123456789876543210 + type instance Apply Foo1Sym0 a0123456789876543210 = Foo1Sym1 a0123456789876543210 type family Foo14 (a :: Nat) :: (Nat, Nat) where Foo14 x = Apply (Apply Tuple2Sym0 (Let0123456789876543210ZSym1 x)) (Let0123456789876543210YSym1 x) type family Foo13_ (a :: a) :: a where diff --git a/tests/compile-and-dump/Singletons/Maybe.golden b/tests/compile-and-dump/Singletons/Maybe.golden index bf7aabe1..cc36213c 100644 --- a/tests/compile-and-dump/Singletons/Maybe.golden +++ b/tests/compile-and-dump/Singletons/Maybe.golden @@ -18,7 +18,7 @@ Singletons/Maybe.hs:(0,0)-(0,0): Splicing declarations JustSym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply JustSym0 arg) (JustSym1 arg) => JustSym0 t0123456789876543210 - type instance Apply JustSym0 t0123456789876543210 = Just t0123456789876543210 + type instance Apply JustSym0 t0123456789876543210 = JustSym1 t0123456789876543210 type family ShowsPrec_0123456789876543210 (a :: GHC.Types.Nat) (a :: Maybe a) (a :: GHC.Types.Symbol) :: GHC.Types.Symbol where ShowsPrec_0123456789876543210 _ Nothing a_0123456789876543210 = Apply (Apply ShowStringSym0 "Nothing") a_0123456789876543210 ShowsPrec_0123456789876543210 p_0123456789876543210 (Just arg_0123456789876543210) a_0123456789876543210 = Apply (Apply (Apply ShowParenSym0 (Apply (Apply (>@#@$) p_0123456789876543210) (Data.Singletons.Prelude.Num.FromInteger 10))) (Apply (Apply (.@#@$) (Apply ShowStringSym0 "Just ")) (Apply (Apply ShowsPrecSym0 (Data.Singletons.Prelude.Num.FromInteger 11)) arg_0123456789876543210))) a_0123456789876543210 @@ -34,7 +34,7 @@ Singletons/Maybe.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ShowsPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ShowsPrec_0123456789876543210Sym1KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/Nat.golden b/tests/compile-and-dump/Singletons/Nat.golden index 5dfed3c0..22b8588d 100644 --- a/tests/compile-and-dump/Singletons/Nat.golden +++ b/tests/compile-and-dump/Singletons/Nat.golden @@ -34,7 +34,7 @@ Singletons/Nat.hs:(0,0)-(0,0): Splicing declarations SuccSym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply SuccSym0 arg) (SuccSym1 arg) => SuccSym0 t0123456789876543210 - type instance Apply SuccSym0 t0123456789876543210 = Succ t0123456789876543210 + type instance Apply SuccSym0 t0123456789876543210 = SuccSym1 t0123456789876543210 type PredSym1 (a0123456789876543210 :: Nat) = Pred a0123456789876543210 instance SuppressUnusedWarnings PredSym0 where @@ -44,7 +44,7 @@ Singletons/Nat.hs:(0,0)-(0,0): Splicing declarations PredSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply PredSym0 arg) (PredSym1 arg) => PredSym0 a0123456789876543210 - type instance Apply PredSym0 a0123456789876543210 = Pred a0123456789876543210 + type instance Apply PredSym0 a0123456789876543210 = PredSym1 a0123456789876543210 type PlusSym2 (a0123456789876543210 :: Nat) (a0123456789876543210 :: Nat) = Plus a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (PlusSym1 a0123456789876543210) where @@ -55,7 +55,7 @@ Singletons/Nat.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (PlusSym1 a0123456789876543210) arg) (PlusSym2 a0123456789876543210 arg) => PlusSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (PlusSym1 a0123456789876543210) a0123456789876543210 = Plus a0123456789876543210 a0123456789876543210 + type instance Apply (PlusSym1 a0123456789876543210) a0123456789876543210 = PlusSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings PlusSym0 where suppressUnusedWarnings = snd (((,) PlusSym0KindInference) ()) data PlusSym0 :: (~>) Nat ((~>) Nat Nat) @@ -85,7 +85,7 @@ Singletons/Nat.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ShowsPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ShowsPrec_0123456789876543210Sym1KindInference) ()) @@ -123,7 +123,7 @@ Singletons/Nat.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Compare_0123456789876543210Sym1 a0123456789876543210) arg) (Compare_0123456789876543210Sym2 a0123456789876543210 arg) => Compare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Compare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Compare_0123456789876543210Sym0KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/Operators.golden b/tests/compile-and-dump/Singletons/Operators.golden index 3150dfc3..0058169e 100644 --- a/tests/compile-and-dump/Singletons/Operators.golden +++ b/tests/compile-and-dump/Singletons/Operators.golden @@ -33,7 +33,7 @@ Singletons/Operators.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply ((:+:@#@$$) t0123456789876543210) arg) ((:+:@#@$$$) t0123456789876543210 arg) => (:+:@#@$$) t0123456789876543210 t0123456789876543210 - type instance Apply ((:+:@#@$$) t0123456789876543210) t0123456789876543210 = (:+:) t0123456789876543210 t0123456789876543210 + type instance Apply ((:+:@#@$$) t0123456789876543210) t0123456789876543210 = (:+:@#@$$$) t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (:+:@#@$) where suppressUnusedWarnings = snd (((,) (::+:@#@$###)) ()) data (:+:@#@$) :: (~>) Foo ((~>) Foo Foo) @@ -52,7 +52,7 @@ Singletons/Operators.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply ((+@#@$$) a0123456789876543210) arg) ((+@#@$$$) a0123456789876543210 arg) => (+@#@$$) a0123456789876543210 a0123456789876543210 - type instance Apply ((+@#@$$) a0123456789876543210) a0123456789876543210 = (+) a0123456789876543210 a0123456789876543210 + type instance Apply ((+@#@$$) a0123456789876543210) a0123456789876543210 = (+@#@$$$) a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (+@#@$) where suppressUnusedWarnings = snd (((,) (:+@#@$###)) ()) data (+@#@$) :: (~>) Nat ((~>) Nat Nat) @@ -70,7 +70,7 @@ Singletons/Operators.hs:(0,0)-(0,0): Splicing declarations ChildSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply ChildSym0 arg) (ChildSym1 arg) => ChildSym0 a0123456789876543210 - type instance Apply ChildSym0 a0123456789876543210 = Child a0123456789876543210 + type instance Apply ChildSym0 a0123456789876543210 = ChildSym1 a0123456789876543210 type family (+) (a :: Nat) (a :: Nat) :: Nat where (+) 'Zero m = m (+) ('Succ n) m = Apply SuccSym0 (Apply (Apply (+@#@$) n) m) diff --git a/tests/compile-and-dump/Singletons/OrdDeriving.golden b/tests/compile-and-dump/Singletons/OrdDeriving.golden index ac819e12..9fa1bb86 100644 --- a/tests/compile-and-dump/Singletons/OrdDeriving.golden +++ b/tests/compile-and-dump/Singletons/OrdDeriving.golden @@ -33,7 +33,7 @@ Singletons/OrdDeriving.hs:(0,0)-(0,0): Splicing declarations SuccSym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply SuccSym0 arg) (SuccSym1 arg) => SuccSym0 t0123456789876543210 - type instance Apply SuccSym0 t0123456789876543210 = Succ t0123456789876543210 + type instance Apply SuccSym0 t0123456789876543210 = SuccSym1 t0123456789876543210 type ASym4 (t0123456789876543210 :: a0123456789876543210) (t0123456789876543210 :: b0123456789876543210) (t0123456789876543210 :: c0123456789876543210) (t0123456789876543210 :: d0123456789876543210) = A t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (ASym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) where @@ -47,7 +47,7 @@ Singletons/OrdDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (ASym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) arg) (ASym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 arg) => ASym3 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (ASym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) t0123456789876543210 = A t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 + type instance Apply (ASym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) t0123456789876543210 = ASym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (ASym2 t0123456789876543210 t0123456789876543210) where suppressUnusedWarnings = snd (((,) ASym2KindInference) ()) data ASym2 (t0123456789876543210 :: a0123456789876543210) (t0123456789876543210 :: b0123456789876543210) :: forall c0123456789876543210 @@ -97,7 +97,7 @@ Singletons/OrdDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (BSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) arg) (BSym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 arg) => BSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (BSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) t0123456789876543210 = B t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 + type instance Apply (BSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) t0123456789876543210 = BSym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (BSym2 t0123456789876543210 t0123456789876543210) where suppressUnusedWarnings = snd (((,) BSym2KindInference) ()) data BSym2 (t0123456789876543210 :: a0123456789876543210) (t0123456789876543210 :: b0123456789876543210) :: forall c0123456789876543210 @@ -147,7 +147,7 @@ Singletons/OrdDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (CSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) arg) (CSym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 arg) => CSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (CSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) t0123456789876543210 = C t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 + type instance Apply (CSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) t0123456789876543210 = CSym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (CSym2 t0123456789876543210 t0123456789876543210) where suppressUnusedWarnings = snd (((,) CSym2KindInference) ()) data CSym2 (t0123456789876543210 :: a0123456789876543210) (t0123456789876543210 :: b0123456789876543210) :: forall c0123456789876543210 @@ -197,7 +197,7 @@ Singletons/OrdDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (DSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) arg) (DSym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 arg) => DSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (DSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) t0123456789876543210 = D t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 + type instance Apply (DSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) t0123456789876543210 = DSym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (DSym2 t0123456789876543210 t0123456789876543210) where suppressUnusedWarnings = snd (((,) DSym2KindInference) ()) data DSym2 (t0123456789876543210 :: a0123456789876543210) (t0123456789876543210 :: b0123456789876543210) :: forall c0123456789876543210 @@ -247,7 +247,7 @@ Singletons/OrdDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (ESym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) arg) (ESym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 arg) => ESym3 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (ESym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) t0123456789876543210 = E t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 + type instance Apply (ESym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) t0123456789876543210 = ESym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (ESym2 t0123456789876543210 t0123456789876543210) where suppressUnusedWarnings = snd (((,) ESym2KindInference) ()) data ESym2 (t0123456789876543210 :: a0123456789876543210) (t0123456789876543210 :: b0123456789876543210) :: forall c0123456789876543210 @@ -297,7 +297,7 @@ Singletons/OrdDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (FSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) arg) (FSym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 arg) => FSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 - type instance Apply (FSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) t0123456789876543210 = F t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 + type instance Apply (FSym3 t0123456789876543210 t0123456789876543210 t0123456789876543210) t0123456789876543210 = FSym4 t0123456789876543210 t0123456789876543210 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (FSym2 t0123456789876543210 t0123456789876543210) where suppressUnusedWarnings = snd (((,) FSym2KindInference) ()) data FSym2 (t0123456789876543210 :: a0123456789876543210) (t0123456789876543210 :: b0123456789876543210) :: forall c0123456789876543210 @@ -350,7 +350,7 @@ Singletons/OrdDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Compare_0123456789876543210Sym1 a0123456789876543210) arg) (Compare_0123456789876543210Sym2 a0123456789876543210 arg) => Compare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Compare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Compare_0123456789876543210Sym0KindInference) ()) @@ -410,7 +410,7 @@ Singletons/OrdDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Compare_0123456789876543210Sym1 a0123456789876543210) arg) (Compare_0123456789876543210Sym2 a0123456789876543210 arg) => Compare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Compare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Compare_0123456789876543210Sym0KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/OverloadedStrings.golden b/tests/compile-and-dump/Singletons/OverloadedStrings.golden index c80d2d27..769a88f8 100644 --- a/tests/compile-and-dump/Singletons/OverloadedStrings.golden +++ b/tests/compile-and-dump/Singletons/OverloadedStrings.golden @@ -19,7 +19,7 @@ Singletons/OverloadedStrings.hs:(0,0)-(0,0): Splicing declarations SymIdSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply SymIdSym0 arg) (SymIdSym1 arg) => SymIdSym0 a0123456789876543210 - type instance Apply SymIdSym0 a0123456789876543210 = SymId a0123456789876543210 + type instance Apply SymIdSym0 a0123456789876543210 = SymIdSym1 a0123456789876543210 type family Foo :: Symbol where Foo = Apply SymIdSym0 (Data.Singletons.Prelude.IsString.FromString "foo") type family SymId (a :: Symbol) :: Symbol where diff --git a/tests/compile-and-dump/Singletons/PatternMatching.golden b/tests/compile-and-dump/Singletons/PatternMatching.golden index 6af64abb..d9d88722 100644 --- a/tests/compile-and-dump/Singletons/PatternMatching.golden +++ b/tests/compile-and-dump/Singletons/PatternMatching.golden @@ -27,7 +27,7 @@ Singletons/PatternMatching.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (PairSym1 t0123456789876543210) arg) (PairSym2 t0123456789876543210 arg) => PairSym1 t0123456789876543210 t0123456789876543210 - type instance Apply (PairSym1 t0123456789876543210) t0123456789876543210 = Pair t0123456789876543210 t0123456789876543210 + type instance Apply (PairSym1 t0123456789876543210) t0123456789876543210 = PairSym2 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings PairSym0 where suppressUnusedWarnings = snd (((,) PairSym0KindInference) ()) data PairSym0 :: forall a0123456789876543210 b0123456789876543210. @@ -63,7 +63,7 @@ Singletons/PatternMatching.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ShowsPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ShowsPrec_0123456789876543210Sym1KindInference) ()) @@ -231,7 +231,7 @@ Singletons/PatternMatching.hs:(0,0)-(0,0): Splicing declarations y0123456789876543210 arg. SameKind (Apply (Let0123456789876543210TSym1 x0123456789876543210) arg) (Let0123456789876543210TSym2 x0123456789876543210 arg) => Let0123456789876543210TSym1 x0123456789876543210 y0123456789876543210 - type instance Apply (Let0123456789876543210TSym1 x0123456789876543210) y0123456789876543210 = Let0123456789876543210T x0123456789876543210 y0123456789876543210 + type instance Apply (Let0123456789876543210TSym1 x0123456789876543210) y0123456789876543210 = Let0123456789876543210TSym2 x0123456789876543210 y0123456789876543210 instance SuppressUnusedWarnings Let0123456789876543210TSym0 where suppressUnusedWarnings = snd (((,) Let0123456789876543210TSym0KindInference) ()) @@ -261,7 +261,7 @@ Singletons/PatternMatching.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym4 a0123456789876543210 b0123456789876543210 x0123456789876543210 y0123456789876543210) arg) (Lambda_0123456789876543210Sym5 a0123456789876543210 b0123456789876543210 x0123456789876543210 y0123456789876543210 arg) => Lambda_0123456789876543210Sym4 a0123456789876543210 b0123456789876543210 x0123456789876543210 y0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym4 y0123456789876543210 x0123456789876543210 b0123456789876543210 a0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 y0123456789876543210 x0123456789876543210 b0123456789876543210 a0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym4 y0123456789876543210 x0123456789876543210 b0123456789876543210 a0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym5 y0123456789876543210 x0123456789876543210 b0123456789876543210 a0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym3 x0123456789876543210 b0123456789876543210 a0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym3KindInference) ()) @@ -323,7 +323,7 @@ Singletons/PatternMatching.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 x0123456789876543210 y0123456789876543210) arg) (Lambda_0123456789876543210Sym3 x0123456789876543210 y0123456789876543210 arg) => Lambda_0123456789876543210Sym2 x0123456789876543210 y0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 y0123456789876543210 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 y0123456789876543210 x0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 y0123456789876543210 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 y0123456789876543210 x0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 x0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -383,7 +383,7 @@ Singletons/PatternMatching.hs:(0,0)-(0,0): Splicing declarations SillySym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply SillySym0 arg) (SillySym1 arg) => SillySym0 a0123456789876543210 - type instance Apply SillySym0 a0123456789876543210 = Silly a0123456789876543210 + type instance Apply SillySym0 a0123456789876543210 = SillySym1 a0123456789876543210 type Foo2Sym1 (a0123456789876543210 :: (a0123456789876543210, b0123456789876543210)) = Foo2 a0123456789876543210 @@ -396,7 +396,7 @@ Singletons/PatternMatching.hs:(0,0)-(0,0): Splicing declarations Foo2Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo2Sym0 arg) (Foo2Sym1 arg) => Foo2Sym0 a0123456789876543210 - type instance Apply Foo2Sym0 a0123456789876543210 = Foo2 a0123456789876543210 + type instance Apply Foo2Sym0 a0123456789876543210 = Foo2Sym1 a0123456789876543210 type Foo1Sym1 (a0123456789876543210 :: (a0123456789876543210, b0123456789876543210)) = Foo1 a0123456789876543210 @@ -409,7 +409,7 @@ Singletons/PatternMatching.hs:(0,0)-(0,0): Splicing declarations Foo1Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo1Sym0 arg) (Foo1Sym1 arg) => Foo1Sym0 a0123456789876543210 - type instance Apply Foo1Sym0 a0123456789876543210 = Foo1 a0123456789876543210 + type instance Apply Foo1Sym0 a0123456789876543210 = Foo1Sym1 a0123456789876543210 type BlimySym0 = Blimy type LszSym0 = Lsz type X_0123456789876543210Sym0 = X_0123456789876543210 diff --git a/tests/compile-and-dump/Singletons/PolyKinds.golden b/tests/compile-and-dump/Singletons/PolyKinds.golden index f7c739b0..3985b2b9 100644 --- a/tests/compile-and-dump/Singletons/PolyKinds.golden +++ b/tests/compile-and-dump/Singletons/PolyKinds.golden @@ -16,7 +16,7 @@ Singletons/PolyKinds.hs:(0,0)-(0,0): Splicing declarations FffSym0KindInference :: forall arg0123456789876543210 arg. SameKind (Apply FffSym0 arg) (FffSym1 arg) => FffSym0 arg0123456789876543210 - type instance Apply FffSym0 arg0123456789876543210 = Fff arg0123456789876543210 + type instance Apply FffSym0 arg0123456789876543210 = FffSym1 arg0123456789876543210 class PCls (a :: k) where type Fff (arg :: Proxy (a :: k)) :: () class SCls (a :: k) where diff --git a/tests/compile-and-dump/Singletons/Records.golden b/tests/compile-and-dump/Singletons/Records.golden index 5898869c..523c8905 100644 --- a/tests/compile-and-dump/Singletons/Records.golden +++ b/tests/compile-and-dump/Singletons/Records.golden @@ -13,7 +13,7 @@ Singletons/Records.hs:(0,0)-(0,0): Splicing declarations Field2Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Field2Sym0 arg) (Field2Sym1 arg) => Field2Sym0 a0123456789876543210 - type instance Apply Field2Sym0 a0123456789876543210 = Field2 a0123456789876543210 + type instance Apply Field2Sym0 a0123456789876543210 = Field2Sym1 a0123456789876543210 type Field1Sym1 (a0123456789876543210 :: Record a0123456789876543210) = Field1 a0123456789876543210 instance SuppressUnusedWarnings Field1Sym0 where @@ -24,7 +24,7 @@ Singletons/Records.hs:(0,0)-(0,0): Splicing declarations Field1Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Field1Sym0 arg) (Field1Sym1 arg) => Field1Sym0 a0123456789876543210 - type instance Apply Field1Sym0 a0123456789876543210 = Field1 a0123456789876543210 + type instance Apply Field1Sym0 a0123456789876543210 = Field1Sym1 a0123456789876543210 type family Field2 (a :: Record a) :: Bool where Field2 (MkRecord _ field) = field type family Field1 (a :: Record a) :: a where @@ -39,7 +39,7 @@ Singletons/Records.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (MkRecordSym1 t0123456789876543210) arg) (MkRecordSym2 t0123456789876543210 arg) => MkRecordSym1 t0123456789876543210 t0123456789876543210 - type instance Apply (MkRecordSym1 t0123456789876543210) t0123456789876543210 = MkRecord t0123456789876543210 t0123456789876543210 + type instance Apply (MkRecordSym1 t0123456789876543210) t0123456789876543210 = MkRecordSym2 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings MkRecordSym0 where suppressUnusedWarnings = snd (((,) MkRecordSym0KindInference) ()) data MkRecordSym0 :: forall a0123456789876543210. diff --git a/tests/compile-and-dump/Singletons/ReturnFunc.golden b/tests/compile-and-dump/Singletons/ReturnFunc.golden index 45b42e47..14fa2228 100644 --- a/tests/compile-and-dump/Singletons/ReturnFunc.golden +++ b/tests/compile-and-dump/Singletons/ReturnFunc.golden @@ -24,7 +24,7 @@ Singletons/ReturnFunc.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (IdFooSym1 a0123456789876543210) arg) (IdFooSym2 a0123456789876543210 arg) => IdFooSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (IdFooSym1 a0123456789876543210) a0123456789876543210 = IdFoo a0123456789876543210 a0123456789876543210 + type instance Apply (IdFooSym1 a0123456789876543210) a0123456789876543210 = IdFooSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings IdFooSym0 where suppressUnusedWarnings = snd (((,) IdFooSym0KindInference) ()) data IdFooSym0 :: forall c0123456789876543210 a0123456789876543210. @@ -44,7 +44,7 @@ Singletons/ReturnFunc.hs:(0,0)-(0,0): Splicing declarations IdSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply IdSym0 arg) (IdSym1 arg) => IdSym0 a0123456789876543210 - type instance Apply IdSym0 a0123456789876543210 = Id a0123456789876543210 + type instance Apply IdSym0 a0123456789876543210 = IdSym1 a0123456789876543210 type ReturnFuncSym2 (a0123456789876543210 :: Nat) (a0123456789876543210 :: Nat) = ReturnFunc a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ReturnFuncSym1 a0123456789876543210) where @@ -55,7 +55,7 @@ Singletons/ReturnFunc.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ReturnFuncSym1 a0123456789876543210) arg) (ReturnFuncSym2 a0123456789876543210 arg) => ReturnFuncSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (ReturnFuncSym1 a0123456789876543210) a0123456789876543210 = ReturnFunc a0123456789876543210 a0123456789876543210 + type instance Apply (ReturnFuncSym1 a0123456789876543210) a0123456789876543210 = ReturnFuncSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings ReturnFuncSym0 where suppressUnusedWarnings = snd (((,) ReturnFuncSym0KindInference) ()) data ReturnFuncSym0 :: (~>) Nat ((~>) Nat Nat) diff --git a/tests/compile-and-dump/Singletons/Sections.golden b/tests/compile-and-dump/Singletons/Sections.golden index f541c4ad..e4a80466 100644 --- a/tests/compile-and-dump/Singletons/Sections.golden +++ b/tests/compile-and-dump/Singletons/Sections.golden @@ -31,7 +31,7 @@ Singletons/Sections.hs:(0,0)-(0,0): Splicing declarations Lambda_0123456789876543210Sym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply Lambda_0123456789876543210Sym0 arg) (Lambda_0123456789876543210Sym1 arg) => Lambda_0123456789876543210Sym0 t0123456789876543210 - type instance Apply Lambda_0123456789876543210Sym0 t0123456789876543210 = Lambda_0123456789876543210 t0123456789876543210 + type instance Apply Lambda_0123456789876543210Sym0 t0123456789876543210 = Lambda_0123456789876543210Sym1 t0123456789876543210 type Foo3Sym0 = Foo3 type Foo2Sym0 = Foo2 type Foo1Sym0 = Foo1 @@ -45,7 +45,7 @@ Singletons/Sections.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply ((+@#@$$) a0123456789876543210) arg) ((+@#@$$$) a0123456789876543210 arg) => (+@#@$$) a0123456789876543210 a0123456789876543210 - type instance Apply ((+@#@$$) a0123456789876543210) a0123456789876543210 = (+) a0123456789876543210 a0123456789876543210 + type instance Apply ((+@#@$$) a0123456789876543210) a0123456789876543210 = (+@#@$$$) a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (+@#@$) where suppressUnusedWarnings = snd (((,) (:+@#@$###)) ()) data (+@#@$) :: (~>) Nat ((~>) Nat Nat) diff --git a/tests/compile-and-dump/Singletons/ShowDeriving.golden b/tests/compile-and-dump/Singletons/ShowDeriving.golden index c24c8e4e..4bfea3c9 100644 --- a/tests/compile-and-dump/Singletons/ShowDeriving.golden +++ b/tests/compile-and-dump/Singletons/ShowDeriving.golden @@ -33,7 +33,7 @@ Singletons/ShowDeriving.hs:(0,0)-(0,0): Splicing declarations (:***@#@$###) :: forall a0123456789876543210 arg. SameKind (Apply (***@#@$) arg) ((***@#@$$) arg) => (***@#@$) a0123456789876543210 - type instance Apply (***@#@$) a0123456789876543210 = (***) a0123456789876543210 + type instance Apply (***@#@$) a0123456789876543210 = (***@#@$$) a0123456789876543210 type GetFoo3aSym1 (a0123456789876543210 :: Foo3) = GetFoo3a a0123456789876543210 instance SuppressUnusedWarnings GetFoo3aSym0 where @@ -43,7 +43,7 @@ Singletons/ShowDeriving.hs:(0,0)-(0,0): Splicing declarations GetFoo3aSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply GetFoo3aSym0 arg) (GetFoo3aSym1 arg) => GetFoo3aSym0 a0123456789876543210 - type instance Apply GetFoo3aSym0 a0123456789876543210 = GetFoo3a a0123456789876543210 + type instance Apply GetFoo3aSym0 a0123456789876543210 = GetFoo3aSym1 a0123456789876543210 type family (***) (a :: Foo3) :: Bool where (***) (MkFoo3 _ field) = field type family GetFoo3a (a :: Foo3) :: Bool where @@ -59,7 +59,7 @@ Singletons/ShowDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (MkFoo2aSym1 t0123456789876543210) arg) (MkFoo2aSym2 t0123456789876543210 arg) => MkFoo2aSym1 t0123456789876543210 t0123456789876543210 - type instance Apply (MkFoo2aSym1 t0123456789876543210) t0123456789876543210 = MkFoo2a t0123456789876543210 t0123456789876543210 + type instance Apply (MkFoo2aSym1 t0123456789876543210) t0123456789876543210 = MkFoo2aSym2 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings MkFoo2aSym0 where suppressUnusedWarnings = snd (((,) MkFoo2aSym0KindInference) ()) data MkFoo2aSym0 :: forall a0123456789876543210. @@ -80,7 +80,7 @@ Singletons/ShowDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (MkFoo2bSym1 t0123456789876543210) arg) (MkFoo2bSym2 t0123456789876543210 arg) => MkFoo2bSym1 t0123456789876543210 t0123456789876543210 - type instance Apply (MkFoo2bSym1 t0123456789876543210) t0123456789876543210 = MkFoo2b t0123456789876543210 t0123456789876543210 + type instance Apply (MkFoo2bSym1 t0123456789876543210) t0123456789876543210 = MkFoo2bSym2 t0123456789876543210 t0123456789876543210 infixl 5 `MkFoo2bSym1` instance SuppressUnusedWarnings MkFoo2bSym0 where suppressUnusedWarnings = snd (((,) MkFoo2bSym0KindInference) ()) @@ -103,7 +103,7 @@ Singletons/ShowDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply ((:*:@#@$$) t0123456789876543210) arg) ((:*:@#@$$$) t0123456789876543210 arg) => (:*:@#@$$) t0123456789876543210 t0123456789876543210 - type instance Apply ((:*:@#@$$) t0123456789876543210) t0123456789876543210 = (:*:) t0123456789876543210 t0123456789876543210 + type instance Apply ((:*:@#@$$) t0123456789876543210) t0123456789876543210 = (:*:@#@$$$) t0123456789876543210 t0123456789876543210 infixl 5 :*:@#@$$ instance SuppressUnusedWarnings (:*:@#@$) where suppressUnusedWarnings = snd (((,) (::*:@#@$###)) ()) @@ -126,7 +126,7 @@ Singletons/ShowDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply ((:&:@#@$$) t0123456789876543210) arg) ((:&:@#@$$$) t0123456789876543210 arg) => (:&:@#@$$) t0123456789876543210 t0123456789876543210 - type instance Apply ((:&:@#@$$) t0123456789876543210) t0123456789876543210 = (:&:) t0123456789876543210 t0123456789876543210 + type instance Apply ((:&:@#@$$) t0123456789876543210) t0123456789876543210 = (:&:@#@$$$) t0123456789876543210 t0123456789876543210 infixl 5 :&:@#@$$ instance SuppressUnusedWarnings (:&:@#@$) where suppressUnusedWarnings = snd (((,) (::&:@#@$###)) ()) @@ -148,7 +148,7 @@ Singletons/ShowDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (MkFoo3Sym1 t0123456789876543210) arg) (MkFoo3Sym2 t0123456789876543210 arg) => MkFoo3Sym1 t0123456789876543210 t0123456789876543210 - type instance Apply (MkFoo3Sym1 t0123456789876543210) t0123456789876543210 = MkFoo3 t0123456789876543210 t0123456789876543210 + type instance Apply (MkFoo3Sym1 t0123456789876543210) t0123456789876543210 = MkFoo3Sym2 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings MkFoo3Sym0 where suppressUnusedWarnings = snd (((,) MkFoo3Sym0KindInference) ()) data MkFoo3Sym0 :: (~>) Bool ((~>) Bool Foo3) @@ -171,7 +171,7 @@ Singletons/ShowDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ShowsPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ShowsPrec_0123456789876543210Sym1KindInference) ()) @@ -210,7 +210,7 @@ Singletons/ShowDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ShowsPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ShowsPrec_0123456789876543210Sym1KindInference) ()) @@ -248,7 +248,7 @@ Singletons/ShowDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ShowsPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ShowsPrec_0123456789876543210Sym1KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/StandaloneDeriving.golden b/tests/compile-and-dump/Singletons/StandaloneDeriving.golden index 2a1bda26..c8fd30c0 100644 --- a/tests/compile-and-dump/Singletons/StandaloneDeriving.golden +++ b/tests/compile-and-dump/Singletons/StandaloneDeriving.golden @@ -37,7 +37,7 @@ Singletons/StandaloneDeriving.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply ((:*:@#@$$) t0123456789876543210) arg) ((:*:@#@$$$) t0123456789876543210 arg) => (:*:@#@$$) t0123456789876543210 t0123456789876543210 - type instance Apply ((:*:@#@$$) t0123456789876543210) t0123456789876543210 = (:*:) t0123456789876543210 t0123456789876543210 + type instance Apply ((:*:@#@$$) t0123456789876543210) t0123456789876543210 = (:*:@#@$$$) t0123456789876543210 t0123456789876543210 infixl 6 :*:@#@$$ instance SuppressUnusedWarnings (:*:@#@$) where suppressUnusedWarnings = snd (((,) (::*:@#@$###)) ()) @@ -64,7 +64,7 @@ Singletons/StandaloneDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Compare_0123456789876543210Sym1 a0123456789876543210) arg) (Compare_0123456789876543210Sym2 a0123456789876543210 arg) => Compare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Compare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Compare_0123456789876543210Sym0KindInference) ()) @@ -91,7 +91,7 @@ Singletons/StandaloneDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ShowsPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ShowsPrec_0123456789876543210Sym1KindInference) ()) @@ -131,7 +131,7 @@ Singletons/StandaloneDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Compare_0123456789876543210Sym1 a0123456789876543210) arg) (Compare_0123456789876543210Sym2 a0123456789876543210 arg) => Compare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Compare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Compare_0123456789876543210Sym0KindInference) ()) @@ -158,7 +158,7 @@ Singletons/StandaloneDeriving.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ShowsPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ShowsPrec_0123456789876543210Sym1KindInference) ()) @@ -209,7 +209,7 @@ Singletons/StandaloneDeriving.hs:(0,0)-(0,0): Splicing declarations ToEnum_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply ToEnum_0123456789876543210Sym0 arg) (ToEnum_0123456789876543210Sym1 arg) => ToEnum_0123456789876543210Sym0 a0123456789876543210 - type instance Apply ToEnum_0123456789876543210Sym0 a0123456789876543210 = ToEnum_0123456789876543210 a0123456789876543210 + type instance Apply ToEnum_0123456789876543210Sym0 a0123456789876543210 = ToEnum_0123456789876543210Sym1 a0123456789876543210 type family FromEnum_0123456789876543210 (a :: S) :: GHC.Types.Nat where FromEnum_0123456789876543210 S1 = FromInteger 0 FromEnum_0123456789876543210 S2 = FromInteger 1 @@ -223,7 +223,7 @@ Singletons/StandaloneDeriving.hs:(0,0)-(0,0): Splicing declarations FromEnum_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply FromEnum_0123456789876543210Sym0 arg) (FromEnum_0123456789876543210Sym1 arg) => FromEnum_0123456789876543210Sym0 a0123456789876543210 - type instance Apply FromEnum_0123456789876543210Sym0 a0123456789876543210 = FromEnum_0123456789876543210 a0123456789876543210 + type instance Apply FromEnum_0123456789876543210Sym0 a0123456789876543210 = FromEnum_0123456789876543210Sym1 a0123456789876543210 instance PEnum S where type ToEnum a = Apply ToEnum_0123456789876543210Sym0 a type FromEnum a = Apply FromEnum_0123456789876543210Sym0 a diff --git a/tests/compile-and-dump/Singletons/Star.golden b/tests/compile-and-dump/Singletons/Star.golden index 906fc7ca..12f670d6 100644 --- a/tests/compile-and-dump/Singletons/Star.golden +++ b/tests/compile-and-dump/Singletons/Star.golden @@ -21,7 +21,7 @@ Singletons/Star.hs:0:0:: Splicing declarations MaybeSym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply MaybeSym0 arg) (MaybeSym1 arg) => MaybeSym0 t0123456789876543210 - type instance Apply MaybeSym0 t0123456789876543210 = Maybe t0123456789876543210 + type instance Apply MaybeSym0 t0123456789876543210 = MaybeSym1 t0123456789876543210 type VecSym2 (t0123456789876543210 :: Type) (t0123456789876543210 :: Nat) = Vec t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (VecSym1 t0123456789876543210) where @@ -32,7 +32,7 @@ Singletons/Star.hs:0:0:: Splicing declarations t0123456789876543210 arg. SameKind (Apply (VecSym1 t0123456789876543210) arg) (VecSym2 t0123456789876543210 arg) => VecSym1 t0123456789876543210 t0123456789876543210 - type instance Apply (VecSym1 t0123456789876543210) t0123456789876543210 = Vec t0123456789876543210 t0123456789876543210 + type instance Apply (VecSym1 t0123456789876543210) t0123456789876543210 = VecSym2 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings VecSym0 where suppressUnusedWarnings = snd (((,) VecSym0KindInference) ()) data VecSym0 :: (~>) Type ((~>) Nat Type) @@ -87,7 +87,7 @@ Singletons/Star.hs:0:0:: Splicing declarations a0123456789876543210 arg. SameKind (Apply (Compare_0123456789876543210Sym1 a0123456789876543210) arg) (Compare_0123456789876543210Sym2 a0123456789876543210 arg) => Compare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Compare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Compare_0123456789876543210Sym0KindInference) ()) @@ -117,7 +117,7 @@ Singletons/Star.hs:0:0:: Splicing declarations a0123456789876543210 arg. SameKind (Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ShowsPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ShowsPrec_0123456789876543210Sym1KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/T124.golden b/tests/compile-and-dump/Singletons/T124.golden index b9778dfe..43e1cb96 100644 --- a/tests/compile-and-dump/Singletons/T124.golden +++ b/tests/compile-and-dump/Singletons/T124.golden @@ -16,7 +16,7 @@ Singletons/T124.hs:(0,0)-(0,0): Splicing declarations FooSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply FooSym0 arg) (FooSym1 arg) => FooSym0 a0123456789876543210 - type instance Apply FooSym0 a0123456789876543210 = Foo a0123456789876543210 + type instance Apply FooSym0 a0123456789876543210 = FooSym1 a0123456789876543210 type family Foo (a :: Bool) :: () where Foo 'True = Tuple0Sym0 Foo 'False = Tuple0Sym0 diff --git a/tests/compile-and-dump/Singletons/T136.golden b/tests/compile-and-dump/Singletons/T136.golden index 29d6ec47..16fde509 100644 --- a/tests/compile-and-dump/Singletons/T136.golden +++ b/tests/compile-and-dump/Singletons/T136.golden @@ -43,7 +43,7 @@ Singletons/T136.hs:(0,0)-(0,0): Splicing declarations Succ_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Succ_0123456789876543210Sym0 arg) (Succ_0123456789876543210Sym1 arg) => Succ_0123456789876543210Sym0 a0123456789876543210 - type instance Apply Succ_0123456789876543210Sym0 a0123456789876543210 = Succ_0123456789876543210 a0123456789876543210 + type instance Apply Succ_0123456789876543210Sym0 a0123456789876543210 = Succ_0123456789876543210Sym1 a0123456789876543210 type family Pred_0123456789876543210 (a :: [Bool]) :: [Bool] where Pred_0123456789876543210 '[] = Apply ErrorSym0 "pred 0" Pred_0123456789876543210 ('(:) 'False as) = Apply (Apply (:@#@$) TrueSym0) (Apply PredSym0 as) @@ -58,7 +58,7 @@ Singletons/T136.hs:(0,0)-(0,0): Splicing declarations Pred_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Pred_0123456789876543210Sym0 arg) (Pred_0123456789876543210Sym1 arg) => Pred_0123456789876543210Sym0 a0123456789876543210 - type instance Apply Pred_0123456789876543210Sym0 a0123456789876543210 = Pred_0123456789876543210 a0123456789876543210 + type instance Apply Pred_0123456789876543210Sym0 a0123456789876543210 = Pred_0123456789876543210Sym1 a0123456789876543210 type family Case_0123456789876543210 i arg_0123456789876543210 t where Case_0123456789876543210 i arg_0123456789876543210 'True = '[] Case_0123456789876543210 i arg_0123456789876543210 'False = Apply SuccSym0 (Apply ToEnumSym0 (Apply PredSym0 i)) @@ -79,7 +79,7 @@ Singletons/T136.hs:(0,0)-(0,0): Splicing declarations ToEnum_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply ToEnum_0123456789876543210Sym0 arg) (ToEnum_0123456789876543210Sym1 arg) => ToEnum_0123456789876543210Sym0 a0123456789876543210 - type instance Apply ToEnum_0123456789876543210Sym0 a0123456789876543210 = ToEnum_0123456789876543210 a0123456789876543210 + type instance Apply ToEnum_0123456789876543210Sym0 a0123456789876543210 = ToEnum_0123456789876543210Sym1 a0123456789876543210 type family FromEnum_0123456789876543210 (a :: [Bool]) :: GHC.Types.Nat where FromEnum_0123456789876543210 '[] = FromInteger 0 FromEnum_0123456789876543210 ('(:) 'False as) = Apply (Apply (*@#@$) (FromInteger 2)) (Apply FromEnumSym0 as) @@ -94,7 +94,7 @@ Singletons/T136.hs:(0,0)-(0,0): Splicing declarations FromEnum_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply FromEnum_0123456789876543210Sym0 arg) (FromEnum_0123456789876543210Sym1 arg) => FromEnum_0123456789876543210Sym0 a0123456789876543210 - type instance Apply FromEnum_0123456789876543210Sym0 a0123456789876543210 = FromEnum_0123456789876543210 a0123456789876543210 + type instance Apply FromEnum_0123456789876543210Sym0 a0123456789876543210 = FromEnum_0123456789876543210Sym1 a0123456789876543210 instance PEnum [Bool] where type Succ a = Apply Succ_0123456789876543210Sym0 a type Pred a = Apply Pred_0123456789876543210Sym0 a diff --git a/tests/compile-and-dump/Singletons/T136b.golden b/tests/compile-and-dump/Singletons/T136b.golden index 80bfb4ea..cc186262 100644 --- a/tests/compile-and-dump/Singletons/T136b.golden +++ b/tests/compile-and-dump/Singletons/T136b.golden @@ -15,7 +15,7 @@ Singletons/T136b.hs:(0,0)-(0,0): Splicing declarations MethSym0KindInference :: forall arg0123456789876543210 arg. SameKind (Apply MethSym0 arg) (MethSym1 arg) => MethSym0 arg0123456789876543210 - type instance Apply MethSym0 arg0123456789876543210 = Meth arg0123456789876543210 + type instance Apply MethSym0 arg0123456789876543210 = MethSym1 arg0123456789876543210 class PC a where type Meth (arg :: a) :: a class SC a where @@ -41,7 +41,7 @@ Singletons/T136b.hs:(0,0)-(0,0): Splicing declarations Meth_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Meth_0123456789876543210Sym0 arg) (Meth_0123456789876543210Sym1 arg) => Meth_0123456789876543210Sym0 a0123456789876543210 - type instance Apply Meth_0123456789876543210Sym0 a0123456789876543210 = Meth_0123456789876543210 a0123456789876543210 + type instance Apply Meth_0123456789876543210Sym0 a0123456789876543210 = Meth_0123456789876543210Sym1 a0123456789876543210 instance PC Bool where type Meth a = Apply Meth_0123456789876543210Sym0 a instance SC Bool where diff --git a/tests/compile-and-dump/Singletons/T145.golden b/tests/compile-and-dump/Singletons/T145.golden index 70e5d7c3..abb64ec1 100644 --- a/tests/compile-and-dump/Singletons/T145.golden +++ b/tests/compile-and-dump/Singletons/T145.golden @@ -15,7 +15,7 @@ Singletons/T145.hs:(0,0)-(0,0): Splicing declarations arg0123456789876543210 arg. SameKind (Apply (ColSym1 arg0123456789876543210) arg) (ColSym2 arg0123456789876543210 arg) => ColSym1 arg0123456789876543210 arg0123456789876543210 - type instance Apply (ColSym1 arg0123456789876543210) arg0123456789876543210 = Col arg0123456789876543210 arg0123456789876543210 + type instance Apply (ColSym1 arg0123456789876543210) arg0123456789876543210 = ColSym2 arg0123456789876543210 arg0123456789876543210 instance SuppressUnusedWarnings ColSym0 where suppressUnusedWarnings = snd (((,) ColSym0KindInference) ()) data ColSym0 :: forall f0123456789876543210 a0123456789876543210. diff --git a/tests/compile-and-dump/Singletons/T159.golden b/tests/compile-and-dump/Singletons/T159.golden index 8d86f767..033cfa9f 100644 --- a/tests/compile-and-dump/Singletons/T159.golden +++ b/tests/compile-and-dump/Singletons/T159.golden @@ -54,7 +54,7 @@ Singletons/T159.hs:0:0:: Splicing declarations t0123456789876543210 arg. SameKind (Apply (C1Sym1 t0123456789876543210) arg) (C1Sym2 t0123456789876543210 arg) => C1Sym1 t0123456789876543210 t0123456789876543210 - type instance Apply (C1Sym1 t0123456789876543210) t0123456789876543210 = 'C1 t0123456789876543210 t0123456789876543210 + type instance Apply (C1Sym1 t0123456789876543210) t0123456789876543210 = C1Sym2 t0123456789876543210 t0123456789876543210 infixr 5 `C1Sym1` instance SuppressUnusedWarnings C1Sym0 where suppressUnusedWarnings = snd (((,) C1Sym0KindInference) ()) @@ -76,7 +76,7 @@ Singletons/T159.hs:0:0:: Splicing declarations t0123456789876543210 arg. SameKind (Apply ((:&&@#@$$) t0123456789876543210) arg) ((:&&@#@$$$) t0123456789876543210 arg) => (:&&@#@$$) t0123456789876543210 t0123456789876543210 - type instance Apply ((:&&@#@$$) t0123456789876543210) t0123456789876543210 = '(:&&) t0123456789876543210 t0123456789876543210 + type instance Apply ((:&&@#@$$) t0123456789876543210) t0123456789876543210 = (:&&@#@$$$) t0123456789876543210 t0123456789876543210 infixr 5 :&&@#@$$ instance SuppressUnusedWarnings (:&&@#@$) where suppressUnusedWarnings = snd (((,) (::&&@#@$###)) ()) @@ -152,7 +152,7 @@ Singletons/T159.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (C2Sym1 t0123456789876543210) arg) (C2Sym2 t0123456789876543210 arg) => C2Sym1 t0123456789876543210 t0123456789876543210 - type instance Apply (C2Sym1 t0123456789876543210) t0123456789876543210 = C2 t0123456789876543210 t0123456789876543210 + type instance Apply (C2Sym1 t0123456789876543210) t0123456789876543210 = C2Sym2 t0123456789876543210 t0123456789876543210 infixr 5 `C2Sym1` instance SuppressUnusedWarnings C2Sym0 where suppressUnusedWarnings = snd (((,) C2Sym0KindInference) ()) @@ -174,7 +174,7 @@ Singletons/T159.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply ((:||@#@$$) t0123456789876543210) arg) ((:||@#@$$$) t0123456789876543210 arg) => (:||@#@$$) t0123456789876543210 t0123456789876543210 - type instance Apply ((:||@#@$$) t0123456789876543210) t0123456789876543210 = (:||) t0123456789876543210 t0123456789876543210 + type instance Apply ((:||@#@$$) t0123456789876543210) t0123456789876543210 = (:||@#@$$$) t0123456789876543210 t0123456789876543210 infixr 5 :||@#@$$ instance SuppressUnusedWarnings (:||@#@$) where suppressUnusedWarnings = snd (((,) (::||@#@$###)) ()) diff --git a/tests/compile-and-dump/Singletons/T160.golden b/tests/compile-and-dump/Singletons/T160.golden index fa5a6eb7..cb5af84d 100644 --- a/tests/compile-and-dump/Singletons/T160.golden +++ b/tests/compile-and-dump/Singletons/T160.golden @@ -18,7 +18,7 @@ Singletons/T160.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210Scrutinee_0123456789876543210Sym0KindInference :: forall x0123456789876543210 arg. SameKind (Apply Let0123456789876543210Scrutinee_0123456789876543210Sym0 arg) (Let0123456789876543210Scrutinee_0123456789876543210Sym1 arg) => Let0123456789876543210Scrutinee_0123456789876543210Sym0 x0123456789876543210 - type instance Apply Let0123456789876543210Scrutinee_0123456789876543210Sym0 x0123456789876543210 = Let0123456789876543210Scrutinee_0123456789876543210 x0123456789876543210 + type instance Apply Let0123456789876543210Scrutinee_0123456789876543210Sym0 x0123456789876543210 = Let0123456789876543210Scrutinee_0123456789876543210Sym1 x0123456789876543210 type family Let0123456789876543210Scrutinee_0123456789876543210 x where Let0123456789876543210Scrutinee_0123456789876543210 x = Apply (Apply (==@#@$) x) (FromInteger 0) type family Case_0123456789876543210 x t where @@ -34,7 +34,7 @@ Singletons/T160.hs:(0,0)-(0,0): Splicing declarations FooSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply FooSym0 arg) (FooSym1 arg) => FooSym0 a0123456789876543210 - type instance Apply FooSym0 a0123456789876543210 = Foo a0123456789876543210 + type instance Apply FooSym0 a0123456789876543210 = FooSym1 a0123456789876543210 type family Foo (a :: a) :: a where Foo x = Case_0123456789876543210 x (Let0123456789876543210Scrutinee_0123456789876543210Sym1 x) sFoo :: diff --git a/tests/compile-and-dump/Singletons/T163.golden b/tests/compile-and-dump/Singletons/T163.golden index bca88173..daca6932 100644 --- a/tests/compile-and-dump/Singletons/T163.golden +++ b/tests/compile-and-dump/Singletons/T163.golden @@ -12,7 +12,7 @@ Singletons/T163.hs:0:0:: Splicing declarations LSym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply LSym0 arg) (LSym1 arg) => LSym0 t0123456789876543210 - type instance Apply LSym0 t0123456789876543210 = L t0123456789876543210 + type instance Apply LSym0 t0123456789876543210 = LSym1 t0123456789876543210 type RSym1 (t0123456789876543210 :: b0123456789876543210) = R t0123456789876543210 instance SuppressUnusedWarnings RSym0 where @@ -23,7 +23,7 @@ Singletons/T163.hs:0:0:: Splicing declarations RSym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply RSym0 arg) (RSym1 arg) => RSym0 t0123456789876543210 - type instance Apply RSym0 t0123456789876543210 = R t0123456789876543210 + type instance Apply RSym0 t0123456789876543210 = RSym1 t0123456789876543210 data (%+) :: forall a b. (+) a b -> GHC.Types.Type where SL :: forall a b (n :: a). (Sing n) -> (%+) (L n :: (+) a b) diff --git a/tests/compile-and-dump/Singletons/T166.golden b/tests/compile-and-dump/Singletons/T166.golden index edb3b99c..18db6f96 100644 --- a/tests/compile-and-dump/Singletons/T166.golden +++ b/tests/compile-and-dump/Singletons/T166.golden @@ -16,7 +16,7 @@ Singletons/T166.hs:(0,0)-(0,0): Splicing declarations arg0123456789876543210 arg. SameKind (Apply (FoosPrecSym2 arg0123456789876543210 arg0123456789876543210) arg) (FoosPrecSym3 arg0123456789876543210 arg0123456789876543210 arg) => FoosPrecSym2 arg0123456789876543210 arg0123456789876543210 arg0123456789876543210 - type instance Apply (FoosPrecSym2 arg0123456789876543210 arg0123456789876543210) arg0123456789876543210 = FoosPrec arg0123456789876543210 arg0123456789876543210 arg0123456789876543210 + type instance Apply (FoosPrecSym2 arg0123456789876543210 arg0123456789876543210) arg0123456789876543210 = FoosPrecSym3 arg0123456789876543210 arg0123456789876543210 arg0123456789876543210 instance SuppressUnusedWarnings (FoosPrecSym1 arg0123456789876543210) where suppressUnusedWarnings = snd (((,) FoosPrecSym1KindInference) ()) data FoosPrecSym1 (arg0123456789876543210 :: Nat) :: forall a0123456789876543210. @@ -46,7 +46,7 @@ Singletons/T166.hs:(0,0)-(0,0): Splicing declarations FooSym0KindInference :: forall arg0123456789876543210 arg. SameKind (Apply FooSym0 arg) (FooSym1 arg) => FooSym0 arg0123456789876543210 - type instance Apply FooSym0 arg0123456789876543210 = Foo arg0123456789876543210 + type instance Apply FooSym0 arg0123456789876543210 = FooSym1 arg0123456789876543210 type family Lambda_0123456789876543210 x t where Lambda_0123456789876543210 x s = Apply (Apply (Apply FoosPrecSym0 (Data.Singletons.Prelude.Num.FromInteger 0)) x) s type Lambda_0123456789876543210Sym2 x0123456789876543210 t0123456789876543210 = @@ -60,7 +60,7 @@ Singletons/T166.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym1 x0123456789876543210) arg) (Lambda_0123456789876543210Sym2 x0123456789876543210 arg) => Lambda_0123456789876543210Sym1 x0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym1 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 x0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym1 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym2 x0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings Lambda_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym0KindInference) ()) @@ -83,7 +83,7 @@ Singletons/T166.hs:(0,0)-(0,0): Splicing declarations Foo_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo_0123456789876543210Sym0 arg) (Foo_0123456789876543210Sym1 arg) => Foo_0123456789876543210Sym0 a0123456789876543210 - type instance Apply Foo_0123456789876543210Sym0 a0123456789876543210 = Foo_0123456789876543210 a0123456789876543210 + type instance Apply Foo_0123456789876543210Sym0 a0123456789876543210 = Foo_0123456789876543210Sym1 a0123456789876543210 class PFoo a where type FoosPrec (arg :: Nat) (arg :: a) (arg :: [Bool]) :: [Bool] type Foo (arg :: a) :: [Bool] diff --git a/tests/compile-and-dump/Singletons/T167.golden b/tests/compile-and-dump/Singletons/T167.golden index cf6d9971..a33099c2 100644 --- a/tests/compile-and-dump/Singletons/T167.golden +++ b/tests/compile-and-dump/Singletons/T167.golden @@ -19,7 +19,7 @@ Singletons/T167.hs:(0,0)-(0,0): Splicing declarations arg0123456789876543210 arg. SameKind (Apply (FoosPrecSym2 arg0123456789876543210 arg0123456789876543210) arg) (FoosPrecSym3 arg0123456789876543210 arg0123456789876543210 arg) => FoosPrecSym2 arg0123456789876543210 arg0123456789876543210 arg0123456789876543210 - type instance Apply (FoosPrecSym2 arg0123456789876543210 arg0123456789876543210) arg0123456789876543210 = FoosPrec arg0123456789876543210 arg0123456789876543210 arg0123456789876543210 + type instance Apply (FoosPrecSym2 arg0123456789876543210 arg0123456789876543210) arg0123456789876543210 = FoosPrecSym3 arg0123456789876543210 arg0123456789876543210 arg0123456789876543210 instance SuppressUnusedWarnings (FoosPrecSym1 arg0123456789876543210) where suppressUnusedWarnings = snd (((,) FoosPrecSym1KindInference) ()) data FoosPrecSym1 (arg0123456789876543210 :: Nat) :: forall a0123456789876543210. @@ -49,7 +49,7 @@ Singletons/T167.hs:(0,0)-(0,0): Splicing declarations arg0123456789876543210 arg. SameKind (Apply (FooListSym1 arg0123456789876543210) arg) (FooListSym2 arg0123456789876543210 arg) => FooListSym1 arg0123456789876543210 arg0123456789876543210 - type instance Apply (FooListSym1 arg0123456789876543210) arg0123456789876543210 = FooList arg0123456789876543210 arg0123456789876543210 + type instance Apply (FooListSym1 arg0123456789876543210) arg0123456789876543210 = FooListSym2 arg0123456789876543210 arg0123456789876543210 instance SuppressUnusedWarnings FooListSym0 where suppressUnusedWarnings = snd (((,) FooListSym0KindInference) ()) data FooListSym0 :: forall a0123456789876543210. @@ -72,7 +72,7 @@ Singletons/T167.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (FooList_0123456789876543210Sym1 a0123456789876543210) arg) (FooList_0123456789876543210Sym2 a0123456789876543210 arg) => FooList_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (FooList_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = FooList_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (FooList_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = FooList_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings FooList_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) FooList_0123456789876543210Sym0KindInference) ()) @@ -101,7 +101,7 @@ Singletons/T167.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (FoosPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (FoosPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => FoosPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (FoosPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = FoosPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (FoosPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = FoosPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (FoosPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) FoosPrec_0123456789876543210Sym1KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/T172.golden b/tests/compile-and-dump/Singletons/T172.golden index 07962803..bf558364 100644 --- a/tests/compile-and-dump/Singletons/T172.golden +++ b/tests/compile-and-dump/Singletons/T172.golden @@ -13,7 +13,7 @@ Singletons/T172.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (($>@#@$$) a0123456789876543210) arg) (($>@#@$$$) a0123456789876543210 arg) => ($>@#@$$) a0123456789876543210 a0123456789876543210 - type instance Apply (($>@#@$$) a0123456789876543210) a0123456789876543210 = ($>) a0123456789876543210 a0123456789876543210 + type instance Apply (($>@#@$$) a0123456789876543210) a0123456789876543210 = ($>@#@$$$) a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings ($>@#@$) where suppressUnusedWarnings = snd (((,) (:$>@#@$###)) ()) data ($>@#@$) :: (~>) Nat ((~>) Nat Nat) diff --git a/tests/compile-and-dump/Singletons/T176.golden b/tests/compile-and-dump/Singletons/T176.golden index 6f7642f0..534b0c3f 100644 --- a/tests/compile-and-dump/Singletons/T176.golden +++ b/tests/compile-and-dump/Singletons/T176.golden @@ -37,7 +37,7 @@ Singletons/T176.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym1 x0123456789876543210) arg) (Lambda_0123456789876543210Sym2 x0123456789876543210 arg) => Lambda_0123456789876543210Sym1 x0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym1 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 x0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym1 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym2 x0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings Lambda_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym0KindInference) ()) @@ -57,7 +57,7 @@ Singletons/T176.hs:(0,0)-(0,0): Splicing declarations Quux2Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Quux2Sym0 arg) (Quux2Sym1 arg) => Quux2Sym0 a0123456789876543210 - type instance Apply Quux2Sym0 a0123456789876543210 = Quux2 a0123456789876543210 + type instance Apply Quux2Sym0 a0123456789876543210 = Quux2Sym1 a0123456789876543210 type Quux1Sym1 (a0123456789876543210 :: a0123456789876543210) = Quux1 a0123456789876543210 instance SuppressUnusedWarnings Quux1Sym0 where @@ -68,7 +68,7 @@ Singletons/T176.hs:(0,0)-(0,0): Splicing declarations Quux1Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Quux1Sym0 arg) (Quux1Sym1 arg) => Quux1Sym0 a0123456789876543210 - type instance Apply Quux1Sym0 a0123456789876543210 = Quux1 a0123456789876543210 + type instance Apply Quux1Sym0 a0123456789876543210 = Quux1Sym1 a0123456789876543210 type family Quux2 (a :: a) :: a where Quux2 x = Apply (Apply Bar2Sym0 x) Baz2Sym0 type family Quux1 (a :: a) :: a where @@ -84,7 +84,7 @@ Singletons/T176.hs:(0,0)-(0,0): Splicing declarations arg0123456789876543210 arg. SameKind (Apply (Bar1Sym1 arg0123456789876543210) arg) (Bar1Sym2 arg0123456789876543210 arg) => Bar1Sym1 arg0123456789876543210 arg0123456789876543210 - type instance Apply (Bar1Sym1 arg0123456789876543210) arg0123456789876543210 = Bar1 arg0123456789876543210 arg0123456789876543210 + type instance Apply (Bar1Sym1 arg0123456789876543210) arg0123456789876543210 = Bar1Sym2 arg0123456789876543210 arg0123456789876543210 instance SuppressUnusedWarnings Bar1Sym0 where suppressUnusedWarnings = snd (((,) Bar1Sym0KindInference) ()) data Bar1Sym0 :: forall a0123456789876543210 b0123456789876543210. @@ -109,7 +109,7 @@ Singletons/T176.hs:(0,0)-(0,0): Splicing declarations arg0123456789876543210 arg. SameKind (Apply (Bar2Sym1 arg0123456789876543210) arg) (Bar2Sym2 arg0123456789876543210 arg) => Bar2Sym1 arg0123456789876543210 arg0123456789876543210 - type instance Apply (Bar2Sym1 arg0123456789876543210) arg0123456789876543210 = Bar2 arg0123456789876543210 arg0123456789876543210 + type instance Apply (Bar2Sym1 arg0123456789876543210) arg0123456789876543210 = Bar2Sym2 arg0123456789876543210 arg0123456789876543210 instance SuppressUnusedWarnings Bar2Sym0 where suppressUnusedWarnings = snd (((,) Bar2Sym0KindInference) ()) data Bar2Sym0 :: forall a0123456789876543210 b0123456789876543210. diff --git a/tests/compile-and-dump/Singletons/T178.golden b/tests/compile-and-dump/Singletons/T178.golden index 942fb031..686322ca 100644 --- a/tests/compile-and-dump/Singletons/T178.golden +++ b/tests/compile-and-dump/Singletons/T178.golden @@ -42,7 +42,7 @@ Singletons/T178.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Compare_0123456789876543210Sym1 a0123456789876543210) arg) (Compare_0123456789876543210Sym2 a0123456789876543210 arg) => Compare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Compare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Compare_0123456789876543210Sym0KindInference) ()) @@ -70,7 +70,7 @@ Singletons/T178.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ShowsPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ShowsPrec_0123456789876543210Sym1KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/T183.golden b/tests/compile-and-dump/Singletons/T183.golden index 1eb71801..c2d23976 100644 --- a/tests/compile-and-dump/Singletons/T183.golden +++ b/tests/compile-and-dump/Singletons/T183.golden @@ -70,7 +70,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Let0123456789876543210GSym2 x0123456789876543210 a0123456789876543210) arg) (Let0123456789876543210GSym3 x0123456789876543210 a0123456789876543210 arg) => Let0123456789876543210GSym2 x0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (Let0123456789876543210GSym2 a0123456789876543210 x0123456789876543210) a0123456789876543210 = Let0123456789876543210G a0123456789876543210 x0123456789876543210 a0123456789876543210 + type instance Apply (Let0123456789876543210GSym2 a0123456789876543210 x0123456789876543210) a0123456789876543210 = Let0123456789876543210GSym3 a0123456789876543210 x0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (Let0123456789876543210GSym1 x0123456789876543210) where suppressUnusedWarnings = snd (((,) Let0123456789876543210GSym1KindInference) ()) @@ -104,7 +104,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210XSym0KindInference :: forall wild_01234567898765432100123456789876543210 arg. SameKind (Apply Let0123456789876543210XSym0 arg) (Let0123456789876543210XSym1 arg) => Let0123456789876543210XSym0 wild_01234567898765432100123456789876543210 - type instance Apply Let0123456789876543210XSym0 wild_01234567898765432100123456789876543210 = Let0123456789876543210X wild_01234567898765432100123456789876543210 + type instance Apply Let0123456789876543210XSym0 wild_01234567898765432100123456789876543210 = Let0123456789876543210XSym1 wild_01234567898765432100123456789876543210 type family Let0123456789876543210X wild_0123456789876543210 where Let0123456789876543210X wild_0123456789876543210 = Apply JustSym0 (wild_0123456789876543210 :: a) :: Maybe a type Let0123456789876543210Scrutinee_0123456789876543210Sym1 x0123456789876543210 = @@ -120,7 +120,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210Scrutinee_0123456789876543210Sym0KindInference :: forall x0123456789876543210 arg. SameKind (Apply Let0123456789876543210Scrutinee_0123456789876543210Sym0 arg) (Let0123456789876543210Scrutinee_0123456789876543210Sym1 arg) => Let0123456789876543210Scrutinee_0123456789876543210Sym0 x0123456789876543210 - type instance Apply Let0123456789876543210Scrutinee_0123456789876543210Sym0 x0123456789876543210 = Let0123456789876543210Scrutinee_0123456789876543210 x0123456789876543210 + type instance Apply Let0123456789876543210Scrutinee_0123456789876543210Sym0 x0123456789876543210 = Let0123456789876543210Scrutinee_0123456789876543210Sym1 x0123456789876543210 type family Let0123456789876543210Scrutinee_0123456789876543210 x where Let0123456789876543210Scrutinee_0123456789876543210 x = x :: Maybe a type family Case_0123456789876543210 x t where @@ -141,7 +141,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym1 a_01234567898765432100123456789876543210) arg) (Lambda_0123456789876543210Sym2 a_01234567898765432100123456789876543210 arg) => Lambda_0123456789876543210Sym1 a_01234567898765432100123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym1 a_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 a_01234567898765432100123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym1 a_01234567898765432100123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym2 a_01234567898765432100123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings Lambda_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym0KindInference) ()) @@ -164,7 +164,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210Scrutinee_0123456789876543210Sym0KindInference :: forall x0123456789876543210 arg. SameKind (Apply Let0123456789876543210Scrutinee_0123456789876543210Sym0 arg) (Let0123456789876543210Scrutinee_0123456789876543210Sym1 arg) => Let0123456789876543210Scrutinee_0123456789876543210Sym0 x0123456789876543210 - type instance Apply Let0123456789876543210Scrutinee_0123456789876543210Sym0 x0123456789876543210 = Let0123456789876543210Scrutinee_0123456789876543210 x0123456789876543210 + type instance Apply Let0123456789876543210Scrutinee_0123456789876543210Sym0 x0123456789876543210 = Let0123456789876543210Scrutinee_0123456789876543210Sym1 x0123456789876543210 type family Let0123456789876543210Scrutinee_0123456789876543210 x where Let0123456789876543210Scrutinee_0123456789876543210 x = Apply JustSym0 x type family Case_0123456789876543210 x t where @@ -179,7 +179,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations Foo9Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo9Sym0 arg) (Foo9Sym1 arg) => Foo9Sym0 a0123456789876543210 - type instance Apply Foo9Sym0 a0123456789876543210 = Foo9 a0123456789876543210 + type instance Apply Foo9Sym0 a0123456789876543210 = Foo9Sym1 a0123456789876543210 type Foo8Sym1 (a0123456789876543210 :: Maybe a0123456789876543210) = Foo8 a0123456789876543210 instance SuppressUnusedWarnings Foo8Sym0 where @@ -190,7 +190,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations Foo8Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo8Sym0 arg) (Foo8Sym1 arg) => Foo8Sym0 a0123456789876543210 - type instance Apply Foo8Sym0 a0123456789876543210 = Foo8 a0123456789876543210 + type instance Apply Foo8Sym0 a0123456789876543210 = Foo8Sym1 a0123456789876543210 type Foo7Sym2 (a0123456789876543210 :: a0123456789876543210) (a0123456789876543210 :: b0123456789876543210) = Foo7 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (Foo7Sym1 a0123456789876543210) where @@ -202,7 +202,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Foo7Sym1 a0123456789876543210) arg) (Foo7Sym2 a0123456789876543210 arg) => Foo7Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Foo7Sym1 a0123456789876543210) a0123456789876543210 = Foo7 a0123456789876543210 a0123456789876543210 + type instance Apply (Foo7Sym1 a0123456789876543210) a0123456789876543210 = Foo7Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Foo7Sym0 where suppressUnusedWarnings = snd (((,) Foo7Sym0KindInference) ()) data Foo7Sym0 :: forall a0123456789876543210 b0123456789876543210. @@ -222,7 +222,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations Foo6Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo6Sym0 arg) (Foo6Sym1 arg) => Foo6Sym0 a0123456789876543210 - type instance Apply Foo6Sym0 a0123456789876543210 = Foo6 a0123456789876543210 + type instance Apply Foo6Sym0 a0123456789876543210 = Foo6Sym1 a0123456789876543210 type Foo5Sym1 (a0123456789876543210 :: Maybe (Maybe a0123456789876543210)) = Foo5 a0123456789876543210 instance SuppressUnusedWarnings Foo5Sym0 where @@ -233,7 +233,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations Foo5Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo5Sym0 arg) (Foo5Sym1 arg) => Foo5Sym0 a0123456789876543210 - type instance Apply Foo5Sym0 a0123456789876543210 = Foo5 a0123456789876543210 + type instance Apply Foo5Sym0 a0123456789876543210 = Foo5Sym1 a0123456789876543210 type Foo4Sym1 (a0123456789876543210 :: (a0123456789876543210, b0123456789876543210)) = Foo4 a0123456789876543210 @@ -246,7 +246,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations Foo4Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo4Sym0 arg) (Foo4Sym1 arg) => Foo4Sym0 a0123456789876543210 - type instance Apply Foo4Sym0 a0123456789876543210 = Foo4 a0123456789876543210 + type instance Apply Foo4Sym0 a0123456789876543210 = Foo4Sym1 a0123456789876543210 type Foo3Sym1 (a0123456789876543210 :: Maybe a0123456789876543210) = Foo3 a0123456789876543210 instance SuppressUnusedWarnings Foo3Sym0 where @@ -257,7 +257,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations Foo3Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo3Sym0 arg) (Foo3Sym1 arg) => Foo3Sym0 a0123456789876543210 - type instance Apply Foo3Sym0 a0123456789876543210 = Foo3 a0123456789876543210 + type instance Apply Foo3Sym0 a0123456789876543210 = Foo3Sym1 a0123456789876543210 type Foo2Sym1 (a0123456789876543210 :: Maybe a0123456789876543210) = Foo2 a0123456789876543210 instance SuppressUnusedWarnings Foo2Sym0 where @@ -268,7 +268,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations Foo2Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo2Sym0 arg) (Foo2Sym1 arg) => Foo2Sym0 a0123456789876543210 - type instance Apply Foo2Sym0 a0123456789876543210 = Foo2 a0123456789876543210 + type instance Apply Foo2Sym0 a0123456789876543210 = Foo2Sym1 a0123456789876543210 type Foo1Sym1 (a0123456789876543210 :: Maybe a0123456789876543210) = Foo1 a0123456789876543210 instance SuppressUnusedWarnings Foo1Sym0 where @@ -279,7 +279,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations Foo1Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Foo1Sym0 arg) (Foo1Sym1 arg) => Foo1Sym0 a0123456789876543210 - type instance Apply Foo1Sym0 a0123456789876543210 = Foo1 a0123456789876543210 + type instance Apply Foo1Sym0 a0123456789876543210 = Foo1Sym1 a0123456789876543210 type GSym1 a0123456789876543210 = G a0123456789876543210 instance SuppressUnusedWarnings GSym0 where suppressUnusedWarnings = snd (((,) GSym0KindInference) ()) @@ -288,7 +288,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations GSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply GSym0 arg) (GSym1 arg) => GSym0 a0123456789876543210 - type instance Apply GSym0 a0123456789876543210 = G a0123456789876543210 + type instance Apply GSym0 a0123456789876543210 = GSym1 a0123456789876543210 type F3Sym1 a0123456789876543210 = F3 a0123456789876543210 instance SuppressUnusedWarnings F3Sym0 where suppressUnusedWarnings = snd (((,) F3Sym0KindInference) ()) @@ -297,7 +297,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations F3Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply F3Sym0 arg) (F3Sym1 arg) => F3Sym0 a0123456789876543210 - type instance Apply F3Sym0 a0123456789876543210 = F3 a0123456789876543210 + type instance Apply F3Sym0 a0123456789876543210 = F3Sym1 a0123456789876543210 type F2Sym1 a0123456789876543210 = F2 a0123456789876543210 instance SuppressUnusedWarnings F2Sym0 where suppressUnusedWarnings = snd (((,) F2Sym0KindInference) ()) @@ -306,7 +306,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations F2Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply F2Sym0 arg) (F2Sym1 arg) => F2Sym0 a0123456789876543210 - type instance Apply F2Sym0 a0123456789876543210 = F2 a0123456789876543210 + type instance Apply F2Sym0 a0123456789876543210 = F2Sym1 a0123456789876543210 type F1Sym1 a0123456789876543210 = F1 a0123456789876543210 instance SuppressUnusedWarnings F1Sym0 where suppressUnusedWarnings = snd (((,) F1Sym0KindInference) ()) @@ -315,7 +315,7 @@ Singletons/T183.hs:(0,0)-(0,0): Splicing declarations F1Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply F1Sym0 arg) (F1Sym1 arg) => F1Sym0 a0123456789876543210 - type instance Apply F1Sym0 a0123456789876543210 = F1 a0123456789876543210 + type instance Apply F1Sym0 a0123456789876543210 = F1Sym1 a0123456789876543210 type family Foo9 (a :: a) :: a where Foo9 (x :: a) = Apply (Apply (Let0123456789876543210GSym1 x) x) Tuple0Sym0 type family Foo8 (a :: Maybe a) :: Maybe a where diff --git a/tests/compile-and-dump/Singletons/T184.golden b/tests/compile-and-dump/Singletons/T184.golden index efa0eadb..56a30433 100644 --- a/tests/compile-and-dump/Singletons/T184.golden +++ b/tests/compile-and-dump/Singletons/T184.golden @@ -38,7 +38,7 @@ Singletons/T184.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym1 xs0123456789876543210) arg) (Lambda_0123456789876543210Sym2 xs0123456789876543210 arg) => Lambda_0123456789876543210Sym1 xs0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym1 xs0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 xs0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym1 xs0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym2 xs0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings Lambda_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym0KindInference) ()) @@ -63,7 +63,7 @@ Singletons/T184.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym3 x0123456789876543210 xs0123456789876543210 ys0123456789876543210) arg) (Lambda_0123456789876543210Sym4 x0123456789876543210 xs0123456789876543210 ys0123456789876543210 arg) => Lambda_0123456789876543210Sym3 x0123456789876543210 xs0123456789876543210 ys0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym3 ys0123456789876543210 xs0123456789876543210 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 ys0123456789876543210 xs0123456789876543210 x0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym3 ys0123456789876543210 xs0123456789876543210 x0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym4 ys0123456789876543210 xs0123456789876543210 x0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym2 xs0123456789876543210 x0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym2KindInference) ()) @@ -108,7 +108,7 @@ Singletons/T184.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 xs0123456789876543210 ys0123456789876543210) arg) (Lambda_0123456789876543210Sym3 xs0123456789876543210 ys0123456789876543210 arg) => Lambda_0123456789876543210Sym2 xs0123456789876543210 ys0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 ys0123456789876543210 xs0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 ys0123456789876543210 xs0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 ys0123456789876543210 xs0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 ys0123456789876543210 xs0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 xs0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -142,7 +142,7 @@ Singletons/T184.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 xs0123456789876543210 ys0123456789876543210) arg) (Lambda_0123456789876543210Sym3 xs0123456789876543210 ys0123456789876543210 arg) => Lambda_0123456789876543210Sym2 xs0123456789876543210 ys0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 ys0123456789876543210 xs0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 ys0123456789876543210 xs0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 ys0123456789876543210 xs0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 ys0123456789876543210 xs0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 xs0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -176,7 +176,7 @@ Singletons/T184.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 xs0123456789876543210 ys0123456789876543210) arg) (Lambda_0123456789876543210Sym3 xs0123456789876543210 ys0123456789876543210 arg) => Lambda_0123456789876543210Sym2 xs0123456789876543210 ys0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 ys0123456789876543210 xs0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 ys0123456789876543210 xs0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 ys0123456789876543210 xs0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 ys0123456789876543210 xs0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 xs0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -213,7 +213,7 @@ Singletons/T184.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 xs0123456789876543210 ys0123456789876543210) arg) (Lambda_0123456789876543210Sym3 xs0123456789876543210 ys0123456789876543210 arg) => Lambda_0123456789876543210Sym2 xs0123456789876543210 ys0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 ys0123456789876543210 xs0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 ys0123456789876543210 xs0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 ys0123456789876543210 xs0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 ys0123456789876543210 xs0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 xs0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -248,7 +248,7 @@ Singletons/T184.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym3 a0123456789876543210 ma0123456789876543210 mb0123456789876543210) arg) (Lambda_0123456789876543210Sym4 a0123456789876543210 ma0123456789876543210 mb0123456789876543210 arg) => Lambda_0123456789876543210Sym3 a0123456789876543210 ma0123456789876543210 mb0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym3 mb0123456789876543210 ma0123456789876543210 a0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 mb0123456789876543210 ma0123456789876543210 a0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym3 mb0123456789876543210 ma0123456789876543210 a0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym4 mb0123456789876543210 ma0123456789876543210 a0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym2 ma0123456789876543210 a0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym2KindInference) ()) @@ -293,7 +293,7 @@ Singletons/T184.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 ma0123456789876543210 mb0123456789876543210) arg) (Lambda_0123456789876543210Sym3 ma0123456789876543210 mb0123456789876543210 arg) => Lambda_0123456789876543210Sym2 ma0123456789876543210 mb0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 mb0123456789876543210 ma0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 mb0123456789876543210 ma0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 mb0123456789876543210 ma0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 mb0123456789876543210 ma0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 ma0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -322,7 +322,7 @@ Singletons/T184.hs:(0,0)-(0,0): Splicing declarations TruesSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply TruesSym0 arg) (TruesSym1 arg) => TruesSym0 a0123456789876543210 - type instance Apply TruesSym0 a0123456789876543210 = Trues a0123456789876543210 + type instance Apply TruesSym0 a0123456789876543210 = TruesSym1 a0123456789876543210 type CartProdSym2 (a0123456789876543210 :: [a0123456789876543210]) (a0123456789876543210 :: [b0123456789876543210]) = CartProd a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (CartProdSym1 a0123456789876543210) where @@ -335,7 +335,7 @@ Singletons/T184.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (CartProdSym1 a0123456789876543210) arg) (CartProdSym2 a0123456789876543210 arg) => CartProdSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (CartProdSym1 a0123456789876543210) a0123456789876543210 = CartProd a0123456789876543210 a0123456789876543210 + type instance Apply (CartProdSym1 a0123456789876543210) a0123456789876543210 = CartProdSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings CartProdSym0 where suppressUnusedWarnings = snd (((,) CartProdSym0KindInference) ()) data CartProdSym0 :: forall a0123456789876543210 @@ -359,7 +359,7 @@ Singletons/T184.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Zip'Sym1 a0123456789876543210) arg) (Zip'Sym2 a0123456789876543210 arg) => Zip'Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Zip'Sym1 a0123456789876543210) a0123456789876543210 = Zip' a0123456789876543210 a0123456789876543210 + type instance Apply (Zip'Sym1 a0123456789876543210) a0123456789876543210 = Zip'Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Zip'Sym0 where suppressUnusedWarnings = snd (((,) Zip'Sym0KindInference) ()) data Zip'Sym0 :: forall a0123456789876543210 b0123456789876543210. @@ -380,7 +380,7 @@ Singletons/T184.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (BoogieSym1 a0123456789876543210) arg) (BoogieSym2 a0123456789876543210 arg) => BoogieSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (BoogieSym1 a0123456789876543210) a0123456789876543210 = Boogie a0123456789876543210 a0123456789876543210 + type instance Apply (BoogieSym1 a0123456789876543210) a0123456789876543210 = BoogieSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings BoogieSym0 where suppressUnusedWarnings = snd (((,) BoogieSym0KindInference) ()) data BoogieSym0 :: forall a0123456789876543210. diff --git a/tests/compile-and-dump/Singletons/T187.golden b/tests/compile-and-dump/Singletons/T187.golden index 602efe59..c76c4fb7 100644 --- a/tests/compile-and-dump/Singletons/T187.golden +++ b/tests/compile-and-dump/Singletons/T187.golden @@ -21,7 +21,7 @@ Singletons/T187.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Compare_0123456789876543210Sym1 a0123456789876543210) arg) (Compare_0123456789876543210Sym2 a0123456789876543210 arg) => Compare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Compare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Compare_0123456789876543210Sym0KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/T190.golden b/tests/compile-and-dump/Singletons/T190.golden index f420ecb2..2e355088 100644 --- a/tests/compile-and-dump/Singletons/T190.golden +++ b/tests/compile-and-dump/Singletons/T190.golden @@ -21,7 +21,7 @@ Singletons/T190.hs:0:0:: Splicing declarations a0123456789876543210 arg. SameKind (Apply (Compare_0123456789876543210Sym1 a0123456789876543210) arg) (Compare_0123456789876543210Sym2 a0123456789876543210 arg) => Compare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Compare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Compare_0123456789876543210Sym0KindInference) ()) @@ -48,7 +48,7 @@ Singletons/T190.hs:0:0:: Splicing declarations ToEnum_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply ToEnum_0123456789876543210Sym0 arg) (ToEnum_0123456789876543210Sym1 arg) => ToEnum_0123456789876543210Sym0 a0123456789876543210 - type instance Apply ToEnum_0123456789876543210Sym0 a0123456789876543210 = ToEnum_0123456789876543210 a0123456789876543210 + type instance Apply ToEnum_0123456789876543210Sym0 a0123456789876543210 = ToEnum_0123456789876543210Sym1 a0123456789876543210 type family FromEnum_0123456789876543210 (a :: T) :: GHC.Types.Nat where FromEnum_0123456789876543210 T = Data.Singletons.Prelude.Num.FromInteger 0 type FromEnum_0123456789876543210Sym1 (a0123456789876543210 :: T) = @@ -61,7 +61,7 @@ Singletons/T190.hs:0:0:: Splicing declarations FromEnum_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply FromEnum_0123456789876543210Sym0 arg) (FromEnum_0123456789876543210Sym1 arg) => FromEnum_0123456789876543210Sym0 a0123456789876543210 - type instance Apply FromEnum_0123456789876543210Sym0 a0123456789876543210 = FromEnum_0123456789876543210 a0123456789876543210 + type instance Apply FromEnum_0123456789876543210Sym0 a0123456789876543210 = FromEnum_0123456789876543210Sym1 a0123456789876543210 instance PEnum T where type ToEnum a = Apply ToEnum_0123456789876543210Sym0 a type FromEnum a = Apply FromEnum_0123456789876543210Sym0 a @@ -90,7 +90,7 @@ Singletons/T190.hs:0:0:: Splicing declarations a0123456789876543210 arg. SameKind (Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ShowsPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ShowsPrec_0123456789876543210Sym1KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/T197.golden b/tests/compile-and-dump/Singletons/T197.golden index 0952cbf4..442b1bca 100644 --- a/tests/compile-and-dump/Singletons/T197.golden +++ b/tests/compile-and-dump/Singletons/T197.golden @@ -19,7 +19,7 @@ Singletons/T197.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (($$:@#@$$) a0123456789876543210) arg) (($$:@#@$$$) a0123456789876543210 arg) => ($$:@#@$$) a0123456789876543210 a0123456789876543210 - type instance Apply (($$:@#@$$) a0123456789876543210) a0123456789876543210 = ($$:) a0123456789876543210 a0123456789876543210 + type instance Apply (($$:@#@$$) a0123456789876543210) a0123456789876543210 = ($$:@#@$$$) a0123456789876543210 a0123456789876543210 infixl 5 $$:@#@$$ instance SuppressUnusedWarnings ($$:@#@$) where suppressUnusedWarnings = snd (((,) (:$$:@#@$###)) ()) diff --git a/tests/compile-and-dump/Singletons/T197b.golden b/tests/compile-and-dump/Singletons/T197b.golden index 0579c467..c735918d 100644 --- a/tests/compile-and-dump/Singletons/T197b.golden +++ b/tests/compile-and-dump/Singletons/T197b.golden @@ -20,7 +20,7 @@ Singletons/T197b.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply ((:*:@#@$$) t0123456789876543210) arg) ((:*:@#@$$$) t0123456789876543210 arg) => (:*:@#@$$) t0123456789876543210 t0123456789876543210 - type instance Apply ((:*:@#@$$) t0123456789876543210) t0123456789876543210 = (:*:) t0123456789876543210 t0123456789876543210 + type instance Apply ((:*:@#@$$) t0123456789876543210) t0123456789876543210 = (:*:@#@$$$) t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (:*:@#@$) where suppressUnusedWarnings = snd (((,) (::*:@#@$###)) ()) data (:*:@#@$) :: forall a0123456789876543210 b0123456789876543210. @@ -42,7 +42,7 @@ Singletons/T197b.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (MkPairSym1 t0123456789876543210) arg) (MkPairSym2 t0123456789876543210 arg) => MkPairSym1 t0123456789876543210 t0123456789876543210 - type instance Apply (MkPairSym1 t0123456789876543210) t0123456789876543210 = MkPair t0123456789876543210 t0123456789876543210 + type instance Apply (MkPairSym1 t0123456789876543210) t0123456789876543210 = MkPairSym2 t0123456789876543210 t0123456789876543210 infixr 9 `MkPairSym1` instance SuppressUnusedWarnings MkPairSym0 where suppressUnusedWarnings = snd (((,) MkPairSym0KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/T200.golden b/tests/compile-and-dump/Singletons/T200.golden index 83c7f6d1..93a8f815 100644 --- a/tests/compile-and-dump/Singletons/T200.golden +++ b/tests/compile-and-dump/Singletons/T200.golden @@ -28,7 +28,7 @@ Singletons/T200.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply ((:$$:@#@$$) t0123456789876543210) arg) ((:$$:@#@$$$) t0123456789876543210 arg) => (:$$:@#@$$) t0123456789876543210 t0123456789876543210 - type instance Apply ((:$$:@#@$$) t0123456789876543210) t0123456789876543210 = (:$$:) t0123456789876543210 t0123456789876543210 + type instance Apply ((:$$:@#@$$) t0123456789876543210) t0123456789876543210 = (:$$:@#@$$$) t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (:$$:@#@$) where suppressUnusedWarnings = snd (((,) (::$$:@#@$###)) ()) data (:$$:@#@$) :: (~>) ErrorMessage ((~>) ErrorMessage ErrorMessage) @@ -47,7 +47,7 @@ Singletons/T200.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply ((:<>:@#@$$) t0123456789876543210) arg) ((:<>:@#@$$$) t0123456789876543210 arg) => (:<>:@#@$$) t0123456789876543210 t0123456789876543210 - type instance Apply ((:<>:@#@$$) t0123456789876543210) t0123456789876543210 = (:<>:) t0123456789876543210 t0123456789876543210 + type instance Apply ((:<>:@#@$$) t0123456789876543210) t0123456789876543210 = (:<>:@#@$$$) t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (:<>:@#@$) where suppressUnusedWarnings = snd (((,) (::<>:@#@$###)) ()) data (:<>:@#@$) :: (~>) ErrorMessage ((~>) ErrorMessage ErrorMessage) @@ -65,7 +65,7 @@ Singletons/T200.hs:(0,0)-(0,0): Splicing declarations EMSym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply EMSym0 arg) (EMSym1 arg) => EMSym0 t0123456789876543210 - type instance Apply EMSym0 t0123456789876543210 = EM t0123456789876543210 + type instance Apply EMSym0 t0123456789876543210 = EMSym1 t0123456789876543210 type (<>:@#@$$$) (a0123456789876543210 :: ErrorMessage) (a0123456789876543210 :: ErrorMessage) = (<>:) a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings ((<>:@#@$$) a0123456789876543210) where @@ -76,7 +76,7 @@ Singletons/T200.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply ((<>:@#@$$) a0123456789876543210) arg) ((<>:@#@$$$) a0123456789876543210 arg) => (<>:@#@$$) a0123456789876543210 a0123456789876543210 - type instance Apply ((<>:@#@$$) a0123456789876543210) a0123456789876543210 = (<>:) a0123456789876543210 a0123456789876543210 + type instance Apply ((<>:@#@$$) a0123456789876543210) a0123456789876543210 = (<>:@#@$$$) a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (<>:@#@$) where suppressUnusedWarnings = snd (((,) (:<>:@#@$###)) ()) data (<>:@#@$) :: (~>) ErrorMessage ((~>) ErrorMessage ErrorMessage) @@ -95,7 +95,7 @@ Singletons/T200.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (($$:@#@$$) a0123456789876543210) arg) (($$:@#@$$$) a0123456789876543210 arg) => ($$:@#@$$) a0123456789876543210 a0123456789876543210 - type instance Apply (($$:@#@$$) a0123456789876543210) a0123456789876543210 = ($$:) a0123456789876543210 a0123456789876543210 + type instance Apply (($$:@#@$$) a0123456789876543210) a0123456789876543210 = ($$:@#@$$$) a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings ($$:@#@$) where suppressUnusedWarnings = snd (((,) (:$$:@#@$###)) ()) data ($$:@#@$) :: (~>) ErrorMessage ((~>) ErrorMessage ErrorMessage) diff --git a/tests/compile-and-dump/Singletons/T209.golden b/tests/compile-and-dump/Singletons/T209.golden index ea5a8e58..d687a86b 100644 --- a/tests/compile-and-dump/Singletons/T209.golden +++ b/tests/compile-and-dump/Singletons/T209.golden @@ -29,7 +29,7 @@ Singletons/T209.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (MSym2 a0123456789876543210 a0123456789876543210) arg) (MSym3 a0123456789876543210 a0123456789876543210 arg) => MSym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (MSym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = M a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (MSym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = MSym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (MSym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) MSym1KindInference) ()) data MSym1 (a0123456789876543210 :: a0123456789876543210) :: forall b0123456789876543210. diff --git a/tests/compile-and-dump/Singletons/T216.golden b/tests/compile-and-dump/Singletons/T216.golden index 379146c2..ac9042a0 100644 --- a/tests/compile-and-dump/Singletons/T216.golden +++ b/tests/compile-and-dump/Singletons/T216.golden @@ -11,7 +11,7 @@ Singletons/T216.hs:0:0:: Splicing declarations a0123456789876543210 arg. SameKind (Apply (MyProxySym1 k0123456789876543210) arg) (MyProxySym2 k0123456789876543210 arg) => MyProxySym1 k0123456789876543210 a0123456789876543210 - type instance Apply (MyProxySym1 k0123456789876543210) a0123456789876543210 = MyProxy k0123456789876543210 a0123456789876543210 + type instance Apply (MyProxySym1 k0123456789876543210) a0123456789876543210 = MyProxySym2 k0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings MyProxySym0 where suppressUnusedWarnings = snd (((,) MyProxySym0KindInference) ()) data MyProxySym0 :: forall (k0123456789876543210 :: Type). @@ -32,7 +32,7 @@ Singletons/T216.hs:0:0:: Splicing declarations e0123456789876543210 arg. SameKind (Apply (SymmetrySym2 a0123456789876543210 y0123456789876543210) arg) (SymmetrySym3 a0123456789876543210 y0123456789876543210 arg) => SymmetrySym2 a0123456789876543210 y0123456789876543210 e0123456789876543210 - type instance Apply (SymmetrySym2 y0123456789876543210 a0123456789876543210) e0123456789876543210 = Symmetry y0123456789876543210 a0123456789876543210 e0123456789876543210 + type instance Apply (SymmetrySym2 y0123456789876543210 a0123456789876543210) e0123456789876543210 = SymmetrySym3 y0123456789876543210 a0123456789876543210 e0123456789876543210 instance SuppressUnusedWarnings (SymmetrySym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) SymmetrySym1KindInference) ()) data SymmetrySym1 (a0123456789876543210 :: t0123456789876543210) :: forall (y0123456789876543210 :: t0123456789876543210). diff --git a/tests/compile-and-dump/Singletons/T229.golden b/tests/compile-and-dump/Singletons/T229.golden index 8c6da34e..779f327c 100644 --- a/tests/compile-and-dump/Singletons/T229.golden +++ b/tests/compile-and-dump/Singletons/T229.golden @@ -14,7 +14,7 @@ Singletons/T229.hs:(0,0)-(0,0): Splicing declarations US___fooSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply US___fooSym0 arg) (US___fooSym1 arg) => US___fooSym0 a0123456789876543210 - type instance Apply US___fooSym0 a0123456789876543210 = US___foo a0123456789876543210 + type instance Apply US___fooSym0 a0123456789876543210 = US___fooSym1 a0123456789876543210 type family US___foo (a :: Bool) :: Bool where US___foo _ = TrueSym0 ___sfoo :: diff --git a/tests/compile-and-dump/Singletons/T249.golden b/tests/compile-and-dump/Singletons/T249.golden index 5fb03d18..66dd777a 100644 --- a/tests/compile-and-dump/Singletons/T249.golden +++ b/tests/compile-and-dump/Singletons/T249.golden @@ -17,7 +17,7 @@ Singletons/T249.hs:(0,0)-(0,0): Splicing declarations MkFoo1Sym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply MkFoo1Sym0 arg) (MkFoo1Sym1 arg) => MkFoo1Sym0 t0123456789876543210 - type instance Apply MkFoo1Sym0 t0123456789876543210 = MkFoo1 t0123456789876543210 + type instance Apply MkFoo1Sym0 t0123456789876543210 = MkFoo1Sym1 t0123456789876543210 type MkFoo2Sym1 (t0123456789876543210 :: x0123456789876543210) = MkFoo2 t0123456789876543210 instance SuppressUnusedWarnings MkFoo2Sym0 where @@ -28,7 +28,7 @@ Singletons/T249.hs:(0,0)-(0,0): Splicing declarations MkFoo2Sym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply MkFoo2Sym0 arg) (MkFoo2Sym1 arg) => MkFoo2Sym0 t0123456789876543210 - type instance Apply MkFoo2Sym0 t0123456789876543210 = MkFoo2 t0123456789876543210 + type instance Apply MkFoo2Sym0 t0123456789876543210 = MkFoo2Sym1 t0123456789876543210 type MkFoo3Sym1 (t0123456789876543210 :: x0123456789876543210) = MkFoo3 t0123456789876543210 instance SuppressUnusedWarnings MkFoo3Sym0 where @@ -39,7 +39,7 @@ Singletons/T249.hs:(0,0)-(0,0): Splicing declarations MkFoo3Sym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply MkFoo3Sym0 arg) (MkFoo3Sym1 arg) => MkFoo3Sym0 t0123456789876543210 - type instance Apply MkFoo3Sym0 t0123456789876543210 = MkFoo3 t0123456789876543210 + type instance Apply MkFoo3Sym0 t0123456789876543210 = MkFoo3Sym1 t0123456789876543210 data SFoo1 :: forall a. Foo1 a -> Type where SMkFoo1 :: forall a (n :: a). diff --git a/tests/compile-and-dump/Singletons/T271.golden b/tests/compile-and-dump/Singletons/T271.golden index 720e9c80..a0488327 100644 --- a/tests/compile-and-dump/Singletons/T271.golden +++ b/tests/compile-and-dump/Singletons/T271.golden @@ -24,7 +24,7 @@ Singletons/T271.hs:(0,0)-(0,0): Splicing declarations ConstantSym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply ConstantSym0 arg) (ConstantSym1 arg) => ConstantSym0 t0123456789876543210 - type instance Apply ConstantSym0 t0123456789876543210 = Constant t0123456789876543210 + type instance Apply ConstantSym0 t0123456789876543210 = ConstantSym1 t0123456789876543210 type IdentitySym1 (t0123456789876543210 :: a0123456789876543210) = Identity t0123456789876543210 instance SuppressUnusedWarnings IdentitySym0 where @@ -35,7 +35,7 @@ Singletons/T271.hs:(0,0)-(0,0): Splicing declarations IdentitySym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply IdentitySym0 arg) (IdentitySym1 arg) => IdentitySym0 t0123456789876543210 - type instance Apply IdentitySym0 t0123456789876543210 = Identity t0123456789876543210 + type instance Apply IdentitySym0 t0123456789876543210 = IdentitySym1 t0123456789876543210 type family Compare_0123456789876543210 (a :: Constant a b) (a :: Constant a b) :: Ordering where Compare_0123456789876543210 (Constant a_0123456789876543210) (Constant b_0123456789876543210) = Apply (Apply (Apply FoldlSym0 ThenCmpSym0) EQSym0) (Apply (Apply (:@#@$) (Apply (Apply CompareSym0 a_0123456789876543210) b_0123456789876543210)) '[]) type Compare_0123456789876543210Sym2 (a0123456789876543210 :: Constant a0123456789876543210 b0123456789876543210) (a0123456789876543210 :: Constant a0123456789876543210 b0123456789876543210) = @@ -49,7 +49,7 @@ Singletons/T271.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Compare_0123456789876543210Sym1 a0123456789876543210) arg) (Compare_0123456789876543210Sym2 a0123456789876543210 arg) => Compare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Compare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Compare_0123456789876543210Sym0KindInference) ()) @@ -76,7 +76,7 @@ Singletons/T271.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Compare_0123456789876543210Sym1 a0123456789876543210) arg) (Compare_0123456789876543210Sym2 a0123456789876543210 arg) => Compare_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Compare_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Compare_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Compare_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Compare_0123456789876543210Sym0KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/T287.golden b/tests/compile-and-dump/Singletons/T287.golden index e9c5fd22..8b28c6f2 100644 --- a/tests/compile-and-dump/Singletons/T287.golden +++ b/tests/compile-and-dump/Singletons/T287.golden @@ -20,7 +20,7 @@ Singletons/T287.hs:(0,0)-(0,0): Splicing declarations arg0123456789876543210 arg. SameKind (Apply ((<<>>@#@$$) arg0123456789876543210) arg) ((<<>>@#@$$$) arg0123456789876543210 arg) => (<<>>@#@$$) arg0123456789876543210 arg0123456789876543210 - type instance Apply ((<<>>@#@$$) arg0123456789876543210) arg0123456789876543210 = (<<>>) arg0123456789876543210 arg0123456789876543210 + type instance Apply ((<<>>@#@$$) arg0123456789876543210) arg0123456789876543210 = (<<>>@#@$$$) arg0123456789876543210 arg0123456789876543210 instance SuppressUnusedWarnings (<<>>@#@$) where suppressUnusedWarnings = snd (((,) (:<<>>@#@$###)) ()) data (<<>>@#@$) :: forall a0123456789876543210. @@ -46,7 +46,7 @@ Singletons/T287.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (Lambda_0123456789876543210Sym2 f0123456789876543210 g0123456789876543210) arg) (Lambda_0123456789876543210Sym3 f0123456789876543210 g0123456789876543210 arg) => Lambda_0123456789876543210Sym2 f0123456789876543210 g0123456789876543210 t0123456789876543210 - type instance Apply (Lambda_0123456789876543210Sym2 g0123456789876543210 f0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210 g0123456789876543210 f0123456789876543210 t0123456789876543210 + type instance Apply (Lambda_0123456789876543210Sym2 g0123456789876543210 f0123456789876543210) t0123456789876543210 = Lambda_0123456789876543210Sym3 g0123456789876543210 f0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings (Lambda_0123456789876543210Sym1 f0123456789876543210) where suppressUnusedWarnings = snd (((,) Lambda_0123456789876543210Sym1KindInference) ()) @@ -79,7 +79,7 @@ Singletons/T287.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (TFHelper_0123456789876543210Sym1 a0123456789876543210) arg) (TFHelper_0123456789876543210Sym2 a0123456789876543210 arg) => TFHelper_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (TFHelper_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = TFHelper_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (TFHelper_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = TFHelper_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings TFHelper_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) TFHelper_0123456789876543210Sym0KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/T29.golden b/tests/compile-and-dump/Singletons/T29.golden index 911071d4..9688b8ee 100644 --- a/tests/compile-and-dump/Singletons/T29.golden +++ b/tests/compile-and-dump/Singletons/T29.golden @@ -26,7 +26,7 @@ Singletons/T29.hs:(0,0)-(0,0): Splicing declarations BanSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply BanSym0 arg) (BanSym1 arg) => BanSym0 a0123456789876543210 - type instance Apply BanSym0 a0123456789876543210 = Ban a0123456789876543210 + type instance Apply BanSym0 a0123456789876543210 = BanSym1 a0123456789876543210 type BazSym1 (a0123456789876543210 :: Bool) = Baz a0123456789876543210 instance SuppressUnusedWarnings BazSym0 where @@ -36,7 +36,7 @@ Singletons/T29.hs:(0,0)-(0,0): Splicing declarations BazSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply BazSym0 arg) (BazSym1 arg) => BazSym0 a0123456789876543210 - type instance Apply BazSym0 a0123456789876543210 = Baz a0123456789876543210 + type instance Apply BazSym0 a0123456789876543210 = BazSym1 a0123456789876543210 type BarSym1 (a0123456789876543210 :: Bool) = Bar a0123456789876543210 instance SuppressUnusedWarnings BarSym0 where @@ -46,7 +46,7 @@ Singletons/T29.hs:(0,0)-(0,0): Splicing declarations BarSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply BarSym0 arg) (BarSym1 arg) => BarSym0 a0123456789876543210 - type instance Apply BarSym0 a0123456789876543210 = Bar a0123456789876543210 + type instance Apply BarSym0 a0123456789876543210 = BarSym1 a0123456789876543210 type FooSym1 (a0123456789876543210 :: Bool) = Foo a0123456789876543210 instance SuppressUnusedWarnings FooSym0 where @@ -56,7 +56,7 @@ Singletons/T29.hs:(0,0)-(0,0): Splicing declarations FooSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply FooSym0 arg) (FooSym1 arg) => FooSym0 a0123456789876543210 - type instance Apply FooSym0 a0123456789876543210 = Foo a0123456789876543210 + type instance Apply FooSym0 a0123456789876543210 = FooSym1 a0123456789876543210 type family Ban (a :: Bool) :: Bool where Ban x = Apply (Apply ($!@#@$) (Apply (Apply (.@#@$) NotSym0) (Apply (Apply (.@#@$) NotSym0) NotSym0))) x type family Baz (a :: Bool) :: Bool where diff --git a/tests/compile-and-dump/Singletons/T297.golden b/tests/compile-and-dump/Singletons/T297.golden index ce74f201..44185dca 100644 --- a/tests/compile-and-dump/Singletons/T297.golden +++ b/tests/compile-and-dump/Singletons/T297.golden @@ -33,7 +33,7 @@ Singletons/T297.hs:(0,0)-(0,0): Splicing declarations FSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply FSym0 arg) (FSym1 arg) => FSym0 a0123456789876543210 - type instance Apply FSym0 a0123456789876543210 = F a0123456789876543210 + type instance Apply FSym0 a0123456789876543210 = FSym1 a0123456789876543210 type family F a where F MyProxy = Let0123456789876543210XSym0 sF :: forall arg. Sing arg -> Sing (Apply FSym0 arg) diff --git a/tests/compile-and-dump/Singletons/T312.golden b/tests/compile-and-dump/Singletons/T312.golden index 4ec11793..967be6fa 100644 --- a/tests/compile-and-dump/Singletons/T312.golden +++ b/tests/compile-and-dump/Singletons/T312.golden @@ -30,7 +30,7 @@ Singletons/T312.hs:(0,0)-(0,0): Splicing declarations arg0123456789876543210 arg. SameKind (Apply (BarSym1 arg0123456789876543210) arg) (BarSym2 arg0123456789876543210 arg) => BarSym1 arg0123456789876543210 arg0123456789876543210 - type instance Apply (BarSym1 arg0123456789876543210) arg0123456789876543210 = Bar arg0123456789876543210 arg0123456789876543210 + type instance Apply (BarSym1 arg0123456789876543210) arg0123456789876543210 = BarSym2 arg0123456789876543210 arg0123456789876543210 instance SuppressUnusedWarnings BarSym0 where suppressUnusedWarnings = snd (((,) BarSym0KindInference) ()) data BarSym0 :: forall a0123456789876543210 b0123456789876543210. @@ -51,7 +51,7 @@ Singletons/T312.hs:(0,0)-(0,0): Splicing declarations arg0123456789876543210 arg. SameKind (Apply (BazSym1 arg0123456789876543210) arg) (BazSym2 arg0123456789876543210 arg) => BazSym1 arg0123456789876543210 arg0123456789876543210 - type instance Apply (BazSym1 arg0123456789876543210) arg0123456789876543210 = Baz arg0123456789876543210 arg0123456789876543210 + type instance Apply (BazSym1 arg0123456789876543210) arg0123456789876543210 = BazSym2 arg0123456789876543210 arg0123456789876543210 instance SuppressUnusedWarnings BazSym0 where suppressUnusedWarnings = snd (((,) BazSym0KindInference) ()) data BazSym0 :: forall a0123456789876543210 b0123456789876543210. @@ -75,7 +75,7 @@ Singletons/T312.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Bar_0123456789876543210Sym1 a0123456789876543210) arg) (Bar_0123456789876543210Sym2 a0123456789876543210 arg) => Bar_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Bar_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Bar_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Bar_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Bar_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Bar_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Bar_0123456789876543210Sym0KindInference) ()) @@ -101,7 +101,7 @@ Singletons/T312.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Let0123456789876543210HSym3 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a0123456789876543210) arg) (Let0123456789876543210HSym4 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a0123456789876543210 arg) => Let0123456789876543210HSym3 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (Let0123456789876543210HSym3 a0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) a0123456789876543210 = Let0123456789876543210H a0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a0123456789876543210 + type instance Apply (Let0123456789876543210HSym3 a0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) a0123456789876543210 = Let0123456789876543210HSym4 a0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (Let0123456789876543210HSym2 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) where suppressUnusedWarnings = snd (((,) Let0123456789876543210HSym2KindInference) ()) @@ -150,7 +150,7 @@ Singletons/T312.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Baz_0123456789876543210Sym1 a0123456789876543210) arg) (Baz_0123456789876543210Sym2 a0123456789876543210 arg) => Baz_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Baz_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Baz_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Baz_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Baz_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings Baz_0123456789876543210Sym0 where suppressUnusedWarnings = snd (((,) Baz_0123456789876543210Sym0KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/T313.golden b/tests/compile-and-dump/Singletons/T313.golden index bdb4c837..4859deb1 100644 --- a/tests/compile-and-dump/Singletons/T313.golden +++ b/tests/compile-and-dump/Singletons/T313.golden @@ -30,7 +30,7 @@ Singletons/T313.hs:(0,0)-(0,0): Splicing declarations PFoo1Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply PFoo1Sym0 arg) (PFoo1Sym1 arg) => PFoo1Sym0 a0123456789876543210 - type instance Apply PFoo1Sym0 a0123456789876543210 = PFoo1 a0123456789876543210 + type instance Apply PFoo1Sym0 a0123456789876543210 = PFoo1Sym1 a0123456789876543210 type PFoo3Sym1 a0123456789876543210 = PFoo3 a0123456789876543210 instance SuppressUnusedWarnings PFoo3Sym0 where suppressUnusedWarnings = snd (((,) PFoo3Sym0KindInference) ()) @@ -39,7 +39,7 @@ Singletons/T313.hs:(0,0)-(0,0): Splicing declarations PFoo3Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply PFoo3Sym0 arg) (PFoo3Sym1 arg) => PFoo3Sym0 a0123456789876543210 - type instance Apply PFoo3Sym0 a0123456789876543210 = PFoo3 a0123456789876543210 + type instance Apply PFoo3Sym0 a0123456789876543210 = PFoo3Sym1 a0123456789876543210 type PFoo2Sym1 (a0123456789876543210 :: Type) = PFoo2 a0123456789876543210 instance SuppressUnusedWarnings PFoo2Sym0 where @@ -49,7 +49,7 @@ Singletons/T313.hs:(0,0)-(0,0): Splicing declarations PFoo2Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply PFoo2Sym0 arg) (PFoo2Sym1 arg) => PFoo2Sym0 a0123456789876543210 - type instance Apply PFoo2Sym0 a0123456789876543210 = PFoo2 a0123456789876543210 + type instance Apply PFoo2Sym0 a0123456789876543210 = PFoo2Sym1 a0123456789876543210 type PFoo4Sym1 (a0123456789876543210 :: Type) = PFoo4 a0123456789876543210 instance SuppressUnusedWarnings PFoo4Sym0 where @@ -59,7 +59,7 @@ Singletons/T313.hs:(0,0)-(0,0): Splicing declarations PFoo4Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply PFoo4Sym0 arg) (PFoo4Sym1 arg) => PFoo4Sym0 a0123456789876543210 - type instance Apply PFoo4Sym0 a0123456789876543210 = PFoo4 a0123456789876543210 + type instance Apply PFoo4Sym0 a0123456789876543210 = PFoo4Sym1 a0123456789876543210 class PPC (a :: Type) instance PPC a Singletons/T313.hs:(0,0)-(0,0): Splicing declarations @@ -94,7 +94,7 @@ Singletons/T313.hs:(0,0)-(0,0): Splicing declarations SFoo1Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply SFoo1Sym0 arg) (SFoo1Sym1 arg) => SFoo1Sym0 a0123456789876543210 - type instance Apply SFoo1Sym0 a0123456789876543210 = SFoo1 a0123456789876543210 + type instance Apply SFoo1Sym0 a0123456789876543210 = SFoo1Sym1 a0123456789876543210 type SFoo3Sym1 a0123456789876543210 = SFoo3 a0123456789876543210 instance SuppressUnusedWarnings SFoo3Sym0 where suppressUnusedWarnings = snd (((,) SFoo3Sym0KindInference) ()) @@ -103,7 +103,7 @@ Singletons/T313.hs:(0,0)-(0,0): Splicing declarations SFoo3Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply SFoo3Sym0 arg) (SFoo3Sym1 arg) => SFoo3Sym0 a0123456789876543210 - type instance Apply SFoo3Sym0 a0123456789876543210 = SFoo3 a0123456789876543210 + type instance Apply SFoo3Sym0 a0123456789876543210 = SFoo3Sym1 a0123456789876543210 type SFoo2Sym1 (a0123456789876543210 :: Type) = SFoo2 a0123456789876543210 instance SuppressUnusedWarnings SFoo2Sym0 where @@ -113,7 +113,7 @@ Singletons/T313.hs:(0,0)-(0,0): Splicing declarations SFoo2Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply SFoo2Sym0 arg) (SFoo2Sym1 arg) => SFoo2Sym0 a0123456789876543210 - type instance Apply SFoo2Sym0 a0123456789876543210 = SFoo2 a0123456789876543210 + type instance Apply SFoo2Sym0 a0123456789876543210 = SFoo2Sym1 a0123456789876543210 type SFoo4Sym1 (a0123456789876543210 :: Type) = SFoo4 a0123456789876543210 instance SuppressUnusedWarnings SFoo4Sym0 where @@ -123,7 +123,7 @@ Singletons/T313.hs:(0,0)-(0,0): Splicing declarations SFoo4Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply SFoo4Sym0 arg) (SFoo4Sym1 arg) => SFoo4Sym0 a0123456789876543210 - type instance Apply SFoo4Sym0 a0123456789876543210 = SFoo4 a0123456789876543210 + type instance Apply SFoo4Sym0 a0123456789876543210 = SFoo4Sym1 a0123456789876543210 class PSC (a :: Type) instance PSC a class SSC (a :: Type) diff --git a/tests/compile-and-dump/Singletons/T316.golden b/tests/compile-and-dump/Singletons/T316.golden index 875ded91..f9bbe3d5 100644 --- a/tests/compile-and-dump/Singletons/T316.golden +++ b/tests/compile-and-dump/Singletons/T316.golden @@ -15,7 +15,7 @@ Singletons/T316.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ReplaceAllGTypesSym2 a0123456789876543210 a0123456789876543210) arg) (ReplaceAllGTypesSym3 a0123456789876543210 a0123456789876543210 arg) => ReplaceAllGTypesSym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ReplaceAllGTypesSym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ReplaceAllGTypes a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ReplaceAllGTypesSym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ReplaceAllGTypesSym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ReplaceAllGTypesSym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ReplaceAllGTypesSym1KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/T322.golden b/tests/compile-and-dump/Singletons/T322.golden index dda8f4fd..c3985dca 100644 --- a/tests/compile-and-dump/Singletons/T322.golden +++ b/tests/compile-and-dump/Singletons/T322.golden @@ -19,7 +19,7 @@ Singletons/T322.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply ((!@#@$$) a0123456789876543210) arg) ((!@#@$$$) a0123456789876543210 arg) => (!@#@$$) a0123456789876543210 a0123456789876543210 - type instance Apply ((!@#@$$) a0123456789876543210) a0123456789876543210 = (!) a0123456789876543210 a0123456789876543210 + type instance Apply ((!@#@$$) a0123456789876543210) a0123456789876543210 = (!@#@$$$) a0123456789876543210 a0123456789876543210 infixr 2 !@#@$$ instance SuppressUnusedWarnings (!@#@$) where suppressUnusedWarnings = snd (((,) (:!@#@$###)) ()) diff --git a/tests/compile-and-dump/Singletons/T33.golden b/tests/compile-and-dump/Singletons/T33.golden index 75b1a2ff..093665b8 100644 --- a/tests/compile-and-dump/Singletons/T33.golden +++ b/tests/compile-and-dump/Singletons/T33.golden @@ -14,7 +14,7 @@ Singletons/T33.hs:(0,0)-(0,0): Splicing declarations FooSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply FooSym0 arg) (FooSym1 arg) => FooSym0 a0123456789876543210 - type instance Apply FooSym0 a0123456789876543210 = Foo a0123456789876543210 + type instance Apply FooSym0 a0123456789876543210 = FooSym1 a0123456789876543210 type family Foo (a :: (Bool, Bool)) :: () where Foo '(_, _) = Tuple0Sym0 sFoo :: diff --git a/tests/compile-and-dump/Singletons/T332.golden b/tests/compile-and-dump/Singletons/T332.golden index 72c44f1a..eea4a4a9 100644 --- a/tests/compile-and-dump/Singletons/T332.golden +++ b/tests/compile-and-dump/Singletons/T332.golden @@ -16,7 +16,7 @@ Singletons/T332.hs:(0,0)-(0,0): Splicing declarations FSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply FSym0 arg) (FSym1 arg) => FSym0 a0123456789876543210 - type instance Apply FSym0 a0123456789876543210 = F a0123456789876543210 + type instance Apply FSym0 a0123456789876543210 = FSym1 a0123456789876543210 type family F (a :: Foo) :: () where F MkFoo = Tuple0Sym0 type MkFooSym0 = MkFoo @@ -39,7 +39,7 @@ Singletons/T332.hs:(0,0)-(0,0): Splicing declarations BSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply BSym0 arg) (BSym1 arg) => BSym0 a0123456789876543210 - type instance Apply BSym0 a0123456789876543210 = B a0123456789876543210 + type instance Apply BSym0 a0123456789876543210 = BSym1 a0123456789876543210 type family B (a :: Bar) :: () where B MkBar = Tuple0Sym0 sB :: forall (t :: Bar). Sing t -> Sing (Apply BSym0 t :: ()) diff --git a/tests/compile-and-dump/Singletons/T342.golden b/tests/compile-and-dump/Singletons/T342.golden index 786597d5..29607cd7 100644 --- a/tests/compile-and-dump/Singletons/T342.golden +++ b/tests/compile-and-dump/Singletons/T342.golden @@ -14,4 +14,4 @@ Singletons/T342.hs:(0,0)-(0,0): Splicing declarations MyIdSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply MyIdSym0 arg) (MyIdSym1 arg) => MyIdSym0 a0123456789876543210 - type instance Apply MyIdSym0 a0123456789876543210 = MyId a0123456789876543210 + type instance Apply MyIdSym0 a0123456789876543210 = MyIdSym1 a0123456789876543210 diff --git a/tests/compile-and-dump/Singletons/T353.golden b/tests/compile-and-dump/Singletons/T353.golden index ffe09d65..da74980e 100644 --- a/tests/compile-and-dump/Singletons/T353.golden +++ b/tests/compile-and-dump/Singletons/T353.golden @@ -18,7 +18,7 @@ Singletons/T353.hs:(0,0)-(0,0): Splicing declarations e0123456789876543210 arg. SameKind (Apply (SymmetrySym2 a0123456789876543210 y0123456789876543210) arg) (SymmetrySym3 a0123456789876543210 y0123456789876543210 arg) => SymmetrySym2 a0123456789876543210 y0123456789876543210 e0123456789876543210 - type instance Apply (SymmetrySym2 y0123456789876543210 a0123456789876543210) e0123456789876543210 = Symmetry y0123456789876543210 a0123456789876543210 e0123456789876543210 + type instance Apply (SymmetrySym2 y0123456789876543210 a0123456789876543210) e0123456789876543210 = SymmetrySym3 y0123456789876543210 a0123456789876543210 e0123456789876543210 instance SuppressUnusedWarnings (SymmetrySym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) SymmetrySym1KindInference) ()) data SymmetrySym1 (a0123456789876543210 :: Proxy (t0123456789876543210 :: k0123456789876543210)) :: forall (y0123456789876543210 :: Proxy t0123456789876543210). @@ -59,7 +59,7 @@ Singletons/T353.hs:0:0:: Splicing declarations t0123456789876543210 arg. SameKind (Apply (MkProdSym1 t0123456789876543210) arg) (MkProdSym2 t0123456789876543210 arg) => MkProdSym1 t0123456789876543210 t0123456789876543210 - type instance Apply (MkProdSym1 t0123456789876543210) t0123456789876543210 = 'MkProd t0123456789876543210 t0123456789876543210 + type instance Apply (MkProdSym1 t0123456789876543210) t0123456789876543210 = MkProdSym2 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings MkProdSym0 where suppressUnusedWarnings = snd (((,) MkProdSym0KindInference) ()) data MkProdSym0 :: forall k0123456789876543210 @@ -89,7 +89,7 @@ Singletons/T353.hs:0:0:: Splicing declarations t0123456789876543210 arg. SameKind (Apply (MkFooSym1 t0123456789876543210) arg) (MkFooSym2 t0123456789876543210 arg) => MkFooSym1 t0123456789876543210 t0123456789876543210 - type instance Apply (MkFooSym1 t0123456789876543210) t0123456789876543210 = 'MkFoo t0123456789876543210 t0123456789876543210 + type instance Apply (MkFooSym1 t0123456789876543210) t0123456789876543210 = MkFooSym2 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings MkFooSym0 where suppressUnusedWarnings = snd (((,) MkFooSym0KindInference) ()) data MkFooSym0 :: forall k0123456789876543210 diff --git a/tests/compile-and-dump/Singletons/T358.golden b/tests/compile-and-dump/Singletons/T358.golden index 593973e8..1b268ab4 100644 --- a/tests/compile-and-dump/Singletons/T358.golden +++ b/tests/compile-and-dump/Singletons/T358.golden @@ -39,7 +39,7 @@ Singletons/T358.hs:(0,0)-(0,0): Splicing declarations Method2aSym0KindInference :: forall arg0123456789876543210 arg. SameKind (Apply Method2aSym0 arg) (Method2aSym1 arg) => Method2aSym0 arg0123456789876543210 - type instance Apply Method2aSym0 arg0123456789876543210 = Method2a arg0123456789876543210 + type instance Apply Method2aSym0 arg0123456789876543210 = Method2aSym1 arg0123456789876543210 type Method2bSym1 (arg0123456789876543210 :: b0123456789876543210) = Method2b arg0123456789876543210 instance SuppressUnusedWarnings Method2bSym0 where @@ -51,7 +51,7 @@ Singletons/T358.hs:(0,0)-(0,0): Splicing declarations Method2bSym0KindInference :: forall arg0123456789876543210 arg. SameKind (Apply Method2bSym0 arg) (Method2bSym1 arg) => Method2bSym0 arg0123456789876543210 - type instance Apply Method2bSym0 arg0123456789876543210 = Method2b arg0123456789876543210 + type instance Apply Method2bSym0 arg0123456789876543210 = Method2bSym1 arg0123456789876543210 class PC2 a where type Method2a (arg :: b) :: a type Method2b (arg :: b) :: a @@ -74,7 +74,7 @@ Singletons/T358.hs:(0,0)-(0,0): Splicing declarations Method2a_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Method2a_0123456789876543210Sym0 arg) (Method2a_0123456789876543210Sym1 arg) => Method2a_0123456789876543210Sym0 a0123456789876543210 - type instance Apply Method2a_0123456789876543210Sym0 a0123456789876543210 = Method2a_0123456789876543210 a0123456789876543210 + type instance Apply Method2a_0123456789876543210Sym0 a0123456789876543210 = Method2a_0123456789876543210Sym1 a0123456789876543210 type family Method2b_0123456789876543210 (a :: b) :: [a] where Method2b_0123456789876543210 _ = '[] type Method2b_0123456789876543210Sym1 (a0123456789876543210 :: b0123456789876543210) = @@ -89,7 +89,7 @@ Singletons/T358.hs:(0,0)-(0,0): Splicing declarations Method2b_0123456789876543210Sym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply Method2b_0123456789876543210Sym0 arg) (Method2b_0123456789876543210Sym1 arg) => Method2b_0123456789876543210Sym0 a0123456789876543210 - type instance Apply Method2b_0123456789876543210Sym0 a0123456789876543210 = Method2b_0123456789876543210 a0123456789876543210 + type instance Apply Method2b_0123456789876543210Sym0 a0123456789876543210 = Method2b_0123456789876543210Sym1 a0123456789876543210 instance PC2 [a] where type Method2a a = Apply Method2a_0123456789876543210Sym0 a type Method2b a = Apply Method2b_0123456789876543210Sym0 a diff --git a/tests/compile-and-dump/Singletons/T367.golden b/tests/compile-and-dump/Singletons/T367.golden index 91643beb..2aa85cc9 100644 --- a/tests/compile-and-dump/Singletons/T367.golden +++ b/tests/compile-and-dump/Singletons/T367.golden @@ -15,7 +15,7 @@ Singletons/T367.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Const'Sym1 a0123456789876543210) arg) (Const'Sym2 a0123456789876543210 arg) => Const'Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Const'Sym1 a0123456789876543210) a0123456789876543210 = Const' a0123456789876543210 a0123456789876543210 + type instance Apply (Const'Sym1 a0123456789876543210) a0123456789876543210 = Const'Sym2 a0123456789876543210 a0123456789876543210 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Const'Sym0 where Data.Singletons.SuppressUnusedWarnings.suppressUnusedWarnings = snd (((,) Const'Sym0KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/T371.golden b/tests/compile-and-dump/Singletons/T371.golden index a7b33d67..62d30043 100644 --- a/tests/compile-and-dump/Singletons/T371.golden +++ b/tests/compile-and-dump/Singletons/T371.golden @@ -24,7 +24,7 @@ Singletons/T371.hs:(0,0)-(0,0): Splicing declarations X2Sym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply X2Sym0 arg) (X2Sym1 arg) => X2Sym0 t0123456789876543210 - type instance Apply X2Sym0 t0123456789876543210 = X2 t0123456789876543210 + type instance Apply X2Sym0 t0123456789876543210 = X2Sym1 t0123456789876543210 type Y1Sym0 = Y1 type Y2Sym1 (t0123456789876543210 :: X a0123456789876543210) = Y2 t0123456789876543210 @@ -36,7 +36,7 @@ Singletons/T371.hs:(0,0)-(0,0): Splicing declarations Y2Sym0KindInference :: forall t0123456789876543210 arg. SameKind (Apply Y2Sym0 arg) (Y2Sym1 arg) => Y2Sym0 t0123456789876543210 - type instance Apply Y2Sym0 t0123456789876543210 = Y2 t0123456789876543210 + type instance Apply Y2Sym0 t0123456789876543210 = Y2Sym1 t0123456789876543210 type family ShowsPrec_0123456789876543210 (a :: GHC.Types.Nat) (a :: X a) (a :: GHC.Types.Symbol) :: GHC.Types.Symbol where ShowsPrec_0123456789876543210 _ X1 a_0123456789876543210 = Apply (Apply ShowStringSym0 "X1") a_0123456789876543210 ShowsPrec_0123456789876543210 p_0123456789876543210 (X2 arg_0123456789876543210) a_0123456789876543210 = Apply (Apply (Apply ShowParenSym0 (Apply (Apply (>@#@$) p_0123456789876543210) (Data.Singletons.Prelude.Num.FromInteger 10))) (Apply (Apply (.@#@$) (Apply ShowStringSym0 "X2 ")) (Apply (Apply ShowsPrecSym0 (Data.Singletons.Prelude.Num.FromInteger 11)) arg_0123456789876543210))) a_0123456789876543210 @@ -52,7 +52,7 @@ Singletons/T371.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ShowsPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ShowsPrec_0123456789876543210Sym1KindInference) ()) @@ -91,7 +91,7 @@ Singletons/T371.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) arg) (ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 arg) => ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210 - type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210 a0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (ShowsPrec_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = ShowsPrec_0123456789876543210Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings (ShowsPrec_0123456789876543210Sym1 a0123456789876543210) where suppressUnusedWarnings = snd (((,) ShowsPrec_0123456789876543210Sym1KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/T376.golden b/tests/compile-and-dump/Singletons/T376.golden index 2ffbf25c..e44043ba 100644 --- a/tests/compile-and-dump/Singletons/T376.golden +++ b/tests/compile-and-dump/Singletons/T376.golden @@ -15,7 +15,7 @@ Singletons/T376.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (FSym1 a0123456789876543210) arg) (FSym2 a0123456789876543210 arg) => FSym1 a0123456789876543210 a0123456789876543210 - type instance Apply (FSym1 a0123456789876543210) a0123456789876543210 = F a0123456789876543210 a0123456789876543210 + type instance Apply (FSym1 a0123456789876543210) a0123456789876543210 = FSym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings FSym0 where suppressUnusedWarnings = snd (((,) FSym0KindInference) ()) data FSym0 :: (~>) ((~>) () ()) ((~>) () ()) diff --git a/tests/compile-and-dump/Singletons/T378a.golden b/tests/compile-and-dump/Singletons/T378a.golden index 06c81c51..89db6e44 100644 --- a/tests/compile-and-dump/Singletons/T378a.golden +++ b/tests/compile-and-dump/Singletons/T378a.golden @@ -33,7 +33,7 @@ Singletons/T378a.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (ConstBASym1 a0123456789876543210) arg) (ConstBASym2 a0123456789876543210 arg) => ConstBASym1 a0123456789876543210 a0123456789876543210 - type instance Apply (ConstBASym1 a0123456789876543210) a0123456789876543210 = ConstBA a0123456789876543210 a0123456789876543210 + type instance Apply (ConstBASym1 a0123456789876543210) a0123456789876543210 = ConstBASym2 a0123456789876543210 a0123456789876543210 instance SuppressUnusedWarnings ConstBASym0 where suppressUnusedWarnings = snd (((,) ConstBASym0KindInference) ()) data ConstBASym0 :: forall a0123456789876543210 diff --git a/tests/compile-and-dump/Singletons/T402.golden b/tests/compile-and-dump/Singletons/T402.golden index 712ded1a..7af92b2b 100644 --- a/tests/compile-and-dump/Singletons/T402.golden +++ b/tests/compile-and-dump/Singletons/T402.golden @@ -12,4 +12,4 @@ Singletons/T402.hs:0:0:: Splicing declarations AnyOfKindSym0KindInference :: forall k0123456789876543210 arg. SameKind (Apply AnyOfKindSym0 arg) (AnyOfKindSym1 arg) => AnyOfKindSym0 k0123456789876543210 - type instance Apply AnyOfKindSym0 k0123456789876543210 = AnyOfKind k0123456789876543210 + type instance Apply AnyOfKindSym0 k0123456789876543210 = AnyOfKindSym1 k0123456789876543210 diff --git a/tests/compile-and-dump/Singletons/T410.golden b/tests/compile-and-dump/Singletons/T410.golden index 340e07c2..20c81f31 100644 --- a/tests/compile-and-dump/Singletons/T410.golden +++ b/tests/compile-and-dump/Singletons/T410.golden @@ -21,7 +21,7 @@ Singletons/T410.hs:(0,0)-(0,0): Splicing declarations arg0123456789876543210 arg. SameKind (Apply (EqualsSym1 arg0123456789876543210) arg) (EqualsSym2 arg0123456789876543210 arg) => EqualsSym1 arg0123456789876543210 arg0123456789876543210 - type instance Apply (EqualsSym1 arg0123456789876543210) arg0123456789876543210 = Equals arg0123456789876543210 arg0123456789876543210 + type instance Apply (EqualsSym1 arg0123456789876543210) arg0123456789876543210 = EqualsSym2 arg0123456789876543210 arg0123456789876543210 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings EqualsSym0 where Data.Singletons.SuppressUnusedWarnings.suppressUnusedWarnings = snd (((,) EqualsSym0KindInference) ()) @@ -47,7 +47,7 @@ Singletons/T410.hs:(0,0)-(0,0): Splicing declarations a0123456789876543210 arg. SameKind (Apply (Equals_0123456789876543210Sym1 a0123456789876543210) arg) (Equals_0123456789876543210Sym2 a0123456789876543210 arg) => Equals_0123456789876543210Sym1 a0123456789876543210 a0123456789876543210 - type instance Apply (Equals_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Equals_0123456789876543210 a0123456789876543210 a0123456789876543210 + type instance Apply (Equals_0123456789876543210Sym1 a0123456789876543210) a0123456789876543210 = Equals_0123456789876543210Sym2 a0123456789876543210 a0123456789876543210 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Equals_0123456789876543210Sym0 where Data.Singletons.SuppressUnusedWarnings.suppressUnusedWarnings = snd (((,) Equals_0123456789876543210Sym0KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/T412.golden b/tests/compile-and-dump/Singletons/T412.golden index 04e1332e..bd26895f 100644 --- a/tests/compile-and-dump/Singletons/T412.golden +++ b/tests/compile-and-dump/Singletons/T412.golden @@ -36,7 +36,7 @@ Singletons/T412.hs:(0,0)-(0,0): Splicing declarations b0123456789876543210 arg. SameKind (Apply (T1aSym1 a0123456789876543210) arg) (T1aSym2 a0123456789876543210 arg) => T1aSym1 a0123456789876543210 b0123456789876543210 - type instance Apply (T1aSym1 a0123456789876543210) b0123456789876543210 = T1a a0123456789876543210 b0123456789876543210 + type instance Apply (T1aSym1 a0123456789876543210) b0123456789876543210 = T1aSym2 a0123456789876543210 b0123456789876543210 infixl 5 `T1aSym1` instance SuppressUnusedWarnings T1aSym0 where suppressUnusedWarnings = snd (((,) T1aSym0KindInference) ()) @@ -58,7 +58,7 @@ Singletons/T412.hs:(0,0)-(0,0): Splicing declarations b0123456789876543210 arg. SameKind (Apply (T1bSym1 a0123456789876543210) arg) (T1bSym2 a0123456789876543210 arg) => T1bSym1 a0123456789876543210 b0123456789876543210 - type instance Apply (T1bSym1 a0123456789876543210) b0123456789876543210 = T1b a0123456789876543210 b0123456789876543210 + type instance Apply (T1bSym1 a0123456789876543210) b0123456789876543210 = T1bSym2 a0123456789876543210 b0123456789876543210 infixl 5 `T1bSym1` instance SuppressUnusedWarnings T1bSym0 where suppressUnusedWarnings = snd (((,) T1bSym0KindInference) ()) @@ -81,7 +81,7 @@ Singletons/T412.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (MkD1Sym1 t0123456789876543210) arg) (MkD1Sym2 t0123456789876543210 arg) => MkD1Sym1 t0123456789876543210 t0123456789876543210 - type instance Apply (MkD1Sym1 t0123456789876543210) t0123456789876543210 = MkD1 t0123456789876543210 t0123456789876543210 + type instance Apply (MkD1Sym1 t0123456789876543210) t0123456789876543210 = MkD1Sym2 t0123456789876543210 t0123456789876543210 infixr 5 `MkD1Sym1` instance SuppressUnusedWarnings MkD1Sym0 where suppressUnusedWarnings = snd (((,) MkD1Sym0KindInference) ()) @@ -107,7 +107,7 @@ Singletons/T412.hs:(0,0)-(0,0): Splicing declarations arg0123456789876543210 arg. SameKind (Apply (M1Sym1 arg0123456789876543210) arg) (M1Sym2 arg0123456789876543210 arg) => M1Sym1 arg0123456789876543210 arg0123456789876543210 - type instance Apply (M1Sym1 arg0123456789876543210) arg0123456789876543210 = M1 arg0123456789876543210 arg0123456789876543210 + type instance Apply (M1Sym1 arg0123456789876543210) arg0123456789876543210 = M1Sym2 arg0123456789876543210 arg0123456789876543210 infix 6 `M1Sym1` instance SuppressUnusedWarnings M1Sym0 where suppressUnusedWarnings = snd (((,) M1Sym0KindInference) ()) @@ -166,7 +166,7 @@ Singletons/T412.hs:0:0:: Splicing declarations arg0123456789876543210 arg. SameKind (Apply (M2Sym1 arg0123456789876543210) arg) (M2Sym2 arg0123456789876543210 arg) => M2Sym1 arg0123456789876543210 arg0123456789876543210 - type instance Apply (M2Sym1 arg0123456789876543210) arg0123456789876543210 = M2 arg0123456789876543210 arg0123456789876543210 + type instance Apply (M2Sym1 arg0123456789876543210) arg0123456789876543210 = M2Sym2 arg0123456789876543210 arg0123456789876543210 infix 6 `M2Sym1` instance SuppressUnusedWarnings M2Sym0 where suppressUnusedWarnings = snd (((,) M2Sym0KindInference) ()) @@ -204,7 +204,7 @@ Singletons/T412.hs:0:0:: Splicing declarations b0123456789876543210 arg. SameKind (Apply (T2aSym1 a0123456789876543210) arg) (T2aSym2 a0123456789876543210 arg) => T2aSym1 a0123456789876543210 b0123456789876543210 - type instance Apply (T2aSym1 a0123456789876543210) b0123456789876543210 = T2a a0123456789876543210 b0123456789876543210 + type instance Apply (T2aSym1 a0123456789876543210) b0123456789876543210 = T2aSym2 a0123456789876543210 b0123456789876543210 infixl 5 `T2aSym1` instance SuppressUnusedWarnings T2aSym0 where suppressUnusedWarnings = snd (((,) T2aSym0KindInference) ()) @@ -226,7 +226,7 @@ Singletons/T412.hs:0:0:: Splicing declarations b0123456789876543210 arg. SameKind (Apply (T2bSym1 a0123456789876543210) arg) (T2bSym2 a0123456789876543210 arg) => T2bSym1 a0123456789876543210 b0123456789876543210 - type instance Apply (T2bSym1 a0123456789876543210) b0123456789876543210 = T2b a0123456789876543210 b0123456789876543210 + type instance Apply (T2bSym1 a0123456789876543210) b0123456789876543210 = T2bSym2 a0123456789876543210 b0123456789876543210 infixl 5 `T2bSym1` instance SuppressUnusedWarnings T2bSym0 where suppressUnusedWarnings = snd (((,) T2bSym0KindInference) ()) @@ -249,7 +249,7 @@ Singletons/T412.hs:0:0:: Splicing declarations t0123456789876543210 arg. SameKind (Apply (MkD2Sym1 t0123456789876543210) arg) (MkD2Sym2 t0123456789876543210 arg) => MkD2Sym1 t0123456789876543210 t0123456789876543210 - type instance Apply (MkD2Sym1 t0123456789876543210) t0123456789876543210 = 'MkD2 t0123456789876543210 t0123456789876543210 + type instance Apply (MkD2Sym1 t0123456789876543210) t0123456789876543210 = MkD2Sym2 t0123456789876543210 t0123456789876543210 infixr 5 `MkD2Sym1` instance SuppressUnusedWarnings MkD2Sym0 where suppressUnusedWarnings = snd (((,) MkD2Sym0KindInference) ()) diff --git a/tests/compile-and-dump/Singletons/T414.golden b/tests/compile-and-dump/Singletons/T414.golden index 8ad9a7ac..f87e650b 100644 --- a/tests/compile-and-dump/Singletons/T414.golden +++ b/tests/compile-and-dump/Singletons/T414.golden @@ -19,7 +19,7 @@ Singletons/T414.hs:(0,0)-(0,0): Splicing declarations b0123456789876543210 arg. SameKind (Apply (T1Sym1 a0123456789876543210) arg) (T1Sym2 a0123456789876543210 arg) => T1Sym1 a0123456789876543210 b0123456789876543210 - type instance Apply (T1Sym1 a0123456789876543210) b0123456789876543210 = T1 a0123456789876543210 b0123456789876543210 + type instance Apply (T1Sym1 a0123456789876543210) b0123456789876543210 = T1Sym2 a0123456789876543210 b0123456789876543210 instance SuppressUnusedWarnings T1Sym0 where suppressUnusedWarnings = snd (((,) T1Sym0KindInference) ()) data T1Sym0 :: (~>) Bool ((~>) GHC.Types.Type GHC.Types.Type) @@ -39,7 +39,7 @@ Singletons/T414.hs:(0,0)-(0,0): Splicing declarations b0123456789876543210 arg. SameKind (Apply (T2Sym1 a0123456789876543210) arg) (T2Sym2 a0123456789876543210 arg) => T2Sym1 a0123456789876543210 b0123456789876543210 - type instance Apply (T2Sym1 a0123456789876543210) b0123456789876543210 = T2 a0123456789876543210 b0123456789876543210 + type instance Apply (T2Sym1 a0123456789876543210) b0123456789876543210 = T2Sym2 a0123456789876543210 b0123456789876543210 instance SuppressUnusedWarnings T2Sym0 where suppressUnusedWarnings = snd (((,) T2Sym0KindInference) ()) data T2Sym0 a0123456789876543210 diff --git a/tests/compile-and-dump/Singletons/T54.golden b/tests/compile-and-dump/Singletons/T54.golden index 56575d7b..72c6b302 100644 --- a/tests/compile-and-dump/Singletons/T54.golden +++ b/tests/compile-and-dump/Singletons/T54.golden @@ -18,7 +18,7 @@ Singletons/T54.hs:(0,0)-(0,0): Splicing declarations Let0123456789876543210Scrutinee_0123456789876543210Sym0KindInference :: forall e0123456789876543210 arg. SameKind (Apply Let0123456789876543210Scrutinee_0123456789876543210Sym0 arg) (Let0123456789876543210Scrutinee_0123456789876543210Sym1 arg) => Let0123456789876543210Scrutinee_0123456789876543210Sym0 e0123456789876543210 - type instance Apply Let0123456789876543210Scrutinee_0123456789876543210Sym0 e0123456789876543210 = Let0123456789876543210Scrutinee_0123456789876543210 e0123456789876543210 + type instance Apply Let0123456789876543210Scrutinee_0123456789876543210Sym0 e0123456789876543210 = Let0123456789876543210Scrutinee_0123456789876543210Sym1 e0123456789876543210 type family Let0123456789876543210Scrutinee_0123456789876543210 e where Let0123456789876543210Scrutinee_0123456789876543210 e = Apply (Apply (:@#@$) NotSym0) '[] type family Case_0123456789876543210 e t where @@ -31,7 +31,7 @@ Singletons/T54.hs:(0,0)-(0,0): Splicing declarations GSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply GSym0 arg) (GSym1 arg) => GSym0 a0123456789876543210 - type instance Apply GSym0 a0123456789876543210 = G a0123456789876543210 + type instance Apply GSym0 a0123456789876543210 = GSym1 a0123456789876543210 type family G (a :: Bool) :: Bool where G e = Apply (Case_0123456789876543210 e (Let0123456789876543210Scrutinee_0123456789876543210Sym1 e)) e sG :: forall (t :: Bool). Sing t -> Sing (Apply GSym0 t :: Bool) diff --git a/tests/compile-and-dump/Singletons/T78.golden b/tests/compile-and-dump/Singletons/T78.golden index cc2db466..00a75c26 100644 --- a/tests/compile-and-dump/Singletons/T78.golden +++ b/tests/compile-and-dump/Singletons/T78.golden @@ -18,7 +18,7 @@ Singletons/T78.hs:(0,0)-(0,0): Splicing declarations FooSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply FooSym0 arg) (FooSym1 arg) => FooSym0 a0123456789876543210 - type instance Apply FooSym0 a0123456789876543210 = Foo a0123456789876543210 + type instance Apply FooSym0 a0123456789876543210 = FooSym1 a0123456789876543210 type family Foo (a :: Maybe Bool) :: Bool where Foo ('Just 'False) = FalseSym0 Foo ('Just 'True) = TrueSym0 diff --git a/tests/compile-and-dump/Singletons/TopLevelPatterns.golden b/tests/compile-and-dump/Singletons/TopLevelPatterns.golden index 17934170..5f6872e6 100644 --- a/tests/compile-and-dump/Singletons/TopLevelPatterns.golden +++ b/tests/compile-and-dump/Singletons/TopLevelPatterns.golden @@ -18,7 +18,7 @@ Singletons/TopLevelPatterns.hs:(0,0)-(0,0): Splicing declarations t0123456789876543210 arg. SameKind (Apply (BarSym1 t0123456789876543210) arg) (BarSym2 t0123456789876543210 arg) => BarSym1 t0123456789876543210 t0123456789876543210 - type instance Apply (BarSym1 t0123456789876543210) t0123456789876543210 = Bar t0123456789876543210 t0123456789876543210 + type instance Apply (BarSym1 t0123456789876543210) t0123456789876543210 = BarSym2 t0123456789876543210 t0123456789876543210 instance SuppressUnusedWarnings BarSym0 where suppressUnusedWarnings = Data.Tuple.snd (((,) BarSym0KindInference) ()) @@ -140,7 +140,7 @@ Singletons/TopLevelPatterns.hs:(0,0)-(0,0): Splicing declarations ISym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply ISym0 arg) (ISym1 arg) => ISym0 a0123456789876543210 - type instance Apply ISym0 a0123456789876543210 = I a0123456789876543210 + type instance Apply ISym0 a0123456789876543210 = ISym1 a0123456789876543210 type HSym1 (a0123456789876543210 :: Bool) = H a0123456789876543210 instance SuppressUnusedWarnings HSym0 where suppressUnusedWarnings @@ -150,7 +150,7 @@ Singletons/TopLevelPatterns.hs:(0,0)-(0,0): Splicing declarations HSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply HSym0 arg) (HSym1 arg) => HSym0 a0123456789876543210 - type instance Apply HSym0 a0123456789876543210 = H a0123456789876543210 + type instance Apply HSym0 a0123456789876543210 = HSym1 a0123456789876543210 type X_0123456789876543210Sym0 = X_0123456789876543210 type GSym1 (a0123456789876543210 :: Bool) = G a0123456789876543210 instance SuppressUnusedWarnings GSym0 where @@ -161,7 +161,7 @@ Singletons/TopLevelPatterns.hs:(0,0)-(0,0): Splicing declarations GSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply GSym0 arg) (GSym1 arg) => GSym0 a0123456789876543210 - type instance Apply GSym0 a0123456789876543210 = G a0123456789876543210 + type instance Apply GSym0 a0123456789876543210 = GSym1 a0123456789876543210 type FSym1 (a0123456789876543210 :: Bool) = F a0123456789876543210 instance SuppressUnusedWarnings FSym0 where suppressUnusedWarnings @@ -171,7 +171,7 @@ Singletons/TopLevelPatterns.hs:(0,0)-(0,0): Splicing declarations FSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply FSym0 arg) (FSym1 arg) => FSym0 a0123456789876543210 - type instance Apply FSym0 a0123456789876543210 = F a0123456789876543210 + type instance Apply FSym0 a0123456789876543210 = FSym1 a0123456789876543210 type X_0123456789876543210Sym0 = X_0123456789876543210 type False_Sym0 = False_ type NotSym1 (a0123456789876543210 :: Bool) = @@ -184,7 +184,7 @@ Singletons/TopLevelPatterns.hs:(0,0)-(0,0): Splicing declarations NotSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply NotSym0 arg) (NotSym1 arg) => NotSym0 a0123456789876543210 - type instance Apply NotSym0 a0123456789876543210 = Not a0123456789876543210 + type instance Apply NotSym0 a0123456789876543210 = NotSym1 a0123456789876543210 type IdSym1 (a0123456789876543210 :: a0123456789876543210) = Id a0123456789876543210 instance SuppressUnusedWarnings IdSym0 where @@ -196,7 +196,7 @@ Singletons/TopLevelPatterns.hs:(0,0)-(0,0): Splicing declarations IdSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply IdSym0 arg) (IdSym1 arg) => IdSym0 a0123456789876543210 - type instance Apply IdSym0 a0123456789876543210 = Id a0123456789876543210 + type instance Apply IdSym0 a0123456789876543210 = IdSym1 a0123456789876543210 type OtherwiseSym0 = Otherwise type family M :: Bool where M = Case_0123456789876543210 X_0123456789876543210Sym0 diff --git a/tests/compile-and-dump/Singletons/Undef.golden b/tests/compile-and-dump/Singletons/Undef.golden index 8290a0cf..369c2816 100644 --- a/tests/compile-and-dump/Singletons/Undef.golden +++ b/tests/compile-and-dump/Singletons/Undef.golden @@ -18,7 +18,7 @@ Singletons/Undef.hs:(0,0)-(0,0): Splicing declarations BarSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply BarSym0 arg) (BarSym1 arg) => BarSym0 a0123456789876543210 - type instance Apply BarSym0 a0123456789876543210 = Bar a0123456789876543210 + type instance Apply BarSym0 a0123456789876543210 = BarSym1 a0123456789876543210 type FooSym1 (a0123456789876543210 :: Bool) = Foo a0123456789876543210 instance SuppressUnusedWarnings FooSym0 where @@ -28,7 +28,7 @@ Singletons/Undef.hs:(0,0)-(0,0): Splicing declarations FooSym0KindInference :: forall a0123456789876543210 arg. SameKind (Apply FooSym0 arg) (FooSym1 arg) => FooSym0 a0123456789876543210 - type instance Apply FooSym0 a0123456789876543210 = Foo a0123456789876543210 + type instance Apply FooSym0 a0123456789876543210 = FooSym1 a0123456789876543210 type family Bar (a :: Bool) :: Bool where Bar a_0123456789876543210 = Apply (Apply ErrorSym0 "urk") a_0123456789876543210 type family Foo (a :: Bool) :: Bool where