diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2021-02-21 21:23:40 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-20 07:48:38 -0400 |
| commit | 95275a5f25a2e70b71240d4756109180486af1b1 (patch) | |
| tree | eb4801bb0e00098b8b9d513479de4fbbd779ddac /testsuite | |
| parent | f940fd466a86c2f8e93237b36835797be3f3c898 (diff) | |
| download | haskell-95275a5f25a2e70b71240d4756109180486af1b1.tar.gz | |
GHC Exactprint main commit
Metric Increase:
T10370
parsing001
Updates haddock submodule
Diffstat (limited to 'testsuite')
162 files changed, 7576 insertions, 5005 deletions
diff --git a/testsuite/mk/boilerplate.mk b/testsuite/mk/boilerplate.mk index 6ccc43ed8d..41ba2542a6 100644 --- a/testsuite/mk/boilerplate.mk +++ b/testsuite/mk/boilerplate.mk @@ -219,14 +219,13 @@ CP = cp RM = rm -f PYTHON ?= python3 -ifeq "$(CHECK_API_ANNOTATIONS)" "" -CHECK_API_ANNOTATIONS := $(abspath $(TOP)/../inplace/bin/check-api-annotations) -endif - ifeq "$(CHECK_PPR)" "" CHECK_PPR := $(abspath $(TOP)/../inplace/bin/check-ppr) endif +ifeq "$(CHECK_EXACT)" "" +CHECK_EXACT := $(abspath $(TOP)/../inplace/bin/check-exact) +endif # ----------------------------------------------------------------------------- # configuration of TEST_HC diff --git a/testsuite/tests/annotations/should_fail/annfail01.stderr b/testsuite/tests/annotations/should_fail/annfail01.stderr index 44ac680a89..f3f5a75740 100644 --- a/testsuite/tests/annotations/should_fail/annfail01.stderr +++ b/testsuite/tests/annotations/should_fail/annfail01.stderr @@ -1,8 +1,8 @@ -annfail01.hs:4:1: +annfail01.hs:4:14: Not in scope: type constructor or class ‘Foo’ In the annotation: {-# ANN type Foo (1 :: Int) #-} -annfail01.hs:5:1: +annfail01.hs:5:9: Not in scope: ‘f’ In the annotation: {-# ANN f (1 :: Int) #-} diff --git a/testsuite/tests/annotations/should_fail/annfail02.stderr b/testsuite/tests/annotations/should_fail/annfail02.stderr index d52e52abdd..0b1e556739 100644 --- a/testsuite/tests/annotations/should_fail/annfail02.stderr +++ b/testsuite/tests/annotations/should_fail/annfail02.stderr @@ -1,8 +1,8 @@ -annfail02.hs:6:1: +annfail02.hs:6:9: Not in scope: data constructor ‘Foo’ In the annotation: {-# ANN Foo (1 :: Int) #-} -annfail02.hs:7:1: +annfail02.hs:7:14: Not in scope: type constructor or class ‘Bar’ In the annotation: {-# ANN type Bar (2 :: Int) #-} diff --git a/testsuite/tests/annotations/should_fail/annfail11.stderr b/testsuite/tests/annotations/should_fail/annfail11.stderr index 40bcebb904..a1c2e3fd24 100644 --- a/testsuite/tests/annotations/should_fail/annfail11.stderr +++ b/testsuite/tests/annotations/should_fail/annfail11.stderr @@ -1,12 +1,12 @@ -annfail11.hs:3:1: error: +annfail11.hs:3:9: error: Not in scope: ‘length’ Perhaps you want to add ‘length’ to the import list in the import of ‘Prelude’ (annfail11.hs:1:8-16). In the annotation: {-# ANN length "Cannot annotate other modules yet" #-} -annfail11.hs:4:1: error: +annfail11.hs:4:14: error: Not in scope: type constructor or class ‘Integer’ Perhaps you want to add ‘Integer’ to the import list in the import of ‘Prelude’ (annfail11.hs:1:8-16). diff --git a/testsuite/tests/deriving/should_compile/T14682.stderr b/testsuite/tests/deriving/should_compile/T14682.stderr index c6454ccc30..d888ad8e90 100644 --- a/testsuite/tests/deriving/should_compile/T14682.stderr +++ b/testsuite/tests/deriving/should_compile/T14682.stderr @@ -33,23 +33,23 @@ Derived class instances: instance GHC.Classes.Ord T14682.Foo where GHC.Classes.compare a b - = case a of { + = case a of T14682.Foo a1 a2 - -> case b of { + -> case b of T14682.Foo b1 b2 -> case (GHC.Classes.compare a1 b1) of GHC.Types.LT -> GHC.Types.LT GHC.Types.EQ -> (a2 `GHC.Classes.compare` b2) - GHC.Types.GT -> GHC.Types.GT } } + GHC.Types.GT -> GHC.Types.GT (GHC.Classes.<) a b - = case a of { + = case a of T14682.Foo a1 a2 - -> case b of { + -> case b of T14682.Foo b1 b2 -> case (GHC.Classes.compare a1 b1) of GHC.Types.LT -> GHC.Types.True GHC.Types.EQ -> (a2 GHC.Classes.< b2) - GHC.Types.GT -> GHC.Types.False } } + GHC.Types.GT -> GHC.Types.False (GHC.Classes.<=) a b = GHC.Classes.not ((GHC.Classes.<) b a) (GHC.Classes.>) a b = (GHC.Classes.<) b a (GHC.Classes.>=) a b = GHC.Classes.not ((GHC.Classes.<) a b) diff --git a/testsuite/tests/deriving/should_compile/drv-empty-data.stderr b/testsuite/tests/deriving/should_compile/drv-empty-data.stderr index 9d7cb859bd..cb0aca5e05 100644 --- a/testsuite/tests/deriving/should_compile/drv-empty-data.stderr +++ b/testsuite/tests/deriving/should_compile/drv-empty-data.stderr @@ -7,7 +7,7 @@ Derived class instances: GHC.Read.readListPrec = GHC.Read.readListPrecDefault instance GHC.Show.Show (DrvEmptyData.Void a) where - GHC.Show.showsPrec _ z = case z of + GHC.Show.showsPrec _ z = case z of {} instance GHC.Classes.Ord (DrvEmptyData.Void a) where GHC.Classes.compare _ z = GHC.Types.EQ @@ -17,38 +17,38 @@ Derived class instances: instance Data.Data.Data a => Data.Data.Data (DrvEmptyData.Void a) where - Data.Data.gfoldl _ _ z = case z of - Data.Data.gunfold k z c = case Data.Data.constrIndex c of - Data.Data.toConstr z = case z of + Data.Data.gfoldl _ _ z = case z of {} + Data.Data.gunfold k z c = case Data.Data.constrIndex c of {} + Data.Data.toConstr z = case z of {} Data.Data.dataTypeOf _ = $tVoid Data.Data.dataCast1 f = Data.Typeable.gcast1 f instance GHC.Base.Functor DrvEmptyData.Void where - GHC.Base.fmap _ z = case z of - (GHC.Base.<$) _ z = case z of + GHC.Base.fmap _ z = case z of {} + (GHC.Base.<$) _ z = case z of {} instance Data.Foldable.Foldable DrvEmptyData.Void where Data.Foldable.foldMap _ z = GHC.Base.mempty instance Data.Traversable.Traversable DrvEmptyData.Void where - Data.Traversable.traverse _ z = GHC.Base.pure (case z of) + Data.Traversable.traverse _ z = GHC.Base.pure (case z of {}) instance GHC.Generics.Generic (DrvEmptyData.Void a) where GHC.Generics.from x - = GHC.Generics.M1 (case x of { x -> case x of }) - GHC.Generics.to (GHC.Generics.M1 x) = case x of { x -> case x of } + = GHC.Generics.M1 (case x of x -> case x of {}) + GHC.Generics.to (GHC.Generics.M1 x) = case x of x -> case x of {} instance GHC.Generics.Generic1 DrvEmptyData.Void where GHC.Generics.from1 x - = GHC.Generics.M1 (case x of { x -> case x of }) - GHC.Generics.to1 (GHC.Generics.M1 x) = case x of { x -> case x of } + = GHC.Generics.M1 (case x of x -> case x of {}) + GHC.Generics.to1 (GHC.Generics.M1 x) = case x of x -> case x of {} instance Language.Haskell.TH.Syntax.Lift (DrvEmptyData.Void a) where - Language.Haskell.TH.Syntax.lift z = GHC.Base.pure (case z of) + Language.Haskell.TH.Syntax.lift z = GHC.Base.pure (case z of {}) Language.Haskell.TH.Syntax.liftTyped z = Language.Haskell.TH.Syntax.unsafeCodeCoerce - (GHC.Base.pure (case z of)) + (GHC.Base.pure (case z of {})) $tVoid :: Data.Data.DataType $tVoid = Data.Data.mkDataType "Void" [] diff --git a/testsuite/tests/gadt/T3169.stderr b/testsuite/tests/gadt/T3169.stderr index 5770e03c70..9ab61c8720 100644 --- a/testsuite/tests/gadt/T3169.stderr +++ b/testsuite/tests/gadt/T3169.stderr @@ -10,8 +10,8 @@ T3169.hs:13:22: error: • In the second argument of ‘lookup’, namely ‘m’ In the expression: lookup a m :: Maybe (Map b elt) In the expression: - case lookup a m :: Maybe (Map b elt) of { - Just (m2 :: Map b elt) -> lookup b m2 :: Maybe elt } + case lookup a m :: Maybe (Map b elt) of + Just (m2 :: Map b elt) -> lookup b m2 :: Maybe elt • Relevant bindings include m :: Map (a, b) elt (bound at T3169.hs:12:17) b :: b (bound at T3169.hs:12:13) diff --git a/testsuite/tests/gadt/gadt-escape1.stderr b/testsuite/tests/gadt/gadt-escape1.stderr index d771c63828..f2b7ac569e 100644 --- a/testsuite/tests/gadt/gadt-escape1.stderr +++ b/testsuite/tests/gadt/gadt-escape1.stderr @@ -14,6 +14,6 @@ gadt-escape1.hs:19:58: error: • In the expression: a In a case alternative: Hidden (ExpInt _) a -> a In the expression: - case (hval :: Hidden) of { Hidden (ExpInt _) a -> a } + case (hval :: Hidden) of Hidden (ExpInt _) a -> a • Relevant bindings include weird1 :: p (bound at gadt-escape1.hs:19:1) diff --git a/testsuite/tests/gadt/gadt7.stderr b/testsuite/tests/gadt/gadt7.stderr index 679ec3b00e..314404c246 100644 --- a/testsuite/tests/gadt/gadt7.stderr +++ b/testsuite/tests/gadt/gadt7.stderr @@ -14,7 +14,7 @@ gadt7.hs:16:38: error: Possible fix: add a type signature for ‘i1b’ • In the expression: y1 In a case alternative: K -> y1 - In the expression: case t1 of { K -> y1 } + In the expression: case t1 of K -> y1 • Relevant bindings include y1 :: p (bound at gadt7.hs:16:16) y :: p (bound at gadt7.hs:16:7) diff --git a/testsuite/tests/generics/T10604/T10604_deriving.stderr b/testsuite/tests/generics/T10604/T10604_deriving.stderr index 99c5ee8088..933bbecdff 100644 --- a/testsuite/tests/generics/T10604/T10604_deriving.stderr +++ b/testsuite/tests/generics/T10604/T10604_deriving.stderr @@ -93,52 +93,52 @@ Derived class instances: GHC.Generics.Generic (T10604_deriving.Wrap2 @k a) where GHC.Generics.from x = GHC.Generics.M1 - (case x of { + (case x of T10604_deriving.Wrap2 g1 - -> GHC.Generics.M1 (GHC.Generics.M1 (GHC.Generics.K1 g1)) }) + -> GHC.Generics.M1 (GHC.Generics.M1 (GHC.Generics.K1 g1))) GHC.Generics.to (GHC.Generics.M1 x) - = case x of { + = case x of (GHC.Generics.M1 (GHC.Generics.M1 (GHC.Generics.K1 g1))) - -> T10604_deriving.Wrap2 g1 } + -> T10604_deriving.Wrap2 g1 instance GHC.Generics.Generic1 @(k -> *) (T10604_deriving.Wrap2 @k) where GHC.Generics.from1 x = GHC.Generics.M1 - (case x of { + (case x of T10604_deriving.Wrap2 g1 -> GHC.Generics.M1 (GHC.Generics.M1 ((GHC.Base..) - GHC.Generics.Comp1 (GHC.Base.fmap GHC.Generics.Rec1) g1)) }) + GHC.Generics.Comp1 (GHC.Base.fmap GHC.Generics.Rec1) g1))) GHC.Generics.to1 (GHC.Generics.M1 x) - = case x of { + = case x of (GHC.Generics.M1 (GHC.Generics.M1 g1)) -> T10604_deriving.Wrap2 ((GHC.Base..) - (GHC.Base.fmap GHC.Generics.unRec1) GHC.Generics.unComp1 g1) } + (GHC.Base.fmap GHC.Generics.unRec1) GHC.Generics.unComp1 g1) instance GHC.Generics.Generic (T10604_deriving.Wrap a) where GHC.Generics.from x = GHC.Generics.M1 - (case x of { + (case x of T10604_deriving.Wrap g1 - -> GHC.Generics.M1 (GHC.Generics.M1 (GHC.Generics.K1 g1)) }) + -> GHC.Generics.M1 (GHC.Generics.M1 (GHC.Generics.K1 g1))) GHC.Generics.to (GHC.Generics.M1 x) - = case x of { + = case x of (GHC.Generics.M1 (GHC.Generics.M1 (GHC.Generics.K1 g1))) - -> T10604_deriving.Wrap g1 } + -> T10604_deriving.Wrap g1 instance GHC.Generics.Generic1 @(* -> *) T10604_deriving.Wrap where GHC.Generics.from1 x = GHC.Generics.M1 - (case x of { + (case x of T10604_deriving.Wrap g1 - -> GHC.Generics.M1 (GHC.Generics.M1 (GHC.Generics.Rec1 g1)) }) + -> GHC.Generics.M1 (GHC.Generics.M1 (GHC.Generics.Rec1 g1))) GHC.Generics.to1 (GHC.Generics.M1 x) - = case x of { + = case x of (GHC.Generics.M1 (GHC.Generics.M1 g1)) - -> T10604_deriving.Wrap (GHC.Generics.unRec1 g1) } + -> T10604_deriving.Wrap (GHC.Generics.unRec1 g1) instance GHC.Base.Functor (T10604_deriving.Proxy @(*)) where GHC.Base.fmap _ = GHC.Prim.coerce @@ -147,31 +147,31 @@ Derived class instances: GHC.Generics.Generic (T10604_deriving.Proxy @k a) where GHC.Generics.from x = GHC.Generics.M1 - (case x of { - T10604_deriving.Proxy -> GHC.Generics.M1 GHC.Generics.U1 }) + (case x of + T10604_deriving.Proxy -> GHC.Generics.M1 GHC.Generics.U1) GHC.Generics.to (GHC.Generics.M1 x) - = case x of { - (GHC.Generics.M1 GHC.Generics.U1) -> T10604_deriving.Proxy } + = case x of + (GHC.Generics.M1 GHC.Generics.U1) -> T10604_deriving.Proxy instance GHC.Generics.Generic1 @k (T10604_deriving.Proxy @k) where GHC.Generics.from1 x = GHC.Generics.M1 - (case x of { - T10604_deriving.Proxy -> GHC.Generics.M1 GHC.Generics.U1 }) + (case x of + T10604_deriving.Proxy -> GHC.Generics.M1 GHC.Generics.U1) GHC.Generics.to1 (GHC.Generics.M1 x) - = case x of { - (GHC.Generics.M1 GHC.Generics.U1) -> T10604_deriving.Proxy } + = case x of + (GHC.Generics.M1 GHC.Generics.U1) -> T10604_deriving.Proxy instance GHC.Generics.Generic (T10604_deriving.Empty a) where GHC.Generics.from x - = GHC.Generics.M1 (case x of { x -> case x of }) - GHC.Generics.to (GHC.Generics.M1 x) = case x of { x -> case x of } + = GHC.Generics.M1 (case x of x -> case x of {}) + GHC.Generics.to (GHC.Generics.M1 x) = case x of x -> case x of {} instance GHC.Generics.Generic1 @GHC.Types.Bool T10604_deriving.Empty where GHC.Generics.from1 x - = GHC.Generics.M1 (case x of { x -> case x of }) - GHC.Generics.to1 (GHC.Generics.M1 x) = case x of { x -> case x of } + = GHC.Generics.M1 (case x of x -> case x of {}) + GHC.Generics.to1 (GHC.Generics.M1 x) = case x of x -> case x of {} Derived type family instances: diff --git a/testsuite/tests/ghc-api/T6145.hs b/testsuite/tests/ghc-api/T6145.hs index 7c56320ff3..ae0bca225d 100644 --- a/testsuite/tests/ghc-api/T6145.hs +++ b/testsuite/tests/ghc-api/T6145.hs @@ -41,6 +41,6 @@ main = do | (MG _ (L _ (m:_)) _) <- fun_matches f, ((L _ (c@ConPat{})):_)<-hsLMatchPats m, (L l _)<-pat_con c - = isGoodSrcSpan l -- Check that the source location is a good one + = isGoodSrcSpan (locA l) -- Check that the source location is a good one isDataCon _ = False diff --git a/testsuite/tests/ghc-api/annotations-literals/literals.stdout b/testsuite/tests/ghc-api/annotations-literals/literals.stdout index 501a5af5f3..eb87a80162 100644 --- a/testsuite/tests/ghc-api/annotations-literals/literals.stdout +++ b/testsuite/tests/ghc-api/annotations-literals/literals.stdout @@ -1,4 +1,4 @@ -(LiteralsTest.hs:1:1-26,ITblockComment "{-# LANGUAGE MagicHash #-}",[{-# LANGUAGE MagicHash #-}]), +(LiteralsTest.hs:1:1-26,ITblockComment "{-# LANGUAGE MagicHash #-}" (PsSpan {psRealSpan = SrcSpanPoint "./LiteralsTest.hs" 1 1, psBufSpan = BufSpan {bufSpanStart = BufPos {bufPos = 0}, bufSpanEnd = BufPos {bufPos = 0}}}),[{-# LANGUAGE MagicHash #-}]), (LiteralsTest.hs:2:1-6,ITmodule,[module]), diff --git a/testsuite/tests/ghc-api/annotations/InTreeAnnotations1.hs b/testsuite/tests/ghc-api/annotations/InTreeAnnotations1.hs new file mode 100644 index 0000000000..c454b0a237 --- /dev/null +++ b/testsuite/tests/ghc-api/annotations/InTreeAnnotations1.hs @@ -0,0 +1,8 @@ +{-# LANGUAGE ViewPatterns, BangPatterns #-} +module InTreeAnnotations1 where + +foo a@(_,_) !"a" ~x = undefined + +data T = MkT { x,y :: Int } + +f (MkT { x = !v, y = negate -> w }) = v + w diff --git a/testsuite/tests/ghc-api/annotations/InTreeAnnotations1.stderr b/testsuite/tests/ghc-api/annotations/InTreeAnnotations1.stderr new file mode 100644 index 0000000000..42e3143635 --- /dev/null +++ b/testsuite/tests/ghc-api/annotations/InTreeAnnotations1.stderr @@ -0,0 +1,521 @@ + +==================== Parser AST ==================== + +(L + { InTreeAnnotations1.hs:1:1 } + (HsModule + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:1:1 } + (UnchangedAnchor)) + (AnnsModule + [(AddApiAnn AnnModule (AR { InTreeAnnotations1.hs:2:1-6 })) + ,(AddApiAnn AnnWhere (AR { InTreeAnnotations1.hs:2:27-31 }))] + (AnnList + (Nothing) + (Nothing) + (Nothing) + [] + [])) + (AnnCommentsBalanced + [] + [(L + (Anchor + { InTreeAnnotations1.hs:9:1 } + (UnchangedAnchor)) + (AnnComment + (AnnEofComment) + { InTreeAnnotations1.hs:9:1 }))])) + (VirtualBraces + (1)) + (Just + (L + { InTreeAnnotations1.hs:2:8-25 } + {ModuleName: InTreeAnnotations1})) + (Nothing) + [] + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { InTreeAnnotations1.hs:4:1-31 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { InTreeAnnotations1.hs:4:1-31 }) + (ValD + (NoExtField) + (FunBind + (NoExtField) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:4:1-3 }) + (Unqual + {OccName: foo})) + (MG + (NoExtField) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:4:1-31 }) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:4:1-31 }) + (Match + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:4:1-31 } + (UnchangedAnchor)) + [] + (AnnComments + [])) + (FunRhs + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:4:1-3 }) + (Unqual + {OccName: foo})) + (Prefix) + (NoSrcStrict)) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:4:5-11 }) + (AsPat + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:4:5-11 } + (UnchangedAnchor)) + [(AddApiAnn AnnAt (AR { InTreeAnnotations1.hs:4:6 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:4:5 }) + (Unqual + {OccName: a})) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:4:7-11 }) + (TuplePat + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:4:7-11 } + (UnchangedAnchor)) + [(AddApiAnn AnnOpenP (AR { InTreeAnnotations1.hs:4:7 })) + ,(AddApiAnn AnnCloseP (AR { InTreeAnnotations1.hs:4:11 }))] + (AnnComments + [])) + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { InTreeAnnotations1.hs:4:8 } + (UnchangedAnchor)) + (AnnListItem + [(AddCommaAnn + (AR { InTreeAnnotations1.hs:4:9 }))]) + (AnnComments + [])) { InTreeAnnotations1.hs:4:8 }) + (WildPat + (NoExtField))) + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:4:10 }) + (WildPat + (NoExtField)))] + (Boxed))))) + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:4:13-16 }) + (BangPat + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:4:13-16 } + (UnchangedAnchor)) + [(AddApiAnn AnnBang (AR { InTreeAnnotations1.hs:4:13 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:4:14-16 }) + (LitPat + (NoExtField) + (HsString + (SourceText "a") + {FastString: "a"}))))) + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:4:18-19 }) + (LazyPat + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:4:18-19 } + (UnchangedAnchor)) + [(AddApiAnn AnnTilde (AR { InTreeAnnotations1.hs:4:18 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:4:19 }) + (VarPat + (NoExtField) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:4:19 }) + (Unqual + {OccName: x}))))))] + (GRHSs + (NoExtField) + [(L + { InTreeAnnotations1.hs:4:21-31 } + (GRHS + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:4:21-31 } + (UnchangedAnchor)) + (GrhsAnn + (Nothing) + (AddApiAnn AnnEqual (AR { InTreeAnnotations1.hs:4:21 }))) + (AnnComments + [])) + [] + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:4:23-31 }) + (HsVar + (NoExtField) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:4:23-31 }) + (Unqual + {OccName: undefined}))))))] + (EmptyLocalBinds + (NoExtField)))))]) + (FromSource)) + []))) + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { InTreeAnnotations1.hs:6:1-27 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { InTreeAnnotations1.hs:6:1-27 }) + (TyClD + (NoExtField) + (DataDecl + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:6:1-27 } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { InTreeAnnotations1.hs:6:1-4 })) + ,(AddApiAnn AnnEqual (AR { InTreeAnnotations1.hs:6:8 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:6:6 }) + (Unqual + {OccName: T})) + (HsQTvs + (NoExtField) + []) + (Prefix) + (HsDataDefn + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:6:1-27 } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { InTreeAnnotations1.hs:6:1-4 })) + ,(AddApiAnn AnnEqual (AR { InTreeAnnotations1.hs:6:8 }))] + (AnnComments + [])) + (DataType) + (Nothing) + (Nothing) + (Nothing) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:6:10-27 }) + (ConDeclH98 + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:6:10-27 } + (UnchangedAnchor)) + [] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:6:10-12 }) + (Unqual + {OccName: MkT})) + (False) + [] + (Nothing) + (RecCon + (L + (SrcSpanAnn (ApiAnn + (Anchor + { InTreeAnnotations1.hs:6:14 } + (UnchangedAnchor)) + (AnnList + (Just + (Anchor + { InTreeAnnotations1.hs:6:16-25 } + (UnchangedAnchor))) + (Just + (AddApiAnn AnnOpenC (AR { InTreeAnnotations1.hs:6:14 }))) + (Just + (AddApiAnn AnnCloseC (AR { InTreeAnnotations1.hs:6:27 }))) + [] + []) + (AnnComments + [])) { InTreeAnnotations1.hs:6:14-27 }) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:6:16-25 }) + (ConDeclField + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:6:16-18 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { InTreeAnnotations1.hs:6:20-21 }))] + (AnnComments + [])) + [(L + { InTreeAnnotations1.hs:6:16 } + (FieldOcc + (NoExtField) + (L + (SrcSpanAnn (ApiAnn + (Anchor + { InTreeAnnotations1.hs:6:16 } + (UnchangedAnchor)) + (NameAnnTrailing + [(AddCommaAnn + (AR { InTreeAnnotations1.hs:6:17 }))]) + (AnnComments + [])) { InTreeAnnotations1.hs:6:16 }) + (Unqual + {OccName: x})))) + ,(L + { InTreeAnnotations1.hs:6:18 } + (FieldOcc + (NoExtField) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:6:18 }) + (Unqual + {OccName: y}))))] + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:6:23-25 }) + (HsTyVar + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:6:23-25 } + (UnchangedAnchor)) + [] + (AnnComments + [])) + (NotPromoted) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:6:23-25 }) + (Unqual + {OccName: Int})))) + (Nothing)))])) + (Nothing)))] + [])))) + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { InTreeAnnotations1.hs:8:1-43 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { InTreeAnnotations1.hs:8:1-43 }) + (ValD + (NoExtField) + (FunBind + (NoExtField) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:1 }) + (Unqual + {OccName: f})) + (MG + (NoExtField) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:1-43 }) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:1-43 }) + (Match + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:8:1-43 } + (UnchangedAnchor)) + [] + (AnnComments + [])) + (FunRhs + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:1 }) + (Unqual + {OccName: f})) + (Prefix) + (NoSrcStrict)) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:3-35 }) + (ParPat + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:8:3-35 } + (UnchangedAnchor)) + (AnnParen + (AnnParens) + (AR { InTreeAnnotations1.hs:8:3 }) + (AR { InTreeAnnotations1.hs:8:35 })) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:4-34 }) + (ConPat + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:8:4-34 } + (UnchangedAnchor)) + [(AddApiAnn AnnOpenC (AR { InTreeAnnotations1.hs:8:8 })) + ,(AddApiAnn AnnCloseC (AR { InTreeAnnotations1.hs:8:34 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:4-6 }) + (Unqual + {OccName: MkT})) + (RecCon + (HsRecFields + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { InTreeAnnotations1.hs:8:10-15 } + (UnchangedAnchor)) + (AnnListItem + [(AddCommaAnn + (AR { InTreeAnnotations1.hs:8:16 }))]) + (AnnComments + [])) { InTreeAnnotations1.hs:8:10-15 }) + (HsRecField + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:8:10 } + (UnchangedAnchor)) + [(AddApiAnn AnnEqual (AR { InTreeAnnotations1.hs:8:12 }))] + (AnnComments + [])) + (L + { InTreeAnnotations1.hs:8:10 } + (FieldOcc + (NoExtField) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:10 }) + (Unqual + {OccName: x})))) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:14-15 }) + (BangPat + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:8:14-15 } + (UnchangedAnchor)) + [(AddApiAnn AnnBang (AR { InTreeAnnotations1.hs:8:14 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:15 }) + (VarPat + (NoExtField) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:15 }) + (Unqual + {OccName: v})))))) + (False))) + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:18-32 }) + (HsRecField + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:8:18 } + (UnchangedAnchor)) + [(AddApiAnn AnnEqual (AR { InTreeAnnotations1.hs:8:20 }))] + (AnnComments + [])) + (L + { InTreeAnnotations1.hs:8:18 } + (FieldOcc + (NoExtField) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:18 }) + (Unqual + {OccName: y})))) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:22-32 }) + (ViewPat + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:8:22-32 } + (UnchangedAnchor)) + [(AddApiAnn AnnRarrow (AR { InTreeAnnotations1.hs:8:29-30 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:22-27 }) + (HsVar + (NoExtField) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:22-27 }) + (Unqual + {OccName: negate})))) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:32 }) + (VarPat + (NoExtField) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:32 }) + (Unqual + {OccName: w})))))) + (False)))] + (Nothing)))))))] + (GRHSs + (NoExtField) + [(L + { InTreeAnnotations1.hs:8:37-43 } + (GRHS + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:8:37-43 } + (UnchangedAnchor)) + (GrhsAnn + (Nothing) + (AddApiAnn AnnEqual (AR { InTreeAnnotations1.hs:8:37 }))) + (AnnComments + [])) + [] + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:39-43 }) + (OpApp + (ApiAnn + (Anchor + { InTreeAnnotations1.hs:8:39-43 } + (UnchangedAnchor)) + [] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:39 }) + (HsVar + (NoExtField) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:39 }) + (Unqual + {OccName: v})))) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:41 }) + (HsVar + (NoExtField) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:41 }) + (Unqual + {OccName: +})))) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:43 }) + (HsVar + (NoExtField) + (L + (SrcSpanAnn (ApiAnnNotUsed) { InTreeAnnotations1.hs:8:43 }) + (Unqual + {OccName: w}))))))))] + (EmptyLocalBinds + (NoExtField)))))]) + (FromSource)) + [])))] + (Nothing) + (Nothing))) diff --git a/testsuite/tests/ghc-api/annotations/Makefile b/testsuite/tests/ghc-api/annotations/Makefile index a9bd5b36da..23151ea43a 100644 --- a/testsuite/tests/ghc-api/annotations/Makefile +++ b/testsuite/tests/ghc-api/annotations/Makefile @@ -4,10 +4,8 @@ include $(TOP)/mk/test.mk clean: rm -f *.o *.hi - rm -f annotations comments parseTree - rm -f listcomps + rm -f annotations comments rm -f stringSource - rm -f t11430 .PHONY: annotations annotations: @@ -15,162 +13,20 @@ annotations: '$(TEST_HC)' $(TEST_HC_OPTS) --make -v0 -package ghc annotations ./annotations "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" -.PHONY: parseTree -parseTree: - rm -f parseTree.o parseTree.hi - '$(TEST_HC)' $(TEST_HC_OPTS) --make -v0 -package ghc parseTree - ./parseTree "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" - .PHONY: comments comments: rm -f comments.o comments.hi '$(TEST_HC)' $(TEST_HC_OPTS) --make -v0 -package ghc comments ./comments "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" -.PHONY: exampleTest -exampleTest: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" AnnotationTuple.hs - -.PHONY: listcomps -listcomps: - rm -f listcomps.o listcomps.hi - '$(TEST_HC)' $(TEST_HC_OPTS) --make -v0 -package ghc listcomps - ./listcomps "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" - -.PHONY: T10358 -T10358: - # Ignore result code, we have an unattached (superfluous) AnnBang - - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10358.hs - -.PHONY: T10396 -T10396: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10396.hs - -.PHONY: T10255 -T10255: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10255.hs - -.PHONY: T10357 -T10357: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10357.hs - -.PHONY: T10268 -T10268: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10268.hs - -.PHONY: T10280 -T10280: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10280.hs - -.PHONY: T10269 -T10269: - # Ignore result code, we have an unattached (superfluous) AnnVal - - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10269.hs - -.PHONY: T10312 -T10312: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10312.hs - -.PHONY: T10307 -T10307: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10307.hs - -.PHONY: T10309 -T10309: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10309.hs - -.PHONY: boolFormula -boolFormula: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" TestBoolFormula.hs - -.PHONY: T10278 -T10278: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10278.hs - -.PHONY: T10354 -T10354: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10354.hs - -.PHONY: T10399 -T10399: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10399.hs - -.PHONY: bundle-export -bundle-export: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" BundleExport.hs - -.PHONY: T10313 -T10313: - rm -f stringSource.o stringSource.hi - '$(TEST_HC)' $(TEST_HC_OPTS) --make -v0 -package ghc stringSource - ./stringSource "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10313 - -.PHONY: T11018 -T11018: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test11018.hs - -.PHONY: T10276 -T10276: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10276.hs - -.PHONY: T10598 -T10598: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10598.hs - -.PHONY: T11321 -T11321: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test11321.hs - -.PHONY: T11332 -T11332: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test11332.hs - -.PHONY: T11430 -T11430: - rm -f t11430.o t11430.hi t11430 - '$(TEST_HC)' $(TEST_HC_OPTS) --make -v0 -package ghc t11430 - ./t11430 "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test11430 - -.PHONY: load-main -load-main: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" load-main.hs - -.PHONY: T12417 -T12417: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test12417.hs - -.PHONY: T13163 -T13163: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test13163.hs - -.PHONY: T15303 -T15303: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test15303.hs - -.PHONY: T16212 -T16212: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test16212.hs - -.PHONY: T16230 -T16230: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test16230.hs - -.PHONY: T16236 -T16236: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test16236.hs - -.PHONY: StarBinderAnns -StarBinderAnns: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" StarBinderAnns.hs - -.PHONY: T16279 -T16279: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test16279.hs - -.PHONY: T17388 -T17388: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test17388.hs - -.PHONY: T17519 -T17519: - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test17519.hs +# .PHONY: T10313 +# T10313: +# rm -f stringSource.o stringSource.hi +# '$(TEST_HC)' $(TEST_HC_OPTS) --make -v0 -package ghc stringSource +# ./stringSource "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10313 + +# .PHONY: T11430 +# T11430: +# rm -f t11430.o t11430.hi t11430 +# '$(TEST_HC)' $(TEST_HC_OPTS) --make -v0 -package ghc t11430 +# ./t11430 "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test11430 diff --git a/testsuite/tests/ghc-api/annotations/StarBinderAnns.stdout b/testsuite/tests/ghc-api/annotations/StarBinderAnns.stdout deleted file mode 100644 index 9d063f0934..0000000000 --- a/testsuite/tests/ghc-api/annotations/StarBinderAnns.stdout +++ /dev/null @@ -1,38 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((StarBinderAnns.hs:1:1,AnnModule), [StarBinderAnns.hs:4:1-6]), -((StarBinderAnns.hs:1:1,AnnWhere), [StarBinderAnns.hs:4:23-27]), -((StarBinderAnns.hs:4:10-21,AnnCloseP), [StarBinderAnns.hs:4:21]), -((StarBinderAnns.hs:4:10-21,AnnOpenP), [StarBinderAnns.hs:4:10]), -((StarBinderAnns.hs:4:11-20,AnnType), [StarBinderAnns.hs:4:11-14]), -((StarBinderAnns.hs:4:16-20,AnnCloseP), [StarBinderAnns.hs:4:20]), -((StarBinderAnns.hs:4:16-20,AnnOpenP), [StarBinderAnns.hs:4:16]), -((StarBinderAnns.hs:4:16-20,AnnVal), [StarBinderAnns.hs:4:17-19]), -((StarBinderAnns.hs:6:1-19,AnnCloseC), [StarBinderAnns.hs:6:50]), -((StarBinderAnns.hs:6:1-19,AnnCloseP), [StarBinderAnns.hs:6:15]), -((StarBinderAnns.hs:6:1-19,AnnFamily), [StarBinderAnns.hs:6:6-11]), -((StarBinderAnns.hs:6:1-19,AnnOpenC), [StarBinderAnns.hs:6:27]), -((StarBinderAnns.hs:6:1-19,AnnOpenP), [StarBinderAnns.hs:6:13]), -((StarBinderAnns.hs:6:1-19,AnnSemi), [StarBinderAnns.hs:7:1]), -((StarBinderAnns.hs:6:1-19,AnnType), [StarBinderAnns.hs:6:1-4]), -((StarBinderAnns.hs:6:1-19,AnnWhere), [StarBinderAnns.hs:6:21-25]), -((StarBinderAnns.hs:6:13-15,AnnCloseP), [StarBinderAnns.hs:6:15]), -((StarBinderAnns.hs:6:13-15,AnnOpenP), [StarBinderAnns.hs:6:13]), -((StarBinderAnns.hs:6:29-31,AnnCloseP), [StarBinderAnns.hs:6:31]), -((StarBinderAnns.hs:6:29-31,AnnOpenP), [StarBinderAnns.hs:6:29]), -((StarBinderAnns.hs:6:29-48,AnnCloseP), [StarBinderAnns.hs:6:31]), -((StarBinderAnns.hs:6:29-48,AnnEqual), [StarBinderAnns.hs:6:37]), -((StarBinderAnns.hs:6:29-48,AnnOpenP), [StarBinderAnns.hs:6:29]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "StarBinderAnns.hs" 7 1 diff --git a/testsuite/tests/ghc-api/annotations/T10255.stdout b/testsuite/tests/ghc-api/annotations/T10255.stdout deleted file mode 100644 index 15df1b7f44..0000000000 --- a/testsuite/tests/ghc-api/annotations/T10255.stdout +++ /dev/null @@ -1,29 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test10255.hs:1:1,AnnModule), [Test10255.hs:2:1-6]), -((Test10255.hs:1:1,AnnWhere), [Test10255.hs:2:18-22]), -((Test10255.hs:4:1-17,AnnImport), [Test10255.hs:4:1-6]), -((Test10255.hs:4:1-17,AnnSemi), [Test10255.hs:6:1]), -((Test10255.hs:(6,1)-(7,11),AnnEqual), [Test10255.hs:6:29]), -((Test10255.hs:(6,1)-(7,11),AnnFunId), [Test10255.hs:6:1-3]), -((Test10255.hs:(6,1)-(7,11),AnnSemi), [Test10255.hs:8:1]), -((Test10255.hs:6:5-27,AnnCloseP), [Test10255.hs:6:27]), -((Test10255.hs:6:5-27,AnnOpenP), [Test10255.hs:6:5]), -((Test10255.hs:6:6-26,AnnDcolon), [Test10255.hs:6:8-9]), -((Test10255.hs:6:11-26,AnnCloseP), [Test10255.hs:6:26]), -((Test10255.hs:6:11-26,AnnOpenP), [Test10255.hs:6:11]), -((Test10255.hs:6:12-18,AnnRarrow), [Test10255.hs:6:20-21]), -((Test10255.hs:6:12-25,AnnRarrow), [Test10255.hs:6:20-21]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test10255.hs" 8 1 diff --git a/testsuite/tests/ghc-api/annotations/T10268.stdout b/testsuite/tests/ghc-api/annotations/T10268.stdout deleted file mode 100644 index 906632a59b..0000000000 --- a/testsuite/tests/ghc-api/annotations/T10268.stdout +++ /dev/null @@ -1,39 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test10268.hs:1:1,AnnModule), [Test10268.hs:3:1-6]), -((Test10268.hs:1:1,AnnWhere), [Test10268.hs:3:18-22]), -((Test10268.hs:5:1-17,AnnEqual), [Test10268.hs:5:4]), -((Test10268.hs:5:1-17,AnnFunId), [Test10268.hs:5:1-2]), -((Test10268.hs:5:1-17,AnnSemi), [Test10268.hs:7:1]), -((Test10268.hs:5:6-17,AnnDollar), [Test10268.hs:5:6]), -((Test10268.hs:7:1-27,AnnDcolon), [Test10268.hs:7:6-7]), -((Test10268.hs:7:1-27,AnnSemi), [Test10268.hs:8:1]), -((Test10268.hs:7:9,AnnRarrow), [Test10268.hs:7:11-12]), -((Test10268.hs:7:9-27,AnnRarrow), [Test10268.hs:7:11-12]), -((Test10268.hs:7:22-25,AnnCloseS), [Test10268.hs:7:25]), -((Test10268.hs:7:22-25,AnnOpenS), [Test10268.hs:7:23]), -((Test10268.hs:7:22-25,AnnSimpleQuote), [Test10268.hs:7:22]), -((Test10268.hs:8:1-16,AnnEqual), [Test10268.hs:8:6]), -((Test10268.hs:8:1-16,AnnFunId), [Test10268.hs:8:1-4]), -((Test10268.hs:8:1-16,AnnSemi), [Test10268.hs:10:1]), -((Test10268.hs:10:1-22,AnnDcolon), [Test10268.hs:10:7-8]), -((Test10268.hs:10:1-22,AnnSemi), [Test10268.hs:11:1]), -((Test10268.hs:10:18-20,AnnCloseS), [Test10268.hs:10:20]), -((Test10268.hs:10:18-20,AnnOpenS), [Test10268.hs:10:19]), -((Test10268.hs:10:18-20,AnnSimpleQuote), [Test10268.hs:10:18]), -((Test10268.hs:11:1-17,AnnEqual), [Test10268.hs:11:7]), -((Test10268.hs:11:1-17,AnnFunId), [Test10268.hs:11:1-5]), -((Test10268.hs:11:1-17,AnnSemi), [Test10268.hs:12:1]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test10268.hs" 12 1 diff --git a/testsuite/tests/ghc-api/annotations/T10269.stdout b/testsuite/tests/ghc-api/annotations/T10269.stdout deleted file mode 100644 index b0946e1812..0000000000 --- a/testsuite/tests/ghc-api/annotations/T10269.stdout +++ /dev/null @@ -1,25 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[(AnnVal, Test10269.hs:4:4-6)] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test10269.hs:1:1,AnnModule), [Test10269.hs:1:1-6]), -((Test10269.hs:1:1,AnnWhere), [Test10269.hs:1:18-22]), -((Test10269.hs:4:1-9,AnnCloseP), [Test10269.hs:4:9]), -((Test10269.hs:4:1-9,AnnOpenP), [Test10269.hs:4:1]), -((Test10269.hs:4:1-26,AnnCloseP), [Test10269.hs:4:9]), -((Test10269.hs:4:1-26,AnnEqual), [Test10269.hs:4:16]), -((Test10269.hs:4:1-26,AnnFunId), [Test10269.hs:4:4-6]), -((Test10269.hs:4:1-26,AnnOpenP), [Test10269.hs:4:1]), -((Test10269.hs:4:1-26,AnnSemi), [Test10269.hs:5:1]), -((Test10269.hs:4:2-8,AnnVal), [Test10269.hs:4:4-6]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test10269.hs" 5 1 diff --git a/testsuite/tests/ghc-api/annotations/T10276.stdout b/testsuite/tests/ghc-api/annotations/T10276.stdout deleted file mode 100644 index 4c53170e2c..0000000000 --- a/testsuite/tests/ghc-api/annotations/T10276.stdout +++ /dev/null @@ -1,71 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test10276.hs:1:1,AnnModule), [Test10276.hs:4:1-6]), -((Test10276.hs:1:1,AnnWhere), [Test10276.hs:4:18-22]), -((Test10276.hs:6:1-14,AnnEqual), [Test10276.hs:6:4]), -((Test10276.hs:6:1-14,AnnFunId), [Test10276.hs:6:1-2]), -((Test10276.hs:6:1-14,AnnSemi), [Test10276.hs:7:1]), -((Test10276.hs:6:6-14,AnnCloseQ), [Test10276.hs:6:13-14]), -((Test10276.hs:6:6-14,AnnOpenEQ), [Test10276.hs:6:6-7]), -((Test10276.hs:7:1-15,AnnEqual), [Test10276.hs:7:4]), -((Test10276.hs:7:1-15,AnnFunId), [Test10276.hs:7:1-2]), -((Test10276.hs:7:1-15,AnnSemi), [Test10276.hs:9:1]), -((Test10276.hs:7:6-15,AnnCloseQ), [Test10276.hs:7:14-15]), -((Test10276.hs:7:6-15,AnnOpenE), [Test10276.hs:7:6-8]), -((Test10276.hs:(9,1)-(11,74),AnnClass), [Test10276.hs:9:1-5]), -((Test10276.hs:(9,1)-(11,74),AnnSemi), [Test10276.hs:13:1]), -((Test10276.hs:(9,1)-(11,74),AnnWhere), [Test10276.hs:9:17-21]), -((Test10276.hs:(10,3)-(11,74),AnnEqual), [Test10276.hs:10:11]), -((Test10276.hs:(10,3)-(11,74),AnnFunId), [Test10276.hs:10:3-7]), -((Test10276.hs:(10,13)-(11,74),AnnClose), [Test10276.hs:11:72-74]), -((Test10276.hs:(10,13)-(11,74),AnnOpen), [Test10276.hs:10:13-15]), -((Test10276.hs:(10,16)-(11,71),AnnVal), [Test10276.hs:10:20]), -((Test10276.hs:10:31-42,AnnDollarDollar), [Test10276.hs:10:31-32]), -((Test10276.hs:10:33-42,AnnCloseP), [Test10276.hs:10:42]), -((Test10276.hs:10:33-42,AnnOpenP), [Test10276.hs:10:33]), -((Test10276.hs:11:25-71,AnnCloseP), [Test10276.hs:11:71]), -((Test10276.hs:11:25-71,AnnOpenP), [Test10276.hs:11:25]), -((Test10276.hs:11:26-36,AnnCloseP), [Test10276.hs:11:36]), -((Test10276.hs:11:26-36,AnnOpenP), [Test10276.hs:11:26]), -((Test10276.hs:11:26-70,AnnDcolon), [Test10276.hs:11:38-39]), -((Test10276.hs:11:27,AnnComma), [Test10276.hs:11:28]), -((Test10276.hs:11:41-70,AnnCloseP), [Test10276.hs:11:70]), -((Test10276.hs:11:41-70,AnnOpenP), [Test10276.hs:11:41]), -((Test10276.hs:11:42-44,AnnComma), [Test10276.hs:11:45]), -((Test10276.hs:11:59-69,AnnCloseS), [Test10276.hs:11:69]), -((Test10276.hs:11:59-69,AnnOpenS), [Test10276.hs:11:59]), -((Test10276.hs:(13,1)-(15,74),AnnClass), [Test10276.hs:13:1-5]), -((Test10276.hs:(13,1)-(15,74),AnnSemi), [Test10276.hs:16:1]), -((Test10276.hs:(13,1)-(15,74),AnnWhere), [Test10276.hs:13:18-22]), -((Test10276.hs:(14,3)-(15,74),AnnEqual), [Test10276.hs:14:11]), -((Test10276.hs:(14,3)-(15,74),AnnFunId), [Test10276.hs:14:3-7]), -((Test10276.hs:(14,13)-(15,74),AnnClose), [Test10276.hs:15:72-74]), -((Test10276.hs:(14,13)-(15,74),AnnOpenE), [Test10276.hs:14:13-16]), -((Test10276.hs:(14,17)-(15,71),AnnVal), [Test10276.hs:14:21]), -((Test10276.hs:14:32-43,AnnDollarDollar), [Test10276.hs:14:32-33]), -((Test10276.hs:14:34-43,AnnCloseP), [Test10276.hs:14:43]), -((Test10276.hs:14:34-43,AnnOpenP), [Test10276.hs:14:34]), -((Test10276.hs:15:25-71,AnnCloseP), [Test10276.hs:15:71]), -((Test10276.hs:15:25-71,AnnOpenP), [Test10276.hs:15:25]), -((Test10276.hs:15:26-36,AnnCloseP), [Test10276.hs:15:36]), -((Test10276.hs:15:26-36,AnnOpenP), [Test10276.hs:15:26]), -((Test10276.hs:15:26-70,AnnDcolon), [Test10276.hs:15:38-39]), -((Test10276.hs:15:27,AnnComma), [Test10276.hs:15:28]), -((Test10276.hs:15:41-70,AnnCloseP), [Test10276.hs:15:70]), -((Test10276.hs:15:41-70,AnnOpenP), [Test10276.hs:15:41]), -((Test10276.hs:15:42-44,AnnComma), [Test10276.hs:15:45]), -((Test10276.hs:15:59-69,AnnCloseS), [Test10276.hs:15:69]), -((Test10276.hs:15:59-69,AnnOpenS), [Test10276.hs:15:59]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test10276.hs" 16 1 diff --git a/testsuite/tests/ghc-api/annotations/T10278.stdout b/testsuite/tests/ghc-api/annotations/T10278.stdout deleted file mode 100644 index 7c029c6c06..0000000000 --- a/testsuite/tests/ghc-api/annotations/T10278.stdout +++ /dev/null @@ -1,99 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test10278.hs:1:1,AnnModule), [Test10278.hs:2:1-6]), -((Test10278.hs:1:1,AnnWhere), [Test10278.hs:2:18-22]), -((Test10278.hs:4:1-61,AnnDcolon), [Test10278.hs:4:16-17]), -((Test10278.hs:4:1-61,AnnSemi), [Test10278.hs:5:1]), -((Test10278.hs:4:19-61,AnnDot), [Test10278.hs:4:29]), -((Test10278.hs:4:19-61,AnnForall), [Test10278.hs:4:19-24]), -((Test10278.hs:4:31-61,AnnDot), [Test10278.hs:4:42]), -((Test10278.hs:4:31-61,AnnForall), [Test10278.hs:4:31-36]), -((Test10278.hs:4:44-46,AnnRarrow), [Test10278.hs:4:48-49]), -((Test10278.hs:4:44-61,AnnRarrow), [Test10278.hs:4:48-49]), -((Test10278.hs:4:51-54,AnnRarrow), [Test10278.hs:4:56-57]), -((Test10278.hs:4:51-61,AnnRarrow), [Test10278.hs:4:56-57]), -((Test10278.hs:5:1-26,AnnEqual), [Test10278.hs:5:16]), -((Test10278.hs:5:1-26,AnnFunId), [Test10278.hs:5:1-14]), -((Test10278.hs:5:1-26,AnnSemi), [Test10278.hs:7:1]), -((Test10278.hs:(7,1)-(11,33),AnnDcolon), [Test10278.hs:7:17-18]), -((Test10278.hs:(7,1)-(11,33),AnnSemi), [Test10278.hs:12:1]), -((Test10278.hs:7:20-39,AnnCloseP), [Test10278.hs:7:39, Test10278.hs:7:39]), -((Test10278.hs:7:20-39,AnnDarrow), [Test10278.hs:7:41-42]), -((Test10278.hs:7:20-39,AnnOpenP), [Test10278.hs:7:20, Test10278.hs:7:20]), -((Test10278.hs:7:21-24,AnnComma), [Test10278.hs:7:25]), -((Test10278.hs:(8,19)-(10,58),AnnCloseP), [Test10278.hs:10:58]), -((Test10278.hs:(8,19)-(10,58),AnnOpenP), [Test10278.hs:8:19]), -((Test10278.hs:(8,19)-(10,58),AnnRarrow), [Test10278.hs:11:23-24]), -((Test10278.hs:(8,19)-(11,33),AnnRarrow), [Test10278.hs:11:23-24]), -((Test10278.hs:(8,20)-(10,57),AnnDot), [Test10278.hs:8:30]), -((Test10278.hs:(8,20)-(10,57),AnnForall), [Test10278.hs:8:20-25]), -((Test10278.hs:(8,32)-(10,57),AnnDot), [Test10278.hs:8:43]), -((Test10278.hs:(8,32)-(10,57),AnnForall), [Test10278.hs:8:32-37]), -((Test10278.hs:9:27-50,AnnRarrow), [Test10278.hs:10:31-32]), -((Test10278.hs:(9,27)-(10,57),AnnRarrow), [Test10278.hs:10:31-32]), -((Test10278.hs:9:38-50,AnnCloseP), [Test10278.hs:9:50]), -((Test10278.hs:9:38-50,AnnOpenP), [Test10278.hs:9:38]), -((Test10278.hs:10:45-57,AnnCloseP), [Test10278.hs:10:57]), -((Test10278.hs:10:45-57,AnnOpenP), [Test10278.hs:10:45]), -((Test10278.hs:11:26,AnnRarrow), [Test10278.hs:11:28-29]), -((Test10278.hs:11:26-33,AnnRarrow), [Test10278.hs:11:28-29]), -((Test10278.hs:11:31-33,AnnCloseS), [Test10278.hs:11:33]), -((Test10278.hs:11:31-33,AnnOpenS), [Test10278.hs:11:31]), -((Test10278.hs:12:1-47,AnnEqual), [Test10278.hs:12:22]), -((Test10278.hs:12:1-47,AnnFunId), [Test10278.hs:12:1-15]), -((Test10278.hs:12:1-47,AnnSemi), [Test10278.hs:14:1]), -((Test10278.hs:12:35-44,AnnCloseP), [Test10278.hs:12:44]), -((Test10278.hs:12:35-44,AnnOpenP), [Test10278.hs:12:35]), -((Test10278.hs:(14,1)-(17,80),AnnData), [Test10278.hs:14:1-4]), -((Test10278.hs:(14,1)-(17,80),AnnSemi), [Test10278.hs:21:1]), -((Test10278.hs:(14,1)-(17,80),AnnWhere), [Test10278.hs:14:21-25]), -((Test10278.hs:15:5-64,AnnDcolon), [Test10278.hs:15:11-12]), -((Test10278.hs:15:5-64,AnnSemi), [Test10278.hs:16:5]), -((Test10278.hs:15:14-64,AnnDot), [Test10278.hs:15:23]), -((Test10278.hs:15:14-64,AnnForall), [Test10278.hs:15:14-19]), -((Test10278.hs:15:25-40,AnnCloseP), [Test10278.hs:15:40, Test10278.hs:15:40]), -((Test10278.hs:15:25-40,AnnDarrow), [Test10278.hs:15:42-43]), -((Test10278.hs:15:25-40,AnnOpenP), [Test10278.hs:15:25, Test10278.hs:15:25]), -((Test10278.hs:15:27-30,AnnComma), [Test10278.hs:15:31]), -((Test10278.hs:15:45-46,AnnBang), [Test10278.hs:15:45]), -((Test10278.hs:15:45-46,AnnRarrow), [Test10278.hs:15:48-49]), -((Test10278.hs:15:45-64,AnnRarrow), [Test10278.hs:15:48-49]), -((Test10278.hs:16:5-64,AnnDcolon), [Test10278.hs:16:11-12]), -((Test10278.hs:16:5-64,AnnSemi), [Test10278.hs:17:5]), -((Test10278.hs:16:14-64,AnnDot), [Test10278.hs:16:23]), -((Test10278.hs:16:14-64,AnnForall), [Test10278.hs:16:14-19]), -((Test10278.hs:16:25-40,AnnCloseP), [Test10278.hs:16:40, Test10278.hs:16:40]), -((Test10278.hs:16:25-40,AnnDarrow), [Test10278.hs:16:42-43]), -((Test10278.hs:16:25-40,AnnOpenP), [Test10278.hs:16:25, Test10278.hs:16:25]), -((Test10278.hs:16:27-30,AnnComma), [Test10278.hs:16:31]), -((Test10278.hs:16:45-46,AnnBang), [Test10278.hs:16:45]), -((Test10278.hs:16:45-46,AnnRarrow), [Test10278.hs:16:48-49]), -((Test10278.hs:16:45-64,AnnRarrow), [Test10278.hs:16:48-49]), -((Test10278.hs:17:5-80,AnnDcolon), [Test10278.hs:17:12-13]), -((Test10278.hs:17:15-20,AnnCloseP), [Test10278.hs:17:20]), -((Test10278.hs:17:15-20,AnnDarrow), [Test10278.hs:17:22-23]), -((Test10278.hs:17:15-20,AnnOpenP), [Test10278.hs:17:15]), -((Test10278.hs:17:25-80,AnnDot), [Test10278.hs:17:34]), -((Test10278.hs:17:25-80,AnnForall), [Test10278.hs:17:25-30]), -((Test10278.hs:17:36-51,AnnCloseP), [Test10278.hs:17:51, Test10278.hs:17:51]), -((Test10278.hs:17:36-51,AnnDarrow), [Test10278.hs:17:53-54]), -((Test10278.hs:17:36-51,AnnOpenP), [Test10278.hs:17:36, Test10278.hs:17:36]), -((Test10278.hs:17:38-41,AnnComma), [Test10278.hs:17:42]), -((Test10278.hs:17:56-57,AnnBang), [Test10278.hs:17:56]), -((Test10278.hs:17:56-57,AnnRarrow), [Test10278.hs:17:59-60]), -((Test10278.hs:17:56-80,AnnRarrow), [Test10278.hs:17:59-60]), -((Test10278.hs:17:62,AnnRarrow), [Test10278.hs:17:64-65]), -((Test10278.hs:17:62-80,AnnRarrow), [Test10278.hs:17:64-65]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test10278.hs" 21 1 diff --git a/testsuite/tests/ghc-api/annotations/T10280.stdout b/testsuite/tests/ghc-api/annotations/T10280.stdout deleted file mode 100644 index e291777a0e..0000000000 --- a/testsuite/tests/ghc-api/annotations/T10280.stdout +++ /dev/null @@ -1,28 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test10280.hs:1:1,AnnModule), [Test10280.hs:2:1-6]), -((Test10280.hs:1:1,AnnWhere), [Test10280.hs:2:18-22]), -((Test10280.hs:4:1-45,AnnEqual), [Test10280.hs:4:6]), -((Test10280.hs:4:1-45,AnnFunId), [Test10280.hs:4:1-4]), -((Test10280.hs:4:1-45,AnnSemi), [Test10280.hs:5:1]), -((Test10280.hs:4:35-45,AnnCloseP), [Test10280.hs:4:45]), -((Test10280.hs:4:35-45,AnnOpenP), [Test10280.hs:4:35]), -((Test10280.hs:4:36-40,AnnCloseP), [Test10280.hs:4:40]), -((Test10280.hs:4:36-40,AnnOpenP), [Test10280.hs:4:36]), -((Test10280.hs:4:36-44,AnnVal), [Test10280.hs:4:42]), -((Test10280.hs:4:37,AnnComma), [Test10280.hs:4:37]), -((Test10280.hs:4:38-39,AnnCloseP), [Test10280.hs:4:39]), -((Test10280.hs:4:38-39,AnnOpenP), [Test10280.hs:4:38]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test10280.hs" 5 1 diff --git a/testsuite/tests/ghc-api/annotations/T10307.stdout b/testsuite/tests/ghc-api/annotations/T10307.stdout deleted file mode 100644 index 163bfb6b82..0000000000 --- a/testsuite/tests/ghc-api/annotations/T10307.stdout +++ /dev/null @@ -1,28 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test10307.hs:1:1,AnnModule), [Test10307.hs:2:1-6]), -((Test10307.hs:1:1,AnnWhere), [Test10307.hs:2:18-22]), -((Test10307.hs:(4,1)-(6,34),AnnClass), [Test10307.hs:4:1-5]), -((Test10307.hs:(4,1)-(6,34),AnnSemi), [Test10307.hs:7:1]), -((Test10307.hs:(4,1)-(6,34),AnnWhere), [Test10307.hs:4:18-22]), -((Test10307.hs:5:3-34,AnnDcolon), [Test10307.hs:5:31-32]), -((Test10307.hs:5:3-34,AnnSemi), [Test10307.hs:6:3]), -((Test10307.hs:5:3-34,AnnType), [Test10307.hs:5:3-6]), -((Test10307.hs:6:3-34,AnnEqual), [Test10307.hs:6:31]), -((Test10307.hs:6:3-34,AnnType), [Test10307.hs:6:3-6]), -((Test10307.hs:6:8-34,AnnEqual), [Test10307.hs:6:31]), -((Test10307.hs:6:33-34,AnnCloseP), [Test10307.hs:6:34]), -((Test10307.hs:6:33-34,AnnOpenP), [Test10307.hs:6:33]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test10307.hs" 7 1 diff --git a/testsuite/tests/ghc-api/annotations/T10309.stdout b/testsuite/tests/ghc-api/annotations/T10309.stdout deleted file mode 100644 index a929c1b70c..0000000000 --- a/testsuite/tests/ghc-api/annotations/T10309.stdout +++ /dev/null @@ -1,29 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test10309.hs:1:1,AnnModule), [Test10309.hs:2:1-6]), -((Test10309.hs:1:1,AnnWhere), [Test10309.hs:2:18-22]), -((Test10309.hs:(4,1)-(6,34),AnnData), [Test10309.hs:4:1-4]), -((Test10309.hs:(4,1)-(6,34),AnnSemi), [Test10309.hs:7:1]), -((Test10309.hs:(4,1)-(6,34),AnnWhere), [Test10309.hs:4:13-17]), -((Test10309.hs:(5,3)-(6,34),AnnDcolon), [Test10309.hs:5:6-7]), -((Test10309.hs:5:9-15,AnnCloseP), [Test10309.hs:5:15]), -((Test10309.hs:5:9-15,AnnDarrow), [Test10309.hs:5:17-18]), -((Test10309.hs:5:9-15,AnnOpenP), [Test10309.hs:5:9]), -((Test10309.hs:(5,20)-(6,20),AnnCloseC), [Test10309.hs:6:20]), -((Test10309.hs:(5,20)-(6,20),AnnOpenC), [Test10309.hs:5:20]), -((Test10309.hs:(5,20)-(6,20),AnnRarrow), [Test10309.hs:6:22-23]), -((Test10309.hs:(5,20)-(6,34),AnnRarrow), [Test10309.hs:6:22-23]), -((Test10309.hs:5:22-31,AnnDcolon), [Test10309.hs:5:28-29]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test10309.hs" 7 1 diff --git a/testsuite/tests/ghc-api/annotations/T10312.stdout b/testsuite/tests/ghc-api/annotations/T10312.stdout deleted file mode 100644 index 5a46df4f86..0000000000 --- a/testsuite/tests/ghc-api/annotations/T10312.stdout +++ /dev/null @@ -1,258 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test10312.hs:1:1,AnnModule), [Test10312.hs:4:1-6]), -((Test10312.hs:1:1,AnnWhere), [Test10312.hs:4:18-22]), -((Test10312.hs:8:1-15,AnnImport), [Test10312.hs:8:1-6]), -((Test10312.hs:8:1-15,AnnSemi), [Test10312.hs:9:1]), -((Test10312.hs:9:1-30,AnnAs), [Test10312.hs:9:27-28]), -((Test10312.hs:9:1-30,AnnImport), [Test10312.hs:9:1-6]), -((Test10312.hs:9:1-30,AnnQualified), [Test10312.hs:9:8-16]), -((Test10312.hs:9:1-30,AnnSemi), [Test10312.hs:10:1]), -((Test10312.hs:10:1-27,AnnImport), [Test10312.hs:10:1-6]), -((Test10312.hs:10:1-27,AnnSemi), [Test10312.hs:11:1]), -((Test10312.hs:10:17-27,AnnCloseP), [Test10312.hs:10:27]), -((Test10312.hs:10:17-27,AnnOpenP), [Test10312.hs:10:17]), -((Test10312.hs:11:1-25,AnnImport), [Test10312.hs:11:1-6]), -((Test10312.hs:11:1-25,AnnSemi), [Test10312.hs:15:1]), -((Test10312.hs:11:18-25,AnnCloseP), [Test10312.hs:11:25]), -((Test10312.hs:11:18-25,AnnOpenP), [Test10312.hs:11:18]), -((Test10312.hs:15:1-24,AnnDcolon), [Test10312.hs:15:17-18]), -((Test10312.hs:15:1-24,AnnSemi), [Test10312.hs:16:1]), -((Test10312.hs:15:20-24,AnnCloseS), [Test10312.hs:15:24]), -((Test10312.hs:15:20-24,AnnOpenS), [Test10312.hs:15:20]), -((Test10312.hs:(16,1)-(20,19),AnnEqual), [Test10312.hs:16:17]), -((Test10312.hs:(16,1)-(20,19),AnnFunId), [Test10312.hs:16:1-15]), -((Test10312.hs:(16,1)-(20,19),AnnSemi), [Test10312.hs:22:1]), -((Test10312.hs:(16,19)-(20,19),AnnCloseS), [Test10312.hs:20:19]), -((Test10312.hs:(16,19)-(20,19),AnnOpenS), [Test10312.hs:16:19]), -((Test10312.hs:(16,19)-(20,19),AnnVbar), [Test10312.hs:17:19]), -((Test10312.hs:16:21-25,AnnVal), [Test10312.hs:16:23]), -((Test10312.hs:16:21-29,AnnVal), [Test10312.hs:16:27]), -((Test10312.hs:17:21-32,AnnComma), [Test10312.hs:18:19]), -((Test10312.hs:17:21-32,AnnLarrow), [Test10312.hs:17:23-24]), -((Test10312.hs:17:26-32,AnnCloseS), [Test10312.hs:17:32]), -((Test10312.hs:17:26-32,AnnDotdot), [Test10312.hs:17:28-29]), -((Test10312.hs:17:26-32,AnnOpenS), [Test10312.hs:17:26]), -((Test10312.hs:18:21-33,AnnComma), [Test10312.hs:19:19]), -((Test10312.hs:18:21-33,AnnLarrow), [Test10312.hs:18:23-24]), -((Test10312.hs:18:26-33,AnnCloseS), [Test10312.hs:18:33]), -((Test10312.hs:18:26-33,AnnDotdot), [Test10312.hs:18:29-30]), -((Test10312.hs:18:26-33,AnnOpenS), [Test10312.hs:18:26]), -((Test10312.hs:19:21-33,AnnLarrow), [Test10312.hs:19:23-24]), -((Test10312.hs:19:26-33,AnnCloseS), [Test10312.hs:19:33]), -((Test10312.hs:19:26-33,AnnDotdot), [Test10312.hs:19:29-30]), -((Test10312.hs:19:26-33,AnnOpenS), [Test10312.hs:19:26]), -((Test10312.hs:22:1-25,AnnDcolon), [Test10312.hs:22:18-19]), -((Test10312.hs:22:1-25,AnnSemi), [Test10312.hs:23:1]), -((Test10312.hs:22:21-25,AnnCloseS), [Test10312.hs:22:25]), -((Test10312.hs:22:21-25,AnnOpenS), [Test10312.hs:22:21]), -((Test10312.hs:(23,1)-(27,20),AnnEqual), [Test10312.hs:23:18]), -((Test10312.hs:(23,1)-(27,20),AnnFunId), [Test10312.hs:23:1-16]), -((Test10312.hs:(23,1)-(27,20),AnnSemi), [Test10312.hs:32:1]), -((Test10312.hs:(23,20)-(27,20),AnnCloseS), [Test10312.hs:27:20]), -((Test10312.hs:(23,20)-(27,20),AnnOpenS), [Test10312.hs:23:20]), -((Test10312.hs:(23,20)-(27,20),AnnVbar), [Test10312.hs:24:20]), -((Test10312.hs:23:22-26,AnnVal), [Test10312.hs:23:24]), -((Test10312.hs:23:22-30,AnnVal), [Test10312.hs:23:28]), -((Test10312.hs:24:22-33,AnnLarrow), [Test10312.hs:24:24-25]), -((Test10312.hs:24:22-33,AnnVbar), [Test10312.hs:25:20]), -((Test10312.hs:24:27-33,AnnCloseS), [Test10312.hs:24:33]), -((Test10312.hs:24:27-33,AnnDotdot), [Test10312.hs:24:29-30]), -((Test10312.hs:24:27-33,AnnOpenS), [Test10312.hs:24:27]), -((Test10312.hs:25:22-34,AnnLarrow), [Test10312.hs:25:24-25]), -((Test10312.hs:25:22-34,AnnVbar), [Test10312.hs:26:20]), -((Test10312.hs:25:27-34,AnnCloseS), [Test10312.hs:25:34]), -((Test10312.hs:25:27-34,AnnDotdot), [Test10312.hs:25:30-31]), -((Test10312.hs:25:27-34,AnnOpenS), [Test10312.hs:25:27]), -((Test10312.hs:26:22-34,AnnLarrow), [Test10312.hs:26:24-25]), -((Test10312.hs:26:27-34,AnnCloseS), [Test10312.hs:26:34]), -((Test10312.hs:26:27-34,AnnDotdot), [Test10312.hs:26:30-31]), -((Test10312.hs:26:27-34,AnnOpenS), [Test10312.hs:26:27]), -((Test10312.hs:32:1-13,AnnDcolon), [Test10312.hs:32:6-7]), -((Test10312.hs:32:1-13,AnnSemi), [Test10312.hs:33:1]), -((Test10312.hs:32:9-13,AnnCloseS), [Test10312.hs:32:13]), -((Test10312.hs:32:9-13,AnnOpenS), [Test10312.hs:32:9]), -((Test10312.hs:(33,1)-(36,16),AnnEqual), [Test10312.hs:33:6]), -((Test10312.hs:(33,1)-(36,16),AnnFunId), [Test10312.hs:33:1-4]), -((Test10312.hs:(33,1)-(36,16),AnnSemi), [Test10312.hs:38:1]), -((Test10312.hs:33:8-12,AnnVal), [Test10312.hs:33:10]), -((Test10312.hs:(33,8)-(36,16),AnnVal), [Test10312.hs:33:14]), -((Test10312.hs:(33,16)-(36,16),AnnCloseS), [Test10312.hs:36:16]), -((Test10312.hs:(33,16)-(36,16),AnnOpenS), [Test10312.hs:33:16]), -((Test10312.hs:(33,16)-(36,16),AnnVbar), [Test10312.hs:34:16]), -((Test10312.hs:33:18-22,AnnVal), [Test10312.hs:33:20]), -((Test10312.hs:34:18-26,AnnLarrow), [Test10312.hs:34:20-21]), -((Test10312.hs:34:18-26,AnnVbar), [Test10312.hs:35:16]), -((Test10312.hs:35:18-31,AnnLarrow), [Test10312.hs:35:20-21]), -((Test10312.hs:38:1-17,AnnDcolon), [Test10312.hs:38:10-11]), -((Test10312.hs:38:1-17,AnnSemi), [Test10312.hs:39:1]), -((Test10312.hs:38:13-17,AnnCloseS), [Test10312.hs:38:17]), -((Test10312.hs:38:13-17,AnnOpenS), [Test10312.hs:38:13]), -((Test10312.hs:(39,1)-(43,20),AnnEqual), [Test10312.hs:39:10]), -((Test10312.hs:(39,1)-(43,20),AnnFunId), [Test10312.hs:39:1-8]), -((Test10312.hs:(39,1)-(43,20),AnnSemi), [Test10312.hs:46:1]), -((Test10312.hs:39:12-16,AnnVal), [Test10312.hs:39:14]), -((Test10312.hs:(39,12)-(43,20),AnnVal), [Test10312.hs:39:18]), -((Test10312.hs:(39,20)-(43,20),AnnCloseS), [Test10312.hs:43:20]), -((Test10312.hs:(39,20)-(43,20),AnnOpenS), [Test10312.hs:39:20]), -((Test10312.hs:(39,20)-(43,20),AnnVbar), [Test10312.hs:40:20]), -((Test10312.hs:39:22-26,AnnVal), [Test10312.hs:39:24]), -((Test10312.hs:39:22-30,AnnVal), [Test10312.hs:39:28]), -((Test10312.hs:40:22-30,AnnLarrow), [Test10312.hs:40:24-25]), -((Test10312.hs:40:22-30,AnnVbar), [Test10312.hs:41:20]), -((Test10312.hs:41:22-35,AnnLarrow), [Test10312.hs:41:24-25]), -((Test10312.hs:41:22-35,AnnVbar), [Test10312.hs:42:20]), -((Test10312.hs:42:22-42,AnnLarrow), [Test10312.hs:42:24-25]), -((Test10312.hs:42:32-42,AnnCloseP), [Test10312.hs:42:42]), -((Test10312.hs:42:32-42,AnnOpenP), [Test10312.hs:42:32]), -((Test10312.hs:(46,1)-(50,23),AnnData), [Test10312.hs:46:1-4]), -((Test10312.hs:(46,1)-(50,23),AnnEqual), [Test10312.hs:46:16]), -((Test10312.hs:(46,1)-(50,23),AnnSemi), [Test10312.hs:52:1]), -((Test10312.hs:(47,3)-(50,3),AnnCloseC), [Test10312.hs:50:3]), -((Test10312.hs:(47,3)-(50,3),AnnOpenC), [Test10312.hs:47:3]), -((Test10312.hs:47:5-23,AnnComma), [Test10312.hs:48:3]), -((Test10312.hs:47:5-23,AnnDcolon), [Test10312.hs:47:15-16]), -((Test10312.hs:48:5-22,AnnComma), [Test10312.hs:49:3]), -((Test10312.hs:48:5-22,AnnDcolon), [Test10312.hs:48:14-15]), -((Test10312.hs:49:5-20,AnnDcolon), [Test10312.hs:49:15-16]), -((Test10312.hs:50:5-23,AnnDeriving), [Test10312.hs:50:5-12]), -((Test10312.hs:50:14-23,AnnCloseP), [Test10312.hs:50:23]), -((Test10312.hs:50:14-23,AnnOpenP), [Test10312.hs:50:14]), -((Test10312.hs:50:15-18,AnnComma), [Test10312.hs:50:19]), -((Test10312.hs:52:1-22,AnnDcolon), [Test10312.hs:52:9-10]), -((Test10312.hs:52:1-22,AnnSemi), [Test10312.hs:53:1]), -((Test10312.hs:52:12-22,AnnCloseS), [Test10312.hs:52:22]), -((Test10312.hs:52:12-22,AnnOpenS), [Test10312.hs:52:12]), -((Test10312.hs:(53,1)-(59,11),AnnEqual), [Test10312.hs:53:9]), -((Test10312.hs:(53,1)-(59,11),AnnFunId), [Test10312.hs:53:1-7]), -((Test10312.hs:(53,1)-(59,11),AnnSemi), [Test10312.hs:61:1]), -((Test10312.hs:(53,11)-(59,11),AnnCloseS), [Test10312.hs:59:11]), -((Test10312.hs:(53,11)-(59,11),AnnOpenS), [Test10312.hs:53:11]), -((Test10312.hs:53:13-44,AnnComma), [Test10312.hs:54:11]), -((Test10312.hs:54:13-44,AnnComma), [Test10312.hs:55:11]), -((Test10312.hs:55:13-43,AnnComma), [Test10312.hs:56:11]), -((Test10312.hs:56:13-45,AnnComma), [Test10312.hs:57:11]), -((Test10312.hs:57:13-44,AnnComma), [Test10312.hs:58:11]), -((Test10312.hs:61:1-40,AnnDcolon), [Test10312.hs:61:8-9]), -((Test10312.hs:61:1-40,AnnSemi), [Test10312.hs:62:1]), -((Test10312.hs:61:11-13,AnnRarrow), [Test10312.hs:61:15-16]), -((Test10312.hs:61:11-40,AnnRarrow), [Test10312.hs:61:15-16]), -((Test10312.hs:61:18-28,AnnCloseS), [Test10312.hs:61:28]), -((Test10312.hs:61:18-28,AnnOpenS), [Test10312.hs:61:18]), -((Test10312.hs:61:18-28,AnnRarrow), [Test10312.hs:61:30-31]), -((Test10312.hs:61:18-40,AnnRarrow), [Test10312.hs:61:30-31]), -((Test10312.hs:61:33-40,AnnCloseS), [Test10312.hs:61:40]), -((Test10312.hs:61:33-40,AnnOpenS), [Test10312.hs:61:33]), -((Test10312.hs:(62,1)-(66,16),AnnEqual), [Test10312.hs:62:14]), -((Test10312.hs:(62,1)-(66,16),AnnFunId), [Test10312.hs:62:1-6]), -((Test10312.hs:(62,1)-(66,16),AnnSemi), [Test10312.hs:68:1]), -((Test10312.hs:(62,16)-(66,16),AnnCloseS), [Test10312.hs:66:16]), -((Test10312.hs:(62,16)-(66,16),AnnOpenS), [Test10312.hs:62:16]), -((Test10312.hs:(62,16)-(66,16),AnnVbar), [Test10312.hs:63:16]), -((Test10312.hs:62:18-33,AnnVal), [Test10312.hs:62:28-29]), -((Test10312.hs:62:18-45,AnnVal), [Test10312.hs:62:35-36]), -((Test10312.hs:63:18-30,AnnCloseC), [Test10312.hs:63:30]), -((Test10312.hs:63:18-30,AnnDotdot), [Test10312.hs:63:28-29]), -((Test10312.hs:63:18-30,AnnOpenC), [Test10312.hs:63:27]), -((Test10312.hs:63:18-37,AnnComma), [Test10312.hs:64:16]), -((Test10312.hs:63:18-37,AnnLarrow), [Test10312.hs:63:32-33]), -((Test10312.hs:(63,18)-(64,43),AnnBy), [Test10312.hs:64:32-33]), -((Test10312.hs:(63,18)-(64,43),AnnComma), [Test10312.hs:65:16]), -((Test10312.hs:(63,18)-(64,43),AnnThen), [Test10312.hs:64:18-21]), -((Test10312.hs:(63,18)-(65,28),AnnThen), [Test10312.hs:65:18-21]), -((Test10312.hs:68:1-51,AnnDcolon), [Test10312.hs:68:16-17]), -((Test10312.hs:68:1-51,AnnSemi), [Test10312.hs:69:1]), -((Test10312.hs:68:19-23,AnnDarrow), [Test10312.hs:68:25-26]), -((Test10312.hs:68:28-35,AnnCloseP), [Test10312.hs:68:35]), -((Test10312.hs:68:28-35,AnnOpenP), [Test10312.hs:68:28]), -((Test10312.hs:68:28-35,AnnRarrow), [Test10312.hs:68:37-38]), -((Test10312.hs:68:28-51,AnnRarrow), [Test10312.hs:68:37-38]), -((Test10312.hs:68:29,AnnRarrow), [Test10312.hs:68:31-32]), -((Test10312.hs:68:29-34,AnnRarrow), [Test10312.hs:68:31-32]), -((Test10312.hs:68:40-42,AnnCloseS), [Test10312.hs:68:42]), -((Test10312.hs:68:40-42,AnnOpenS), [Test10312.hs:68:40]), -((Test10312.hs:68:40-42,AnnRarrow), [Test10312.hs:68:44-45]), -((Test10312.hs:68:40-51,AnnRarrow), [Test10312.hs:68:44-45]), -((Test10312.hs:68:47-51,AnnCloseS), [Test10312.hs:68:51]), -((Test10312.hs:68:47-51,AnnOpenS), [Test10312.hs:68:47]), -((Test10312.hs:68:48-50,AnnCloseS), [Test10312.hs:68:50]), -((Test10312.hs:68:48-50,AnnOpenS), [Test10312.hs:68:48]), -((Test10312.hs:69:1-69,AnnEqual), [Test10312.hs:69:18]), -((Test10312.hs:69:1-69,AnnFunId), [Test10312.hs:69:1-14]), -((Test10312.hs:69:1-69,AnnSemi), [Test10312.hs:71:1]), -((Test10312.hs:69:20-69,AnnVal), [Test10312.hs:69:57]), -((Test10312.hs:69:27-55,AnnCloseP), [Test10312.hs:69:55]), -((Test10312.hs:69:27-55,AnnOpenP), [Test10312.hs:69:27]), -((Test10312.hs:69:38-54,AnnCloseP), [Test10312.hs:69:54]), -((Test10312.hs:69:38-54,AnnOpenP), [Test10312.hs:69:38]), -((Test10312.hs:69:39-53,AnnVal), [Test10312.hs:69:46]), -((Test10312.hs:71:1-50,AnnDcolon), [Test10312.hs:71:16-17]), -((Test10312.hs:71:1-50,AnnSemi), [Test10312.hs:72:1]), -((Test10312.hs:71:19-29,AnnCloseS), [Test10312.hs:71:29]), -((Test10312.hs:71:19-29,AnnOpenS), [Test10312.hs:71:19]), -((Test10312.hs:71:19-29,AnnRarrow), [Test10312.hs:71:31-32]), -((Test10312.hs:71:19-50,AnnRarrow), [Test10312.hs:71:31-32]), -((Test10312.hs:71:34-50,AnnCloseS), [Test10312.hs:71:50]), -((Test10312.hs:71:34-50,AnnOpenS), [Test10312.hs:71:34]), -((Test10312.hs:71:35-49,AnnCloseP), [Test10312.hs:71:49]), -((Test10312.hs:71:35-49,AnnOpenP), [Test10312.hs:71:35]), -((Test10312.hs:71:36-38,AnnComma), [Test10312.hs:71:39]), -((Test10312.hs:71:41-48,AnnCloseS), [Test10312.hs:71:48]), -((Test10312.hs:71:41-48,AnnOpenS), [Test10312.hs:71:41]), -((Test10312.hs:(72,1)-(75,22),AnnEqual), [Test10312.hs:72:20]), -((Test10312.hs:(72,1)-(75,22),AnnFunId), [Test10312.hs:72:1-14]), -((Test10312.hs:(72,1)-(75,22),AnnSemi), [Test10312.hs:77:1]), -((Test10312.hs:(72,22)-(75,22),AnnCloseS), [Test10312.hs:75:22]), -((Test10312.hs:(72,22)-(75,22),AnnOpenS), [Test10312.hs:72:22]), -((Test10312.hs:(72,22)-(75,22),AnnVbar), [Test10312.hs:73:22]), -((Test10312.hs:72:24-49,AnnCloseP), [Test10312.hs:72:49]), -((Test10312.hs:72:24-49,AnnOpenP), [Test10312.hs:72:24]), -((Test10312.hs:72:25-37,AnnComma), [Test10312.hs:72:38]), -((Test10312.hs:73:24-36,AnnCloseC), [Test10312.hs:73:36]), -((Test10312.hs:73:24-36,AnnDotdot), [Test10312.hs:73:34-35]), -((Test10312.hs:73:24-36,AnnOpenC), [Test10312.hs:73:33]), -((Test10312.hs:73:24-43,AnnComma), [Test10312.hs:74:22]), -((Test10312.hs:73:24-43,AnnLarrow), [Test10312.hs:73:38-39]), -((Test10312.hs:(73,24)-(74,67),AnnBy), [Test10312.hs:74:35-36]), -((Test10312.hs:(73,24)-(74,67),AnnGroup), [Test10312.hs:74:29-33]), -((Test10312.hs:(73,24)-(74,67),AnnThen), [Test10312.hs:74:24-27]), -((Test10312.hs:(73,24)-(74,67),AnnUsing), [Test10312.hs:74:48-52]), -((Test10312.hs:(77,1)-(79,80),AnnEqual), [Test10312.hs:77:9]), -((Test10312.hs:(77,1)-(79,80),AnnFunId), [Test10312.hs:77:1-7]), -((Test10312.hs:(77,1)-(79,80),AnnSemi), [Test10312.hs:80:1]), -((Test10312.hs:(77,11)-(79,80),AnnCloseS), [Test10312.hs:79:80]), -((Test10312.hs:(77,11)-(79,80),AnnOpenS), [Test10312.hs:77:11]), -((Test10312.hs:(77,11)-(79,80),AnnVbar), [Test10312.hs:77:32]), -((Test10312.hs:77:13-30,AnnCloseP), [Test10312.hs:77:30]), -((Test10312.hs:77:13-30,AnnOpenP), [Test10312.hs:77:13]), -((Test10312.hs:77:14,AnnComma), [Test10312.hs:77:15]), -((Test10312.hs:77:17-21,AnnComma), [Test10312.hs:77:22]), -((Test10312.hs:77:34-48,AnnCloseP), [Test10312.hs:77:48]), -((Test10312.hs:77:34-48,AnnOpenP), [Test10312.hs:77:34]), -((Test10312.hs:77:34-54,AnnComma), [Test10312.hs:78:36]), -((Test10312.hs:77:34-54,AnnLarrow), [Test10312.hs:77:50-51]), -((Test10312.hs:(77,34)-(79,78),AnnBy), [Test10312.hs:79:49-50]), -((Test10312.hs:(77,34)-(79,78),AnnGroup), [Test10312.hs:79:43-47]), -((Test10312.hs:(77,34)-(79,78),AnnThen), [Test10312.hs:79:38-41]), -((Test10312.hs:(77,34)-(79,78),AnnUsing), [Test10312.hs:79:64-68]), -((Test10312.hs:77:35,AnnComma), [Test10312.hs:77:36]), -((Test10312.hs:78:38-53,AnnComma), [Test10312.hs:79:36]), -((Test10312.hs:78:38-53,AnnLet), [Test10312.hs:78:38-40]), -((Test10312.hs:78:42-53,AnnEqual), [Test10312.hs:78:45]), -((Test10312.hs:78:42-53,AnnFunId), [Test10312.hs:78:42-43]), -((Test10312.hs:79:57-62,AnnCloseP), [Test10312.hs:79:62]), -((Test10312.hs:79:57-62,AnnOpenP), [Test10312.hs:79:57]), -((Test10312.hs:79:58,AnnComma), [Test10312.hs:79:59]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test10312.hs" 80 1 diff --git a/testsuite/tests/ghc-api/annotations/T10313.stdout b/testsuite/tests/ghc-api/annotations/T10313.stdout deleted file mode 100644 index a85e849548..0000000000 --- a/testsuite/tests/ghc-api/annotations/T10313.stdout +++ /dev/null @@ -1,13 +0,0 @@ -[([i], [(SourceText "b\x61se", base)]), - ([w], - [(SourceText "New Z3 API support is still incomplete and fragile: \ - \you may experience segmentation faults!", - New Z3 API support is still incomplete and fragile: you may experience segmentation faults!)]), - ([d], - [(SourceText "Deprecation: \ - \you may experience segmentation faults!", - Deprecation: you may experience segmentation faults!)]), - ([c], [(SourceText "foo\x63", fooc), (SourceText "b\x61r", bar)]), - ([r], [(SourceText "foo1\x67", foo1g)]), - ([s, t], [(SourceText "a\x62", ab)]), - ([s, c], [(SourceText "foo\x64", food)])] diff --git a/testsuite/tests/ghc-api/annotations/T10354.stdout b/testsuite/tests/ghc-api/annotations/T10354.stdout deleted file mode 100644 index 7fbc54d49c..0000000000 --- a/testsuite/tests/ghc-api/annotations/T10354.stdout +++ /dev/null @@ -1,57 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test10354.hs:1:1,AnnModule), [Test10354.hs:2:1-6]), -((Test10354.hs:1:1,AnnWhere), [Test10354.hs:2:18-22]), -((Test10354.hs:4:1-34,AnnDcolon), [Test10354.hs:4:3-4]), -((Test10354.hs:4:1-34,AnnSemi), [Test10354.hs:5:1]), -((Test10354.hs:4:6-16,AnnCloseP), [Test10354.hs:4:16, Test10354.hs:4:15]), -((Test10354.hs:4:6-16,AnnDarrow), [Test10354.hs:4:18-19]), -((Test10354.hs:4:6-16,AnnOpenP), [Test10354.hs:4:6, Test10354.hs:4:7]), -((Test10354.hs:4:7-15,AnnCloseP), [Test10354.hs:4:15]), -((Test10354.hs:4:7-15,AnnOpenP), [Test10354.hs:4:7]), -((Test10354.hs:4:8-11,AnnComma), [Test10354.hs:4:12]), -((Test10354.hs:4:21,AnnRarrow), [Test10354.hs:4:23-24]), -((Test10354.hs:4:21-34,AnnRarrow), [Test10354.hs:4:23-24]), -((Test10354.hs:4:26,AnnRarrow), [Test10354.hs:4:28-29]), -((Test10354.hs:4:26-34,AnnRarrow), [Test10354.hs:4:28-29]), -((Test10354.hs:5:1-14,AnnEqual), [Test10354.hs:5:7]), -((Test10354.hs:5:1-14,AnnFunId), [Test10354.hs:5:1]), -((Test10354.hs:5:1-14,AnnSemi), [Test10354.hs:7:1]), -((Test10354.hs:5:9-14,AnnVal), [Test10354.hs:5:11-12]), -((Test10354.hs:7:1-24,AnnDcolon), [Test10354.hs:7:5-6]), -((Test10354.hs:7:1-24,AnnSemi), [Test10354.hs:8:1]), -((Test10354.hs:7:8-12,AnnCloseP), [Test10354.hs:7:12, Test10354.hs:7:12]), -((Test10354.hs:7:8-12,AnnDarrow), [Test10354.hs:7:14-15]), -((Test10354.hs:7:8-12,AnnOpenP), [Test10354.hs:7:8, Test10354.hs:7:8]), -((Test10354.hs:7:8-12,AnnUnit), [Test10354.hs:7:8-12]), -((Test10354.hs:7:17,AnnRarrow), [Test10354.hs:7:18-19]), -((Test10354.hs:7:17-24,AnnRarrow), [Test10354.hs:7:18-19]), -((Test10354.hs:8:1-15,AnnEqual), [Test10354.hs:8:5]), -((Test10354.hs:8:1-15,AnnFunId), [Test10354.hs:8:1-3]), -((Test10354.hs:8:1-15,AnnSemi), [Test10354.hs:10:1]), -((Test10354.hs:10:1-23,AnnDcolon), [Test10354.hs:10:5-6]), -((Test10354.hs:10:1-23,AnnSemi), [Test10354.hs:11:1]), -((Test10354.hs:10:8,AnnDarrow), [Test10354.hs:10:10-11]), -((Test10354.hs:10:13,AnnRarrow), [Test10354.hs:10:15-16]), -((Test10354.hs:10:13-23,AnnRarrow), [Test10354.hs:10:15-16]), -((Test10354.hs:11:1-15,AnnEqual), [Test10354.hs:11:5]), -((Test10354.hs:11:1-15,AnnFunId), [Test10354.hs:11:1-3]), -((Test10354.hs:11:1-15,AnnSemi), [Test10354.hs:13:1]), -((Test10354.hs:13:1-17,AnnDcolon), [Test10354.hs:13:5-6]), -((Test10354.hs:13:1-17,AnnSemi), [Test10354.hs:14:1]), -((Test10354.hs:14:1-15,AnnEqual), [Test10354.hs:14:5]), -((Test10354.hs:14:1-15,AnnFunId), [Test10354.hs:14:1-3]), -((Test10354.hs:14:1-15,AnnSemi), [Test10354.hs:15:1]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test10354.hs" 15 1 diff --git a/testsuite/tests/ghc-api/annotations/T10357.stdout b/testsuite/tests/ghc-api/annotations/T10357.stdout deleted file mode 100644 index 4810a59cd7..0000000000 --- a/testsuite/tests/ghc-api/annotations/T10357.stdout +++ /dev/null @@ -1,64 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test10357.hs:1:1,AnnModule), [Test10357.hs:2:1-6]), -((Test10357.hs:1:1,AnnWhere), [Test10357.hs:2:18-22]), -((Test10357.hs:(4,1)-(13,5),AnnEqual), [Test10357.hs:4:11]), -((Test10357.hs:(4,1)-(13,5),AnnFunId), [Test10357.hs:4:1-9]), -((Test10357.hs:(4,1)-(13,5),AnnSemi), [Test10357.hs:14:1]), -((Test10357.hs:4:13-19,AnnVal), [Test10357.hs:4:17]), -((Test10357.hs:(4,13)-(13,5),AnnVal), [Test10357.hs:4:21]), -((Test10357.hs:(5,5)-(13,5),AnnCloseS), [Test10357.hs:13:5]), -((Test10357.hs:(5,5)-(13,5),AnnOpenS), [Test10357.hs:5:5]), -((Test10357.hs:(5,5)-(13,5),AnnVbar), [Test10357.hs:10:5]), -((Test10357.hs:6:9-34,AnnCloseP), [Test10357.hs:6:34]), -((Test10357.hs:6:9-34,AnnOpenP), [Test10357.hs:6:9]), -((Test10357.hs:6:18-33,AnnCloseS), [Test10357.hs:6:33]), -((Test10357.hs:6:18-33,AnnOpenS), [Test10357.hs:6:18]), -((Test10357.hs:6:25-32,AnnCloseP), [Test10357.hs:6:32]), -((Test10357.hs:6:25-32,AnnOpenP), [Test10357.hs:6:25]), -((Test10357.hs:6:26-31,AnnVal), [Test10357.hs:6:29]), -((Test10357.hs:(7,9)-(9,9),AnnCloseP), [Test10357.hs:9:9]), -((Test10357.hs:(7,9)-(9,9),AnnOpenP), [Test10357.hs:7:9]), -((Test10357.hs:7:18-57,AnnCloseP), [Test10357.hs:7:57]), -((Test10357.hs:7:18-57,AnnOpenP), [Test10357.hs:7:18]), -((Test10357.hs:7:19-56,AnnVal), [Test10357.hs:7:43-52]), -((Test10357.hs:7:27-41,AnnCloseS), [Test10357.hs:7:41]), -((Test10357.hs:7:27-41,AnnOpenS), [Test10357.hs:7:27]), -((Test10357.hs:7:28,AnnComma), [Test10357.hs:7:29]), -((Test10357.hs:7:31-36,AnnVal), [Test10357.hs:7:33]), -((Test10357.hs:7:31-40,AnnVal), [Test10357.hs:7:38]), -((Test10357.hs:7:43-52,AnnBackquote), [Test10357.hs:7:43, Test10357.hs:7:52]), -((Test10357.hs:7:43-52,AnnVal), [Test10357.hs:7:44-51]), -((Test10357.hs:8:18-59,AnnCloseP), [Test10357.hs:8:59]), -((Test10357.hs:8:18-59,AnnOpenP), [Test10357.hs:8:18]), -((Test10357.hs:8:19-58,AnnVal), [Test10357.hs:8:43-52]), -((Test10357.hs:8:37-41,AnnCloseS), [Test10357.hs:8:41]), -((Test10357.hs:8:37-41,AnnOpenS), [Test10357.hs:8:37]), -((Test10357.hs:8:38-40,AnnMinus), [Test10357.hs:8:38]), -((Test10357.hs:8:43-52,AnnBackquote), [Test10357.hs:8:43, Test10357.hs:8:52]), -((Test10357.hs:8:43-52,AnnVal), [Test10357.hs:8:44-51]), -((Test10357.hs:10:7-20,AnnComma), [Test10357.hs:10:21]), -((Test10357.hs:10:7-20,AnnLarrow), [Test10357.hs:10:13-14]), -((Test10357.hs:10:16-20,AnnCloseS), [Test10357.hs:10:20]), -((Test10357.hs:10:16-20,AnnDotdot), [Test10357.hs:10:18-19]), -((Test10357.hs:10:16-20,AnnOpenS), [Test10357.hs:10:16]), -((Test10357.hs:10:23-44,AnnLet), [Test10357.hs:10:23-25]), -((Test10357.hs:10:23-44,AnnVbar), [Test10357.hs:11:5]), -((Test10357.hs:10:27-44,AnnEqual), [Test10357.hs:10:30]), -((Test10357.hs:10:27-44,AnnFunId), [Test10357.hs:10:27-28]), -((Test10357.hs:11:7-29,AnnLarrow), [Test10357.hs:11:13-14]), -((Test10357.hs:11:7-29,AnnVbar), [Test10357.hs:12:5]), -((Test10357.hs:12:7-24,AnnLarrow), [Test10357.hs:12:13-14]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test10357.hs" 14 1 diff --git a/testsuite/tests/ghc-api/annotations/T10358.stdout b/testsuite/tests/ghc-api/annotations/T10358.stdout deleted file mode 100644 index fca1a5baa6..0000000000 --- a/testsuite/tests/ghc-api/annotations/T10358.stdout +++ /dev/null @@ -1,40 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[(AnnBang, Test10358.hs:5:19)] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test10358.hs:1:1,AnnModule), [Test10358.hs:2:1-6]), -((Test10358.hs:1:1,AnnWhere), [Test10358.hs:2:18-22]), -((Test10358.hs:(4,1)-(8,6),AnnEqual), [Test10358.hs:4:15]), -((Test10358.hs:(4,1)-(8,6),AnnFunId), [Test10358.hs:4:1-7]), -((Test10358.hs:(4,1)-(8,6),AnnSemi), [Test10358.hs:9:1]), -((Test10358.hs:(5,3)-(8,6),AnnIn), [Test10358.hs:8:3-4]), -((Test10358.hs:(5,3)-(8,6),AnnLet), [Test10358.hs:5:3-5]), -((Test10358.hs:5:7-10,AnnBang), [Test10358.hs:5:7]), -((Test10358.hs:5:7-16,AnnEqual), [Test10358.hs:5:12]), -((Test10358.hs:5:7-16,AnnFunId), [Test10358.hs:5:8-10]), -((Test10358.hs:5:7-16,AnnSemi), [Test10358.hs:5:17]), -((Test10358.hs:5:14-16,AnnVal), [Test10358.hs:5:15]), -((Test10358.hs:5:19-22,AnnBang), [Test10358.hs:5:19]), -((Test10358.hs:5:19-32,AnnEqual), [Test10358.hs:5:24]), -((Test10358.hs:5:19-32,AnnFunId), [Test10358.hs:5:20-22]), -((Test10358.hs:5:19-32,AnnSemi), [Test10358.hs:6:7]), -((Test10358.hs:5:26-32,AnnVal), [Test10358.hs:5:29]), -((Test10358.hs:6:7-16,AnnEqual), [Test10358.hs:6:10]), -((Test10358.hs:6:7-16,AnnFunId), [Test10358.hs:6:7-8]), -((Test10358.hs:6:7-16,AnnSemi), [Test10358.hs:7:7]), -((Test10358.hs:6:12-14,AnnVal), [Test10358.hs:6:13]), -((Test10358.hs:6:12-16,AnnVal), [Test10358.hs:6:15]), -((Test10358.hs:7:7-17,AnnEqual), [Test10358.hs:7:10]), -((Test10358.hs:7:7-17,AnnFunId), [Test10358.hs:7:7-8]), -((Test10358.hs:7:12-17,AnnVal), [Test10358.hs:7:14]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test10358.hs" 9 1 diff --git a/testsuite/tests/ghc-api/annotations/T10396.stdout b/testsuite/tests/ghc-api/annotations/T10396.stdout deleted file mode 100644 index 32dadc3d95..0000000000 --- a/testsuite/tests/ghc-api/annotations/T10396.stdout +++ /dev/null @@ -1,31 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test10396.hs:1:1,AnnModule), [Test10396.hs:2:1-6]), -((Test10396.hs:1:1,AnnWhere), [Test10396.hs:2:18-22]), -((Test10396.hs:4:1-15,AnnDcolon), [Test10396.hs:4:8-9]), -((Test10396.hs:4:1-15,AnnSemi), [Test10396.hs:5:1]), -((Test10396.hs:4:14-15,AnnCloseP), [Test10396.hs:4:15]), -((Test10396.hs:4:14-15,AnnOpenP), [Test10396.hs:4:14]), -((Test10396.hs:(5,1)-(7,11),AnnEqual), [Test10396.hs:5:7]), -((Test10396.hs:(5,1)-(7,11),AnnFunId), [Test10396.hs:5:1-6]), -((Test10396.hs:(5,1)-(7,11),AnnSemi), [Test10396.hs:8:1]), -((Test10396.hs:(5,9)-(7,11),AnnDo), [Test10396.hs:5:9-10]), -((Test10396.hs:6:3-27,AnnLet), [Test10396.hs:6:3-5]), -((Test10396.hs:6:3-27,AnnSemi), [Test10396.hs:7:3]), -((Test10396.hs:6:7-15,AnnDcolon), [Test10396.hs:6:10-11]), -((Test10396.hs:6:7-27,AnnEqual), [Test10396.hs:6:17]), -((Test10396.hs:7:10-11,AnnCloseP), [Test10396.hs:7:11]), -((Test10396.hs:7:10-11,AnnOpenP), [Test10396.hs:7:10]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test10396.hs" 8 1 diff --git a/testsuite/tests/ghc-api/annotations/T10399.stdout b/testsuite/tests/ghc-api/annotations/T10399.stdout deleted file mode 100644 index 7588393264..0000000000 --- a/testsuite/tests/ghc-api/annotations/T10399.stdout +++ /dev/null @@ -1,89 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test10399.hs:1:1,AnnModule), [Test10399.hs:8:1-6]), -((Test10399.hs:1:1,AnnWhere), [Test10399.hs:8:18-22]), -((Test10399.hs:10:1-35,AnnEqual), [Test10399.hs:10:10]), -((Test10399.hs:10:1-35,AnnSemi), [Test10399.hs:12:1]), -((Test10399.hs:10:1-35,AnnType), [Test10399.hs:10:1-4]), -((Test10399.hs:10:12-35,AnnDcolon), [Test10399.hs:10:24-25]), -((Test10399.hs:12:1-66,AnnEqual), [Test10399.hs:12:8]), -((Test10399.hs:12:1-66,AnnFunId), [Test10399.hs:12:1-6]), -((Test10399.hs:12:1-66,AnnSemi), [Test10399.hs:14:1]), -((Test10399.hs:12:10-66,AnnVal), [Test10399.hs:12:17]), -((Test10399.hs:12:23-66,AnnCloseP), [Test10399.hs:12:66]), -((Test10399.hs:12:23-66,AnnOpenP), [Test10399.hs:12:23]), -((Test10399.hs:12:24-33,AnnCloseP), [Test10399.hs:12:33]), -((Test10399.hs:12:24-33,AnnOpenP), [Test10399.hs:12:24]), -((Test10399.hs:12:24-44,AnnVal), [Test10399.hs:12:35-37]), -((Test10399.hs:12:24-54,AnnVal), [Test10399.hs:12:46-48]), -((Test10399.hs:12:24-65,AnnVal), [Test10399.hs:12:56-58]), -((Test10399.hs:12:25,AnnComma), [Test10399.hs:12:25]), -((Test10399.hs:12:26,AnnComma), [Test10399.hs:12:26]), -((Test10399.hs:12:27-28,AnnCloseP), [Test10399.hs:12:28]), -((Test10399.hs:12:27-28,AnnComma), [Test10399.hs:12:29]), -((Test10399.hs:12:27-28,AnnOpenP), [Test10399.hs:12:27]), -((Test10399.hs:12:30,AnnComma), [Test10399.hs:12:30]), -((Test10399.hs:12:31-32,AnnCloseP), [Test10399.hs:12:32]), -((Test10399.hs:12:31-32,AnnOpenP), [Test10399.hs:12:31]), -((Test10399.hs:(14,1)-(18,53),AnnData), [Test10399.hs:14:1-4]), -((Test10399.hs:(14,1)-(18,53),AnnSemi), [Test10399.hs:20:1]), -((Test10399.hs:(14,1)-(18,53),AnnWhere), [Test10399.hs:14:21-25]), -((Test10399.hs:15:5-64,AnnDcolon), [Test10399.hs:15:11-12]), -((Test10399.hs:15:5-64,AnnSemi), [Test10399.hs:16:5]), -((Test10399.hs:15:14-64,AnnDot), [Test10399.hs:15:23]), -((Test10399.hs:15:14-64,AnnForall), [Test10399.hs:15:14-19]), -((Test10399.hs:15:25-40,AnnCloseP), [Test10399.hs:15:40, Test10399.hs:15:40]), -((Test10399.hs:15:25-40,AnnDarrow), [Test10399.hs:15:42-43]), -((Test10399.hs:15:25-40,AnnOpenP), [Test10399.hs:15:25, Test10399.hs:15:25]), -((Test10399.hs:15:27-30,AnnComma), [Test10399.hs:15:31]), -((Test10399.hs:15:45-46,AnnBang), [Test10399.hs:15:45]), -((Test10399.hs:15:45-46,AnnRarrow), [Test10399.hs:15:48-49]), -((Test10399.hs:15:45-64,AnnRarrow), [Test10399.hs:15:48-49]), -((Test10399.hs:(16,5)-(17,67),AnnDcolon), [Test10399.hs:16:12-13]), -((Test10399.hs:(16,5)-(17,67),AnnSemi), [Test10399.hs:18:5]), -((Test10399.hs:(16,15)-(17,67),AnnDot), [Test10399.hs:16:25]), -((Test10399.hs:(16,15)-(17,67),AnnForall), [Test10399.hs:16:15-20]), -((Test10399.hs:16:27-42,AnnCloseP), [Test10399.hs:16:42, Test10399.hs:16:42]), -((Test10399.hs:16:27-42,AnnDarrow), [Test10399.hs:16:44-45]), -((Test10399.hs:16:27-42,AnnOpenP), [Test10399.hs:16:27, Test10399.hs:16:27]), -((Test10399.hs:16:29-32,AnnComma), [Test10399.hs:16:33]), -((Test10399.hs:16:47,AnnRarrow), [Test10399.hs:16:49-50]), -((Test10399.hs:(16,47)-(17,67),AnnRarrow), [Test10399.hs:16:49-50]), -((Test10399.hs:16:52-65,AnnRarrow), [Test10399.hs:17:44-45]), -((Test10399.hs:(16,52)-(17,67),AnnRarrow), [Test10399.hs:17:44-45]), -((Test10399.hs:17:47,AnnRarrow), [Test10399.hs:17:49-50]), -((Test10399.hs:17:47-67,AnnRarrow), [Test10399.hs:17:49-50]), -((Test10399.hs:17:65-67,AnnCloseS), [Test10399.hs:17:67]), -((Test10399.hs:17:65-67,AnnOpenS), [Test10399.hs:17:65]), -((Test10399.hs:18:5-53,AnnDcolon), [Test10399.hs:18:16-17]), -((Test10399.hs:18:19-53,AnnDot), [Test10399.hs:18:28]), -((Test10399.hs:18:19-53,AnnForall), [Test10399.hs:18:19-24]), -((Test10399.hs:18:30-35,AnnCloseP), [Test10399.hs:18:35]), -((Test10399.hs:18:30-35,AnnOpenP), [Test10399.hs:18:30]), -((Test10399.hs:18:30-35,AnnRarrow), [Test10399.hs:18:37-38]), -((Test10399.hs:18:30-53,AnnRarrow), [Test10399.hs:18:37-38]), -((Test10399.hs:20:1-25,AnnCloseQ), [Test10399.hs:20:24-25]), -((Test10399.hs:20:1-25,AnnOpen), [Test10399.hs:20:1-3]), -((Test10399.hs:20:1-25,AnnSemi), [Test10399.hs:22:1]), -((Test10399.hs:20:20-22,AnnDollar), [Test10399.hs:20:20]), -((Test10399.hs:22:1-21,AnnEqual), [Test10399.hs:22:19]), -((Test10399.hs:22:1-21,AnnFunId), [Test10399.hs:22:1-3]), -((Test10399.hs:22:1-21,AnnSemi), [Test10399.hs:23:1]), -((Test10399.hs:22:5-17,AnnDollar), [Test10399.hs:22:5]), -((Test10399.hs:22:6-17,AnnCloseP), [Test10399.hs:22:17]), -((Test10399.hs:22:6-17,AnnOpenP), [Test10399.hs:22:6]), -((Test10399.hs:22:8-15,AnnCloseQ), [Test10399.hs:22:14-15]), -((Test10399.hs:22:8-15,AnnOpen), [Test10399.hs:22:8-10]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test10399.hs" 23 1 diff --git a/testsuite/tests/ghc-api/annotations/T10598.stdout b/testsuite/tests/ghc-api/annotations/T10598.stdout deleted file mode 100644 index b2d9333bf2..0000000000 --- a/testsuite/tests/ghc-api/annotations/T10598.stdout +++ /dev/null @@ -1,43 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test10598.hs:1:1,AnnModule), [Test10598.hs:5:1-6]), -((Test10598.hs:1:1,AnnWhere), [Test10598.hs:5:18-22]), -((Test10598.hs:(7,1)-(9,10),AnnClass), [Test10598.hs:7:1-5]), -((Test10598.hs:(7,1)-(9,10),AnnSemi), [Test10598.hs:11:1]), -((Test10598.hs:(7,1)-(9,10),AnnWhere), [Test10598.hs:7:11-15]), -((Test10598.hs:8:3-21,AnnDcolon), [Test10598.hs:8:5-6]), -((Test10598.hs:8:3-21,AnnSemi), [Test10598.hs:9:3]), -((Test10598.hs:8:8-14,AnnRarrow), [Test10598.hs:8:16-17]), -((Test10598.hs:8:8-21,AnnRarrow), [Test10598.hs:8:16-17]), -((Test10598.hs:9:3-10,AnnEqual), [Test10598.hs:9:7]), -((Test10598.hs:9:3-10,AnnFunId), [Test10598.hs:9:3]), -((Test10598.hs:(11,1)-(12,10),AnnInstance), [Test10598.hs:11:1-8]), -((Test10598.hs:(11,1)-(12,10),AnnSemi), [Test10598.hs:14:1]), -((Test10598.hs:(11,1)-(12,10),AnnWhere), [Test10598.hs:11:16-20]), -((Test10598.hs:12:3-10,AnnEqual), [Test10598.hs:12:7]), -((Test10598.hs:12:3-10,AnnFunId), [Test10598.hs:12:3]), -((Test10598.hs:(14,1)-(17,21),AnnEqual), [Test10598.hs:14:13]), -((Test10598.hs:(14,1)-(17,21),AnnNewtype), [Test10598.hs:14:1-7]), -((Test10598.hs:(14,1)-(17,21),AnnSemi), [Test10598.hs:18:1]), -((Test10598.hs:15:3-22,AnnDeriving), [Test10598.hs:15:3-10]), -((Test10598.hs:16:3-23,AnnDeriving), [Test10598.hs:16:3-10]), -((Test10598.hs:16:12-16,AnnStock), [Test10598.hs:16:12-16]), -((Test10598.hs:17:3-21,AnnDeriving), [Test10598.hs:17:3-10]), -((Test10598.hs:17:12-19,AnnAnyclass), [Test10598.hs:17:12-19]), -((Test10598.hs:18:1-34,AnnDeriving), [Test10598.hs:18:1-8]), -((Test10598.hs:18:1-34,AnnInstance), [Test10598.hs:18:18-25]), -((Test10598.hs:18:1-34,AnnSemi), [Test10598.hs:19:1]), -((Test10598.hs:18:10-16,AnnNewtype), [Test10598.hs:18:10-16]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test10598.hs" 19 1 diff --git a/testsuite/tests/ghc-api/annotations/T11018.stdout b/testsuite/tests/ghc-api/annotations/T11018.stdout deleted file mode 100644 index 27cc80ae6f..0000000000 --- a/testsuite/tests/ghc-api/annotations/T11018.stdout +++ /dev/null @@ -1,217 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test11018.hs:1:1,AnnModule), [Test11018.hs:4:1-6]), -((Test11018.hs:1:1,AnnWhere), [Test11018.hs:4:18-22]), -((Test11018.hs:6:1-36,AnnDcolon), [Test11018.hs:6:12-13]), -((Test11018.hs:6:1-36,AnnSemi), [Test11018.hs:7:1]), -((Test11018.hs:6:15-36,AnnDot), [Test11018.hs:6:24]), -((Test11018.hs:6:15-36,AnnForall), [Test11018.hs:6:15-20]), -((Test11018.hs:6:26,AnnRarrow), [Test11018.hs:6:28-29]), -((Test11018.hs:6:26-36,AnnRarrow), [Test11018.hs:6:28-29]), -((Test11018.hs:(7,1)-(9,10),AnnEqual), [Test11018.hs:7:14]), -((Test11018.hs:(7,1)-(9,10),AnnFunId), [Test11018.hs:7:1-10]), -((Test11018.hs:(7,1)-(9,10),AnnSemi), [Test11018.hs:12:1]), -((Test11018.hs:(7,16)-(9,10),AnnDo), [Test11018.hs:7:16-17]), -((Test11018.hs:8:3-15,AnnLarrow), [Test11018.hs:8:5-6]), -((Test11018.hs:8:3-15,AnnSemi), [Test11018.hs:9:3]), -((Test11018.hs:(12,1)-(15,7),AnnCloseP), [Test11018.hs:12:32]), -((Test11018.hs:(12,1)-(15,7),AnnData), [Test11018.hs:12:1-4]), -((Test11018.hs:(12,1)-(15,7),AnnEqual), [Test11018.hs:13:5]), -((Test11018.hs:(12,1)-(15,7),AnnOpenP), [Test11018.hs:12:21]), -((Test11018.hs:(12,1)-(15,7),AnnSemi), [Test11018.hs:17:1]), -((Test11018.hs:12:21-32,AnnCloseP), [Test11018.hs:12:32]), -((Test11018.hs:12:21-32,AnnOpenP), [Test11018.hs:12:21]), -((Test11018.hs:12:22-31,AnnDcolonU), [Test11018.hs:12:24]), -((Test11018.hs:12:26,AnnRarrow), [Test11018.hs:12:28-29]), -((Test11018.hs:12:26-31,AnnRarrow), [Test11018.hs:12:28-29]), -((Test11018.hs:(13,16)-(15,7),AnnCloseC), [Test11018.hs:15:7]), -((Test11018.hs:(13,16)-(15,7),AnnOpenC), [Test11018.hs:13:16]), -((Test11018.hs:14:9-40,AnnDcolon), [Test11018.hs:14:18-19]), -((Test11018.hs:14:21-40,AnnBang), [Test11018.hs:14:21]), -((Test11018.hs:14:22-40,AnnCloseP), [Test11018.hs:14:40]), -((Test11018.hs:14:22-40,AnnOpenP), [Test11018.hs:14:22]), -((Test11018.hs:17:1-35,AnnDcolon), [Test11018.hs:17:3-4]), -((Test11018.hs:17:1-35,AnnSemi), [Test11018.hs:18:1]), -((Test11018.hs:17:6-12,AnnDarrow), [Test11018.hs:17:14-15]), -((Test11018.hs:17:19-31,AnnCloseP), [Test11018.hs:17:31]), -((Test11018.hs:17:19-31,AnnOpenP), [Test11018.hs:17:19]), -((Test11018.hs:17:20-22,AnnComma), [Test11018.hs:17:23]), -((Test11018.hs:17:24-26,AnnComma), [Test11018.hs:17:27]), -((Test11018.hs:18:1-34,AnnEqual), [Test11018.hs:18:3]), -((Test11018.hs:18:1-34,AnnFunId), [Test11018.hs:18:1]), -((Test11018.hs:18:1-34,AnnSemi), [Test11018.hs:20:1]), -((Test11018.hs:18:5-34,AnnProc), [Test11018.hs:18:5-8]), -((Test11018.hs:18:5-34,AnnRarrow), [Test11018.hs:18:18-19]), -((Test11018.hs:18:10-16,AnnCloseP), [Test11018.hs:18:16]), -((Test11018.hs:18:10-16,AnnOpenP), [Test11018.hs:18:10]), -((Test11018.hs:18:11,AnnComma), [Test11018.hs:18:12]), -((Test11018.hs:18:13,AnnComma), [Test11018.hs:18:14]), -((Test11018.hs:18:21-34,Annlarrowtail), [Test11018.hs:18:29-30]), -((Test11018.hs:18:32-34,AnnVal), [Test11018.hs:18:33]), -((Test11018.hs:20:1-36,AnnDcolon), [Test11018.hs:20:4-5]), -((Test11018.hs:20:1-36,AnnSemi), [Test11018.hs:21:1]), -((Test11018.hs:20:7-13,AnnDarrow), [Test11018.hs:20:15-16]), -((Test11018.hs:20:20-32,AnnCloseP), [Test11018.hs:20:32]), -((Test11018.hs:20:20-32,AnnOpenP), [Test11018.hs:20:20]), -((Test11018.hs:20:21-23,AnnComma), [Test11018.hs:20:24]), -((Test11018.hs:20:25-27,AnnComma), [Test11018.hs:20:28]), -((Test11018.hs:21:1-35,AnnEqual), [Test11018.hs:21:4]), -((Test11018.hs:21:1-35,AnnFunId), [Test11018.hs:21:1-2]), -((Test11018.hs:21:1-35,AnnSemi), [Test11018.hs:23:1]), -((Test11018.hs:21:6-35,AnnProc), [Test11018.hs:21:6-9]), -((Test11018.hs:21:6-35,AnnRarrow), [Test11018.hs:21:19-20]), -((Test11018.hs:21:11-17,AnnCloseP), [Test11018.hs:21:17]), -((Test11018.hs:21:11-17,AnnOpenP), [Test11018.hs:21:11]), -((Test11018.hs:21:12,AnnComma), [Test11018.hs:21:13]), -((Test11018.hs:21:14,AnnComma), [Test11018.hs:21:15]), -((Test11018.hs:21:22-35,Annrarrowtail), [Test11018.hs:21:30-31]), -((Test11018.hs:21:33-35,AnnVal), [Test11018.hs:21:34]), -((Test11018.hs:23:1-49,AnnDcolon), [Test11018.hs:23:3-4]), -((Test11018.hs:23:1-49,AnnSemi), [Test11018.hs:24:1]), -((Test11018.hs:23:6-17,AnnDarrow), [Test11018.hs:23:19-20]), -((Test11018.hs:23:22-24,AnnRarrow), [Test11018.hs:23:26-27]), -((Test11018.hs:23:22-49,AnnRarrow), [Test11018.hs:23:26-27]), -((Test11018.hs:23:31-45,AnnCloseP), [Test11018.hs:23:45]), -((Test11018.hs:23:31-45,AnnOpenP), [Test11018.hs:23:31]), -((Test11018.hs:23:32-40,AnnComma), [Test11018.hs:23:41]), -((Test11018.hs:24:1-29,AnnEqual), [Test11018.hs:24:5]), -((Test11018.hs:24:1-29,AnnFunId), [Test11018.hs:24:1]), -((Test11018.hs:24:1-29,AnnSemi), [Test11018.hs:26:1]), -((Test11018.hs:24:7-29,AnnProc), [Test11018.hs:24:7-10]), -((Test11018.hs:24:7-29,AnnRarrow), [Test11018.hs:24:18-19]), -((Test11018.hs:24:12-16,AnnCloseP), [Test11018.hs:24:16]), -((Test11018.hs:24:12-16,AnnOpenP), [Test11018.hs:24:12]), -((Test11018.hs:24:13,AnnComma), [Test11018.hs:24:14]), -((Test11018.hs:24:21-29,AnnLarrowtail), [Test11018.hs:24:23-25]), -((Test11018.hs:24:27-29,AnnVal), [Test11018.hs:24:28]), -((Test11018.hs:26:1-50,AnnDcolon), [Test11018.hs:26:4-5]), -((Test11018.hs:26:1-50,AnnSemi), [Test11018.hs:27:1]), -((Test11018.hs:26:7-18,AnnDarrow), [Test11018.hs:26:20-21]), -((Test11018.hs:26:23-25,AnnRarrow), [Test11018.hs:26:27-28]), -((Test11018.hs:26:23-50,AnnRarrow), [Test11018.hs:26:27-28]), -((Test11018.hs:26:32-46,AnnCloseP), [Test11018.hs:26:46]), -((Test11018.hs:26:32-46,AnnOpenP), [Test11018.hs:26:32]), -((Test11018.hs:26:33-41,AnnComma), [Test11018.hs:26:42]), -((Test11018.hs:27:1-30,AnnEqual), [Test11018.hs:27:6]), -((Test11018.hs:27:1-30,AnnFunId), [Test11018.hs:27:1-2]), -((Test11018.hs:27:1-30,AnnSemi), [Test11018.hs:31:1]), -((Test11018.hs:27:8-30,AnnProc), [Test11018.hs:27:8-11]), -((Test11018.hs:27:8-30,AnnRarrow), [Test11018.hs:27:19-20]), -((Test11018.hs:27:13-17,AnnCloseP), [Test11018.hs:27:17]), -((Test11018.hs:27:13-17,AnnOpenP), [Test11018.hs:27:13]), -((Test11018.hs:27:14,AnnComma), [Test11018.hs:27:15]), -((Test11018.hs:27:22-30,AnnRarrowtail), [Test11018.hs:27:24-26]), -((Test11018.hs:27:28-30,AnnVal), [Test11018.hs:27:29]), -((Test11018.hs:31:1-26,AnnDcolonU), [Test11018.hs:31:9]), -((Test11018.hs:31:1-26,AnnSemi), [Test11018.hs:32:1]), -((Test11018.hs:31:11-26,AnnDot), [Test11018.hs:31:15]), -((Test11018.hs:31:11-26,AnnForallU), [Test11018.hs:31:11]), -((Test11018.hs:31:17,AnnRarrowU), [Test11018.hs:31:19]), -((Test11018.hs:31:17-26,AnnRarrowU), [Test11018.hs:31:19]), -((Test11018.hs:(32,1)-(34,10),AnnEqual), [Test11018.hs:32:11]), -((Test11018.hs:(32,1)-(34,10),AnnFunId), [Test11018.hs:32:1-7]), -((Test11018.hs:(32,1)-(34,10),AnnSemi), [Test11018.hs:37:1]), -((Test11018.hs:(32,13)-(34,10),AnnDo), [Test11018.hs:32:13-14]), -((Test11018.hs:33:3-14,AnnLarrowU), [Test11018.hs:33:5]), -((Test11018.hs:33:3-14,AnnSemi), [Test11018.hs:34:3]), -((Test11018.hs:(37,1)-(40,7),AnnCloseP), [Test11018.hs:37:32]), -((Test11018.hs:(37,1)-(40,7),AnnData), [Test11018.hs:37:1-4]), -((Test11018.hs:(37,1)-(40,7),AnnEqual), [Test11018.hs:38:5]), -((Test11018.hs:(37,1)-(40,7),AnnOpenP), [Test11018.hs:37:22]), -((Test11018.hs:(37,1)-(40,7),AnnSemi), [Test11018.hs:42:1]), -((Test11018.hs:37:22-32,AnnCloseP), [Test11018.hs:37:32]), -((Test11018.hs:37:22-32,AnnOpenP), [Test11018.hs:37:22]), -((Test11018.hs:37:23-31,AnnDcolonU), [Test11018.hs:37:25]), -((Test11018.hs:37:27,AnnRarrowU), [Test11018.hs:37:29]), -((Test11018.hs:37:27-31,AnnRarrowU), [Test11018.hs:37:29]), -((Test11018.hs:(38,17)-(40,7),AnnCloseC), [Test11018.hs:40:7]), -((Test11018.hs:(38,17)-(40,7),AnnOpenC), [Test11018.hs:38:17]), -((Test11018.hs:39:9-40,AnnDcolonU), [Test11018.hs:39:19]), -((Test11018.hs:39:21-40,AnnBang), [Test11018.hs:39:21]), -((Test11018.hs:39:22-40,AnnCloseP), [Test11018.hs:39:40]), -((Test11018.hs:39:22-40,AnnOpenP), [Test11018.hs:39:22]), -((Test11018.hs:42:1-36,AnnDcolon), [Test11018.hs:42:4-5]), -((Test11018.hs:42:1-36,AnnSemi), [Test11018.hs:43:1]), -((Test11018.hs:42:7-13,AnnDarrowU), [Test11018.hs:42:16]), -((Test11018.hs:42:20-32,AnnCloseP), [Test11018.hs:42:32]), -((Test11018.hs:42:20-32,AnnOpenP), [Test11018.hs:42:20]), -((Test11018.hs:42:21-23,AnnComma), [Test11018.hs:42:24]), -((Test11018.hs:42:25-27,AnnComma), [Test11018.hs:42:28]), -((Test11018.hs:43:1-34,AnnEqual), [Test11018.hs:43:4]), -((Test11018.hs:43:1-34,AnnFunId), [Test11018.hs:43:1-2]), -((Test11018.hs:43:1-34,AnnSemi), [Test11018.hs:45:1]), -((Test11018.hs:43:6-34,AnnProc), [Test11018.hs:43:6-9]), -((Test11018.hs:43:6-34,AnnRarrow), [Test11018.hs:43:19-20]), -((Test11018.hs:43:11-17,AnnCloseP), [Test11018.hs:43:17]), -((Test11018.hs:43:11-17,AnnOpenP), [Test11018.hs:43:11]), -((Test11018.hs:43:12,AnnComma), [Test11018.hs:43:13]), -((Test11018.hs:43:14,AnnComma), [Test11018.hs:43:15]), -((Test11018.hs:43:22-34,AnnlarrowtailU), [Test11018.hs:43:30]), -((Test11018.hs:43:32-34,AnnVal), [Test11018.hs:43:33]), -((Test11018.hs:45:1-36,AnnDcolon), [Test11018.hs:45:5-6]), -((Test11018.hs:45:1-36,AnnSemi), [Test11018.hs:46:1]), -((Test11018.hs:45:8-14,AnnDarrowU), [Test11018.hs:45:16]), -((Test11018.hs:45:20-32,AnnCloseP), [Test11018.hs:45:32]), -((Test11018.hs:45:20-32,AnnOpenP), [Test11018.hs:45:20]), -((Test11018.hs:45:21-23,AnnComma), [Test11018.hs:45:24]), -((Test11018.hs:45:25-27,AnnComma), [Test11018.hs:45:28]), -((Test11018.hs:46:1-35,AnnEqual), [Test11018.hs:46:5]), -((Test11018.hs:46:1-35,AnnFunId), [Test11018.hs:46:1-3]), -((Test11018.hs:46:1-35,AnnSemi), [Test11018.hs:48:1]), -((Test11018.hs:46:7-35,AnnProc), [Test11018.hs:46:7-10]), -((Test11018.hs:46:7-35,AnnRarrow), [Test11018.hs:46:20-21]), -((Test11018.hs:46:12-18,AnnCloseP), [Test11018.hs:46:18]), -((Test11018.hs:46:12-18,AnnOpenP), [Test11018.hs:46:12]), -((Test11018.hs:46:13,AnnComma), [Test11018.hs:46:14]), -((Test11018.hs:46:15,AnnComma), [Test11018.hs:46:16]), -((Test11018.hs:46:23-35,AnnrarrowtailU), [Test11018.hs:46:31]), -((Test11018.hs:46:33-35,AnnVal), [Test11018.hs:46:34]), -((Test11018.hs:48:1-49,AnnDcolon), [Test11018.hs:48:4-5]), -((Test11018.hs:48:1-49,AnnSemi), [Test11018.hs:49:1]), -((Test11018.hs:48:7-18,AnnDarrowU), [Test11018.hs:48:20]), -((Test11018.hs:48:22-24,AnnRarrow), [Test11018.hs:48:26-27]), -((Test11018.hs:48:22-49,AnnRarrow), [Test11018.hs:48:26-27]), -((Test11018.hs:48:31-45,AnnCloseP), [Test11018.hs:48:45]), -((Test11018.hs:48:31-45,AnnOpenP), [Test11018.hs:48:31]), -((Test11018.hs:48:32-40,AnnComma), [Test11018.hs:48:41]), -((Test11018.hs:49:1-28,AnnEqual), [Test11018.hs:49:6]), -((Test11018.hs:49:1-28,AnnFunId), [Test11018.hs:49:1-2]), -((Test11018.hs:49:1-28,AnnSemi), [Test11018.hs:51:1]), -((Test11018.hs:49:8-28,AnnProc), [Test11018.hs:49:8-11]), -((Test11018.hs:49:8-28,AnnRarrow), [Test11018.hs:49:19-20]), -((Test11018.hs:49:13-17,AnnCloseP), [Test11018.hs:49:17]), -((Test11018.hs:49:13-17,AnnOpenP), [Test11018.hs:49:13]), -((Test11018.hs:49:14,AnnComma), [Test11018.hs:49:15]), -((Test11018.hs:49:22-28,AnnLarrowtailU), [Test11018.hs:49:24]), -((Test11018.hs:49:26-28,AnnVal), [Test11018.hs:49:27]), -((Test11018.hs:51:1-50,AnnDcolon), [Test11018.hs:51:5-6]), -((Test11018.hs:51:1-50,AnnSemi), [Test11018.hs:52:1]), -((Test11018.hs:51:8-19,AnnDarrowU), [Test11018.hs:51:21]), -((Test11018.hs:51:23-25,AnnRarrow), [Test11018.hs:51:27-28]), -((Test11018.hs:51:23-50,AnnRarrow), [Test11018.hs:51:27-28]), -((Test11018.hs:51:32-46,AnnCloseP), [Test11018.hs:51:46]), -((Test11018.hs:51:32-46,AnnOpenP), [Test11018.hs:51:32]), -((Test11018.hs:51:33-41,AnnComma), [Test11018.hs:51:42]), -((Test11018.hs:52:1-29,AnnEqual), [Test11018.hs:52:7]), -((Test11018.hs:52:1-29,AnnFunId), [Test11018.hs:52:1-3]), -((Test11018.hs:52:1-29,AnnSemi), [Test11018.hs:53:1]), -((Test11018.hs:52:9-29,AnnProc), [Test11018.hs:52:9-12]), -((Test11018.hs:52:9-29,AnnRarrow), [Test11018.hs:52:20-21]), -((Test11018.hs:52:14-18,AnnCloseP), [Test11018.hs:52:18]), -((Test11018.hs:52:14-18,AnnOpenP), [Test11018.hs:52:14]), -((Test11018.hs:52:15,AnnComma), [Test11018.hs:52:16]), -((Test11018.hs:52:23-29,AnnRarrowtailU), [Test11018.hs:52:25]), -((Test11018.hs:52:27-29,AnnVal), [Test11018.hs:52:28]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test11018.hs" 53 1 diff --git a/testsuite/tests/ghc-api/annotations/T11321.stdout b/testsuite/tests/ghc-api/annotations/T11321.stdout deleted file mode 100644 index 15d2169dba..0000000000 --- a/testsuite/tests/ghc-api/annotations/T11321.stdout +++ /dev/null @@ -1,49 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test11321.hs:1:1,AnnModule), [Test11321.hs:10:1-6]), -((Test11321.hs:1:1,AnnWhere), [Test11321.hs:10:18-22]), -((Test11321.hs:(12,1)-(17,27),AnnData), [Test11321.hs:12:1-4]), -((Test11321.hs:(12,1)-(17,27),AnnEqual), [Test11321.hs:13:3]), -((Test11321.hs:(12,1)-(17,27),AnnInstance), [Test11321.hs:12:6-13]), -((Test11321.hs:(12,1)-(17,27),AnnSemi), [Test11321.hs:18:1]), -((Test11321.hs:12:20-29,AnnCloseP), [Test11321.hs:12:29]), -((Test11321.hs:12:20-29,AnnOpenP), [Test11321.hs:12:20]), -((Test11321.hs:12:21-28,AnnDcolon), [Test11321.hs:12:23-24]), -((Test11321.hs:12:26-28,AnnCloseS), [Test11321.hs:12:28]), -((Test11321.hs:12:26-28,AnnOpenS), [Test11321.hs:12:26]), -((Test11321.hs:(13,5)-(14,8),AnnDarrow), [Test11321.hs:13:13-14]), -((Test11321.hs:(13,5)-(14,8),AnnVbar), [Test11321.hs:15:3]), -((Test11321.hs:13:9-11,AnnCloseS), [Test11321.hs:13:11]), -((Test11321.hs:13:9-11,AnnOpenS), [Test11321.hs:13:10]), -((Test11321.hs:13:9-11,AnnSimpleQuote), [Test11321.hs:13:9]), -((Test11321.hs:(15,5)-(17,27),AnnDarrow), [Test11321.hs:16:36-37]), -((Test11321.hs:(15,5)-(17,27),AnnDot), [Test11321.hs:16:22]), -((Test11321.hs:(15,5)-(17,27),AnnForall), [Test11321.hs:15:5-10]), -((Test11321.hs:15:12-19,AnnCloseP), [Test11321.hs:15:19]), -((Test11321.hs:15:12-19,AnnDcolon), [Test11321.hs:15:15-16]), -((Test11321.hs:15:12-19,AnnOpenP), [Test11321.hs:15:12]), -((Test11321.hs:16:12-21,AnnCloseP), [Test11321.hs:16:21]), -((Test11321.hs:16:12-21,AnnDcolon), [Test11321.hs:16:15-16]), -((Test11321.hs:16:12-21,AnnOpenP), [Test11321.hs:16:12]), -((Test11321.hs:16:18-20,AnnCloseS), [Test11321.hs:16:20]), -((Test11321.hs:16:18-20,AnnOpenS), [Test11321.hs:16:18]), -((Test11321.hs:16:28-30,AnnCloseP), [Test11321.hs:16:30]), -((Test11321.hs:16:28-30,AnnOpenP), [Test11321.hs:16:28]), -((Test11321.hs:16:28-30,AnnVal), [Test11321.hs:16:29]), -((Test11321.hs:17:11-18,AnnCloseP), [Test11321.hs:17:18]), -((Test11321.hs:17:11-18,AnnOpenP), [Test11321.hs:17:11]), -((Test11321.hs:17:20-27,AnnCloseP), [Test11321.hs:17:27]), -((Test11321.hs:17:20-27,AnnOpenP), [Test11321.hs:17:20]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test11321.hs" 18 1 diff --git a/testsuite/tests/ghc-api/annotations/T11332.stdout b/testsuite/tests/ghc-api/annotations/T11332.stdout deleted file mode 100644 index bdb849e680..0000000000 --- a/testsuite/tests/ghc-api/annotations/T11332.stdout +++ /dev/null @@ -1,56 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test11332.hs:1:1,AnnModule), [Test11332.hs:3:1-6]), -((Test11332.hs:1:1,AnnWhere), [Test11332.hs:3:52-56]), -((Test11332.hs:3:18-50,AnnCloseP), [Test11332.hs:3:50]), -((Test11332.hs:3:18-50,AnnOpenP), [Test11332.hs:3:18]), -((Test11332.hs:3:20-29,AnnCloseP), [Test11332.hs:3:29]), -((Test11332.hs:3:20-29,AnnComma), [Test11332.hs:3:24, Test11332.hs:3:30]), -((Test11332.hs:3:20-29,AnnDotdot), [Test11332.hs:3:22-23]), -((Test11332.hs:3:20-29,AnnOpenP), [Test11332.hs:3:21]), -((Test11332.hs:3:32-38,AnnCloseP), [Test11332.hs:3:38]), -((Test11332.hs:3:32-38,AnnComma), [Test11332.hs:3:39]), -((Test11332.hs:3:32-38,AnnDotdot), [Test11332.hs:3:36-37]), -((Test11332.hs:3:32-38,AnnOpenP), [Test11332.hs:3:33]), -((Test11332.hs:3:34,AnnComma), [Test11332.hs:3:35]), -((Test11332.hs:3:41-49,AnnCloseP), [Test11332.hs:3:49]), -((Test11332.hs:3:41-49,AnnComma), [Test11332.hs:3:47]), -((Test11332.hs:3:41-49,AnnDotdot), [Test11332.hs:3:45-46]), -((Test11332.hs:3:41-49,AnnOpenP), [Test11332.hs:3:42]), -((Test11332.hs:3:43,AnnComma), [Test11332.hs:3:44]), -((Test11332.hs:5:1-14,AnnData), [Test11332.hs:5:1-4]), -((Test11332.hs:5:1-14,AnnEqual), [Test11332.hs:5:8]), -((Test11332.hs:5:1-14,AnnSemi), [Test11332.hs:7:1]), -((Test11332.hs:5:10,AnnVbar), [Test11332.hs:5:12]), -((Test11332.hs:7:1-15,AnnEqual), [Test11332.hs:7:13]), -((Test11332.hs:7:1-15,AnnPattern), [Test11332.hs:7:1-7]), -((Test11332.hs:7:1-15,AnnSemi), [Test11332.hs:9:1]), -((Test11332.hs:9:1-14,AnnData), [Test11332.hs:9:1-4]), -((Test11332.hs:9:1-14,AnnEqual), [Test11332.hs:9:10]), -((Test11332.hs:9:1-14,AnnSemi), [Test11332.hs:11:1]), -((Test11332.hs:11:1-17,AnnEqual), [Test11332.hs:11:13]), -((Test11332.hs:11:1-17,AnnPattern), [Test11332.hs:11:1-7]), -((Test11332.hs:11:1-17,AnnSemi), [Test11332.hs:13:1]), -((Test11332.hs:13:1-14,AnnData), [Test11332.hs:13:1-4]), -((Test11332.hs:13:1-14,AnnEqual), [Test11332.hs:13:8]), -((Test11332.hs:13:1-14,AnnSemi), [Test11332.hs:15:1]), -((Test11332.hs:13:10,AnnVbar), [Test11332.hs:13:12]), -((Test11332.hs:15:1-13,AnnEqual), [Test11332.hs:15:11]), -((Test11332.hs:15:1-13,AnnPattern), [Test11332.hs:15:1-7]), -((Test11332.hs:15:1-13,AnnSemi), [Test11332.hs:17:1]), -((Test11332.hs:17:1-13,AnnEqual), [Test11332.hs:17:11]), -((Test11332.hs:17:1-13,AnnPattern), [Test11332.hs:17:1-7]), -((Test11332.hs:17:1-13,AnnSemi), [Test11332.hs:18:1]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test11332.hs" 18 1 diff --git a/testsuite/tests/ghc-api/annotations/T11430.stdout b/testsuite/tests/ghc-api/annotations/T11430.stdout deleted file mode 100644 index 528e1e3d57..0000000000 --- a/testsuite/tests/ghc-api/annotations/T11430.stdout +++ /dev/null @@ -1,5 +0,0 @@ -("f",["0x1"]) -("ib",["001"]) -("ia",["1"]) -("ia",["0x999"]) -("ia",["1"]) diff --git a/testsuite/tests/ghc-api/annotations/T12417.stdout b/testsuite/tests/ghc-api/annotations/T12417.stdout deleted file mode 100644 index 2cfd3c0635..0000000000 --- a/testsuite/tests/ghc-api/annotations/T12417.stdout +++ /dev/null @@ -1,76 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test12417.hs:1:1,AnnModule), [Test12417.hs:3:1-6]), -((Test12417.hs:1:1,AnnWhere), [Test12417.hs:3:18-22]), -((Test12417.hs:5:1-15,AnnImport), [Test12417.hs:5:1-6]), -((Test12417.hs:5:1-15,AnnSemi), [Test12417.hs:6:1]), -((Test12417.hs:6:1-16,AnnImport), [Test12417.hs:6:1-6]), -((Test12417.hs:6:1-16,AnnSemi), [Test12417.hs:8:1]), -((Test12417.hs:8:1-34,AnnImport), [Test12417.hs:8:1-6]), -((Test12417.hs:8:1-34,AnnSemi), [Test12417.hs:10:1]), -((Test12417.hs:8:19-34,AnnCloseP), [Test12417.hs:8:34]), -((Test12417.hs:8:19-34,AnnOpenP), [Test12417.hs:8:19]), -((Test12417.hs:10:1-30,AnnEqual), [Test12417.hs:10:18]), -((Test12417.hs:10:1-30,AnnSemi), [Test12417.hs:12:1]), -((Test12417.hs:10:1-30,AnnType), [Test12417.hs:10:1-4]), -((Test12417.hs:10:20-30,AnnClose), [Test12417.hs:10:29-30]), -((Test12417.hs:10:20-30,AnnOpen), [Test12417.hs:10:20-21]), -((Test12417.hs:10:23,AnnVbar), [Test12417.hs:10:25]), -((Test12417.hs:12:1-56,AnnDcolon), [Test12417.hs:12:13-14]), -((Test12417.hs:12:1-56,AnnSemi), [Test12417.hs:13:1]), -((Test12417.hs:12:16-31,AnnCloseP), [Test12417.hs:12:31, Test12417.hs:12:31]), -((Test12417.hs:12:16-31,AnnDarrow), [Test12417.hs:12:33-34]), -((Test12417.hs:12:16-31,AnnOpenP), [Test12417.hs:12:16, Test12417.hs:12:16]), -((Test12417.hs:12:17-22,AnnComma), [Test12417.hs:12:23]), -((Test12417.hs:12:36-46,AnnRarrow), [Test12417.hs:12:48-49]), -((Test12417.hs:12:36-56,AnnRarrow), [Test12417.hs:12:48-49]), -((Test12417.hs:13:1-48,AnnEqual), [Test12417.hs:13:27]), -((Test12417.hs:13:1-48,AnnFunId), [Test12417.hs:13:1-11]), -((Test12417.hs:13:1-48,AnnSemi), [Test12417.hs:14:1]), -((Test12417.hs:13:13-24,AnnClose), [Test12417.hs:13:23-24]), -((Test12417.hs:13:13-24,AnnOpen), [Test12417.hs:13:13-14]), -((Test12417.hs:13:13-24,AnnVbar), [Test12417.hs:13:21]), -((Test12417.hs:13:29-48,AnnVal), [Test12417.hs:13:37-38]), -((Test12417.hs:14:1-50,AnnEqual), [Test12417.hs:14:27]), -((Test12417.hs:14:1-50,AnnFunId), [Test12417.hs:14:1-11]), -((Test12417.hs:14:1-50,AnnSemi), [Test12417.hs:16:1]), -((Test12417.hs:14:13-25,AnnClose), [Test12417.hs:14:24-25]), -((Test12417.hs:14:13-25,AnnOpen), [Test12417.hs:14:13-14]), -((Test12417.hs:14:13-25,AnnVbar), [Test12417.hs:14:16]), -((Test12417.hs:14:29-50,AnnVal), [Test12417.hs:14:38-39]), -((Test12417.hs:16:1-75,AnnEqual), [Test12417.hs:16:8]), -((Test12417.hs:16:1-75,AnnSemi), [Test12417.hs:18:1]), -((Test12417.hs:16:1-75,AnnType), [Test12417.hs:16:1-4]), -((Test12417.hs:16:10-75,AnnClose), [Test12417.hs:16:74-75]), -((Test12417.hs:16:10-75,AnnOpen), [Test12417.hs:16:10-11]), -((Test12417.hs:16:13-15,AnnVbar), [Test12417.hs:16:17]), -((Test12417.hs:16:19-22,AnnVbar), [Test12417.hs:16:24]), -((Test12417.hs:16:26-31,AnnVbar), [Test12417.hs:16:33]), -((Test12417.hs:16:35-38,AnnVbar), [Test12417.hs:16:40]), -((Test12417.hs:16:42-56,AnnVbar), [Test12417.hs:16:58]), -((Test12417.hs:16:60-63,AnnVbar), [Test12417.hs:16:65]), -((Test12417.hs:18:1-26,AnnDcolon), [Test12417.hs:18:13-14]), -((Test12417.hs:18:1-26,AnnSemi), [Test12417.hs:19:1]), -((Test12417.hs:18:16,AnnRarrow), [Test12417.hs:18:18-19]), -((Test12417.hs:18:16-26,AnnRarrow), [Test12417.hs:18:18-19]), -((Test12417.hs:19:1-52,AnnEqual), [Test12417.hs:19:33]), -((Test12417.hs:19:1-52,AnnFunId), [Test12417.hs:19:1-11]), -((Test12417.hs:19:1-52,AnnSemi), [Test12417.hs:20:1]), -((Test12417.hs:19:13-31,AnnClose), [Test12417.hs:19:30-31]), -((Test12417.hs:19:13-31,AnnOpen), [Test12417.hs:19:13-14]), -((Test12417.hs:19:13-31,AnnVbar), [Test12417.hs:19:16, Test12417.hs:19:20, Test12417.hs:19:22, - Test12417.hs:19:24, Test12417.hs:19:26, Test12417.hs:19:28]), -((Test12417.hs:19:35-52,AnnVal), [Test12417.hs:19:44-45]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test12417.hs" 20 1 diff --git a/testsuite/tests/ghc-api/annotations/T13163.stdout b/testsuite/tests/ghc-api/annotations/T13163.stdout deleted file mode 100644 index 60b89cd832..0000000000 --- a/testsuite/tests/ghc-api/annotations/T13163.stdout +++ /dev/null @@ -1,84 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test13163.hs:1:1,AnnModule), [Test13163.hs:4:1-6]), -((Test13163.hs:1:1,AnnWhere), [Test13163.hs:8:5-9]), -((Test13163.hs:(5,3)-(8,3),AnnCloseP), [Test13163.hs:8:3]), -((Test13163.hs:(5,3)-(8,3),AnnOpenP), [Test13163.hs:5:3]), -((Test13163.hs:5:5-14,AnnCloseP), [Test13163.hs:5:14]), -((Test13163.hs:5:5-14,AnnComma), [Test13163.hs:6:3]), -((Test13163.hs:5:5-14,AnnDotdot), [Test13163.hs:5:12-13]), -((Test13163.hs:5:5-14,AnnOpenP), [Test13163.hs:5:11]), -((Test13163.hs:6:5-12,AnnType), [Test13163.hs:6:5-8]), -((Test13163.hs:6:5-16,AnnCloseP), [Test13163.hs:6:16]), -((Test13163.hs:6:5-16,AnnComma), [Test13163.hs:7:3]), -((Test13163.hs:6:5-16,AnnDotdot), [Test13163.hs:6:14-15]), -((Test13163.hs:6:5-16,AnnOpenP), [Test13163.hs:6:13]), -((Test13163.hs:6:10-12,AnnCloseP), [Test13163.hs:6:12]), -((Test13163.hs:6:10-12,AnnOpenP), [Test13163.hs:6:10]), -((Test13163.hs:6:10-12,AnnVal), [Test13163.hs:6:11]), -((Test13163.hs:7:5,AnnComma), [Test13163.hs:7:6]), -((Test13163.hs:7:8-15,AnnComma), [Test13163.hs:7:16]), -((Test13163.hs:7:8-15,AnnType), [Test13163.hs:7:8-11]), -((Test13163.hs:7:13-15,AnnCloseP), [Test13163.hs:7:15]), -((Test13163.hs:7:13-15,AnnOpenP), [Test13163.hs:7:13]), -((Test13163.hs:7:13-15,AnnVal), [Test13163.hs:7:14]), -((Test13163.hs:7:18-31,AnnPattern), [Test13163.hs:7:18-24]), -((Test13163.hs:10:1-78,AnnImport), [Test13163.hs:10:1-6]), -((Test13163.hs:10:1-78,AnnSemi), [Test13163.hs:11:1]), -((Test13163.hs:10:31-78,AnnCloseP), [Test13163.hs:10:78]), -((Test13163.hs:10:31-78,AnnOpenP), [Test13163.hs:10:31]), -((Test13163.hs:10:32-41,AnnComma), [Test13163.hs:10:42]), -((Test13163.hs:10:32-41,AnnType), [Test13163.hs:10:32-35]), -((Test13163.hs:10:37-41,AnnCloseP), [Test13163.hs:10:41]), -((Test13163.hs:10:37-41,AnnOpenP), [Test13163.hs:10:37]), -((Test13163.hs:10:37-41,AnnVal), [Test13163.hs:10:38-40]), -((Test13163.hs:10:44-53,AnnComma), [Test13163.hs:10:54]), -((Test13163.hs:10:44-53,AnnType), [Test13163.hs:10:44-47]), -((Test13163.hs:10:49-53,AnnCloseP), [Test13163.hs:10:53]), -((Test13163.hs:10:49-53,AnnOpenP), [Test13163.hs:10:49]), -((Test13163.hs:10:49-53,AnnVal), [Test13163.hs:10:50-52]), -((Test13163.hs:10:56-65,AnnComma), [Test13163.hs:10:66]), -((Test13163.hs:10:56-65,AnnType), [Test13163.hs:10:56-59]), -((Test13163.hs:10:61-65,AnnCloseP), [Test13163.hs:10:65]), -((Test13163.hs:10:61-65,AnnOpenP), [Test13163.hs:10:61]), -((Test13163.hs:10:61-65,AnnVal), [Test13163.hs:10:62-64]), -((Test13163.hs:10:68-77,AnnType), [Test13163.hs:10:68-71]), -((Test13163.hs:10:73-77,AnnCloseP), [Test13163.hs:10:77]), -((Test13163.hs:10:73-77,AnnOpenP), [Test13163.hs:10:73]), -((Test13163.hs:10:73-77,AnnVal), [Test13163.hs:10:74-76]), -((Test13163.hs:11:1-61,AnnImport), [Test13163.hs:11:1-6]), -((Test13163.hs:11:1-61,AnnSemi), [Test13163.hs:12:1]), -((Test13163.hs:11:24-61,AnnCloseP), [Test13163.hs:11:61]), -((Test13163.hs:11:24-61,AnnOpenP), [Test13163.hs:11:24]), -((Test13163.hs:11:25-31,AnnComma), [Test13163.hs:11:32]), -((Test13163.hs:11:34-44,AnnComma), [Test13163.hs:11:45]), -((Test13163.hs:11:47-56,AnnType), [Test13163.hs:11:47-50]), -((Test13163.hs:11:47-60,AnnCloseP), [Test13163.hs:11:60]), -((Test13163.hs:11:47-60,AnnDotdot), [Test13163.hs:11:58-59]), -((Test13163.hs:11:47-60,AnnOpenP), [Test13163.hs:11:57]), -((Test13163.hs:11:52-56,AnnCloseP), [Test13163.hs:11:56]), -((Test13163.hs:11:52-56,AnnOpenP), [Test13163.hs:11:52]), -((Test13163.hs:11:52-56,AnnVal), [Test13163.hs:11:53-55]), -((Test13163.hs:12:1-19,AnnImport), [Test13163.hs:12:1-6]), -((Test13163.hs:12:1-19,AnnSemi), [Test13163.hs:14:1]), -((Test13163.hs:14:1-22,AnnEqual), [Test13163.hs:14:18]), -((Test13163.hs:14:1-22,AnnPattern), [Test13163.hs:14:1-7]), -((Test13163.hs:14:1-22,AnnSemi), [Test13163.hs:16:1]), -((Test13163.hs:14:20-22,AnnCloseS), [Test13163.hs:14:22]), -((Test13163.hs:14:20-22,AnnOpenS), [Test13163.hs:14:20]), -((Test13163.hs:16:1-13,AnnEqual), [Test13163.hs:16:3]), -((Test13163.hs:16:1-13,AnnFunId), [Test13163.hs:16:1]), -((Test13163.hs:16:1-13,AnnSemi), [Test13163.hs:17:1]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test13163.hs" 17 1 diff --git a/testsuite/tests/ghc-api/annotations/T15303.stdout b/testsuite/tests/ghc-api/annotations/T15303.stdout deleted file mode 100644 index 84d592dd0e..0000000000 --- a/testsuite/tests/ghc-api/annotations/T15303.stdout +++ /dev/null @@ -1,42 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test15303.hs:4:1-4,AnnCloseP), [Test15303.hs:4:4]), -((Test15303.hs:4:1-4,AnnOpenP), [Test15303.hs:4:1]), -((Test15303.hs:4:1-4,AnnVal), [Test15303.hs:4:2-3]), -((Test15303.hs:4:1-66,AnnDcolon), [Test15303.hs:4:6-7]), -((Test15303.hs:4:1-66,AnnSemi), [Test15303.hs:5:1]), -((Test15303.hs:4:9-17,AnnDarrow), [Test15303.hs:4:19-20]), -((Test15303.hs:4:22-41,AnnRarrow), [Test15303.hs:4:43-44]), -((Test15303.hs:4:22-66,AnnRarrow), [Test15303.hs:4:43-44]), -((Test15303.hs:4:33-41,AnnCloseP), [Test15303.hs:4:41]), -((Test15303.hs:4:33-41,AnnOpenP), [Test15303.hs:4:33]), -((Test15303.hs:4:36-37,AnnSimpleQuote), [Test15303.hs:4:36]), -((Test15303.hs:4:36-37,AnnVal), [Test15303.hs:4:37]), -((Test15303.hs:4:46-48,AnnRarrow), [Test15303.hs:4:50-51]), -((Test15303.hs:4:46-66,AnnRarrow), [Test15303.hs:4:50-51]), -((Test15303.hs:4:58-66,AnnCloseP), [Test15303.hs:4:66]), -((Test15303.hs:4:58-66,AnnOpenP), [Test15303.hs:4:58]), -((Test15303.hs:4:61-62,AnnSimpleQuote), [Test15303.hs:4:61]), -((Test15303.hs:4:61-62,AnnVal), [Test15303.hs:4:62]), -((Test15303.hs:5:1-4,AnnCloseP), [Test15303.hs:5:4]), -((Test15303.hs:5:1-4,AnnOpenP), [Test15303.hs:5:1]), -((Test15303.hs:5:1-4,AnnVal), [Test15303.hs:5:2-3]), -((Test15303.hs:5:1-15,AnnEqual), [Test15303.hs:5:6]), -((Test15303.hs:5:1-15,AnnFunId), [Test15303.hs:5:1-4]), -((Test15303.hs:5:1-15,AnnSemi), [Test15303.hs:6:1]), -((Test15303.hs:6:1-11,AnnInfix), [Test15303.hs:6:1-6]), -((Test15303.hs:6:1-11,AnnSemi), [Test15303.hs:7:1]), -((Test15303.hs:6:1-11,AnnVal), [Test15303.hs:6:8]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test15303.hs" 7 1 diff --git a/testsuite/tests/ghc-api/annotations/T16212.stdout b/testsuite/tests/ghc-api/annotations/T16212.stdout deleted file mode 100644 index ec1932ed42..0000000000 --- a/testsuite/tests/ghc-api/annotations/T16212.stdout +++ /dev/null @@ -1,68 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test16212.hs:1:1,AnnModule), [Test16212.hs:1:1-6]), -((Test16212.hs:1:1,AnnWhere), [Test16212.hs:1:18-22]), -((Test16212.hs:(3,1)-(4,37),AnnClass), [Test16212.hs:3:1-5]), -((Test16212.hs:(3,1)-(4,37),AnnCloseP), [Test16212.hs:3:37]), -((Test16212.hs:(3,1)-(4,37),AnnOpenP), [Test16212.hs:3:21]), -((Test16212.hs:(3,1)-(4,37),AnnSemi), [Test16212.hs:6:1]), -((Test16212.hs:(3,1)-(4,37),AnnWhere), [Test16212.hs:3:39-43]), -((Test16212.hs:3:21-37,AnnCloseP), [Test16212.hs:3:37]), -((Test16212.hs:3:21-37,AnnOpenP), [Test16212.hs:3:21]), -((Test16212.hs:3:22-36,AnnDcolon), [Test16212.hs:3:28-29]), -((Test16212.hs:4:3-37,AnnDcolon), [Test16212.hs:4:9-10]), -((Test16212.hs:4:29-37,AnnCloseP), [Test16212.hs:4:37]), -((Test16212.hs:4:29-37,AnnOpenP), [Test16212.hs:4:29]), -((Test16212.hs:(6,1)-(7,37),AnnClass), [Test16212.hs:6:1-5]), -((Test16212.hs:(6,1)-(7,37),AnnCloseP), [Test16212.hs:6:40, Test16212.hs:6:39]), -((Test16212.hs:(6,1)-(7,37),AnnOpenP), [Test16212.hs:6:22, Test16212.hs:6:23]), -((Test16212.hs:(6,1)-(7,37),AnnSemi), [Test16212.hs:9:1]), -((Test16212.hs:(6,1)-(7,37),AnnWhere), [Test16212.hs:6:42-46]), -((Test16212.hs:6:22-40,AnnCloseP), [Test16212.hs:6:40]), -((Test16212.hs:6:22-40,AnnOpenP), [Test16212.hs:6:22]), -((Test16212.hs:6:23-39,AnnCloseP), [Test16212.hs:6:39]), -((Test16212.hs:6:23-39,AnnOpenP), [Test16212.hs:6:23]), -((Test16212.hs:6:24-38,AnnDcolon), [Test16212.hs:6:30-31]), -((Test16212.hs:7:3-37,AnnDcolon), [Test16212.hs:7:9-10]), -((Test16212.hs:7:29-37,AnnCloseP), [Test16212.hs:7:37]), -((Test16212.hs:7:29-37,AnnOpenP), [Test16212.hs:7:29]), -((Test16212.hs:(9,1)-(11,36),AnnCloseP), [Test16212.hs:9:23]), -((Test16212.hs:(9,1)-(11,36),AnnData), [Test16212.hs:9:1-4]), -((Test16212.hs:(9,1)-(11,36),AnnOpenP), [Test16212.hs:9:10]), -((Test16212.hs:(9,1)-(11,36),AnnSemi), [Test16212.hs:13:1]), -((Test16212.hs:(9,1)-(11,36),AnnWhere), [Test16212.hs:9:25-29]), -((Test16212.hs:9:10-23,AnnCloseP), [Test16212.hs:9:23]), -((Test16212.hs:9:10-23,AnnOpenP), [Test16212.hs:9:10]), -((Test16212.hs:9:11-22,AnnDcolon), [Test16212.hs:9:13-14]), -((Test16212.hs:10:5-23,AnnDcolon), [Test16212.hs:10:13-14]), -((Test16212.hs:10:5-23,AnnSemi), [Test16212.hs:11:5]), -((Test16212.hs:11:5-36,AnnDcolon), [Test16212.hs:11:13-14]), -((Test16212.hs:11:16-20,AnnRarrow), [Test16212.hs:11:22-23]), -((Test16212.hs:11:16-36,AnnRarrow), [Test16212.hs:11:22-23]), -((Test16212.hs:11:29-36,AnnCloseP), [Test16212.hs:11:36]), -((Test16212.hs:11:29-36,AnnOpenP), [Test16212.hs:11:29]), -((Test16212.hs:13:1-41,AnnCloseP), [Test16212.hs:13:12]), -((Test16212.hs:13:1-41,AnnData), [Test16212.hs:13:1-4]), -((Test16212.hs:13:1-41,AnnEqual), [Test16212.hs:13:16]), -((Test16212.hs:13:1-41,AnnOpenP), [Test16212.hs:13:10]), -((Test16212.hs:13:1-41,AnnSemi), [Test16212.hs:14:1]), -((Test16212.hs:13:10-12,AnnCloseP), [Test16212.hs:13:12]), -((Test16212.hs:13:10-12,AnnOpenP), [Test16212.hs:13:10]), -((Test16212.hs:13:22-41,AnnCloseC), [Test16212.hs:13:41]), -((Test16212.hs:13:22-41,AnnOpenC), [Test16212.hs:13:22]), -((Test16212.hs:13:24-30,AnnComma), [Test16212.hs:13:31]), -((Test16212.hs:13:24-30,AnnDcolon), [Test16212.hs:13:27-28]), -((Test16212.hs:13:33-39,AnnDcolon), [Test16212.hs:13:36-37]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test16212.hs" 14 1 diff --git a/testsuite/tests/ghc-api/annotations/T16230.stdout b/testsuite/tests/ghc-api/annotations/T16230.stdout deleted file mode 100644 index 5af52f6a50..0000000000 --- a/testsuite/tests/ghc-api/annotations/T16230.stdout +++ /dev/null @@ -1,68 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test16230.hs:1:1,AnnModule), [Test16230.hs:7:1-6]), -((Test16230.hs:1:1,AnnWhere), [Test16230.hs:7:28-32]), -((Test16230.hs:9:1-17,AnnImport), [Test16230.hs:9:1-6]), -((Test16230.hs:9:1-17,AnnSemi), [Test16230.hs:11:1]), -((Test16230.hs:11:1-11,AnnData), [Test16230.hs:11:1-4]), -((Test16230.hs:11:1-11,AnnFamily), [Test16230.hs:11:6-11]), -((Test16230.hs:11:1-11,AnnSemi), [Test16230.hs:12:1]), -((Test16230.hs:12:1-52,AnnData), [Test16230.hs:12:1-4]), -((Test16230.hs:12:1-52,AnnDot), [Test16230.hs:12:33]), -((Test16230.hs:12:1-52,AnnEqual), [Test16230.hs:12:48]), -((Test16230.hs:12:1-52,AnnForall), [Test16230.hs:12:15-20]), -((Test16230.hs:12:1-52,AnnInstance), [Test16230.hs:12:6-13]), -((Test16230.hs:12:1-52,AnnSemi), [Test16230.hs:14:1]), -((Test16230.hs:12:22-32,AnnCloseP), [Test16230.hs:12:32]), -((Test16230.hs:12:22-32,AnnDcolon), [Test16230.hs:12:25-26]), -((Test16230.hs:12:22-32,AnnOpenP), [Test16230.hs:12:22]), -((Test16230.hs:12:38-46,AnnCloseP), [Test16230.hs:12:46]), -((Test16230.hs:12:38-46,AnnOpenP), [Test16230.hs:12:38]), -((Test16230.hs:(14,1)-(15,13),AnnClass), [Test16230.hs:14:1-5]), -((Test16230.hs:(14,1)-(15,13),AnnSemi), [Test16230.hs:17:1]), -((Test16230.hs:(14,1)-(15,13),AnnWhere), [Test16230.hs:14:11-15]), -((Test16230.hs:15:3-13,AnnType), [Test16230.hs:15:3-6]), -((Test16230.hs:(17,1)-(18,31),AnnInstance), [Test16230.hs:17:1-8]), -((Test16230.hs:(17,1)-(18,31),AnnSemi), [Test16230.hs:21:1]), -((Test16230.hs:(17,1)-(18,31),AnnWhere), [Test16230.hs:17:26-30]), -((Test16230.hs:17:10-24,AnnDot), [Test16230.hs:17:18]), -((Test16230.hs:17:10-24,AnnForall), [Test16230.hs:17:10-15]), -((Test16230.hs:17:22-24,AnnCloseS), [Test16230.hs:17:24]), -((Test16230.hs:17:22-24,AnnOpenS), [Test16230.hs:17:22]), -((Test16230.hs:18:3-31,AnnDot), [Test16230.hs:18:16]), -((Test16230.hs:18:3-31,AnnEqual), [Test16230.hs:18:27]), -((Test16230.hs:18:3-31,AnnForall), [Test16230.hs:18:8-13]), -((Test16230.hs:18:3-31,AnnType), [Test16230.hs:18:3-6]), -((Test16230.hs:18:8-31,AnnDot), [Test16230.hs:18:16]), -((Test16230.hs:18:8-31,AnnEqual), [Test16230.hs:18:27]), -((Test16230.hs:18:8-31,AnnForall), [Test16230.hs:18:8-13]), -((Test16230.hs:18:21-23,AnnCloseS), [Test16230.hs:18:23]), -((Test16230.hs:18:21-23,AnnOpenS), [Test16230.hs:18:21]), -((Test16230.hs:21:1-17,AnnFamily), [Test16230.hs:21:6-11]), -((Test16230.hs:21:1-17,AnnSemi), [Test16230.hs:24:1]), -((Test16230.hs:21:1-17,AnnType), [Test16230.hs:21:1-4]), -((Test16230.hs:21:1-17,AnnWhere), [Test16230.hs:21:19-23]), -((Test16230.hs:22:3-38,AnnDot), [Test16230.hs:22:13]), -((Test16230.hs:22:3-38,AnnEqual), [Test16230.hs:22:31]), -((Test16230.hs:22:3-38,AnnForall), [Test16230.hs:22:3-8]), -((Test16230.hs:22:3-38,AnnSemi), [Test16230.hs:23:3]), -((Test16230.hs:22:17-19,AnnCloseS), [Test16230.hs:22:19]), -((Test16230.hs:22:17-19,AnnOpenS), [Test16230.hs:22:17]), -((Test16230.hs:22:21-29,AnnCloseP), [Test16230.hs:22:29]), -((Test16230.hs:22:21-29,AnnOpenP), [Test16230.hs:22:21]), -((Test16230.hs:23:3-36,AnnDot), [Test16230.hs:23:11]), -((Test16230.hs:23:3-36,AnnEqual), [Test16230.hs:23:31]), -((Test16230.hs:23:3-36,AnnForall), [Test16230.hs:23:3-8]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test16230.hs" 24 1 diff --git a/testsuite/tests/ghc-api/annotations/T16236.stdout b/testsuite/tests/ghc-api/annotations/T16236.stdout deleted file mode 100644 index 8ca1725440..0000000000 --- a/testsuite/tests/ghc-api/annotations/T16236.stdout +++ /dev/null @@ -1,87 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test16236.hs:1:1,AnnModule), [Test16236.hs:4:1-6]), -((Test16236.hs:1:1,AnnWhere), [Test16236.hs:4:22-26]), -((Test16236.hs:5:1-16,AnnImport), [Test16236.hs:5:1-6]), -((Test16236.hs:5:1-16,AnnSemi), [Test16236.hs:7:1]), -((Test16236.hs:7:1-30,AnnData), [Test16236.hs:7:1-4]), -((Test16236.hs:7:1-30,AnnEqual), [Test16236.hs:7:12]), -((Test16236.hs:7:1-30,AnnSemi), [Test16236.hs:9:1]), -((Test16236.hs:7:14-17,AnnVbar), [Test16236.hs:7:19]), -((Test16236.hs:9:1-39,AnnCloseP), [Test16236.hs:9:30]), -((Test16236.hs:9:1-39,AnnDcolon), [Test16236.hs:9:32-33]), -((Test16236.hs:9:1-39,AnnFamily), [Test16236.hs:9:6-11]), -((Test16236.hs:9:1-39,AnnOpenP), [Test16236.hs:9:20]), -((Test16236.hs:9:1-39,AnnSemi), [Test16236.hs:14:1]), -((Test16236.hs:9:1-39,AnnType), [Test16236.hs:9:1-4]), -((Test16236.hs:9:1-39,AnnWhere), [Test16236.hs:9:41-45]), -((Test16236.hs:9:20-30,AnnCloseP), [Test16236.hs:9:30]), -((Test16236.hs:9:20-30,AnnOpenP), [Test16236.hs:9:20]), -((Test16236.hs:9:21-29,AnnDcolon), [Test16236.hs:9:24-25]), -((Test16236.hs:9:27-29,AnnCloseS), [Test16236.hs:9:29]), -((Test16236.hs:9:27-29,AnnOpenS), [Test16236.hs:9:27]), -((Test16236.hs:10:3-36,AnnEqual), [Test16236.hs:10:19]), -((Test16236.hs:10:3-36,AnnSemi), [Test16236.hs:11:3]), -((Test16236.hs:10:10-17,AnnCloseP), [Test16236.hs:10:17]), -((Test16236.hs:10:10-17,AnnOpenP), [Test16236.hs:10:10]), -((Test16236.hs:10:26-36,AnnCloseP), [Test16236.hs:10:36]), -((Test16236.hs:10:26-36,AnnOpenP), [Test16236.hs:10:26]), -((Test16236.hs:11:3-24,AnnEqual), [Test16236.hs:11:19]), -((Test16236.hs:11:10-12,AnnCloseS), [Test16236.hs:11:12]), -((Test16236.hs:11:10-12,AnnOpenS), [Test16236.hs:11:11]), -((Test16236.hs:11:10-12,AnnSimpleQuote), [Test16236.hs:11:10]), -((Test16236.hs:14:1-29,AnnCloseP), [Test16236.hs:14:17]), -((Test16236.hs:14:1-29,AnnData), [Test16236.hs:14:1-4]), -((Test16236.hs:14:1-29,AnnEqual), [Test16236.hs:14:19]), -((Test16236.hs:14:1-29,AnnOpenP), [Test16236.hs:14:10]), -((Test16236.hs:14:1-29,AnnSemi), [Test16236.hs:16:1]), -((Test16236.hs:14:10-17,AnnCloseP), [Test16236.hs:14:17]), -((Test16236.hs:14:10-17,AnnOpenP), [Test16236.hs:14:10]), -((Test16236.hs:14:11-16,AnnDcolon), [Test16236.hs:14:13-14]), -((Test16236.hs:14:25-29,AnnCloseP), [Test16236.hs:14:29]), -((Test16236.hs:14:25-29,AnnOpenP), [Test16236.hs:14:25]), -((Test16236.hs:16:1-48,AnnCloseP), [Test16236.hs:16:23, Test16236.hs:16:40]), -((Test16236.hs:16:1-48,AnnDcolon), [Test16236.hs:16:42-43]), -((Test16236.hs:16:1-48,AnnFamily), [Test16236.hs:16:6-11]), -((Test16236.hs:16:1-48,AnnOpenP), [Test16236.hs:16:16, Test16236.hs:16:25]), -((Test16236.hs:16:1-48,AnnSemi), [Test16236.hs:19:1]), -((Test16236.hs:16:1-48,AnnType), [Test16236.hs:16:1-4]), -((Test16236.hs:16:1-48,AnnWhere), [Test16236.hs:16:50-54]), -((Test16236.hs:16:16-23,AnnCloseP), [Test16236.hs:16:23]), -((Test16236.hs:16:16-23,AnnOpenP), [Test16236.hs:16:16]), -((Test16236.hs:16:17-22,AnnDcolon), [Test16236.hs:16:19-20]), -((Test16236.hs:16:25-40,AnnCloseP), [Test16236.hs:16:40]), -((Test16236.hs:16:25-40,AnnOpenP), [Test16236.hs:16:25]), -((Test16236.hs:16:26-39,AnnDcolon), [Test16236.hs:16:28-29]), -((Test16236.hs:16:31,AnnRarrow), [Test16236.hs:16:33-34]), -((Test16236.hs:16:31-39,AnnRarrow), [Test16236.hs:16:33-34]), -((Test16236.hs:17:3-30,AnnEqual), [Test16236.hs:17:17]), -((Test16236.hs:19:1-11,AnnCloseP), [Test16236.hs:19:24]), -((Test16236.hs:19:1-11,AnnData), [Test16236.hs:19:1-4]), -((Test16236.hs:19:1-11,AnnFamily), [Test16236.hs:19:6-11]), -((Test16236.hs:19:1-11,AnnOpenP), [Test16236.hs:19:17]), -((Test16236.hs:19:1-11,AnnSemi), [Test16236.hs:20:1]), -((Test16236.hs:19:17-24,AnnCloseP), [Test16236.hs:19:24]), -((Test16236.hs:19:17-24,AnnOpenP), [Test16236.hs:19:17]), -((Test16236.hs:19:18-23,AnnDcolon), [Test16236.hs:19:20-21]), -((Test16236.hs:20:1-49,AnnData), [Test16236.hs:20:1-4]), -((Test16236.hs:20:1-49,AnnEqual), [Test16236.hs:20:41]), -((Test16236.hs:20:1-49,AnnInstance), [Test16236.hs:20:6-13]), -((Test16236.hs:20:1-49,AnnSemi), [Test16236.hs:21:1]), -((Test16236.hs:20:20-37,AnnCloseP), [Test16236.hs:20:37]), -((Test16236.hs:20:20-37,AnnOpenP), [Test16236.hs:20:20]), -((Test16236.hs:20:21-26,AnnRarrow), [Test16236.hs:20:28-29]), -((Test16236.hs:20:21-36,AnnRarrow), [Test16236.hs:20:28-29]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test16236.hs" 21 1 diff --git a/testsuite/tests/ghc-api/annotations/T16279.stdout b/testsuite/tests/ghc-api/annotations/T16279.stdout deleted file mode 100644 index 901c776fdd..0000000000 --- a/testsuite/tests/ghc-api/annotations/T16279.stdout +++ /dev/null @@ -1,32 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test16279.hs:5:1-20,AnnDcolon), [Test16279.hs:5:7-8]), -((Test16279.hs:5:1-20,AnnSemi), [Test16279.hs:6:1]), -((Test16279.hs:5:10-12,AnnRarrow), [Test16279.hs:5:14-15]), -((Test16279.hs:5:10-20,AnnRarrow), [Test16279.hs:5:14-15]), -((Test16279.hs:(6,1)-(7,24),AnnEqual), [Test16279.hs:6:7]), -((Test16279.hs:(6,1)-(7,24),AnnFunId), [Test16279.hs:6:1-5]), -((Test16279.hs:(6,1)-(7,24),AnnSemi), [Test16279.hs:9:1]), -((Test16279.hs:(6,9)-(7,24),AnnCase), [Test16279.hs:6:10-13]), -((Test16279.hs:(6,9)-(7,24),AnnLam), [Test16279.hs:6:9]), -((Test16279.hs:6:15-23,AnnSemi), [Test16279.hs:7:15]), -((Test16279.hs:6:17-23,AnnRarrow), [Test16279.hs:6:17-18]), -((Test16279.hs:7:17-24,AnnRarrow), [Test16279.hs:7:17-18]), -((Test16279.hs:9:1-16,AnnEqual), [Test16279.hs:9:6]), -((Test16279.hs:9:1-16,AnnFunId), [Test16279.hs:9:1-4]), -((Test16279.hs:9:1-16,AnnSemi), [Test16279.hs:11:1]), -((Test16279.hs:9:15-16,AnnCloseP), [Test16279.hs:9:16]), -((Test16279.hs:9:15-16,AnnOpenP), [Test16279.hs:9:15]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test16279.hs" 11 1 diff --git a/testsuite/tests/ghc-api/annotations/T17388.stdout b/testsuite/tests/ghc-api/annotations/T17388.stdout deleted file mode 100644 index b2012bff79..0000000000 --- a/testsuite/tests/ghc-api/annotations/T17388.stdout +++ /dev/null @@ -1,35 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test17388.hs:1:1,AnnModule), [Test17388.hs:3:1-6]), -((Test17388.hs:1:1,AnnWhere), [Test17388.hs:3:18-22]), -((Test17388.hs:5:1-21,AnnImport), [Test17388.hs:5:1-6]), -((Test17388.hs:5:1-21,AnnPackageName), [Test17388.hs:5:8-13]), -((Test17388.hs:5:1-21,AnnSemi), [Test17388.hs:6:1]), -((Test17388.hs:6:1-30,AnnClose), [Test17388.hs:6:20-22]), -((Test17388.hs:6:1-30,AnnImport), [Test17388.hs:6:1-6]), -((Test17388.hs:6:1-30,AnnOpen), [Test17388.hs:6:8-17]), -((Test17388.hs:6:1-30,AnnSemi), [Test17388.hs:8:1]), -((Test17388.hs:8:1-40,AnnClose), [Test17388.hs:8:19-21]), -((Test17388.hs:8:1-40,AnnImport), [Test17388.hs:8:1-6]), -((Test17388.hs:8:1-40,AnnOpen), [Test17388.hs:8:8-17]), -((Test17388.hs:8:1-40,AnnPackageName), [Test17388.hs:8:24-29]), -((Test17388.hs:8:1-40,AnnSemi), [Test17388.hs:9:1]), -((Test17388.hs:9:1-50,AnnClose), [Test17388.hs:9:19-21]), -((Test17388.hs:9:1-50,AnnImport), [Test17388.hs:9:1-6]), -((Test17388.hs:9:1-50,AnnOpen), [Test17388.hs:9:8-17]), -((Test17388.hs:9:1-50,AnnPackageName), [Test17388.hs:9:34-39]), -((Test17388.hs:9:1-50,AnnQualified), [Test17388.hs:9:23-31]), -((Test17388.hs:9:1-50,AnnSemi), [Test17388.hs:10:1]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test17388.hs" 10 1 diff --git a/testsuite/tests/ghc-api/annotations/T17519.stdout b/testsuite/tests/ghc-api/annotations/T17519.stdout deleted file mode 100644 index 9560a68675..0000000000 --- a/testsuite/tests/ghc-api/annotations/T17519.stdout +++ /dev/null @@ -1,27 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((Test17519.hs:1:1,AnnModule), [Test17519.hs:3:1-6]), -((Test17519.hs:1:1,AnnWhere), [Test17519.hs:3:18-22]), -((Test17519.hs:5:1-36,AnnDcolonU), [Test17519.hs:5:21]), -((Test17519.hs:5:1-36,AnnFamily), [Test17519.hs:5:6-11]), -((Test17519.hs:5:1-36,AnnSemi), [Test17519.hs:7:1]), -((Test17519.hs:5:1-36,AnnType), [Test17519.hs:5:1-4]), -((Test17519.hs:5:1-36,AnnWhere), [Test17519.hs:5:38-42]), -((Test17519.hs:5:23-36,AnnForallU), [Test17519.hs:5:23]), -((Test17519.hs:5:23-36,AnnRarrowU), [Test17519.hs:5:27]), -((Test17519.hs:5:29,AnnRarrowU), [Test17519.hs:5:31]), -((Test17519.hs:5:29-36,AnnRarrowU), [Test17519.hs:5:31]), -((Test17519.hs:6:3-18,AnnEqual), [Test17519.hs:6:11]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "Test17519.hs" 7 1 diff --git a/testsuite/tests/ghc-api/annotations/all.T b/testsuite/tests/ghc-api/annotations/all.T index ce95f40be2..25b3abb4b4 100644 --- a/testsuite/tests/ghc-api/annotations/all.T +++ b/testsuite/tests/ghc-api/annotations/all.T @@ -1,78 +1,3 @@ -test('annotations', [extra_files(['AnnotationLet.hs']), - normalise_slashes, - ignore_stderr], makefile_test, ['annotations']) -test('parseTree', [extra_files(['AnnotationTuple.hs']), - normalise_slashes, - ignore_stderr], makefile_test, ['parseTree']) test('comments', [extra_files(['CommentsTest.hs']), ignore_stderr], makefile_test, ['comments']) -test('exampleTest', [extra_files(['AnnotationTuple.hs']), - ignore_stderr], makefile_test, ['exampleTest']) -test('listcomps', [extra_files(['ListComprehensions.hs']), - normalise_slashes, - ignore_stderr], makefile_test, ['listcomps']) -test('T10255', [extra_files(['Test10255.hs']), - ignore_stderr], makefile_test, ['T10255']) -test('T10268', [extra_files(['Test10268.hs']), - ignore_stderr], makefile_test, ['T10268']) -test('T10269', [extra_files(['Test10269.hs']), - ignore_stderr], makefile_test, ['T10269']) -test('T10280', [extra_files(['Test10280.hs']), - ignore_stderr], makefile_test, ['T10280']) -test('T10312', [extra_files(['Test10312.hs']), - ignore_stderr], makefile_test, ['T10312']) -test('T10307', [extra_files(['Test10307.hs']), - ignore_stderr], makefile_test, ['T10307']) -test('T10309', [extra_files(['Test10309.hs']), - ignore_stderr], makefile_test, ['T10309']) -test('boolFormula', [extra_files(['TestBoolFormula.hs']), - ignore_stderr], makefile_test, ['boolFormula']) -test('T10357', [extra_files(['Test10357.hs']), - ignore_stderr], makefile_test, ['T10357']) -test('T10358', [extra_files(['Test10358.hs']), - ignore_stderr], makefile_test, ['T10358']) -test('T10278', [extra_files(['Test10278.hs']), - ignore_stderr], makefile_test, ['T10278']) -test('T10354', [extra_files(['Test10354.hs']), - ignore_stderr], makefile_test, ['T10354']) -test('T10396', [extra_files(['Test10396.hs']), - ignore_stderr], makefile_test, ['T10396']) -test('T10399', [extra_files(['Test10399.hs']), - ignore_stderr], makefile_test, ['T10399']) -test('T10313', [extra_files(['Test10313.hs', 'stringSource.hs']), - ignore_stderr], makefile_test, ['T10313']) -test('T11018', [extra_files(['Test11018.hs']), - ignore_stderr], makefile_test, ['T11018']) -test('bundle-export', [extra_files(['BundleExport.hs']), - ignore_stderr], makefile_test, ['bundle-export']) -test('T10276', [extra_files(['Test10276.hs']), - ignore_stderr], makefile_test, ['T10276']) -test('T10598', [extra_files(['Test10598.hs']), - ignore_stderr], makefile_test, ['T10598']) -test('T11321', [extra_files(['Test11321.hs']), - ignore_stderr], makefile_test, ['T11321']) -test('T11332', [extra_files(['Test11332.hs']), - ignore_stderr], makefile_test, ['T11332']) -test('T11430', [extra_files(['Test11430.hs', 't11430.hs']), - ignore_stderr], makefile_test, ['T11430']) -test('load-main', ignore_stderr, makefile_test, ['load-main']) -test('T12417', [extra_files(['Test12417.hs']), - ignore_stderr], makefile_test, ['T12417']) -test('T13163', [extra_files(['Test13163.hs']), - ignore_stderr], makefile_test, ['T13163']) -test('T15303', [extra_files(['Test15303.hs']), - ignore_stderr], makefile_test, ['T15303']) -test('T16212', [extra_files(['Test16212.hs']), - ignore_stderr], makefile_test, ['T16212']) -test('T16230', [extra_files(['Test16230.hs']), - ignore_stderr], makefile_test, ['T16230']) -test('T16236', [extra_files(['Test16236.hs']), - ignore_stderr], makefile_test, ['T16236']) -test('StarBinderAnns', [extra_files(['StarBinderAnns.hs']), - ignore_stderr], makefile_test, ['StarBinderAnns']) -test('T16279', [extra_files(['Test16279.hs']), - ignore_stderr], makefile_test, ['T16279']) -test('T17388', [extra_files(['Test17388.hs']), - ignore_stderr], makefile_test, ['T17388']) -test('T17519', [extra_files(['Test17519.hs']), - ignore_stderr], makefile_test, ['T17519']) +test('InTreeAnnotations1',normal, compile, ['-dsuppress-uniques -ddump-parsed-ast']) diff --git a/testsuite/tests/ghc-api/annotations/annotations.hs b/testsuite/tests/ghc-api/annotations/annotations.hs deleted file mode 100644 index 933170deb2..0000000000 --- a/testsuite/tests/ghc-api/annotations/annotations.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE RankNTypes #-} - --- This program must be called with GHC's libdir as the single command line --- argument. -module Main where - --- import Data.Generics -import Data.Data -import Data.List (intercalate) -import System.IO -import GHC -import GHC.Driver.Session -import GHC.Driver.Ppr -import GHC.Utils.Monad -import GHC.Utils.Outputable -import GHC.Data.Bag (filterBag,isEmptyBag) -import System.Directory (removeFile) -import System.Environment( getArgs ) -import qualified Data.Map as Map -import Data.Dynamic ( fromDynamic,Dynamic ) - -main::IO() -main = do - [libdir] <- getArgs - testOneFile libdir "AnnotationLet" - -testOneFile libdir fileName = do - p <- runGhc (Just libdir) $ do - dflags <- getSessionDynFlags - setSessionDynFlags dflags - let mn =mkModuleName fileName - addTarget Target { targetId = TargetModule mn - , targetAllowObjCode = True - , targetContents = Nothing } - load LoadAllTargets - modSum <- getModSummary mn - p <- parseModule modSum - t <- typecheckModule p - d <- desugarModule t - l <- loadModule d - let ts=typecheckedSource l - r =renamedSource l - -- liftIO (putStr (showSDocDebug (ppr ts))) - return (pm_annotations p) - - let anns = p - ann_items = apiAnnItems anns - ann_eof = apiAnnEofPos anns - (l,_) = fst $ head $ Map.toList ann_items - annModule = getAnnotation anns l AnnModule - annLet = getAnnotation anns l AnnLet - - putStrLn (intercalate "\n" [showAnns ann_items,pp annModule,pp annLet,pp l, - "EOF: " ++ show ann_eof]) - -showAnns anns = "[\n" ++ (intercalate "\n" - $ map (\((s,k),v) - -> ("(AK " ++ pp s ++ " " ++ show k ++" = " ++ pp v ++ ")\n")) - $ Map.toList anns) - ++ "]\n" - -pp a = showPprUnsafe a diff --git a/testsuite/tests/ghc-api/annotations/annotations.stdout b/testsuite/tests/ghc-api/annotations/annotations.stdout deleted file mode 100644 index fbc028a56f..0000000000 --- a/testsuite/tests/ghc-api/annotations/annotations.stdout +++ /dev/null @@ -1,86 +0,0 @@ -[ -(AK AnnotationLet.hs:1:1 AnnCloseC = [AnnotationLet.hs:17:1]) - -(AK AnnotationLet.hs:1:1 AnnModule = [AnnotationLet.hs:2:1-6]) - -(AK AnnotationLet.hs:1:1 AnnOpenC = [AnnotationLet.hs:4:1]) - -(AK AnnotationLet.hs:1:1 AnnWhere = [AnnotationLet.hs:2:28-32]) - -(AK AnnotationLet.hs:2:22-26 AnnCloseP = [AnnotationLet.hs:2:26]) - -(AK AnnotationLet.hs:2:22-26 AnnOpenP = [AnnotationLet.hs:2:22]) - -(AK AnnotationLet.hs:5:1-32 AnnAs = [AnnotationLet.hs:5:28-29]) - -(AK AnnotationLet.hs:5:1-32 AnnImport = [AnnotationLet.hs:5:1-6]) - -(AK AnnotationLet.hs:5:1-32 AnnQualified = [AnnotationLet.hs:5:8-16]) - -(AK AnnotationLet.hs:5:1-32 AnnSemi = [AnnotationLet.hs:6:1]) - -(AK AnnotationLet.hs:(7,1)-(11,12) AnnEqual = [AnnotationLet.hs:7:5]) - -(AK AnnotationLet.hs:(7,1)-(11,12) AnnFunId = [AnnotationLet.hs:7:1-3]) - -(AK AnnotationLet.hs:(7,1)-(11,12) AnnSemi = [AnnotationLet.hs:12:1]) - -(AK AnnotationLet.hs:(7,7)-(11,12) AnnIn = [AnnotationLet.hs:11:7-8]) - -(AK AnnotationLet.hs:(7,7)-(11,12) AnnLet = [AnnotationLet.hs:7:7-9]) - -(AK AnnotationLet.hs:8:9-15 AnnEqual = [AnnotationLet.hs:8:13]) - -(AK AnnotationLet.hs:8:9-15 AnnFunId = [AnnotationLet.hs:8:9]) - -(AK AnnotationLet.hs:8:9-15 AnnSemi = [AnnotationLet.hs:9:9]) - -(AK AnnotationLet.hs:9:9-15 AnnEqual = [AnnotationLet.hs:9:13]) - -(AK AnnotationLet.hs:9:9-15 AnnFunId = [AnnotationLet.hs:9:9]) - -(AK AnnotationLet.hs:9:9-15 AnnSemi = [AnnotationLet.hs:10:9]) - -(AK AnnotationLet.hs:10:9-13 AnnEqual = [AnnotationLet.hs:10:11]) - -(AK AnnotationLet.hs:10:9-13 AnnFunId = [AnnotationLet.hs:10:9]) - -(AK AnnotationLet.hs:13:1-10 AnnInfix = [AnnotationLet.hs:13:1-6]) - -(AK AnnotationLet.hs:13:1-10 AnnSemi = [AnnotationLet.hs:14:1]) - -(AK AnnotationLet.hs:13:1-10 AnnVal = [AnnotationLet.hs:13:8]) - -(AK AnnotationLet.hs:15:1-40 AnnCloseP = [AnnotationLet.hs:15:14, AnnotationLet.hs:15:13]) - -(AK AnnotationLet.hs:15:1-40 AnnData = [AnnotationLet.hs:15:1-4]) - -(AK AnnotationLet.hs:15:1-40 AnnEqual = [AnnotationLet.hs:15:18]) - -(AK AnnotationLet.hs:15:1-40 AnnOpenP = [AnnotationLet.hs:15:6, AnnotationLet.hs:15:7]) - -(AK AnnotationLet.hs:15:1-40 AnnSemi = [AnnotationLet.hs:16:1]) - -(AK AnnotationLet.hs:15:6-14 AnnCloseP = [AnnotationLet.hs:15:14]) - -(AK AnnotationLet.hs:15:6-14 AnnOpenP = [AnnotationLet.hs:15:6]) - -(AK AnnotationLet.hs:15:7-13 AnnCloseP = [AnnotationLet.hs:15:13]) - -(AK AnnotationLet.hs:15:7-13 AnnOpenP = [AnnotationLet.hs:15:7]) - -(AK AnnotationLet.hs:15:20-28 AnnVbar = [AnnotationLet.hs:15:30]) - -(AK AnnotationLet.hs:15:24-28 AnnCloseP = [AnnotationLet.hs:15:28]) - -(AK AnnotationLet.hs:15:24-28 AnnOpenP = [AnnotationLet.hs:15:24]) - -(AK AnnotationLet.hs:15:36-40 AnnCloseP = [AnnotationLet.hs:15:40]) - -(AK AnnotationLet.hs:15:36-40 AnnOpenP = [AnnotationLet.hs:15:36]) -] - -[AnnotationLet.hs:2:1-6] -[] -AnnotationLet.hs:1:1 -EOF: Just SrcSpanPoint "./AnnotationLet.hs" 18 1 diff --git a/testsuite/tests/ghc-api/annotations/annotations.stdout-mingw32 b/testsuite/tests/ghc-api/annotations/annotations.stdout-mingw32 deleted file mode 100644 index 56f11f7f65..0000000000 --- a/testsuite/tests/ghc-api/annotations/annotations.stdout-mingw32 +++ /dev/null @@ -1,86 +0,0 @@ -[ -(AK AnnotationLet.hs:1:1 AnnCloseC = [AnnotationLet.hs:17:1]) - -(AK AnnotationLet.hs:1:1 AnnModule = [AnnotationLet.hs:2:1-6]) - -(AK AnnotationLet.hs:1:1 AnnOpenC = [AnnotationLet.hs:4:1]) - -(AK AnnotationLet.hs:1:1 AnnWhere = [AnnotationLet.hs:2:28-32]) - -(AK AnnotationLet.hs:2:22-26 AnnCloseP = [AnnotationLet.hs:2:26]) - -(AK AnnotationLet.hs:2:22-26 AnnOpenP = [AnnotationLet.hs:2:22]) - -(AK AnnotationLet.hs:5:1-32 AnnAs = [AnnotationLet.hs:5:28-29]) - -(AK AnnotationLet.hs:5:1-32 AnnImport = [AnnotationLet.hs:5:1-6]) - -(AK AnnotationLet.hs:5:1-32 AnnQualified = [AnnotationLet.hs:5:8-16]) - -(AK AnnotationLet.hs:5:1-32 AnnSemi = [AnnotationLet.hs:6:1]) - -(AK AnnotationLet.hs:(7,1)-(11,12) AnnEqual = [AnnotationLet.hs:7:5]) - -(AK AnnotationLet.hs:(7,1)-(11,12) AnnFunId = [AnnotationLet.hs:7:1-3]) - -(AK AnnotationLet.hs:(7,1)-(11,12) AnnSemi = [AnnotationLet.hs:12:1]) - -(AK AnnotationLet.hs:(7,7)-(11,12) AnnIn = [AnnotationLet.hs:11:7-8]) - -(AK AnnotationLet.hs:(7,7)-(11,12) AnnLet = [AnnotationLet.hs:7:7-9]) - -(AK AnnotationLet.hs:8:9-15 AnnEqual = [AnnotationLet.hs:8:13]) - -(AK AnnotationLet.hs:8:9-15 AnnFunId = [AnnotationLet.hs:8:9]) - -(AK AnnotationLet.hs:8:9-15 AnnSemi = [AnnotationLet.hs:9:9]) - -(AK AnnotationLet.hs:9:9-15 AnnEqual = [AnnotationLet.hs:9:13]) - -(AK AnnotationLet.hs:9:9-15 AnnFunId = [AnnotationLet.hs:9:9]) - -(AK AnnotationLet.hs:9:9-15 AnnSemi = [AnnotationLet.hs:10:9]) - -(AK AnnotationLet.hs:10:9-13 AnnEqual = [AnnotationLet.hs:10:11]) - -(AK AnnotationLet.hs:10:9-13 AnnFunId = [AnnotationLet.hs:10:9]) - -(AK AnnotationLet.hs:13:1-10 AnnInfix = [AnnotationLet.hs:13:1-6]) - -(AK AnnotationLet.hs:13:1-10 AnnSemi = [AnnotationLet.hs:14:1]) - -(AK AnnotationLet.hs:13:1-10 AnnVal = [AnnotationLet.hs:13:8]) - -(AK AnnotationLet.hs:15:1-40 AnnCloseP = [AnnotationLet.hs:15:14, AnnotationLet.hs:15:13]) - -(AK AnnotationLet.hs:15:1-40 AnnData = [AnnotationLet.hs:15:1-4]) - -(AK AnnotationLet.hs:15:1-40 AnnEqual = [AnnotationLet.hs:15:18]) - -(AK AnnotationLet.hs:15:1-40 AnnOpenP = [AnnotationLet.hs:15:6, AnnotationLet.hs:15:7]) - -(AK AnnotationLet.hs:15:1-40 AnnSemi = [AnnotationLet.hs:16:1]) - -(AK AnnotationLet.hs:15:6-14 AnnCloseP = [AnnotationLet.hs:15:14]) - -(AK AnnotationLet.hs:15:6-14 AnnOpenP = [AnnotationLet.hs:15:6]) - -(AK AnnotationLet.hs:15:7-13 AnnCloseP = [AnnotationLet.hs:15:13]) - -(AK AnnotationLet.hs:15:7-13 AnnOpenP = [AnnotationLet.hs:15:7]) - -(AK AnnotationLet.hs:15:20-28 AnnVbar = [AnnotationLet.hs:15:30]) - -(AK AnnotationLet.hs:15:24-28 AnnCloseP = [AnnotationLet.hs:15:28]) - -(AK AnnotationLet.hs:15:24-28 AnnOpenP = [AnnotationLet.hs:15:24]) - -(AK AnnotationLet.hs:15:36-40 AnnCloseP = [AnnotationLet.hs:15:40]) - -(AK AnnotationLet.hs:15:36-40 AnnOpenP = [AnnotationLet.hs:15:36]) -] - -[AnnotationLet.hs:2:1-6] -[] -AnnotationLet.hs:1:1 -EOF: Just SrcSpanPoint ".\\AnnotationLet.hs" 18 1 diff --git a/testsuite/tests/ghc-api/annotations/boolFormula.stdout b/testsuite/tests/ghc-api/annotations/boolFormula.stdout deleted file mode 100644 index 3c425811b4..0000000000 --- a/testsuite/tests/ghc-api/annotations/boolFormula.stdout +++ /dev/null @@ -1,153 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((TestBoolFormula.hs:1:1,AnnModule), [TestBoolFormula.hs:1:1-6]), -((TestBoolFormula.hs:1:1,AnnWhere), [TestBoolFormula.hs:1:24-28]), -((TestBoolFormula.hs:(3,1)-(19,9),AnnClass), [TestBoolFormula.hs:3:1-5]), -((TestBoolFormula.hs:(3,1)-(19,9),AnnSemi), [TestBoolFormula.hs:21:1]), -((TestBoolFormula.hs:(3,1)-(19,9),AnnWhere), [TestBoolFormula.hs:3:17-21]), -((TestBoolFormula.hs:4:5-25,AnnDcolon), [TestBoolFormula.hs:4:9-10]), -((TestBoolFormula.hs:4:5-25,AnnSemi), [TestBoolFormula.hs:5:5]), -((TestBoolFormula.hs:4:12,AnnRarrow), [TestBoolFormula.hs:4:14-15]), -((TestBoolFormula.hs:4:12-25,AnnRarrow), [TestBoolFormula.hs:4:14-15]), -((TestBoolFormula.hs:4:17,AnnRarrow), [TestBoolFormula.hs:4:19-20]), -((TestBoolFormula.hs:4:17-25,AnnRarrow), [TestBoolFormula.hs:4:19-20]), -((TestBoolFormula.hs:5:5-19,AnnEqual), [TestBoolFormula.hs:5:9]), -((TestBoolFormula.hs:5:5-19,AnnFunId), [TestBoolFormula.hs:5:5-7]), -((TestBoolFormula.hs:5:5-19,AnnSemi), [TestBoolFormula.hs:6:5]), -((TestBoolFormula.hs:6:5-25,AnnDcolon), [TestBoolFormula.hs:6:9-10]), -((TestBoolFormula.hs:6:5-25,AnnSemi), [TestBoolFormula.hs:7:5]), -((TestBoolFormula.hs:6:12,AnnRarrow), [TestBoolFormula.hs:6:14-15]), -((TestBoolFormula.hs:6:12-25,AnnRarrow), [TestBoolFormula.hs:6:14-15]), -((TestBoolFormula.hs:6:17,AnnRarrow), [TestBoolFormula.hs:6:19-20]), -((TestBoolFormula.hs:6:17-25,AnnRarrow), [TestBoolFormula.hs:6:19-20]), -((TestBoolFormula.hs:7:5-19,AnnEqual), [TestBoolFormula.hs:7:9]), -((TestBoolFormula.hs:7:5-19,AnnFunId), [TestBoolFormula.hs:7:5-7]), -((TestBoolFormula.hs:7:5-19,AnnSemi), [TestBoolFormula.hs:8:5]), -((TestBoolFormula.hs:8:5-25,AnnDcolon), [TestBoolFormula.hs:8:9-10]), -((TestBoolFormula.hs:8:5-25,AnnSemi), [TestBoolFormula.hs:9:5]), -((TestBoolFormula.hs:8:12,AnnRarrow), [TestBoolFormula.hs:8:14-15]), -((TestBoolFormula.hs:8:12-25,AnnRarrow), [TestBoolFormula.hs:8:14-15]), -((TestBoolFormula.hs:8:17,AnnRarrow), [TestBoolFormula.hs:8:19-20]), -((TestBoolFormula.hs:8:17-25,AnnRarrow), [TestBoolFormula.hs:8:19-20]), -((TestBoolFormula.hs:9:5-19,AnnEqual), [TestBoolFormula.hs:9:9]), -((TestBoolFormula.hs:9:5-19,AnnFunId), [TestBoolFormula.hs:9:5-7]), -((TestBoolFormula.hs:9:5-19,AnnSemi), [TestBoolFormula.hs:10:5]), -((TestBoolFormula.hs:10:5-25,AnnDcolon), [TestBoolFormula.hs:10:9-10]), -((TestBoolFormula.hs:10:5-25,AnnSemi), [TestBoolFormula.hs:11:5]), -((TestBoolFormula.hs:10:12,AnnRarrow), [TestBoolFormula.hs:10:14-15]), -((TestBoolFormula.hs:10:12-25,AnnRarrow), [TestBoolFormula.hs:10:14-15]), -((TestBoolFormula.hs:10:17,AnnRarrow), [TestBoolFormula.hs:10:19-20]), -((TestBoolFormula.hs:10:17-25,AnnRarrow), [TestBoolFormula.hs:10:19-20]), -((TestBoolFormula.hs:11:5-19,AnnEqual), [TestBoolFormula.hs:11:9]), -((TestBoolFormula.hs:11:5-19,AnnFunId), [TestBoolFormula.hs:11:5-7]), -((TestBoolFormula.hs:11:5-19,AnnSemi), [TestBoolFormula.hs:12:5]), -((TestBoolFormula.hs:12:5-25,AnnDcolon), [TestBoolFormula.hs:12:9-10]), -((TestBoolFormula.hs:12:5-25,AnnSemi), [TestBoolFormula.hs:13:5]), -((TestBoolFormula.hs:12:12,AnnRarrow), [TestBoolFormula.hs:12:14-15]), -((TestBoolFormula.hs:12:12-25,AnnRarrow), [TestBoolFormula.hs:12:14-15]), -((TestBoolFormula.hs:12:17,AnnRarrow), [TestBoolFormula.hs:12:19-20]), -((TestBoolFormula.hs:12:17-25,AnnRarrow), [TestBoolFormula.hs:12:19-20]), -((TestBoolFormula.hs:13:5-19,AnnEqual), [TestBoolFormula.hs:13:9]), -((TestBoolFormula.hs:13:5-19,AnnFunId), [TestBoolFormula.hs:13:5-7]), -((TestBoolFormula.hs:13:5-19,AnnSemi), [TestBoolFormula.hs:14:5]), -((TestBoolFormula.hs:14:5-25,AnnDcolon), [TestBoolFormula.hs:14:9-10]), -((TestBoolFormula.hs:14:5-25,AnnSemi), [TestBoolFormula.hs:15:5]), -((TestBoolFormula.hs:14:12,AnnRarrow), [TestBoolFormula.hs:14:14-15]), -((TestBoolFormula.hs:14:12-25,AnnRarrow), [TestBoolFormula.hs:14:14-15]), -((TestBoolFormula.hs:14:17,AnnRarrow), [TestBoolFormula.hs:14:19-20]), -((TestBoolFormula.hs:14:17-25,AnnRarrow), [TestBoolFormula.hs:14:19-20]), -((TestBoolFormula.hs:15:5-19,AnnEqual), [TestBoolFormula.hs:15:9]), -((TestBoolFormula.hs:15:5-19,AnnFunId), [TestBoolFormula.hs:15:5-7]), -((TestBoolFormula.hs:15:5-19,AnnSemi), [TestBoolFormula.hs:16:5]), -((TestBoolFormula.hs:(16,5)-(19,9),AnnClose), [TestBoolFormula.hs:19:7-9]), -((TestBoolFormula.hs:(16,5)-(19,9),AnnOpen), [TestBoolFormula.hs:16:5-15]), -((TestBoolFormula.hs:16:18-23,AnnCloseP), [TestBoolFormula.hs:16:23]), -((TestBoolFormula.hs:16:18-23,AnnOpenP), [TestBoolFormula.hs:16:18]), -((TestBoolFormula.hs:16:18-23,AnnVbar), [TestBoolFormula.hs:17:16]), -((TestBoolFormula.hs:17:18-31,AnnCloseP), [TestBoolFormula.hs:17:31]), -((TestBoolFormula.hs:17:18-31,AnnOpenP), [TestBoolFormula.hs:17:18]), -((TestBoolFormula.hs:17:18-31,AnnVbar), [TestBoolFormula.hs:18:16]), -((TestBoolFormula.hs:17:20-22,AnnComma), [TestBoolFormula.hs:17:26]), -((TestBoolFormula.hs:18:18-38,AnnCloseP), [TestBoolFormula.hs:18:38]), -((TestBoolFormula.hs:18:18-38,AnnOpenP), [TestBoolFormula.hs:18:18]), -((TestBoolFormula.hs:18:19-31,AnnCloseP), [TestBoolFormula.hs:18:31]), -((TestBoolFormula.hs:18:19-31,AnnComma), [TestBoolFormula.hs:18:33]), -((TestBoolFormula.hs:18:19-31,AnnOpenP), [TestBoolFormula.hs:18:19]), -((TestBoolFormula.hs:18:20-22,AnnVbar), [TestBoolFormula.hs:18:25]), -((TestBoolFormula.hs:(21,1)-(30,47),AnnClass), [TestBoolFormula.hs:21:1-5]), -((TestBoolFormula.hs:(21,1)-(30,47),AnnSemi), [TestBoolFormula.hs:32:1]), -((TestBoolFormula.hs:(21,1)-(30,47),AnnWhere), [TestBoolFormula.hs:21:13-17]), -((TestBoolFormula.hs:22:5-25,AnnDcolon), [TestBoolFormula.hs:22:9-10]), -((TestBoolFormula.hs:22:5-25,AnnSemi), [TestBoolFormula.hs:23:5]), -((TestBoolFormula.hs:22:12,AnnRarrow), [TestBoolFormula.hs:22:14-15]), -((TestBoolFormula.hs:22:12-25,AnnRarrow), [TestBoolFormula.hs:22:14-15]), -((TestBoolFormula.hs:22:17,AnnRarrow), [TestBoolFormula.hs:22:19-20]), -((TestBoolFormula.hs:22:17-25,AnnRarrow), [TestBoolFormula.hs:22:19-20]), -((TestBoolFormula.hs:23:5-25,AnnDcolon), [TestBoolFormula.hs:23:9-10]), -((TestBoolFormula.hs:23:5-25,AnnSemi), [TestBoolFormula.hs:24:5]), -((TestBoolFormula.hs:23:12,AnnRarrow), [TestBoolFormula.hs:23:14-15]), -((TestBoolFormula.hs:23:12-25,AnnRarrow), [TestBoolFormula.hs:23:14-15]), -((TestBoolFormula.hs:23:17,AnnRarrow), [TestBoolFormula.hs:23:19-20]), -((TestBoolFormula.hs:23:17-25,AnnRarrow), [TestBoolFormula.hs:23:19-20]), -((TestBoolFormula.hs:24:5-25,AnnDcolon), [TestBoolFormula.hs:24:9-10]), -((TestBoolFormula.hs:24:5-25,AnnSemi), [TestBoolFormula.hs:25:5]), -((TestBoolFormula.hs:24:12,AnnRarrow), [TestBoolFormula.hs:24:14-15]), -((TestBoolFormula.hs:24:12-25,AnnRarrow), [TestBoolFormula.hs:24:14-15]), -((TestBoolFormula.hs:24:17,AnnRarrow), [TestBoolFormula.hs:24:19-20]), -((TestBoolFormula.hs:24:17-25,AnnRarrow), [TestBoolFormula.hs:24:19-20]), -((TestBoolFormula.hs:25:5-19,AnnEqual), [TestBoolFormula.hs:25:9]), -((TestBoolFormula.hs:25:5-19,AnnFunId), [TestBoolFormula.hs:25:5-7]), -((TestBoolFormula.hs:25:5-19,AnnSemi), [TestBoolFormula.hs:26:5]), -((TestBoolFormula.hs:26:5-25,AnnDcolon), [TestBoolFormula.hs:26:9-10]), -((TestBoolFormula.hs:26:5-25,AnnSemi), [TestBoolFormula.hs:27:5]), -((TestBoolFormula.hs:26:12,AnnRarrow), [TestBoolFormula.hs:26:14-15]), -((TestBoolFormula.hs:26:12-25,AnnRarrow), [TestBoolFormula.hs:26:14-15]), -((TestBoolFormula.hs:26:17,AnnRarrow), [TestBoolFormula.hs:26:19-20]), -((TestBoolFormula.hs:26:17-25,AnnRarrow), [TestBoolFormula.hs:26:19-20]), -((TestBoolFormula.hs:27:5-19,AnnEqual), [TestBoolFormula.hs:27:9]), -((TestBoolFormula.hs:27:5-19,AnnFunId), [TestBoolFormula.hs:27:5-7]), -((TestBoolFormula.hs:27:5-19,AnnSemi), [TestBoolFormula.hs:28:5]), -((TestBoolFormula.hs:28:5-26,AnnDcolon), [TestBoolFormula.hs:28:10-11]), -((TestBoolFormula.hs:28:5-26,AnnSemi), [TestBoolFormula.hs:29:5]), -((TestBoolFormula.hs:28:13,AnnRarrow), [TestBoolFormula.hs:28:15-16]), -((TestBoolFormula.hs:28:13-26,AnnRarrow), [TestBoolFormula.hs:28:15-16]), -((TestBoolFormula.hs:28:18,AnnRarrow), [TestBoolFormula.hs:28:20-21]), -((TestBoolFormula.hs:28:18-26,AnnRarrow), [TestBoolFormula.hs:28:20-21]), -((TestBoolFormula.hs:29:5-20,AnnEqual), [TestBoolFormula.hs:29:10]), -((TestBoolFormula.hs:29:5-20,AnnFunId), [TestBoolFormula.hs:29:5-8]), -((TestBoolFormula.hs:29:5-20,AnnSemi), [TestBoolFormula.hs:30:5]), -((TestBoolFormula.hs:30:5-47,AnnClose), [TestBoolFormula.hs:30:45-47]), -((TestBoolFormula.hs:30:5-47,AnnOpen), [TestBoolFormula.hs:30:5-15]), -((TestBoolFormula.hs:30:17-19,AnnComma), [TestBoolFormula.hs:30:20]), -((TestBoolFormula.hs:30:22-43,AnnCloseP), [TestBoolFormula.hs:30:43]), -((TestBoolFormula.hs:30:22-43,AnnOpenP), [TestBoolFormula.hs:30:22]), -((TestBoolFormula.hs:30:23-25,AnnComma), [TestBoolFormula.hs:30:26]), -((TestBoolFormula.hs:30:23-30,AnnVbar), [TestBoolFormula.hs:30:32]), -((TestBoolFormula.hs:30:34-36,AnnComma), [TestBoolFormula.hs:30:37]), -((TestBoolFormula.hs:(32,1)-(36,19),AnnInstance), [TestBoolFormula.hs:32:1-8]), -((TestBoolFormula.hs:(32,1)-(36,19),AnnSemi), [TestBoolFormula.hs:37:1]), -((TestBoolFormula.hs:(32,1)-(36,19),AnnWhere), [TestBoolFormula.hs:32:18-22]), -((TestBoolFormula.hs:33:5-19,AnnEqual), [TestBoolFormula.hs:33:9]), -((TestBoolFormula.hs:33:5-19,AnnFunId), [TestBoolFormula.hs:33:5-7]), -((TestBoolFormula.hs:33:5-19,AnnSemi), [TestBoolFormula.hs:34:5]), -((TestBoolFormula.hs:34:5-19,AnnEqual), [TestBoolFormula.hs:34:9]), -((TestBoolFormula.hs:34:5-19,AnnFunId), [TestBoolFormula.hs:34:5-7]), -((TestBoolFormula.hs:34:5-19,AnnSemi), [TestBoolFormula.hs:35:5]), -((TestBoolFormula.hs:35:5-20,AnnEqual), [TestBoolFormula.hs:35:10]), -((TestBoolFormula.hs:35:5-20,AnnFunId), [TestBoolFormula.hs:35:5-8]), -((TestBoolFormula.hs:35:5-20,AnnSemi), [TestBoolFormula.hs:36:5]), -((TestBoolFormula.hs:36:5-19,AnnEqual), [TestBoolFormula.hs:36:9]), -((TestBoolFormula.hs:36:5-19,AnnFunId), [TestBoolFormula.hs:36:5-7]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "TestBoolFormula.hs" 37 1 diff --git a/testsuite/tests/ghc-api/annotations/comments.hs b/testsuite/tests/ghc-api/annotations/comments.hs index 8497c87eda..d8c68594d0 100644 --- a/testsuite/tests/ghc-api/annotations/comments.hs +++ b/testsuite/tests/ghc-api/annotations/comments.hs @@ -50,7 +50,8 @@ testOneFile libdir fileName useHaddock = do return (pm_annotations p) let anns = p - ann_comments = apiAnnComments anns + -- ann_comments = apiAnnComments anns + ann_comments = Map.empty ann_rcomments = apiAnnRogueComments anns comments = map (\(s,v) -> (RealSrcSpan s Nothing, v)) (Map.toList ann_comments) diff --git a/testsuite/tests/ghc-api/annotations/comments.stdout b/testsuite/tests/ghc-api/annotations/comments.stdout index e5ff216fb0..1b7ed7061a 100644 --- a/testsuite/tests/ghc-api/annotations/comments.stdout +++ b/testsuite/tests/ghc-api/annotations/comments.stdout @@ -1,24 +1,17 @@ [ -( CommentsTest.hs:(12,7)-(15,14) = -[(CommentsTest.hs:14:15-24,AnnLineComment "-- value 2")]) - ( <no location info> = -[(CommentsTest.hs:11:1-33,AnnDocCommentNext " The function @foo@ does blah"), +[(Anchor CommentsTest.hs:11:1-33 UnchangedAnchor,AnnComment {ac_tok = AnnDocCommentNext " The function @foo@ does blah", ac_prior_tok = SrcSpanOneLine "./CommentsTest.hs" 9 31 33}), -(CommentsTest.hs:(3,1)-(7,2),AnnBlockComment "{-\nAn opening comment\n {- with a nested one -}\n {-# nested PRAGMA #-}\n-}"), +(Anchor CommentsTest.hs:(3,1)-(7,2) UnchangedAnchor,AnnComment {ac_tok = AnnBlockComment "{-\nAn opening comment\n {- with a nested one -}\n {-# nested PRAGMA #-}\n-}", ac_prior_tok = SrcSpanOneLine "./CommentsTest.hs" 2 27 32}), -(CommentsTest.hs:1:1-31,AnnBlockComment "{-# LANGUAGE DeriveFoldable #-}")]) +(Anchor CommentsTest.hs:1:1-31 UnchangedAnchor,AnnComment {ac_tok = AnnBlockComment "{-# LANGUAGE DeriveFoldable #-}", ac_prior_tok = SrcSpanPoint "./CommentsTest.hs" 1 1})]) ] [ -( CommentsTest.hs:(12,7)-(15,14) = -[(CommentsTest.hs:14:15-24,AnnLineComment "-- value 2")]) - ( <no location info> = -[(CommentsTest.hs:11:1-33,AnnLineComment "-- | The function @foo@ does blah"), +[(Anchor CommentsTest.hs:11:1-33 UnchangedAnchor,AnnComment {ac_tok = AnnLineComment "-- | The function @foo@ does blah", ac_prior_tok = SrcSpanOneLine "./CommentsTest.hs" 9 31 33}), -(CommentsTest.hs:(3,1)-(7,2),AnnBlockComment "{-\nAn opening comment\n {- with a nested one -}\n {-# nested PRAGMA #-}\n-}"), +(Anchor CommentsTest.hs:(3,1)-(7,2) UnchangedAnchor,AnnComment {ac_tok = AnnBlockComment "{-\nAn opening comment\n {- with a nested one -}\n {-# nested PRAGMA #-}\n-}", ac_prior_tok = SrcSpanOneLine "./CommentsTest.hs" 2 27 32}), -(CommentsTest.hs:1:1-31,AnnBlockComment "{-# LANGUAGE DeriveFoldable #-}")]) +(Anchor CommentsTest.hs:1:1-31 UnchangedAnchor,AnnComment {ac_tok = AnnBlockComment "{-# LANGUAGE DeriveFoldable #-}", ac_prior_tok = SrcSpanPoint "./CommentsTest.hs" 1 1})]) ] - diff --git a/testsuite/tests/ghc-api/annotations/listcomps.hs b/testsuite/tests/ghc-api/annotations/listcomps.hs deleted file mode 100644 index 115aef6527..0000000000 --- a/testsuite/tests/ghc-api/annotations/listcomps.hs +++ /dev/null @@ -1,112 +0,0 @@ -{-# LANGUAGE RankNTypes #-} - --- This program must be called with GHC's libdir as the single command line --- argument. -module Main where - --- import Data.Generics -import Data.Data -import Data.List (intercalate) -import System.IO -import GHC -import GHC.Types.Basic -import GHC.Driver.Session -import GHC.Driver.Ppr -import GHC.Utils.Monad -import GHC.Utils.Outputable -import GHC.Parser.Annotation -import GHC.Data.Bag (filterBag,isEmptyBag) -import System.Directory (removeFile) -import System.Environment( getArgs ) -import System.Exit -import qualified Data.Map as Map -import qualified Data.Set as Set -import Data.Dynamic ( fromDynamic,Dynamic ) - -main::IO() -main = do - [libdir] <- getArgs - testOneFile libdir "ListComprehensions" - exitSuccess - -testOneFile libdir fileName = do - p <- runGhc (Just libdir) $ do - dflags <- getSessionDynFlags - setSessionDynFlags dflags - let mn =mkModuleName fileName - addTarget Target { targetId = TargetModule mn - , targetAllowObjCode = True - , targetContents = Nothing } - load LoadAllTargets - modSum <- getModSummary mn - p <- parseModule modSum - t <- typecheckModule p - d <- desugarModule t - l <- loadModule d - return p - - let anns = pm_annotations p - ann_items = apiAnnItems anns - ann_eof = apiAnnEofPos anns - let spans = Set.fromList $ getAllSrcSpans (pm_parsed_source p) - - putStrLn (pp spans) - putStrLn "--------------------------------" - putStrLn (intercalate "\n" [showAnns ann_items,"EOF: " ++ show ann_eof]) - - where - getAnnSrcSpans :: ApiAnns -> [(RealSrcSpan,(ApiAnnKey,[RealSrcSpan]))] - getAnnSrcSpans anns = map (\a@((ss,_),_) -> (ss,a)) $ Map.toList (apiAnnItems anns) - - getAllSrcSpans :: (Data t) => t -> [RealSrcSpan] - getAllSrcSpans ast = everything (++) ([] `mkQ` getSrcSpan) ast - where - getSrcSpan :: SrcSpan -> [RealSrcSpan] - getSrcSpan (RealSrcSpan ss _) = [ss] - getSrcSpan (UnhelpfulSpan _) = [] - -showAnns anns = "[\n" ++ (intercalate "\n" - $ map (\((s,k),v) - -> ("(AK " ++ pp s ++ " " ++ show k ++" = " ++ pp v ++ ")\n")) - $ Map.toList anns) - ++ "]\n" - -pp a = showPprUnsafe a - - --- --------------------------------------------------------------------- - --- Copied from syb for the test - - --- | Generic queries of type \"r\", --- i.e., take any \"a\" and return an \"r\" --- -type GenericQ r = forall a. Data a => a -> r - - --- | Make a generic query; --- start from a type-specific case; --- return a constant otherwise --- -mkQ :: ( Typeable a - , Typeable b - ) - => r - -> (b -> r) - -> a - -> r -(r `mkQ` br) a = case cast a of - Just b -> br b - Nothing -> r - - - --- | Summarise all nodes in top-down, left-to-right order -everything :: (r -> r -> r) -> GenericQ r -> GenericQ r - --- Apply f to x to summarise top-level node; --- use gmapQ to recurse into immediate subterms; --- use ordinary foldl to reduce list of intermediate results - -everything k f x = foldl k (f x) (gmapQ (everything k f) x) diff --git a/testsuite/tests/ghc-api/annotations/listcomps.stdout b/testsuite/tests/ghc-api/annotations/listcomps.stdout deleted file mode 100644 index 169a1f6634..0000000000 --- a/testsuite/tests/ghc-api/annotations/listcomps.stdout +++ /dev/null @@ -1,160 +0,0 @@ -{ListComprehensions.hs:1:1, ListComprehensions.hs:6:8-25, - ListComprehensions.hs:10:1-15, ListComprehensions.hs:10:8-15, - ListComprehensions.hs:11:1-30, ListComprehensions.hs:11:18-25, - ListComprehensions.hs:11:30, ListComprehensions.hs:12:1-27, - ListComprehensions.hs:12:8-15, ListComprehensions.hs:12:17-27, - ListComprehensions.hs:12:18-26, ListComprehensions.hs:13:1-25, - ListComprehensions.hs:13:8-16, ListComprehensions.hs:13:18-25, - ListComprehensions.hs:13:19-24, ListComprehensions.hs:17:1-16, - ListComprehensions.hs:17:1-25, ListComprehensions.hs:17:21-25, - ListComprehensions.hs:17:22-24, ListComprehensions.hs:18:1-16, - ListComprehensions.hs:(18,1)-(22,20), - ListComprehensions.hs:(18,18)-(22,20), - ListComprehensions.hs:(18,20)-(22,20), ListComprehensions.hs:18:22, - ListComprehensions.hs:18:22-26, ListComprehensions.hs:18:22-30, - ListComprehensions.hs:(18,22)-(21,34), ListComprehensions.hs:18:24, - ListComprehensions.hs:18:26, ListComprehensions.hs:18:28, - ListComprehensions.hs:18:30, ListComprehensions.hs:19:22, - ListComprehensions.hs:19:22-33, - ListComprehensions.hs:(19,22)-(21,34), - ListComprehensions.hs:19:27-33, ListComprehensions.hs:19:28, - ListComprehensions.hs:19:31-32, ListComprehensions.hs:20:22, - ListComprehensions.hs:20:22-34, ListComprehensions.hs:20:27-34, - ListComprehensions.hs:20:28-29, ListComprehensions.hs:20:32-33, - ListComprehensions.hs:21:22, ListComprehensions.hs:21:22-34, - ListComprehensions.hs:21:27-34, ListComprehensions.hs:21:28-29, - ListComprehensions.hs:21:32-33, ListComprehensions.hs:24:1-6, - ListComprehensions.hs:24:1-27, ListComprehensions.hs:24:11-15, - ListComprehensions.hs:24:11-27, ListComprehensions.hs:24:12-14, - ListComprehensions.hs:24:20-27, ListComprehensions.hs:24:21-26, - ListComprehensions.hs:25:1-6, ListComprehensions.hs:(25,1)-(28,14), - ListComprehensions.hs:25:8-10, - ListComprehensions.hs:(25,12)-(28,14), - ListComprehensions.hs:(25,14)-(28,14), - ListComprehensions.hs:25:16-20, - ListComprehensions.hs:(25,16)-(27,22), ListComprehensions.hs:26:16, - ListComprehensions.hs:26:16-23, - ListComprehensions.hs:(26,16)-(27,22), - ListComprehensions.hs:26:21-23, ListComprehensions.hs:27:21-22} --------------------------------- -[ -(AK ListComprehensions.hs:1:1 AnnModule = [ListComprehensions.hs:6:1-6]) - -(AK ListComprehensions.hs:1:1 AnnWhere = [ListComprehensions.hs:6:27-31]) - -(AK ListComprehensions.hs:10:1-15 AnnImport = [ListComprehensions.hs:10:1-6]) - -(AK ListComprehensions.hs:10:1-15 AnnSemi = [ListComprehensions.hs:11:1]) - -(AK ListComprehensions.hs:11:1-30 AnnAs = [ListComprehensions.hs:11:27-28]) - -(AK ListComprehensions.hs:11:1-30 AnnImport = [ListComprehensions.hs:11:1-6]) - -(AK ListComprehensions.hs:11:1-30 AnnQualified = [ListComprehensions.hs:11:8-16]) - -(AK ListComprehensions.hs:11:1-30 AnnSemi = [ListComprehensions.hs:12:1]) - -(AK ListComprehensions.hs:12:1-27 AnnImport = [ListComprehensions.hs:12:1-6]) - -(AK ListComprehensions.hs:12:1-27 AnnSemi = [ListComprehensions.hs:13:1]) - -(AK ListComprehensions.hs:12:17-27 AnnCloseP = [ListComprehensions.hs:12:27]) - -(AK ListComprehensions.hs:12:17-27 AnnOpenP = [ListComprehensions.hs:12:17]) - -(AK ListComprehensions.hs:13:1-25 AnnImport = [ListComprehensions.hs:13:1-6]) - -(AK ListComprehensions.hs:13:1-25 AnnSemi = [ListComprehensions.hs:17:1]) - -(AK ListComprehensions.hs:13:18-25 AnnCloseP = [ListComprehensions.hs:13:25]) - -(AK ListComprehensions.hs:13:18-25 AnnOpenP = [ListComprehensions.hs:13:18]) - -(AK ListComprehensions.hs:17:1-25 AnnDcolon = [ListComprehensions.hs:17:18-19]) - -(AK ListComprehensions.hs:17:1-25 AnnSemi = [ListComprehensions.hs:18:1]) - -(AK ListComprehensions.hs:17:21-25 AnnCloseS = [ListComprehensions.hs:17:25]) - -(AK ListComprehensions.hs:17:21-25 AnnOpenS = [ListComprehensions.hs:17:21]) - -(AK ListComprehensions.hs:(18,1)-(22,20) AnnEqual = [ListComprehensions.hs:18:18]) - -(AK ListComprehensions.hs:(18,1)-(22,20) AnnFunId = [ListComprehensions.hs:18:1-16]) - -(AK ListComprehensions.hs:(18,1)-(22,20) AnnSemi = [ListComprehensions.hs:24:1]) - -(AK ListComprehensions.hs:(18,20)-(22,20) AnnCloseS = [ListComprehensions.hs:22:20]) - -(AK ListComprehensions.hs:(18,20)-(22,20) AnnOpenS = [ListComprehensions.hs:18:20]) - -(AK ListComprehensions.hs:(18,20)-(22,20) AnnVbar = [ListComprehensions.hs:19:20]) - -(AK ListComprehensions.hs:18:22-26 AnnVal = [ListComprehensions.hs:18:24]) - -(AK ListComprehensions.hs:18:22-30 AnnVal = [ListComprehensions.hs:18:28]) - -(AK ListComprehensions.hs:19:22-33 AnnLarrow = [ListComprehensions.hs:19:24-25]) - -(AK ListComprehensions.hs:19:22-33 AnnVbar = [ListComprehensions.hs:20:20]) - -(AK ListComprehensions.hs:19:27-33 AnnCloseS = [ListComprehensions.hs:19:33]) - -(AK ListComprehensions.hs:19:27-33 AnnDotdot = [ListComprehensions.hs:19:29-30]) - -(AK ListComprehensions.hs:19:27-33 AnnOpenS = [ListComprehensions.hs:19:27]) - -(AK ListComprehensions.hs:20:22-34 AnnLarrow = [ListComprehensions.hs:20:24-25]) - -(AK ListComprehensions.hs:20:22-34 AnnVbar = [ListComprehensions.hs:21:20]) - -(AK ListComprehensions.hs:20:27-34 AnnCloseS = [ListComprehensions.hs:20:34]) - -(AK ListComprehensions.hs:20:27-34 AnnDotdot = [ListComprehensions.hs:20:30-31]) - -(AK ListComprehensions.hs:20:27-34 AnnOpenS = [ListComprehensions.hs:20:27]) - -(AK ListComprehensions.hs:21:22-34 AnnLarrow = [ListComprehensions.hs:21:24-25]) - -(AK ListComprehensions.hs:21:27-34 AnnCloseS = [ListComprehensions.hs:21:34]) - -(AK ListComprehensions.hs:21:27-34 AnnDotdot = [ListComprehensions.hs:21:30-31]) - -(AK ListComprehensions.hs:21:27-34 AnnOpenS = [ListComprehensions.hs:21:27]) - -(AK ListComprehensions.hs:24:1-27 AnnDcolon = [ListComprehensions.hs:24:8-9]) - -(AK ListComprehensions.hs:24:1-27 AnnSemi = [ListComprehensions.hs:25:1]) - -(AK ListComprehensions.hs:24:11-15 AnnCloseS = [ListComprehensions.hs:24:15]) - -(AK ListComprehensions.hs:24:11-15 AnnOpenS = [ListComprehensions.hs:24:11]) - -(AK ListComprehensions.hs:24:11-15 AnnRarrow = [ListComprehensions.hs:24:17-18]) - -(AK ListComprehensions.hs:24:11-27 AnnRarrow = [ListComprehensions.hs:24:17-18]) - -(AK ListComprehensions.hs:24:20-27 AnnCloseS = [ListComprehensions.hs:24:27]) - -(AK ListComprehensions.hs:24:20-27 AnnOpenS = [ListComprehensions.hs:24:20]) - -(AK ListComprehensions.hs:(25,1)-(28,14) AnnEqual = [ListComprehensions.hs:25:12]) - -(AK ListComprehensions.hs:(25,1)-(28,14) AnnFunId = [ListComprehensions.hs:25:1-6]) - -(AK ListComprehensions.hs:(25,1)-(28,14) AnnSemi = [ListComprehensions.hs:29:1]) - -(AK ListComprehensions.hs:(25,14)-(28,14) AnnCloseS = [ListComprehensions.hs:28:14]) - -(AK ListComprehensions.hs:(25,14)-(28,14) AnnOpenS = [ListComprehensions.hs:25:14]) - -(AK ListComprehensions.hs:(25,14)-(28,14) AnnVbar = [ListComprehensions.hs:26:14]) - -(AK ListComprehensions.hs:26:16-23 AnnComma = [ListComprehensions.hs:27:14]) - -(AK ListComprehensions.hs:26:16-23 AnnLarrow = [ListComprehensions.hs:26:18-19]) - -(AK ListComprehensions.hs:(26,16)-(27,22) AnnThen = [ListComprehensions.hs:27:16-19]) -] - -EOF: Just SrcSpanPoint "./ListComprehensions.hs" 29 1 diff --git a/testsuite/tests/ghc-api/annotations/listcomps.stdout-mingw32 b/testsuite/tests/ghc-api/annotations/listcomps.stdout-mingw32 deleted file mode 100644 index 3bb7f6ce2d..0000000000 --- a/testsuite/tests/ghc-api/annotations/listcomps.stdout-mingw32 +++ /dev/null @@ -1,160 +0,0 @@ -{ListComprehensions.hs:1:1, ListComprehensions.hs:6:8-25, - ListComprehensions.hs:10:1-15, ListComprehensions.hs:10:8-15, - ListComprehensions.hs:11:1-30, ListComprehensions.hs:11:18-25, - ListComprehensions.hs:11:30, ListComprehensions.hs:12:1-27, - ListComprehensions.hs:12:8-15, ListComprehensions.hs:12:17-27, - ListComprehensions.hs:12:18-26, ListComprehensions.hs:13:1-25, - ListComprehensions.hs:13:8-16, ListComprehensions.hs:13:18-25, - ListComprehensions.hs:13:19-24, ListComprehensions.hs:17:1-16, - ListComprehensions.hs:17:1-25, ListComprehensions.hs:17:21-25, - ListComprehensions.hs:17:22-24, ListComprehensions.hs:18:1-16, - ListComprehensions.hs:(18,1)-(22,20), - ListComprehensions.hs:(18,18)-(22,20), - ListComprehensions.hs:(18,20)-(22,20), ListComprehensions.hs:18:22, - ListComprehensions.hs:18:22-26, ListComprehensions.hs:18:22-30, - ListComprehensions.hs:(18,22)-(21,34), ListComprehensions.hs:18:24, - ListComprehensions.hs:18:26, ListComprehensions.hs:18:28, - ListComprehensions.hs:18:30, ListComprehensions.hs:19:22, - ListComprehensions.hs:19:22-33, - ListComprehensions.hs:(19,22)-(21,34), - ListComprehensions.hs:19:27-33, ListComprehensions.hs:19:28, - ListComprehensions.hs:19:31-32, ListComprehensions.hs:20:22, - ListComprehensions.hs:20:22-34, ListComprehensions.hs:20:27-34, - ListComprehensions.hs:20:28-29, ListComprehensions.hs:20:32-33, - ListComprehensions.hs:21:22, ListComprehensions.hs:21:22-34, - ListComprehensions.hs:21:27-34, ListComprehensions.hs:21:28-29, - ListComprehensions.hs:21:32-33, ListComprehensions.hs:24:1-6, - ListComprehensions.hs:24:1-27, ListComprehensions.hs:24:11-15, - ListComprehensions.hs:24:11-27, ListComprehensions.hs:24:12-14, - ListComprehensions.hs:24:20-27, ListComprehensions.hs:24:21-26, - ListComprehensions.hs:25:1-6, ListComprehensions.hs:(25,1)-(28,14), - ListComprehensions.hs:25:8-10, - ListComprehensions.hs:(25,12)-(28,14), - ListComprehensions.hs:(25,14)-(28,14), - ListComprehensions.hs:25:16-20, - ListComprehensions.hs:(25,16)-(27,22), ListComprehensions.hs:26:16, - ListComprehensions.hs:26:16-23, - ListComprehensions.hs:(26,16)-(27,22), - ListComprehensions.hs:26:21-23, ListComprehensions.hs:27:21-22} --------------------------------- -[ -(AK ListComprehensions.hs:1:1 AnnModule = [ListComprehensions.hs:6:1-6]) - -(AK ListComprehensions.hs:1:1 AnnWhere = [ListComprehensions.hs:6:27-31]) - -(AK ListComprehensions.hs:10:1-15 AnnImport = [ListComprehensions.hs:10:1-6]) - -(AK ListComprehensions.hs:10:1-15 AnnSemi = [ListComprehensions.hs:11:1]) - -(AK ListComprehensions.hs:11:1-30 AnnAs = [ListComprehensions.hs:11:27-28]) - -(AK ListComprehensions.hs:11:1-30 AnnImport = [ListComprehensions.hs:11:1-6]) - -(AK ListComprehensions.hs:11:1-30 AnnQualified = [ListComprehensions.hs:11:8-16]) - -(AK ListComprehensions.hs:11:1-30 AnnSemi = [ListComprehensions.hs:12:1]) - -(AK ListComprehensions.hs:12:1-27 AnnImport = [ListComprehensions.hs:12:1-6]) - -(AK ListComprehensions.hs:12:1-27 AnnSemi = [ListComprehensions.hs:13:1]) - -(AK ListComprehensions.hs:12:17-27 AnnCloseP = [ListComprehensions.hs:12:27]) - -(AK ListComprehensions.hs:12:17-27 AnnOpenP = [ListComprehensions.hs:12:17]) - -(AK ListComprehensions.hs:13:1-25 AnnImport = [ListComprehensions.hs:13:1-6]) - -(AK ListComprehensions.hs:13:1-25 AnnSemi = [ListComprehensions.hs:17:1]) - -(AK ListComprehensions.hs:13:18-25 AnnCloseP = [ListComprehensions.hs:13:25]) - -(AK ListComprehensions.hs:13:18-25 AnnOpenP = [ListComprehensions.hs:13:18]) - -(AK ListComprehensions.hs:17:1-25 AnnDcolon = [ListComprehensions.hs:17:18-19]) - -(AK ListComprehensions.hs:17:1-25 AnnSemi = [ListComprehensions.hs:18:1]) - -(AK ListComprehensions.hs:17:21-25 AnnCloseS = [ListComprehensions.hs:17:25]) - -(AK ListComprehensions.hs:17:21-25 AnnOpenS = [ListComprehensions.hs:17:21]) - -(AK ListComprehensions.hs:(18,1)-(22,20) AnnEqual = [ListComprehensions.hs:18:18]) - -(AK ListComprehensions.hs:(18,1)-(22,20) AnnFunId = [ListComprehensions.hs:18:1-16]) - -(AK ListComprehensions.hs:(18,1)-(22,20) AnnSemi = [ListComprehensions.hs:24:1]) - -(AK ListComprehensions.hs:(18,20)-(22,20) AnnCloseS = [ListComprehensions.hs:22:20]) - -(AK ListComprehensions.hs:(18,20)-(22,20) AnnOpenS = [ListComprehensions.hs:18:20]) - -(AK ListComprehensions.hs:(18,20)-(22,20) AnnVbar = [ListComprehensions.hs:19:20]) - -(AK ListComprehensions.hs:18:22-26 AnnVal = [ListComprehensions.hs:18:24]) - -(AK ListComprehensions.hs:18:22-30 AnnVal = [ListComprehensions.hs:18:28]) - -(AK ListComprehensions.hs:19:22-33 AnnLarrow = [ListComprehensions.hs:19:24-25]) - -(AK ListComprehensions.hs:19:22-33 AnnVbar = [ListComprehensions.hs:20:20]) - -(AK ListComprehensions.hs:19:27-33 AnnCloseS = [ListComprehensions.hs:19:33]) - -(AK ListComprehensions.hs:19:27-33 AnnDotdot = [ListComprehensions.hs:19:29-30]) - -(AK ListComprehensions.hs:19:27-33 AnnOpenS = [ListComprehensions.hs:19:27]) - -(AK ListComprehensions.hs:20:22-34 AnnLarrow = [ListComprehensions.hs:20:24-25]) - -(AK ListComprehensions.hs:20:22-34 AnnVbar = [ListComprehensions.hs:21:20]) - -(AK ListComprehensions.hs:20:27-34 AnnCloseS = [ListComprehensions.hs:20:34]) - -(AK ListComprehensions.hs:20:27-34 AnnDotdot = [ListComprehensions.hs:20:30-31]) - -(AK ListComprehensions.hs:20:27-34 AnnOpenS = [ListComprehensions.hs:20:27]) - -(AK ListComprehensions.hs:21:22-34 AnnLarrow = [ListComprehensions.hs:21:24-25]) - -(AK ListComprehensions.hs:21:27-34 AnnCloseS = [ListComprehensions.hs:21:34]) - -(AK ListComprehensions.hs:21:27-34 AnnDotdot = [ListComprehensions.hs:21:30-31]) - -(AK ListComprehensions.hs:21:27-34 AnnOpenS = [ListComprehensions.hs:21:27]) - -(AK ListComprehensions.hs:24:1-27 AnnDcolon = [ListComprehensions.hs:24:8-9]) - -(AK ListComprehensions.hs:24:1-27 AnnSemi = [ListComprehensions.hs:25:1]) - -(AK ListComprehensions.hs:24:11-15 AnnCloseS = [ListComprehensions.hs:24:15]) - -(AK ListComprehensions.hs:24:11-15 AnnOpenS = [ListComprehensions.hs:24:11]) - -(AK ListComprehensions.hs:24:11-15 AnnRarrow = [ListComprehensions.hs:24:17-18]) - -(AK ListComprehensions.hs:24:11-27 AnnRarrow = [ListComprehensions.hs:24:17-18]) - -(AK ListComprehensions.hs:24:20-27 AnnCloseS = [ListComprehensions.hs:24:27]) - -(AK ListComprehensions.hs:24:20-27 AnnOpenS = [ListComprehensions.hs:24:20]) - -(AK ListComprehensions.hs:(25,1)-(28,14) AnnEqual = [ListComprehensions.hs:25:12]) - -(AK ListComprehensions.hs:(25,1)-(28,14) AnnFunId = [ListComprehensions.hs:25:1-6]) - -(AK ListComprehensions.hs:(25,1)-(28,14) AnnSemi = [ListComprehensions.hs:29:1]) - -(AK ListComprehensions.hs:(25,14)-(28,14) AnnCloseS = [ListComprehensions.hs:28:14]) - -(AK ListComprehensions.hs:(25,14)-(28,14) AnnOpenS = [ListComprehensions.hs:25:14]) - -(AK ListComprehensions.hs:(25,14)-(28,14) AnnVbar = [ListComprehensions.hs:26:14]) - -(AK ListComprehensions.hs:26:16-23 AnnComma = [ListComprehensions.hs:27:14]) - -(AK ListComprehensions.hs:26:16-23 AnnLarrow = [ListComprehensions.hs:26:18-19]) - -(AK ListComprehensions.hs:(26,16)-(27,22) AnnThen = [ListComprehensions.hs:27:16-19]) -] - -EOF: Just SrcSpanPoint ".\\ListComprehensions.hs" 29 1 diff --git a/testsuite/tests/ghc-api/annotations/load-main.stdout b/testsuite/tests/ghc-api/annotations/load-main.stdout deleted file mode 100644 index 4ba092296b..0000000000 --- a/testsuite/tests/ghc-api/annotations/load-main.stdout +++ /dev/null @@ -1,20 +0,0 @@ ----Unattached Annotation Problems (should be empty list)--- -[] ----Ann before enclosing span problem (should be empty list)--- -[ - -] - ----Annotations----------------------- --- SrcSpan the annotation is attached to, AnnKeywordId, --- list of locations the keyword item appears in -[ -((load-main.hs:1:1,AnnModule), [load-main.hs:1:1-6]), -((load-main.hs:1:1,AnnWhere), [load-main.hs:1:13-17]), -((load-main.hs:4:1-23,AnnEqual), [load-main.hs:4:6]), -((load-main.hs:4:1-23,AnnFunId), [load-main.hs:4:1-4]), -((load-main.hs:4:1-23,AnnSemi), [load-main.hs:5:1]) -] - ----Eof Position (should be Just)----- -Just SrcSpanPoint "load-main.hs" 5 1 diff --git a/testsuite/tests/ghc-api/annotations/parseTree.hs b/testsuite/tests/ghc-api/annotations/parseTree.hs deleted file mode 100644 index f566c51d6f..0000000000 --- a/testsuite/tests/ghc-api/annotations/parseTree.hs +++ /dev/null @@ -1,106 +0,0 @@ -{-# LANGUAGE RankNTypes #-} - --- This program must be called with GHC's libdir as the single command line --- argument. -module Main where - --- import Data.Generics -import Data.Data -import Data.List (intercalate) -import System.IO -import GHC -import GHC.Types.Basic -import GHC.Driver.Session -import GHC.Driver.Ppr -import GHC.Utils.Monad -import GHC.Utils.Outputable -import GHC.Data.Bag (filterBag,isEmptyBag) -import System.Directory (removeFile) -import System.Environment( getArgs ) -import qualified Data.Map as Map -import Data.Dynamic ( fromDynamic,Dynamic ) - -main::IO() -main = do - [libdir] <- getArgs - testOneFile libdir "AnnotationTuple" - -testOneFile libdir fileName = do - p <- runGhc (Just libdir) $ do - dflags <- getSessionDynFlags - setSessionDynFlags dflags - let mn =mkModuleName fileName - addTarget Target { targetId = TargetModule mn - , targetAllowObjCode = True - , targetContents = Nothing } - load LoadAllTargets - modSum <- getModSummary mn - p <- parseModule modSum - t <- typecheckModule p - d <- desugarModule t - l <- loadModule d - return p - - let anns = pm_annotations p - ann_items = apiAnnItems anns - ann_eof = apiAnnEofPos anns - let tupArgs = gq (pm_parsed_source p) - - putStrLn (pp tupArgs) - putStrLn (intercalate "\n" [showAnns ann_items, "EOF: " ++ show ann_eof]) - - where - gq ast = everything (++) ([] `mkQ` doLHsTupArg) ast - - doLHsTupArg :: LHsTupArg GhcPs -> [(SrcSpan,String,HsExpr GhcPs)] - doLHsTupArg (L l arg@(Present {})) - = [(l,"p",ExplicitTuple noExtField [L l arg] Boxed)] - doLHsTupArg (L l arg@(Missing {})) - = [(l,"m",ExplicitTuple noExtField [L l arg] Boxed)] - - -showAnns anns = "[\n" ++ (intercalate "\n" - $ map (\((s,k),v) - -> ("(AK " ++ pp s ++ " " ++ show k ++" = " ++ pp v ++ ")\n")) - $ Map.toList anns) - ++ "]\n" - -pp a = showPprUnsafe a - - --- --------------------------------------------------------------------- - --- Copied from syb for the test - - --- | Generic queries of type \"r\", --- i.e., take any \"a\" and return an \"r\" --- -type GenericQ r = forall a. Data a => a -> r - - --- | Make a generic query; --- start from a type-specific case; --- return a constant otherwise --- -mkQ :: ( Typeable a - , Typeable b - ) - => r - -> (b -> r) - -> a - -> r -(r `mkQ` br) a = case cast a of - Just b -> br b - Nothing -> r - - - --- | Summarise all nodes in top-down, left-to-right order -everything :: (r -> r -> r) -> GenericQ r -> GenericQ r - --- Apply f to x to summarise top-level node; --- use gmapQ to recurse into immediate subterms; --- use ordinary foldl to reduce list of intermediate results - -everything k f x = foldl k (f x) (gmapQ (everything k f) x) diff --git a/testsuite/tests/ghc-api/annotations/parseTree.stdout b/testsuite/tests/ghc-api/annotations/parseTree.stdout deleted file mode 100644 index 8d629fb90a..0000000000 --- a/testsuite/tests/ghc-api/annotations/parseTree.stdout +++ /dev/null @@ -1,160 +0,0 @@ -[(AnnotationTuple.hs:14:20, [p], Solo 1), - (AnnotationTuple.hs:14:23-29, [p], Solo "hello"), - (AnnotationTuple.hs:14:35-37, [p], Solo 6.5), - (AnnotationTuple.hs:14:39, [m], ()), - (AnnotationTuple.hs:14:41-52, [p], Solo [5, 5, 6, 7]), - (AnnotationTuple.hs:16:8, [p], Solo 1), - (AnnotationTuple.hs:16:11-17, [p], Solo "hello"), - (AnnotationTuple.hs:16:20-22, [p], Solo 6.5), - (AnnotationTuple.hs:16:24, [m], ()), - (AnnotationTuple.hs:16:25, [m], ()), - (AnnotationTuple.hs:16:26, [m], ()), (<no location info>, [m], ())] -[ -(AK AnnotationTuple.hs:1:1 AnnCloseC = [AnnotationTuple.hs:27:1]) - -(AK AnnotationTuple.hs:1:1 AnnModule = [AnnotationTuple.hs:3:1-6]) - -(AK AnnotationTuple.hs:1:1 AnnOpenC = [AnnotationTuple.hs:5:1]) - -(AK AnnotationTuple.hs:1:1 AnnWhere = [AnnotationTuple.hs:3:30-34]) - -(AK AnnotationTuple.hs:3:24-28 AnnCloseP = [AnnotationTuple.hs:3:28]) - -(AK AnnotationTuple.hs:3:24-28 AnnOpenP = [AnnotationTuple.hs:3:24]) - -(AK AnnotationTuple.hs:6:1-32 AnnAs = [AnnotationTuple.hs:6:28-29]) - -(AK AnnotationTuple.hs:6:1-32 AnnImport = [AnnotationTuple.hs:6:1-6]) - -(AK AnnotationTuple.hs:6:1-32 AnnQualified = [AnnotationTuple.hs:6:8-16]) - -(AK AnnotationTuple.hs:6:1-32 AnnSemi = [AnnotationTuple.hs:7:1]) - -(AK AnnotationTuple.hs:(8,1)-(11,14) AnnEqual = [AnnotationTuple.hs:8:5]) - -(AK AnnotationTuple.hs:(8,1)-(11,14) AnnFunId = [AnnotationTuple.hs:8:1-3]) - -(AK AnnotationTuple.hs:(8,1)-(11,14) AnnSemi = [AnnotationTuple.hs:13:1]) - -(AK AnnotationTuple.hs:(8,7)-(11,14) AnnIn = [AnnotationTuple.hs:11:7-8]) - -(AK AnnotationTuple.hs:(8,7)-(11,14) AnnLet = [AnnotationTuple.hs:8:7-9]) - -(AK AnnotationTuple.hs:9:9-13 AnnEqual = [AnnotationTuple.hs:9:11]) - -(AK AnnotationTuple.hs:9:9-13 AnnFunId = [AnnotationTuple.hs:9:9]) - -(AK AnnotationTuple.hs:9:9-13 AnnSemi = [AnnotationTuple.hs:10:9]) - -(AK AnnotationTuple.hs:10:9-13 AnnEqual = [AnnotationTuple.hs:10:11]) - -(AK AnnotationTuple.hs:10:9-13 AnnFunId = [AnnotationTuple.hs:10:9]) - -(AK AnnotationTuple.hs:11:10-14 AnnVal = [AnnotationTuple.hs:11:12]) - -(AK AnnotationTuple.hs:14:1-72 AnnEqual = [AnnotationTuple.hs:14:5]) - -(AK AnnotationTuple.hs:14:1-72 AnnFunId = [AnnotationTuple.hs:14:1-3]) - -(AK AnnotationTuple.hs:14:1-72 AnnSemi = [AnnotationTuple.hs:15:1]) - -(AK AnnotationTuple.hs:14:7-72 AnnVal = [AnnotationTuple.hs:14:13]) - -(AK AnnotationTuple.hs:14:19-53 AnnCloseP = [AnnotationTuple.hs:14:53]) - -(AK AnnotationTuple.hs:14:19-53 AnnOpenP = [AnnotationTuple.hs:14:19]) - -(AK AnnotationTuple.hs:14:20 AnnComma = [AnnotationTuple.hs:14:21]) - -(AK AnnotationTuple.hs:14:23-29 AnnComma = [AnnotationTuple.hs:14:33]) - -(AK AnnotationTuple.hs:14:35-37 AnnComma = [AnnotationTuple.hs:14:38]) - -(AK AnnotationTuple.hs:14:39 AnnComma = [AnnotationTuple.hs:14:39]) - -(AK AnnotationTuple.hs:14:41-52 AnnCloseS = [AnnotationTuple.hs:14:52]) - -(AK AnnotationTuple.hs:14:41-52 AnnOpenS = [AnnotationTuple.hs:14:41]) - -(AK AnnotationTuple.hs:14:42 AnnComma = [AnnotationTuple.hs:14:43]) - -(AK AnnotationTuple.hs:14:45 AnnComma = [AnnotationTuple.hs:14:46]) - -(AK AnnotationTuple.hs:14:48 AnnComma = [AnnotationTuple.hs:14:49]) - -(AK AnnotationTuple.hs:14:55-72 AnnCloseS = [AnnotationTuple.hs:14:72]) - -(AK AnnotationTuple.hs:14:55-72 AnnOpenS = [AnnotationTuple.hs:14:55]) - -(AK AnnotationTuple.hs:14:56-62 AnnComma = [AnnotationTuple.hs:14:63]) - -(AK AnnotationTuple.hs:14:61-62 AnnCloseP = [AnnotationTuple.hs:14:62]) - -(AK AnnotationTuple.hs:14:61-62 AnnOpenP = [AnnotationTuple.hs:14:61]) - -(AK AnnotationTuple.hs:16:1-41 AnnEqual = [AnnotationTuple.hs:16:5]) - -(AK AnnotationTuple.hs:16:1-41 AnnFunId = [AnnotationTuple.hs:16:1-3]) - -(AK AnnotationTuple.hs:16:1-41 AnnSemi = [AnnotationTuple.hs:17:1]) - -(AK AnnotationTuple.hs:16:7-27 AnnCloseP = [AnnotationTuple.hs:16:27]) - -(AK AnnotationTuple.hs:16:7-27 AnnOpenP = [AnnotationTuple.hs:16:7]) - -(AK AnnotationTuple.hs:16:8 AnnComma = [AnnotationTuple.hs:16:9]) - -(AK AnnotationTuple.hs:16:11-17 AnnComma = [AnnotationTuple.hs:16:18]) - -(AK AnnotationTuple.hs:16:20-22 AnnComma = [AnnotationTuple.hs:16:23]) - -(AK AnnotationTuple.hs:16:24 AnnComma = [AnnotationTuple.hs:16:24]) - -(AK AnnotationTuple.hs:16:25 AnnComma = [AnnotationTuple.hs:16:25]) - -(AK AnnotationTuple.hs:16:26 AnnComma = [AnnotationTuple.hs:16:26]) - -(AK AnnotationTuple.hs:16:33-41 AnnCloseP = [AnnotationTuple.hs:16:41]) - -(AK AnnotationTuple.hs:16:33-41 AnnOpenP = [AnnotationTuple.hs:16:33]) - -(AK AnnotationTuple.hs:16:39-40 AnnCloseP = [AnnotationTuple.hs:16:40]) - -(AK AnnotationTuple.hs:16:39-40 AnnOpenP = [AnnotationTuple.hs:16:39]) - -(AK AnnotationTuple.hs:18:1-28 AnnData = [AnnotationTuple.hs:18:1-4]) - -(AK AnnotationTuple.hs:18:1-28 AnnDcolon = [AnnotationTuple.hs:18:20-21]) - -(AK AnnotationTuple.hs:18:1-28 AnnFamily = [AnnotationTuple.hs:18:6-11]) - -(AK AnnotationTuple.hs:18:1-28 AnnSemi = [AnnotationTuple.hs:19:1]) - -(AK AnnotationTuple.hs:18:23 AnnRarrow = [AnnotationTuple.hs:18:25-26]) - -(AK AnnotationTuple.hs:18:23-28 AnnRarrow = [AnnotationTuple.hs:18:25-26]) - -(AK AnnotationTuple.hs:(20,1)-(24,14) AnnFunId = [AnnotationTuple.hs:20:1-5]) - -(AK AnnotationTuple.hs:(20,1)-(24,14) AnnSemi = [AnnotationTuple.hs:25:1]) - -(AK AnnotationTuple.hs:(21,7)-(24,14) AnnEqual = [AnnotationTuple.hs:24:7]) - -(AK AnnotationTuple.hs:(21,7)-(24,14) AnnVbar = [AnnotationTuple.hs:21:7]) - -(AK AnnotationTuple.hs:21:9-24 AnnComma = [AnnotationTuple.hs:22:7]) - -(AK AnnotationTuple.hs:21:9-24 AnnLarrow = [AnnotationTuple.hs:21:16-17]) - -(AK AnnotationTuple.hs:22:9-25 AnnComma = [AnnotationTuple.hs:23:7]) - -(AK AnnotationTuple.hs:22:9-25 AnnLarrow = [AnnotationTuple.hs:22:16-17]) - -(AK AnnotationTuple.hs:23:9-24 AnnLarrow = [AnnotationTuple.hs:23:16-17]) - -(AK AnnotationTuple.hs:26:1-10 AnnDcolon = [AnnotationTuple.hs:26:5-6]) - -(AK AnnotationTuple.hs:26:1-14 AnnEqual = [AnnotationTuple.hs:26:12]) -] - -EOF: Just SrcSpanPoint "./AnnotationTuple.hs" 32 1 diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr index e0f5a33d69..893ffb232e 100644 --- a/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr +++ b/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr @@ -1,1106 +1,2162 @@ ==================== Parser AST ==================== -({ T17544.hs:1:1 } +(L + { T17544.hs:1:1 } (HsModule + (ApiAnn + (Anchor + { T17544.hs:1:1 } + (UnchangedAnchor)) + (AnnsModule + [(AddApiAnn AnnModule (AR { T17544.hs:3:1-6 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:3:15-19 }))] + (AnnList + (Nothing) + (Nothing) + (Nothing) + [] + [])) + (AnnCommentsBalanced + [] + [(L + (Anchor + { T17544.hs:57:1 } + (UnchangedAnchor)) + (AnnComment + (AnnEofComment) + { T17544.hs:57:1 }))])) (VirtualBraces (1)) (Just - ({ T17544.hs:3:8-13 } + (L + { T17544.hs:3:8-13 } {ModuleName: T17544})) (Nothing) [] - [({ T17544.hs:(5,1)-(6,16) } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544.hs:(5,1)-(6,16) } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544.hs:(5,1)-(6,16) }) (TyClD (NoExtField) (ClassDecl - (VirtualBraces - (3)) + ((,,) + (ApiAnn + (Anchor + { T17544.hs:(5,1)-(6,16) } + (UnchangedAnchor)) + [(AddApiAnn AnnClass (AR { T17544.hs:5:1-5 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:5:12-16 }))] + (AnnComments + [])) + (NoAnnSortKey) + (VirtualBraces + (3))) (Nothing) - ({ T17544.hs:5:7-8 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:5:7-8 }) (Unqual {OccName: C1})) (HsQTvs (NoExtField) - [({ T17544.hs:5:10 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:5:10 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:5:10 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T17544.hs:5:10 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:5:10 }) (Unqual {OccName: a}))))]) (Prefix) [] - [({ T17544.hs:6:3-16 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:6:3-16 }) (ClassOpSig - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:6:3-4 } + (UnchangedAnchor)) + (AnnSig + (AddApiAnn AnnDcolon (AR { T17544.hs:6:6-7 })) + []) + (AnnComments + [])) (False) - [({ T17544.hs:6:3-4 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:6:3-4 }) (Unqual {OccName: f1}))] - ({ T17544.hs:6:9-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:6:9-16 }) (HsSig (NoExtField) (HsOuterImplicit (NoExtField)) - ({ T17544.hs:6:9-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:6:9-16 }) (HsFunTy - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:6:9 } + (UnchangedAnchor)) + (AddRarrowAnn + (AR { T17544.hs:6:11-12 })) + (AnnComments + [])) (HsUnrestrictedArrow (NormalSyntax)) - ({ T17544.hs:6:9 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:6:9 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:6:9 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:6:9 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:6:9 }) (Unqual {OccName: a})))) - ({ T17544.hs:6:14-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:6:14-16 }) (HsDocTy - (NoExtField) - ({ T17544.hs:6:14-16 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:6:14-16 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:6:14-16 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:6:14-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:6:14-16 }) (Unqual {OccName: Int})))) - ({ T17544.hs:7:5-23 } + (L + { T17544.hs:7:5-23 } (HsDocString " comment on Int"))))))))))] - {Bag(Located (HsBind GhcPs)): + {Bag(LocatedA (HsBind GhcPs)): []} [] [] []))) - ,({ T17544.hs:(9,1)-(10,16) } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544.hs:(9,1)-(10,16) } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544.hs:(9,1)-(10,16) }) (TyClD (NoExtField) (ClassDecl - (VirtualBraces - (3)) + ((,,) + (ApiAnn + (Anchor + { T17544.hs:(9,1)-(10,16) } + (UnchangedAnchor)) + [(AddApiAnn AnnClass (AR { T17544.hs:9:1-5 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:9:12-16 }))] + (AnnComments + [])) + (NoAnnSortKey) + (VirtualBraces + (3))) (Nothing) - ({ T17544.hs:9:7-8 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:9:7-8 }) (Unqual {OccName: C2})) (HsQTvs (NoExtField) - [({ T17544.hs:9:10 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:9:10 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:9:10 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T17544.hs:9:10 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:9:10 }) (Unqual {OccName: a}))))]) (Prefix) [] - [({ T17544.hs:10:3-16 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:10:3-16 }) (ClassOpSig - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:10:3-4 } + (UnchangedAnchor)) + (AnnSig + (AddApiAnn AnnDcolon (AR { T17544.hs:10:6-7 })) + []) + (AnnComments + [])) (False) - [({ T17544.hs:10:3-4 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:10:3-4 }) (Unqual {OccName: f2}))] - ({ T17544.hs:10:9-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:10:9-16 }) (HsSig (NoExtField) (HsOuterImplicit (NoExtField)) - ({ T17544.hs:10:9-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:10:9-16 }) (HsFunTy - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:10:9 } + (UnchangedAnchor)) + (AddRarrowAnn + (AR { T17544.hs:10:11-12 })) + (AnnComments + [])) (HsUnrestrictedArrow (NormalSyntax)) - ({ T17544.hs:10:9 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:10:9 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:10:9 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:10:9 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:10:9 }) (Unqual {OccName: a})))) - ({ T17544.hs:10:14-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:10:14-16 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:10:14-16 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:10:14-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:10:14-16 }) (Unqual {OccName: Int}))))))))))] - {Bag(Located (HsBind GhcPs)): + {Bag(LocatedA (HsBind GhcPs)): []} [] [] - [({ T17544.hs:11:3-20 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:11:3-20 }) (DocCommentPrev (HsDocString " comment on f2")))]))) - ,({ T17544.hs:(13,1)-(14,16) } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544.hs:(13,1)-(14,16) } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544.hs:(13,1)-(14,16) }) (TyClD (NoExtField) (ClassDecl - (VirtualBraces - (3)) + ((,,) + (ApiAnn + (Anchor + { T17544.hs:(13,1)-(14,16) } + (UnchangedAnchor)) + [(AddApiAnn AnnClass (AR { T17544.hs:13:1-5 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:13:12-16 }))] + (AnnComments + [])) + (NoAnnSortKey) + (VirtualBraces + (3))) (Nothing) - ({ T17544.hs:13:7-8 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:13:7-8 }) (Unqual {OccName: C3})) (HsQTvs (NoExtField) - [({ T17544.hs:13:10 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:13:10 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:13:10 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T17544.hs:13:10 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:13:10 }) (Unqual {OccName: a}))))]) (Prefix) [] - [({ T17544.hs:14:3-16 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:14:3-16 }) (ClassOpSig - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:14:3-4 } + (UnchangedAnchor)) + (AnnSig + (AddApiAnn AnnDcolon (AR { T17544.hs:14:6-7 })) + []) + (AnnComments + [])) (False) - [({ T17544.hs:14:3-4 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:14:3-4 }) (Unqual {OccName: f3}))] - ({ T17544.hs:14:9-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:14:9-16 }) (HsSig (NoExtField) (HsOuterImplicit (NoExtField)) - ({ T17544.hs:14:9-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:14:9-16 }) (HsFunTy - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:14:9 } + (UnchangedAnchor)) + (AddRarrowAnn + (AR { T17544.hs:14:11-12 })) + (AnnComments + [])) (HsUnrestrictedArrow (NormalSyntax)) - ({ T17544.hs:14:9 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:14:9 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:14:9 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:14:9 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:14:9 }) (Unqual {OccName: a})))) - ({ T17544.hs:14:14-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:14:14-16 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:14:14-16 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:14:14-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:14:14-16 }) (Unqual {OccName: Int}))))))))))] - {Bag(Located (HsBind GhcPs)): + {Bag(LocatedA (HsBind GhcPs)): []} [] [] []))) - ,({ T17544.hs:15:1-18 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:15:1-18 }) (DocD (NoExtField) (DocCommentPrev (HsDocString " comment on C3")))) - ,({ T17544.hs:(17,1)-(20,16) } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544.hs:(17,1)-(20,16) } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544.hs:(17,1)-(20,16) }) (TyClD (NoExtField) (ClassDecl - (VirtualBraces - (3)) + ((,,) + (ApiAnn + (Anchor + { T17544.hs:(17,1)-(20,16) } + (UnchangedAnchor)) + [(AddApiAnn AnnClass (AR { T17544.hs:17:1-5 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:17:12-16 }))] + (AnnComments + [])) + (NoAnnSortKey) + (VirtualBraces + (3))) (Nothing) - ({ T17544.hs:17:7-8 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:17:7-8 }) (Unqual {OccName: C4})) (HsQTvs (NoExtField) - [({ T17544.hs:17:10 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:17:10 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:17:10 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T17544.hs:17:10 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:17:10 }) (Unqual {OccName: a}))))]) (Prefix) [] - [({ T17544.hs:18:3-16 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:18:3-16 }) (ClassOpSig - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:18:3-4 } + (UnchangedAnchor)) + (AnnSig + (AddApiAnn AnnDcolon (AR { T17544.hs:18:6-7 })) + []) + (AnnComments + [])) (False) - [({ T17544.hs:18:3-4 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:18:3-4 }) (Unqual {OccName: f4}))] - ({ T17544.hs:18:9-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:18:9-16 }) (HsSig (NoExtField) (HsOuterImplicit (NoExtField)) - ({ T17544.hs:18:9-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:18:9-16 }) (HsFunTy - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:18:9 } + (UnchangedAnchor)) + (AddRarrowAnn + (AR { T17544.hs:18:11-12 })) + (AnnComments + [])) (HsUnrestrictedArrow (NormalSyntax)) - ({ T17544.hs:18:9 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:18:9 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:18:9 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:18:9 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:18:9 }) (Unqual {OccName: a})))) - ({ T17544.hs:18:14-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:18:14-16 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:18:14-16 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:18:14-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:18:14-16 }) (Unqual {OccName: Int})))))))))) - ,({ T17544.hs:20:3-16 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:20:3-16 }) (ClassOpSig - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:20:3-4 } + (UnchangedAnchor)) + (AnnSig + (AddApiAnn AnnDcolon (AR { T17544.hs:20:6-7 })) + []) + (AnnComments + [])) (False) - [({ T17544.hs:20:3-4 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:20:3-4 }) (Unqual {OccName: g4}))] - ({ T17544.hs:20:9-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:20:9-16 }) (HsSig (NoExtField) (HsOuterImplicit (NoExtField)) - ({ T17544.hs:20:9-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:20:9-16 }) (HsFunTy - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:20:9 } + (UnchangedAnchor)) + (AddRarrowAnn + (AR { T17544.hs:20:11-12 })) + (AnnComments + [])) (HsUnrestrictedArrow (NormalSyntax)) - ({ T17544.hs:20:9 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:20:9 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:20:9 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:20:9 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:20:9 }) (Unqual {OccName: a})))) - ({ T17544.hs:20:14-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:20:14-16 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:20:14-16 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:20:14-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:20:14-16 }) (Unqual {OccName: Int}))))))))))] - {Bag(Located (HsBind GhcPs)): + {Bag(LocatedA (HsBind GhcPs)): []} [] [] []))) - ,({ T17544.hs:22:1-30 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544.hs:22:1-30 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544.hs:22:1-30 }) (TyClD (NoExtField) (ClassDecl - (ExplicitBraces) + ((,,) + (ApiAnn + (Anchor + { T17544.hs:22:1-30 } + (UnchangedAnchor)) + [(AddApiAnn AnnClass (AR { T17544.hs:22:1-5 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:22:12-16 })) + ,(AddApiAnn AnnOpenC (AR { T17544.hs:22:18 })) + ,(AddApiAnn AnnCloseC (AR { T17544.hs:22:30 }))] + (AnnComments + [])) + (NoAnnSortKey) + (ExplicitBraces)) (Nothing) - ({ T17544.hs:22:7-8 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:22:7-8 }) (Unqual {OccName: C5})) (HsQTvs (NoExtField) - [({ T17544.hs:22:10 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:22:10 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:22:10 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T17544.hs:22:10 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:22:10 }) (Unqual {OccName: a}))))]) (Prefix) [] [] - {Bag(Located (HsBind GhcPs)): + {Bag(LocatedA (HsBind GhcPs)): []} - [({ T17544.hs:22:20-28 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:22:20-28 }) (FamilyDecl - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:22:20-28 } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T17544.hs:22:20-23 }))] + (AnnComments + [])) (DataFamily) - ({ T17544.hs:22:25-26 } + (NotTopLevel) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:22:25-26 }) (Unqual {OccName: D5})) (HsQTvs (NoExtField) - [({ T17544.hs:22:28 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:22:28 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:22:28 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T17544.hs:22:28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:22:28 }) (Unqual {OccName: a}))))]) (Prefix) - ({ <no location info> } + (L + { <no location info> } (NoSig (NoExtField))) (Nothing)))] [] []))) - ,({ T17544.hs:(23,1)-(25,18) } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544.hs:(23,1)-(25,18) } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544.hs:(23,1)-(25,18) }) (InstD (NoExtField) (ClsInstD (NoExtField) (ClsInstDecl - (NoExtField) - ({ T17544.hs:23:10-15 } + ((,) + (ApiAnn + (Anchor + { T17544.hs:23:1-8 } + (UnchangedAnchor)) + [(AddApiAnn AnnInstance (AR { T17544.hs:23:1-8 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:23:17-21 }))] + (AnnComments + [])) + (NoAnnSortKey)) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:23:10-15 }) (HsSig (NoExtField) (HsOuterImplicit (NoExtField)) - ({ T17544.hs:23:10-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:23:10-15 }) (HsAppTy (NoExtField) - ({ T17544.hs:23:10-11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:23:10-11 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:23:10-11 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:23:10-11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:23:10-11 }) (Unqual {OccName: C5})))) - ({ T17544.hs:23:13-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:23:13-15 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:23:13-15 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:23:13-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:23:13-15 }) (Unqual {OccName: Int})))))))) - {Bag(Located (HsBind GhcPs)): + {Bag(LocatedA (HsBind GhcPs)): []} [] [] - [({ T17544.hs:(24,3)-(25,18) } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:(24,3)-(25,18) }) (DataFamInstDecl (FamEqn - (NoExtField) - ({ T17544.hs:24:8-9 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:24:8-9 }) (Unqual {OccName: D5})) (HsOuterImplicit (NoExtField)) [(HsValArg - ({ T17544.hs:24:11-13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:24:11-13 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:24:11-13 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:24:11-13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:24:11-13 }) (Unqual {OccName: Int})))))] (Prefix) (HsDataDefn - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:(24,3)-(25,18) } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T17544.hs:24:3-6 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:24:15-19 }))] + (AnnComments + [])) (DataType) (Nothing) (Nothing) (Nothing) - [({ T17544.hs:25:5-18 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:25:5-18 }) (ConDeclGADT - (NoExtField) - [({ T17544.hs:25:5-8 } + (ApiAnn + (Anchor + { T17544.hs:25:5-18 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { T17544.hs:25:10-11 }))] + (AnnComments + [])) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:25:5-8 }) (Unqual {OccName: MkD5}))] - ({ T17544.hs:25:13-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:25:13-18 }) (HsOuterImplicit (NoExtField))) (Nothing) (PrefixConGADT []) - ({ T17544.hs:25:13-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:25:13-18 }) (HsAppTy (NoExtField) - ({ T17544.hs:25:13-14 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:25:13-14 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:25:13-14 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:25:13-14 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:25:13-14 }) (Unqual {OccName: D5})))) - ({ T17544.hs:25:16-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:25:16-18 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:25:16-18 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:25:16-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:25:16-18 }) (Unqual {OccName: Int})))))) (Nothing)))] - ({ <no location info> } - [])))))] + []))))] (Nothing))))) - ,({ T17544.hs:28:1-30 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544.hs:28:1-30 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544.hs:28:1-30 }) (TyClD (NoExtField) (ClassDecl - (ExplicitBraces) + ((,,) + (ApiAnn + (Anchor + { T17544.hs:28:1-30 } + (UnchangedAnchor)) + [(AddApiAnn AnnClass (AR { T17544.hs:28:1-5 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:28:12-16 })) + ,(AddApiAnn AnnOpenC (AR { T17544.hs:28:18 })) + ,(AddApiAnn AnnCloseC (AR { T17544.hs:28:30 }))] + (AnnComments + [])) + (NoAnnSortKey) + (ExplicitBraces)) (Nothing) - ({ T17544.hs:28:7-8 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:28:7-8 }) (Unqual {OccName: C6})) (HsQTvs (NoExtField) - [({ T17544.hs:28:10 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:28:10 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:28:10 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T17544.hs:28:10 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:28:10 }) (Unqual {OccName: a}))))]) (Prefix) [] [] - {Bag(Located (HsBind GhcPs)): + {Bag(LocatedA (HsBind GhcPs)): []} - [({ T17544.hs:28:20-28 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:28:20-28 }) (FamilyDecl - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:28:20-28 } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T17544.hs:28:20-23 }))] + (AnnComments + [])) (DataFamily) - ({ T17544.hs:28:25-26 } + (NotTopLevel) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:28:25-26 }) (Unqual {OccName: D6})) (HsQTvs (NoExtField) - [({ T17544.hs:28:28 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:28:28 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:28:28 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T17544.hs:28:28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:28:28 }) (Unqual {OccName: a}))))]) (Prefix) - ({ <no location info> } + (L + { <no location info> } (NoSig (NoExtField))) (Nothing)))] [] []))) - ,({ T17544.hs:(29,1)-(31,18) } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544.hs:(29,1)-(31,18) } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544.hs:(29,1)-(31,18) }) (InstD (NoExtField) (ClsInstD (NoExtField) (ClsInstDecl - (NoExtField) - ({ T17544.hs:29:10-15 } + ((,) + (ApiAnn + (Anchor + { T17544.hs:29:1-8 } + (UnchangedAnchor)) + [(AddApiAnn AnnInstance (AR { T17544.hs:29:1-8 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:29:17-21 }))] + (AnnComments + [])) + (NoAnnSortKey)) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:29:10-15 }) (HsSig (NoExtField) (HsOuterImplicit (NoExtField)) - ({ T17544.hs:29:10-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:29:10-15 }) (HsAppTy (NoExtField) - ({ T17544.hs:29:10-11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:29:10-11 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:29:10-11 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:29:10-11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:29:10-11 }) (Unqual {OccName: C6})))) - ({ T17544.hs:29:13-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:29:13-15 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:29:13-15 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:29:13-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:29:13-15 }) (Unqual {OccName: Int})))))))) - {Bag(Located (HsBind GhcPs)): + {Bag(LocatedA (HsBind GhcPs)): []} [] [] - [({ T17544.hs:(30,3)-(31,18) } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:(30,3)-(31,18) }) (DataFamInstDecl (FamEqn - (NoExtField) - ({ T17544.hs:30:8-9 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:30:8-9 }) (Unqual {OccName: D6})) (HsOuterImplicit (NoExtField)) [(HsValArg - ({ T17544.hs:30:11-13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:30:11-13 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:30:11-13 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:30:11-13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:30:11-13 }) (Unqual {OccName: Int})))))] (Prefix) (HsDataDefn - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:(30,3)-(31,18) } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T17544.hs:30:3-6 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:30:15-19 }))] + (AnnComments + [])) (DataType) (Nothing) (Nothing) (Nothing) - [({ T17544.hs:31:5-18 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:31:5-18 }) (ConDeclGADT - (NoExtField) - [({ T17544.hs:31:5-8 } + (ApiAnn + (Anchor + { T17544.hs:31:5-18 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { T17544.hs:31:10-11 }))] + (AnnComments + [])) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:31:5-8 }) (Unqual {OccName: MkD6}))] - ({ T17544.hs:31:13-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:31:13-18 }) (HsOuterImplicit (NoExtField))) (Nothing) (PrefixConGADT []) - ({ T17544.hs:31:13-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:31:13-18 }) (HsAppTy (NoExtField) - ({ T17544.hs:31:13-14 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:31:13-14 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:31:13-14 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:31:13-14 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:31:13-14 }) (Unqual {OccName: D6})))) - ({ T17544.hs:31:16-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:31:16-18 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:31:16-18 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:31:16-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:31:16-18 }) (Unqual {OccName: Int})))))) (Nothing)))] - ({ <no location info> } - [])))))] + []))))] (Nothing))))) - ,({ T17544.hs:34:1-30 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544.hs:34:1-30 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544.hs:34:1-30 }) (TyClD (NoExtField) (ClassDecl - (ExplicitBraces) + ((,,) + (ApiAnn + (Anchor + { T17544.hs:34:1-30 } + (UnchangedAnchor)) + [(AddApiAnn AnnClass (AR { T17544.hs:34:1-5 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:34:12-16 })) + ,(AddApiAnn AnnOpenC (AR { T17544.hs:34:18 })) + ,(AddApiAnn AnnCloseC (AR { T17544.hs:34:30 }))] + (AnnComments + [])) + (NoAnnSortKey) + (ExplicitBraces)) (Nothing) - ({ T17544.hs:34:7-8 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:34:7-8 }) (Unqual {OccName: C7})) (HsQTvs (NoExtField) - [({ T17544.hs:34:10 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:34:10 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:34:10 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T17544.hs:34:10 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:34:10 }) (Unqual {OccName: a}))))]) (Prefix) [] [] - {Bag(Located (HsBind GhcPs)): + {Bag(LocatedA (HsBind GhcPs)): []} - [({ T17544.hs:34:20-28 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:34:20-28 }) (FamilyDecl - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:34:20-28 } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T17544.hs:34:20-23 }))] + (AnnComments + [])) (DataFamily) - ({ T17544.hs:34:25-26 } + (NotTopLevel) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:34:25-26 }) (Unqual {OccName: D7})) (HsQTvs (NoExtField) - [({ T17544.hs:34:28 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:34:28 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:34:28 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T17544.hs:34:28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:34:28 }) (Unqual {OccName: a}))))]) (Prefix) - ({ <no location info> } + (L + { <no location info> } (NoSig (NoExtField))) (Nothing)))] [] []))) - ,({ T17544.hs:(35,1)-(37,18) } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544.hs:(35,1)-(37,18) } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544.hs:(35,1)-(37,18) }) (InstD (NoExtField) (ClsInstD (NoExtField) (ClsInstDecl - (NoExtField) - ({ T17544.hs:35:10-15 } + ((,) + (ApiAnn + (Anchor + { T17544.hs:35:1-8 } + (UnchangedAnchor)) + [(AddApiAnn AnnInstance (AR { T17544.hs:35:1-8 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:35:17-21 }))] + (AnnComments + [])) + (NoAnnSortKey)) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:35:10-15 }) (HsSig (NoExtField) (HsOuterImplicit (NoExtField)) - ({ T17544.hs:35:10-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:35:10-15 }) (HsAppTy (NoExtField) - ({ T17544.hs:35:10-11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:35:10-11 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:35:10-11 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:35:10-11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:35:10-11 }) (Unqual {OccName: C7})))) - ({ T17544.hs:35:13-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:35:13-15 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:35:13-15 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:35:13-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:35:13-15 }) (Unqual {OccName: Int})))))))) - {Bag(Located (HsBind GhcPs)): + {Bag(LocatedA (HsBind GhcPs)): []} [] [] - [({ T17544.hs:(36,3)-(37,18) } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:(36,3)-(37,18) }) (DataFamInstDecl (FamEqn - (NoExtField) - ({ T17544.hs:36:8-9 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:36:8-9 }) (Unqual {OccName: D7})) (HsOuterImplicit (NoExtField)) [(HsValArg - ({ T17544.hs:36:11-13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:36:11-13 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:36:11-13 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:36:11-13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:36:11-13 }) (Unqual {OccName: Int})))))] (Prefix) (HsDataDefn - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:(36,3)-(37,18) } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T17544.hs:36:3-6 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:36:15-19 }))] + (AnnComments + [])) (DataType) (Nothing) (Nothing) (Nothing) - [({ T17544.hs:37:5-18 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:37:5-18 }) (ConDeclGADT - (NoExtField) - [({ T17544.hs:37:5-8 } + (ApiAnn + (Anchor + { T17544.hs:37:5-18 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { T17544.hs:37:10-11 }))] + (AnnComments + [])) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:37:5-8 }) (Unqual {OccName: MkD7}))] - ({ T17544.hs:37:13-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:37:13-18 }) (HsOuterImplicit (NoExtField))) (Nothing) (PrefixConGADT []) - ({ T17544.hs:37:13-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:37:13-18 }) (HsAppTy (NoExtField) - ({ T17544.hs:37:13-14 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:37:13-14 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:37:13-14 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:37:13-14 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:37:13-14 }) (Unqual {OccName: D7})))) - ({ T17544.hs:37:16-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:37:16-18 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:37:16-18 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:37:16-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:37:16-18 }) (Unqual {OccName: Int})))))) (Nothing)))] - ({ <no location info> } - [])))))] + []))))] (Nothing))))) - ,({ T17544.hs:40:1-30 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544.hs:40:1-30 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544.hs:40:1-30 }) (TyClD (NoExtField) (ClassDecl - (ExplicitBraces) + ((,,) + (ApiAnn + (Anchor + { T17544.hs:40:1-30 } + (UnchangedAnchor)) + [(AddApiAnn AnnClass (AR { T17544.hs:40:1-5 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:40:12-16 })) + ,(AddApiAnn AnnOpenC (AR { T17544.hs:40:18 })) + ,(AddApiAnn AnnCloseC (AR { T17544.hs:40:30 }))] + (AnnComments + [])) + (NoAnnSortKey) + (ExplicitBraces)) (Nothing) - ({ T17544.hs:40:7-8 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:40:7-8 }) (Unqual {OccName: C8})) (HsQTvs (NoExtField) - [({ T17544.hs:40:10 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:40:10 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:40:10 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T17544.hs:40:10 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:40:10 }) (Unqual {OccName: a}))))]) (Prefix) [] [] - {Bag(Located (HsBind GhcPs)): + {Bag(LocatedA (HsBind GhcPs)): []} - [({ T17544.hs:40:20-28 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:40:20-28 }) (FamilyDecl - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:40:20-28 } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T17544.hs:40:20-23 }))] + (AnnComments + [])) (DataFamily) - ({ T17544.hs:40:25-26 } + (NotTopLevel) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:40:25-26 }) (Unqual {OccName: D8})) (HsQTvs (NoExtField) - [({ T17544.hs:40:28 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:40:28 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:40:28 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T17544.hs:40:28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:40:28 }) (Unqual {OccName: a}))))]) (Prefix) - ({ <no location info> } + (L + { <no location info> } (NoSig (NoExtField))) (Nothing)))] [] []))) - ,({ T17544.hs:(41,1)-(43,18) } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544.hs:(41,1)-(43,18) } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544.hs:(41,1)-(43,18) }) (InstD (NoExtField) (ClsInstD (NoExtField) (ClsInstDecl - (NoExtField) - ({ T17544.hs:41:10-15 } + ((,) + (ApiAnn + (Anchor + { T17544.hs:41:1-8 } + (UnchangedAnchor)) + [(AddApiAnn AnnInstance (AR { T17544.hs:41:1-8 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:41:17-21 }))] + (AnnComments + [])) + (NoAnnSortKey)) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:41:10-15 }) (HsSig (NoExtField) (HsOuterImplicit (NoExtField)) - ({ T17544.hs:41:10-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:41:10-15 }) (HsAppTy (NoExtField) - ({ T17544.hs:41:10-11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:41:10-11 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:41:10-11 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:41:10-11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:41:10-11 }) (Unqual {OccName: C8})))) - ({ T17544.hs:41:13-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:41:13-15 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:41:13-15 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:41:13-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:41:13-15 }) (Unqual {OccName: Int})))))))) - {Bag(Located (HsBind GhcPs)): + {Bag(LocatedA (HsBind GhcPs)): []} [] [] - [({ T17544.hs:(42,3)-(43,18) } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:(42,3)-(43,18) }) (DataFamInstDecl (FamEqn - (NoExtField) - ({ T17544.hs:42:8-9 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:42:8-9 }) (Unqual {OccName: D8})) (HsOuterImplicit (NoExtField)) [(HsValArg - ({ T17544.hs:42:11-13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:42:11-13 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:42:11-13 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:42:11-13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:42:11-13 }) (Unqual {OccName: Int})))))] (Prefix) (HsDataDefn - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:(42,3)-(43,18) } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T17544.hs:42:3-6 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:42:15-19 }))] + (AnnComments + [])) (DataType) (Nothing) (Nothing) (Nothing) - [({ T17544.hs:43:5-18 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:43:5-18 }) (ConDeclGADT - (NoExtField) - [({ T17544.hs:43:5-8 } + (ApiAnn + (Anchor + { T17544.hs:43:5-18 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { T17544.hs:43:10-11 }))] + (AnnComments + [])) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:43:5-8 }) (Unqual {OccName: MkD8}))] - ({ T17544.hs:43:13-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:43:13-18 }) (HsOuterImplicit (NoExtField))) (Nothing) (PrefixConGADT []) - ({ T17544.hs:43:13-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:43:13-18 }) (HsAppTy (NoExtField) - ({ T17544.hs:43:13-14 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:43:13-14 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:43:13-14 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:43:13-14 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:43:13-14 }) (Unqual {OccName: D8})))) - ({ T17544.hs:43:16-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:43:16-18 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:43:16-18 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:43:16-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:43:16-18 }) (Unqual {OccName: Int})))))) (Nothing)))] - ({ <no location info> } - [])))))] + []))))] (Nothing))))) - ,({ T17544.hs:46:1-30 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544.hs:46:1-30 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544.hs:46:1-30 }) (TyClD (NoExtField) (ClassDecl - (ExplicitBraces) + ((,,) + (ApiAnn + (Anchor + { T17544.hs:46:1-30 } + (UnchangedAnchor)) + [(AddApiAnn AnnClass (AR { T17544.hs:46:1-5 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:46:12-16 })) + ,(AddApiAnn AnnOpenC (AR { T17544.hs:46:18 })) + ,(AddApiAnn AnnCloseC (AR { T17544.hs:46:30 }))] + (AnnComments + [])) + (NoAnnSortKey) + (ExplicitBraces)) (Nothing) - ({ T17544.hs:46:7-8 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:46:7-8 }) (Unqual {OccName: C9})) (HsQTvs (NoExtField) - [({ T17544.hs:46:10 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:46:10 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:46:10 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T17544.hs:46:10 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:46:10 }) (Unqual {OccName: a}))))]) (Prefix) [] [] - {Bag(Located (HsBind GhcPs)): + {Bag(LocatedA (HsBind GhcPs)): []} - [({ T17544.hs:46:20-28 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:46:20-28 }) (FamilyDecl - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:46:20-28 } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T17544.hs:46:20-23 }))] + (AnnComments + [])) (DataFamily) - ({ T17544.hs:46:25-26 } + (NotTopLevel) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:46:25-26 }) (Unqual {OccName: D9})) (HsQTvs (NoExtField) - [({ T17544.hs:46:28 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:46:28 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:46:28 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T17544.hs:46:28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:46:28 }) (Unqual {OccName: a}))))]) (Prefix) - ({ <no location info> } + (L + { <no location info> } (NoSig (NoExtField))) (Nothing)))] [] []))) - ,({ T17544.hs:(47,1)-(49,18) } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544.hs:(47,1)-(49,18) } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544.hs:(47,1)-(49,18) }) (InstD (NoExtField) (ClsInstD (NoExtField) (ClsInstDecl - (NoExtField) - ({ T17544.hs:47:10-15 } + ((,) + (ApiAnn + (Anchor + { T17544.hs:47:1-8 } + (UnchangedAnchor)) + [(AddApiAnn AnnInstance (AR { T17544.hs:47:1-8 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:47:17-21 }))] + (AnnComments + [])) + (NoAnnSortKey)) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:47:10-15 }) (HsSig (NoExtField) (HsOuterImplicit (NoExtField)) - ({ T17544.hs:47:10-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:47:10-15 }) (HsAppTy (NoExtField) - ({ T17544.hs:47:10-11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:47:10-11 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:47:10-11 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:47:10-11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:47:10-11 }) (Unqual {OccName: C9})))) - ({ T17544.hs:47:13-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:47:13-15 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:47:13-15 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:47:13-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:47:13-15 }) (Unqual {OccName: Int})))))))) - {Bag(Located (HsBind GhcPs)): + {Bag(LocatedA (HsBind GhcPs)): []} [] [] - [({ T17544.hs:(48,3)-(49,18) } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:(48,3)-(49,18) }) (DataFamInstDecl (FamEqn - (NoExtField) - ({ T17544.hs:48:8-9 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:48:8-9 }) (Unqual {OccName: D9})) (HsOuterImplicit (NoExtField)) [(HsValArg - ({ T17544.hs:48:11-13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:48:11-13 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:48:11-13 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:48:11-13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:48:11-13 }) (Unqual {OccName: Int})))))] (Prefix) (HsDataDefn - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:(48,3)-(49,18) } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T17544.hs:48:3-6 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:48:15-19 }))] + (AnnComments + [])) (DataType) (Nothing) (Nothing) (Nothing) - [({ T17544.hs:49:5-18 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:49:5-18 }) (ConDeclGADT - (NoExtField) - [({ T17544.hs:49:5-8 } + (ApiAnn + (Anchor + { T17544.hs:49:5-18 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { T17544.hs:49:10-11 }))] + (AnnComments + [])) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:49:5-8 }) (Unqual {OccName: MkD9}))] - ({ T17544.hs:49:13-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:49:13-18 }) (HsOuterImplicit (NoExtField))) (Nothing) (PrefixConGADT []) - ({ T17544.hs:49:13-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:49:13-18 }) (HsAppTy (NoExtField) - ({ T17544.hs:49:13-14 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:49:13-14 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:49:13-14 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:49:13-14 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:49:13-14 }) (Unqual {OccName: D9})))) - ({ T17544.hs:49:16-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:49:16-18 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:49:16-18 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:49:16-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:49:16-18 }) (Unqual {OccName: Int})))))) (Nothing)))] - ({ <no location info> } - [])))))] + []))))] (Nothing))))) - ,({ T17544.hs:52:1-32 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544.hs:52:1-32 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544.hs:52:1-32 }) (TyClD (NoExtField) (ClassDecl - (ExplicitBraces) + ((,,) + (ApiAnn + (Anchor + { T17544.hs:52:1-32 } + (UnchangedAnchor)) + [(AddApiAnn AnnClass (AR { T17544.hs:52:1-5 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:52:13-17 })) + ,(AddApiAnn AnnOpenC (AR { T17544.hs:52:19 })) + ,(AddApiAnn AnnCloseC (AR { T17544.hs:52:32 }))] + (AnnComments + [])) + (NoAnnSortKey) + (ExplicitBraces)) (Nothing) - ({ T17544.hs:52:7-9 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:52:7-9 }) (Unqual {OccName: C10})) (HsQTvs (NoExtField) - [({ T17544.hs:52:11 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:52:11 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:52:11 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T17544.hs:52:11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:52:11 }) (Unqual {OccName: a}))))]) (Prefix) [] [] - {Bag(Located (HsBind GhcPs)): + {Bag(LocatedA (HsBind GhcPs)): []} - [({ T17544.hs:52:21-30 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:52:21-30 }) (FamilyDecl - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:52:21-30 } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T17544.hs:52:21-24 }))] + (AnnComments + [])) (DataFamily) - ({ T17544.hs:52:26-28 } + (NotTopLevel) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:52:26-28 }) (Unqual {OccName: D10})) (HsQTvs (NoExtField) - [({ T17544.hs:52:30 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:52:30 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:52:30 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T17544.hs:52:30 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:52:30 }) (Unqual {OccName: a}))))]) (Prefix) - ({ <no location info> } + (L + { <no location info> } (NoSig (NoExtField))) (Nothing)))] [] []))) - ,({ T17544.hs:(53,1)-(55,20) } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544.hs:(53,1)-(55,20) } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544.hs:(53,1)-(55,20) }) (InstD (NoExtField) (ClsInstD (NoExtField) (ClsInstDecl - (NoExtField) - ({ T17544.hs:53:10-16 } + ((,) + (ApiAnn + (Anchor + { T17544.hs:53:1-8 } + (UnchangedAnchor)) + [(AddApiAnn AnnInstance (AR { T17544.hs:53:1-8 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:53:18-22 }))] + (AnnComments + [])) + (NoAnnSortKey)) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:53:10-16 }) (HsSig (NoExtField) (HsOuterImplicit (NoExtField)) - ({ T17544.hs:53:10-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:53:10-16 }) (HsAppTy (NoExtField) - ({ T17544.hs:53:10-12 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:53:10-12 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:53:10-12 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:53:10-12 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:53:10-12 }) (Unqual {OccName: C10})))) - ({ T17544.hs:53:14-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:53:14-16 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:53:14-16 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:53:14-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:53:14-16 }) (Unqual {OccName: Int})))))))) - {Bag(Located (HsBind GhcPs)): + {Bag(LocatedA (HsBind GhcPs)): []} [] [] - [({ T17544.hs:(54,3)-(55,20) } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:(54,3)-(55,20) }) (DataFamInstDecl (FamEqn - (NoExtField) - ({ T17544.hs:54:8-10 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:54:8-10 }) (Unqual {OccName: D10})) (HsOuterImplicit (NoExtField)) [(HsValArg - ({ T17544.hs:54:12-14 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:54:12-14 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:54:12-14 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:54:12-14 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:54:12-14 }) (Unqual {OccName: Int})))))] (Prefix) (HsDataDefn - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:(54,3)-(55,20) } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T17544.hs:54:3-6 })) + ,(AddApiAnn AnnWhere (AR { T17544.hs:54:16-20 }))] + (AnnComments + [])) (DataType) (Nothing) (Nothing) (Nothing) - [({ T17544.hs:55:5-20 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:55:5-20 }) (ConDeclGADT - (NoExtField) - [({ T17544.hs:55:5-9 } + (ApiAnn + (Anchor + { T17544.hs:55:5-20 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { T17544.hs:55:11-12 }))] + (AnnComments + [])) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:55:5-9 }) (Unqual {OccName: MkD10}))] - ({ T17544.hs:55:14-20 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:55:14-20 }) (HsOuterImplicit (NoExtField))) (Nothing) (PrefixConGADT []) - ({ T17544.hs:55:14-20 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:55:14-20 }) (HsAppTy (NoExtField) - ({ T17544.hs:55:14-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:55:14-16 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:55:14-16 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:55:14-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:55:14-16 }) (Unqual {OccName: D10})))) - ({ T17544.hs:55:18-20 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:55:18-20 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544.hs:55:18-20 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544.hs:55:18-20 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:55:18-20 }) (Unqual {OccName: Int})))))) (Nothing)))] - ({ <no location info> } - [])))))] + []))))] (Nothing))))) - ,({ T17544.hs:56:1-38 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544.hs:56:1-38 }) (DocD (NoExtField) (DocCommentPrev diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr index 2ebdf9dec9..c53e76def5 100644 --- a/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr +++ b/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr @@ -1,21 +1,61 @@ ==================== Parser AST ==================== -({ T17544_kw.hs:1:1 } +(L + { T17544_kw.hs:1:1 } (HsModule + (ApiAnn + (Anchor + { T17544_kw.hs:1:1 } + (UnchangedAnchor)) + (AnnsModule + [(AddApiAnn AnnModule (AR { T17544_kw.hs:11:1-6 })) + ,(AddApiAnn AnnWhere (AR { T17544_kw.hs:13:13-17 }))] + (AnnList + (Nothing) + (Nothing) + (Nothing) + [] + [])) + (AnnCommentsBalanced + [] + [(L + (Anchor + { T17544_kw.hs:25:1 } + (UnchangedAnchor)) + (AnnComment + (AnnEofComment) + { T17544_kw.hs:25:1 }))])) (VirtualBraces (1)) (Just - ({ T17544_kw.hs:13:3-11 } + (L + { T17544_kw.hs:13:3-11 } {ModuleName: T17544_kw})) (Nothing) [] - [({ T17544_kw.hs:(15,1)-(16,20) } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544_kw.hs:(15,1)-(16,20) } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544_kw.hs:(15,1)-(16,20) }) (TyClD (NoExtField) (DataDecl - (NoExtField) - ({ T17544_kw.hs:15:6-8 } + (ApiAnn + (Anchor + { T17544_kw.hs:(15,1)-(16,20) } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T17544_kw.hs:15:1-4 })) + ,(AddApiAnn AnnWhere (AR { T17544_kw.hs:16:3-7 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:15:6-8 }) (Unqual {OccName: Foo})) (HsQTvs @@ -23,42 +63,82 @@ []) (Prefix) (HsDataDefn - (NoExtField) + (ApiAnn + (Anchor + { T17544_kw.hs:(15,1)-(16,20) } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T17544_kw.hs:15:1-4 })) + ,(AddApiAnn AnnWhere (AR { T17544_kw.hs:16:3-7 }))] + (AnnComments + [])) (DataType) (Nothing) (Nothing) (Nothing) - [({ T17544_kw.hs:16:9-20 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:16:9-20 }) (ConDeclGADT - (NoExtField) - [({ T17544_kw.hs:16:9-13 } + (ApiAnn + (Anchor + { T17544_kw.hs:16:9-20 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { T17544_kw.hs:16:15-16 }))] + (AnnComments + [])) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:16:9-13 }) (Unqual {OccName: MkFoo}))] - ({ T17544_kw.hs:16:18-20 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:16:18-20 }) (HsOuterImplicit (NoExtField))) (Nothing) (PrefixConGADT []) - ({ T17544_kw.hs:16:18-20 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:16:18-20 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544_kw.hs:16:18-20 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544_kw.hs:16:18-20 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:16:18-20 }) (Unqual {OccName: Foo})))) (Just - ({ T17544_kw.hs:15:10-35 } + (L + { T17544_kw.hs:15:10-35 } (HsDocString " Bad comment for MkFoo")))))] - ({ <no location info> } - []))))) - ,({ T17544_kw.hs:(18,1)-(19,26) } + [])))) + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544_kw.hs:(18,1)-(19,26) } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544_kw.hs:(18,1)-(19,26) }) (TyClD (NoExtField) (DataDecl - (NoExtField) - ({ T17544_kw.hs:18:9-11 } + (ApiAnn + (Anchor + { T17544_kw.hs:(18,1)-(19,26) } + (UnchangedAnchor)) + [(AddApiAnn AnnNewtype (AR { T17544_kw.hs:18:1-7 })) + ,(AddApiAnn AnnWhere (AR { T17544_kw.hs:19:3-7 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:18:9-11 }) (Unqual {OccName: Bar})) (HsQTvs @@ -66,18 +146,34 @@ []) (Prefix) (HsDataDefn - (NoExtField) + (ApiAnn + (Anchor + { T17544_kw.hs:(18,1)-(19,26) } + (UnchangedAnchor)) + [(AddApiAnn AnnNewtype (AR { T17544_kw.hs:18:1-7 })) + ,(AddApiAnn AnnWhere (AR { T17544_kw.hs:19:3-7 }))] + (AnnComments + [])) (NewType) (Nothing) (Nothing) (Nothing) - [({ T17544_kw.hs:19:9-26 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:19:9-26 }) (ConDeclGADT - (NoExtField) - [({ T17544_kw.hs:19:9-13 } + (ApiAnn + (Anchor + { T17544_kw.hs:19:9-26 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { T17544_kw.hs:19:15-16 }))] + (AnnComments + [])) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:19:9-13 }) (Unqual {OccName: MkBar}))] - ({ T17544_kw.hs:19:18-26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:19:18-26 }) (HsOuterImplicit (NoExtField))) (Nothing) @@ -85,76 +181,148 @@ [(HsScaled (HsUnrestrictedArrow (NormalSyntax)) - ({ T17544_kw.hs:19:18-19 } + (L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544_kw.hs:19:18-19 } + (UnchangedAnchor)) + (AnnListItem + [(AddRarrowAnn + (AR { T17544_kw.hs:19:21-22 }))]) + (AnnComments + [])) { T17544_kw.hs:19:18-19 }) (HsTupleTy - (NoExtField) + (ApiAnn + (Anchor + { T17544_kw.hs:19:18 } + (UnchangedAnchor)) + (AnnParen + (AnnParens) + (AR { T17544_kw.hs:19:18 }) + (AR { T17544_kw.hs:19:19 })) + (AnnComments + [])) (HsBoxedOrConstraintTuple) [])))]) - ({ T17544_kw.hs:19:24-26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:19:24-26 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544_kw.hs:19:24-26 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544_kw.hs:19:24-26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:19:24-26 }) (Unqual {OccName: Bar})))) (Just - ({ T17544_kw.hs:18:13-38 } + (L + { T17544_kw.hs:18:13-38 } (HsDocString " Bad comment for MkBar")))))] - ({ <no location info> } - []))))) - ,({ T17544_kw.hs:(21,1)-(24,18) } + [])))) + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T17544_kw.hs:(21,1)-(24,18) } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T17544_kw.hs:(21,1)-(24,18) }) (TyClD (NoExtField) (ClassDecl - (VirtualBraces - (5)) + ((,,) + (ApiAnn + (Anchor + { T17544_kw.hs:(21,1)-(24,18) } + (UnchangedAnchor)) + [(AddApiAnn AnnClass (AR { T17544_kw.hs:21:1-5 })) + ,(AddApiAnn AnnWhere (AR { T17544_kw.hs:23:3-7 }))] + (AnnComments + [])) + (NoAnnSortKey) + (VirtualBraces + (5))) (Nothing) - ({ T17544_kw.hs:21:7-9 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:21:7-9 }) (Unqual {OccName: Cls})) (HsQTvs (NoExtField) - [({ T17544_kw.hs:21:11 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:21:11 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544_kw.hs:21:11 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T17544_kw.hs:21:11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:21:11 }) (Unqual {OccName: a}))))]) (Prefix) [] - [({ T17544_kw.hs:24:5-18 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:24:5-18 }) (ClassOpSig - (NoExtField) + (ApiAnn + (Anchor + { T17544_kw.hs:24:5-13 } + (UnchangedAnchor)) + (AnnSig + (AddApiAnn AnnDcolon (AR { T17544_kw.hs:24:15-16 })) + []) + (AnnComments + [])) (False) - [({ T17544_kw.hs:24:5-13 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:24:5-13 }) (Unqual {OccName: clsmethod}))] - ({ T17544_kw.hs:24:18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:24:18 }) (HsSig (NoExtField) (HsOuterImplicit (NoExtField)) - ({ T17544_kw.hs:24:18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:24:18 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T17544_kw.hs:24:18 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T17544_kw.hs:24:18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:24:18 }) (Unqual {OccName: a}))))))))] - {Bag(Located (HsBind GhcPs)): + {Bag(LocatedA (HsBind GhcPs)): []} [] [] - [({ T17544_kw.hs:22:5-34 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T17544_kw.hs:22:5-34 }) (DocCommentNext (HsDocString " Bad comment for clsmethod")))])))] (Nothing) (Just - ({ T17544_kw.hs:12:3-33 } + (L + { T17544_kw.hs:12:3-33 } (HsDocString " Bad comment for the module"))))) - - diff --git a/testsuite/tests/indexed-types/should_fail/GADTwrong1.stderr b/testsuite/tests/indexed-types/should_fail/GADTwrong1.stderr index 44dc9475c0..46d8c43ddc 100644 --- a/testsuite/tests/indexed-types/should_fail/GADTwrong1.stderr +++ b/testsuite/tests/indexed-types/should_fail/GADTwrong1.stderr @@ -11,7 +11,7 @@ GADTwrong1.hs:12:21: error: at GADTwrong1.hs:10:1-29 • In the expression: y In a case alternative: T y -> y - In the expression: case T x :: T (Const b) of { T y -> y } + In the expression: case T x :: T (Const b) of T y -> y • Relevant bindings include y :: c (bound at GADTwrong1.hs:12:16) coerce :: a -> b (bound at GADTwrong1.hs:11:1) diff --git a/testsuite/tests/indexed-types/should_fail/T9554.stderr b/testsuite/tests/indexed-types/should_fail/T9554.stderr index b62badda9d..2b4bf82a6e 100644 --- a/testsuite/tests/indexed-types/should_fail/T9554.stderr +++ b/testsuite/tests/indexed-types/should_fail/T9554.stderr @@ -21,4 +21,4 @@ T9554.hs:13:17: error: • In the first argument of ‘foo’, namely ‘Proxy’ In the expression: foo Proxy In the expression: - case foo Proxy of { Proxy -> putStrLn "Made it!" } + case foo Proxy of Proxy -> putStrLn "Made it!" diff --git a/testsuite/tests/linear/should_fail/Linear13.stderr b/testsuite/tests/linear/should_fail/Linear13.stderr index a781c20da6..4e8603c3e3 100644 --- a/testsuite/tests/linear/should_fail/Linear13.stderr +++ b/testsuite/tests/linear/should_fail/Linear13.stderr @@ -25,4 +25,4 @@ Linear13.hs:15:24: error: • Couldn't match type ‘'Many’ with ‘'One’ arising from multiplicity of ‘x’ • In an equation for ‘incorrectCasePromotion’: - incorrectCasePromotion x = case x of { (a, b) -> b } + incorrectCasePromotion x = case x of (a, b) -> b diff --git a/testsuite/tests/linear/should_fail/LinearBottomMult.stderr b/testsuite/tests/linear/should_fail/LinearBottomMult.stderr index fd846070d8..11ee3d10fd 100644 --- a/testsuite/tests/linear/should_fail/LinearBottomMult.stderr +++ b/testsuite/tests/linear/should_fail/LinearBottomMult.stderr @@ -3,4 +3,4 @@ LinearBottomMult.hs:13:3: error: • Couldn't match type ‘'Many’ with ‘'One’ arising from multiplicity of ‘x’ • In an equation for ‘f’: - f x = elim (U (\ (a :: Void) -> case a of)) + f x = elim (U (\ (a :: Void) -> case a of {})) diff --git a/testsuite/tests/module/mod185.stderr b/testsuite/tests/module/mod185.stderr index f2bb93c3e9..73a5ecab16 100644 --- a/testsuite/tests/module/mod185.stderr +++ b/testsuite/tests/module/mod185.stderr @@ -1,16 +1,54 @@ + ==================== Parser AST ==================== -({ mod185.hs:1:1 } +(L + { mod185.hs:1:1 } (HsModule + (ApiAnn + (Anchor + { mod185.hs:1:1 } + (UnchangedAnchor)) + (AnnsModule + [] + (AnnList + (Nothing) + (Nothing) + (Nothing) + [] + [])) + (AnnCommentsBalanced + [] + [(L + (Anchor + { mod185.hs:6:1 } + (UnchangedAnchor)) + (AnnComment + (AnnEofComment) + { mod185.hs:6:1 }))])) (VirtualBraces (1)) (Nothing) (Nothing) - [({ mod185.hs:3:1-24 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { mod185.hs:3:1-24 }) (ImportDecl - (NoExtField) + (ApiAnn + (Anchor + { mod185.hs:3:1-6 } + (UnchangedAnchor)) + (ApiAnnImportDecl + (AR { mod185.hs:3:1-6 }) + (Nothing) + (Nothing) + (Just + (AR { mod185.hs:3:16-24 })) + (Nothing) + (Nothing)) + (AnnComments + [])) (NoSourceText) - ({ mod185.hs:3:8-14 } + (L + { mod185.hs:3:8-14 } {ModuleName: Prelude}) (Nothing) (NotBoot) @@ -19,22 +57,40 @@ (False) (Nothing) (Nothing)))] - [({ mod185.hs:5:1-24 } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { mod185.hs:5:1-24 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { mod185.hs:5:1-24 }) (ValD (NoExtField) (FunBind (NoExtField) - ({ mod185.hs:5:1-4 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { mod185.hs:5:1-4 }) (Unqual {OccName: main})) (MG (NoExtField) - ({ mod185.hs:5:1-24 } - [({ mod185.hs:5:1-24 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { mod185.hs:5:1-24 }) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { mod185.hs:5:1-24 }) (Match - (NoExtField) + (ApiAnn + (Anchor + { mod185.hs:5:1-24 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (FunRhs - ({ mod185.hs:5:1-4 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { mod185.hs:5:1-4 }) (Unqual {OccName: main})) (Prefix) @@ -42,20 +98,30 @@ [] (GRHSs (NoExtField) - [({ mod185.hs:5:6-24 } + [(L + { mod185.hs:5:6-24 } (GRHS - (NoExtField) + (ApiAnn + (Anchor + { mod185.hs:5:6-24 } + (UnchangedAnchor)) + (GrhsAnn + (Nothing) + (AddApiAnn AnnEqual (AR { mod185.hs:5:6 }))) + (AnnComments + [])) [] - ({ mod185.hs:5:8-24 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { mod185.hs:5:8-24 }) (HsVar (NoExtField) - ({ mod185.hs:5:8-24 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { mod185.hs:5:8-24 }) (Qual {ModuleName: Prelude} {OccName: undefined}))))))] - ({ <no location info> } - (EmptyLocalBinds - (NoExtField))))))]) + (EmptyLocalBinds + (NoExtField)))))]) (FromSource)) [])))] (Nothing) diff --git a/testsuite/tests/parser/should_compile/DumpParsedAst.stderr b/testsuite/tests/parser/should_compile/DumpParsedAst.stderr index 640adcb50b..9c6885620d 100644 --- a/testsuite/tests/parser/should_compile/DumpParsedAst.stderr +++ b/testsuite/tests/parser/should_compile/DumpParsedAst.stderr @@ -1,19 +1,57 @@ ==================== Parser AST ==================== -({ DumpParsedAst.hs:1:1 } +(L + { DumpParsedAst.hs:1:1 } (HsModule + (ApiAnn + (Anchor + { DumpParsedAst.hs:1:1 } + (UnchangedAnchor)) + (AnnsModule + [(AddApiAnn AnnModule (AR { DumpParsedAst.hs:5:1-6 })) + ,(AddApiAnn AnnWhere (AR { DumpParsedAst.hs:5:22-26 }))] + (AnnList + (Nothing) + (Nothing) + (Nothing) + [] + [])) + (AnnCommentsBalanced + [] + [(L + (Anchor + { DumpParsedAst.hs:21:1 } + (UnchangedAnchor)) + (AnnComment + (AnnEofComment) + { DumpParsedAst.hs:21:1 }))])) (VirtualBraces (1)) (Just - ({ DumpParsedAst.hs:5:8-20 } + (L + { DumpParsedAst.hs:5:8-20 } {ModuleName: DumpParsedAst})) (Nothing) - [({ DumpParsedAst.hs:6:1-16 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:6:1-16 }) (ImportDecl - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:6:1-6 } + (UnchangedAnchor)) + (ApiAnnImportDecl + (AR { DumpParsedAst.hs:6:1-6 }) + (Nothing) + (Nothing) + (Nothing) + (Nothing) + (Nothing)) + (AnnComments + [])) (NoSourceText) - ({ DumpParsedAst.hs:6:8-16 } + (L + { DumpParsedAst.hs:6:8-16 } {ModuleName: Data.Kind}) (Nothing) (NotBoot) @@ -22,12 +60,28 @@ (False) (Nothing) (Nothing)))] - [({ DumpParsedAst.hs:8:1-30 } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { DumpParsedAst.hs:8:1-30 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { DumpParsedAst.hs:8:1-30 }) (TyClD (NoExtField) (DataDecl - (NoExtField) - ({ DumpParsedAst.hs:8:6-10 } + (ApiAnn + (Anchor + { DumpParsedAst.hs:8:1-30 } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { DumpParsedAst.hs:8:1-4 })) + ,(AddApiAnn AnnEqual (AR { DumpParsedAst.hs:8:12 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:8:6-10 }) (Unqual {OccName: Peano})) (HsQTvs @@ -35,407 +89,855 @@ []) (Prefix) (HsDataDefn - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:8:1-30 } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { DumpParsedAst.hs:8:1-4 })) + ,(AddApiAnn AnnEqual (AR { DumpParsedAst.hs:8:12 }))] + (AnnComments + [])) (DataType) (Nothing) (Nothing) (Nothing) - [({ DumpParsedAst.hs:8:14-17 } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { DumpParsedAst.hs:8:14-17 } + (UnchangedAnchor)) + (AnnListItem + [(AddVbarAnn + (AR { DumpParsedAst.hs:8:19 }))]) + (AnnComments + [])) { DumpParsedAst.hs:8:14-17 }) (ConDeclH98 - (NoExtField) - ({ DumpParsedAst.hs:8:14-17 } + (ApiAnn + (Anchor + { DumpParsedAst.hs:8:14-17 } + (UnchangedAnchor)) + [] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:8:14-17 }) (Unqual {OccName: Zero})) - ({ <no location info> } - (False)) + (False) [] (Nothing) (PrefixCon [] []) (Nothing))) - ,({ DumpParsedAst.hs:8:21-30 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:8:21-30 }) (ConDeclH98 - (NoExtField) - ({ DumpParsedAst.hs:8:21-24 } + (ApiAnn + (Anchor + { DumpParsedAst.hs:8:21-30 } + (UnchangedAnchor)) + [] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:8:21-24 }) (Unqual {OccName: Succ})) - ({ <no location info> } - (False)) + (False) [] (Nothing) (PrefixCon [] [(HsScaled (HsLinearArrow - (NormalSyntax)) - ({ DumpParsedAst.hs:8:26-30 } + (NormalSyntax) + (Nothing)) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:8:26-30 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:8:26-30 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:8:26-30 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:8:26-30 }) (Unqual {OccName: Peano})))))]) (Nothing)))] - ({ <no location info> } - []))))) - ,({ DumpParsedAst.hs:10:1-39 } + [])))) + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { DumpParsedAst.hs:10:1-39 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { DumpParsedAst.hs:10:1-39 }) (TyClD (NoExtField) (FamDecl (NoExtField) (FamilyDecl - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:10:1-45 } + (UnchangedAnchor)) + [(AddApiAnn AnnType (AR { DumpParsedAst.hs:10:1-4 })) + ,(AddApiAnn AnnFamily (AR { DumpParsedAst.hs:10:6-11 })) + ,(AddApiAnn AnnDcolon (AR { DumpParsedAst.hs:10:32-33 })) + ,(AddApiAnn AnnWhere (AR { DumpParsedAst.hs:10:41-45 })) + ,(AddApiAnn AnnCloseP (AR { DumpParsedAst.hs:10:30 })) + ,(AddApiAnn AnnOpenP (AR { DumpParsedAst.hs:10:20 }))] + (AnnComments + [])) (ClosedTypeFamily (Just - [({ DumpParsedAst.hs:11:3-36 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:3-36 }) (FamEqn - (NoExtField) - ({ DumpParsedAst.hs:11:3-8 } + (ApiAnn + (Anchor + { DumpParsedAst.hs:11:3-36 } + (UnchangedAnchor)) + [(AddApiAnn AnnEqual (AR { DumpParsedAst.hs:11:19 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:3-8 }) (Unqual {OccName: Length})) (HsOuterImplicit (NoExtField)) [(HsValArg - ({ DumpParsedAst.hs:11:10-17 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:10-17 }) (HsParTy - (NoExtField) - ({ DumpParsedAst.hs:11:11-16 } + (ApiAnn + (Anchor + { DumpParsedAst.hs:11:10 } + (UnchangedAnchor)) + (AnnParen + (AnnParens) + (AR { DumpParsedAst.hs:11:10 }) + (AR { DumpParsedAst.hs:11:17 })) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:11-16 }) (HsOpTy (NoExtField) - ({ DumpParsedAst.hs:11:11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:11 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:11:11 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:11:11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:11 }) (Unqual {OccName: a})))) - ({ DumpParsedAst.hs:11:13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:13 }) (Exact {Name: :})) - ({ DumpParsedAst.hs:11:15-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:15-16 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:11:15-16 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:11:15-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:15-16 }) (Unqual {OccName: as})))))))))] (Prefix) - ({ DumpParsedAst.hs:11:21-36 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:21-36 }) (HsAppTy (NoExtField) - ({ DumpParsedAst.hs:11:21-24 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:21-24 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:11:21-24 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:11:21-24 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:21-24 }) (Unqual {OccName: Succ})))) - ({ DumpParsedAst.hs:11:26-36 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:26-36 }) (HsParTy - (NoExtField) - ({ DumpParsedAst.hs:11:27-35 } + (ApiAnn + (Anchor + { DumpParsedAst.hs:11:26 } + (UnchangedAnchor)) + (AnnParen + (AnnParens) + (AR { DumpParsedAst.hs:11:26 }) + (AR { DumpParsedAst.hs:11:36 })) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:27-35 }) (HsAppTy (NoExtField) - ({ DumpParsedAst.hs:11:27-32 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:27-32 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:11:27-32 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:11:27-32 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:27-32 }) (Unqual {OccName: Length})))) - ({ DumpParsedAst.hs:11:34-35 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:34-35 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:11:34-35 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:11:34-35 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:11:34-35 }) (Unqual {OccName: as})))))))))))) - ,({ DumpParsedAst.hs:12:3-24 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:12:3-24 }) (FamEqn - (NoExtField) - ({ DumpParsedAst.hs:12:3-8 } + (ApiAnn + (Anchor + { DumpParsedAst.hs:12:3-24 } + (UnchangedAnchor)) + [(AddApiAnn AnnEqual (AR { DumpParsedAst.hs:12:19 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:12:3-8 }) (Unqual {OccName: Length})) (HsOuterImplicit (NoExtField)) [(HsValArg - ({ DumpParsedAst.hs:12:10-12 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:12:10-12 }) (HsExplicitListTy - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:12:10 } + (UnchangedAnchor)) + [(AddApiAnn AnnSimpleQuote (AR { DumpParsedAst.hs:12:10 })) + ,(AddApiAnn AnnOpenS (AR { DumpParsedAst.hs:12:11 })) + ,(AddApiAnn AnnCloseS (AR { DumpParsedAst.hs:12:12 }))] + (AnnComments + [])) (IsPromoted) [])))] (Prefix) - ({ DumpParsedAst.hs:12:21-24 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:12:21-24 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:12:21-24 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:12:21-24 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:12:21-24 }) (Unqual {OccName: Zero}))))))])) - ({ DumpParsedAst.hs:10:13-18 } + (TopLevel) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:10:13-18 }) (Unqual {OccName: Length})) (HsQTvs (NoExtField) - [({ DumpParsedAst.hs:10:21-29 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:10:20-30 }) (KindedTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:10:20-30 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { DumpParsedAst.hs:10:24-25 })) + ,(AddApiAnn AnnOpenP (AR { DumpParsedAst.hs:10:20 })) + ,(AddApiAnn AnnCloseP (AR { DumpParsedAst.hs:10:30 }))] + (AnnComments + [])) (()) - ({ DumpParsedAst.hs:10:21-22 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:10:21-22 }) (Unqual {OccName: as})) - ({ DumpParsedAst.hs:10:27-29 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:10:27-29 }) (HsListTy - (NoExtField) - ({ DumpParsedAst.hs:10:28 } + (ApiAnn + (Anchor + { DumpParsedAst.hs:10:27 } + (UnchangedAnchor)) + (AnnParen + (AnnParensSquare) + (AR { DumpParsedAst.hs:10:27 }) + (AR { DumpParsedAst.hs:10:29 })) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:10:28 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:10:28 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:10:28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:10:28 }) (Unqual {OccName: k}))))))))]) (Prefix) - ({ DumpParsedAst.hs:10:32-39 } + (L + { DumpParsedAst.hs:10:32-39 } (KindSig (NoExtField) - ({ DumpParsedAst.hs:10:35-39 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:10:35-39 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:10:35-39 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:10:35-39 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:10:35-39 }) (Unqual {OccName: Peano})))))) (Nothing))))) - ,({ DumpParsedAst.hs:15:1-29 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { DumpParsedAst.hs:15:1-29 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { DumpParsedAst.hs:15:1-29 }) (TyClD (NoExtField) (DataDecl - (NoExtField) - ({ DumpParsedAst.hs:15:6 } + (ApiAnn + (Anchor + { DumpParsedAst.hs:15:1-29 } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { DumpParsedAst.hs:15:1-4 })) + ,(AddApiAnn AnnEqual (AR { DumpParsedAst.hs:15:19 })) + ,(AddApiAnn AnnCloseP (AR { DumpParsedAst.hs:15:17 })) + ,(AddApiAnn AnnOpenP (AR { DumpParsedAst.hs:15:10 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:15:6 }) (Unqual {OccName: T})) (HsQTvs (NoExtField) - [({ DumpParsedAst.hs:15:8 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:15:8 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:15:8 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ DumpParsedAst.hs:15:8 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:15:8 }) (Unqual {OccName: f})))) - ,({ DumpParsedAst.hs:15:11-16 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:15:10-17 }) (KindedTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:15:10-17 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { DumpParsedAst.hs:15:13-14 })) + ,(AddApiAnn AnnOpenP (AR { DumpParsedAst.hs:15:10 })) + ,(AddApiAnn AnnCloseP (AR { DumpParsedAst.hs:15:17 }))] + (AnnComments + [])) (()) - ({ DumpParsedAst.hs:15:11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:15:11 }) (Unqual {OccName: a})) - ({ DumpParsedAst.hs:15:16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:15:16 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:15:16 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:15:16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:15:16 }) (Unqual {OccName: k}))))))]) (Prefix) (HsDataDefn - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:15:1-29 } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { DumpParsedAst.hs:15:1-4 })) + ,(AddApiAnn AnnEqual (AR { DumpParsedAst.hs:15:19 })) + ,(AddApiAnn AnnCloseP (AR { DumpParsedAst.hs:15:17 })) + ,(AddApiAnn AnnOpenP (AR { DumpParsedAst.hs:15:10 }))] + (AnnComments + [])) (DataType) (Nothing) (Nothing) (Nothing) - [({ DumpParsedAst.hs:15:21-29 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:15:21-29 }) (ConDeclH98 - (NoExtField) - ({ DumpParsedAst.hs:15:21-23 } + (ApiAnn + (Anchor + { DumpParsedAst.hs:15:21-29 } + (UnchangedAnchor)) + [] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:15:21-23 }) (Unqual {OccName: MkT})) - ({ <no location info> } - (False)) + (False) [] (Nothing) (PrefixCon [] [(HsScaled (HsLinearArrow - (NormalSyntax)) - ({ DumpParsedAst.hs:15:25-29 } + (NormalSyntax) + (Nothing)) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:15:25-29 }) (HsParTy - (NoExtField) - ({ DumpParsedAst.hs:15:26-28 } + (ApiAnn + (Anchor + { DumpParsedAst.hs:15:25 } + (UnchangedAnchor)) + (AnnParen + (AnnParens) + (AR { DumpParsedAst.hs:15:25 }) + (AR { DumpParsedAst.hs:15:29 })) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:15:26-28 }) (HsAppTy (NoExtField) - ({ DumpParsedAst.hs:15:26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:15:26 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:15:26 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:15:26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:15:26 }) (Unqual {OccName: f})))) - ({ DumpParsedAst.hs:15:28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:15:28 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:15:28 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:15:28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:15:28 }) (Unqual {OccName: a})))))))))]) (Nothing)))] - ({ <no location info> } - []))))) - ,({ DumpParsedAst.hs:17:1-48 } + [])))) + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { DumpParsedAst.hs:17:1-48 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { DumpParsedAst.hs:17:1-48 }) (TyClD (NoExtField) (FamDecl (NoExtField) (FamilyDecl - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:17:1-54 } + (UnchangedAnchor)) + [(AddApiAnn AnnType (AR { DumpParsedAst.hs:17:1-4 })) + ,(AddApiAnn AnnFamily (AR { DumpParsedAst.hs:17:6-11 })) + ,(AddApiAnn AnnDcolon (AR { DumpParsedAst.hs:17:42-43 })) + ,(AddApiAnn AnnWhere (AR { DumpParsedAst.hs:17:50-54 })) + ,(AddApiAnn AnnCloseP (AR { DumpParsedAst.hs:17:23 })) + ,(AddApiAnn AnnOpenP (AR { DumpParsedAst.hs:17:16 })) + ,(AddApiAnn AnnCloseP (AR { DumpParsedAst.hs:17:40 })) + ,(AddApiAnn AnnOpenP (AR { DumpParsedAst.hs:17:25 }))] + (AnnComments + [])) (ClosedTypeFamily (Just - [({ DumpParsedAst.hs:18:3-30 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:3-30 }) (FamEqn - (NoExtField) - ({ DumpParsedAst.hs:18:3-4 } + (ApiAnn + (Anchor + { DumpParsedAst.hs:18:3-30 } + (UnchangedAnchor)) + [(AddApiAnn AnnEqual (AR { DumpParsedAst.hs:18:17 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:3-4 }) (Unqual {OccName: F1})) (HsOuterImplicit (NoExtField)) [(HsTypeArg - { DumpParsedAst.hs:18:6-11 } - ({ DumpParsedAst.hs:18:7-11 } + { DumpParsedAst.hs:18:6 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:7-11 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:18:7-11 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:18:7-11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:7-11 }) (Unqual {OccName: Peano}))))) ,(HsValArg - ({ DumpParsedAst.hs:18:13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:13 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:18:13 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:18:13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:13 }) (Unqual {OccName: a}))))) ,(HsValArg - ({ DumpParsedAst.hs:18:15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:15 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:18:15 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:18:15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:15 }) (Unqual {OccName: f})))))] (Prefix) - ({ DumpParsedAst.hs:18:19-30 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:19-30 }) (HsAppTy (NoExtField) - ({ DumpParsedAst.hs:18:19-28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:19-28 }) (HsAppTy (NoExtField) - ({ DumpParsedAst.hs:18:19-26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:19-26 }) (HsAppKindTy - { DumpParsedAst.hs:18:21-26 } - ({ DumpParsedAst.hs:18:19 } + { DumpParsedAst.hs:18:21 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:19 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:18:19 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:18:19 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:19 }) (Unqual {OccName: T})))) - ({ DumpParsedAst.hs:18:22-26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:22-26 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:18:22-26 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:18:22-26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:22-26 }) (Unqual {OccName: Peano})))))) - ({ DumpParsedAst.hs:18:28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:28 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:18:28 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:18:28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:28 }) (Unqual {OccName: f})))))) - ({ DumpParsedAst.hs:18:30 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:30 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:18:30 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:18:30 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:18:30 }) (Unqual {OccName: a}))))))))])) - ({ DumpParsedAst.hs:17:13-14 } + (TopLevel) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:17:13-14 }) (Unqual {OccName: F1})) (HsQTvs (NoExtField) - [({ DumpParsedAst.hs:17:17-22 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:17:16-23 }) (KindedTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:17:16-23 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { DumpParsedAst.hs:17:19-20 })) + ,(AddApiAnn AnnOpenP (AR { DumpParsedAst.hs:17:16 })) + ,(AddApiAnn AnnCloseP (AR { DumpParsedAst.hs:17:23 }))] + (AnnComments + [])) (()) - ({ DumpParsedAst.hs:17:17 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:17:17 }) (Unqual {OccName: a})) - ({ DumpParsedAst.hs:17:22 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:17:22 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:17:22 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:17:22 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:17:22 }) (Unqual {OccName: k})))))) - ,({ DumpParsedAst.hs:17:26-39 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:17:25-40 }) (KindedTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:17:25-40 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { DumpParsedAst.hs:17:28-29 })) + ,(AddApiAnn AnnOpenP (AR { DumpParsedAst.hs:17:25 })) + ,(AddApiAnn AnnCloseP (AR { DumpParsedAst.hs:17:40 }))] + (AnnComments + [])) (()) - ({ DumpParsedAst.hs:17:26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:17:26 }) (Unqual {OccName: f})) - ({ DumpParsedAst.hs:17:31-39 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:17:31-39 }) (HsFunTy - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:17:31 } + (UnchangedAnchor)) + (AddRarrowAnn + (AR { DumpParsedAst.hs:17:33-34 })) + (AnnComments + [])) (HsUnrestrictedArrow (NormalSyntax)) - ({ DumpParsedAst.hs:17:31 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:17:31 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:17:31 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:17:31 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:17:31 }) (Unqual {OccName: k})))) - ({ DumpParsedAst.hs:17:36-39 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:17:36-39 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:17:36-39 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:17:36-39 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:17:36-39 }) (Unqual {OccName: Type}))))))))]) (Prefix) - ({ DumpParsedAst.hs:17:42-48 } + (L + { DumpParsedAst.hs:17:42-48 } (KindSig (NoExtField) - ({ DumpParsedAst.hs:17:45-48 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:17:45-48 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:17:45-48 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ DumpParsedAst.hs:17:45-48 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:17:45-48 }) (Unqual {OccName: Type})))))) (Nothing))))) - ,({ DumpParsedAst.hs:20:1-23 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { DumpParsedAst.hs:20:1-23 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { DumpParsedAst.hs:20:1-23 }) (ValD (NoExtField) (FunBind (NoExtField) - ({ DumpParsedAst.hs:20:1-4 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:20:1-4 }) (Unqual {OccName: main})) (MG (NoExtField) - ({ DumpParsedAst.hs:20:1-23 } - [({ DumpParsedAst.hs:20:1-23 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:20:1-23 }) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:20:1-23 }) (Match - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:20:1-23 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (FunRhs - ({ DumpParsedAst.hs:20:1-4 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:20:1-4 }) (Unqual {OccName: main})) (Prefix) @@ -443,32 +945,53 @@ [] (GRHSs (NoExtField) - [({ DumpParsedAst.hs:20:6-23 } + [(L + { DumpParsedAst.hs:20:6-23 } (GRHS - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:20:6-23 } + (UnchangedAnchor)) + (GrhsAnn + (Nothing) + (AddApiAnn AnnEqual (AR { DumpParsedAst.hs:20:6 }))) + (AnnComments + [])) [] - ({ DumpParsedAst.hs:20:8-23 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:20:8-23 }) (HsApp - (NoExtField) - ({ DumpParsedAst.hs:20:8-15 } + (ApiAnn + (Anchor + { DumpParsedAst.hs:20:8-23 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:20:8-15 }) (HsVar (NoExtField) - ({ DumpParsedAst.hs:20:8-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:20:8-15 }) (Unqual {OccName: putStrLn})))) - ({ DumpParsedAst.hs:20:17-23 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpParsedAst.hs:20:17-23 }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { DumpParsedAst.hs:20:17-23 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) (HsString - (SourceText - "\"hello\"") + (SourceText "hello") {FastString: "hello"})))))))] - ({ <no location info> } - (EmptyLocalBinds - (NoExtField))))))]) + (EmptyLocalBinds + (NoExtField)))))]) (FromSource)) [])))] (Nothing) (Nothing))) - - diff --git a/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr b/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr index ec4c1dd9bd..cbed41c027 100644 --- a/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr +++ b/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr @@ -9,226 +9,332 @@ (NValBinds [((,) (NonRecursive) - {Bag(Located (HsBind Name)): - [({ DumpRenamedAst.hs:27:1-23 } + {Bag(LocatedA (HsBind Name)): + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { DumpRenamedAst.hs:27:1-23 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { DumpRenamedAst.hs:27:1-23 }) (FunBind {NameSet: []} - ({ DumpRenamedAst.hs:27:1-4 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:27:1-4 }) {Name: DumpRenamedAst.main}) (MG (NoExtField) - ({ DumpRenamedAst.hs:27:1-23 } - [({ DumpRenamedAst.hs:27:1-23 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:27:1-23 }) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:27:1-23 }) (Match - (NoExtField) + (ApiAnnNotUsed) (FunRhs - ({ DumpRenamedAst.hs:27:1-4 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:27:1-4 }) {Name: DumpRenamedAst.main}) (Prefix) (NoSrcStrict)) [] (GRHSs (NoExtField) - [({ DumpRenamedAst.hs:27:6-23 } + [(L + { DumpRenamedAst.hs:27:6-23 } (GRHS - (NoExtField) + (ApiAnnNotUsed) [] - ({ DumpRenamedAst.hs:27:8-23 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:27:8-23 }) (HsApp - (NoExtField) - ({ DumpRenamedAst.hs:27:8-15 } + (ApiAnn + (Anchor + { DumpRenamedAst.hs:27:8-23 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:27:8-15 }) (HsVar (NoExtField) - ({ DumpRenamedAst.hs:27:8-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:27:8-15 }) {Name: System.IO.putStrLn}))) - ({ DumpRenamedAst.hs:27:17-23 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:27:17-23 }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { DumpRenamedAst.hs:27:17-23 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) (HsString - (SourceText - "\"hello\"") + (SourceText "hello") {FastString: "hello"})))))))] - ({ <no location info> } - (EmptyLocalBinds - (NoExtField))))))]) + (EmptyLocalBinds + (NoExtField)))))]) (FromSource)) []))]})] [])) [] [(TyClGroup (NoExtField) - [({ DumpRenamedAst.hs:10:1-30 } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { DumpRenamedAst.hs:10:1-30 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { DumpRenamedAst.hs:10:1-30 }) (DataDecl (DataDeclRn (True) {NameSet: [{Name: DumpRenamedAst.Peano}]}) - ({ DumpRenamedAst.hs:10:6-10 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:10:6-10 }) {Name: DumpRenamedAst.Peano}) (HsQTvs [] []) (Prefix) (HsDataDefn - (NoExtField) + (ApiAnnNotUsed) (DataType) (Nothing) (Nothing) (Nothing) - [({ DumpRenamedAst.hs:10:14-17 } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { DumpRenamedAst.hs:10:14-17 } + (UnchangedAnchor)) + (AnnListItem + [(AddVbarAnn + (AR { DumpRenamedAst.hs:10:19 }))]) + (AnnComments + [])) { DumpRenamedAst.hs:10:14-17 }) (ConDeclH98 - (NoExtField) - ({ DumpRenamedAst.hs:10:14-17 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:10:14-17 }) {Name: DumpRenamedAst.Zero}) - ({ <no location info> } - (False)) + (False) [] (Nothing) (PrefixCon [] []) (Nothing))) - ,({ DumpRenamedAst.hs:10:21-30 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:10:21-30 }) (ConDeclH98 - (NoExtField) - ({ DumpRenamedAst.hs:10:21-24 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:10:21-24 }) {Name: DumpRenamedAst.Succ}) - ({ <no location info> } - (False)) + (False) [] (Nothing) (PrefixCon [] [(HsScaled (HsLinearArrow - (NormalSyntax)) - ({ DumpRenamedAst.hs:10:26-30 } + (NormalSyntax) + (Nothing)) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:10:26-30 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:10:26-30 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:10:26-30 }) {Name: DumpRenamedAst.Peano}))))]) (Nothing)))] - ({ <no location info> } - []))))] + [])))] [] [] []) ,(TyClGroup (NoExtField) - [({ DumpRenamedAst.hs:12:1-39 } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { DumpRenamedAst.hs:12:1-39 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { DumpRenamedAst.hs:12:1-39 }) (FamDecl (NoExtField) (FamilyDecl - (NoExtField) + (ApiAnnNotUsed) (ClosedTypeFamily (Just - [({ DumpRenamedAst.hs:13:3-36 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:3-36 }) (FamEqn - (NoExtField) - ({ DumpRenamedAst.hs:13:3-8 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:3-8 }) {Name: DumpRenamedAst.Length}) (HsOuterImplicit [{Name: a} ,{Name: as}]) [(HsValArg - ({ DumpRenamedAst.hs:13:10-17 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:10-17 }) (HsParTy - (NoExtField) - ({ DumpRenamedAst.hs:13:11-16 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:11-16 }) (HsOpTy (NoExtField) - ({ DumpRenamedAst.hs:13:11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:11 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:13:11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:11 }) {Name: a}))) - ({ DumpRenamedAst.hs:13:13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:13 }) {Name: :}) - ({ DumpRenamedAst.hs:13:15-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:15-16 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:13:15-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:15-16 }) {Name: as}))))))))] (Prefix) - ({ DumpRenamedAst.hs:13:21-36 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:21-36 }) (HsAppTy (NoExtField) - ({ DumpRenamedAst.hs:13:21-24 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:21-24 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:13:21-24 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:21-24 }) {Name: DumpRenamedAst.Succ}))) - ({ DumpRenamedAst.hs:13:26-36 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:26-36 }) (HsParTy - (NoExtField) - ({ DumpRenamedAst.hs:13:27-35 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:27-35 }) (HsAppTy (NoExtField) - ({ DumpRenamedAst.hs:13:27-32 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:27-32 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:13:27-32 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:27-32 }) {Name: DumpRenamedAst.Length}))) - ({ DumpRenamedAst.hs:13:34-35 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:34-35 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:13:34-35 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:13:34-35 }) {Name: as}))))))))))) - ,({ DumpRenamedAst.hs:14:3-24 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:14:3-24 }) (FamEqn - (NoExtField) - ({ DumpRenamedAst.hs:14:3-8 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:14:3-8 }) {Name: DumpRenamedAst.Length}) (HsOuterImplicit []) [(HsValArg - ({ DumpRenamedAst.hs:14:10-12 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:14:10-12 }) (HsExplicitListTy (NoExtField) (IsPromoted) [])))] (Prefix) - ({ DumpRenamedAst.hs:14:21-24 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:14:21-24 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:14:21-24 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:14:21-24 }) {Name: DumpRenamedAst.Zero})))))])) - ({ DumpRenamedAst.hs:12:13-18 } + (TopLevel) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:12:13-18 }) {Name: DumpRenamedAst.Length}) (HsQTvs [{Name: k}] - [({ DumpRenamedAst.hs:12:21-29 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:12:20-30 }) (KindedTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpRenamedAst.hs:12:20-30 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { DumpRenamedAst.hs:12:24-25 })) + ,(AddApiAnn AnnOpenP (AR { DumpRenamedAst.hs:12:20 })) + ,(AddApiAnn AnnCloseP (AR { DumpRenamedAst.hs:12:30 }))] + (AnnComments + [])) (()) - ({ DumpRenamedAst.hs:12:21-22 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:12:21-22 }) {Name: as}) - ({ DumpRenamedAst.hs:12:27-29 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:12:27-29 }) (HsListTy - (NoExtField) - ({ DumpRenamedAst.hs:12:28 } + (ApiAnn + (Anchor + { DumpRenamedAst.hs:12:27 } + (UnchangedAnchor)) + (AnnParen + (AnnParensSquare) + (AR { DumpRenamedAst.hs:12:27 }) + (AR { DumpRenamedAst.hs:12:29 })) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:12:28 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:12:28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:12:28 }) {Name: k})))))))]) (Prefix) - ({ DumpRenamedAst.hs:12:32-39 } + (L + { DumpRenamedAst.hs:12:32-39 } (KindSig (NoExtField) - ({ DumpRenamedAst.hs:12:35-39 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:12:35-39 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:12:35-39 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:12:35-39 }) {Name: DumpRenamedAst.Peano}))))) (Nothing))))] [] @@ -236,137 +342,227 @@ []) ,(TyClGroup (NoExtField) - [({ DumpRenamedAst.hs:16:1-33 } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { DumpRenamedAst.hs:16:1-33 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { DumpRenamedAst.hs:16:1-33 }) (FamDecl (NoExtField) (FamilyDecl - (NoExtField) + (ApiAnnNotUsed) (DataFamily) - ({ DumpRenamedAst.hs:16:13-15 } + (TopLevel) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:16:13-15 }) {Name: DumpRenamedAst.Nat}) (HsQTvs [{Name: k}] []) (Prefix) - ({ DumpRenamedAst.hs:16:17-33 } + (L + { DumpRenamedAst.hs:16:17-33 } (KindSig (NoExtField) - ({ DumpRenamedAst.hs:16:20-33 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:16:20-33 }) (HsFunTy - (NoExtField) + (ApiAnn + (Anchor + { DumpRenamedAst.hs:16:20 } + (UnchangedAnchor)) + (AddRarrowAnn + (AR { DumpRenamedAst.hs:16:22-23 })) + (AnnComments + [])) (HsUnrestrictedArrow (NormalSyntax)) - ({ DumpRenamedAst.hs:16:20 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:16:20 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:16:20 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:16:20 }) {Name: k}))) - ({ DumpRenamedAst.hs:16:25-33 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:16:25-33 }) (HsFunTy - (NoExtField) + (ApiAnn + (Anchor + { DumpRenamedAst.hs:16:25 } + (UnchangedAnchor)) + (AddRarrowAnn + (AR { DumpRenamedAst.hs:16:27-28 })) + (AnnComments + [])) (HsUnrestrictedArrow (NormalSyntax)) - ({ DumpRenamedAst.hs:16:25 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:16:25 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:16:25 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:16:25 }) {Name: k}))) - ({ DumpRenamedAst.hs:16:30-33 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:16:30-33 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:16:30-33 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:16:30-33 }) {Name: GHC.Types.Type}))))))))) (Nothing))))] [] [] - [({ DumpRenamedAst.hs:(19,1)-(20,45) } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { DumpRenamedAst.hs:(19,1)-(20,45) } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { DumpRenamedAst.hs:(19,1)-(20,45) }) (DataFamInstD (NoExtField) (DataFamInstDecl (FamEqn - (NoExtField) - ({ DumpRenamedAst.hs:19:18-20 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:18-20 }) {Name: DumpRenamedAst.Nat}) (HsOuterImplicit [{Name: a} ,{Name: k}]) [(HsValArg - ({ DumpRenamedAst.hs:19:22-37 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:22-37 }) (HsParTy - (NoExtField) - ({ DumpRenamedAst.hs:19:23-36 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:23-36 }) (HsKindSig - (NoExtField) - ({ DumpRenamedAst.hs:19:23 } + (ApiAnn + (Anchor + { DumpRenamedAst.hs:19:23 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { DumpRenamedAst.hs:19:25-26 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:23 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:19:23 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:23 }) {Name: a}))) - ({ DumpRenamedAst.hs:19:28-36 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:28-36 }) (HsFunTy - (NoExtField) + (ApiAnn + (Anchor + { DumpRenamedAst.hs:19:28 } + (UnchangedAnchor)) + (AddRarrowAnn + (AR { DumpRenamedAst.hs:19:30-31 })) + (AnnComments + [])) (HsUnrestrictedArrow (NormalSyntax)) - ({ DumpRenamedAst.hs:19:28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:28 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:19:28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:28 }) {Name: k}))) - ({ DumpRenamedAst.hs:19:33-36 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:33-36 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:19:33-36 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:33-36 }) {Name: GHC.Types.Type}))))))))))] (Prefix) (HsDataDefn - (NoExtField) + (ApiAnnNotUsed) (NewType) (Nothing) (Nothing) (Just - ({ DumpRenamedAst.hs:19:42-60 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:42-60 }) (HsFunTy - (NoExtField) + (ApiAnn + (Anchor + { DumpRenamedAst.hs:19:42-52 } + (UnchangedAnchor)) + (AddRarrowAnn + (AR { DumpRenamedAst.hs:19:54-55 })) + (AnnComments + [])) (HsUnrestrictedArrow (NormalSyntax)) - ({ DumpRenamedAst.hs:19:42-52 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:42-52 }) (HsParTy - (NoExtField) - ({ DumpRenamedAst.hs:19:43-51 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:43-51 }) (HsFunTy - (NoExtField) + (ApiAnn + (Anchor + { DumpRenamedAst.hs:19:43 } + (UnchangedAnchor)) + (AddRarrowAnn + (AR { DumpRenamedAst.hs:19:45-46 })) + (AnnComments + [])) (HsUnrestrictedArrow (NormalSyntax)) - ({ DumpRenamedAst.hs:19:43 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:43 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:19:43 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:43 }) {Name: k}))) - ({ DumpRenamedAst.hs:19:48-51 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:48-51 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:19:48-51 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:48-51 }) {Name: GHC.Types.Type}))))))) - ({ DumpRenamedAst.hs:19:57-60 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:57-60 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:19:57-60 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:19:57-60 }) {Name: GHC.Types.Type})))))) - [({ DumpRenamedAst.hs:20:3-45 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:3-45 }) (ConDeclGADT - (NoExtField) - [({ DumpRenamedAst.hs:20:3-5 } + (ApiAnnNotUsed) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:3-5 }) {Name: DumpRenamedAst.Nat})] - ({ DumpRenamedAst.hs:20:10-45 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:10-45 }) (HsOuterImplicit [{Name: f} ,{Name: g}])) @@ -375,279 +571,424 @@ [(HsScaled (HsUnrestrictedArrow (NormalSyntax)) - ({ DumpRenamedAst.hs:20:10-34 } + (L + (SrcSpanAnn (ApiAnn + (Anchor + { DumpRenamedAst.hs:20:10-34 } + (UnchangedAnchor)) + (AnnListItem + [(AddRarrowAnn + (AR { DumpRenamedAst.hs:20:36-37 }))]) + (AnnComments + [])) { DumpRenamedAst.hs:20:10-34 }) (HsParTy - (NoExtField) - ({ DumpRenamedAst.hs:20:11-33 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:11-33 }) (HsForAllTy (NoExtField) (HsForAllInvis - (NoExtField) - [({ DumpRenamedAst.hs:20:18-19 } + (ApiAnnNotUsed) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:18-19 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpRenamedAst.hs:20:18-19 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (SpecifiedSpec) - ({ DumpRenamedAst.hs:20:18-19 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:18-19 }) {Name: xx})))]) - ({ DumpRenamedAst.hs:20:22-33 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:22-33 }) (HsFunTy - (NoExtField) + (ApiAnn + (Anchor + { DumpRenamedAst.hs:20:22-25 } + (UnchangedAnchor)) + (AddRarrowAnn + (AR { DumpRenamedAst.hs:20:27-28 })) + (AnnComments + [])) (HsUnrestrictedArrow (NormalSyntax)) - ({ DumpRenamedAst.hs:20:22-25 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:22-25 }) (HsAppTy (NoExtField) - ({ DumpRenamedAst.hs:20:22 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:22 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:20:22 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:22 }) {Name: f}))) - ({ DumpRenamedAst.hs:20:24-25 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:24-25 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:20:24-25 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:24-25 }) {Name: xx}))))) - ({ DumpRenamedAst.hs:20:30-33 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:30-33 }) (HsAppTy (NoExtField) - ({ DumpRenamedAst.hs:20:30 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:30 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:20:30 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:30 }) {Name: g}))) - ({ DumpRenamedAst.hs:20:32-33 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:32-33 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:20:32-33 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:32-33 }) {Name: xx}))))))))))))]) - ({ DumpRenamedAst.hs:20:39-45 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:39-45 }) (HsAppTy (NoExtField) - ({ DumpRenamedAst.hs:20:39-43 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:39-43 }) (HsAppTy (NoExtField) - ({ DumpRenamedAst.hs:20:39-41 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:39-41 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:20:39-41 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:39-41 }) {Name: DumpRenamedAst.Nat}))) - ({ DumpRenamedAst.hs:20:43 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:43 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:20:43 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:43 }) {Name: f}))))) - ({ DumpRenamedAst.hs:20:45 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:45 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:20:45 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:20:45 }) {Name: g}))))) (Nothing)))] - ({ <no location info> } - []))))))]) + [])))))]) ,(TyClGroup (NoExtField) - [({ DumpRenamedAst.hs:22:1-29 } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { DumpRenamedAst.hs:22:1-29 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { DumpRenamedAst.hs:22:1-29 }) (DataDecl (DataDeclRn (False) {NameSet: [{Name: a} ,{Name: f}]}) - ({ DumpRenamedAst.hs:22:6 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:22:6 }) {Name: DumpRenamedAst.T}) (HsQTvs [{Name: k}] - [({ DumpRenamedAst.hs:22:8 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:22:8 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpRenamedAst.hs:22:8 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ DumpRenamedAst.hs:22:8 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:22:8 }) {Name: f}))) - ,({ DumpRenamedAst.hs:22:11-16 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:22:10-17 }) (KindedTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpRenamedAst.hs:22:10-17 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { DumpRenamedAst.hs:22:13-14 })) + ,(AddApiAnn AnnOpenP (AR { DumpRenamedAst.hs:22:10 })) + ,(AddApiAnn AnnCloseP (AR { DumpRenamedAst.hs:22:17 }))] + (AnnComments + [])) (()) - ({ DumpRenamedAst.hs:22:11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:22:11 }) {Name: a}) - ({ DumpRenamedAst.hs:22:16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:22:16 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:22:16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:22:16 }) {Name: k})))))]) (Prefix) (HsDataDefn - (NoExtField) + (ApiAnnNotUsed) (DataType) (Nothing) (Nothing) (Nothing) - [({ DumpRenamedAst.hs:22:21-29 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:22:21-29 }) (ConDeclH98 - (NoExtField) - ({ DumpRenamedAst.hs:22:21-23 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:22:21-23 }) {Name: DumpRenamedAst.MkT}) - ({ <no location info> } - (False)) + (False) [] (Nothing) (PrefixCon [] [(HsScaled (HsLinearArrow - (NormalSyntax)) - ({ DumpRenamedAst.hs:22:25-29 } + (NormalSyntax) + (Nothing)) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:22:25-29 }) (HsParTy - (NoExtField) - ({ DumpRenamedAst.hs:22:26-28 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:22:26-28 }) (HsAppTy (NoExtField) - ({ DumpRenamedAst.hs:22:26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:22:26 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:22:26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:22:26 }) {Name: f}))) - ({ DumpRenamedAst.hs:22:28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:22:28 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:22:28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:22:28 }) {Name: a}))))))))]) (Nothing)))] - ({ <no location info> } - []))))] + [])))] [] [] []) ,(TyClGroup (NoExtField) - [({ DumpRenamedAst.hs:24:1-48 } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { DumpRenamedAst.hs:24:1-48 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { DumpRenamedAst.hs:24:1-48 }) (FamDecl (NoExtField) (FamilyDecl - (NoExtField) + (ApiAnnNotUsed) (ClosedTypeFamily (Just - [({ DumpRenamedAst.hs:25:3-30 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:3-30 }) (FamEqn - (NoExtField) - ({ DumpRenamedAst.hs:25:3-4 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:3-4 }) {Name: DumpRenamedAst.F1}) (HsOuterImplicit [{Name: a} ,{Name: f}]) [(HsTypeArg - { DumpRenamedAst.hs:25:6-11 } - ({ DumpRenamedAst.hs:25:7-11 } + { DumpRenamedAst.hs:25:6 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:7-11 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:25:7-11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:7-11 }) {Name: DumpRenamedAst.Peano})))) ,(HsValArg - ({ DumpRenamedAst.hs:25:13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:13 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:25:13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:13 }) {Name: a})))) ,(HsValArg - ({ DumpRenamedAst.hs:25:15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:15 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:25:15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:15 }) {Name: f}))))] (Prefix) - ({ DumpRenamedAst.hs:25:19-30 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:19-30 }) (HsAppTy (NoExtField) - ({ DumpRenamedAst.hs:25:19-28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:19-28 }) (HsAppTy (NoExtField) - ({ DumpRenamedAst.hs:25:19-26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:19-26 }) (HsAppKindTy - { DumpRenamedAst.hs:25:21-26 } - ({ DumpRenamedAst.hs:25:19 } + { DumpRenamedAst.hs:25:21 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:19 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:25:19 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:19 }) {Name: DumpRenamedAst.T}))) - ({ DumpRenamedAst.hs:25:22-26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:22-26 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:25:22-26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:22-26 }) {Name: DumpRenamedAst.Peano}))))) - ({ DumpRenamedAst.hs:25:28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:28 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:25:28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:28 }) {Name: f}))))) - ({ DumpRenamedAst.hs:25:30 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:30 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:25:30 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:25:30 }) {Name: a})))))))])) - ({ DumpRenamedAst.hs:24:13-14 } + (TopLevel) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:24:13-14 }) {Name: DumpRenamedAst.F1}) (HsQTvs [{Name: k}] - [({ DumpRenamedAst.hs:24:17-22 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:24:16-23 }) (KindedTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpRenamedAst.hs:24:16-23 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { DumpRenamedAst.hs:24:19-20 })) + ,(AddApiAnn AnnOpenP (AR { DumpRenamedAst.hs:24:16 })) + ,(AddApiAnn AnnCloseP (AR { DumpRenamedAst.hs:24:23 }))] + (AnnComments + [])) (()) - ({ DumpRenamedAst.hs:24:17 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:24:17 }) {Name: a}) - ({ DumpRenamedAst.hs:24:22 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:24:22 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:24:22 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:24:22 }) {Name: k}))))) - ,({ DumpRenamedAst.hs:24:26-39 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:24:25-40 }) (KindedTyVar - (NoExtField) + (ApiAnn + (Anchor + { DumpRenamedAst.hs:24:25-40 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { DumpRenamedAst.hs:24:28-29 })) + ,(AddApiAnn AnnOpenP (AR { DumpRenamedAst.hs:24:25 })) + ,(AddApiAnn AnnCloseP (AR { DumpRenamedAst.hs:24:40 }))] + (AnnComments + [])) (()) - ({ DumpRenamedAst.hs:24:26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:24:26 }) {Name: f}) - ({ DumpRenamedAst.hs:24:31-39 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:24:31-39 }) (HsFunTy - (NoExtField) + (ApiAnn + (Anchor + { DumpRenamedAst.hs:24:31 } + (UnchangedAnchor)) + (AddRarrowAnn + (AR { DumpRenamedAst.hs:24:33-34 })) + (AnnComments + [])) (HsUnrestrictedArrow (NormalSyntax)) - ({ DumpRenamedAst.hs:24:31 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:24:31 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:24:31 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:24:31 }) {Name: k}))) - ({ DumpRenamedAst.hs:24:36-39 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:24:36-39 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:24:36-39 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:24:36-39 }) {Name: GHC.Types.Type})))))))]) (Prefix) - ({ DumpRenamedAst.hs:24:42-48 } + (L + { DumpRenamedAst.hs:24:42-48 } (KindSig (NoExtField) - ({ DumpRenamedAst.hs:24:45-48 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:24:45-48 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ DumpRenamedAst.hs:24:45-48 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:24:45-48 }) {Name: GHC.Types.Type}))))) (Nothing))))] [] @@ -661,11 +1002,13 @@ [] [] []) - [({ DumpRenamedAst.hs:5:8-21 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:5:8-21 }) (ImportDecl (NoExtField) (NoSourceText) - ({ DumpRenamedAst.hs:5:8-21 } + (L + { DumpRenamedAst.hs:5:8-21 } {ModuleName: Prelude}) (Nothing) (NotBoot) @@ -674,11 +1017,13 @@ (True) (Nothing) (Nothing))) - ,({ DumpRenamedAst.hs:6:1-16 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:6:1-16 }) (ImportDecl (NoExtField) (NoSourceText) - ({ DumpRenamedAst.hs:6:8-16 } + (L + { DumpRenamedAst.hs:6:8-16 } {ModuleName: Data.Kind}) (Nothing) (NotBoot) @@ -687,11 +1032,13 @@ (False) (Nothing) (Nothing))) - ,({ DumpRenamedAst.hs:8:1-23 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:8:1-23 }) (ImportDecl (NoExtField) (NoSourceText) - ({ DumpRenamedAst.hs:8:8-16 } + (L + { DumpRenamedAst.hs:8:8-16 } {ModuleName: Data.Kind}) (Nothing) (NotBoot) @@ -702,15 +1049,30 @@ (Just ((,) (False) - ({ DumpRenamedAst.hs:8:18-23 } - [({ DumpRenamedAst.hs:8:19-22 } + (L + (SrcSpanAnn (ApiAnn + (Anchor + { DumpRenamedAst.hs:8:18-23 } + (UnchangedAnchor)) + (AnnList + (Nothing) + (Just + (AddApiAnn AnnOpenP (AR { DumpRenamedAst.hs:8:18 }))) + (Just + (AddApiAnn AnnCloseP (AR { DumpRenamedAst.hs:8:23 }))) + [] + []) + (AnnComments + [])) { DumpRenamedAst.hs:8:18-23 }) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:8:19-22 }) (IEThingAbs - (NoExtField) - ({ DumpRenamedAst.hs:8:19-22 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:8:19-22 }) (IEName - ({ DumpRenamedAst.hs:8:19-22 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpRenamedAst.hs:8:19-22 }) {Name: GHC.Types.Type})))))])))))] (Nothing) - (Nothing))) - - + (Nothing)))
\ No newline at end of file diff --git a/testsuite/tests/parser/should_compile/DumpTypecheckedAst.stderr b/testsuite/tests/parser/should_compile/DumpTypecheckedAst.stderr index 45488ba165..12471e3f38 100644 --- a/testsuite/tests/parser/should_compile/DumpTypecheckedAst.stderr +++ b/testsuite/tests/parser/should_compile/DumpTypecheckedAst.stderr @@ -1,544 +1,1148 @@ ==================== Typechecker AST ==================== -{Bag(Located (HsBind Var)): - [({ <no location info> } +{Bag(LocatedA (HsBind Var)): + [(L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (VarBind (NoExtField) {Var: DumpTypecheckedAst.$tcT} - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) {HsWord{64}Prim (1374752024144278257) (NoSourceText)})))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) {HsWord{64}Prim (13654949607623281177) (NoSourceText)})))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: DumpTypecheckedAst.$trModule}))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsPar - (NoExtField) - ({ <no location info> } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) (HsStringPrim (NoSourceText) "T"))))))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) {HsInt{64}Prim (1) (SourceText "1")})))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: $krep}))))))) - ,({ <no location info> } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (VarBind (NoExtField) {Var: DumpTypecheckedAst.$tc'MkT} - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) {HsWord{64}Prim (10715337633704422415) (NoSourceText)})))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) {HsWord{64}Prim (12411373583424111944) (NoSourceText)})))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: DumpTypecheckedAst.$trModule}))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsPar - (NoExtField) - ({ <no location info> } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) (HsStringPrim (NoSourceText) "'MkT"))))))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) {HsInt{64}Prim (3) (SourceText "3")})))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: $krep}))))))) - ,({ <no location info> } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (VarBind (NoExtField) {Var: DumpTypecheckedAst.$tcPeano} - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) {HsWord{64}Prim (14073232900889011755) (NoSourceText)})))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) {HsWord{64}Prim (2739668351064589274) (NoSourceText)})))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: DumpTypecheckedAst.$trModule}))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsPar - (NoExtField) - ({ <no location info> } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) (HsStringPrim (NoSourceText) "Peano"))))))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) {HsInt{64}Prim (0) (SourceText "0")})))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: GHC.Types.krep$*}))))))) - ,({ <no location info> } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (VarBind (NoExtField) {Var: DumpTypecheckedAst.$tc'Zero} - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) {HsWord{64}Prim (13760111476013868540) (NoSourceText)})))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) {HsWord{64}Prim (12314848029315386153) (NoSourceText)})))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: DumpTypecheckedAst.$trModule}))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsPar - (NoExtField) - ({ <no location info> } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) (HsStringPrim (NoSourceText) "'Zero"))))))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) {HsInt{64}Prim (0) (SourceText "0")})))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: $krep}))))))) - ,({ <no location info> } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (VarBind (NoExtField) {Var: DumpTypecheckedAst.$tc'Succ} - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) {HsWord{64}Prim (1143980031331647856) (NoSourceText)})))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) {HsWord{64}Prim (14802086722010293686) (NoSourceText)})))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: DumpTypecheckedAst.$trModule}))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsPar - (NoExtField) - ({ <no location info> } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) (HsStringPrim (NoSourceText) "'Succ"))))))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) {HsInt{64}Prim (0) (SourceText "0")})))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: $krep}))))))) - ,({ <no location info> } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (VarBind (NoExtField) {Var: $krep} - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) (HsInt (NoExtField) (IL - (SourceText - "2") + (SourceText 2) (False) (2))))))))) - ,({ <no location info> } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (VarBind (NoExtField) {Var: $krep} - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) (HsInt (NoExtField) (IL - (SourceText - "1") + (SourceText 1) (False) (1))))))))) - ,({ <no location info> } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (VarBind (NoExtField) {Var: $krep} - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) (HsInt (NoExtField) (IL - (SourceText - "0") + (SourceText 0) (False) (0))))))))) - ,({ <no location info> } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (VarBind (NoExtField) {Var: $krep} - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: $krep}))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: $krep}))))))) - ,({ <no location info> } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (VarBind (NoExtField) {Var: $krep} - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: $krep}))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: GHC.Types.krep$*}))))))) - ,({ <no location info> } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (VarBind (NoExtField) {Var: $krep} - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: $krep}))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: $krep}))))))) - ,({ <no location info> } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (VarBind (NoExtField) {Var: $krep} - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: $krep}))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: $krep}))))))) - ,({ <no location info> } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (VarBind (NoExtField) {Var: $krep} - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: $krep}))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: $krep}))))))) - ,({ <no location info> } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (VarBind (NoExtField) {Var: $krep} - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: DumpTypecheckedAst.$tcT}))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsPar - (NoExtField) - ({ <no location info> } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (XExpr (WrapExpr (HsWrap @@ -549,21 +1153,39 @@ (HsConLikeOut (NoExtField) ({abstract:ConLike})))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: $krep}))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsPar - (NoExtField) - ({ <no location info> } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (XExpr (WrapExpr (HsWrap @@ -574,21 +1196,39 @@ (HsConLikeOut (NoExtField) ({abstract:ConLike})))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: $krep}))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsPar - (NoExtField) - ({ <no location info> } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (XExpr (WrapExpr (HsWrap @@ -599,12 +1239,15 @@ (HsConLikeOut (NoExtField) ({abstract:ConLike})))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: $krep}))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (XExpr (WrapExpr (HsWrap @@ -615,26 +1258,45 @@ (HsConLikeOut (NoExtField) ({abstract:ConLike})))))))))))))))))))))) - ,({ <no location info> } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (VarBind (NoExtField) {Var: $krep} - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: DumpTypecheckedAst.$tcPeano}))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (XExpr (WrapExpr (HsWrap @@ -645,53 +1307,102 @@ (HsConLikeOut (NoExtField) ({abstract:ConLike})))))))))) - ,({ <no location info> } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (VarBind (NoExtField) {Var: DumpTypecheckedAst.$trModule} - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsPar - (NoExtField) - ({ <no location info> } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) (HsStringPrim (NoSourceText) "main"))))))))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsPar - (NoExtField) - ({ <no location info> } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsApp - (NoExtField) - ({ <no location info> } + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsConLikeOut (NoExtField) ({abstract:ConLike}))) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { placeholder:-1:-1 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) (HsStringPrim (NoSourceText) "DumpTypecheckedAst"))))))))))) - ,({ DumpTypecheckedAst.hs:19:1-23 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpTypecheckedAst.hs:19:1-23 }) (AbsBinds (NoExtField) [] @@ -704,11 +1415,20 @@ (SpecPrags []))] [({abstract:TcEvBinds})] - {Bag(Located (HsBind Var)): - [({ DumpTypecheckedAst.hs:19:1-23 } + {Bag(LocatedA (HsBind Var)): + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { DumpTypecheckedAst.hs:19:1-23 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { DumpTypecheckedAst.hs:19:1-23 }) (FunBind (WpHole) - ({ DumpTypecheckedAst.hs:19:1-4 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpTypecheckedAst.hs:19:1-4 }) {Var: main}) (MG (MatchGroupTc @@ -718,42 +1438,52 @@ [(TyConApp ({abstract:TyCon}) [])])) - ({ DumpTypecheckedAst.hs:19:1-23 } - [({ DumpTypecheckedAst.hs:19:1-23 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpTypecheckedAst.hs:19:1-23 }) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { DumpTypecheckedAst.hs:19:1-23 }) (Match - (NoExtField) + (ApiAnnNotUsed) (FunRhs - ({ DumpTypecheckedAst.hs:19:1-4 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpTypecheckedAst.hs:19:1-4 }) {Name: main}) (Prefix) (NoSrcStrict)) [] (GRHSs (NoExtField) - [({ DumpTypecheckedAst.hs:19:6-23 } + [(L + { DumpTypecheckedAst.hs:19:6-23 } (GRHS - (NoExtField) + (ApiAnnNotUsed) [] - ({ DumpTypecheckedAst.hs:19:8-23 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpTypecheckedAst.hs:19:8-23 }) (HsApp - (NoExtField) - ({ DumpTypecheckedAst.hs:19:8-15 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpTypecheckedAst.hs:19:8-15 }) (HsVar (NoExtField) - ({ <no location info> } + (L + (SrcSpanAnn (ApiAnnNotUsed) { <no location info> }) {Var: putStrLn}))) - ({ DumpTypecheckedAst.hs:19:17-23 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { DumpTypecheckedAst.hs:19:17-23 }) (HsLit - (NoExtField) + (ApiAnn + (Anchor + { DumpTypecheckedAst.hs:19:17-23 } + (UnchangedAnchor)) + (NoApiAnns) + (AnnComments + [])) (HsString - (SourceText - "\"hello\"") + (SourceText "hello") {FastString: "hello"})))))))] - ({ <no location info> } - (EmptyLocalBinds - (NoExtField))))))]) + (EmptyLocalBinds + (NoExtField)))))]) (FromSource)) []))]} - (False)))]} - - + (False)))]}
\ No newline at end of file diff --git a/testsuite/tests/parser/should_compile/KindSigs.stderr b/testsuite/tests/parser/should_compile/KindSigs.stderr index a8597046e2..12a15b02f1 100644 --- a/testsuite/tests/parser/should_compile/KindSigs.stderr +++ b/testsuite/tests/parser/should_compile/KindSigs.stderr @@ -1,19 +1,57 @@ ==================== Parser AST ==================== -({ KindSigs.hs:1:1 } +(L + { KindSigs.hs:1:1 } (HsModule + (ApiAnn + (Anchor + { KindSigs.hs:1:1 } + (UnchangedAnchor)) + (AnnsModule + [(AddApiAnn AnnModule (AR { KindSigs.hs:6:1-6 })) + ,(AddApiAnn AnnWhere (AR { KindSigs.hs:6:17-21 }))] + (AnnList + (Nothing) + (Nothing) + (Nothing) + [] + [])) + (AnnCommentsBalanced + [] + [(L + (Anchor + { KindSigs.hs:36:1 } + (UnchangedAnchor)) + (AnnComment + (AnnEofComment) + { KindSigs.hs:36:1 }))])) (VirtualBraces (1)) (Just - ({ KindSigs.hs:6:8-15 } + (L + { KindSigs.hs:6:8-15 } {ModuleName: KindSigs})) (Nothing) - [({ KindSigs.hs:8:1-16 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:8:1-16 }) (ImportDecl - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:8:1-6 } + (UnchangedAnchor)) + (ApiAnnImportDecl + (AR { KindSigs.hs:8:1-6 }) + (Nothing) + (Nothing) + (Nothing) + (Nothing) + (Nothing)) + (AnnComments + [])) (NoSourceText) - ({ KindSigs.hs:8:8-16 } + (L + { KindSigs.hs:8:8-16 } {ModuleName: Data.Kind}) (Nothing) (NotBoot) @@ -22,579 +60,1410 @@ (False) (Nothing) (Nothing)))] - [({ KindSigs.hs:11:1-17 } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:11:1-17 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { KindSigs.hs:11:1-17 }) (TyClD (NoExtField) (FamDecl (NoExtField) (FamilyDecl - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:11:1-23 } + (UnchangedAnchor)) + [(AddApiAnn AnnType (AR { KindSigs.hs:11:1-4 })) + ,(AddApiAnn AnnFamily (AR { KindSigs.hs:11:6-11 })) + ,(AddApiAnn AnnWhere (AR { KindSigs.hs:11:19-23 }))] + (AnnComments + [])) (ClosedTypeFamily (Just - [({ KindSigs.hs:12:3-21 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:12:3-21 }) (FamEqn - (NoExtField) - ({ KindSigs.hs:12:3-5 } + (ApiAnn + (Anchor + { KindSigs.hs:12:3-21 } + (UnchangedAnchor)) + [(AddApiAnn AnnEqual (AR { KindSigs.hs:12:9 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:12:3-5 }) (Unqual {OccName: Foo})) (HsOuterImplicit (NoExtField)) [(HsValArg - ({ KindSigs.hs:12:7 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:12:7 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:12:7 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:12:7 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:12:7 }) (Unqual {OccName: a})))))] (Prefix) - ({ KindSigs.hs:12:11-21 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:12:11-21 }) (HsKindSig - (NoExtField) - ({ KindSigs.hs:12:11-13 } + (ApiAnn + (Anchor + { KindSigs.hs:12:11-13 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { KindSigs.hs:12:15-16 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:12:11-13 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:12:11-13 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:12:11-13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:12:11-13 }) (Unqual {OccName: Int})))) - ({ KindSigs.hs:12:18-21 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:12:18-21 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:12:18-21 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:12:18-21 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:12:18-21 }) (Unqual {OccName: Type}))))))))])) - ({ KindSigs.hs:11:13-15 } + (TopLevel) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:11:13-15 }) (Unqual {OccName: Foo})) (HsQTvs (NoExtField) - [({ KindSigs.hs:11:17 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:11:17 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:11:17 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ KindSigs.hs:11:17 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:11:17 }) (Unqual {OccName: a}))))]) (Prefix) - ({ <no location info> } + (L + { <no location info> } (NoSig (NoExtField))) (Nothing))))) - ,({ KindSigs.hs:15:1-51 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:15:1-51 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { KindSigs.hs:15:1-51 }) (TyClD (NoExtField) (SynDecl - (NoExtField) - ({ KindSigs.hs:15:6-8 } + (ApiAnn + (Anchor + { KindSigs.hs:15:1-51 } + (UnchangedAnchor)) + [(AddApiAnn AnnType (AR { KindSigs.hs:15:1-4 })) + ,(AddApiAnn AnnEqual (AR { KindSigs.hs:15:12 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:15:6-8 }) (Unqual {OccName: Bar})) (HsQTvs (NoExtField) - [({ KindSigs.hs:15:10 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:15:10 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:15:10 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ KindSigs.hs:15:10 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:15:10 }) (Unqual {OccName: a}))))]) (Prefix) - ({ KindSigs.hs:15:14-51 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:15:14-51 }) (HsTupleTy - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:15:14 } + (UnchangedAnchor)) + (AnnParen + (AnnParens) + (AR { KindSigs.hs:15:14 }) + (AR { KindSigs.hs:15:51 })) + (AnnComments + [])) (HsBoxedOrConstraintTuple) - [({ KindSigs.hs:15:16-26 } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:15:16-26 } + (UnchangedAnchor)) + (AnnListItem + [(AddCommaAnn + (AR { KindSigs.hs:15:27 }))]) + (AnnComments + [])) { KindSigs.hs:15:16-26 }) (HsKindSig - (NoExtField) - ({ KindSigs.hs:15:16-18 } + (ApiAnn + (Anchor + { KindSigs.hs:15:16-18 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { KindSigs.hs:15:20-21 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:15:16-18 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:15:16-18 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:15:16-18 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:15:16-18 }) (Unqual {OccName: Int})))) - ({ KindSigs.hs:15:23-26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:15:23-26 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:15:23-26 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:15:23-26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:15:23-26 }) (Unqual {OccName: Type})))))) - ,({ KindSigs.hs:15:29-32 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:15:29-32 } + (UnchangedAnchor)) + (AnnListItem + [(AddCommaAnn + (AR { KindSigs.hs:15:33 }))]) + (AnnComments + [])) { KindSigs.hs:15:29-32 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:15:29-32 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:15:29-32 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:15:29-32 }) (Unqual {OccName: Bool})))) - ,({ KindSigs.hs:15:35-49 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:15:35-49 }) (HsKindSig - (NoExtField) - ({ KindSigs.hs:15:35-41 } + (ApiAnn + (Anchor + { KindSigs.hs:15:35-41 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { KindSigs.hs:15:43-44 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:15:35-41 }) (HsAppTy (NoExtField) - ({ KindSigs.hs:15:35-39 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:15:35-39 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:15:35-39 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:15:35-39 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:15:35-39 }) (Unqual {OccName: Maybe})))) - ({ KindSigs.hs:15:41 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:15:41 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:15:41 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:15:41 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:15:41 }) (Unqual {OccName: a})))))) - ({ KindSigs.hs:15:46-49 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:15:46-49 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:15:46-49 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:15:46-49 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:15:46-49 }) (Unqual {OccName: Type}))))))]))))) - ,({ KindSigs.hs:16:1-54 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:16:1-54 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { KindSigs.hs:16:1-54 }) (TyClD (NoExtField) (SynDecl - (NoExtField) - ({ KindSigs.hs:16:6-9 } + (ApiAnn + (Anchor + { KindSigs.hs:16:1-54 } + (UnchangedAnchor)) + [(AddApiAnn AnnType (AR { KindSigs.hs:16:1-4 })) + ,(AddApiAnn AnnEqual (AR { KindSigs.hs:16:13 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:16:6-9 }) (Unqual {OccName: Bar'})) (HsQTvs (NoExtField) - [({ KindSigs.hs:16:11 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:16:11 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:16:11 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ KindSigs.hs:16:11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:16:11 }) (Unqual {OccName: a}))))]) (Prefix) - ({ KindSigs.hs:16:15-54 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:16:15-54 }) (HsTupleTy - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:16:15-16 } + (UnchangedAnchor)) + (AnnParen + (AnnParensHash) + (AR { KindSigs.hs:16:15-16 }) + (AR { KindSigs.hs:16:53-54 })) + (AnnComments + [])) (HsUnboxedTuple) - [({ KindSigs.hs:16:18-28 } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:16:18-28 } + (UnchangedAnchor)) + (AnnListItem + [(AddCommaAnn + (AR { KindSigs.hs:16:29 }))]) + (AnnComments + [])) { KindSigs.hs:16:18-28 }) (HsKindSig - (NoExtField) - ({ KindSigs.hs:16:18-20 } + (ApiAnn + (Anchor + { KindSigs.hs:16:18-20 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { KindSigs.hs:16:22-23 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:16:18-20 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:16:18-20 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:16:18-20 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:16:18-20 }) (Unqual {OccName: Int})))) - ({ KindSigs.hs:16:25-28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:16:25-28 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:16:25-28 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:16:25-28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:16:25-28 }) (Unqual {OccName: Type})))))) - ,({ KindSigs.hs:16:31-34 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:16:31-34 } + (UnchangedAnchor)) + (AnnListItem + [(AddCommaAnn + (AR { KindSigs.hs:16:35 }))]) + (AnnComments + [])) { KindSigs.hs:16:31-34 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:16:31-34 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:16:31-34 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:16:31-34 }) (Unqual {OccName: Bool})))) - ,({ KindSigs.hs:16:37-51 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:16:37-51 }) (HsKindSig - (NoExtField) - ({ KindSigs.hs:16:37-43 } + (ApiAnn + (Anchor + { KindSigs.hs:16:37-43 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { KindSigs.hs:16:45-46 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:16:37-43 }) (HsAppTy (NoExtField) - ({ KindSigs.hs:16:37-41 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:16:37-41 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:16:37-41 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:16:37-41 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:16:37-41 }) (Unqual {OccName: Maybe})))) - ({ KindSigs.hs:16:43 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:16:43 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:16:43 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:16:43 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:16:43 }) (Unqual {OccName: a})))))) - ({ KindSigs.hs:16:48-51 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:16:48-51 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:16:48-51 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:16:48-51 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:16:48-51 }) (Unqual {OccName: Type}))))))]))))) - ,({ KindSigs.hs:19:1-26 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:19:1-26 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { KindSigs.hs:19:1-26 }) (TyClD (NoExtField) (SynDecl - (NoExtField) - ({ KindSigs.hs:19:6-8 } + (ApiAnn + (Anchor + { KindSigs.hs:19:1-26 } + (UnchangedAnchor)) + [(AddApiAnn AnnType (AR { KindSigs.hs:19:1-4 })) + ,(AddApiAnn AnnEqual (AR { KindSigs.hs:19:10 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:19:6-8 }) (Unqual {OccName: Baz})) (HsQTvs (NoExtField) []) (Prefix) - ({ KindSigs.hs:19:12-26 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:19:12-26 }) (HsListTy - (NoExtField) - ({ KindSigs.hs:19:14-24 } + (ApiAnn + (Anchor + { KindSigs.hs:19:12 } + (UnchangedAnchor)) + (AnnParen + (AnnParensSquare) + (AR { KindSigs.hs:19:12 }) + (AR { KindSigs.hs:19:26 })) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:19:14-24 }) (HsKindSig - (NoExtField) - ({ KindSigs.hs:19:14-16 } + (ApiAnn + (Anchor + { KindSigs.hs:19:14-16 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { KindSigs.hs:19:18-19 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:19:14-16 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:19:14-16 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:19:14-16 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:19:14-16 }) (Unqual {OccName: Int})))) - ({ KindSigs.hs:19:21-24 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:19:21-24 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:19:21-24 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:19:21-24 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:19:21-24 }) (Unqual {OccName: Type}))))))))))) - ,({ KindSigs.hs:22:1-44 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:22:1-44 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { KindSigs.hs:22:1-44 }) (SigD (NoExtField) (TypeSig - (NoExtField) - [({ KindSigs.hs:22:1-3 } + (ApiAnn + (Anchor + { KindSigs.hs:22:1-3 } + (UnchangedAnchor)) + (AnnSig + (AddApiAnn AnnDcolon (AR { KindSigs.hs:22:5-6 })) + []) + (AnnComments + [])) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:22:1-3 }) (Unqual {OccName: qux}))] (HsWC (NoExtField) - ({ KindSigs.hs:22:8-44 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:22:8-44 }) (HsSig (NoExtField) (HsOuterImplicit (NoExtField)) - ({ KindSigs.hs:22:8-44 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:22:8-44 }) (HsFunTy - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:22:8-20 } + (UnchangedAnchor)) + (AddRarrowAnn + (AR { KindSigs.hs:22:22-23 })) + (AnnComments + [])) (HsUnrestrictedArrow (NormalSyntax)) - ({ KindSigs.hs:22:8-20 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:22:8-20 }) (HsParTy - (NoExtField) - ({ KindSigs.hs:22:9-19 } + (ApiAnn + (Anchor + { KindSigs.hs:22:8 } + (UnchangedAnchor)) + (AnnParen + (AnnParens) + (AR { KindSigs.hs:22:8 }) + (AR { KindSigs.hs:22:20 })) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:22:9-19 }) (HsKindSig - (NoExtField) - ({ KindSigs.hs:22:9-11 } + (ApiAnn + (Anchor + { KindSigs.hs:22:9-11 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { KindSigs.hs:22:13-14 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:22:9-11 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:22:9-11 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:22:9-11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:22:9-11 }) (Unqual {OccName: Int})))) - ({ KindSigs.hs:22:16-19 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:22:16-19 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:22:16-19 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:22:16-19 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:22:16-19 }) (Unqual {OccName: Type})))))))) - ({ KindSigs.hs:22:25-44 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:22:25-44 }) (HsFunTy - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:22:25-28 } + (UnchangedAnchor)) + (AddRarrowAnn + (AR { KindSigs.hs:22:30-31 })) + (AnnComments + [])) (HsUnrestrictedArrow (NormalSyntax)) - ({ KindSigs.hs:22:25-28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:22:25-28 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:22:25-28 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:22:25-28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:22:25-28 }) (Unqual {OccName: Bool})))) - ({ KindSigs.hs:22:33-44 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:22:33-44 }) (HsParTy - (NoExtField) - ({ KindSigs.hs:22:34-43 } + (ApiAnn + (Anchor + { KindSigs.hs:22:33 } + (UnchangedAnchor)) + (AnnParen + (AnnParens) + (AR { KindSigs.hs:22:33 }) + (AR { KindSigs.hs:22:44 })) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:22:34-43 }) (HsKindSig - (NoExtField) - ({ KindSigs.hs:22:34-35 } + (ApiAnn + (Anchor + { KindSigs.hs:22:34-35 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { KindSigs.hs:22:37-38 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:22:34-35 }) (HsTupleTy - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:22:34 } + (UnchangedAnchor)) + (AnnParen + (AnnParens) + (AR { KindSigs.hs:22:34 }) + (AR { KindSigs.hs:22:35 })) + (AnnComments + [])) (HsBoxedOrConstraintTuple) [])) - ({ KindSigs.hs:22:40-43 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:22:40-43 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:22:40-43 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:22:40-43 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:22:40-43 }) (Unqual {OccName: Type})))))))))))))))))) - ,({ KindSigs.hs:23:1-12 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:23:1-12 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { KindSigs.hs:23:1-12 }) (ValD (NoExtField) (FunBind (NoExtField) - ({ KindSigs.hs:23:1-3 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:23:1-3 }) (Unqual {OccName: qux})) (MG (NoExtField) - ({ KindSigs.hs:23:1-12 } - [({ KindSigs.hs:23:1-12 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:23:1-12 }) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:23:1-12 }) (Match - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:23:1-12 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (FunRhs - ({ KindSigs.hs:23:1-3 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:23:1-3 }) (Unqual {OccName: qux})) (Prefix) (NoSrcStrict)) - [({ KindSigs.hs:23:5 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:23:5 }) (WildPat (NoExtField))) - ,({ KindSigs.hs:23:7 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:23:7 }) (WildPat (NoExtField)))] (GRHSs (NoExtField) - [({ KindSigs.hs:23:9-12 } + [(L + { KindSigs.hs:23:9-12 } (GRHS - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:23:9-12 } + (UnchangedAnchor)) + (GrhsAnn + (Nothing) + (AddApiAnn AnnEqual (AR { KindSigs.hs:23:9 }))) + (AnnComments + [])) [] - ({ KindSigs.hs:23:11-12 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:23:11-12 }) (HsVar (NoExtField) - ({ KindSigs.hs:23:11-12 } + (L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:23:11-12 } + (UnchangedAnchor)) + (NameAnnOnly + (NameParens) + (AR { KindSigs.hs:23:11 }) + (AR { KindSigs.hs:23:12 }) + []) + (AnnComments + [])) { KindSigs.hs:23:11-12 }) (Exact {Name: ()}))))))] - ({ <no location info> } - (EmptyLocalBinds - (NoExtField))))))]) + (EmptyLocalBinds + (NoExtField)))))]) (FromSource)) []))) - ,({ KindSigs.hs:26:1-29 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:26:1-29 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { KindSigs.hs:26:1-29 }) (TyClD (NoExtField) (SynDecl - (NoExtField) - ({ KindSigs.hs:26:6-9 } + (ApiAnn + (Anchor + { KindSigs.hs:26:1-29 } + (UnchangedAnchor)) + [(AddApiAnn AnnType (AR { KindSigs.hs:26:1-4 })) + ,(AddApiAnn AnnEqual (AR { KindSigs.hs:26:11 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:26:6-9 }) (Unqual {OccName: Quux})) (HsQTvs (NoExtField) []) (Prefix) - ({ KindSigs.hs:26:13-29 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:26:13-29 }) (HsExplicitListTy - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:26:13 } + (UnchangedAnchor)) + [(AddApiAnn AnnSimpleQuote (AR { KindSigs.hs:26:13 })) + ,(AddApiAnn AnnOpenS (AR { KindSigs.hs:26:14 })) + ,(AddApiAnn AnnCloseS (AR { KindSigs.hs:26:29 }))] + (AnnComments + [])) (IsPromoted) - [({ KindSigs.hs:26:16-27 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:26:16-27 }) (HsKindSig - (NoExtField) - ({ KindSigs.hs:26:16-19 } + (ApiAnn + (Anchor + { KindSigs.hs:26:16-19 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { KindSigs.hs:26:21-22 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:26:16-19 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:26:16-19 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:26:16-19 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:26:16-19 }) (Unqual {OccName: True})))) - ({ KindSigs.hs:26:24-27 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:26:24-27 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:26:24-27 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:26:24-27 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:26:24-27 }) (Unqual {OccName: Bool}))))))]))))) - ,({ KindSigs.hs:27:1-45 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:27:1-45 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { KindSigs.hs:27:1-45 }) (TyClD (NoExtField) (SynDecl - (NoExtField) - ({ KindSigs.hs:27:6-10 } + (ApiAnn + (Anchor + { KindSigs.hs:27:1-45 } + (UnchangedAnchor)) + [(AddApiAnn AnnType (AR { KindSigs.hs:27:1-4 })) + ,(AddApiAnn AnnEqual (AR { KindSigs.hs:27:12 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:27:6-10 }) (Unqual {OccName: Quux'})) (HsQTvs (NoExtField) []) (Prefix) - ({ KindSigs.hs:27:14-45 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:27:14-45 }) (HsExplicitListTy - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:27:14 } + (UnchangedAnchor)) + [(AddApiAnn AnnOpenS (AR { KindSigs.hs:27:14 })) + ,(AddApiAnn AnnCloseS (AR { KindSigs.hs:27:45 }))] + (AnnComments + [])) (NotPromoted) - [({ KindSigs.hs:27:16-27 } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:27:16-27 } + (UnchangedAnchor)) + (AnnListItem + [(AddCommaAnn + (AR { KindSigs.hs:27:28 }))]) + (AnnComments + [])) { KindSigs.hs:27:16-27 }) (HsKindSig - (NoExtField) - ({ KindSigs.hs:27:16-19 } + (ApiAnn + (Anchor + { KindSigs.hs:27:16-19 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { KindSigs.hs:27:21-22 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:27:16-19 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:27:16-19 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:27:16-19 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:27:16-19 }) (Unqual {OccName: True})))) - ({ KindSigs.hs:27:24-27 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:27:24-27 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:27:24-27 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:27:24-27 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:27:24-27 }) (Unqual {OccName: Bool})))))) - ,({ KindSigs.hs:27:30-42 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:27:30-42 }) (HsKindSig - (NoExtField) - ({ KindSigs.hs:27:30-34 } + (ApiAnn + (Anchor + { KindSigs.hs:27:30-34 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { KindSigs.hs:27:36-37 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:27:30-34 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:27:30-34 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:27:30-34 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:27:30-34 }) (Unqual {OccName: False})))) - ({ KindSigs.hs:27:39-42 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:27:39-42 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:27:39-42 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:27:39-42 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:27:39-42 }) (Unqual {OccName: Bool}))))))]))))) - ,({ KindSigs.hs:28:1-44 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:28:1-44 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { KindSigs.hs:28:1-44 }) (TyClD (NoExtField) (SynDecl - (NoExtField) - ({ KindSigs.hs:28:6-10 } + (ApiAnn + (Anchor + { KindSigs.hs:28:1-44 } + (UnchangedAnchor)) + [(AddApiAnn AnnType (AR { KindSigs.hs:28:1-4 })) + ,(AddApiAnn AnnEqual (AR { KindSigs.hs:28:14 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:28:6-10 }) (Unqual {OccName: Quuux})) (HsQTvs (NoExtField) - [({ KindSigs.hs:28:12 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:28:12 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:28:12 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ KindSigs.hs:28:12 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:28:12 }) (Unqual {OccName: b}))))]) (Prefix) - ({ KindSigs.hs:28:16-44 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:28:16-44 }) (HsExplicitTupleTy - (NoExtField) - [({ KindSigs.hs:28:19-39 } + (ApiAnn + (Anchor + { KindSigs.hs:28:16 } + (UnchangedAnchor)) + [(AddApiAnn AnnSimpleQuote (AR { KindSigs.hs:28:16 })) + ,(AddApiAnn AnnOpenP (AR { KindSigs.hs:28:17 })) + ,(AddApiAnn AnnCloseP (AR { KindSigs.hs:28:44 }))] + (AnnComments + [])) + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:28:19-39 } + (UnchangedAnchor)) + (AnnListItem + [(AddCommaAnn + (AR { KindSigs.hs:28:40 }))]) + (AnnComments + [])) { KindSigs.hs:28:19-39 }) (HsKindSig - (NoExtField) - ({ KindSigs.hs:28:19-29 } + (ApiAnn + (Anchor + { KindSigs.hs:28:19-29 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { KindSigs.hs:28:31-32 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:28:19-29 }) (HsExplicitListTy - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:28:19 } + (UnchangedAnchor)) + [(AddApiAnn AnnOpenS (AR { KindSigs.hs:28:19 })) + ,(AddApiAnn AnnCloseS (AR { KindSigs.hs:28:29 }))] + (AnnComments + [])) (NotPromoted) - [({ KindSigs.hs:28:20-22 } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:28:20-22 } + (UnchangedAnchor)) + (AnnListItem + [(AddCommaAnn + (AR { KindSigs.hs:28:23 }))]) + (AnnComments + [])) { KindSigs.hs:28:20-22 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:28:20-22 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:28:20-22 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:28:20-22 }) (Unqual {OccName: Int})))) - ,({ KindSigs.hs:28:25-28 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:28:25-28 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:28:25-28 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:28:25-28 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:28:25-28 }) (Unqual {OccName: Bool}))))])) - ({ KindSigs.hs:28:34-39 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:28:34-39 }) (HsListTy - (NoExtField) - ({ KindSigs.hs:28:35-38 } + (ApiAnn + (Anchor + { KindSigs.hs:28:34 } + (UnchangedAnchor)) + (AnnParen + (AnnParensSquare) + (AR { KindSigs.hs:28:34 }) + (AR { KindSigs.hs:28:39 })) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:28:35-38 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:28:35-38 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:28:35-38 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:28:35-38 }) (Unqual {OccName: Type})))))))) - ,({ KindSigs.hs:28:42 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:28:42 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:28:42 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:28:42 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:28:42 }) (Unqual {OccName: b}))))]))))) - ,({ KindSigs.hs:31:1-31 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:31:1-31 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { KindSigs.hs:31:1-31 }) (TyClD (NoExtField) (SynDecl - (NoExtField) - ({ KindSigs.hs:31:6-17 } + (ApiAnn + (Anchor + { KindSigs.hs:31:1-31 } + (UnchangedAnchor)) + [(AddApiAnn AnnType (AR { KindSigs.hs:31:1-4 })) + ,(AddApiAnn AnnEqual (AR { KindSigs.hs:31:19 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:31:6-17 }) (Unqual {OccName: Sarsaparilla})) (HsQTvs (NoExtField) []) (Prefix) - ({ KindSigs.hs:31:21-31 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:31:21-31 }) (HsKindSig - (NoExtField) - ({ KindSigs.hs:31:21-23 } + (ApiAnn + (Anchor + { KindSigs.hs:31:21-23 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { KindSigs.hs:31:25-26 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:31:21-23 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:31:21-23 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:31:21-23 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:31:21-23 }) (Unqual {OccName: Int})))) - ({ KindSigs.hs:31:28-31 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:31:28-31 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:31:28-31 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:31:28-31 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:31:28-31 }) (Unqual {OccName: Type}))))))))) - ,({ KindSigs.hs:34:1-22 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:34:1-22 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { KindSigs.hs:34:1-22 }) (SigD (NoExtField) (TypeSig - (NoExtField) - [({ KindSigs.hs:34:1-4 } + (ApiAnn + (Anchor + { KindSigs.hs:34:1-4 } + (UnchangedAnchor)) + (AnnSig + (AddApiAnn AnnDcolon (AR { KindSigs.hs:34:6-7 })) + []) + (AnnComments + [])) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:34:1-4 }) (Unqual {OccName: true}))] (HsWC (NoExtField) - ({ KindSigs.hs:34:9-22 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:34:9-22 }) (HsSig (NoExtField) (HsOuterImplicit (NoExtField)) - ({ KindSigs.hs:34:9-22 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:34:9-22 }) (HsParTy - (NoExtField) - ({ KindSigs.hs:34:10-21 } + (ApiAnn + (Anchor + { KindSigs.hs:34:9 } + (UnchangedAnchor)) + (AnnParen + (AnnParens) + (AR { KindSigs.hs:34:9 }) + (AR { KindSigs.hs:34:22 })) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:34:10-21 }) (HsKindSig - (NoExtField) - ({ KindSigs.hs:34:10-13 } + (ApiAnn + (Anchor + { KindSigs.hs:34:10-13 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { KindSigs.hs:34:15-16 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:34:10-13 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:34:10-13 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:34:10-13 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:34:10-13 }) (Unqual {OccName: Bool})))) - ({ KindSigs.hs:34:18-21 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:34:18-21 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:34:18-21 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ KindSigs.hs:34:18-21 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:34:18-21 }) (Unqual {OccName: Type})))))))))))))) - ,({ KindSigs.hs:35:1-11 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { KindSigs.hs:35:1-11 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { KindSigs.hs:35:1-11 }) (ValD (NoExtField) (FunBind (NoExtField) - ({ KindSigs.hs:35:1-4 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:35:1-4 }) (Unqual {OccName: true})) (MG (NoExtField) - ({ KindSigs.hs:35:1-11 } - [({ KindSigs.hs:35:1-11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:35:1-11 }) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:35:1-11 }) (Match - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:35:1-11 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (FunRhs - ({ KindSigs.hs:35:1-4 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:35:1-4 }) (Unqual {OccName: true})) (Prefix) @@ -602,22 +1471,30 @@ [] (GRHSs (NoExtField) - [({ KindSigs.hs:35:6-11 } + [(L + { KindSigs.hs:35:6-11 } (GRHS - (NoExtField) + (ApiAnn + (Anchor + { KindSigs.hs:35:6-11 } + (UnchangedAnchor)) + (GrhsAnn + (Nothing) + (AddApiAnn AnnEqual (AR { KindSigs.hs:35:6 }))) + (AnnComments + [])) [] - ({ KindSigs.hs:35:8-11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:35:8-11 }) (HsVar (NoExtField) - ({ KindSigs.hs:35:8-11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { KindSigs.hs:35:8-11 }) (Unqual {OccName: True}))))))] - ({ <no location info> } - (EmptyLocalBinds - (NoExtField))))))]) + (EmptyLocalBinds + (NoExtField)))))]) (FromSource)) [])))] (Nothing) (Nothing))) - - diff --git a/testsuite/tests/parser/should_compile/T14189.stderr b/testsuite/tests/parser/should_compile/T14189.stderr index 516850592c..d76f449c03 100644 --- a/testsuite/tests/parser/should_compile/T14189.stderr +++ b/testsuite/tests/parser/should_compile/T14189.stderr @@ -12,88 +12,140 @@ [] [(TyClGroup (NoExtField) - [({ T14189.hs:6:1-42 } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { T14189.hs:6:1-42 } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T14189.hs:6:1-42 }) (DataDecl (DataDeclRn (True) {NameSet: [{Name: GHC.Types.Int}]}) - ({ T14189.hs:6:6-11 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T14189.hs:6:6-11 }) {Name: T14189.MyType}) (HsQTvs [] []) (Prefix) (HsDataDefn - (NoExtField) + (ApiAnnNotUsed) (DataType) (Nothing) (Nothing) (Nothing) - [({ T14189.hs:6:15-20 } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { T14189.hs:6:15-20 } + (UnchangedAnchor)) + (AnnListItem + [(AddVbarAnn + (AR { T14189.hs:6:22 }))]) + (AnnComments + [])) { T14189.hs:6:15-20 }) (ConDeclH98 - (NoExtField) - ({ T14189.hs:6:15-16 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T14189.hs:6:15-16 }) {Name: T14189.MT}) - ({ <no location info> } - (False)) + (False) [] (Nothing) (PrefixCon [] [(HsScaled (HsLinearArrow - (NormalSyntax)) - ({ T14189.hs:6:18-20 } + (NormalSyntax) + (Nothing)) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T14189.hs:6:18-20 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ T14189.hs:6:18-20 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T14189.hs:6:18-20 }) {Name: GHC.Types.Int}))))]) (Nothing))) - ,({ T14189.hs:6:24-25 } + ,(L + (SrcSpanAnn (ApiAnn + (Anchor + { T14189.hs:6:24-25 } + (UnchangedAnchor)) + (AnnListItem + [(AddVbarAnn + (AR { T14189.hs:6:27 }))]) + (AnnComments + [])) { T14189.hs:6:24-25 }) (ConDeclH98 - (NoExtField) - ({ T14189.hs:6:24-25 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T14189.hs:6:24-25 }) {Name: T14189.NT}) - ({ <no location info> } - (False)) + (False) [] (Nothing) (PrefixCon [] []) (Nothing))) - ,({ T14189.hs:6:29-42 } + ,(L + (SrcSpanAnn (ApiAnnNotUsed) { T14189.hs:6:29-42 }) (ConDeclH98 - (NoExtField) - ({ T14189.hs:6:29 } + (ApiAnnNotUsed) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T14189.hs:6:29 }) {Name: T14189.F}) - ({ <no location info> } - (False)) + (False) [] (Nothing) (RecCon - ({ T14189.hs:6:31-42 } - [({ T14189.hs:6:33-40 } + (L + (SrcSpanAnn (ApiAnn + (Anchor + { T14189.hs:6:31 } + (UnchangedAnchor)) + (AnnList + (Just + (Anchor + { T14189.hs:6:33-40 } + (UnchangedAnchor))) + (Just + (AddApiAnn AnnOpenC (AR { T14189.hs:6:31 }))) + (Just + (AddApiAnn AnnCloseC (AR { T14189.hs:6:42 }))) + [] + []) + (AnnComments + [])) { T14189.hs:6:31-42 }) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T14189.hs:6:33-40 }) (ConDeclField - (NoExtField) - [({ T14189.hs:6:33 } + (ApiAnnNotUsed) + [(L + { T14189.hs:6:33 } (FieldOcc {Name: T14189.f} - ({ T14189.hs:6:33 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T14189.hs:6:33 }) (Unqual {OccName: f}))))] - ({ T14189.hs:6:38-40 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T14189.hs:6:38-40 }) (HsTyVar - (NoExtField) + (ApiAnnNotUsed) (NotPromoted) - ({ T14189.hs:6:38-40 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T14189.hs:6:38-40 }) {Name: GHC.Types.Int}))) (Nothing)))])) (Nothing)))] - ({ <no location info> } - []))))] + [])))] [] [] [])] @@ -105,11 +157,13 @@ [] [] []) - [({ T14189.hs:1:8-13 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T14189.hs:1:8-13 }) (ImportDecl (NoExtField) (NoSourceText) - ({ T14189.hs:1:8-13 } + (L + { T14189.hs:1:8-13 } {ModuleName: Prelude}) (Nothing) (NotBoot) @@ -120,22 +174,28 @@ (Nothing)))] (Just [((,) - ({ T14189.hs:3:3-15 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T14189.hs:3:3-15 }) (IEThingWith - [({ T14189.hs:3:11 } + [(L + { T14189.hs:3:11 } (FieldLabel {FastString: "f"} (NoDuplicateRecordFields) (FieldSelectors) {Name: T14189.f}))] - ({ T14189.hs:3:3-8 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T14189.hs:3:3-8 }) (IEName - ({ T14189.hs:3:3-8 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T14189.hs:3:3-8 }) {Name: T14189.MyType}))) (NoIEWildcard) - [({ T14189.hs:3:13-14 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T14189.hs:3:13-14 }) (IEName - ({ T14189.hs:3:13-14 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T14189.hs:3:13-14 }) {Name: T14189.NT})))])) [(AvailTC {Name: T14189.MyType} @@ -150,5 +210,3 @@ (FieldSelectors) {Name: T14189.f}))])])]) (Nothing))) - - diff --git a/testsuite/tests/parser/should_compile/T15279.stderr b/testsuite/tests/parser/should_compile/T15279.stderr index ff215a763d..b8a1580c76 100644 --- a/testsuite/tests/parser/should_compile/T15279.stderr +++ b/testsuite/tests/parser/should_compile/T15279.stderr @@ -1,3 +1,4 @@ (MG -(NoExt) -({ <combineSrcSpans: files differ> } +(NoExtField) +(L +(SrcSpanAnn (ApiAnnNotUsed) { <combineSrcSpans: files differ> }) diff --git a/testsuite/tests/parser/should_compile/T15323.stderr b/testsuite/tests/parser/should_compile/T15323.stderr index 91f85727f6..1c7fdc68c6 100644 --- a/testsuite/tests/parser/should_compile/T15323.stderr +++ b/testsuite/tests/parser/should_compile/T15323.stderr @@ -1,100 +1,234 @@ ==================== Parser AST ==================== -({ T15323.hs:1:1 } +(L + { T15323.hs:1:1 } (HsModule + (ApiAnn + (Anchor + { T15323.hs:1:1 } + (UnchangedAnchor)) + (AnnsModule + [(AddApiAnn AnnModule (AR { T15323.hs:3:1-6 })) + ,(AddApiAnn AnnWhere (AR { T15323.hs:3:15-19 }))] + (AnnList + (Nothing) + (Nothing) + (Nothing) + [] + [])) + (AnnCommentsBalanced + [] + [(L + (Anchor + { T15323.hs:7:1 } + (UnchangedAnchor)) + (AnnComment + (AnnEofComment) + { T15323.hs:7:1 }))])) (VirtualBraces (1)) (Just - ({ T15323.hs:3:8-13 } + (L + { T15323.hs:3:8-13 } {ModuleName: T15323})) (Nothing) [] - [({ T15323.hs:(5,1)-(6,54) } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { T15323.hs:(5,1)-(6,54) } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T15323.hs:(5,1)-(6,54) }) (TyClD (NoExtField) (DataDecl - (NoExtField) - ({ T15323.hs:5:6-17 } + (ApiAnn + (Anchor + { T15323.hs:(5,1)-(6,54) } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T15323.hs:5:1-4 })) + ,(AddApiAnn AnnWhere (AR { T15323.hs:5:21-25 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:5:6-17 }) (Unqual {OccName: MaybeDefault})) (HsQTvs (NoExtField) - [({ T15323.hs:5:19 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:5:19 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T15323.hs:5:19 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (()) - ({ T15323.hs:5:19 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:5:19 }) (Unqual {OccName: v}))))]) (Prefix) (HsDataDefn - (NoExtField) + (ApiAnn + (Anchor + { T15323.hs:(5,1)-(6,54) } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T15323.hs:5:1-4 })) + ,(AddApiAnn AnnWhere (AR { T15323.hs:5:21-25 }))] + (AnnComments + [])) (DataType) (Nothing) (Nothing) (Nothing) - [({ T15323.hs:6:5-54 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:6:5-54 }) (ConDeclGADT - (NoExtField) - [({ T15323.hs:6:5-14 } + (ApiAnn + (Anchor + { T15323.hs:6:5-54 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { T15323.hs:6:17-18 }))] + (AnnComments + [])) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:6:5-14 }) (Unqual {OccName: TestParens}))] - ({ T15323.hs:6:20-54 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:6:20-54 }) (HsOuterExplicit - (NoExtField) - [({ T15323.hs:6:27 } + (ApiAnn + (Anchor + { T15323.hs:6:20-25 } + (UnchangedAnchor)) + ((,) + (AddApiAnn AnnForall (AR { T15323.hs:6:20-25 })) + (AddApiAnn AnnDot (AR { T15323.hs:6:29 }))) + (AnnComments + [])) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:6:27 }) (UserTyVar - (NoExtField) + (ApiAnn + (Anchor + { T15323.hs:6:27 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (SpecifiedSpec) - ({ T15323.hs:6:27 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:6:27 }) (Unqual {OccName: v}))))])) (Just - ({ T15323.hs:6:31-36 } - [({ T15323.hs:6:31-36 } + (L + (SrcSpanAnn (ApiAnn + (Anchor + { T15323.hs:6:31-36 } + (UnchangedAnchor)) + (AnnContext + (Just + ((,) + (NormalSyntax) + (AR { T15323.hs:6:38-39 }))) + [] + []) + (AnnComments + [])) { T15323.hs:6:31-36 }) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:6:31-36 }) (HsParTy - (NoExtField) - ({ T15323.hs:6:32-35 } + (ApiAnn + (Anchor + { T15323.hs:6:31 } + (UnchangedAnchor)) + (AnnParen + (AnnParens) + (AR { T15323.hs:6:31 }) + (AR { T15323.hs:6:36 })) + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:6:32-35 }) (HsAppTy (NoExtField) - ({ T15323.hs:6:32-33 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:6:32-33 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T15323.hs:6:32-33 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T15323.hs:6:32-33 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:6:32-33 }) (Unqual {OccName: Eq})))) - ({ T15323.hs:6:35 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:6:35 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T15323.hs:6:35 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T15323.hs:6:35 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:6:35 }) (Unqual {OccName: v}))))))))])) (PrefixConGADT []) - ({ T15323.hs:6:41-54 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:6:41-54 }) (HsAppTy (NoExtField) - ({ T15323.hs:6:41-52 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:6:41-52 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T15323.hs:6:41-52 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T15323.hs:6:41-52 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:6:41-52 }) (Unqual {OccName: MaybeDefault})))) - ({ T15323.hs:6:54 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:6:54 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T15323.hs:6:54 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T15323.hs:6:54 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T15323.hs:6:54 }) (Unqual {OccName: v})))))) (Nothing)))] - ({ <no location info> } - [])))))] + []))))] (Nothing) (Nothing))) - - diff --git a/testsuite/tests/parser/should_compile/all.T b/testsuite/tests/parser/should_compile/all.T index d2b3a69385..64c0138ca1 100644 --- a/testsuite/tests/parser/should_compile/all.T +++ b/testsuite/tests/parser/should_compile/all.T @@ -132,11 +132,12 @@ def only_MG_loc(x): """ Only compares the location embedded inside the MatchGroup, which has the form (MG - (NoExt) - ({ <location> + (NoExtField) + (L + (SrcSpanAnn (ApiAnnNotUsed) { <location> }) """ ls = x.split("\n") - mgLocs = (loc.strip() for (mg,loc) in zip(ls,ls[2:]) + mgLocs = (loc.strip() for (mg,loc) in zip(ls,ls[3:]) if mg.strip().startswith("(MG")) return '\n'.join(mgLocs) test('T15279', normalise_errmsg_fun(only_MG_loc), compile, ['']) diff --git a/testsuite/tests/parser/should_fail/RecordDotSyntaxFail11.stderr b/testsuite/tests/parser/should_fail/RecordDotSyntaxFail11.stderr index 4ca1005185..2378585a6a 100644 --- a/testsuite/tests/parser/should_fail/RecordDotSyntaxFail11.stderr +++ b/testsuite/tests/parser/should_fail/RecordDotSyntaxFail11.stderr @@ -10,16 +10,16 @@ RecordDotSyntaxFail11.hs:8:3: ...plus N instances involving out-of-scope types (use -fprint-potential-instances to see them all) In the first argument of ‘($)’, namely ‘print’ - In a stmt of a 'do' block: print $ (foo.bar.baz) a + In a stmt of a 'do' block: print $ (.foo.bar.baz) a In the expression: do let a = ... - print $ (foo.bar.baz) a + print $ (.foo.bar.baz) a RecordDotSyntaxFail11.hs:8:11: No instance for (GHC.Records.HasField "baz" Int a0) arising from a use of ‘GHC.Records.getField’ - In the second argument of ‘($)’, namely ‘(foo.bar.baz) a’ - In a stmt of a 'do' block: print $ (foo.bar.baz) a + In the second argument of ‘($)’, namely ‘(.foo.bar.baz) a’ + In a stmt of a 'do' block: print $ (.foo.bar.baz) a In the expression: do let a = ... - print $ (foo.bar.baz) a + print $ (.foo.bar.baz) a diff --git a/testsuite/tests/plugins/hooks-plugin/Hooks/Plugin.hs b/testsuite/tests/plugins/hooks-plugin/Hooks/Plugin.hs index 33c1ab78be..adfa6e28cf 100644 --- a/testsuite/tests/plugins/hooks-plugin/Hooks/Plugin.hs +++ b/testsuite/tests/plugins/hooks-plugin/Hooks/Plugin.hs @@ -9,6 +9,7 @@ import GHC.Hs.Extension import GHC.Hs.Lit import GHC.Driver.Hooks import GHC.Tc.Utils.Monad +import GHC.Parser.Annotation plugin :: Plugin plugin = defaultPlugin { driverPlugin = hooksP } @@ -30,7 +31,7 @@ fakeRunMeta opts (MetaE r) _ = do pure $ r zero where zero :: LHsExpr GhcPs - zero = L noSrcSpan $ HsLit NoExtField $ + zero = noLocA $ HsLit noAnn $ HsInt NoExtField (mkIntegralLit (0 :: Int)) fakeRunMeta _ _ _ = error "fakeRunMeta: unimplemented" diff --git a/testsuite/tests/plugins/simple-plugin/Simple/RemovePlugin.hs b/testsuite/tests/plugins/simple-plugin/Simple/RemovePlugin.hs index 1be722ed0d..26353ce507 100644 --- a/testsuite/tests/plugins/simple-plugin/Simple/RemovePlugin.hs +++ b/testsuite/tests/plugins/simple-plugin/Simple/RemovePlugin.hs @@ -60,7 +60,7 @@ metaPlugin' [name, "meta"] (L l (HsPar x (L _ (XExpr (WrapExpr (HsWrap w (HsApp -- The test should always match this first case. If the desugaring changes -- again in the future then the panic is more useful than the previous -- inscrutable failure. -metaPlugin' _ meta = pprPanic "meta" (showAstData BlankSrcSpan meta) +metaPlugin' _ meta = pprPanic "meta" (showAstData BlankSrcSpan BlankApiAnnotations meta) interfaceLoadPlugin' :: [CommandLineOption] -> ModIface -> IfM lcl ModIface interfaceLoadPlugin' [name, "interface"] iface diff --git a/testsuite/tests/polykinds/T9144.stderr b/testsuite/tests/polykinds/T9144.stderr index dc3e13ed11..6d5c3c0b44 100644 --- a/testsuite/tests/polykinds/T9144.stderr +++ b/testsuite/tests/polykinds/T9144.stderr @@ -6,4 +6,4 @@ T9144.hs:34:26: error: • In the first argument of ‘toSing’, namely ‘n’ In the expression: toSing n In the expression: - case toSing n of { SomeSing n' -> SomeSing (SBar n') } + case toSing n of SomeSing n' -> SomeSing (SBar n') diff --git a/testsuite/tests/ghc-api/annotations/AnnotationLet.hs b/testsuite/tests/printer/AnnotationLet.hs index ad67b927f4..ad67b927f4 100644 --- a/testsuite/tests/ghc-api/annotations/AnnotationLet.hs +++ b/testsuite/tests/printer/AnnotationLet.hs diff --git a/testsuite/tests/ghc-api/annotations/AnnotationTuple.hs b/testsuite/tests/printer/AnnotationTuple.hs index 73015a6bc5..73015a6bc5 100644 --- a/testsuite/tests/ghc-api/annotations/AnnotationTuple.hs +++ b/testsuite/tests/printer/AnnotationTuple.hs diff --git a/testsuite/tests/ghc-api/annotations/BundleExport.hs b/testsuite/tests/printer/BundleExport.hs index 31d00601a8..31d00601a8 100644 --- a/testsuite/tests/ghc-api/annotations/BundleExport.hs +++ b/testsuite/tests/printer/BundleExport.hs diff --git a/testsuite/tests/ghc-api/annotations/ListComprehensions.hs b/testsuite/tests/printer/ListComprehensions.hs index 0738da5173..0738da5173 100644 --- a/testsuite/tests/ghc-api/annotations/ListComprehensions.hs +++ b/testsuite/tests/printer/ListComprehensions.hs diff --git a/testsuite/tests/printer/Makefile b/testsuite/tests/printer/Makefile index f1199f3acf..2f3d7fb187 100644 --- a/testsuite/tests/printer/Makefile +++ b/testsuite/tests/printer/Makefile @@ -8,228 +8,540 @@ clean: .PHONY: ppr001 ppr001: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr001.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr001.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr001.hs .PHONY: ppr002 ppr002: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr002.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr002.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr002.hs + +.PHONY: ppr002a +ppr002a: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr002a.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr002a.hs .PHONY: ppr003 ppr003: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr003.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr003.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr003.hs .PHONY: ppr004 ppr004: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr004.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr004.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr004.hs .PHONY: ppr005 ppr005: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr005.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr005.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr005.hs .PHONY: ppr006 ppr006: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr006.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr006.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr006.hs .PHONY: ppr007 ppr007: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr007.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr007.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr007.hs .PHONY: ppr008 ppr008: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr008.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr008.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr008.hs .PHONY: ppr009 ppr009: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr009.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr009.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr009.hs .PHONY: ppr010 ppr010: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr010.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr010.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr010.hs .PHONY: ppr011 ppr011: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr011.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr011.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr011.hs .PHONY: ppr012 ppr012: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr012.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr012.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr012.hs .PHONY: ppr013 ppr013: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr013.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr013.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr013.hs .PHONY: ppr014 ppr014: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr014.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr014.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr014.hs .PHONY: ppr015 ppr015: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr015.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr015.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr015.hs .PHONY: ppr016 ppr016: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr016.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr016.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr016.hs .PHONY: ppr017 ppr017: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr017.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr017.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr017.hs .PHONY: ppr018 ppr018: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr018.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr018.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr018.hs .PHONY: ppr019 ppr019: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr019.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr019.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr019.hs .PHONY: ppr020 ppr020: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr020.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr020.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr020.hs .PHONY: ppr021 ppr021: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr021.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr021.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr021.hs .PHONY: ppr022 ppr022: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr022.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr022.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr022.hs .PHONY: ppr023 ppr023: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr023.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr023.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr023.hs .PHONY: ppr024 ppr024: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr024.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr024.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr024.hs .PHONY: ppr025 ppr025: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr025.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr025.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr025.hs .PHONY: ppr026 ppr026: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr026.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr026.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr026.hs .PHONY: ppr027 ppr027: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr027.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr027.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr027.hs .PHONY: ppr028 ppr028: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr028.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr028.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr028.hs .PHONY: ppr029 ppr029: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr029.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr029.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr029.hs .PHONY: ppr030 ppr030: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr030.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr030.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr030.hs .PHONY: ppr031 ppr031: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr031.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr031.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr031.hs .PHONY: ppr032 ppr032: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr032.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr032.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr032.hs .PHONY: ppr033 ppr033: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr033.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr033.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr033.hs .PHONY: ppr034 ppr034: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr034.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr034.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr034.hs .PHONY: ppr035 ppr035: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr035.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr035.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr035.hs .PHONY: ppr036 ppr036: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr036.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr036.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr036.hs .PHONY: ppr037 ppr037: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr037.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr037.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr037.hs .PHONY: ppr038 ppr038: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr038.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr038.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr038.hs .PHONY: ppr039 ppr039: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr039.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr039.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr039.hs .PHONY: ppr040 ppr040: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr040.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr040.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr040.hs .PHONY: ppr041 ppr041: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr041.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr041.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr041.hs .PHONY: ppr042 ppr042: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr042.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr042.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr042.hs .PHONY: ppr043 ppr043: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr043.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr043.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr043.hs .PHONY: ppr044 ppr044: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr044.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr044.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr044.hs .PHONY: ppr045 ppr045: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr045.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr045.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr045.hs .PHONY: ppr046 ppr046: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr046.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr046.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr046.hs .PHONY: ppr048 ppr048: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr048.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr048.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr048.hs + +.PHONY: ppr049 +ppr049: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr049.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr049.hs + +.PHONY: ppr050 +ppr050: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr050.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr050.hs + +.PHONY: ppr051 +ppr051: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr051.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr051.hs + +.PHONY: ppr052 +ppr052: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr052.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr052.hs + +.PHONY: ppr053 +ppr053: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr053.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr053.hs + +.PHONY: ppr054 +ppr054: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr054.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr054.hs + +.PHONY: ppr055 +ppr055: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr055.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Ppr055.hs .PHONY: T13199 T13199: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T13199.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T13199.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T13199.hs .PHONY: T13050p T13050p: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T13050p.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T13050p.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T13050p.hs .PHONY: T13550 T13550: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T13550.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T13550.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T13550.hs .PHONY: T13942 T13942: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T13942.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T13942.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T13942.hs .PHONY: T14289 T14289: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14289.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14289.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14289.hs .PHONY: T14289b T14289b: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14289b.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14289b.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14289b.hs .PHONY: T14289c T14289c: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14289c.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14289c.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14289c.hs .PHONY: T14306 T14306: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14306.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14306.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14306.hs .PHONY: T14343 T14343: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14343.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14343.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14343.hs .PHONY: T14343b T14343b: - $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14343b.hs + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14343b.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" T14343b.hs + +.PHONY: RdrNames +RdrNames: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" RdrNames.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" RdrNames.hs + +.PHONY: StarBinderAnns +StarBinderAnns: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" StarBinderAnns.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" StarBinderAnns.hs + +.PHONY: Test10255 +Test10255: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10255.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10255.hs + +.PHONY: Test10268 +Test10268: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10268.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10268.hs + +.PHONY: Test10269 +Test10269: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10269.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10269.hs + +.PHONY: Test10276 +Test10276: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10276.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10276.hs + +.PHONY: Test10278 +Test10278: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10278.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10278.hs + +.PHONY: Test10280 +Test10280: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10280.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10280.hs + +.PHONY: Test10307 +Test10307: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10307.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10307.hs + +.PHONY: Test10309 +Test10309: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10309.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10309.hs + +.PHONY: Test10312 +Test10312: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10312.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10312.hs + +.PHONY: Test10313 +Test10313: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10313.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10313.hs + +.PHONY: Test10354 +Test10354: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10354.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10354.hs + +.PHONY: Test10357 +Test10357: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10357.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10357.hs + +.PHONY: Test10358 +Test10358: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10358.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10358.hs + +.PHONY: Test10396 +Test10396: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10396.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10396.hs + +.PHONY: Test10399 +Test10399: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10399.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10399.hs + +.PHONY: Test10598 +Test10598: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10598.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test10598.hs + +.PHONY: Test11018 +Test11018: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test11018.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test11018.hs + +.PHONY: Test11321 +Test11321: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test11321.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test11321.hs + +.PHONY: Test11332 +Test11332: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test11332.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test11332.hs + +.PHONY: Test11430 +Test11430: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test11430.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test11430.hs + +.PHONY: Test12417 +Test12417: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test12417.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test12417.hs + +.PHONY: Test13163 +Test13163: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test13163.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test13163.hs + +.PHONY: Test15303 +Test15303: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test15303.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test15303.hs + +.PHONY: Test16212 +Test16212: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test16212.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test16212.hs + +.PHONY: Test16230 +Test16230: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test16230.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test16230.hs + +.PHONY: Test16236 +Test16236: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test16236.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test16236.hs + +.PHONY: Test16279 +Test16279: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test16279.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test16279.hs + +.PHONY: Test17388 +Test17388: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test17388.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test17388.hs + +.PHONY: Test17519 +Test17519: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test17519.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test17519.hs + +.PHONY: Test15242 +Test15242: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test15242.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" Test15242.hs + +.PHONY: AnnotationLet +AnnotationLet: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" AnnotationLet.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" AnnotationLet.hs + +.PHONY: TestBoolFormula +TestBoolFormula: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" TestBoolFormula.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" TestBoolFormula.hs + +.PHONY: BundleExport +BundleExport: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" BundleExport.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" BundleExport.hs + +.PHONY: AnnotationTuple +AnnotationTuple: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" AnnotationTuple.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" AnnotationTuple.hs + +.PHONY: ListComprehensions +ListComprehensions: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" ListComprehensions.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" ListComprehensions.hs + +.PHONY: load-main +load-main: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" load-main.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" load-main.hs + +.PHONY: PprRecordDotSyntax1 +PprRecordDotSyntax1: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" PprRecordDotSyntax1.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" PprRecordDotSyntax1.hs + +.PHONY: PprRecordDotSyntax2 +PprRecordDotSyntax2: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" PprRecordDotSyntax2.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" PprRecordDotSyntax2.hs + +.PHONY: PprRecordDotSyntax3 +PprRecordDotSyntax3: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" PprRecordDotSyntax3.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" PprRecordDotSyntax3.hs + +.PHONY: PprRecordDotSyntax4 +PprRecordDotSyntax4: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" PprRecordDotSyntax4.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" PprRecordDotSyntax4.hs + +.PHONY: PprRecordDotSyntaxA +PprRecordDotSyntaxA: + $(CHECK_PPR) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" PprRecordDotSyntaxA.hs + $(CHECK_EXACT) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" PprRecordDotSyntaxA.hs diff --git a/testsuite/tests/printer/Ppr001.hs b/testsuite/tests/printer/Ppr001.hs index 5277da5abf..4e29075999 100644 --- a/testsuite/tests/printer/Ppr001.hs +++ b/testsuite/tests/printer/Ppr001.hs @@ -1,5 +1,6 @@ -module Ppr001 where +module Ppr001 where +-- This is the main function main = putStrLn "hello" foo x = y + 3 diff --git a/testsuite/tests/printer/Ppr002a.hs b/testsuite/tests/printer/Ppr002a.hs new file mode 100644 index 0000000000..d8007d1632 --- /dev/null +++ b/testsuite/tests/printer/Ppr002a.hs @@ -0,0 +1,45 @@ +{-# LANGUAGE Arrows #-} + +import Control.Arrow +import qualified Control.Category as Cat + +addA :: Arrow a => a b Int -> a b Int -> a b Int +addA f g = proc x -> do + y <- f -< x + z <- g -< x + returnA -< y + z + +newtype Circuit a b = Circuit { unCircuit :: a -> (Circuit a b, b) } + +instance Cat.Category Circuit where + id = Circuit $ \a -> (Cat.id, a) + (.) = dot + where + (Circuit cir2) `dot` (Circuit cir1) = Circuit $ \a -> + let (cir1', b) = cir1 a + (cir2', c) = cir2 b + in (cir2' `dot` cir1', c) + +instance Arrow Circuit where + arr f = Circuit $ \a -> (arr f, f a) + first (Circuit cir) = Circuit $ \(b, d) -> + let (cir', c) = cir b + in (first cir', (c, d)) + +-- | Accumulator that outputs a value determined by the supplied function. +accum :: acc -> (a -> acc -> (b, acc)) -> Circuit a b +accum acc f = Circuit $ \input -> + let (output, acc') = input `f` acc + in (accum acc' f, output) + +-- | Accumulator that outputs the accumulator value. +accum' :: b -> (a -> b -> b) -> Circuit a b +accum' acc f = accum acc (\a b -> let b' = a `f` b in (b', b')) + +total :: Num a => Circuit a a +total = accum' 0 (+) + +mean3 :: Fractional a => Circuit a a +mean3 = proc value -> do + (t, n) <- (| (&&&) (total -< value) (total -< 1) |) + returnA -< t / n diff --git a/testsuite/tests/printer/Ppr003.hs b/testsuite/tests/printer/Ppr003.hs index 2cd738e4fe..9b72c50b05 100644 --- a/testsuite/tests/printer/Ppr003.hs +++ b/testsuite/tests/printer/Ppr003.hs @@ -1,4 +1,4 @@ -main = putStrLn "hello" +module Ppr003 where foo x = case x of diff --git a/testsuite/tests/printer/Ppr004.hs b/testsuite/tests/printer/Ppr004.hs index 797d36106a..2ee72efeb1 100644 --- a/testsuite/tests/printer/Ppr004.hs +++ b/testsuite/tests/printer/Ppr004.hs @@ -2,14 +2,15 @@ {-# LANGUAGE GADTs #-} -- From https://www.haskell.org/haskellwiki/GHC/Type_families#An_associated_data_type_example +module Ppr004 where import qualified Data.IntMap import Prelude hiding (lookup) import Data.Char (ord) class GMapKey k where - data GMap k :: * -> * - empty :: GMap k v + data GMap k :: * -> * + empty :: GMap k v lookup :: k -> GMap k v -> Maybe v insert :: k -> v -> GMap k v -> GMap k v diff --git a/testsuite/tests/printer/Ppr008.hs b/testsuite/tests/printer/Ppr008.hs index b5b99e501c..2208a82ff4 100644 --- a/testsuite/tests/printer/Ppr008.hs +++ b/testsuite/tests/printer/Ppr008.hs @@ -26,8 +26,6 @@ module Ppr008 , setNonBlockingFD ) where -#include "EventConfig.h" - import Foreign.ForeignPtr (ForeignPtr) import GHC.Base import GHC.Conc.Signal (Signal) @@ -45,12 +43,8 @@ import System.Posix.Internals (c_close, c_pipe, c_read, c_write, setCloseOnExec, setNonBlockingFD) import System.Posix.Types (Fd) -#if defined(HAVE_EVENTFD) import Foreign.C.Error (throwErrnoIfMinus1) import Foreign.C.Types (CULLong(..)) -#else -import Foreign.C.Error (eAGAIN, eWOULDBLOCK, getErrno, throwErrno) -#endif data ControlMessage = CMsgWakeup | CMsgDie @@ -62,20 +56,13 @@ data ControlMessage = CMsgWakeup data Control = W { controlReadFd :: {-# UNPACK #-} !Fd , controlWriteFd :: {-# UNPACK #-} !Fd -#if defined(HAVE_EVENTFD) , controlEventFd :: {-# UNPACK #-} !Fd -#else - , wakeupReadFd :: {-# UNPACK #-} !Fd - , wakeupWriteFd :: {-# UNPACK #-} !Fd -#endif , didRegisterWakeupFd :: !Bool } deriving (Show) -#if defined(HAVE_EVENTFD) wakeupReadFd :: Control -> Fd wakeupReadFd = controlEventFd -{-# INLINE wakeupReadFd #-} -#endif +{-# INLINE wakeupReadFd #-} -- | Create the structure (usually a pipe) used for waking up the IO -- manager thread from another thread. @@ -92,23 +79,14 @@ newControl shouldRegister = allocaArray 2 $ \fds -> do setCloseOnExec wr return (rd, wr) (ctrl_rd, ctrl_wr) <- createPipe -#if defined(HAVE_EVENTFD) ev <- throwErrnoIfMinus1 "eventfd" $ c_eventfd 0 0 setNonBlockingFD ev True setCloseOnExec ev when shouldRegister $ c_setIOManagerWakeupFd ev -#else - (wake_rd, wake_wr) <- createPipe - when shouldRegister $ c_setIOManagerWakeupFd wake_wr -#endif return W { controlReadFd = fromIntegral ctrl_rd , controlWriteFd = fromIntegral ctrl_wr -#if defined(HAVE_EVENTFD) - , controlEventFd = fromIntegral ev -#else , wakeupReadFd = fromIntegral wake_rd , wakeupWriteFd = fromIntegral wake_wr -#endif , didRegisterWakeupFd = shouldRegister } @@ -122,12 +100,8 @@ closeControl w = do _ <- c_close . fromIntegral . controlReadFd $ w _ <- c_close . fromIntegral . controlWriteFd $ w when (didRegisterWakeupFd w) $ c_setIOManagerWakeupFd (-1) -#if defined(HAVE_EVENTFD) - _ <- c_close . fromIntegral . controlEventFd $ w -#else _ <- c_close . fromIntegral . wakeupReadFd $ w _ <- c_close . fromIntegral . wakeupWriteFd $ w -#endif return () io_MANAGER_WAKEUP, io_MANAGER_DIE :: Word8 @@ -164,18 +138,9 @@ readControlMessage ctrl fd return $ CMsgSignal fp s' where wakeupBufferSize = -#if defined(HAVE_EVENTFD) - 8 -#else 4096 -#endif sendWakeup :: Control -> IO () -#if defined(HAVE_EVENTFD) -sendWakeup c = - throwErrnoIfMinus1_ "sendWakeup" $ - c_eventfd_write (fromIntegral (controlEventFd c)) 1 -#else sendWakeup c = do n <- sendMessage (wakeupWriteFd c) CMsgWakeup case n of @@ -184,7 +149,6 @@ sendWakeup c = do errno <- getErrno when (errno /= eAGAIN && errno /= eWOULDBLOCK) $ throwErrno "sendWakeup" -#endif sendDie :: Control -> IO () sendDie c = throwErrnoIfMinus1_ "sendDie" $ @@ -198,14 +162,6 @@ sendMessage fd msg = alloca $ \p -> do CMsgSignal _fp _s -> error "Signals can only be sent from within the RTS" fromIntegral `fmap` c_write (fromIntegral fd) p 1 -#if defined(HAVE_EVENTFD) -foreign import ccall unsafe "sys/eventfd.h eventfd" - c_eventfd :: CInt -> CInt -> IO CInt - -foreign import ccall unsafe "sys/eventfd.h eventfd_write" - c_eventfd_write :: CInt -> CULLong -> IO CInt -#endif - foreign import ccall unsafe "setIOManagerWakeupFd" c_setIOManagerWakeupFd :: CInt -> IO () diff --git a/testsuite/tests/printer/Ppr011.hs b/testsuite/tests/printer/Ppr011.hs index b967e247b6..84af1ed52a 100644 --- a/testsuite/tests/printer/Ppr011.hs +++ b/testsuite/tests/printer/Ppr011.hs @@ -8,8 +8,8 @@ data Foo = A | C -- | data_or_newtype capi_ctype tycl_hdr constrs deriving -data {-# Ctype "Foo" "bar" #-} F1 = F1 -data {-# Ctype "baz" #-} Eq a => F2 a = F2 a +data {-# Ctype "Foo" "bar" #-} F1 = F1 +data {-# Ctype "baz" #-} Eq a => F2 a = F2 a data (Eq a,Ord a) => F3 a = F3 Int a @@ -18,10 +18,11 @@ data F4 a = forall x y. (Eq x,Eq y) => F4 a x y data G1 a :: * where - G1A, G1B :: Int -> G1 a - G1C :: Double -> G1 a + G1A, G1B :: Int -> G1 a + G1C :: G1 a -> G1 a + G1D :: G1 a -> (Int -> G1 a) -data G2 a :: * where +data G2 a :: * where G2A :: { g2a :: a, g2b :: Int } -> G2 a G2C :: Double -> G2 a @@ -32,3 +33,13 @@ data (Eq a,Ord a) => G3 a = G3 , g3B :: Bool , g3a :: a } deriving (Eq,Ord) + +data G4 a :: * where + G4A, G4B :: Int -> G4 a + G4C :: {- A -} G4 {- B -}a {- C -} -> {- D -} G4 {- E -}a + G4D :: {- A -}G4 {- B -}a {- C -} -> {- D -}( {- E -}Int{- F -} -> {- G -}G4 {- H -}a {- I -}) + +ff x = + case x of + 1 -> True + _ -> False diff --git a/testsuite/tests/printer/Ppr012.hs b/testsuite/tests/printer/Ppr012.hs index 04828cf343..9ffb691b50 100644 --- a/testsuite/tests/printer/Ppr012.hs +++ b/testsuite/tests/printer/Ppr012.hs @@ -1,3 +1,5 @@ +{-# LANGUAGE ExplicitForAll #-} + module Dead1(foo) where foo :: Int -> Int @@ -38,3 +40,5 @@ this work right. Look at the simplifier output just before strictness analysis; there should be a binding for 'foo', but for nothing else. -} + +{-# RULES "example" forall a. forall (x :: a). id x = x #-} diff --git a/testsuite/tests/printer/Ppr019.hs b/testsuite/tests/printer/Ppr019.hs index c934cc5ccc..3591239a77 100644 --- a/testsuite/tests/printer/Ppr019.hs +++ b/testsuite/tests/printer/Ppr019.hs @@ -1,8 +1,5 @@ -{-# LANGUAGE DeriveDataTypeable, FlexibleInstances, MultiParamTypeClasses, - CPP #-} -#if __GLASGOW_HASKELL__ >= 708 +{-# LANGUAGE DeriveDataTypeable, FlexibleInstances, MultiParamTypeClasses #-} {-# LANGUAGE RoleAnnotations #-} -#endif {-# OPTIONS_HADDOCK hide #-} ----------------------------------------------------------------------------- @@ -34,9 +31,6 @@ import Control.Monad.ST ( RealWorld, stToIO ) import Foreign.Ptr ( Ptr, FunPtr ) import Foreign.StablePtr ( StablePtr ) -#if __GLASGOW_HASKELL__ < 711 -import Data.Ix -#endif import Data.Array.Base import GHC.IOArray (IOArray(..)) @@ -54,10 +48,8 @@ import GHC.IOArray (IOArray(..)) -- newtype IOUArray i e = IOUArray (STUArray RealWorld i e) deriving Typeable -#if __GLASGOW_HASKELL__ >= 708 -- Both parameters have class-based invariants. See also #9220. type role IOUArray nominal nominal -#endif instance Eq (IOUArray i e) where IOUArray s1 == IOUArray s2 = s1 == s2 @@ -377,11 +369,7 @@ castIOUArray (IOUArray marr) = stToIO $ do return (IOUArray marr') {-# INLINE unsafeThawIOUArray #-} -#if __GLASGOW_HASKELL__ >= 711 unsafeThawIOUArray :: UArray ix e -> IO (IOUArray ix e) -#else -unsafeThawIOUArray :: Ix ix => UArray ix e -> IO (IOUArray ix e) -#endif unsafeThawIOUArray arr = stToIO $ do marr <- unsafeThawSTUArray arr return (IOUArray marr) @@ -390,11 +378,7 @@ unsafeThawIOUArray arr = stToIO $ do "unsafeThaw/IOUArray" unsafeThaw = unsafeThawIOUArray #-} -#if __GLASGOW_HASKELL__ >= 711 thawIOUArray :: UArray ix e -> IO (IOUArray ix e) -#else -thawIOUArray :: Ix ix => UArray ix e -> IO (IOUArray ix e) -#endif thawIOUArray arr = stToIO $ do marr <- thawSTUArray arr return (IOUArray marr) @@ -404,22 +388,14 @@ thawIOUArray arr = stToIO $ do #-} {-# INLINE unsafeFreezeIOUArray #-} -#if __GLASGOW_HASKELL__ >= 711 unsafeFreezeIOUArray :: IOUArray ix e -> IO (UArray ix e) -#else -unsafeFreezeIOUArray :: Ix ix => IOUArray ix e -> IO (UArray ix e) -#endif unsafeFreezeIOUArray (IOUArray marr) = stToIO (unsafeFreezeSTUArray marr) {-# RULES "unsafeFreeze/IOUArray" unsafeFreeze = unsafeFreezeIOUArray #-} -#if __GLASGOW_HASKELL__ >= 711 freezeIOUArray :: IOUArray ix e -> IO (UArray ix e) -#else -freezeIOUArray :: Ix ix => IOUArray ix e -> IO (UArray ix e) -#endif freezeIOUArray (IOUArray marr) = stToIO (freezeSTUArray marr) {-# RULES diff --git a/testsuite/tests/printer/Ppr024.hs b/testsuite/tests/printer/Ppr024.hs index cccd8b163c..53f4820841 100644 --- a/testsuite/tests/printer/Ppr024.hs +++ b/testsuite/tests/printer/Ppr024.hs @@ -13,6 +13,12 @@ x `f` y = x (\\\) :: (Eq a) => [a] -> [a] -> [a] (\\\) xs ys = xs +(\\\) :: ((Eq a)) => [a] -> [a] -> [a] +(\\\) xs ys = xs + +(\\\) :: Eq a => [a] -> [a] -> [a] +(\\\) xs ys = xs + g x = x + if True then 1 else 2 h x = x + 1::Int diff --git a/testsuite/tests/printer/Ppr025.hs b/testsuite/tests/printer/Ppr025.hs index c198e18a41..e6637a3793 100644 --- a/testsuite/tests/printer/Ppr025.hs +++ b/testsuite/tests/printer/Ppr025.hs @@ -7,6 +7,9 @@ operator = describe "Operators on ProcessA"$ it "acts like local variable with hold." $ do let + foo = bar $ + do + return 4 pa = proc evx -> do (\evy -> hold 10 -< evy) diff --git a/testsuite/tests/printer/Ppr037.hs b/testsuite/tests/printer/Ppr037.hs index 1ece4394f9..30893a9e1e 100644 --- a/testsuite/tests/printer/Ppr037.hs +++ b/testsuite/tests/printer/Ppr037.hs @@ -34,8 +34,9 @@ import Data.Type.Equality -- | The promoted analogue of 'Eq'. If you supply no definition for '(:==)', -- then it defaults to a use of '(==)', from @Data.Type.Equality@. class kproxy ~ 'KProxy => PEq (kproxy :: KProxy a) where - type (:==) (x :: a) (y :: a) :: Bool - type (:/=) (x :: a) (y :: a) :: Bool + type (:==) (x :: a) ( y :: a) :: Bool + type (:/=) ( (x :: a) ) (y :: a ) :: Bool + type {- a -} ({- b -}:/:{- c -}) {- d -} ({- e -}x {- f -} :: {- g -} a {- h -}) {- i -} ({- j -}y {- k -}::{- l -} a{- m -}){- n -} ::{- o -} Bool {- p -} type (x :: a) :== (y :: a) = x == y type (x :: a) :/= (y :: a) = Not (x :== y) diff --git a/testsuite/tests/printer/Ppr049.hs b/testsuite/tests/printer/Ppr049.hs new file mode 100644 index 0000000000..9a008ebabd --- /dev/null +++ b/testsuite/tests/printer/Ppr049.hs @@ -0,0 +1,161 @@ +-- | HTML output for documentation package index. + +module Ppr049 ( + htmlPage +) where + +import Control.Monad +import Data.Char (isAlpha, toUpper) +import Data.List +import Data.Ord +import Data.Time +import Data.Version +import qualified Data.Map as M +import System.FilePath +import System.Locale +import Text.Html + +import Distribution.DocIdx.Common +import Distribution.DocIdx.Config +import Distribution.GhcPkgList + +-- | Project homepage, for footer. +homePage :: String +homePage = "http://hackage.haskell.org/package/docidx" + +-- | Create and render entire page. +htmlPage :: DocIdxCfg -> PackageMap HaddockInfo -> UTCTime -> String +htmlPage config pkgs now = renderHtml [htmlHeader, htmlBody] + where htmlHeader = header << ((thetitle << pageTitle config) : fav : css) + fav = thelink ! [rel "shortcut icon", href $ favIcon config] << noHtml + css = map oneCss (pageCss config) + oneCss cp = thelink ! [rel "stylesheet", + thetype "text/css", href cp] << noHtml + htmlBody = body << (title' ++ toc ++ secs ++ nowFoot) + where title' = [h2 << "Local packages with docs"] + toc = [htmlToc config am] + secs = concatMap (uncurry htmlPkgsAlpha) $ M.assocs am + am = alphabetize pkgs + now' = formatTime defaultTimeLocale rfc822DateFormat now + nowFoot = [p ! [theclass "toc"] $ + stringToHtml ("Page rendered " ++ now' ++ " by ") + +++ (anchor ! [href homePage] << + stringToHtml appName)] + +-- | An AlphaMap groups packages together by their name's first character. +type AlphaMap = M.Map Char (PackageMap HaddockInfo) + +-- | Group packages together by their name's first character. +alphabetize :: PackageMap HaddockInfo -> AlphaMap +alphabetize = foldr addAlpha M.empty + where addAlpha (n, vs) = M.insertWith (++) c [(n, vs)] + where c = if isAlpha c' then c' else '\0' + c' = toUpper $ head n + +-- | Generate the table of contents. +htmlToc :: DocIdxCfg -> AlphaMap -> Html +htmlToc config am = + p ! [theclass "toc"] << tocHtml (alphaItems ++ tocExtras config) + where tocHtml = intersperse bull . concatMap tocItemHtml + alphaItems = map (\k -> TocItem [k] ('#':[k])) $ sort $ M.keys am + +-- | Render toc elements to HTML. +tocItemHtml :: TocItem -> [Html] +tocItemHtml (TocItem nm path) = [anchor ! [href path] << nm] +tocItemHtml TocSeparator = [mdash] +tocItemHtml TocNewline = [br] -- Hmmm... you still get the bullets? + +-- | Render a collection of packages with the same first character. +htmlPkgsAlpha :: Char -> PackageMap HaddockInfo -> [Html] +htmlPkgsAlpha c pm = [heading, packages] + where heading = h3 ! [theclass "category"] << anchor ! [name [c]] << [c] + packages = ulist ! [theclass "packages"] << + map (uncurry htmlPkg) pm' + pm' = sortBy (comparing (map toUpper . fst)) pm + +-- | Render a particularly-named package (all versions of it). +htmlPkg :: String -> VersionMap HaddockInfo -> Html +htmlPkg nm vs = li << pvsHtml (flattenPkgVersions nm vs) + +-- | Everything we want to know about a particular version of a +-- package, nicely flattened and ready to use. (Actually, we'd also +-- like to use the synopsis, but this isn't exposed through the Cabal +-- library, sadly. We could conceivably grab it from the haddock docs +-- (and hackage for packages with no local docs) but this +-- seems excessive so for now we forget about it. +data PkgVersion = PkgVersion { + pvName ::String + , pvSynopsis :: Maybe String + , pvVersion :: Version + , pvExposed :: Bool + , pvHaddocks :: Maybe FilePath + } deriving (Eq, Ord, Show) + +-- | Flatten a given package's various versions into a list of +-- PkgVersion values, which is much nicer to iterate over when +-- building the HTML for this package. +flattenPkgVersions :: String -> VersionMap HaddockInfo -> [PkgVersion] +flattenPkgVersions nm vs = concatMap (uncurry flatten') $ reverse vs + where flatten' :: Version -> [VersionInfo HaddockInfo] -> [PkgVersion] + -- We reverse here to put user versions of pkgs before + -- identically versioned global versions. + flatten' v = concatMap (uncurry flatten3) . reverse + where flatten3 :: Bool -> [HaddockInfo] -> [PkgVersion] + flatten3 ex [] = [PkgVersion nm Nothing v ex Nothing] + flatten3 ex ps = map (mkPv nm v ex) ps + +-- | Construct a PkgVersion from information about a single version of +-- a package. +mkPv :: String -> Version -> Bool -> HaddockInfo -> PkgVersion +mkPv nm v ex Nothing = PkgVersion nm Nothing v ex Nothing +mkPv nm v ex (Just (hp, syn)) = PkgVersion nm (Just syn) v ex (Just hp) + +-- | Render the HTML for a list of versions of (we presume) the same +-- package. +pvsHtml :: [PkgVersion] -> Html +pvsHtml pvs = pvHeader (head pvs) +++ spaceHtml +++ pvVersions pvs +++ + pvSyn pvs + +-- | Render the "header" part of some package's HTML: name (with link +-- to default version of local docs if available) and hackage link. +pvHeader :: PkgVersion -> [Html] +pvHeader pv = [maybeURL nme (pvHaddocks pv) + ,spaceHtml + ,anchor ! [href $ hackagePath pv] << extLinkArrow + ] + where nme = if not (pvExposed pv) then "(" ++ nm ++ ")" else nm + nm = pvName pv + +-- | Render HTML linking to the various versions of a package +-- installed, listed by version number only (name is implicit). +pvVersions :: [PkgVersion] -> Html +pvVersions [_] = noHtml -- Don't bother if there's only one version. +pvVersions pvs = stringToHtml "[" +++ + intersperse comma (map pvOneVer pvs) +++ + stringToHtml "]" + where pvOneVer pv = maybeURL (showVersion $ pvVersion pv) (pvHaddocks pv) + +-- | Render the synopsis of a package, if present in any of its versions. +pvSyn :: [PkgVersion] -> Html +pvSyn = maybe noHtml (\x -> mdash +++ stringToHtml x) . msum . map pvSynopsis + +-- | Render a URL if there's a path; otherwise, just render some text. +-- (Useful in cases where a package is installed but no documentation +-- was found: you'll still get the hackage link.) +maybeURL :: String -> Maybe String -> Html +maybeURL nm Nothing = stringToHtml nm +maybeURL nm (Just path) = anchor ! [href $ joinPath [path, "index.html"]] << nm + +-- | Compute the URL to a package's page on hackage. +hackagePath :: PkgVersion -> String +hackagePath pv = "http://hackage.haskell.org/package/" ++ pvTag + where pvTag = pvName pv ++ "-" ++ showVersion (pvVersion pv) + +-- Some primitives. + +bull, comma, extLinkArrow, mdash :: Html +bull = primHtml " • " +comma = stringToHtml ", " +extLinkArrow = primHtml "⬈" +mdash = primHtml " — " + diff --git a/testsuite/tests/printer/Ppr050.hs b/testsuite/tests/printer/Ppr050.hs new file mode 100644 index 0000000000..43943e94ae --- /dev/null +++ b/testsuite/tests/printer/Ppr050.hs @@ -0,0 +1,6 @@ +module Ppr050 where + +-- standalone kind signature +type (:::) :: Int + +type Ord :: a :: Foo diff --git a/testsuite/tests/printer/Ppr051.hs b/testsuite/tests/printer/Ppr051.hs new file mode 100644 index 0000000000..bdd083e98f --- /dev/null +++ b/testsuite/tests/printer/Ppr051.hs @@ -0,0 +1,6 @@ +{-# LANGUAGE KindSignatures #-} +module Ppr051 where + +-- default declaration +default ( ) +default ( Int , Bool :: Int ) diff --git a/testsuite/tests/printer/Ppr052.hs b/testsuite/tests/printer/Ppr052.hs new file mode 100644 index 0000000000..cc4ee700c9 --- /dev/null +++ b/testsuite/tests/printer/Ppr052.hs @@ -0,0 +1,37 @@ +{-# LANGUAGE TemplateHaskell #-} +module Ppr052 where + +{-# ANN module (1 :: Int) #-} +{-# ANN module (1 :: Integer) #-} +{-# ANN module (1 :: Double) #-} +{-# ANN module $([| 1 :: Int |]) #-} +{-# ANN module "Hello" #-} +{-# ANN module (Just (1 :: Int)) #-} +{-# ANN module [1 :: Int, 2, 3] #-} +{-# ANN module ([1..10] :: [Integer]) #-} +{-# ANN module ''Foo #-} +{-# ANN module (-1 :: Int) #-} + +{-# ANN type Foo (1 :: Int) #-} +{-# ANN type Foo (1 :: Integer) #-} +{-# ANN type Foo (1 :: Double) #-} +{-# ANN type Foo $([| 1 :: Int |]) #-} +{-# ANN type Foo "Hello" #-} +{-# ANN type Foo (Just (1 :: Int)) #-} +{-# ANN type Foo [1 :: Int, 2, 3] #-} +{-# ANN type Foo ([1..10] :: [Integer]) #-} +{-# ANN type Foo ''Foo #-} +{-# ANN type Foo (-1 :: Int) #-} +data Foo = Bar Int + +{-# ANN f (1 :: Int) #-} +{-# ANN f (1 :: Integer) #-} +{-# ANN f (1 :: Double) #-} +{-# ANN f $([| 1 :: Int |]) #-} +{-# ANN f "Hello" #-} +{-# ANN f (Just (1 :: Int)) #-} +{-# ANN f [1 :: Int, 2, 3] #-} +{-# ANN f ([1..10] :: [Integer]) #-} +{-# ANN f 'f #-} +{-# ANN f (-1 :: Int) #-} +f x = x diff --git a/testsuite/tests/printer/Ppr053.hs b/testsuite/tests/printer/Ppr053.hs new file mode 100644 index 0000000000..f8a76298bb --- /dev/null +++ b/testsuite/tests/printer/Ppr053.hs @@ -0,0 +1,36 @@ +{-# LANGUAGE PatternSynonyms, ViewPatterns #-} +{-# LANGUAGE ImplicitParams #-} +{-# LANGUAGE RecordWildCards #-} +module Scopes where + +-- Verify that evidence bound by patern +-- synonyms has correct scope +pattern LL :: Num a => a -> a +pattern LL x <- (subtract 1 -> x) + where + LL x = x + 1 + +data T = C { x :: Int, y :: Char } + +-- Verify that names generated from record construction +-- have correct scope +foo = C { x = 1 , y = 'a' } + +-- Verify that implicit paramters have correct scope +bar :: (?x :: Int) => Int +bar = ?x + 1 + +baz :: Int +baz = bar + ?x + where ?x = 2 + +-- Verify that variables bound in pattern +-- synonyms have the correct scope +pattern A a b = (a , b) + +-- Verify that record wildcards are in scope +sdaf :: T +sdaf = C{..} + where + x = 1 + y = 'a' diff --git a/testsuite/tests/printer/Ppr054.hs b/testsuite/tests/printer/Ppr054.hs new file mode 100644 index 0000000000..348d916a24 --- /dev/null +++ b/testsuite/tests/printer/Ppr054.hs @@ -0,0 +1,32 @@ +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE StaticPointers #-} + +module Ppr054 where + +import Data.Typeable +import GHC.StaticPtr + +main = putStr $ unlines $ map show names + where + names = + [ staticPtrInfo $ static g + , staticPtrInfo $ (static id :: StaticPtr (Int -> Int)) + , staticPtrInfo $ (p0 :: StaticPtr (Int -> Int)) + , staticPtrInfo $ (static method :: StaticPtr (Char -> Int)) + , staticPtrInfo $ (static t_field :: StaticPtr (T Int -> Int)) + ] + +g :: Int -> Int +g = id + +p0 :: Typeable a => StaticPtr (a -> a) +p0 = static (\x -> x) + +data T a = T { t_field :: a } + deriving Typeable + +class C1 a where + method :: a -> Int + +instance C1 Char where + method = const 0 diff --git a/testsuite/tests/printer/Ppr055.hs b/testsuite/tests/printer/Ppr055.hs new file mode 100644 index 0000000000..24963a7878 --- /dev/null +++ b/testsuite/tests/printer/Ppr055.hs @@ -0,0 +1,21 @@ +{-# LANGUAGE TemplateHaskell #-} +{-# LANGUAGE UnboxedSums #-} +module Ppr055 where + +import Language.Haskell.TH + +foo :: $(conT (unboxedSumTypeName 2) `appT` conT ''() `appT` conT ''()) + -> $(conT (unboxedSumTypeName 2) `appT` conT ''() `appT` conT ''()) +foo $(conP (unboxedSumDataName 1 2) [conP '() []]) + = $(conE (unboxedSumDataName 2 2) `appE` conE '()) +foo $(conP (unboxedSumDataName 2 2) [conP '() []]) + = $(conE (unboxedSumDataName 2 2) `appE` conE '()) + +foo2 :: (# () | () #) + -> $(conT (unboxedSumTypeName 2) `appT` conT ''() `appT` conT ''()) +foo2 (# () | #) = $(conE (unboxedSumDataName 2 2) `appE` conE '()) +foo2 $(conP (unboxedSumDataName 2 2) [conP '() []]) = (# | () #) + + +foo3 :: (# () | () | () | () #) -> Int +foo3 (# | | () | #) = 3 diff --git a/testsuite/tests/printer/PprRecordDotSyntax1.hs b/testsuite/tests/printer/PprRecordDotSyntax1.hs new file mode 100644 index 0000000000..19764deb99 --- /dev/null +++ b/testsuite/tests/printer/PprRecordDotSyntax1.hs @@ -0,0 +1,143 @@ +{-# LANGUAGE AllowAmbiguousTypes, FunctionalDependencies, ScopedTypeVariables, PolyKinds, TypeApplications, DataKinds #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE OverloadedRecordDot, OverloadedRecordUpdate #-} +-- For "higher kinded data" test. +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE UndecidableInstances #-} +{-# LANGUAGE FlexibleInstances #-} + +{-# LANGUAGE RebindableSyntax #-} +module PprRecordDotSyntax1 where + +import Prelude + +-- Choice (C2a). + +import Data.Function -- for & +import Data.Functor.Identity + +class HasField x r a | x r -> a where + hasField :: r -> (a -> r, a) + +getField :: forall x r a . HasField x r a => r -> a +getField = snd . hasField @x -- Note: a.x = is getField @"x" a. + +setField :: forall x r a . HasField x r a => r -> a -> r +setField = fst . hasField @x -- Note : a{x = b} is setField @"x" a b. + +-- 'Foo' has 'foo' field of type 'Bar' +data Foo = Foo { foo :: Bar } deriving (Show, Eq) +instance HasField "foo" Foo Bar where + hasField r = (\x -> case r of Foo { .. } -> Foo { foo = x, .. }, foo r) + +-- 'Bar' has a 'bar' field of type 'Baz' +data Bar = Bar { bar :: Baz } deriving (Show, Eq) +instance HasField "bar" Bar Baz where + hasField r = (\x -> case r of Bar { .. } -> Bar { bar = x, .. }, bar r) + +-- 'Baz' has a 'baz' field of type 'Quux' +data Baz = Baz { baz :: Quux } deriving (Show, Eq) +instance HasField "baz" Baz Quux where + hasField r = (\x -> case r of Baz { .. } -> Baz { baz = x, .. }, baz r) + +-- 'Quux' has a 'quux' field of type 'Int' +data Quux = Quux { quux :: Int } deriving (Show, Eq) +instance HasField "quux" Quux Int where + hasField r = (\x -> case r of Quux { .. } -> Quux { quux = x, .. }, quux r) + +-- 'Corge' has a '&&&' field of type 'Int' +data Corge = Corge { (&&&) :: Int } deriving (Show, Eq) +instance HasField "&&&" Corge Int where + hasField r = (\x -> case r of Corge { .. } -> Corge { (&&&) = x, .. }, (&&&) r) +-- Note : Dot notation is not available for fields with operator +-- names. + +-- 'Grault' has two fields 'f' and 'g' of type 'Foo'. +data Grault = Grault {f :: Foo, g :: Foo} deriving (Show, Eq) +instance HasField "f" Grault Foo where + hasField r = (\x -> case r of Grault { .. } -> Grault { f = x, .. }, f r) +instance HasField "g" Grault Foo where + hasField r = (\x -> case r of Grault { .. } -> Grault { g = x, .. }, g r) + +-- "Higher kinded data" +-- (see https://reasonablypolymorphic.com/blog/higher-kinded-data/) +type family H f a where + H Identity a = a + H f a = f a +data P f = P + { n :: H f String + } +-- See https://github.com/ndmitchell/record-dot-preprocessor/pull/34. +instance (a ~ H f String) => HasField "n" (P f) a where + hasField r = (\x -> case r of P { .. } -> P { n = x, .. }, n r) + +main = do + let a = Foo { foo = Bar{ bar = Baz { baz = Quux { quux = 42 } } } } + let b = Corge{ (&&&) = 12 }; + let c = Grault { + f = Foo { foo = Bar{ bar = Baz { baz = Quux { quux = 1 } } } } + , g = Foo { foo = Bar{ bar = Baz { baz = Quux { quux = 1 } } } } + } + + -- A "selector" is an expression like '(.a)' or '(.a.b)'. + putStrLn "-- selectors:" + print $ (.foo) a -- Bar { bar = Baz { baz = Quux { quux = 42 } } } + print $ (.foo.bar) a -- Baz { baz = Quux { quux = 42 } } + print $ (.foo.bar.baz) a -- Quux { quux = 42 } + print $ (.foo.bar.baz.quux) a -- 42 + print $ ((&&&) b) -- 12 + -- print $ (b.(&&&)) -- illegal : parse error on input ‘(’ + print $ getField @"&&&" b -- 12 + + -- A "selection" is an expression like 'r.a' or '(f r).a.b'. + putStrLn "-- selections:" + print $ a.foo.bar.baz.quux -- 42 + print $ a.foo.bar.baz -- Quux { quux = 42 } + print $ a.foo.bar -- Baz { baz = Quux { quux = 42 } } + print $ a.foo -- Bar { bar = Baz { baz = Quux { quux = 42 } } } + print $ (const "hello") a.foo -- f r.x means f (r.x) + -- print $ f a .foo -- f r .x is illegal + print $ (const "hello") (id a).foo -- f (g r).x means f ((g r).x) + -- print $ f (g a) .foo -- f (g r) .x is illegal + print $ a.foo + & (.bar.baz.quux) -- 42 + print $ (a.foo + ).bar.baz.quux -- 42 + print $ (+) a.foo.bar.baz.quux 1 -- 43 + print $ (+) (id a).foo.bar.baz.quux 1 -- 43 + print $ (+) ((id a).foo.bar & (.baz.quux)) 1 -- 43 + + -- An "update" is an expression like 'r{ a.b = 12 }'. + putStrLn "-- updates:" + print $ (a.foo.bar.baz) { quux = 2 } -- Quux { quux = 2 } + print $ (\b -> b{ bar=Baz{ baz=Quux{ quux=1 } } }) a.foo -- Bar { bar = Baz { baz = Quux { quux = 1 } } } + let bar = Bar { bar = Baz { baz = Quux { quux = 44 } } } + print $ a{ foo.bar = Baz { baz = Quux { quux = 44 } } } -- Foo { foo = Bar { bar = Baz { baz = Quux { quux = 44 } } } } + print $ a{ foo.bar.baz = Quux { quux = 45 } } -- Foo { foo = Bar { bar = Baz { baz = Quux { quux = 45 } } } } + print $ a{ foo.bar.baz.quux = 46 } -- Foo { foo = Bar { bar = Baz { baz = Quux { quux = 46 } } } } + print $ c{ f.foo.bar.baz.quux = 3, g.foo.bar.baz.quux = 4 } -- Grault { f = Foo { foo = Bar { bar = Baz { baz = Quux { quux = 3 } } } }, g = Foo { foo = Bar { bar = Baz { baz = Quux { quux = 4 } } } } } + + -- A "punned update" is an expression like 'r{ a.b }' (where it is + -- understood that 'b' is a variable binding in the environment of + -- the field update - enabled only when the extension + -- 'NamedFieldPuns' is in effect). + putStrLn "-- punned updates:" + let quux = 102; baz = Quux { quux }; bar = Baz { baz }; foo = Bar { bar } -- Foo { foo = Bar { bar = Baz { baz = Quux { quux = 102 } } } } + print $ a{ foo.bar.baz.quux } -- Foo { foo = Bar { bar = Baz { baz = Quux { quux = 102 } } } } + print $ a{ foo.bar.baz } -- Foo { foo = Bar { bar = Baz { baz = Quux { quux = 102 } } } } + print $ a{ foo.bar } -- Foo { foo = Bar { bar = Baz { baz = Quux { quux = 102 } } } } + print $ a{ foo } -- Foo { foo = Bar { bar = Baz { baz = Quux { quux = 102 } } } } + print $ a -- Foo { foo = Bar { bar = Baz { baz = Quux { quux = 42 } } } } + print $ c{ f.foo, g.foo.bar.baz.quux = 4 } -- Mix punned and explicit; 102, 4 + f <- pure a + g <- pure a + print $ c{ f } -- 42, 1 + print $ c{ f, g } -- 42, 42 + print $ c{ f, g.foo.bar.baz.quux = 4 } -- Mix top-level and nested updates; 42, 4 + + putStrLn "-- misc:" + -- Higher kinded test. + let p = P { n = Just "me" } :: P Maybe + Just me <- pure p.n + putStrLn $ me diff --git a/testsuite/tests/printer/PprRecordDotSyntax2.hs b/testsuite/tests/printer/PprRecordDotSyntax2.hs new file mode 100644 index 0000000000..8677914e46 --- /dev/null +++ b/testsuite/tests/printer/PprRecordDotSyntax2.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE OverloadedRecordDot #-} +{-# LANGUAGE NoRebindableSyntax #-} + +module PprRecordDotSyntax2 where + +data Foo = Foo { foo :: Bar } deriving (Show, Eq) +data Bar = Bar { bar :: Baz } deriving (Show, Eq) +data Baz = Baz { baz :: Quux } deriving (Show, Eq) +data Quux = Quux { quux :: Int } deriving (Show, Eq) + +main = do + let a = Foo { foo = Bar{ bar = Baz { baz = Quux { quux = 42 } } } } + + -- A "selector" is an expression like '(.a)' or '(.a.b)'. + putStrLn "-- selectors:" + print $ (.foo) a -- Bar { bar = Baz { baz = Quux { quux = 42 } } } + print $ (.foo.bar) a -- Baz { baz = Quux { quux = 42 } } + print $ (.foo.bar.baz) a -- Quux { quux = 42 } + print $ (.foo.bar.baz.quux) a -- 42 + + -- A "selection" is an expression like 'r.a' or '(f r).a.b'. + putStrLn "-- selections:" + print $ a.foo.bar.baz.quux -- 42 + print $ a.foo.bar.baz -- Quux { quux = 42 } + print $ a.foo.bar -- Baz { baz = Quux { quux = 42 } } + print $ a.foo -- Bar { bar = Baz { baz = Quux { quux = 42 } } } + + -- An "update" is an expression like 'r{ a.b = 12 }'. + -- + -- We don't support these (in the case Rebindable Syntax is off) yet + -- (waiting on HasField support). + -- + -- Regular updates are fine though! + print $ a{foo=(foo a){bar = (bar (foo a)){baz = (baz (bar (foo a))){quux = quux (baz (bar (foo a))) + 1}}}} + print $ a{foo=(a.foo){bar = (a.foo.bar){baz = (a.foo.bar.baz){quux = a.foo.bar.baz.quux + 1}}}} diff --git a/testsuite/tests/printer/PprRecordDotSyntax3.hs b/testsuite/tests/printer/PprRecordDotSyntax3.hs new file mode 100644 index 0000000000..6056af152a --- /dev/null +++ b/testsuite/tests/printer/PprRecordDotSyntax3.hs @@ -0,0 +1,14 @@ +{-# LANGUAGE OverloadedRecordDot #-} + +module PprRecordDotSyntax3 where + +import qualified RecordDotSyntaxA as A + + +main = do + print $ id A.n -- Foo {foo = 2}; f M.x means f (M.x) + print $ id A.n.foo -- 2; f M.n.x means f (M.n.x) + + let bar = A.Foo {A.foo = 1} + print $ bar.foo -- Ok; 1 + -- print $ bar.A.foo -- parse error on input 'A.foo' diff --git a/testsuite/tests/printer/PprRecordDotSyntax4.hs b/testsuite/tests/printer/PprRecordDotSyntax4.hs new file mode 100644 index 0000000000..6dda73d68c --- /dev/null +++ b/testsuite/tests/printer/PprRecordDotSyntax4.hs @@ -0,0 +1,9 @@ +{-# LANGUAGE OverloadedRecordDot #-} + +module PprRecordDotSyntax4 where + +import qualified RecordDotSyntaxA as A + +main = do + let bar = A.Foo {A.foo = 1} + print $ bar{A.foo = 2} -- Qualified labels ok in regular updates. diff --git a/testsuite/tests/printer/PprRecordDotSyntaxA.hs b/testsuite/tests/printer/PprRecordDotSyntaxA.hs new file mode 100644 index 0000000000..907d6a23f6 --- /dev/null +++ b/testsuite/tests/printer/PprRecordDotSyntaxA.hs @@ -0,0 +1,6 @@ +module RecordDotSyntaxA where + +data Foo = Foo { foo :: Int } deriving Show + +n :: Foo +n = Foo {foo = 2} diff --git a/testsuite/tests/printer/RdrNames.hs b/testsuite/tests/printer/RdrNames.hs new file mode 100644 index 0000000000..5124bcccde --- /dev/null +++ b/testsuite/tests/printer/RdrNames.hs @@ -0,0 +1,149 @@ +{-# LANGUAGE ParallelListComp #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE MagicHash, NoImplicitPrelude, TypeFamilies, UnboxedTuples #-} +module RdrNames where + +import Data.Monoid + +-- --------------------------------------------------------------------- + +-- | 'type' qcname {% amms (mkTypeImpExp (sLL $1 $> (unLoc $2))) +-- [mj AnnType $1,mj AnnVal $2] } + +-- Tested in DataFamilies.hs + +-- --------------------------------------------------------------------- + +-- | '(' qconsym ')' {% ams (sLL $1 $> (unLoc $2)) +-- [mo $1,mj AnnVal $2,mc $3] } +ff = (RdrNames.:::) 0 1 + + +-- --------------------------------------------------------------------- + +-- | '(' consym ')' {% ams (sLL $1 $> (unLoc $2)) +-- [mo $1,mj AnnVal $2,mc $3] } +data FF = ( ::: ) Int Int + +-- --------------------------------------------------------------------- + +-- | '`' conid '`' {% ams (sLL $1 $> (unLoc $2)) +-- [mj AnnBackquote $1,mj AnnVal $2 +-- ,mj AnnBackquote $3] } +data GG = GG Int Int +gg = 0 ` GG ` 1 + +-- --------------------------------------------------------------------- + +-- | '`' varid '`' {% ams (sLL $1 $> (unLoc $2)) +-- [mj AnnBackquote $1,mj AnnVal $2 +-- ,mj AnnBackquote $3] } +vv = "a" ` mappend ` "b" + +-- --------------------------------------------------------------------- + +-- | '`' qvarid '`' {% ams (sLL $1 $> (unLoc $2)) +-- [mj AnnBackquote $1,mj AnnVal $2 +-- ,mj AnnBackquote $3] } +vvq = "a" ` Data.Monoid.mappend ` "b" + +-- --------------------------------------------------------------------- + +-- | '(' ')' {% ams (sLL $1 $> $ getRdrName unitTyCon) +-- [mo $1,mc $2] } +-- Tested in Vect.hs + +-- --------------------------------------------------------------------- + +-- | '(#' '#)' {% ams (sLL $1 $> $ getRdrName unboxedUnitTyCon) +-- [mo $1,mc $2] } +-- Tested in Vect.hs + +-- --------------------------------------------------------------------- + +-- | '(' commas ')' {% ams (sLL $1 $> $ getRdrName (tupleTyCon BoxedTuple +-- (snd $2 + 1))) +-- (mo $1:mc $3:(mcommas (fst $2))) } +ng :: (, , ,) Int Int Int Int +ng = undefined + +-- --------------------------------------------------------------------- + +-- | '(#' commas '#)' {% ams (sLL $1 $> $ getRdrName (tupleTyCon UnboxedTuple +-- (snd $2 + 1))) +-- (mo $1:mc $3:(mcommas (fst $2))) } +-- Tested in Unboxed.hs + +-- --------------------------------------------------------------------- + +-- | '(' '->' ')' {% ams (sLL $1 $> $ getRdrName funTyCon) +-- [mo $1,mj AnnRarrow $2,mc $3] } + +ft :: (->) a b +ft = undefined + +fp :: ( -> ) a b +fp = undefined + +type family F a :: * -> * -> * +type instance F Int = (->) +type instance F Char = ( , ) + +-- --------------------------------------------------------------------- + +-- | '[' ']' {% ams (sLL $1 $> $ listTyCon_RDR) [mo $1,mc $2] } +lt :: [] a +lt = undefined + +-- --------------------------------------------------------------------- + +-- | '[:' ':]' {% ams (sLL $1 $> $ parrTyCon_RDR) [mo $1,mc $2] } + +-- GHC source indicates this constuctor is only available in PrelPArr +-- ltp :: [::] a +-- ltp = undefined + +-- --------------------------------------------------------------------- + +-- | '(' '~#' ')' {% ams (sLL $1 $> $ getRdrName eqPrimTyCon) +-- [mo $1,mj AnnTildehsh $2,mc $3] } + +-- primitive type? +-- Refl Int :: ~# * Int Int +-- Refl Maybe :: ~# (* -> *) Maybe Maybe + +-- | A data constructor used to box up all unlifted equalities +-- +-- The type constructor is special in that GHC pretends that it +-- has kind (? -> ? -> Fact) rather than (* -> * -> *) +data (~) a b = Eq# ((~#) a b) +data ( ~ ) a b = Eq# (( ~# ) a b) + +data Coercible a b = MkCoercible ((~#) a b) + + +-- --------------------------------------------------------------------- + +-- | '(' qtyconsym ')' {% ams (sLL $1 $> (unLoc $2)) +-- [mo $1,mj AnnVal $2,mc $3] } +-- TBD + +-- --------------------------------------------------------------------- + +-- | '(' '~' ')' {% ams (sLL $1 $> $ eqTyCon_RDR) +-- [mo $1,mj AnnTilde $2,mc $3] } + +-- --------------------------------------------------------------------- + +-- tyvarop : '`' tyvarid '`' {% ams (sLL $1 $> (unLoc $2)) +-- [mj AnnBackquote $1,mj AnnVal $2 +-- ,mj AnnBackquote $3] } + +-- --------------------------------------------------------------------- + + +{- From #haskell-emacs +gracjan> did you know that this is legal haskell: +<gracjan> (+ 1) ` fmap {- -} ` [1,2,3] +-} +xxx = (+ 1) ` fmap {- -} ` [1,2,3] diff --git a/testsuite/tests/ghc-api/annotations/StarBinderAnns.hs b/testsuite/tests/printer/StarBinderAnns.hs index 4b69f44d66..4b69f44d66 100644 --- a/testsuite/tests/ghc-api/annotations/StarBinderAnns.hs +++ b/testsuite/tests/printer/StarBinderAnns.hs diff --git a/testsuite/tests/printer/T13050p.hs b/testsuite/tests/printer/T13050p.hs index d40c476dcd..351da3563c 100644 --- a/testsuite/tests/printer/T13050p.hs +++ b/testsuite/tests/printer/T13050p.hs @@ -4,3 +4,6 @@ f, g, q :: Int -> Int -> Int f x y = _ x y g x y = x `_` y q x y = x `_a` y + +h x y = x ` _ ` y +r x y = x ` _a ` y diff --git a/testsuite/tests/printer/T13199.stdout b/testsuite/tests/printer/T13199.stdout index 6ccc1f10f0..b1cb7c384f 100644 --- a/testsuite/tests/printer/T13199.stdout +++ b/testsuite/tests/printer/T13199.stdout @@ -19,9 +19,9 @@ T13199.hs:33:2-30: Splicing declarations T13199.hs:36:2-29: Splicing declarations [d| k = id @(Maybe Int) |] ======> k = id @(Maybe Int) T13199.hs:38:2-59: Splicing declarations - [d| l = case Just 'a' of { Just a -> Just ((\ x -> x) a) } |] + [d| l = case Just 'a' of Just a -> Just ((\ x -> x) a) |] ======> - l = case Just 'a' of { Just a -> Just ((\ x -> x) a) } + l = case Just 'a' of Just a -> Just ((\ x -> x) a) T13199.ppr.hs:11:2-42: Splicing declarations [d| instance C (Maybe a) (Maybe b) c |] ======> @@ -42,7 +42,31 @@ T13199.ppr.hs:16:2-29: Splicing declarations [d| j B {aa = a} = True |] ======> j B {aa = a} = True T13199.ppr.hs:17:2-29: Splicing declarations [d| k = id @(Maybe Int) |] ======> k = id @(Maybe Int) -T13199.ppr.hs:18:2-64: Splicing declarations - [d| l = case Just 'a' of { Just a -> Just ((\ x -> x) a) } |] +T13199.ppr.hs:18:2-60: Splicing declarations + [d| l = case Just 'a' of Just a -> Just ((\ x -> x) a) |] ======> - l = case Just 'a' of { Just a -> Just ((\ x -> x) a) } + l = case Just 'a' of Just a -> Just ((\ x -> x) a) +T13199.ppr.hs:(14,2)-(15,7): Splicing declarations + [d| instance C (Maybe a) (Maybe b) c |] + ======> + instance C (Maybe a) (Maybe b) c +T13199.ppr.hs:21:2-45: Splicing declarations + [d| g (a :: (Int -> Int) -> Int) = True |] + ======> + g (a :: (Int -> Int) -> Int) = True +T13199.ppr.hs:24:2-28: Splicing declarations + [d| h (id -> x) = True |] ======> h (id -> x) = True +T13199.ppr.hs:27:2-38: Splicing declarations + [d| f (Just (Just False)) = True |] + ======> + f (Just (Just False)) = True +T13199.ppr.hs:30:2-34: Splicing declarations + [d| i (B (a `B` c) d) = True |] ======> i (B (a `B` c) d) = True +T13199.ppr.hs:33:2-30: Splicing declarations + [d| j B {aa = a} = True |] ======> j B {aa = a} = True +T13199.ppr.hs:36:2-29: Splicing declarations + [d| k = id @(Maybe Int) |] ======> k = id @(Maybe Int) +T13199.ppr.hs:38:2-59: Splicing declarations + [d| l = case Just 'a' of Just a -> Just ((\ x -> x) a) |] + ======> + l = case Just 'a' of Just a -> Just ((\ x -> x) a) diff --git a/testsuite/tests/printer/T13550.stdout b/testsuite/tests/printer/T13550.stdout index 7f74e48895..b3173f8612 100644 --- a/testsuite/tests/printer/T13550.stdout +++ b/testsuite/tests/printer/T13550.stdout @@ -20,3 +20,14 @@ T13550.ppr.hs:(5,2)-(8,70): Splicing declarations type instance Foo (Maybe a) b = Either (Maybe a) (Maybe b) data family Bar a b data instance Bar (Maybe a) b = BarMaybe (Maybe a) (Maybe b) +T13550.ppr.hs:(6,2)-(11,7): Splicing declarations + [d| type family Foo a b + data family Bar a b + + type instance Foo (Maybe a) b = Either (Maybe a) (Maybe b) + data instance Bar (Maybe a) b = BarMaybe (Maybe a) (Maybe b) |] + ======> + type family Foo a b + type instance Foo (Maybe a) b = Either (Maybe a) (Maybe b) + data family Bar a b + data instance Bar (Maybe a) b = BarMaybe (Maybe a) (Maybe b) diff --git a/testsuite/tests/printer/T13942.stdout b/testsuite/tests/printer/T13942.stdout index f40a71bf0f..8c80afa15f 100644 --- a/testsuite/tests/printer/T13942.stdout +++ b/testsuite/tests/printer/T13942.stdout @@ -10,3 +10,9 @@ T13942.ppr.hs:(4,2)-(5,23): Splicing declarations ======> f :: Either Int (Int -> Int) f = undefined +T13942.ppr.hs:(5,2)-(7,7): Splicing declarations + [d| f :: Either Int (Int -> Int) + f = undefined |] + ======> + f :: Either Int (Int -> Int) + f = undefined diff --git a/testsuite/tests/printer/T14289.stdout b/testsuite/tests/printer/T14289.stdout index b11a3bf063..ab7eb04a84 100644 --- a/testsuite/tests/printer/T14289.stdout +++ b/testsuite/tests/printer/T14289.stdout @@ -14,3 +14,19 @@ T14289.ppr.hs:(7,2)-(9,26): Splicing declarations data Foo a = Foo a deriving (C a) +T14289.hs:10:2-43: Splicing declarations + [d| data Foo a + = Foo a + deriving (C a) |] + ======> + data Foo a + = Foo a + deriving (C a) +T14289.ppr.hs:10:2-43: Splicing declarations + [d| data Foo a + = Foo a + deriving (C a) |] + ======> + data Foo a + = Foo a + deriving (C a) diff --git a/testsuite/tests/printer/T14289b.stdout b/testsuite/tests/printer/T14289b.stdout index 5c6e0f7474..e3d163aa86 100644 --- a/testsuite/tests/printer/T14289b.stdout +++ b/testsuite/tests/printer/T14289b.stdout @@ -14,3 +14,19 @@ T14289b.ppr.hs:(8,2)-(10,30): Splicing declarations data Foo a = Foo a deriving (C y z) +T14289b.hs:11:2-47: Splicing declarations + [d| data Foo a + = Foo a + deriving (y `C` z) |] + ======> + data Foo a + = Foo a + deriving (C y z) +T14289b.ppr.hs:11:2-47: Splicing declarations + [d| data Foo a + = Foo a + deriving (y `C` z) |] + ======> + data Foo a + = Foo a + deriving (C y z) diff --git a/testsuite/tests/printer/T14289c.stdout b/testsuite/tests/printer/T14289c.stdout index 287793b6ea..66704d3402 100644 --- a/testsuite/tests/printer/T14289c.stdout +++ b/testsuite/tests/printer/T14289c.stdout @@ -14,3 +14,19 @@ T14289c.ppr.hs:(7,2)-(9,28): Splicing declarations data Foo a = Foo a deriving (a ~ a) +T14289c.hs:9:2-45: Splicing declarations + [d| data Foo a + = Foo a + deriving (a ~ a) |] + ======> + data Foo a + = Foo a + deriving (a ~ a) +T14289c.ppr.hs:9:2-45: Splicing declarations + [d| data Foo a + = Foo a + deriving (a ~ a) |] + ======> + data Foo a + = Foo a + deriving (a ~ a) diff --git a/testsuite/tests/printer/T18247a.hs b/testsuite/tests/printer/T18247a.hs new file mode 100644 index 0000000000..637be002cc --- /dev/null +++ b/testsuite/tests/printer/T18247a.hs @@ -0,0 +1,22 @@ +{-# LANGUAGE PatternSynonyms #-} +module T18247a where + +import Control.Monad () +import qualified Data.Sequence as Seq () +import T18247b + ( T, + Nat(Z, S), + Showable(..), + Type, + pattern ExNumPat, + pattern Head, + pattern Single, + pattern Pair, + pattern One, + pattern Succ, + pattern (:>), + pattern (:<), + pattern Empty, + pattern Int, + pattern Arrow, + pattern P ) diff --git a/testsuite/tests/printer/T18791.stderr b/testsuite/tests/printer/T18791.stderr index c944f648dc..b2f3aef22d 100644 --- a/testsuite/tests/printer/T18791.stderr +++ b/testsuite/tests/printer/T18791.stderr @@ -1,21 +1,61 @@ ==================== Parser AST ==================== -({ T18791.hs:1:1 } +(L + { T18791.hs:1:1 } (HsModule + (ApiAnn + (Anchor + { T18791.hs:1:1 } + (UnchangedAnchor)) + (AnnsModule + [(AddApiAnn AnnModule (AR { T18791.hs:2:1-6 })) + ,(AddApiAnn AnnWhere (AR { T18791.hs:2:15-19 }))] + (AnnList + (Nothing) + (Nothing) + (Nothing) + [] + [])) + (AnnCommentsBalanced + [] + [(L + (Anchor + { T18791.hs:6:1 } + (UnchangedAnchor)) + (AnnComment + (AnnEofComment) + { T18791.hs:6:1 }))])) (VirtualBraces (1)) (Just - ({ T18791.hs:2:8-13 } + (L + { T18791.hs:2:8-13 } {ModuleName: T18791})) (Nothing) [] - [({ T18791.hs:(4,1)-(5,17) } + [(L + (SrcSpanAnn (ApiAnn + (Anchor + { T18791.hs:(4,1)-(5,17) } + (UnchangedAnchor)) + (AnnListItem + []) + (AnnComments + [])) { T18791.hs:(4,1)-(5,17) }) (TyClD (NoExtField) (DataDecl - (NoExtField) - ({ T18791.hs:4:6 } + (ApiAnn + (Anchor + { T18791.hs:(4,1)-(5,17) } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T18791.hs:4:1-4 })) + ,(AddApiAnn AnnWhere (AR { T18791.hs:4:8-12 }))] + (AnnComments + [])) + (L + (SrcSpanAnn (ApiAnnNotUsed) { T18791.hs:4:6 }) (Unqual {OccName: T})) (HsQTvs @@ -23,18 +63,34 @@ []) (Prefix) (HsDataDefn - (NoExtField) + (ApiAnn + (Anchor + { T18791.hs:(4,1)-(5,17) } + (UnchangedAnchor)) + [(AddApiAnn AnnData (AR { T18791.hs:4:1-4 })) + ,(AddApiAnn AnnWhere (AR { T18791.hs:4:8-12 }))] + (AnnComments + [])) (DataType) (Nothing) (Nothing) (Nothing) - [({ T18791.hs:5:3-17 } + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T18791.hs:5:3-17 }) (ConDeclGADT - (NoExtField) - [({ T18791.hs:5:3-5 } + (ApiAnn + (Anchor + { T18791.hs:5:3-17 } + (UnchangedAnchor)) + [(AddApiAnn AnnDcolon (AR { T18791.hs:5:7-8 }))] + (AnnComments + [])) + [(L + (SrcSpanAnn (ApiAnnNotUsed) { T18791.hs:5:3-5 }) (Unqual {OccName: MkT}))] - ({ T18791.hs:5:10-17 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T18791.hs:5:10-17 }) (HsOuterImplicit (NoExtField))) (Nothing) @@ -42,24 +98,45 @@ [(HsScaled (HsUnrestrictedArrow (NormalSyntax)) - ({ T18791.hs:5:10-12 } + (L + (SrcSpanAnn (ApiAnn + (Anchor + { T18791.hs:5:10-12 } + (UnchangedAnchor)) + (AnnListItem + [(AddRarrowAnn + (AR { T18791.hs:5:14-15 }))]) + (AnnComments + [])) { T18791.hs:5:10-12 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T18791.hs:5:10-12 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T18791.hs:5:10-12 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T18791.hs:5:10-12 }) (Unqual {OccName: Int})))))]) - ({ T18791.hs:5:17 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T18791.hs:5:17 }) (HsTyVar - (NoExtField) + (ApiAnn + (Anchor + { T18791.hs:5:17 } + (UnchangedAnchor)) + [] + (AnnComments + [])) (NotPromoted) - ({ T18791.hs:5:17 } + (L + (SrcSpanAnn (ApiAnnNotUsed) { T18791.hs:5:17 }) (Unqual {OccName: T})))) (Nothing)))] - ({ <no location info> } - [])))))] + []))))] (Nothing) (Nothing))) - - diff --git a/testsuite/tests/ghc-api/annotations/Test10255.hs b/testsuite/tests/printer/Test10255.hs index 2cfc53bbfb..2cfc53bbfb 100644 --- a/testsuite/tests/ghc-api/annotations/Test10255.hs +++ b/testsuite/tests/printer/Test10255.hs diff --git a/testsuite/tests/ghc-api/annotations/Test10268.hs b/testsuite/tests/printer/Test10268.hs index 04cc0e7e0e..04cc0e7e0e 100644 --- a/testsuite/tests/ghc-api/annotations/Test10268.hs +++ b/testsuite/tests/printer/Test10268.hs diff --git a/testsuite/tests/ghc-api/annotations/Test10269.hs b/testsuite/tests/printer/Test10269.hs index c6df750c04..c6df750c04 100644 --- a/testsuite/tests/ghc-api/annotations/Test10269.hs +++ b/testsuite/tests/printer/Test10269.hs diff --git a/testsuite/tests/ghc-api/annotations/Test10276.hs b/testsuite/tests/printer/Test10276.hs index dcf2549979..dcf2549979 100644 --- a/testsuite/tests/ghc-api/annotations/Test10276.hs +++ b/testsuite/tests/printer/Test10276.hs diff --git a/testsuite/tests/ghc-api/annotations/Test10278.hs b/testsuite/tests/printer/Test10278.hs index d9b14f65c1..d9b14f65c1 100644 --- a/testsuite/tests/ghc-api/annotations/Test10278.hs +++ b/testsuite/tests/printer/Test10278.hs diff --git a/testsuite/tests/ghc-api/annotations/Test10280.hs b/testsuite/tests/printer/Test10280.hs index 08e4186715..08e4186715 100644 --- a/testsuite/tests/ghc-api/annotations/Test10280.hs +++ b/testsuite/tests/printer/Test10280.hs diff --git a/testsuite/tests/ghc-api/annotations/Test10307.hs b/testsuite/tests/printer/Test10307.hs index 938801a8d6..938801a8d6 100644 --- a/testsuite/tests/ghc-api/annotations/Test10307.hs +++ b/testsuite/tests/printer/Test10307.hs diff --git a/testsuite/tests/ghc-api/annotations/Test10309.hs b/testsuite/tests/printer/Test10309.hs index 75f18a9b71..75f18a9b71 100644 --- a/testsuite/tests/ghc-api/annotations/Test10309.hs +++ b/testsuite/tests/printer/Test10309.hs diff --git a/testsuite/tests/ghc-api/annotations/Test10312.hs b/testsuite/tests/printer/Test10312.hs index 6d3c8476e9..6d3c8476e9 100644 --- a/testsuite/tests/ghc-api/annotations/Test10312.hs +++ b/testsuite/tests/printer/Test10312.hs diff --git a/testsuite/tests/ghc-api/annotations/Test10313.hs b/testsuite/tests/printer/Test10313.hs index a94c9eac91..a94c9eac91 100644 --- a/testsuite/tests/ghc-api/annotations/Test10313.hs +++ b/testsuite/tests/printer/Test10313.hs diff --git a/testsuite/tests/ghc-api/annotations/Test10354.hs b/testsuite/tests/printer/Test10354.hs index 267ea45ab0..267ea45ab0 100644 --- a/testsuite/tests/ghc-api/annotations/Test10354.hs +++ b/testsuite/tests/printer/Test10354.hs diff --git a/testsuite/tests/ghc-api/annotations/Test10357.hs b/testsuite/tests/printer/Test10357.hs index 8790ca6c1b..8790ca6c1b 100644 --- a/testsuite/tests/ghc-api/annotations/Test10357.hs +++ b/testsuite/tests/printer/Test10357.hs diff --git a/testsuite/tests/ghc-api/annotations/Test10358.hs b/testsuite/tests/printer/Test10358.hs index 1e1ce35690..1e1ce35690 100644 --- a/testsuite/tests/ghc-api/annotations/Test10358.hs +++ b/testsuite/tests/printer/Test10358.hs diff --git a/testsuite/tests/ghc-api/annotations/Test10396.hs b/testsuite/tests/printer/Test10396.hs index 71b18a8f9e..71b18a8f9e 100644 --- a/testsuite/tests/ghc-api/annotations/Test10396.hs +++ b/testsuite/tests/printer/Test10396.hs diff --git a/testsuite/tests/ghc-api/annotations/Test10399.hs b/testsuite/tests/printer/Test10399.hs index bb3265000d..bb3265000d 100644 --- a/testsuite/tests/ghc-api/annotations/Test10399.hs +++ b/testsuite/tests/printer/Test10399.hs diff --git a/testsuite/tests/ghc-api/annotations/Test10598.hs b/testsuite/tests/printer/Test10598.hs index 8a7651c154..8a7651c154 100644 --- a/testsuite/tests/ghc-api/annotations/Test10598.hs +++ b/testsuite/tests/printer/Test10598.hs diff --git a/testsuite/tests/ghc-api/annotations/Test11018.hs b/testsuite/tests/printer/Test11018.hs index e1d020540e..e1d020540e 100644 --- a/testsuite/tests/ghc-api/annotations/Test11018.hs +++ b/testsuite/tests/printer/Test11018.hs diff --git a/testsuite/tests/ghc-api/annotations/Test11321.hs b/testsuite/tests/printer/Test11321.hs index d88d997077..d88d997077 100644 --- a/testsuite/tests/ghc-api/annotations/Test11321.hs +++ b/testsuite/tests/printer/Test11321.hs diff --git a/testsuite/tests/ghc-api/annotations/Test11332.hs b/testsuite/tests/printer/Test11332.hs index 41e84b0d39..41e84b0d39 100644 --- a/testsuite/tests/ghc-api/annotations/Test11332.hs +++ b/testsuite/tests/printer/Test11332.hs diff --git a/testsuite/tests/ghc-api/annotations/Test11430.hs b/testsuite/tests/printer/Test11430.hs index 19b8e54ccd..19b8e54ccd 100644 --- a/testsuite/tests/ghc-api/annotations/Test11430.hs +++ b/testsuite/tests/printer/Test11430.hs diff --git a/testsuite/tests/ghc-api/annotations/Test12417.hs b/testsuite/tests/printer/Test12417.hs index 67da7f2107..67da7f2107 100644 --- a/testsuite/tests/ghc-api/annotations/Test12417.hs +++ b/testsuite/tests/printer/Test12417.hs diff --git a/testsuite/tests/ghc-api/annotations/Test13163.hs b/testsuite/tests/printer/Test13163.hs index 439d825386..439d825386 100644 --- a/testsuite/tests/ghc-api/annotations/Test13163.hs +++ b/testsuite/tests/printer/Test13163.hs diff --git a/testsuite/tests/printer/Test15242.hs b/testsuite/tests/printer/Test15242.hs new file mode 100644 index 0000000000..1970e488fd --- /dev/null +++ b/testsuite/tests/printer/Test15242.hs @@ -0,0 +1,4 @@ +module Test15242 where + +f = (((const) 3)) ((((seq) 'a')) 'b') +g = ((((((((((id id)) id) id) id))) id))) id diff --git a/testsuite/tests/ghc-api/annotations/Test15303.hs b/testsuite/tests/printer/Test15303.hs index 212e9da5ac..212e9da5ac 100644 --- a/testsuite/tests/ghc-api/annotations/Test15303.hs +++ b/testsuite/tests/printer/Test15303.hs diff --git a/testsuite/tests/ghc-api/annotations/Test16212.hs b/testsuite/tests/printer/Test16212.hs index da7e322307..da7e322307 100644 --- a/testsuite/tests/ghc-api/annotations/Test16212.hs +++ b/testsuite/tests/printer/Test16212.hs diff --git a/testsuite/tests/ghc-api/annotations/Test16230.hs b/testsuite/tests/printer/Test16230.hs index e231878464..8cccc1de45 100644 --- a/testsuite/tests/ghc-api/annotations/Test16230.hs +++ b/testsuite/tests/printer/Test16230.hs @@ -4,6 +4,7 @@ {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE TypeApplications #-} {-# LANGUAGE DataKinds #-} +{-# LANGUAGE DatatypeContexts, ExistentialQuantification #-} module MoreExplicitForalls where import Data.Proxy @@ -21,3 +22,13 @@ instance forall a. C [a] where type family G a b where forall x y. G [x] (Proxy y) = Double forall z. G z z = Bool + + +data instance GMap (Either a b) v = GMapEither (GMap a v) (GMap b v) +data instance forall a (b :: Proxy a). F (Proxy b) = FProxy Bool +data instance forall k (a :: k). F a = FOtherwise -- accepted + +data family D a b +data instance (Show b) => D Int b +data instance forall b . (Show b) => D Int b +data instance forall b . D Int b diff --git a/testsuite/tests/ghc-api/annotations/Test16236.hs b/testsuite/tests/printer/Test16236.hs index e19a0ee0c1..e19a0ee0c1 100644 --- a/testsuite/tests/ghc-api/annotations/Test16236.hs +++ b/testsuite/tests/printer/Test16236.hs diff --git a/testsuite/tests/ghc-api/annotations/Test16279.hs b/testsuite/tests/printer/Test16279.hs index 7817edadc5..7817edadc5 100644 --- a/testsuite/tests/ghc-api/annotations/Test16279.hs +++ b/testsuite/tests/printer/Test16279.hs diff --git a/testsuite/tests/ghc-api/annotations/Test17388.hs b/testsuite/tests/printer/Test17388.hs index d5ead3d95e..d5ead3d95e 100644 --- a/testsuite/tests/ghc-api/annotations/Test17388.hs +++ b/testsuite/tests/printer/Test17388.hs diff --git a/testsuite/tests/ghc-api/annotations/Test17519.hs b/testsuite/tests/printer/Test17519.hs index f705008c51..f705008c51 100644 --- a/testsuite/tests/ghc-api/annotations/Test17519.hs +++ b/testsuite/tests/printer/Test17519.hs diff --git a/testsuite/tests/ghc-api/annotations/TestBoolFormula.hs b/testsuite/tests/printer/TestBoolFormula.hs index e76ce40fe5..e76ce40fe5 100644 --- a/testsuite/tests/ghc-api/annotations/TestBoolFormula.hs +++ b/testsuite/tests/printer/TestBoolFormula.hs diff --git a/testsuite/tests/printer/all.T b/testsuite/tests/printer/all.T index 2c605be5b8..d4cd67c3dd 100644 --- a/testsuite/tests/printer/all.T +++ b/testsuite/tests/printer/all.T @@ -1,13 +1,18 @@ test('Ppr001', ignore_stderr, makefile_test, ['ppr001']) test('Ppr002', ignore_stderr, makefile_test, ['ppr002']) +test('Ppr002a', ignore_stderr, makefile_test, ['ppr002a']) test('Ppr003', ignore_stderr, makefile_test, ['ppr003']) test('Ppr004', ignore_stderr, makefile_test, ['ppr004']) test('Ppr005', ignore_stderr, makefile_test, ['ppr005']) test('Ppr006', ignore_stderr, makefile_test, ['ppr006']) test('Ppr007', ignore_stderr, makefile_test, ['ppr007']) -test('Ppr008', ignore_stderr, makefile_test, ['ppr008']) + +# These tests have CPP, and as of 2021-03-15 the processing on the +# darwin and windows platforms is slightly different. +#test('Ppr008', [ignore_stderr,expect_fail], makefile_test, ['ppr008']) +#test('Ppr010', [ignore_stderr,expect_fail], makefile_test, ['ppr010']) + test('Ppr009', ignore_stderr, makefile_test, ['ppr009']) -test('Ppr010', ignore_stderr, makefile_test, ['ppr010']) test('Ppr011', ignore_stderr, makefile_test, ['ppr011']) test('Ppr012', ignore_stderr, makefile_test, ['ppr012']) test('Ppr013', ignore_stderr, makefile_test, ['ppr013']) @@ -45,6 +50,13 @@ test('Ppr044', ignore_stderr, makefile_test, ['ppr044']) test('Ppr045', ignore_stderr, makefile_test, ['ppr045']) test('Ppr046', ignore_stderr, makefile_test, ['ppr046']) test('Ppr048', ignore_stderr, makefile_test, ['ppr048']) +test('Ppr049', ignore_stderr, makefile_test, ['ppr049']) +test('Ppr050', ignore_stderr, makefile_test, ['ppr050']) +test('Ppr051', ignore_stderr, makefile_test, ['ppr051']) +test('Ppr052', ignore_stderr, makefile_test, ['ppr052']) +test('Ppr053', ignore_stderr, makefile_test, ['ppr053']) +test('Ppr054', ignore_stderr, makefile_test, ['ppr054']) +test('Ppr055', ignore_stderr, makefile_test, ['ppr055']) test('T13199', [ignore_stderr, req_interp], makefile_test, ['T13199']) test('T13050p', ignore_stderr, makefile_test, ['T13050p']) test('T13550', [ignore_stderr, req_interp], makefile_test, ['T13550']) @@ -59,3 +71,53 @@ test('T15761', normal, compile_fail, ['']) test('T18052a', normal, compile, ['-ddump-simpl -ddump-types -dno-typeable-binds -dsuppress-uniques']) test('T18791', normal, compile, ['-ddump-parsed-ast']) +test('RdrNames', ignore_stderr, makefile_test, ['RdrNames']) +test('StarBinderAnns', ignore_stderr, makefile_test, ['StarBinderAnns']) +test('Test10255', ignore_stderr, makefile_test, ['Test10255']) +test('Test10268', ignore_stderr, makefile_test, ['Test10268']) +test('Test10269', ignore_stderr, makefile_test, ['Test10269']) +test('Test10276', ignore_stderr, makefile_test, ['Test10276']) +test('Test10278', ignore_stderr, makefile_test, ['Test10278']) +test('Test10280', ignore_stderr, makefile_test, ['Test10280']) +test('Test10307', ignore_stderr, makefile_test, ['Test10307']) +test('Test10309', ignore_stderr, makefile_test, ['Test10309']) +test('Test10312', ignore_stderr, makefile_test, ['Test10312']) +test('Test10313', ignore_stderr, makefile_test, ['Test10313']) +test('Test10354', ignore_stderr, makefile_test, ['Test10354']) +test('Test10357', ignore_stderr, makefile_test, ['Test10357']) +test('Test10358', ignore_stderr, makefile_test, ['Test10358']) +test('Test10396', ignore_stderr, makefile_test, ['Test10396']) +test('Test10399', ignore_stderr, makefile_test, ['Test10399']) +test('Test10598', ignore_stderr, makefile_test, ['Test10598']) + +# PPR of unicode -> does not roundtrip. See #18846 +test('Test11018', [ignore_stderr,expect_fail], makefile_test, ['Test11018']) +test('Test17519', [ignore_stderr,expect_fail], makefile_test, ['Test17519']) + +test('Test11321', ignore_stderr, makefile_test, ['Test11321']) +test('Test11332', ignore_stderr, makefile_test, ['Test11332']) + +test('Test11430', ignore_stderr, makefile_test, ['Test11430']) +test('Test12417', ignore_stderr, makefile_test, ['Test12417']) +test('Test13163', ignore_stderr, makefile_test, ['Test13163']) +test('Test15303', ignore_stderr, makefile_test, ['Test15303']) +test('Test16212', ignore_stderr, makefile_test, ['Test16212']) +test('Test16230', ignore_stderr, makefile_test, ['Test16230']) +test('Test16236', ignore_stderr, makefile_test, ['Test16236']) +test('Test16279', ignore_stderr, makefile_test, ['Test16279']) +test('Test17388', ignore_stderr, makefile_test, ['Test17388']) +test('Test15242', ignore_stderr, makefile_test, ['Test15242']) +test('AnnotationLet', ignore_stderr, makefile_test, ['AnnotationLet']) +test('TestBoolFormula', ignore_stderr, makefile_test, ['TestBoolFormula']) +test('BundleExport', ignore_stderr, makefile_test, ['BundleExport']) +test('AnnotationTuple', ignore_stderr, makefile_test, ['AnnotationTuple']) +test('ListComprehensions', ignore_stderr, makefile_test, ['ListComprehensions']) +test('load-main', ignore_stderr, makefile_test, ['load-main']) + +# PPR of explicit foralls needs the "." to have an extra space. See note in pprHsForAll +test('PprRecordDotSyntax1', [ignore_stderr, expect_fail], makefile_test, ['PprRecordDotSyntax1']) + +test('PprRecordDotSyntax2', ignore_stderr, makefile_test, ['PprRecordDotSyntax2']) +test('PprRecordDotSyntax3', ignore_stderr, makefile_test, ['PprRecordDotSyntax3']) +test('PprRecordDotSyntax4', ignore_stderr, makefile_test, ['PprRecordDotSyntax4']) +test('PprRecordDotSyntaxA', ignore_stderr, makefile_test, ['PprRecordDotSyntaxA']) diff --git a/testsuite/tests/ghc-api/annotations/load-main.hs b/testsuite/tests/printer/load-main.hs index 4628a423b8..4628a423b8 100644 --- a/testsuite/tests/ghc-api/annotations/load-main.hs +++ b/testsuite/tests/printer/load-main.hs diff --git a/testsuite/tests/th/T10603.stderr b/testsuite/tests/th/T10603.stderr index 3de6cb057b..2828bb078a 100644 --- a/testsuite/tests/th/T10603.stderr +++ b/testsuite/tests/th/T10603.stderr @@ -1,4 +1,4 @@ T10603.hs:5:17-69: Splicing expression - [| case Just 'a' of { Just a -> Just ((\ x -> x) a) } |] + [| case Just 'a' of Just a -> Just ((\ x -> x) a) |] ======> - case Just 'a' of { Just a -> Just ((\ x -> x) a) } + case Just 'a' of Just a -> Just ((\ x -> x) a) diff --git a/testsuite/tests/th/TH_StaticPointers02.stderr b/testsuite/tests/th/TH_StaticPointers02.stderr index a89ad11b0d..6d2c759ab8 100644 --- a/testsuite/tests/th/TH_StaticPointers02.stderr +++ b/testsuite/tests/th/TH_StaticPointers02.stderr @@ -2,11 +2,11 @@ TH_StaticPointers02.hs:11:34: error: • static forms cannot be used in splices: static 'a' • In the untyped splice: - $(case staticKey (static 'a') of { + $(case staticKey (static 'a') of Fingerprint w0 w1 -> let w0i = ... w1i = ... in [| fmap (\ p -> deRefStaticPtr p :: Char) $ unsafeLookupStaticPtr - $ Fingerprint (fromIntegral w0i) (fromIntegral w1i) |] }) + $ Fingerprint (fromIntegral w0i) (fromIntegral w1i) |]) diff --git a/testsuite/tests/th/TH_exn1.stderr b/testsuite/tests/th/TH_exn1.stderr index 69c854e244..2df704662c 100644 --- a/testsuite/tests/th/TH_exn1.stderr +++ b/testsuite/tests/th/TH_exn1.stderr @@ -3,4 +3,4 @@ TH_exn1.hs:1:1: error: Exception when trying to run compile-time code: TH_exn1.hs:(9,4)-(10,23): Non-exhaustive patterns in case - Code: (case reverse "no" of { [] -> return [] }) + Code: (case reverse "no" of [] -> return []) diff --git a/testsuite/tests/typecheck/should_compile/T12427a.stderr b/testsuite/tests/typecheck/should_compile/T12427a.stderr index b9c3969bf0..84f330e717 100644 --- a/testsuite/tests/typecheck/should_compile/T12427a.stderr +++ b/testsuite/tests/typecheck/should_compile/T12427a.stderr @@ -7,7 +7,7 @@ T12427a.hs:17:29: error: at T12427a.hs:17:1-29 • In the expression: v In a case alternative: T1 _ v -> v - In the expression: case y of { T1 _ v -> v } + In the expression: case y of T1 _ v -> v • Relevant bindings include h11 :: T -> p (bound at T12427a.hs:17:1) diff --git a/testsuite/tests/typecheck/should_compile/T15242.stderr b/testsuite/tests/typecheck/should_compile/T15242.stderr index 0435a644f8..6b75097d69 100644 --- a/testsuite/tests/typecheck/should_compile/T15242.stderr +++ b/testsuite/tests/typecheck/should_compile/T15242.stderr @@ -1,34 +1,34 @@ -({ T15242.hs:6:5-41 } +(SrcSpanAnn (ApiAnnNotUsed) { T15242.hs:6:5-41 }) (HsPar -({ T15242.hs:6:6-40 } +(SrcSpanAnn (ApiAnnNotUsed) { T15242.hs:6:6-40 }) (HsPar -({ T15242.hs:6:7-39 } +(SrcSpanAnn (ApiAnnNotUsed) { T15242.hs:6:7-39 }) (HsPar -({ T15242.hs:6:8-35 } +(SrcSpanAnn (ApiAnnNotUsed) { T15242.hs:6:8-35 }) (HsPar -({ T15242.hs:6:9-34 } +(SrcSpanAnn (ApiAnnNotUsed) { T15242.hs:6:9-34 }) (HsPar -({ T15242.hs:6:10-33 } +(SrcSpanAnn (ApiAnnNotUsed) { T15242.hs:6:10-33 }) (HsPar -({ T15242.hs:6:11-29 } +(SrcSpanAnn (ApiAnnNotUsed) { T15242.hs:6:11-29 }) (HsPar -({ T15242.hs:6:12-25 } +(SrcSpanAnn (ApiAnnNotUsed) { T15242.hs:6:12-25 }) (HsPar -({ T15242.hs:6:13-21 } +(SrcSpanAnn (ApiAnnNotUsed) { T15242.hs:6:13-21 }) (HsPar -({ T15242.hs:6:14-20 } +(SrcSpanAnn (ApiAnnNotUsed) { T15242.hs:6:14-20 }) (HsPar -({ T15242.hs:5:5-17 } +(SrcSpanAnn (ApiAnnNotUsed) { T15242.hs:5:5-17 }) (HsPar -({ T15242.hs:5:6-16 } +(SrcSpanAnn (ApiAnnNotUsed) { T15242.hs:5:6-16 }) (HsPar -({ T15242.hs:5:7-13 } +(SrcSpanAnn (ApiAnnNotUsed) { T15242.hs:5:7-13 }) (HsPar -({ T15242.hs:5:19-37 } +(SrcSpanAnn (ApiAnnNotUsed) { T15242.hs:5:19-37 }) (HsPar -({ T15242.hs:5:20-32 } +(SrcSpanAnn (ApiAnnNotUsed) { T15242.hs:5:20-32 }) (HsPar -({ T15242.hs:5:21-31 } +(SrcSpanAnn (ApiAnnNotUsed) { T15242.hs:5:21-31 }) (HsPar -({ T15242.hs:5:22-26 } +(SrcSpanAnn (ApiAnnNotUsed) { T15242.hs:5:22-26 }) (HsPar diff --git a/testsuite/tests/typecheck/should_compile/hole_constraints.stderr b/testsuite/tests/typecheck/should_compile/hole_constraints.stderr index 2e32b1b92a..28f3ad92ba 100644 --- a/testsuite/tests/typecheck/should_compile/hole_constraints.stderr +++ b/testsuite/tests/typecheck/should_compile/hole_constraints.stderr @@ -59,8 +59,8 @@ hole_constraints.hs:20:19: warning: [-Wtyped-holes (in -Wdefault)] hole_constraints.hs:27:32: warning: [-Wtyped-holes (in -Wdefault)] • Found hole: _ :: String • In a case alternative: AnyShow x -> _ - In the expression: case a of { AnyShow x -> _ } - In an equation for ‘foo’: foo a = case a of { AnyShow x -> _ } + In the expression: case a of AnyShow x -> _ + In an equation for ‘foo’: foo a = case a of AnyShow x -> _ • Relevant bindings include x :: a (bound at hole_constraints.hs:27:27) a :: AnyShow (bound at hole_constraints.hs:27:5) diff --git a/testsuite/tests/typecheck/should_compile/hole_constraints_nested.stderr b/testsuite/tests/typecheck/should_compile/hole_constraints_nested.stderr index 6ca50b65b4..9667fc3a89 100644 --- a/testsuite/tests/typecheck/should_compile/hole_constraints_nested.stderr +++ b/testsuite/tests/typecheck/should_compile/hole_constraints_nested.stderr @@ -2,8 +2,8 @@ hole_constraints_nested.hs:12:16: warning: [-Wtyped-holes (in -Wdefault)] • Found hole: _ :: Int • In a case alternative: EqOrd -> _ - In the expression: case d2 of { EqOrd -> _ } - In a case alternative: Refl -> case d2 of { EqOrd -> _ } + In the expression: case d2 of EqOrd -> _ + In a case alternative: Refl -> case d2 of EqOrd -> _ • Relevant bindings include d2 :: EqOrd a (bound at hole_constraints_nested.hs:9:6) d1 :: a :~: b (bound at hole_constraints_nested.hs:9:3) diff --git a/testsuite/tests/typecheck/should_fail/tcfail069.stderr b/testsuite/tests/typecheck/should_fail/tcfail069.stderr index a7c996ce84..592265adb8 100644 --- a/testsuite/tests/typecheck/should_fail/tcfail069.stderr +++ b/testsuite/tests/typecheck/should_fail/tcfail069.stderr @@ -4,4 +4,4 @@ tcfail069.hs:21:7: error: with actual type: [a0] • In the pattern: [] In a case alternative: [] -> error "foo" - In the expression: case (list1, list2) of { [] -> error "foo" } + In the expression: case (list1, list2) of [] -> error "foo" diff --git a/testsuite/tests/typecheck/should_fail/tcfail159.stderr b/testsuite/tests/typecheck/should_fail/tcfail159.stderr index 706b3afa32..5a49966637 100644 --- a/testsuite/tests/typecheck/should_fail/tcfail159.stderr +++ b/testsuite/tests/typecheck/should_fail/tcfail159.stderr @@ -3,4 +3,4 @@ tcfail159.hs:9:11: error: • Expecting a lifted type, but got an unlifted type • In the pattern: ~(# p, q #) In a case alternative: ~(# p, q #) -> p - In the expression: case h x of { ~(# p, q #) -> p } + In the expression: case h x of ~(# p, q #) -> p diff --git a/testsuite/tests/typecheck/should_fail/tcfail180.stderr b/testsuite/tests/typecheck/should_fail/tcfail180.stderr index 7764b7798b..da7725fdb0 100644 --- a/testsuite/tests/typecheck/should_fail/tcfail180.stderr +++ b/testsuite/tests/typecheck/should_fail/tcfail180.stderr @@ -3,4 +3,4 @@ tcfail180.hs:10:9: Couldn't match expected type ‘f0 b0’ with actual type ‘Bool’ In the pattern: True In a case alternative: True -> () - In the expression: case p of { True -> () } + In the expression: case p of True -> () diff --git a/testsuite/tests/unboxedsums/Makefile b/testsuite/tests/unboxedsums/Makefile deleted file mode 100644 index ff17bccc51..0000000000 --- a/testsuite/tests/unboxedsums/Makefile +++ /dev/null @@ -1,10 +0,0 @@ -TOP=../.. -include $(TOP)/mk/boilerplate.mk -include $(TOP)/mk/test.mk - -.PHONY: sum_api_annots -sum_api_annots: - number=1 ; while [[ $$number -le 11 ]] ; do \ - $(CHECK_API_ANNOTATIONS) "`'$(TEST_HC)' $(TEST_HC_OPTS) --print-libdir | tr -d '\r'`" unboxedsums$$number.hs ; \ - ((number = number + 1)) ; \ - done diff --git a/testsuite/tests/unboxedsums/all.T b/testsuite/tests/unboxedsums/all.T index 764a850aec..c697a42886 100644 --- a/testsuite/tests/unboxedsums/all.T +++ b/testsuite/tests/unboxedsums/all.T @@ -24,11 +24,5 @@ test('empty_sum', only_ways(['normal']), compile_and_run, ['']) test('sum_rr', normal, compile, ['']) test('T12711', only_ways(['ghci']), ghci_script, ['T12711.script']) -# TODO: Need to run this in --slow mode only -# test('sum_api_annots', -# [only_ways(['normal']), -# extra_files([ "unboxedsums" + str(i) + ".hs" for i in range(1, 12) ])], -# makefile_test, []) - test('UbxSumLevPoly', normal, compile, ['-Wno-overlapping-patterns']) test('T14051', normal, multi_compile, ['T14051.hs', [('T14051a.hs', '')], '-O2 -v0']) diff --git a/testsuite/tests/warnings/should_fail/CaretDiagnostics1.stderr b/testsuite/tests/warnings/should_fail/CaretDiagnostics1.stderr index a4b6cc0b74..3f0a4f350b 100644 --- a/testsuite/tests/warnings/should_fail/CaretDiagnostics1.stderr +++ b/testsuite/tests/warnings/should_fail/CaretDiagnostics1.stderr @@ -30,7 +30,7 @@ CaretDiagnostics1.hs:13:7-11: error: Actual: String • In the pattern: "γηξ" In a case alternative: "γηξ" -> () '0' - In the expression: case id of { "γηξ" -> () '0' } + In the expression: case id of "γηξ" -> () '0' | 13 | "γηξ" -> ( | ^^^^^ |