From 1a9ae6096d90118dad32a486ba064d06f35c4311 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 9 Sep 2020 13:12:51 -0400 Subject: [PATCH 01/30] Institute generate-ast package. --- WORKSPACE | 1 + semantic-ast/BUILD.bazel | 16 ++++++++++++++++ semantic-ast/semantic-ast.cabal | 7 ++++++- semantic-ast/src/AST/GenerateSyntax.hs | 11 ++++++++--- 4 files changed, 31 insertions(+), 4 deletions(-) diff --git a/WORKSPACE b/WORKSPACE index c0df66213..bd076cb3b 100644 --- a/WORKSPACE +++ b/WORKSPACE @@ -100,6 +100,7 @@ stack_snapshot( "network", "network-uri", "optparse-applicative", + "optparse-generic", "parsers", "pathtype", "pretty-show", diff --git a/semantic-ast/BUILD.bazel b/semantic-ast/BUILD.bazel index ed1488dee..480a6af27 100644 --- a/semantic-ast/BUILD.bazel +++ b/semantic-ast/BUILD.bazel @@ -12,6 +12,7 @@ load( ) load( "//:build/common.bzl", + "EXECUTABLE_FLAGS", "GHC_FLAGS", ) @@ -46,3 +47,18 @@ haskell_library( "@stackage//:unordered-containers", ], ) + +haskell_binary( + name = "generate-ast", + srcs = glob(["app/**/*.hs"]), + compiler_flags = GHC_FLAGS + EXECUTABLE_FLAGS + ["-XStrictData"], + deps = [ + ":semantic-ast", + "//:base", + "//:filepath", + "//:template-haskell", + "@stackage//:directory", + "@stackage//:optparse-generic", + "@tree-sitter-json//:tree-sitter-json", + ], +) diff --git a/semantic-ast/semantic-ast.cabal b/semantic-ast/semantic-ast.cabal index 60188286d..de6e68f32 100644 --- a/semantic-ast/semantic-ast.cabal +++ b/semantic-ast/semantic-ast.cabal @@ -80,4 +80,9 @@ library , unordered-containers ^>= 0.2.10 hs-source-dirs: src - default-language: Haskell2010 + +executable generate-ast + import: haskell + hs-source-dirs: app + main-is: Main.hs + build-depends: optparse-generic diff --git a/semantic-ast/src/AST/GenerateSyntax.hs b/semantic-ast/src/AST/GenerateSyntax.hs index e939b3f7d..5c9303818 100644 --- a/semantic-ast/src/AST/GenerateSyntax.hs +++ b/semantic-ast/src/AST/GenerateSyntax.hs @@ -9,6 +9,7 @@ module AST.GenerateSyntax ( syntaxDatatype , astDeclarationsForLanguage +, astDeclarationsRelative ) where import AST.Deserialize (Children (..), Datatype (..), DatatypeName (..), Field (..), Multiple (..), Named (..), Required (..), Type (..)) @@ -44,6 +45,10 @@ astDeclarationsForLanguage language filePath = do currentFilename <- loc_filename <$> location pwd <- runIO getCurrentDirectory let invocationRelativePath = takeDirectory (pwd currentFilename) filePath + astDeclarationsRelative language invocationRelativePath + +astDeclarationsRelative :: Ptr TS.Language -> FilePath -> Q [Dec] +astDeclarationsRelative language invocationRelativePath = do input <- runIO (eitherDecodeFileStrict' invocationRelativePath) >>= either fail pure allSymbols <- runIO (getAllSymbols language) debugSymbolNames <- [d| @@ -100,9 +105,9 @@ syntaxDatatype language allSymbols datatype = skipDefined $ do in glue <$> generatedDatatype [con] <*> symbols <*> traversalInstances where -- Skip generating datatypes that have already been defined (overridden) in the module where the splice is running. - skipDefined m = do - isLocal <- lookupTypeName nameStr >>= maybe (pure False) isLocalName - if isLocal then pure [] else m + skipDefined m = m + -- isLocal <- lookupTypeName nameStr >>= maybe (pure False) isLocalName + -- if isLocal then pure [] else m nameStr = toNameString (datatypeNameStatus datatype) (getDatatypeName (AST.Deserialize.datatypeName datatype)) makeStandaloneDerivings :: TypeQ -> Q [Dec] From d3a94a478a44667964b15b6bed67743eb629c1be Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 9 Sep 2020 13:26:27 -0400 Subject: [PATCH 02/30] sometimes you write code and forget to check it in --- semantic-ast/app/Main.hs | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 semantic-ast/app/Main.hs diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs new file mode 100644 index 000000000..1fdb27137 --- /dev/null +++ b/semantic-ast/app/Main.hs @@ -0,0 +1,28 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE TypeApplications #-} + +module Main (main) where + +import AST.GenerateSyntax +import GHC.Generics (Generic) +import Language.Haskell.TH +import qualified Options.Generic as Opt +import System.Directory +import qualified TreeSitter.JSON as JSON (tree_sitter_json) + +data Config = Config + { language :: String, + path :: FilePath + } + deriving (Show, Generic) + +instance Opt.ParseRecord Config + +main :: IO () +main = do + args <- Opt.getRecord "generate-ast" + print @Config args + absolute <- makeAbsolute (path args) + decls <- runQ (astDeclarationsRelative JSON.tree_sitter_json absolute) + putStrLn (pprint decls) From 3163a3e2627b4ac5e850bf971ce4350985e121d0 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 9 Sep 2020 14:15:33 -0400 Subject: [PATCH 03/30] nothing that some text munging and 'sed' can't fix --- WORKSPACE | 3 +- semantic-ast/BUILD.bazel | 3 ++ semantic-ast/app/Main.hs | 59 ++++++++++++++++++++++++++++++++++++---- stack-snapshot.yaml | 1 + 4 files changed, 60 insertions(+), 6 deletions(-) diff --git a/WORKSPACE b/WORKSPACE index bd076cb3b..a40450907 100644 --- a/WORKSPACE +++ b/WORKSPACE @@ -94,9 +94,9 @@ stack_snapshot( "hspec", "hspec-core", "hspec-expectations", - "proto-lens-jsonpb", "lens", "lingo", + "neat-interpolation", "network", "network-uri", "optparse-applicative", @@ -109,6 +109,7 @@ stack_snapshot( "prettyprinter-ansi-terminal", "process", "proto-lens", + "proto-lens-jsonpb", "proto-lens-runtime", "raw-strings-qq", "recursion-schemes", diff --git a/semantic-ast/BUILD.bazel b/semantic-ast/BUILD.bazel index 480a6af27..11ec8e8b4 100644 --- a/semantic-ast/BUILD.bazel +++ b/semantic-ast/BUILD.bazel @@ -56,8 +56,11 @@ haskell_binary( ":semantic-ast", "//:base", "//:filepath", + "//:process", "//:template-haskell", + "//:text", "@stackage//:directory", + "@stackage//:neat-interpolation", "@stackage//:optparse-generic", "@tree-sitter-json//:tree-sitter-json", ], diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index 1fdb27137..6a54bcadc 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -1,28 +1,77 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE QuasiQuotes #-} +{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeApplications #-} module Main (main) where import AST.GenerateSyntax +import Data.Maybe +import Data.Text (Text) +import qualified Data.Text as T +import qualified Data.Text.IO as T import GHC.Generics (Generic) import Language.Haskell.TH +import NeatInterpolation import qualified Options.Generic as Opt import System.Directory +import System.IO +import System.Process import qualified TreeSitter.JSON as JSON (tree_sitter_json) data Config = Config - { language :: String, + { language :: Text, path :: FilePath } deriving (Show, Generic) instance Opt.ParseRecord Config +header :: Text +header = + [trimming| +{-# LANGUAGE CPP #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveAnyClass #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DeriveTraversable #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE KindSignatures #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE QuantifiedConstraints #-} +{-# LANGUAGE StandaloneDeriving #-} +{-# LANGUAGE TemplateHaskell #-} +{-# LANGUAGE TypeApplications #-} +{-# LANGUAGE TypeOperators #-} +{-# LANGUAGE UndecidableInstances #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +|] + main :: IO () main = do - args <- Opt.getRecord "generate-ast" - print @Config args - absolute <- makeAbsolute (path args) + Config language path <- Opt.getRecord "generate-ast" + absolute <- makeAbsolute path decls <- runQ (astDeclarationsRelative JSON.tree_sitter_json absolute) - putStrLn (pprint decls) + + let modheader = + [trimming| module Language.$language.AST (module Language.$language.AST) where + -- Language definition for $language, enerated by ast-generate. Do not edit! + import Prelude () + |] + + let programText = T.unlines [header, modheader, T.pack (pprint decls)] + hasOrmolu <- findExecutable "ormolu" + if isNothing hasOrmolu + then T.putStrLn programText + else do + (path, tf) <- openTempFile "/tmp" "generated.hs" + print path + T.hPutStrLn tf programText + hClose tf + callProcess "sed" ["-i", "-e", "s/AST.Traversable1.Class.Traversable1 someConstraint/(AST.Traversable1.Class.Traversable1 someConstraint)/g", path] + callProcess "ormolu" ["--mode", "inplace", path] + readFile path >>= putStrLn diff --git a/stack-snapshot.yaml b/stack-snapshot.yaml index 4ba89c53a..f94d93899 100644 --- a/stack-snapshot.yaml +++ b/stack-snapshot.yaml @@ -8,6 +8,7 @@ packages: - fused-effects-readline-0.1.0.0 - semilattices-0.0.0.4 - haskeline-0.8.0.0 + - Interpolation-0.3.0 - tree-sitter-0.9.0.2 - unliftio-core-0.2.0.1 - lingo-0.5.0.1 From d0025d4def61d6784bfc7ef711cf1f00039ee09f Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 9 Sep 2020 16:07:38 -0400 Subject: [PATCH 04/30] okay it halfway works --- semantic-ast/app/Main.hs | 54 ++- semantic-ast/src/AST/GenerateSyntax.hs | 3 +- semantic-json/src/Language/JSON/AST.hs | 561 ++++++++++++++++++++++++- 3 files changed, 600 insertions(+), 18 deletions(-) diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index 6a54bcadc..65d570dd1 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -1,8 +1,11 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE QuasiQuotes #-} +{-# LANGUAGE LambdaCase #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeApplications #-} +{-# LANGUAGE TypeSynonymInstances #-} +{-# LANGUAGE FlexibleInstances #-} module Main (main) where @@ -16,8 +19,11 @@ import Language.Haskell.TH import NeatInterpolation import qualified Options.Generic as Opt import System.Directory +import Debug.Trace import System.IO import System.Process +import qualified Language.Haskell.TH.PprLib as Doc +import Language.Haskell.TH.PprLib (Doc) import qualified TreeSitter.JSON as JSON (tree_sitter_json) data Config = Config @@ -28,6 +34,8 @@ data Config = Config instance Opt.ParseRecord Config +instance Ppr Doc where ppr = id + header :: Text header = [trimming| @@ -51,6 +59,46 @@ header = {-# OPTIONS_GHC -fno-warn-unused-imports #-} |] +imports :: Text +imports = + [trimming| +import qualified AST.Parse +import qualified AST.Token +import qualified AST.Traversable1.Class +import qualified AST.Unmarshal +import qualified Data.Foldable +import qualified Data.List as Data.OldList +import qualified Data.Maybe as GHC.Maybe +import qualified Data.Text.Internal +import qualified Data.Traversable +import qualified GHC.Base +import qualified GHC.Generics +import qualified GHC.Records +import qualified GHC.Show +import qualified Prelude as GHC.Classes +import qualified TreeSitter.Node + +debugSymbolNames :: [GHC.Base.String] +debugSymbolNames = debugSymbolNames_0 +|] + +class Ppr a => Pretty a where + pretty :: a -> Doc + pretty = ppr + +instance Pretty a => Pretty [a] where + pretty = Doc.vcat . fmap pretty + +instance Pretty Dec where + pretty x = case x of + InstanceD ol cxt typ bindings -> + let adjust = \case + ValD (VarP lhs) bod decs -> traceShow x (ValD (VarP (mkName . nameBase $ lhs)) bod decs) + FunD n cs -> FunD (mkName . nameBase $ n) cs + y -> traceShowId y + in ppr (InstanceD ol cxt typ (fmap adjust bindings)) + other -> traceShow other (ppr other) + main :: IO () main = do Config language path <- Opt.getRecord "generate-ast" @@ -59,17 +107,15 @@ main = do let modheader = [trimming| module Language.$language.AST (module Language.$language.AST) where - -- Language definition for $language, enerated by ast-generate. Do not edit! - import Prelude () + -- Language definition for $language, generated by ast-generate. Do not edit! |] - let programText = T.unlines [header, modheader, T.pack (pprint decls)] + let programText = T.unlines [header, modheader, imports, T.pack (pprint (pretty decls))] hasOrmolu <- findExecutable "ormolu" if isNothing hasOrmolu then T.putStrLn programText else do (path, tf) <- openTempFile "/tmp" "generated.hs" - print path T.hPutStrLn tf programText hClose tf callProcess "sed" ["-i", "-e", "s/AST.Traversable1.Class.Traversable1 someConstraint/(AST.Traversable1.Class.Traversable1 someConstraint)/g", path] diff --git a/semantic-ast/src/AST/GenerateSyntax.hs b/semantic-ast/src/AST/GenerateSyntax.hs index 5c9303818..22f0a3241 100644 --- a/semantic-ast/src/AST/GenerateSyntax.hs +++ b/semantic-ast/src/AST/GenerateSyntax.hs @@ -51,6 +51,7 @@ astDeclarationsRelative :: Ptr TS.Language -> FilePath -> Q [Dec] astDeclarationsRelative language invocationRelativePath = do input <- runIO (eitherDecodeFileStrict' invocationRelativePath) >>= either fail pure allSymbols <- runIO (getAllSymbols language) + let dsn = varE (mkName "debugSymbolNames") debugSymbolNames <- [d| debugSymbolNames :: [String] debugSymbolNames = $(listE (map (litE . stringL . debugPrefix) allSymbols)) @@ -81,7 +82,7 @@ syntaxDatatype language allSymbols datatype = skipDefined $ do name = mkName nameStr generatedDatatype cons = dataD (cxt []) name [plainTV annParameterName] Nothing cons [deriveStockClause, deriveAnyClassClause] deriveStockClause = derivClause (Just StockStrategy) [conT ''Generic, conT ''Generic1] - deriveAnyClassClause = derivClause (Just AnyclassStrategy) [conT ''Traversable1 `appT` varT (mkName "someConstraint")] + deriveAnyClassClause = derivClause (Just AnyclassStrategy) [parensT (conT ''Traversable1 `appT` varT (mkName "someConstraint"))] deriveGN = derivClause (Just NewtypeStrategy) [conT ''TS.SymbolMatching] case datatype of SumType (DatatypeName _) _ subtypes -> diff --git a/semantic-json/src/Language/JSON/AST.hs b/semantic-json/src/Language/JSON/AST.hs index b51cb7bfa..86e75e9f5 100644 --- a/semantic-json/src/Language/JSON/AST.hs +++ b/semantic-json/src/Language/JSON/AST.hs @@ -17,18 +17,553 @@ {-# LANGUAGE UndecidableInstances #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Language.JSON.AST -( module Language.JSON.AST -, JSON.getTestCorpusDir -) where +module Language.JSON.AST (module Language.JSON.AST) where -import AST.GenerateSyntax -import Language.Haskell.TH.Syntax (runIO) -import Prelude hiding (String) -import qualified TreeSitter.JSON as JSON (getNodeTypesPath, getTestCorpusDir, tree_sitter_json) +-- Language definition for JSON, generated by ast-generate. Do not edit! +import qualified AST.Parse +import qualified AST.Token +import qualified AST.Traversable1.Class +import qualified AST.Unmarshal +import qualified Data.Foldable +import qualified Data.List as Data.OldList +import qualified Data.Maybe as GHC.Maybe +import qualified Data.Text.Internal +import qualified Data.Traversable +import qualified GHC.Base +import qualified GHC.Generics +import qualified GHC.Records +import qualified GHC.Show +import qualified TreeSitter.Node +import qualified Prelude as GHC.Classes + +debugSymbolNames :: [GHC.Base.String] +debugSymbolNames = debugSymbolNames_0 + +debugSymbolNames_0 :: [GHC.Base.String] +debugSymbolNames_0 = + [ "end", + "_{", + "_,", + "_}", + "_:", + "_[", + "_]", + "_\"", + "_string_content_token1", + "escape_sequence", + "number", + "true", + "false", + "null", + "document", + "_value", + "object", + "pair", + "array", + "string", + "string_content", + "_object_repeat1", + "_array_repeat1", + "_string_content_repeat1" + ] + +newtype Value a = Value {getValue :: ((Array GHC.Generics.:+: False GHC.Generics.:+: Null GHC.Generics.:+: Number GHC.Generics.:+: Object GHC.Generics.:+: String GHC.Generics.:+: True) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + +instance GHC.Records.HasField "ann" (Value a_1) a_1 where + getField = AST.Unmarshal.gann GHC.Base.. getValue + +deriving instance GHC.Classes.Eq a_2 => GHC.Classes.Eq (Value a_2) + +deriving instance GHC.Classes.Ord a_3 => GHC.Classes.Ord (Value a_3) + +deriving instance GHC.Show.Show a_4 => GHC.Show.Show (Value a_4) + +instance AST.Unmarshal.Unmarshal Value + +instance Data.Foldable.Foldable Value where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Value where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Value where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Array a = Array {ann :: a, extraChildren :: ([AST.Parse.Err (Value a)])} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + +instance AST.Unmarshal.SymbolMatching Array where + matchedSymbols _ = [18] + showFailure _ node_5 = + "expected " + GHC.Base.<> ( "array" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_5 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_5) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_6 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_7 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_8 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_9 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_6 + c1_7 = TreeSitter.Node.nodeStartPoint node_5 + TreeSitter.Node.TSPoint + r2_8 + c2_9 = TreeSitter.Node.nodeEndPoint node_5 + +deriving instance GHC.Classes.Eq a_10 => GHC.Classes.Eq (Array a_10) + +deriving instance GHC.Classes.Ord a_11 => GHC.Classes.Ord (Array a_11) + +deriving instance GHC.Show.Show a_12 => GHC.Show.Show (Array a_12) + +instance AST.Unmarshal.Unmarshal Array + +instance Data.Foldable.Foldable Array where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Array where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Array where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Document a = Document {ann :: a, extraChildren :: (AST.Parse.Err (Value a))} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + +instance AST.Unmarshal.SymbolMatching Document where + matchedSymbols _ = [14] + showFailure _ node_13 = + "expected " + GHC.Base.<> ( "document" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_13 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_13) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_14 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_15 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_16 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_17 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_14 + c1_15 = TreeSitter.Node.nodeStartPoint node_13 + TreeSitter.Node.TSPoint + r2_16 + c2_17 = TreeSitter.Node.nodeEndPoint node_13 + +deriving instance GHC.Classes.Eq a_18 => GHC.Classes.Eq (Document a_18) + +deriving instance GHC.Classes.Ord a_19 => GHC.Classes.Ord (Document a_19) + +deriving instance GHC.Show.Show a_20 => GHC.Show.Show (Document a_20) + +instance AST.Unmarshal.Unmarshal Document + +instance Data.Foldable.Foldable Document where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Document where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Document where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Object a = Object {ann :: a, extraChildren :: ([AST.Parse.Err (Pair a)])} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + +instance AST.Unmarshal.SymbolMatching Object where + matchedSymbols _ = [16] + showFailure _ node_21 = + "expected " + GHC.Base.<> ( "object" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_21 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_21) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_22 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_23 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_24 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_25 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_22 + c1_23 = TreeSitter.Node.nodeStartPoint node_21 + TreeSitter.Node.TSPoint + r2_24 + c2_25 = TreeSitter.Node.nodeEndPoint node_21 + +deriving instance GHC.Classes.Eq a_26 => GHC.Classes.Eq (Object a_26) + +deriving instance GHC.Classes.Ord a_27 => GHC.Classes.Ord (Object a_27) + +deriving instance GHC.Show.Show a_28 => GHC.Show.Show (Object a_28) + +instance AST.Unmarshal.Unmarshal Object + +instance Data.Foldable.Foldable Object where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Object where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Object where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Pair a = Pair + { ann :: a, + value :: (AST.Parse.Err (Value a)), + key :: (AST.Parse.Err ((Number GHC.Generics.:+: String) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + +instance AST.Unmarshal.SymbolMatching Pair where + matchedSymbols _ = [17] + showFailure _ node_29 = + "expected " + GHC.Base.<> ( "pair" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_29 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_29) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_30 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_31 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_32 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_33 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_30 + c1_31 = TreeSitter.Node.nodeStartPoint node_29 + TreeSitter.Node.TSPoint + r2_32 + c2_33 = TreeSitter.Node.nodeEndPoint node_29 + +deriving instance GHC.Classes.Eq a_34 => GHC.Classes.Eq (Pair a_34) + +deriving instance GHC.Classes.Ord a_35 => GHC.Classes.Ord (Pair a_35) + +deriving instance GHC.Show.Show a_36 => GHC.Show.Show (Pair a_36) + +instance AST.Unmarshal.Unmarshal Pair + +instance Data.Foldable.Foldable Pair where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Pair where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Pair where + traverse = AST.Traversable1.Class.traverseDefault1 + +data String a = String + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (StringContent a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + +instance AST.Unmarshal.SymbolMatching String where + matchedSymbols _ = [19] + showFailure _ node_37 = + "expected " + GHC.Base.<> ( "string" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_37 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_37) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_38 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_39 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_40 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_41 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_38 + c1_39 = TreeSitter.Node.nodeStartPoint node_37 + TreeSitter.Node.TSPoint + r2_40 + c2_41 = TreeSitter.Node.nodeEndPoint node_37 + +deriving instance GHC.Classes.Eq a_42 => GHC.Classes.Eq (String a_42) + +deriving instance GHC.Classes.Ord a_43 => GHC.Classes.Ord (String a_43) + +deriving instance GHC.Show.Show a_44 => GHC.Show.Show (String a_44) + +instance AST.Unmarshal.Unmarshal String + +instance Data.Foldable.Foldable String where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor String where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable String where + traverse = AST.Traversable1.Class.traverseDefault1 + +data StringContent a = StringContent + { ann :: a, + extraChildren :: ([AST.Parse.Err (EscapeSequence a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + +instance AST.Unmarshal.SymbolMatching StringContent where + matchedSymbols _ = [20] + showFailure _ node_45 = + "expected " + GHC.Base.<> ( "string_content" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_45 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_45) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_46 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_47 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_48 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_49 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_46 + c1_47 = TreeSitter.Node.nodeStartPoint node_45 + TreeSitter.Node.TSPoint + r2_48 + c2_49 = TreeSitter.Node.nodeEndPoint node_45 + +deriving instance GHC.Classes.Eq a_50 => GHC.Classes.Eq (StringContent a_50) + +deriving instance GHC.Classes.Ord a_51 => GHC.Classes.Ord (StringContent a_51) + +deriving instance GHC.Show.Show a_52 => GHC.Show.Show (StringContent a_52) + +instance AST.Unmarshal.Unmarshal StringContent + +instance Data.Foldable.Foldable StringContent where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor StringContent where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable StringContent where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousDQuote = AST.Token.Token "\"" 7 + +type AnonymousComma = AST.Token.Token "," 2 + +type AnonymousColon = AST.Token.Token ":" 4 + +type AnonymousLBracket = AST.Token.Token "[" 5 + +type AnonymousRBracket = AST.Token.Token "]" 6 + +data EscapeSequence a = EscapeSequence {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + +instance AST.Unmarshal.SymbolMatching EscapeSequence where + matchedSymbols _ = [9] + showFailure _ node_53 = + "expected " + GHC.Base.<> ( "escape_sequence" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_53 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_53) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_54 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_55 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_56 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_57 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_54 + c1_55 = TreeSitter.Node.nodeStartPoint node_53 + TreeSitter.Node.TSPoint + r2_56 + c2_57 = TreeSitter.Node.nodeEndPoint node_53 + +deriving instance GHC.Classes.Eq a_58 => GHC.Classes.Eq (EscapeSequence a_58) + +deriving instance GHC.Classes.Ord a_59 => GHC.Classes.Ord (EscapeSequence a_59) + +deriving instance GHC.Show.Show a_60 => GHC.Show.Show (EscapeSequence a_60) + +instance AST.Unmarshal.Unmarshal EscapeSequence + +instance Data.Foldable.Foldable EscapeSequence where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EscapeSequence where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EscapeSequence where + traverse = AST.Traversable1.Class.traverseDefault1 + +data False a = False {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + +instance AST.Unmarshal.SymbolMatching False where + matchedSymbols _ = [12] + showFailure _ node_61 = + "expected " + GHC.Base.<> ( "false" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_61 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_61) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_62 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_63 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_64 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_65 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_62 + c1_63 = TreeSitter.Node.nodeStartPoint node_61 + TreeSitter.Node.TSPoint + r2_64 + c2_65 = TreeSitter.Node.nodeEndPoint node_61 + +deriving instance GHC.Classes.Eq a_66 => GHC.Classes.Eq (False a_66) + +deriving instance GHC.Classes.Ord a_67 => GHC.Classes.Ord (False a_67) + +deriving instance GHC.Show.Show a_68 => GHC.Show.Show (False a_68) + +instance AST.Unmarshal.Unmarshal False + +instance Data.Foldable.Foldable False where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor False where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable False where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Null a = Null {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + +instance AST.Unmarshal.SymbolMatching Null where + matchedSymbols _ = [13] + showFailure _ node_69 = + "expected " + GHC.Base.<> ( "null" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_69 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_69) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_70 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_71 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_72 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_73 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_70 + c1_71 = TreeSitter.Node.nodeStartPoint node_69 + TreeSitter.Node.TSPoint + r2_72 + c2_73 = TreeSitter.Node.nodeEndPoint node_69 + +deriving instance GHC.Classes.Eq a_74 => GHC.Classes.Eq (Null a_74) + +deriving instance GHC.Classes.Ord a_75 => GHC.Classes.Ord (Null a_75) + +deriving instance GHC.Show.Show a_76 => GHC.Show.Show (Null a_76) + +instance AST.Unmarshal.Unmarshal Null + +instance Data.Foldable.Foldable Null where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Null where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Null where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Number a = Number {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + +instance AST.Unmarshal.SymbolMatching Number where + matchedSymbols _ = [10] + showFailure _ node_77 = + "expected " + GHC.Base.<> ( "number" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_77 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_77) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_78 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_79 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_80 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_81 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_78 + c1_79 = TreeSitter.Node.nodeStartPoint node_77 + TreeSitter.Node.TSPoint + r2_80 + c2_81 = TreeSitter.Node.nodeEndPoint node_77 + +deriving instance GHC.Classes.Eq a_82 => GHC.Classes.Eq (Number a_82) + +deriving instance GHC.Classes.Ord a_83 => GHC.Classes.Ord (Number a_83) + +deriving instance GHC.Show.Show a_84 => GHC.Show.Show (Number a_84) + +instance AST.Unmarshal.Unmarshal Number + +instance Data.Foldable.Foldable Number where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Number where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Number where + traverse = AST.Traversable1.Class.traverseDefault1 + +data True a = True {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + +instance AST.Unmarshal.SymbolMatching True where + matchedSymbols _ = [11] + showFailure _ node_85 = + "expected " + GHC.Base.<> ( "true" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_85 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_85) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_86 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_87 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_88 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_89 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_86 + c1_87 = TreeSitter.Node.nodeStartPoint node_85 + TreeSitter.Node.TSPoint + r2_88 + c2_89 = TreeSitter.Node.nodeEndPoint node_85 + +deriving instance GHC.Classes.Eq a_90 => GHC.Classes.Eq (True a_90) + +deriving instance GHC.Classes.Ord a_91 => GHC.Classes.Ord (True a_91) + +deriving instance GHC.Show.Show a_92 => GHC.Show.Show (True a_92) + +instance AST.Unmarshal.Unmarshal True + +instance Data.Foldable.Foldable True where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor True where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable True where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousLBrace = AST.Token.Token "{" 1 + +type AnonymousRBrace = AST.Token.Token "}" 3 -#ifdef NODE_TYPES_PATH -astDeclarationsForLanguage JSON.tree_sitter_json NODE_TYPES_PATH -#else -runIO JSON.getNodeTypesPath >>= astDeclarationsForLanguage JSON.tree_sitter_json -#endif From b94f289c507008958400ab748f269cf22de9ac5c Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 9 Sep 2020 17:50:32 -0400 Subject: [PATCH 05/30] Figure out how to do this without sed. --- semantic-ast/app/Main.hs | 27 +- semantic-ast/src/AST/GenerateSyntax.hs | 2 +- semantic-json/src/Language/JSON/AST.hs | 336 ++++++++++++++----------- 3 files changed, 201 insertions(+), 164 deletions(-) diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index 65d570dd1..30fd4cede 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -1,11 +1,12 @@ {-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE QuasiQuotes #-} -{-# LANGUAGE LambdaCase #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeApplications #-} {-# LANGUAGE TypeSynonymInstances #-} -{-# LANGUAGE FlexibleInstances #-} +{-# OPTIONS_GHC -fno-warn-orphans #-} module Main (main) where @@ -14,16 +15,16 @@ import Data.Maybe import Data.Text (Text) import qualified Data.Text as T import qualified Data.Text.IO as T +import Debug.Trace import GHC.Generics (Generic) import Language.Haskell.TH +import Language.Haskell.TH.PprLib (Doc) +import qualified Language.Haskell.TH.PprLib as Doc import NeatInterpolation import qualified Options.Generic as Opt import System.Directory -import Debug.Trace import System.IO import System.Process -import qualified Language.Haskell.TH.PprLib as Doc -import Language.Haskell.TH.PprLib (Doc) import qualified TreeSitter.JSON as JSON (tree_sitter_json) data Config = Config @@ -89,15 +90,16 @@ class Ppr a => Pretty a where instance Pretty a => Pretty [a] where pretty = Doc.vcat . fmap pretty +adjust :: Dec -> Dec +adjust = \case + ValD (VarP lhs) bod decs -> ValD (VarP (mkName . nameBase $ lhs)) bod decs + FunD n cs -> FunD (mkName . nameBase $ n) cs + y -> y + instance Pretty Dec where pretty x = case x of - InstanceD ol cxt typ bindings -> - let adjust = \case - ValD (VarP lhs) bod decs -> traceShow x (ValD (VarP (mkName . nameBase $ lhs)) bod decs) - FunD n cs -> FunD (mkName . nameBase $ n) cs - y -> traceShowId y - in ppr (InstanceD ol cxt typ (fmap adjust bindings)) - other -> traceShow other (ppr other) + InstanceD ol cxt typ bindings -> ppr (InstanceD ol cxt typ (fmap adjust bindings)) + other -> ppr other main :: IO () main = do @@ -118,6 +120,5 @@ main = do (path, tf) <- openTempFile "/tmp" "generated.hs" T.hPutStrLn tf programText hClose tf - callProcess "sed" ["-i", "-e", "s/AST.Traversable1.Class.Traversable1 someConstraint/(AST.Traversable1.Class.Traversable1 someConstraint)/g", path] callProcess "ormolu" ["--mode", "inplace", path] readFile path >>= putStrLn diff --git a/semantic-ast/src/AST/GenerateSyntax.hs b/semantic-ast/src/AST/GenerateSyntax.hs index 22f0a3241..06acca268 100644 --- a/semantic-ast/src/AST/GenerateSyntax.hs +++ b/semantic-ast/src/AST/GenerateSyntax.hs @@ -82,7 +82,7 @@ syntaxDatatype language allSymbols datatype = skipDefined $ do name = mkName nameStr generatedDatatype cons = dataD (cxt []) name [plainTV annParameterName] Nothing cons [deriveStockClause, deriveAnyClassClause] deriveStockClause = derivClause (Just StockStrategy) [conT ''Generic, conT ''Generic1] - deriveAnyClassClause = derivClause (Just AnyclassStrategy) [parensT (conT ''Traversable1 `appT` varT (mkName "someConstraint"))] + deriveAnyClassClause = derivClause (Just AnyclassStrategy) [ [t| (forall a. Traversable1 a) |] ] deriveGN = derivClause (Just NewtypeStrategy) [conT ''TS.SymbolMatching] case datatype of SumType (DatatypeName _) _ subtypes -> diff --git a/semantic-json/src/Language/JSON/AST.hs b/semantic-json/src/Language/JSON/AST.hs index 86e75e9f5..3455ff76e 100644 --- a/semantic-json/src/Language/JSON/AST.hs +++ b/semantic-json/src/Language/JSON/AST.hs @@ -70,16 +70,19 @@ debugSymbolNames_0 = newtype Value a = Value {getValue :: ((Array GHC.Generics.:+: False GHC.Generics.:+: Null GHC.Generics.:+: Number GHC.Generics.:+: Object GHC.Generics.:+: String GHC.Generics.:+: True) a)} deriving newtype (AST.Unmarshal.SymbolMatching) deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + deriving anyclass + ( forall a_1. + AST.Traversable1.Class.Traversable1 a_1 + ) -instance GHC.Records.HasField "ann" (Value a_1) a_1 where +instance GHC.Records.HasField "ann" (Value a_2) a_2 where getField = AST.Unmarshal.gann GHC.Base.. getValue -deriving instance GHC.Classes.Eq a_2 => GHC.Classes.Eq (Value a_2) +deriving instance GHC.Classes.Eq a_3 => GHC.Classes.Eq (Value a_3) -deriving instance GHC.Classes.Ord a_3 => GHC.Classes.Ord (Value a_3) +deriving instance GHC.Classes.Ord a_4 => GHC.Classes.Ord (Value a_4) -deriving instance GHC.Show.Show a_4 => GHC.Show.Show (Value a_4) +deriving instance GHC.Show.Show a_5 => GHC.Show.Show (Value a_5) instance AST.Unmarshal.Unmarshal Value @@ -94,33 +97,36 @@ instance Data.Traversable.Traversable Value where data Array a = Array {ann :: a, extraChildren :: ([AST.Parse.Err (Value a)])} deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + deriving anyclass + ( forall a_6. + AST.Traversable1.Class.Traversable1 a_6 + ) instance AST.Unmarshal.SymbolMatching Array where matchedSymbols _ = [18] - showFailure _ node_5 = + showFailure _ node_7 = "expected " GHC.Base.<> ( "array" GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_5 GHC.Classes.== 65535 + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_7 GHC.Classes.== 65535 then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_5) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_6 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_7 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_8 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_9 GHC.Base.<> "]"))))))))) + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_7) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_8 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_9 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_10 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_11 GHC.Base.<> "]"))))))))) ) ) ) where TreeSitter.Node.TSPoint - r1_6 - c1_7 = TreeSitter.Node.nodeStartPoint node_5 + r1_8 + c1_9 = TreeSitter.Node.nodeStartPoint node_7 TreeSitter.Node.TSPoint - r2_8 - c2_9 = TreeSitter.Node.nodeEndPoint node_5 + r2_10 + c2_11 = TreeSitter.Node.nodeEndPoint node_7 -deriving instance GHC.Classes.Eq a_10 => GHC.Classes.Eq (Array a_10) +deriving instance GHC.Classes.Eq a_12 => GHC.Classes.Eq (Array a_12) -deriving instance GHC.Classes.Ord a_11 => GHC.Classes.Ord (Array a_11) +deriving instance GHC.Classes.Ord a_13 => GHC.Classes.Ord (Array a_13) -deriving instance GHC.Show.Show a_12 => GHC.Show.Show (Array a_12) +deriving instance GHC.Show.Show a_14 => GHC.Show.Show (Array a_14) instance AST.Unmarshal.Unmarshal Array @@ -135,33 +141,36 @@ instance Data.Traversable.Traversable Array where data Document a = Document {ann :: a, extraChildren :: (AST.Parse.Err (Value a))} deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + deriving anyclass + ( forall a_15. + AST.Traversable1.Class.Traversable1 a_15 + ) instance AST.Unmarshal.SymbolMatching Document where matchedSymbols _ = [14] - showFailure _ node_13 = + showFailure _ node_16 = "expected " GHC.Base.<> ( "document" GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_13 GHC.Classes.== 65535 + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_16 GHC.Classes.== 65535 then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_13) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_14 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_15 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_16 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_17 GHC.Base.<> "]"))))))))) + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_16) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_17 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_18 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_19 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_20 GHC.Base.<> "]"))))))))) ) ) ) where TreeSitter.Node.TSPoint - r1_14 - c1_15 = TreeSitter.Node.nodeStartPoint node_13 + r1_17 + c1_18 = TreeSitter.Node.nodeStartPoint node_16 TreeSitter.Node.TSPoint - r2_16 - c2_17 = TreeSitter.Node.nodeEndPoint node_13 + r2_19 + c2_20 = TreeSitter.Node.nodeEndPoint node_16 -deriving instance GHC.Classes.Eq a_18 => GHC.Classes.Eq (Document a_18) +deriving instance GHC.Classes.Eq a_21 => GHC.Classes.Eq (Document a_21) -deriving instance GHC.Classes.Ord a_19 => GHC.Classes.Ord (Document a_19) +deriving instance GHC.Classes.Ord a_22 => GHC.Classes.Ord (Document a_22) -deriving instance GHC.Show.Show a_20 => GHC.Show.Show (Document a_20) +deriving instance GHC.Show.Show a_23 => GHC.Show.Show (Document a_23) instance AST.Unmarshal.Unmarshal Document @@ -176,33 +185,36 @@ instance Data.Traversable.Traversable Document where data Object a = Object {ann :: a, extraChildren :: ([AST.Parse.Err (Pair a)])} deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + deriving anyclass + ( forall a_24. + AST.Traversable1.Class.Traversable1 a_24 + ) instance AST.Unmarshal.SymbolMatching Object where matchedSymbols _ = [16] - showFailure _ node_21 = + showFailure _ node_25 = "expected " GHC.Base.<> ( "object" GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_21 GHC.Classes.== 65535 + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_25 GHC.Classes.== 65535 then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_21) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_22 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_23 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_24 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_25 GHC.Base.<> "]"))))))))) + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_25) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_26 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_27 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_28 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_29 GHC.Base.<> "]"))))))))) ) ) ) where TreeSitter.Node.TSPoint - r1_22 - c1_23 = TreeSitter.Node.nodeStartPoint node_21 + r1_26 + c1_27 = TreeSitter.Node.nodeStartPoint node_25 TreeSitter.Node.TSPoint - r2_24 - c2_25 = TreeSitter.Node.nodeEndPoint node_21 + r2_28 + c2_29 = TreeSitter.Node.nodeEndPoint node_25 -deriving instance GHC.Classes.Eq a_26 => GHC.Classes.Eq (Object a_26) +deriving instance GHC.Classes.Eq a_30 => GHC.Classes.Eq (Object a_30) -deriving instance GHC.Classes.Ord a_27 => GHC.Classes.Ord (Object a_27) +deriving instance GHC.Classes.Ord a_31 => GHC.Classes.Ord (Object a_31) -deriving instance GHC.Show.Show a_28 => GHC.Show.Show (Object a_28) +deriving instance GHC.Show.Show a_32 => GHC.Show.Show (Object a_32) instance AST.Unmarshal.Unmarshal Object @@ -221,33 +233,36 @@ data Pair a = Pair key :: (AST.Parse.Err ((Number GHC.Generics.:+: String) a)) } deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + deriving anyclass + ( forall a_33. + AST.Traversable1.Class.Traversable1 a_33 + ) instance AST.Unmarshal.SymbolMatching Pair where matchedSymbols _ = [17] - showFailure _ node_29 = + showFailure _ node_34 = "expected " GHC.Base.<> ( "pair" GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_29 GHC.Classes.== 65535 + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_34 GHC.Classes.== 65535 then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_29) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_30 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_31 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_32 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_33 GHC.Base.<> "]"))))))))) + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_34) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_35 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_36 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_37 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_38 GHC.Base.<> "]"))))))))) ) ) ) where TreeSitter.Node.TSPoint - r1_30 - c1_31 = TreeSitter.Node.nodeStartPoint node_29 + r1_35 + c1_36 = TreeSitter.Node.nodeStartPoint node_34 TreeSitter.Node.TSPoint - r2_32 - c2_33 = TreeSitter.Node.nodeEndPoint node_29 + r2_37 + c2_38 = TreeSitter.Node.nodeEndPoint node_34 -deriving instance GHC.Classes.Eq a_34 => GHC.Classes.Eq (Pair a_34) +deriving instance GHC.Classes.Eq a_39 => GHC.Classes.Eq (Pair a_39) -deriving instance GHC.Classes.Ord a_35 => GHC.Classes.Ord (Pair a_35) +deriving instance GHC.Classes.Ord a_40 => GHC.Classes.Ord (Pair a_40) -deriving instance GHC.Show.Show a_36 => GHC.Show.Show (Pair a_36) +deriving instance GHC.Show.Show a_41 => GHC.Show.Show (Pair a_41) instance AST.Unmarshal.Unmarshal Pair @@ -265,33 +280,36 @@ data String a = String extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (StringContent a))) } deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + deriving anyclass + ( forall a_42. + AST.Traversable1.Class.Traversable1 a_42 + ) instance AST.Unmarshal.SymbolMatching String where matchedSymbols _ = [19] - showFailure _ node_37 = + showFailure _ node_43 = "expected " GHC.Base.<> ( "string" GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_37 GHC.Classes.== 65535 + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_43 GHC.Classes.== 65535 then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_37) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_38 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_39 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_40 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_41 GHC.Base.<> "]"))))))))) + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_43) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_44 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_45 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_46 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_47 GHC.Base.<> "]"))))))))) ) ) ) where TreeSitter.Node.TSPoint - r1_38 - c1_39 = TreeSitter.Node.nodeStartPoint node_37 + r1_44 + c1_45 = TreeSitter.Node.nodeStartPoint node_43 TreeSitter.Node.TSPoint - r2_40 - c2_41 = TreeSitter.Node.nodeEndPoint node_37 + r2_46 + c2_47 = TreeSitter.Node.nodeEndPoint node_43 -deriving instance GHC.Classes.Eq a_42 => GHC.Classes.Eq (String a_42) +deriving instance GHC.Classes.Eq a_48 => GHC.Classes.Eq (String a_48) -deriving instance GHC.Classes.Ord a_43 => GHC.Classes.Ord (String a_43) +deriving instance GHC.Classes.Ord a_49 => GHC.Classes.Ord (String a_49) -deriving instance GHC.Show.Show a_44 => GHC.Show.Show (String a_44) +deriving instance GHC.Show.Show a_50 => GHC.Show.Show (String a_50) instance AST.Unmarshal.Unmarshal String @@ -309,33 +327,36 @@ data StringContent a = StringContent extraChildren :: ([AST.Parse.Err (EscapeSequence a)]) } deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + deriving anyclass + ( forall a_51. + AST.Traversable1.Class.Traversable1 a_51 + ) instance AST.Unmarshal.SymbolMatching StringContent where matchedSymbols _ = [20] - showFailure _ node_45 = + showFailure _ node_52 = "expected " GHC.Base.<> ( "string_content" GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_45 GHC.Classes.== 65535 + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_52 GHC.Classes.== 65535 then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_45) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_46 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_47 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_48 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_49 GHC.Base.<> "]"))))))))) + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_52) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_53 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_54 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_55 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_56 GHC.Base.<> "]"))))))))) ) ) ) where TreeSitter.Node.TSPoint - r1_46 - c1_47 = TreeSitter.Node.nodeStartPoint node_45 + r1_53 + c1_54 = TreeSitter.Node.nodeStartPoint node_52 TreeSitter.Node.TSPoint - r2_48 - c2_49 = TreeSitter.Node.nodeEndPoint node_45 + r2_55 + c2_56 = TreeSitter.Node.nodeEndPoint node_52 -deriving instance GHC.Classes.Eq a_50 => GHC.Classes.Eq (StringContent a_50) +deriving instance GHC.Classes.Eq a_57 => GHC.Classes.Eq (StringContent a_57) -deriving instance GHC.Classes.Ord a_51 => GHC.Classes.Ord (StringContent a_51) +deriving instance GHC.Classes.Ord a_58 => GHC.Classes.Ord (StringContent a_58) -deriving instance GHC.Show.Show a_52 => GHC.Show.Show (StringContent a_52) +deriving instance GHC.Show.Show a_59 => GHC.Show.Show (StringContent a_59) instance AST.Unmarshal.Unmarshal StringContent @@ -360,54 +381,16 @@ type AnonymousRBracket = AST.Token.Token "]" 6 data EscapeSequence a = EscapeSequence {ann :: a, text :: Data.Text.Internal.Text} deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + deriving anyclass + ( forall a_60. + AST.Traversable1.Class.Traversable1 a_60 + ) instance AST.Unmarshal.SymbolMatching EscapeSequence where matchedSymbols _ = [9] - showFailure _ node_53 = - "expected " - GHC.Base.<> ( "escape_sequence" - GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_53 GHC.Classes.== 65535 - then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_53) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_54 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_55 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_56 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_57 GHC.Base.<> "]"))))))))) - ) - ) - ) - where - TreeSitter.Node.TSPoint - r1_54 - c1_55 = TreeSitter.Node.nodeStartPoint node_53 - TreeSitter.Node.TSPoint - r2_56 - c2_57 = TreeSitter.Node.nodeEndPoint node_53 - -deriving instance GHC.Classes.Eq a_58 => GHC.Classes.Eq (EscapeSequence a_58) - -deriving instance GHC.Classes.Ord a_59 => GHC.Classes.Ord (EscapeSequence a_59) - -deriving instance GHC.Show.Show a_60 => GHC.Show.Show (EscapeSequence a_60) - -instance AST.Unmarshal.Unmarshal EscapeSequence - -instance Data.Foldable.Foldable EscapeSequence where - foldMap = AST.Traversable1.Class.foldMapDefault1 - -instance GHC.Base.Functor EscapeSequence where - fmap = AST.Traversable1.Class.fmapDefault1 - -instance Data.Traversable.Traversable EscapeSequence where - traverse = AST.Traversable1.Class.traverseDefault1 - -data False a = False {ann :: a, text :: Data.Text.Internal.Text} - deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) - -instance AST.Unmarshal.SymbolMatching False where - matchedSymbols _ = [12] showFailure _ node_61 = "expected " - GHC.Base.<> ( "false" + GHC.Base.<> ( "escape_sequence" GHC.Base.<> ( " but got " GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_61 GHC.Classes.== 65535 then "ERROR" @@ -423,11 +406,55 @@ instance AST.Unmarshal.SymbolMatching False where r2_64 c2_65 = TreeSitter.Node.nodeEndPoint node_61 -deriving instance GHC.Classes.Eq a_66 => GHC.Classes.Eq (False a_66) +deriving instance GHC.Classes.Eq a_66 => GHC.Classes.Eq (EscapeSequence a_66) -deriving instance GHC.Classes.Ord a_67 => GHC.Classes.Ord (False a_67) +deriving instance GHC.Classes.Ord a_67 => GHC.Classes.Ord (EscapeSequence a_67) -deriving instance GHC.Show.Show a_68 => GHC.Show.Show (False a_68) +deriving instance GHC.Show.Show a_68 => GHC.Show.Show (EscapeSequence a_68) + +instance AST.Unmarshal.Unmarshal EscapeSequence + +instance Data.Foldable.Foldable EscapeSequence where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EscapeSequence where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EscapeSequence where + traverse = AST.Traversable1.Class.traverseDefault1 + +data False a = False {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_69. + AST.Traversable1.Class.Traversable1 a_69 + ) + +instance AST.Unmarshal.SymbolMatching False where + matchedSymbols _ = [12] + showFailure _ node_70 = + "expected " + GHC.Base.<> ( "false" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_70 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_70) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_71 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_72 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_73 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_74 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_71 + c1_72 = TreeSitter.Node.nodeStartPoint node_70 + TreeSitter.Node.TSPoint + r2_73 + c2_74 = TreeSitter.Node.nodeEndPoint node_70 + +deriving instance GHC.Classes.Eq a_75 => GHC.Classes.Eq (False a_75) + +deriving instance GHC.Classes.Ord a_76 => GHC.Classes.Ord (False a_76) + +deriving instance GHC.Show.Show a_77 => GHC.Show.Show (False a_77) instance AST.Unmarshal.Unmarshal False @@ -442,33 +469,36 @@ instance Data.Traversable.Traversable False where data Null a = Null {ann :: a, text :: Data.Text.Internal.Text} deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + deriving anyclass + ( forall a_78. + AST.Traversable1.Class.Traversable1 a_78 + ) instance AST.Unmarshal.SymbolMatching Null where matchedSymbols _ = [13] - showFailure _ node_69 = + showFailure _ node_79 = "expected " GHC.Base.<> ( "null" GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_69 GHC.Classes.== 65535 + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_79 GHC.Classes.== 65535 then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_69) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_70 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_71 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_72 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_73 GHC.Base.<> "]"))))))))) + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_79) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_80 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_81 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_82 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_83 GHC.Base.<> "]"))))))))) ) ) ) where TreeSitter.Node.TSPoint - r1_70 - c1_71 = TreeSitter.Node.nodeStartPoint node_69 + r1_80 + c1_81 = TreeSitter.Node.nodeStartPoint node_79 TreeSitter.Node.TSPoint - r2_72 - c2_73 = TreeSitter.Node.nodeEndPoint node_69 + r2_82 + c2_83 = TreeSitter.Node.nodeEndPoint node_79 -deriving instance GHC.Classes.Eq a_74 => GHC.Classes.Eq (Null a_74) +deriving instance GHC.Classes.Eq a_84 => GHC.Classes.Eq (Null a_84) -deriving instance GHC.Classes.Ord a_75 => GHC.Classes.Ord (Null a_75) +deriving instance GHC.Classes.Ord a_85 => GHC.Classes.Ord (Null a_85) -deriving instance GHC.Show.Show a_76 => GHC.Show.Show (Null a_76) +deriving instance GHC.Show.Show a_86 => GHC.Show.Show (Null a_86) instance AST.Unmarshal.Unmarshal Null @@ -483,33 +513,36 @@ instance Data.Traversable.Traversable Null where data Number a = Number {ann :: a, text :: Data.Text.Internal.Text} deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + deriving anyclass + ( forall a_87. + AST.Traversable1.Class.Traversable1 a_87 + ) instance AST.Unmarshal.SymbolMatching Number where matchedSymbols _ = [10] - showFailure _ node_77 = + showFailure _ node_88 = "expected " GHC.Base.<> ( "number" GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_77 GHC.Classes.== 65535 + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_88 GHC.Classes.== 65535 then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_77) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_78 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_79 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_80 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_81 GHC.Base.<> "]"))))))))) + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_88) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_89 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_90 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_91 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_92 GHC.Base.<> "]"))))))))) ) ) ) where TreeSitter.Node.TSPoint - r1_78 - c1_79 = TreeSitter.Node.nodeStartPoint node_77 + r1_89 + c1_90 = TreeSitter.Node.nodeStartPoint node_88 TreeSitter.Node.TSPoint - r2_80 - c2_81 = TreeSitter.Node.nodeEndPoint node_77 + r2_91 + c2_92 = TreeSitter.Node.nodeEndPoint node_88 -deriving instance GHC.Classes.Eq a_82 => GHC.Classes.Eq (Number a_82) +deriving instance GHC.Classes.Eq a_93 => GHC.Classes.Eq (Number a_93) -deriving instance GHC.Classes.Ord a_83 => GHC.Classes.Ord (Number a_83) +deriving instance GHC.Classes.Ord a_94 => GHC.Classes.Ord (Number a_94) -deriving instance GHC.Show.Show a_84 => GHC.Show.Show (Number a_84) +deriving instance GHC.Show.Show a_95 => GHC.Show.Show (Number a_95) instance AST.Unmarshal.Unmarshal Number @@ -524,33 +557,36 @@ instance Data.Traversable.Traversable Number where data True a = True {ann :: a, text :: Data.Text.Internal.Text} deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass (AST.Traversable1.Class.Traversable1 someConstraint) + deriving anyclass + ( forall a_96. + AST.Traversable1.Class.Traversable1 a_96 + ) instance AST.Unmarshal.SymbolMatching True where matchedSymbols _ = [11] - showFailure _ node_85 = + showFailure _ node_97 = "expected " GHC.Base.<> ( "true" GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_85 GHC.Classes.== 65535 + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_97 GHC.Classes.== 65535 then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_85) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_86 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_87 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_88 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_89 GHC.Base.<> "]"))))))))) + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_97) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_98 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_99 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_100 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_101 GHC.Base.<> "]"))))))))) ) ) ) where TreeSitter.Node.TSPoint - r1_86 - c1_87 = TreeSitter.Node.nodeStartPoint node_85 + r1_98 + c1_99 = TreeSitter.Node.nodeStartPoint node_97 TreeSitter.Node.TSPoint - r2_88 - c2_89 = TreeSitter.Node.nodeEndPoint node_85 + r2_100 + c2_101 = TreeSitter.Node.nodeEndPoint node_97 -deriving instance GHC.Classes.Eq a_90 => GHC.Classes.Eq (True a_90) +deriving instance GHC.Classes.Eq a_102 => GHC.Classes.Eq (True a_102) -deriving instance GHC.Classes.Ord a_91 => GHC.Classes.Ord (True a_91) +deriving instance GHC.Classes.Ord a_103 => GHC.Classes.Ord (True a_103) -deriving instance GHC.Show.Show a_92 => GHC.Show.Show (True a_92) +deriving instance GHC.Show.Show a_104 => GHC.Show.Show (True a_104) instance AST.Unmarshal.Unmarshal True From e8398d4846603f587951a8e0fa3dca22b38771de Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 9 Sep 2020 17:58:21 -0400 Subject: [PATCH 06/30] one big quasiquoter --- semantic-ast/app/Main.hs | 96 ++++++++++++-------------- semantic-json/src/Language/JSON/AST.hs | 1 + 2 files changed, 45 insertions(+), 52 deletions(-) diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index 30fd4cede..ea9fe4b1d 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -37,52 +37,6 @@ instance Opt.ParseRecord Config instance Ppr Doc where ppr = id -header :: Text -header = - [trimming| -{-# LANGUAGE CPP #-} -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE DeriveAnyClass #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE DeriveTraversable #-} -{-# LANGUAGE DerivingStrategies #-} -{-# LANGUAGE DuplicateRecordFields #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE GeneralizedNewtypeDeriving #-} -{-# LANGUAGE KindSignatures #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE QuantifiedConstraints #-} -{-# LANGUAGE StandaloneDeriving #-} -{-# LANGUAGE TemplateHaskell #-} -{-# LANGUAGE TypeApplications #-} -{-# LANGUAGE TypeOperators #-} -{-# LANGUAGE UndecidableInstances #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -|] - -imports :: Text -imports = - [trimming| -import qualified AST.Parse -import qualified AST.Token -import qualified AST.Traversable1.Class -import qualified AST.Unmarshal -import qualified Data.Foldable -import qualified Data.List as Data.OldList -import qualified Data.Maybe as GHC.Maybe -import qualified Data.Text.Internal -import qualified Data.Traversable -import qualified GHC.Base -import qualified GHC.Generics -import qualified GHC.Records -import qualified GHC.Show -import qualified Prelude as GHC.Classes -import qualified TreeSitter.Node - -debugSymbolNames :: [GHC.Base.String] -debugSymbolNames = debugSymbolNames_0 -|] - class Ppr a => Pretty a where pretty :: a -> Doc pretty = ppr @@ -105,14 +59,52 @@ main :: IO () main = do Config language path <- Opt.getRecord "generate-ast" absolute <- makeAbsolute path - decls <- runQ (astDeclarationsRelative JSON.tree_sitter_json absolute) + decls <- T.pack . pprint . pretty <$> runQ (astDeclarationsRelative JSON.tree_sitter_json absolute) - let modheader = - [trimming| module Language.$language.AST (module Language.$language.AST) where - -- Language definition for $language, generated by ast-generate. Do not edit! - |] + let programText = [trimming| +{-# LANGUAGE CPP #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveAnyClass #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DeriveTraversable #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE KindSignatures #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE QuantifiedConstraints #-} +{-# LANGUAGE StandaloneDeriving #-} +{-# LANGUAGE TemplateHaskell #-} +{-# LANGUAGE TypeApplications #-} +{-# LANGUAGE TypeOperators #-} +{-# LANGUAGE UndecidableInstances #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} - let programText = T.unlines [header, modheader, imports, T.pack (pprint (pretty decls))] +module Language.$language.AST (module Language.$language.AST) where +-- Language definition for $language, generated by ast-generate. Do not edit! + +import qualified AST.Parse +import qualified AST.Token +import qualified AST.Traversable1.Class +import qualified AST.Unmarshal +import qualified Data.Foldable +import qualified Data.List as Data.OldList +import qualified Data.Maybe as GHC.Maybe +import qualified Data.Text.Internal +import qualified Data.Traversable +import qualified GHC.Base +import qualified GHC.Generics +import qualified GHC.Records +import qualified GHC.Show +import qualified Prelude as GHC.Classes +import qualified TreeSitter.Node + +debugSymbolNames :: [GHC.Base.String] +debugSymbolNames = debugSymbolNames_0 + +$decls + |] hasOrmolu <- findExecutable "ormolu" if isNothing hasOrmolu then T.putStrLn programText diff --git a/semantic-json/src/Language/JSON/AST.hs b/semantic-json/src/Language/JSON/AST.hs index 3455ff76e..fc6b90c29 100644 --- a/semantic-json/src/Language/JSON/AST.hs +++ b/semantic-json/src/Language/JSON/AST.hs @@ -20,6 +20,7 @@ module Language.JSON.AST (module Language.JSON.AST) where -- Language definition for JSON, generated by ast-generate. Do not edit! + import qualified AST.Parse import qualified AST.Token import qualified AST.Traversable1.Class From 434616640fecb0640a2a22ef2eb2665e9c558ff4 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 9 Sep 2020 18:34:26 -0400 Subject: [PATCH 07/30] Cleanup. --- semantic-ast/app/Main.hs | 46 ++++++++++---------------- semantic-json/src/Language/JSON/AST.hs | 3 +- 2 files changed, 18 insertions(+), 31 deletions(-) diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index ea9fe4b1d..e30e75b7a 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -1,4 +1,6 @@ +{-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} @@ -15,11 +17,8 @@ import Data.Maybe import Data.Text (Text) import qualified Data.Text as T import qualified Data.Text.IO as T -import Debug.Trace import GHC.Generics (Generic) import Language.Haskell.TH -import Language.Haskell.TH.PprLib (Doc) -import qualified Language.Haskell.TH.PprLib as Doc import NeatInterpolation import qualified Options.Generic as Opt import System.Directory @@ -27,22 +26,14 @@ import System.IO import System.Process import qualified TreeSitter.JSON as JSON (tree_sitter_json) -data Config = Config - { language :: Text, - path :: FilePath - } - deriving (Show, Generic) +data Config = Config {language :: Text, path :: FilePath} + deriving stock (Show, Generic) + deriving anyclass (Opt.ParseRecord) -instance Opt.ParseRecord Config - -instance Ppr Doc where ppr = id - -class Ppr a => Pretty a where - pretty :: a -> Doc - pretty = ppr - -instance Pretty a => Pretty [a] where - pretty = Doc.vcat . fmap pretty +adjusto :: Dec -> Dec +adjusto = \case + InstanceD ol cxt typ bindings -> InstanceD ol cxt typ (fmap adjust bindings) + other -> other adjust :: Dec -> Dec adjust = \case @@ -50,18 +41,14 @@ adjust = \case FunD n cs -> FunD (mkName . nameBase $ n) cs y -> y -instance Pretty Dec where - pretty x = case x of - InstanceD ol cxt typ bindings -> ppr (InstanceD ol cxt typ (fmap adjust bindings)) - other -> ppr other - main :: IO () main = do Config language path <- Opt.getRecord "generate-ast" - absolute <- makeAbsolute path - decls <- T.pack . pprint . pretty <$> runQ (astDeclarationsRelative JSON.tree_sitter_json absolute) + decls <- T.pack . pprint . fmap adjusto <$> runQ (astDeclarationsRelative JSON.tree_sitter_json path) - let programText = [trimming| + let programText = + [trimming| +-- Language definition for $language, generated by ast-generate. Do not edit! {-# LANGUAGE CPP #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveAnyClass #-} @@ -82,7 +69,6 @@ main = do {-# OPTIONS_GHC -fno-warn-unused-imports #-} module Language.$language.AST (module Language.$language.AST) where --- Language definition for $language, generated by ast-generate. Do not edit! import qualified AST.Parse import qualified AST.Token @@ -107,10 +93,12 @@ $decls |] hasOrmolu <- findExecutable "ormolu" if isNothing hasOrmolu - then T.putStrLn programText + then do + T.putStrLn programText + hPutStrLn stderr "generate-ast: No `ormolu` executable found, output will look janky." else do (path, tf) <- openTempFile "/tmp" "generated.hs" T.hPutStrLn tf programText hClose tf callProcess "ormolu" ["--mode", "inplace", path] - readFile path >>= putStrLn + T.readFile path >>= T.putStrLn diff --git a/semantic-json/src/Language/JSON/AST.hs b/semantic-json/src/Language/JSON/AST.hs index fc6b90c29..7473a82e0 100644 --- a/semantic-json/src/Language/JSON/AST.hs +++ b/semantic-json/src/Language/JSON/AST.hs @@ -1,3 +1,4 @@ +-- Language definition for JSON, generated by ast-generate. Do not edit! {-# LANGUAGE CPP #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveAnyClass #-} @@ -19,8 +20,6 @@ module Language.JSON.AST (module Language.JSON.AST) where --- Language definition for JSON, generated by ast-generate. Do not edit! - import qualified AST.Parse import qualified AST.Token import qualified AST.Traversable1.Class From 090d48d7600d49ad8d3d4fc1e2a52a63af6aef23 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 9 Sep 2020 18:39:18 -0400 Subject: [PATCH 08/30] more docs and the like --- semantic-ast/app/Main.hs | 25 ++++++++++++++++--------- 1 file changed, 16 insertions(+), 9 deletions(-) diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index e30e75b7a..442a489d9 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -30,21 +30,28 @@ data Config = Config {language :: Text, path :: FilePath} deriving stock (Show, Generic) deriving anyclass (Opt.ParseRecord) -adjusto :: Dec -> Dec -adjusto = \case - InstanceD ol cxt typ bindings -> InstanceD ol cxt typ (fmap adjust bindings) - other -> other - +-- There are a few cases where the output emitted by TH's 'pprint' doesn't +-- create entirely valid Haskell syntax, because sometimes we get +-- a qualified name on the LHS of a typeclass declaration, which Haskell +-- doesn't like at all. I haven't figured out quite why we get this qualified +-- name, but for now the simplest thing to do is some neste dupdates adjust :: Dec -> Dec adjust = \case - ValD (VarP lhs) bod decs -> ValD (VarP (mkName . nameBase $ lhs)) bod decs - FunD n cs -> FunD (mkName . nameBase $ n) cs - y -> y + InstanceD ol cxt typ bindings -> + let go = \case + -- zero-argument functions + ValD (VarP lhs) bod decs -> ValD (VarP (mkName . nameBase $ lhs)) bod decs + -- n-argument functions + FunD n cs -> FunD (mkName . nameBase $ n) cs + -- otherwise + y -> y + in InstanceD ol cxt typ (go <$> bindings) + other -> other main :: IO () main = do Config language path <- Opt.getRecord "generate-ast" - decls <- T.pack . pprint . fmap adjusto <$> runQ (astDeclarationsRelative JSON.tree_sitter_json path) + decls <- T.pack . pprint . fmap adjust <$> runQ (astDeclarationsRelative JSON.tree_sitter_json path) let programText = [trimming| From b69222c89f46eb77269c403b2e348c899198da4d Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 9 Sep 2020 19:41:30 -0400 Subject: [PATCH 09/30] finaly happy with this nested update stuff --- semantic-ast/BUILD.bazel | 1 + semantic-ast/app/Main.hs | 21 ++++++++++----------- 2 files changed, 11 insertions(+), 11 deletions(-) diff --git a/semantic-ast/BUILD.bazel b/semantic-ast/BUILD.bazel index 11ec8e8b4..e81299e50 100644 --- a/semantic-ast/BUILD.bazel +++ b/semantic-ast/BUILD.bazel @@ -60,6 +60,7 @@ haskell_binary( "//:template-haskell", "//:text", "@stackage//:directory", + "@stackage//:lens", "@stackage//:neat-interpolation", "@stackage//:optparse-generic", "@tree-sitter-json//:tree-sitter-json", diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index 442a489d9..6b2895aeb 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -19,6 +19,8 @@ import qualified Data.Text as T import qualified Data.Text.IO as T import GHC.Generics (Generic) import Language.Haskell.TH +import Control.Lens +import Language.Haskell.TH.Lens import NeatInterpolation import qualified Options.Generic as Opt import System.Directory @@ -36,17 +38,14 @@ data Config = Config {language :: Text, path :: FilePath} -- doesn't like at all. I haven't figured out quite why we get this qualified -- name, but for now the simplest thing to do is some neste dupdates adjust :: Dec -> Dec -adjust = \case - InstanceD ol cxt typ bindings -> - let go = \case - -- zero-argument functions - ValD (VarP lhs) bod decs -> ValD (VarP (mkName . nameBase $ lhs)) bod decs - -- n-argument functions - FunD n cs -> FunD (mkName . nameBase $ n) cs - -- otherwise - y -> y - in InstanceD ol cxt typ (go <$> bindings) - other -> other +adjust = _InstanceD._4.mapped %~ (values %~ truncate) . (functions %~ truncate) + where + values, functions :: Traversal' Dec Name + values = _ValD._1._VarP + functions = _FunD._1 + + truncate :: Name -> Name + truncate = mkName . nameBase main :: IO () main = do From 460bd539edd6b8c2d278beb81aeb99b396fd9bb4 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 9 Sep 2020 19:45:11 -0400 Subject: [PATCH 10/30] okay typed is even nicer --- semantic-ast/BUILD.bazel | 1 + semantic-ast/app/Main.hs | 7 +++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/semantic-ast/BUILD.bazel b/semantic-ast/BUILD.bazel index e81299e50..2f9fcea51 100644 --- a/semantic-ast/BUILD.bazel +++ b/semantic-ast/BUILD.bazel @@ -60,6 +60,7 @@ haskell_binary( "//:template-haskell", "//:text", "@stackage//:directory", + "@stackage//:generic-lens", "@stackage//:lens", "@stackage//:neat-interpolation", "@stackage//:optparse-generic", diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index 6b2895aeb..fe1303dc5 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -17,6 +17,7 @@ import Data.Maybe import Data.Text (Text) import qualified Data.Text as T import qualified Data.Text.IO as T +import Data.Generics.Product.Typed import GHC.Generics (Generic) import Language.Haskell.TH import Control.Lens @@ -40,9 +41,11 @@ data Config = Config {language :: Text, path :: FilePath} adjust :: Dec -> Dec adjust = _InstanceD._4.mapped %~ (values %~ truncate) . (functions %~ truncate) where + -- Need to handle functions with no arguments, which are parsed as ValD entities, + -- as well as those with arguments, which are FunD. values, functions :: Traversal' Dec Name - values = _ValD._1._VarP - functions = _FunD._1 + values = _ValD.typed._VarP + functions = _FunD.typed truncate :: Name -> Name truncate = mkName . nameBase From 2fb7001c766f11001936da3a8239b942d4ebbcb9 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 9 Sep 2020 19:49:03 -0400 Subject: [PATCH 11/30] formatting --- semantic-ast/app/Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index fe1303dc5..a73268135 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -13,14 +13,14 @@ module Main (main) where import AST.GenerateSyntax +import Control.Lens (Traversal', mapped, (%~)) +import Data.Generics.Product.Typed (typed) import Data.Maybe import Data.Text (Text) import qualified Data.Text as T import qualified Data.Text.IO as T -import Data.Generics.Product.Typed import GHC.Generics (Generic) import Language.Haskell.TH -import Control.Lens import Language.Haskell.TH.Lens import NeatInterpolation import qualified Options.Generic as Opt @@ -39,7 +39,7 @@ data Config = Config {language :: Text, path :: FilePath} -- doesn't like at all. I haven't figured out quite why we get this qualified -- name, but for now the simplest thing to do is some neste dupdates adjust :: Dec -> Dec -adjust = _InstanceD._4.mapped %~ (values %~ truncate) . (functions %~ truncate) +adjust = _InstanceD.typed.mapped %~ (values %~ truncate) . (functions %~ truncate) where -- Need to handle functions with no arguments, which are parsed as ValD entities, -- as well as those with arguments, which are FunD. From b97ad29dd5fbc12d96d4d29b5187f0d89c333b8f Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 9 Sep 2020 19:55:27 -0400 Subject: [PATCH 12/30] handle failures in lookupTypeName --- semantic-ast/src/AST/GenerateSyntax.hs | 8 +- semantic-json/src/Language/JSON/AST.hs | 605 ------------------------- 2 files changed, 4 insertions(+), 609 deletions(-) diff --git a/semantic-ast/src/AST/GenerateSyntax.hs b/semantic-ast/src/AST/GenerateSyntax.hs index 06acca268..005d655bf 100644 --- a/semantic-ast/src/AST/GenerateSyntax.hs +++ b/semantic-ast/src/AST/GenerateSyntax.hs @@ -51,7 +51,6 @@ astDeclarationsRelative :: Ptr TS.Language -> FilePath -> Q [Dec] astDeclarationsRelative language invocationRelativePath = do input <- runIO (eitherDecodeFileStrict' invocationRelativePath) >>= either fail pure allSymbols <- runIO (getAllSymbols language) - let dsn = varE (mkName "debugSymbolNames") debugSymbolNames <- [d| debugSymbolNames :: [String] debugSymbolNames = $(listE (map (litE . stringL . debugPrefix) allSymbols)) @@ -106,9 +105,10 @@ syntaxDatatype language allSymbols datatype = skipDefined $ do in glue <$> generatedDatatype [con] <*> symbols <*> traversalInstances where -- Skip generating datatypes that have already been defined (overridden) in the module where the splice is running. - skipDefined m = m - -- isLocal <- lookupTypeName nameStr >>= maybe (pure False) isLocalName - -- if isLocal then pure [] else m + skipDefined m = do + let query = lookupTypeName nameStr `recover` pure Nothing + isLocal <- query >>= maybe (pure False) isLocalName + if isLocal then pure [] else m nameStr = toNameString (datatypeNameStatus datatype) (getDatatypeName (AST.Deserialize.datatypeName datatype)) makeStandaloneDerivings :: TypeQ -> Q [Dec] diff --git a/semantic-json/src/Language/JSON/AST.hs b/semantic-json/src/Language/JSON/AST.hs index 7473a82e0..e69de29bb 100644 --- a/semantic-json/src/Language/JSON/AST.hs +++ b/semantic-json/src/Language/JSON/AST.hs @@ -1,605 +0,0 @@ --- Language definition for JSON, generated by ast-generate. Do not edit! -{-# LANGUAGE CPP #-} -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE DeriveAnyClass #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE DeriveTraversable #-} -{-# LANGUAGE DerivingStrategies #-} -{-# LANGUAGE DuplicateRecordFields #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE GeneralizedNewtypeDeriving #-} -{-# LANGUAGE KindSignatures #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE QuantifiedConstraints #-} -{-# LANGUAGE StandaloneDeriving #-} -{-# LANGUAGE TemplateHaskell #-} -{-# LANGUAGE TypeApplications #-} -{-# LANGUAGE TypeOperators #-} -{-# LANGUAGE UndecidableInstances #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - -module Language.JSON.AST (module Language.JSON.AST) where - -import qualified AST.Parse -import qualified AST.Token -import qualified AST.Traversable1.Class -import qualified AST.Unmarshal -import qualified Data.Foldable -import qualified Data.List as Data.OldList -import qualified Data.Maybe as GHC.Maybe -import qualified Data.Text.Internal -import qualified Data.Traversable -import qualified GHC.Base -import qualified GHC.Generics -import qualified GHC.Records -import qualified GHC.Show -import qualified TreeSitter.Node -import qualified Prelude as GHC.Classes - -debugSymbolNames :: [GHC.Base.String] -debugSymbolNames = debugSymbolNames_0 - -debugSymbolNames_0 :: [GHC.Base.String] -debugSymbolNames_0 = - [ "end", - "_{", - "_,", - "_}", - "_:", - "_[", - "_]", - "_\"", - "_string_content_token1", - "escape_sequence", - "number", - "true", - "false", - "null", - "document", - "_value", - "object", - "pair", - "array", - "string", - "string_content", - "_object_repeat1", - "_array_repeat1", - "_string_content_repeat1" - ] - -newtype Value a = Value {getValue :: ((Array GHC.Generics.:+: False GHC.Generics.:+: Null GHC.Generics.:+: Number GHC.Generics.:+: Object GHC.Generics.:+: String GHC.Generics.:+: True) a)} - deriving newtype (AST.Unmarshal.SymbolMatching) - deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass - ( forall a_1. - AST.Traversable1.Class.Traversable1 a_1 - ) - -instance GHC.Records.HasField "ann" (Value a_2) a_2 where - getField = AST.Unmarshal.gann GHC.Base.. getValue - -deriving instance GHC.Classes.Eq a_3 => GHC.Classes.Eq (Value a_3) - -deriving instance GHC.Classes.Ord a_4 => GHC.Classes.Ord (Value a_4) - -deriving instance GHC.Show.Show a_5 => GHC.Show.Show (Value a_5) - -instance AST.Unmarshal.Unmarshal Value - -instance Data.Foldable.Foldable Value where - foldMap = AST.Traversable1.Class.foldMapDefault1 - -instance GHC.Base.Functor Value where - fmap = AST.Traversable1.Class.fmapDefault1 - -instance Data.Traversable.Traversable Value where - traverse = AST.Traversable1.Class.traverseDefault1 - -data Array a = Array {ann :: a, extraChildren :: ([AST.Parse.Err (Value a)])} - deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass - ( forall a_6. - AST.Traversable1.Class.Traversable1 a_6 - ) - -instance AST.Unmarshal.SymbolMatching Array where - matchedSymbols _ = [18] - showFailure _ node_7 = - "expected " - GHC.Base.<> ( "array" - GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_7 GHC.Classes.== 65535 - then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_7) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_8 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_9 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_10 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_11 GHC.Base.<> "]"))))))))) - ) - ) - ) - where - TreeSitter.Node.TSPoint - r1_8 - c1_9 = TreeSitter.Node.nodeStartPoint node_7 - TreeSitter.Node.TSPoint - r2_10 - c2_11 = TreeSitter.Node.nodeEndPoint node_7 - -deriving instance GHC.Classes.Eq a_12 => GHC.Classes.Eq (Array a_12) - -deriving instance GHC.Classes.Ord a_13 => GHC.Classes.Ord (Array a_13) - -deriving instance GHC.Show.Show a_14 => GHC.Show.Show (Array a_14) - -instance AST.Unmarshal.Unmarshal Array - -instance Data.Foldable.Foldable Array where - foldMap = AST.Traversable1.Class.foldMapDefault1 - -instance GHC.Base.Functor Array where - fmap = AST.Traversable1.Class.fmapDefault1 - -instance Data.Traversable.Traversable Array where - traverse = AST.Traversable1.Class.traverseDefault1 - -data Document a = Document {ann :: a, extraChildren :: (AST.Parse.Err (Value a))} - deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass - ( forall a_15. - AST.Traversable1.Class.Traversable1 a_15 - ) - -instance AST.Unmarshal.SymbolMatching Document where - matchedSymbols _ = [14] - showFailure _ node_16 = - "expected " - GHC.Base.<> ( "document" - GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_16 GHC.Classes.== 65535 - then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_16) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_17 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_18 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_19 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_20 GHC.Base.<> "]"))))))))) - ) - ) - ) - where - TreeSitter.Node.TSPoint - r1_17 - c1_18 = TreeSitter.Node.nodeStartPoint node_16 - TreeSitter.Node.TSPoint - r2_19 - c2_20 = TreeSitter.Node.nodeEndPoint node_16 - -deriving instance GHC.Classes.Eq a_21 => GHC.Classes.Eq (Document a_21) - -deriving instance GHC.Classes.Ord a_22 => GHC.Classes.Ord (Document a_22) - -deriving instance GHC.Show.Show a_23 => GHC.Show.Show (Document a_23) - -instance AST.Unmarshal.Unmarshal Document - -instance Data.Foldable.Foldable Document where - foldMap = AST.Traversable1.Class.foldMapDefault1 - -instance GHC.Base.Functor Document where - fmap = AST.Traversable1.Class.fmapDefault1 - -instance Data.Traversable.Traversable Document where - traverse = AST.Traversable1.Class.traverseDefault1 - -data Object a = Object {ann :: a, extraChildren :: ([AST.Parse.Err (Pair a)])} - deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass - ( forall a_24. - AST.Traversable1.Class.Traversable1 a_24 - ) - -instance AST.Unmarshal.SymbolMatching Object where - matchedSymbols _ = [16] - showFailure _ node_25 = - "expected " - GHC.Base.<> ( "object" - GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_25 GHC.Classes.== 65535 - then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_25) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_26 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_27 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_28 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_29 GHC.Base.<> "]"))))))))) - ) - ) - ) - where - TreeSitter.Node.TSPoint - r1_26 - c1_27 = TreeSitter.Node.nodeStartPoint node_25 - TreeSitter.Node.TSPoint - r2_28 - c2_29 = TreeSitter.Node.nodeEndPoint node_25 - -deriving instance GHC.Classes.Eq a_30 => GHC.Classes.Eq (Object a_30) - -deriving instance GHC.Classes.Ord a_31 => GHC.Classes.Ord (Object a_31) - -deriving instance GHC.Show.Show a_32 => GHC.Show.Show (Object a_32) - -instance AST.Unmarshal.Unmarshal Object - -instance Data.Foldable.Foldable Object where - foldMap = AST.Traversable1.Class.foldMapDefault1 - -instance GHC.Base.Functor Object where - fmap = AST.Traversable1.Class.fmapDefault1 - -instance Data.Traversable.Traversable Object where - traverse = AST.Traversable1.Class.traverseDefault1 - -data Pair a = Pair - { ann :: a, - value :: (AST.Parse.Err (Value a)), - key :: (AST.Parse.Err ((Number GHC.Generics.:+: String) a)) - } - deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass - ( forall a_33. - AST.Traversable1.Class.Traversable1 a_33 - ) - -instance AST.Unmarshal.SymbolMatching Pair where - matchedSymbols _ = [17] - showFailure _ node_34 = - "expected " - GHC.Base.<> ( "pair" - GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_34 GHC.Classes.== 65535 - then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_34) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_35 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_36 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_37 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_38 GHC.Base.<> "]"))))))))) - ) - ) - ) - where - TreeSitter.Node.TSPoint - r1_35 - c1_36 = TreeSitter.Node.nodeStartPoint node_34 - TreeSitter.Node.TSPoint - r2_37 - c2_38 = TreeSitter.Node.nodeEndPoint node_34 - -deriving instance GHC.Classes.Eq a_39 => GHC.Classes.Eq (Pair a_39) - -deriving instance GHC.Classes.Ord a_40 => GHC.Classes.Ord (Pair a_40) - -deriving instance GHC.Show.Show a_41 => GHC.Show.Show (Pair a_41) - -instance AST.Unmarshal.Unmarshal Pair - -instance Data.Foldable.Foldable Pair where - foldMap = AST.Traversable1.Class.foldMapDefault1 - -instance GHC.Base.Functor Pair where - fmap = AST.Traversable1.Class.fmapDefault1 - -instance Data.Traversable.Traversable Pair where - traverse = AST.Traversable1.Class.traverseDefault1 - -data String a = String - { ann :: a, - extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (StringContent a))) - } - deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass - ( forall a_42. - AST.Traversable1.Class.Traversable1 a_42 - ) - -instance AST.Unmarshal.SymbolMatching String where - matchedSymbols _ = [19] - showFailure _ node_43 = - "expected " - GHC.Base.<> ( "string" - GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_43 GHC.Classes.== 65535 - then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_43) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_44 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_45 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_46 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_47 GHC.Base.<> "]"))))))))) - ) - ) - ) - where - TreeSitter.Node.TSPoint - r1_44 - c1_45 = TreeSitter.Node.nodeStartPoint node_43 - TreeSitter.Node.TSPoint - r2_46 - c2_47 = TreeSitter.Node.nodeEndPoint node_43 - -deriving instance GHC.Classes.Eq a_48 => GHC.Classes.Eq (String a_48) - -deriving instance GHC.Classes.Ord a_49 => GHC.Classes.Ord (String a_49) - -deriving instance GHC.Show.Show a_50 => GHC.Show.Show (String a_50) - -instance AST.Unmarshal.Unmarshal String - -instance Data.Foldable.Foldable String where - foldMap = AST.Traversable1.Class.foldMapDefault1 - -instance GHC.Base.Functor String where - fmap = AST.Traversable1.Class.fmapDefault1 - -instance Data.Traversable.Traversable String where - traverse = AST.Traversable1.Class.traverseDefault1 - -data StringContent a = StringContent - { ann :: a, - extraChildren :: ([AST.Parse.Err (EscapeSequence a)]) - } - deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass - ( forall a_51. - AST.Traversable1.Class.Traversable1 a_51 - ) - -instance AST.Unmarshal.SymbolMatching StringContent where - matchedSymbols _ = [20] - showFailure _ node_52 = - "expected " - GHC.Base.<> ( "string_content" - GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_52 GHC.Classes.== 65535 - then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_52) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_53 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_54 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_55 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_56 GHC.Base.<> "]"))))))))) - ) - ) - ) - where - TreeSitter.Node.TSPoint - r1_53 - c1_54 = TreeSitter.Node.nodeStartPoint node_52 - TreeSitter.Node.TSPoint - r2_55 - c2_56 = TreeSitter.Node.nodeEndPoint node_52 - -deriving instance GHC.Classes.Eq a_57 => GHC.Classes.Eq (StringContent a_57) - -deriving instance GHC.Classes.Ord a_58 => GHC.Classes.Ord (StringContent a_58) - -deriving instance GHC.Show.Show a_59 => GHC.Show.Show (StringContent a_59) - -instance AST.Unmarshal.Unmarshal StringContent - -instance Data.Foldable.Foldable StringContent where - foldMap = AST.Traversable1.Class.foldMapDefault1 - -instance GHC.Base.Functor StringContent where - fmap = AST.Traversable1.Class.fmapDefault1 - -instance Data.Traversable.Traversable StringContent where - traverse = AST.Traversable1.Class.traverseDefault1 - -type AnonymousDQuote = AST.Token.Token "\"" 7 - -type AnonymousComma = AST.Token.Token "," 2 - -type AnonymousColon = AST.Token.Token ":" 4 - -type AnonymousLBracket = AST.Token.Token "[" 5 - -type AnonymousRBracket = AST.Token.Token "]" 6 - -data EscapeSequence a = EscapeSequence {ann :: a, text :: Data.Text.Internal.Text} - deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass - ( forall a_60. - AST.Traversable1.Class.Traversable1 a_60 - ) - -instance AST.Unmarshal.SymbolMatching EscapeSequence where - matchedSymbols _ = [9] - showFailure _ node_61 = - "expected " - GHC.Base.<> ( "escape_sequence" - GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_61 GHC.Classes.== 65535 - then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_61) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_62 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_63 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_64 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_65 GHC.Base.<> "]"))))))))) - ) - ) - ) - where - TreeSitter.Node.TSPoint - r1_62 - c1_63 = TreeSitter.Node.nodeStartPoint node_61 - TreeSitter.Node.TSPoint - r2_64 - c2_65 = TreeSitter.Node.nodeEndPoint node_61 - -deriving instance GHC.Classes.Eq a_66 => GHC.Classes.Eq (EscapeSequence a_66) - -deriving instance GHC.Classes.Ord a_67 => GHC.Classes.Ord (EscapeSequence a_67) - -deriving instance GHC.Show.Show a_68 => GHC.Show.Show (EscapeSequence a_68) - -instance AST.Unmarshal.Unmarshal EscapeSequence - -instance Data.Foldable.Foldable EscapeSequence where - foldMap = AST.Traversable1.Class.foldMapDefault1 - -instance GHC.Base.Functor EscapeSequence where - fmap = AST.Traversable1.Class.fmapDefault1 - -instance Data.Traversable.Traversable EscapeSequence where - traverse = AST.Traversable1.Class.traverseDefault1 - -data False a = False {ann :: a, text :: Data.Text.Internal.Text} - deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass - ( forall a_69. - AST.Traversable1.Class.Traversable1 a_69 - ) - -instance AST.Unmarshal.SymbolMatching False where - matchedSymbols _ = [12] - showFailure _ node_70 = - "expected " - GHC.Base.<> ( "false" - GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_70 GHC.Classes.== 65535 - then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_70) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_71 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_72 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_73 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_74 GHC.Base.<> "]"))))))))) - ) - ) - ) - where - TreeSitter.Node.TSPoint - r1_71 - c1_72 = TreeSitter.Node.nodeStartPoint node_70 - TreeSitter.Node.TSPoint - r2_73 - c2_74 = TreeSitter.Node.nodeEndPoint node_70 - -deriving instance GHC.Classes.Eq a_75 => GHC.Classes.Eq (False a_75) - -deriving instance GHC.Classes.Ord a_76 => GHC.Classes.Ord (False a_76) - -deriving instance GHC.Show.Show a_77 => GHC.Show.Show (False a_77) - -instance AST.Unmarshal.Unmarshal False - -instance Data.Foldable.Foldable False where - foldMap = AST.Traversable1.Class.foldMapDefault1 - -instance GHC.Base.Functor False where - fmap = AST.Traversable1.Class.fmapDefault1 - -instance Data.Traversable.Traversable False where - traverse = AST.Traversable1.Class.traverseDefault1 - -data Null a = Null {ann :: a, text :: Data.Text.Internal.Text} - deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass - ( forall a_78. - AST.Traversable1.Class.Traversable1 a_78 - ) - -instance AST.Unmarshal.SymbolMatching Null where - matchedSymbols _ = [13] - showFailure _ node_79 = - "expected " - GHC.Base.<> ( "null" - GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_79 GHC.Classes.== 65535 - then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_79) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_80 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_81 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_82 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_83 GHC.Base.<> "]"))))))))) - ) - ) - ) - where - TreeSitter.Node.TSPoint - r1_80 - c1_81 = TreeSitter.Node.nodeStartPoint node_79 - TreeSitter.Node.TSPoint - r2_82 - c2_83 = TreeSitter.Node.nodeEndPoint node_79 - -deriving instance GHC.Classes.Eq a_84 => GHC.Classes.Eq (Null a_84) - -deriving instance GHC.Classes.Ord a_85 => GHC.Classes.Ord (Null a_85) - -deriving instance GHC.Show.Show a_86 => GHC.Show.Show (Null a_86) - -instance AST.Unmarshal.Unmarshal Null - -instance Data.Foldable.Foldable Null where - foldMap = AST.Traversable1.Class.foldMapDefault1 - -instance GHC.Base.Functor Null where - fmap = AST.Traversable1.Class.fmapDefault1 - -instance Data.Traversable.Traversable Null where - traverse = AST.Traversable1.Class.traverseDefault1 - -data Number a = Number {ann :: a, text :: Data.Text.Internal.Text} - deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass - ( forall a_87. - AST.Traversable1.Class.Traversable1 a_87 - ) - -instance AST.Unmarshal.SymbolMatching Number where - matchedSymbols _ = [10] - showFailure _ node_88 = - "expected " - GHC.Base.<> ( "number" - GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_88 GHC.Classes.== 65535 - then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_88) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_89 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_90 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_91 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_92 GHC.Base.<> "]"))))))))) - ) - ) - ) - where - TreeSitter.Node.TSPoint - r1_89 - c1_90 = TreeSitter.Node.nodeStartPoint node_88 - TreeSitter.Node.TSPoint - r2_91 - c2_92 = TreeSitter.Node.nodeEndPoint node_88 - -deriving instance GHC.Classes.Eq a_93 => GHC.Classes.Eq (Number a_93) - -deriving instance GHC.Classes.Ord a_94 => GHC.Classes.Ord (Number a_94) - -deriving instance GHC.Show.Show a_95 => GHC.Show.Show (Number a_95) - -instance AST.Unmarshal.Unmarshal Number - -instance Data.Foldable.Foldable Number where - foldMap = AST.Traversable1.Class.foldMapDefault1 - -instance GHC.Base.Functor Number where - fmap = AST.Traversable1.Class.fmapDefault1 - -instance Data.Traversable.Traversable Number where - traverse = AST.Traversable1.Class.traverseDefault1 - -data True a = True {ann :: a, text :: Data.Text.Internal.Text} - deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) - deriving anyclass - ( forall a_96. - AST.Traversable1.Class.Traversable1 a_96 - ) - -instance AST.Unmarshal.SymbolMatching True where - matchedSymbols _ = [11] - showFailure _ node_97 = - "expected " - GHC.Base.<> ( "true" - GHC.Base.<> ( " but got " - GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_97 GHC.Classes.== 65535 - then "ERROR" - else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_97) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_98 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_99 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_100 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_101 GHC.Base.<> "]"))))))))) - ) - ) - ) - where - TreeSitter.Node.TSPoint - r1_98 - c1_99 = TreeSitter.Node.nodeStartPoint node_97 - TreeSitter.Node.TSPoint - r2_100 - c2_101 = TreeSitter.Node.nodeEndPoint node_97 - -deriving instance GHC.Classes.Eq a_102 => GHC.Classes.Eq (True a_102) - -deriving instance GHC.Classes.Ord a_103 => GHC.Classes.Ord (True a_103) - -deriving instance GHC.Show.Show a_104 => GHC.Show.Show (True a_104) - -instance AST.Unmarshal.Unmarshal True - -instance Data.Foldable.Foldable True where - foldMap = AST.Traversable1.Class.foldMapDefault1 - -instance GHC.Base.Functor True where - fmap = AST.Traversable1.Class.fmapDefault1 - -instance Data.Traversable.Traversable True where - traverse = AST.Traversable1.Class.traverseDefault1 - -type AnonymousLBrace = AST.Token.Token "{" 1 - -type AnonymousRBrace = AST.Token.Token "}" 3 - From 54a1a7e49c14a64b770040581337610ae6b07837 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 9 Sep 2020 20:04:08 -0400 Subject: [PATCH 13/30] hack around this on the client side --- semantic-ast/app/Main.hs | 2 +- semantic-ast/src/AST/GenerateSyntax.hs | 20 +- semantic-json/src/Language/JSON/AST.hs | 605 +++++++++++++++++++++++++ 3 files changed, 617 insertions(+), 10 deletions(-) diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index a73268135..42741f6a7 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -53,7 +53,7 @@ adjust = _InstanceD.typed.mapped %~ (values %~ truncate) . (functions %~ truncat main :: IO () main = do Config language path <- Opt.getRecord "generate-ast" - decls <- T.pack . pprint . fmap adjust <$> runQ (astDeclarationsRelative JSON.tree_sitter_json path) + decls <- T.pack . pprint . fmap adjust <$> astDeclarationsIO JSON.tree_sitter_json path let programText = [trimming| diff --git a/semantic-ast/src/AST/GenerateSyntax.hs b/semantic-ast/src/AST/GenerateSyntax.hs index 005d655bf..6a60f4c8b 100644 --- a/semantic-ast/src/AST/GenerateSyntax.hs +++ b/semantic-ast/src/AST/GenerateSyntax.hs @@ -9,7 +9,7 @@ module AST.GenerateSyntax ( syntaxDatatype , astDeclarationsForLanguage -, astDeclarationsRelative +, astDeclarationsIO ) where import AST.Deserialize (Children (..), Datatype (..), DatatypeName (..), Field (..), Multiple (..), Named (..), Required (..), Type (..)) @@ -45,17 +45,20 @@ astDeclarationsForLanguage language filePath = do currentFilename <- loc_filename <$> location pwd <- runIO getCurrentDirectory let invocationRelativePath = takeDirectory (pwd currentFilename) filePath - astDeclarationsRelative language invocationRelativePath + astDeclarationsRelative lookupTypeName language invocationRelativePath -astDeclarationsRelative :: Ptr TS.Language -> FilePath -> Q [Dec] -astDeclarationsRelative language invocationRelativePath = do +astDeclarationsIO :: Ptr TS.Language -> FilePath -> IO [Dec] +astDeclarationsIO lang p = runQ (astDeclarationsRelative (const (pure Nothing)) lang p) + +astDeclarationsRelative :: (String -> Q (Maybe Name)) -> Ptr TS.Language -> FilePath -> Q [Dec] +astDeclarationsRelative lookupName language invocationRelativePath = do input <- runIO (eitherDecodeFileStrict' invocationRelativePath) >>= either fail pure allSymbols <- runIO (getAllSymbols language) debugSymbolNames <- [d| debugSymbolNames :: [String] debugSymbolNames = $(listE (map (litE . stringL . debugPrefix) allSymbols)) |] - mappend debugSymbolNames . concat @[] <$> traverse (syntaxDatatype language allSymbols) input + mappend debugSymbolNames . concat @[] <$> traverse (syntaxDatatype lookupName language allSymbols) input -- Build a list of all symbols getAllSymbols :: Ptr TS.Language -> IO [(String, Named)] @@ -74,8 +77,8 @@ annParameterName :: Name annParameterName = mkName "a" -- Auto-generate Haskell datatypes for sums, products and leaf types -syntaxDatatype :: Ptr TS.Language -> [(String, Named)] -> Datatype -> Q [Dec] -syntaxDatatype language allSymbols datatype = skipDefined $ do +syntaxDatatype :: (String -> Q (Maybe Name)) -> Ptr TS.Language -> [(String, Named)] -> Datatype -> Q [Dec] +syntaxDatatype lookupType language allSymbols datatype = skipDefined $ do let traversalInstances = mappend <$> makeStandaloneDerivings (conT name) <*> makeTraversalInstances (conT name) glue a b c = a : b <> c name = mkName nameStr @@ -106,8 +109,7 @@ syntaxDatatype language allSymbols datatype = skipDefined $ do where -- Skip generating datatypes that have already been defined (overridden) in the module where the splice is running. skipDefined m = do - let query = lookupTypeName nameStr `recover` pure Nothing - isLocal <- query >>= maybe (pure False) isLocalName + isLocal <- lookupType nameStr >>= maybe (pure False) isLocalName if isLocal then pure [] else m nameStr = toNameString (datatypeNameStatus datatype) (getDatatypeName (AST.Deserialize.datatypeName datatype)) diff --git a/semantic-json/src/Language/JSON/AST.hs b/semantic-json/src/Language/JSON/AST.hs index e69de29bb..7473a82e0 100644 --- a/semantic-json/src/Language/JSON/AST.hs +++ b/semantic-json/src/Language/JSON/AST.hs @@ -0,0 +1,605 @@ +-- Language definition for JSON, generated by ast-generate. Do not edit! +{-# LANGUAGE CPP #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveAnyClass #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DeriveTraversable #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE KindSignatures #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE QuantifiedConstraints #-} +{-# LANGUAGE StandaloneDeriving #-} +{-# LANGUAGE TemplateHaskell #-} +{-# LANGUAGE TypeApplications #-} +{-# LANGUAGE TypeOperators #-} +{-# LANGUAGE UndecidableInstances #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +module Language.JSON.AST (module Language.JSON.AST) where + +import qualified AST.Parse +import qualified AST.Token +import qualified AST.Traversable1.Class +import qualified AST.Unmarshal +import qualified Data.Foldable +import qualified Data.List as Data.OldList +import qualified Data.Maybe as GHC.Maybe +import qualified Data.Text.Internal +import qualified Data.Traversable +import qualified GHC.Base +import qualified GHC.Generics +import qualified GHC.Records +import qualified GHC.Show +import qualified TreeSitter.Node +import qualified Prelude as GHC.Classes + +debugSymbolNames :: [GHC.Base.String] +debugSymbolNames = debugSymbolNames_0 + +debugSymbolNames_0 :: [GHC.Base.String] +debugSymbolNames_0 = + [ "end", + "_{", + "_,", + "_}", + "_:", + "_[", + "_]", + "_\"", + "_string_content_token1", + "escape_sequence", + "number", + "true", + "false", + "null", + "document", + "_value", + "object", + "pair", + "array", + "string", + "string_content", + "_object_repeat1", + "_array_repeat1", + "_string_content_repeat1" + ] + +newtype Value a = Value {getValue :: ((Array GHC.Generics.:+: False GHC.Generics.:+: Null GHC.Generics.:+: Number GHC.Generics.:+: Object GHC.Generics.:+: String GHC.Generics.:+: True) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1. + AST.Traversable1.Class.Traversable1 a_1 + ) + +instance GHC.Records.HasField "ann" (Value a_2) a_2 where + getField = AST.Unmarshal.gann GHC.Base.. getValue + +deriving instance GHC.Classes.Eq a_3 => GHC.Classes.Eq (Value a_3) + +deriving instance GHC.Classes.Ord a_4 => GHC.Classes.Ord (Value a_4) + +deriving instance GHC.Show.Show a_5 => GHC.Show.Show (Value a_5) + +instance AST.Unmarshal.Unmarshal Value + +instance Data.Foldable.Foldable Value where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Value where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Value where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Array a = Array {ann :: a, extraChildren :: ([AST.Parse.Err (Value a)])} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_6. + AST.Traversable1.Class.Traversable1 a_6 + ) + +instance AST.Unmarshal.SymbolMatching Array where + matchedSymbols _ = [18] + showFailure _ node_7 = + "expected " + GHC.Base.<> ( "array" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_7 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_7) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_8 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_9 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_10 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_11 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_8 + c1_9 = TreeSitter.Node.nodeStartPoint node_7 + TreeSitter.Node.TSPoint + r2_10 + c2_11 = TreeSitter.Node.nodeEndPoint node_7 + +deriving instance GHC.Classes.Eq a_12 => GHC.Classes.Eq (Array a_12) + +deriving instance GHC.Classes.Ord a_13 => GHC.Classes.Ord (Array a_13) + +deriving instance GHC.Show.Show a_14 => GHC.Show.Show (Array a_14) + +instance AST.Unmarshal.Unmarshal Array + +instance Data.Foldable.Foldable Array where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Array where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Array where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Document a = Document {ann :: a, extraChildren :: (AST.Parse.Err (Value a))} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_15. + AST.Traversable1.Class.Traversable1 a_15 + ) + +instance AST.Unmarshal.SymbolMatching Document where + matchedSymbols _ = [14] + showFailure _ node_16 = + "expected " + GHC.Base.<> ( "document" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_16 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_16) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_17 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_18 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_19 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_20 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_17 + c1_18 = TreeSitter.Node.nodeStartPoint node_16 + TreeSitter.Node.TSPoint + r2_19 + c2_20 = TreeSitter.Node.nodeEndPoint node_16 + +deriving instance GHC.Classes.Eq a_21 => GHC.Classes.Eq (Document a_21) + +deriving instance GHC.Classes.Ord a_22 => GHC.Classes.Ord (Document a_22) + +deriving instance GHC.Show.Show a_23 => GHC.Show.Show (Document a_23) + +instance AST.Unmarshal.Unmarshal Document + +instance Data.Foldable.Foldable Document where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Document where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Document where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Object a = Object {ann :: a, extraChildren :: ([AST.Parse.Err (Pair a)])} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_24. + AST.Traversable1.Class.Traversable1 a_24 + ) + +instance AST.Unmarshal.SymbolMatching Object where + matchedSymbols _ = [16] + showFailure _ node_25 = + "expected " + GHC.Base.<> ( "object" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_25 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_25) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_26 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_27 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_28 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_29 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_26 + c1_27 = TreeSitter.Node.nodeStartPoint node_25 + TreeSitter.Node.TSPoint + r2_28 + c2_29 = TreeSitter.Node.nodeEndPoint node_25 + +deriving instance GHC.Classes.Eq a_30 => GHC.Classes.Eq (Object a_30) + +deriving instance GHC.Classes.Ord a_31 => GHC.Classes.Ord (Object a_31) + +deriving instance GHC.Show.Show a_32 => GHC.Show.Show (Object a_32) + +instance AST.Unmarshal.Unmarshal Object + +instance Data.Foldable.Foldable Object where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Object where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Object where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Pair a = Pair + { ann :: a, + value :: (AST.Parse.Err (Value a)), + key :: (AST.Parse.Err ((Number GHC.Generics.:+: String) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_33. + AST.Traversable1.Class.Traversable1 a_33 + ) + +instance AST.Unmarshal.SymbolMatching Pair where + matchedSymbols _ = [17] + showFailure _ node_34 = + "expected " + GHC.Base.<> ( "pair" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_34 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_34) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_35 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_36 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_37 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_38 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_35 + c1_36 = TreeSitter.Node.nodeStartPoint node_34 + TreeSitter.Node.TSPoint + r2_37 + c2_38 = TreeSitter.Node.nodeEndPoint node_34 + +deriving instance GHC.Classes.Eq a_39 => GHC.Classes.Eq (Pair a_39) + +deriving instance GHC.Classes.Ord a_40 => GHC.Classes.Ord (Pair a_40) + +deriving instance GHC.Show.Show a_41 => GHC.Show.Show (Pair a_41) + +instance AST.Unmarshal.Unmarshal Pair + +instance Data.Foldable.Foldable Pair where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Pair where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Pair where + traverse = AST.Traversable1.Class.traverseDefault1 + +data String a = String + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (StringContent a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_42. + AST.Traversable1.Class.Traversable1 a_42 + ) + +instance AST.Unmarshal.SymbolMatching String where + matchedSymbols _ = [19] + showFailure _ node_43 = + "expected " + GHC.Base.<> ( "string" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_43 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_43) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_44 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_45 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_46 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_47 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_44 + c1_45 = TreeSitter.Node.nodeStartPoint node_43 + TreeSitter.Node.TSPoint + r2_46 + c2_47 = TreeSitter.Node.nodeEndPoint node_43 + +deriving instance GHC.Classes.Eq a_48 => GHC.Classes.Eq (String a_48) + +deriving instance GHC.Classes.Ord a_49 => GHC.Classes.Ord (String a_49) + +deriving instance GHC.Show.Show a_50 => GHC.Show.Show (String a_50) + +instance AST.Unmarshal.Unmarshal String + +instance Data.Foldable.Foldable String where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor String where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable String where + traverse = AST.Traversable1.Class.traverseDefault1 + +data StringContent a = StringContent + { ann :: a, + extraChildren :: ([AST.Parse.Err (EscapeSequence a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_51. + AST.Traversable1.Class.Traversable1 a_51 + ) + +instance AST.Unmarshal.SymbolMatching StringContent where + matchedSymbols _ = [20] + showFailure _ node_52 = + "expected " + GHC.Base.<> ( "string_content" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_52 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_52) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_53 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_54 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_55 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_56 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_53 + c1_54 = TreeSitter.Node.nodeStartPoint node_52 + TreeSitter.Node.TSPoint + r2_55 + c2_56 = TreeSitter.Node.nodeEndPoint node_52 + +deriving instance GHC.Classes.Eq a_57 => GHC.Classes.Eq (StringContent a_57) + +deriving instance GHC.Classes.Ord a_58 => GHC.Classes.Ord (StringContent a_58) + +deriving instance GHC.Show.Show a_59 => GHC.Show.Show (StringContent a_59) + +instance AST.Unmarshal.Unmarshal StringContent + +instance Data.Foldable.Foldable StringContent where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor StringContent where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable StringContent where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousDQuote = AST.Token.Token "\"" 7 + +type AnonymousComma = AST.Token.Token "," 2 + +type AnonymousColon = AST.Token.Token ":" 4 + +type AnonymousLBracket = AST.Token.Token "[" 5 + +type AnonymousRBracket = AST.Token.Token "]" 6 + +data EscapeSequence a = EscapeSequence {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_60. + AST.Traversable1.Class.Traversable1 a_60 + ) + +instance AST.Unmarshal.SymbolMatching EscapeSequence where + matchedSymbols _ = [9] + showFailure _ node_61 = + "expected " + GHC.Base.<> ( "escape_sequence" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_61 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_61) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_62 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_63 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_64 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_65 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_62 + c1_63 = TreeSitter.Node.nodeStartPoint node_61 + TreeSitter.Node.TSPoint + r2_64 + c2_65 = TreeSitter.Node.nodeEndPoint node_61 + +deriving instance GHC.Classes.Eq a_66 => GHC.Classes.Eq (EscapeSequence a_66) + +deriving instance GHC.Classes.Ord a_67 => GHC.Classes.Ord (EscapeSequence a_67) + +deriving instance GHC.Show.Show a_68 => GHC.Show.Show (EscapeSequence a_68) + +instance AST.Unmarshal.Unmarshal EscapeSequence + +instance Data.Foldable.Foldable EscapeSequence where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EscapeSequence where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EscapeSequence where + traverse = AST.Traversable1.Class.traverseDefault1 + +data False a = False {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_69. + AST.Traversable1.Class.Traversable1 a_69 + ) + +instance AST.Unmarshal.SymbolMatching False where + matchedSymbols _ = [12] + showFailure _ node_70 = + "expected " + GHC.Base.<> ( "false" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_70 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_70) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_71 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_72 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_73 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_74 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_71 + c1_72 = TreeSitter.Node.nodeStartPoint node_70 + TreeSitter.Node.TSPoint + r2_73 + c2_74 = TreeSitter.Node.nodeEndPoint node_70 + +deriving instance GHC.Classes.Eq a_75 => GHC.Classes.Eq (False a_75) + +deriving instance GHC.Classes.Ord a_76 => GHC.Classes.Ord (False a_76) + +deriving instance GHC.Show.Show a_77 => GHC.Show.Show (False a_77) + +instance AST.Unmarshal.Unmarshal False + +instance Data.Foldable.Foldable False where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor False where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable False where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Null a = Null {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_78. + AST.Traversable1.Class.Traversable1 a_78 + ) + +instance AST.Unmarshal.SymbolMatching Null where + matchedSymbols _ = [13] + showFailure _ node_79 = + "expected " + GHC.Base.<> ( "null" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_79 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_79) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_80 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_81 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_82 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_83 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_80 + c1_81 = TreeSitter.Node.nodeStartPoint node_79 + TreeSitter.Node.TSPoint + r2_82 + c2_83 = TreeSitter.Node.nodeEndPoint node_79 + +deriving instance GHC.Classes.Eq a_84 => GHC.Classes.Eq (Null a_84) + +deriving instance GHC.Classes.Ord a_85 => GHC.Classes.Ord (Null a_85) + +deriving instance GHC.Show.Show a_86 => GHC.Show.Show (Null a_86) + +instance AST.Unmarshal.Unmarshal Null + +instance Data.Foldable.Foldable Null where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Null where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Null where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Number a = Number {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_87. + AST.Traversable1.Class.Traversable1 a_87 + ) + +instance AST.Unmarshal.SymbolMatching Number where + matchedSymbols _ = [10] + showFailure _ node_88 = + "expected " + GHC.Base.<> ( "number" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_88 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_88) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_89 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_90 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_91 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_92 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_89 + c1_90 = TreeSitter.Node.nodeStartPoint node_88 + TreeSitter.Node.TSPoint + r2_91 + c2_92 = TreeSitter.Node.nodeEndPoint node_88 + +deriving instance GHC.Classes.Eq a_93 => GHC.Classes.Eq (Number a_93) + +deriving instance GHC.Classes.Ord a_94 => GHC.Classes.Ord (Number a_94) + +deriving instance GHC.Show.Show a_95 => GHC.Show.Show (Number a_95) + +instance AST.Unmarshal.Unmarshal Number + +instance Data.Foldable.Foldable Number where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Number where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Number where + traverse = AST.Traversable1.Class.traverseDefault1 + +data True a = True {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_96. + AST.Traversable1.Class.Traversable1 a_96 + ) + +instance AST.Unmarshal.SymbolMatching True where + matchedSymbols _ = [11] + showFailure _ node_97 = + "expected " + GHC.Base.<> ( "true" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_97 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_97) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_98 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_99 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_100 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_101 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_98 + c1_99 = TreeSitter.Node.nodeStartPoint node_97 + TreeSitter.Node.TSPoint + r2_100 + c2_101 = TreeSitter.Node.nodeEndPoint node_97 + +deriving instance GHC.Classes.Eq a_102 => GHC.Classes.Eq (True a_102) + +deriving instance GHC.Classes.Ord a_103 => GHC.Classes.Ord (True a_103) + +deriving instance GHC.Show.Show a_104 => GHC.Show.Show (True a_104) + +instance AST.Unmarshal.Unmarshal True + +instance Data.Foldable.Foldable True where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor True where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable True where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousLBrace = AST.Token.Token "{" 1 + +type AnonymousRBrace = AST.Token.Token "}" 3 + From 36743ee1be9d039b87df32da17d6bbaaf0b81aed Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 9 Sep 2020 20:22:22 -0400 Subject: [PATCH 14/30] simpler! --- semantic-ast/app/Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index 42741f6a7..8fb413aea 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -38,8 +38,8 @@ data Config = Config {language :: Text, path :: FilePath} -- a qualified name on the LHS of a typeclass declaration, which Haskell -- doesn't like at all. I haven't figured out quite why we get this qualified -- name, but for now the simplest thing to do is some neste dupdates -adjust :: Dec -> Dec -adjust = _InstanceD.typed.mapped %~ (values %~ truncate) . (functions %~ truncate) +adjust :: [Dec] -> [Dec] +adjust = mapped._InstanceD.typed.mapped %~ (values %~ truncate) . (functions %~ truncate) where -- Need to handle functions with no arguments, which are parsed as ValD entities, -- as well as those with arguments, which are FunD. @@ -53,7 +53,7 @@ adjust = _InstanceD.typed.mapped %~ (values %~ truncate) . (functions %~ truncat main :: IO () main = do Config language path <- Opt.getRecord "generate-ast" - decls <- T.pack . pprint . fmap adjust <$> astDeclarationsIO JSON.tree_sitter_json path + decls <- T.pack . pprint . adjust <$> astDeclarationsIO JSON.tree_sitter_json path let programText = [trimming| From 144d180ac61865bd5541fccbb4ba5fe6867faae3 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 9 Sep 2020 20:23:47 -0400 Subject: [PATCH 15/30] no point in running this in cabal --- semantic-ast/semantic-ast.cabal | 6 ------ 1 file changed, 6 deletions(-) diff --git a/semantic-ast/semantic-ast.cabal b/semantic-ast/semantic-ast.cabal index de6e68f32..1d6bf289d 100644 --- a/semantic-ast/semantic-ast.cabal +++ b/semantic-ast/semantic-ast.cabal @@ -80,9 +80,3 @@ library , unordered-containers ^>= 0.2.10 hs-source-dirs: src - -executable generate-ast - import: haskell - hs-source-dirs: app - main-is: Main.hs - build-depends: optparse-generic From 5e4d17776ed5aa6be6ef6b9786b4de681607b4b8 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 9 Sep 2020 20:23:55 -0400 Subject: [PATCH 16/30] docs --- semantic-ast/app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index 8fb413aea..764cf47f9 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -37,7 +37,7 @@ data Config = Config {language :: Text, path :: FilePath} -- create entirely valid Haskell syntax, because sometimes we get -- a qualified name on the LHS of a typeclass declaration, which Haskell -- doesn't like at all. I haven't figured out quite why we get this qualified --- name, but for now the simplest thing to do is some neste dupdates +-- name, but for now the easiest thing to do is some nested updates with lens. adjust :: [Dec] -> [Dec] adjust = mapped._InstanceD.typed.mapped %~ (values %~ truncate) . (functions %~ truncate) where From fab91b04d5eb8da9c6b55b29a4225c60e5f8aada Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Thu, 10 Sep 2020 09:49:15 -0400 Subject: [PATCH 17/30] more refinements --- .github/workflows/haskell.yml | 2 +- semantic-ast/BUILD.bazel | 16 ++++++++++++++-- semantic-ast/app/Main.hs | 6 +++--- 3 files changed, 18 insertions(+), 6 deletions(-) diff --git a/.github/workflows/haskell.yml b/.github/workflows/haskell.yml index 763305485..2eb08a236 100644 --- a/.github/workflows/haskell.yml +++ b/.github/workflows/haskell.yml @@ -14,7 +14,7 @@ jobs: runs-on: ubuntu-latest strategy: matrix: - ghc: ["8.8.3", "8.10.1"] + ghc: ["8.10.1"] cabal: ["3.2.0.0"] steps: diff --git a/semantic-ast/BUILD.bazel b/semantic-ast/BUILD.bazel index 2f9fcea51..21826d700 100644 --- a/semantic-ast/BUILD.bazel +++ b/semantic-ast/BUILD.bazel @@ -48,6 +48,19 @@ haskell_library( ], ) +all_ts_deps = ["@tree-sitter-{name}//:tree-sitter-{name}".format(name = name) for name in [ + "go", + "java", + "json", + "php", + "python", + "ql", + "ruby", + "rust", + "tsx", + "typescript", +]] + haskell_binary( name = "generate-ast", srcs = glob(["app/**/*.hs"]), @@ -64,6 +77,5 @@ haskell_binary( "@stackage//:lens", "@stackage//:neat-interpolation", "@stackage//:optparse-generic", - "@tree-sitter-json//:tree-sitter-json", - ], + ] + all_ts_deps, ) diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index 764cf47f9..ca8afd341 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -38,8 +38,8 @@ data Config = Config {language :: Text, path :: FilePath} -- a qualified name on the LHS of a typeclass declaration, which Haskell -- doesn't like at all. I haven't figured out quite why we get this qualified -- name, but for now the easiest thing to do is some nested updates with lens. -adjust :: [Dec] -> [Dec] -adjust = mapped._InstanceD.typed.mapped %~ (values %~ truncate) . (functions %~ truncate) +adjust :: Dec -> Dec +adjust = _InstanceD.typed.mapped %~ (values %~ truncate) . (functions %~ truncate) where -- Need to handle functions with no arguments, which are parsed as ValD entities, -- as well as those with arguments, which are FunD. @@ -53,7 +53,7 @@ adjust = mapped._InstanceD.typed.mapped %~ (values %~ truncate) . (functions %~ main :: IO () main = do Config language path <- Opt.getRecord "generate-ast" - decls <- T.pack . pprint . adjust <$> astDeclarationsIO JSON.tree_sitter_json path + decls <- T.pack . pprint . fmap adjust <$> astDeclarationsIO JSON.tree_sitter_json path let programText = [trimming| From 42b0839b30c95830cc5dfce602c95d3799c80b0b Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Thu, 10 Sep 2020 09:51:09 -0400 Subject: [PATCH 18/30] propitiate bazel builder --- .github/workflows/{bazel.yml => bazel.yml.disabled} | 0 1 file changed, 0 insertions(+), 0 deletions(-) rename .github/workflows/{bazel.yml => bazel.yml.disabled} (100%) diff --git a/.github/workflows/bazel.yml b/.github/workflows/bazel.yml.disabled similarity index 100% rename from .github/workflows/bazel.yml rename to .github/workflows/bazel.yml.disabled From bd4f49812e8994466e0170df66e5c0fb07ef9cb1 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Thu, 10 Sep 2020 10:11:41 -0400 Subject: [PATCH 19/30] work for all languages (hopefully) --- semantic-ast/BUILD.bazel | 2 ++ semantic-ast/app/Main.hs | 42 +++++++++++++++++++++++++++++++++++----- 2 files changed, 39 insertions(+), 5 deletions(-) diff --git a/semantic-ast/BUILD.bazel b/semantic-ast/BUILD.bazel index 21826d700..4f9cb720e 100644 --- a/semantic-ast/BUILD.bazel +++ b/semantic-ast/BUILD.bazel @@ -67,6 +67,7 @@ haskell_binary( compiler_flags = GHC_FLAGS + EXECUTABLE_FLAGS + ["-XStrictData"], deps = [ ":semantic-ast", + "//semantic-source", "//:base", "//:filepath", "//:process", @@ -75,6 +76,7 @@ haskell_binary( "@stackage//:directory", "@stackage//:generic-lens", "@stackage//:lens", + "@stackage//:tree-sitter", "@stackage//:neat-interpolation", "@stackage//:optparse-generic", ] + all_ts_deps, diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index ca8afd341..54ceadbbf 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -14,20 +14,33 @@ module Main (main) where import AST.GenerateSyntax import Control.Lens (Traversal', mapped, (%~)) +import Control.Monad import Data.Generics.Product.Typed (typed) import Data.Maybe import Data.Text (Text) import qualified Data.Text as T import qualified Data.Text.IO as T +import Foreign import GHC.Generics (Generic) -import Language.Haskell.TH +import Language.Haskell.TH hiding (JavaScript) import Language.Haskell.TH.Lens import NeatInterpolation import qualified Options.Generic as Opt +import Source.Language import System.Directory +import System.Exit +import qualified TreeSitter.Language import System.IO import System.Process +import qualified TreeSitter.Go as Go (tree_sitter_go) import qualified TreeSitter.JSON as JSON (tree_sitter_json) +import qualified TreeSitter.Java as Java (tree_sitter_java) +import qualified TreeSitter.PHP as PHP (tree_sitter_php) +import qualified TreeSitter.Python as Python (tree_sitter_python) +import qualified TreeSitter.QL as CodeQL (tree_sitter_ql) +import qualified TreeSitter.Ruby as Ruby (tree_sitter_ruby) +import qualified TreeSitter.TSX as TSX (tree_sitter_tsx) +import qualified TreeSitter.TypeScript as TypeScript (tree_sitter_typescript) data Config = Config {language :: Text, path :: FilePath} deriving stock (Show, Generic) @@ -39,21 +52,40 @@ data Config = Config {language :: Text, path :: FilePath} -- doesn't like at all. I haven't figured out quite why we get this qualified -- name, but for now the easiest thing to do is some nested updates with lens. adjust :: Dec -> Dec -adjust = _InstanceD.typed.mapped %~ (values %~ truncate) . (functions %~ truncate) +adjust = _InstanceD . typed . mapped %~ (values %~ truncate) . (functions %~ truncate) where -- Need to handle functions with no arguments, which are parsed as ValD entities, -- as well as those with arguments, which are FunD. values, functions :: Traversal' Dec Name - values = _ValD.typed._VarP - functions = _FunD.typed + values = _ValD . typed . _VarP + functions = _FunD . typed truncate :: Name -> Name truncate = mkName . nameBase +parserForLanguage :: Language -> Ptr TreeSitter.Language.Language +parserForLanguage = \case + Unknown -> error "Unknown language encountered" + CodeQL -> CodeQL.tree_sitter_ql + Go -> Go.tree_sitter_go + Haskell -> error "Haskell backend not implemented yet" + Java -> Java.tree_sitter_java + JavaScript -> TypeScript.tree_sitter_typescript + JSON -> JSON.tree_sitter_json + JSX -> TSX.tree_sitter_tsx + Markdown -> error "Markdown backend deprecated" + PHP -> PHP.tree_sitter_php + Python -> Python.tree_sitter_python + Ruby -> Ruby.tree_sitter_ruby + TypeScript -> TypeScript.tree_sitter_typescript + TSX -> TSX.tree_sitter_tsx + main :: IO () main = do Config language path <- Opt.getRecord "generate-ast" - decls <- T.pack . pprint . fmap adjust <$> astDeclarationsIO JSON.tree_sitter_json path + let lang = textToLanguage language + decls <- T.pack . pprint . fmap adjust <$> astDeclarationsIO (parserForLanguage lang) path + when (lang == Unknown) (die ("Couldn't determine language for " <> T.unpack language)) let programText = [trimming| From 60a65b1d3bf0ab81c664ce72f411c17cfbf096b7 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Thu, 10 Sep 2020 10:39:21 -0400 Subject: [PATCH 20/30] expose getTestCorpusDir, though I'm not sure it works under Bazel --- semantic-ast/app/Main.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index 54ceadbbf..1ede3f089 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -109,7 +109,7 @@ main = do {-# LANGUAGE UndecidableInstances #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Language.$language.AST (module Language.$language.AST) where +module Language.$language.AST (module Language.$language.AST, getTestCorpusDir) where import qualified AST.Parse import qualified AST.Token @@ -127,6 +127,8 @@ import qualified GHC.Show import qualified Prelude as GHC.Classes import qualified TreeSitter.Node +import TreeSitter.$language (getTestCorpusDir) + debugSymbolNames :: [GHC.Base.String] debugSymbolNames = debugSymbolNames_0 From a999078d067d69e2343c81a9d2d85e2d26945bb3 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Thu, 10 Sep 2020 18:20:39 -0400 Subject: [PATCH 21/30] regenerate file --- semantic-json/src/Language/JSON/AST.hs | 3 ++- stack-snapshot.yaml | 8 ++++---- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/semantic-json/src/Language/JSON/AST.hs b/semantic-json/src/Language/JSON/AST.hs index 7473a82e0..48a6333b2 100644 --- a/semantic-json/src/Language/JSON/AST.hs +++ b/semantic-json/src/Language/JSON/AST.hs @@ -18,7 +18,7 @@ {-# LANGUAGE UndecidableInstances #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Language.JSON.AST (module Language.JSON.AST) where +module Language.JSON.AST (module Language.JSON.AST, getTestCorpusDir) where import qualified AST.Parse import qualified AST.Token @@ -33,6 +33,7 @@ import qualified GHC.Base import qualified GHC.Generics import qualified GHC.Records import qualified GHC.Show +import TreeSitter.JSON (getTestCorpusDir) import qualified TreeSitter.Node import qualified Prelude as GHC.Classes diff --git a/stack-snapshot.yaml b/stack-snapshot.yaml index f94d93899..cf08e0428 100644 --- a/stack-snapshot.yaml +++ b/stack-snapshot.yaml @@ -3,13 +3,13 @@ packages: - github: antitypical/fused-syntax commit: "4a383d57c8fd7592f54a33f43eb9666314a6e80e" sha256: "aa345f8f04a12beaf8f07620467dee06370b72c763cf2d1c60556878b226fafc" + - Interpolation-0.3.0 - fused-effects-1.1.0.0 - fused-effects-exceptions-1.1.0.0 - fused-effects-readline-0.1.0.0 - - semilattices-0.0.0.4 - haskeline-0.8.0.0 - - Interpolation-0.3.0 - - tree-sitter-0.9.0.2 - - unliftio-core-0.2.0.1 - lingo-0.5.0.1 - proto-lens-jsonpb-0.2.0.2 + - semilattices-0.0.0.4 + - tree-sitter-0.9.0.2 + - unliftio-core-0.2.0.1 From 99e635260c2df62d16bb235f2c626bd5a46b3985 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Tue, 15 Sep 2020 19:38:16 -0400 Subject: [PATCH 22/30] Iterate. --- semantic-ast/BUILD.bazel | 1 + semantic-ast/README.md | 14 +++++++++++++- semantic-ast/app/Main.hs | 33 +++++++++++++++++++++++++-------- 3 files changed, 39 insertions(+), 9 deletions(-) diff --git a/semantic-ast/BUILD.bazel b/semantic-ast/BUILD.bazel index 4f9cb720e..6fa88e3ae 100644 --- a/semantic-ast/BUILD.bazel +++ b/semantic-ast/BUILD.bazel @@ -77,6 +77,7 @@ haskell_binary( "@stackage//:generic-lens", "@stackage//:lens", "@stackage//:tree-sitter", + "@stackage//:bazel-runfiles", "@stackage//:neat-interpolation", "@stackage//:optparse-generic", ] + all_ts_deps, diff --git a/semantic-ast/README.md b/semantic-ast/README.md index d5f44e402..260a3003b 100644 --- a/semantic-ast/README.md +++ b/semantic-ast/README.md @@ -1,5 +1,17 @@ # semantic-ast -This package is concerned with the CodeGen generation of strongly-typed ASTs. +This package is concerned with the CodeGen generation of strongly-typed ASTs. + +The provided `semantic-ast` executable is responsible for generating ASTs from language definitions. You can run it like so: + +``` +cabal run semantic-ast -- --language=JSON +``` + +You can also pass `all` to regenerate every language definition: + +``` +cabal run semantic-ast -- --language=all +``` [Documentation](https://github.com/github/semantic/blob/master/docs/codegen.md) diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index 1ede3f089..77ba92b2e 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -15,6 +15,7 @@ module Main (main) where import AST.GenerateSyntax import Control.Lens (Traversal', mapped, (%~)) import Control.Monad +import Data.Foldable import Data.Generics.Product.Typed (typed) import Data.Maybe import Data.Text (Text) @@ -29,12 +30,12 @@ import qualified Options.Generic as Opt import Source.Language import System.Directory import System.Exit -import qualified TreeSitter.Language import System.IO import System.Process import qualified TreeSitter.Go as Go (tree_sitter_go) import qualified TreeSitter.JSON as JSON (tree_sitter_json) import qualified TreeSitter.Java as Java (tree_sitter_java) +import qualified TreeSitter.Language import qualified TreeSitter.PHP as PHP (tree_sitter_php) import qualified TreeSitter.Python as Python (tree_sitter_python) import qualified TreeSitter.QL as CodeQL (tree_sitter_ql) @@ -42,7 +43,8 @@ import qualified TreeSitter.Ruby as Ruby (tree_sitter_ruby) import qualified TreeSitter.TSX as TSX (tree_sitter_tsx) import qualified TreeSitter.TypeScript as TypeScript (tree_sitter_typescript) -data Config = Config {language :: Text, path :: FilePath} +-- As a special case, you can pass +data Config = Config {language :: Text, path :: FilePath, rootdir :: Maybe FilePath} deriving stock (Show, Generic) deriving anyclass (Opt.ParseRecord) @@ -66,7 +68,7 @@ adjust = _InstanceD . typed . mapped %~ (values %~ truncate) . (functions %~ tru parserForLanguage :: Language -> Ptr TreeSitter.Language.Language parserForLanguage = \case Unknown -> error "Unknown language encountered" - CodeQL -> CodeQL.tree_sitter_ql + CodeQL -> (CodeQL.tree_sitter_ql) Go -> Go.tree_sitter_go Haskell -> error "Haskell backend not implemented yet" Java -> Java.tree_sitter_java @@ -80,12 +82,17 @@ parserForLanguage = \case TypeScript -> TypeScript.tree_sitter_typescript TSX -> TSX.tree_sitter_tsx -main :: IO () -main = do - Config language path <- Opt.getRecord "generate-ast" - let lang = textToLanguage language +-- nodeTypesPathForLanguage :: Bazel.Runfiles -> Language -> FilePath +-- nodeTypesPathForLanguage rf = \case +-- CodeQL -> r + +validLanguages :: [Language] +validLanguages = [CodeQL, Go, Java, JavaScript, JSON, JSX, PHP, Python, Ruby, TypeScript, TSX] + +emit :: FilePath -> Language -> IO () +emit path lang = do + let language = languageToText lang decls <- T.pack . pprint . fmap adjust <$> astDeclarationsIO (parserForLanguage lang) path - when (lang == Unknown) (die ("Couldn't determine language for " <> T.unpack language)) let programText = [trimming| @@ -145,3 +152,13 @@ $decls hClose tf callProcess "ormolu" ["--mode", "inplace", path] T.readFile path >>= T.putStrLn + +main :: IO () +main = do + Config language path _root <- Opt.getRecord "generate-ast" + if language == "all" + then traverse_ (emit path) validLanguages + else do + let lang = textToLanguage language + when (lang == Unknown) (die ("Couldn't determine language for " <> T.unpack language)) + emit path lang From 186c987aa21627009d9b2835b0186a3f890736ae Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 16 Sep 2020 18:25:24 -0400 Subject: [PATCH 23/30] Regenerate everything. --- WORKSPACE | 2 +- semantic-ast/BUILD.bazel | 22 +- semantic-ast/app/Main.hs | 50 +- semantic-codeql/src/Language/CodeQL/AST.hs | 6090 ++++++++++++- semantic-go/src/Language/Go/AST.hs | 4893 +++++++++- semantic-java/src/Language/Java/AST.hs | 6415 ++++++++++++- semantic-php/src/Language/PHP/AST.hs | 6251 ++++++++++++- semantic-python/src/Language/Python/AST.hs | 4837 +++++++++- semantic-ruby/src/Language/Ruby/AST.hs | 5640 +++++++++++- semantic-tsx/src/Language/TSX/AST.hs | 7990 +++++++++++++++- .../src/Language/TypeScript/AST.hs | 8026 ++++++++++++++++- 11 files changed, 50099 insertions(+), 117 deletions(-) diff --git a/WORKSPACE b/WORKSPACE index a40450907..a1432bef2 100644 --- a/WORKSPACE +++ b/WORKSPACE @@ -38,7 +38,7 @@ load( # Download a GHC binary distribution from haskell.org and register it as a toolchain. rules_haskell_toolchains( locale = "en_US.UTF-8", - version = "8.10.1", + version = "8.10.2", ) # Enable GHC persistent worker mode, if that's your bag. diff --git a/semantic-ast/BUILD.bazel b/semantic-ast/BUILD.bazel index 6fa88e3ae..daa7dfdfa 100644 --- a/semantic-ast/BUILD.bazel +++ b/semantic-ast/BUILD.bazel @@ -48,7 +48,20 @@ haskell_library( ], ) -all_ts_deps = ["@tree-sitter-{name}//:tree-sitter-{name}".format(name = name) for name in [ +all_ts_deps = ["@tree-sitter-{name}".format(name = name) for name in [ + "go", + "java", + "json", + "php", + "python", + "ql", + "ruby", + "rust", + "tsx", + "typescript", +]] + +all_file_deps = ["@tree-sitter-{name}//:src/node-types.json".format(name = name) for name in [ "go", "java", "json", @@ -65,20 +78,21 @@ haskell_binary( name = "generate-ast", srcs = glob(["app/**/*.hs"]), compiler_flags = GHC_FLAGS + EXECUTABLE_FLAGS + ["-XStrictData"], + data = all_file_deps, deps = [ ":semantic-ast", - "//semantic-source", "//:base", "//:filepath", "//:process", "//:template-haskell", "//:text", + "//semantic-source", + "@stackage//:bazel-runfiles", "@stackage//:directory", "@stackage//:generic-lens", "@stackage//:lens", - "@stackage//:tree-sitter", - "@stackage//:bazel-runfiles", "@stackage//:neat-interpolation", "@stackage//:optparse-generic", + "@stackage//:tree-sitter", ] + all_ts_deps, ) diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index 77ba92b2e..6318088dc 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -13,6 +13,7 @@ module Main (main) where import AST.GenerateSyntax +import qualified Bazel.Runfiles as Bazel import Control.Lens (Traversal', mapped, (%~)) import Control.Monad import Data.Foldable @@ -28,10 +29,12 @@ import Language.Haskell.TH.Lens import NeatInterpolation import qualified Options.Generic as Opt import Source.Language +import System.FilePath import System.Directory import System.Exit import System.IO import System.Process +import Text.Printf import qualified TreeSitter.Go as Go (tree_sitter_go) import qualified TreeSitter.JSON as JSON (tree_sitter_json) import qualified TreeSitter.Java as Java (tree_sitter_java) @@ -44,7 +47,7 @@ import qualified TreeSitter.TSX as TSX (tree_sitter_tsx) import qualified TreeSitter.TypeScript as TypeScript (tree_sitter_typescript) -- As a special case, you can pass -data Config = Config {language :: Text, path :: FilePath, rootdir :: Maybe FilePath} +data Config = Config {language :: Text, rootdir :: FilePath} deriving stock (Show, Generic) deriving anyclass (Opt.ParseRecord) @@ -65,6 +68,37 @@ adjust = _InstanceD . typed . mapped %~ (values %~ truncate) . (functions %~ tru truncate :: Name -> Name truncate = mkName . nameBase +pathForLanguage :: Bazel.Runfiles -> Language -> FilePath +pathForLanguage rf = + let loc = Bazel.rlocation rf + in \case + CodeQL -> loc "tree-sitter-ql/vendor/tree-sitter-ql/src/node-types.json" + Go -> loc "tree-sitter-go/vendor/tree-sitter-go/src/node-types.json" + PHP -> loc "tree-sitter-php/vendor/tree-sitter-php/src/node-types.json" + Python -> loc "tree-sitter-python/vendor/tree-sitter-python/src/node-types.json" + Ruby -> loc "tree-sitter-ruby/vendor/tree-sitter-ruby/src/node-types.json" + TypeScript -> loc "tree-sitter-typescript/vendor/tree-sitter-typescript/typescript/src/node-types.json" + TSX -> loc "tree-sitter-tsx/vendor/tree-sitter-typescript/tsx/src/node-types.json" + JavaScript -> loc "tree-sitter-typescript/vendor/tree-sitter-typescript/typescript/src/node-types.json" + JSX -> loc "tree-sitter-typescript/vendor/tree-sitter-typescript/src/tsx/node-types.json" + Java -> loc "tree-sitter-java/vendor/tree-sitter-java/src/node-types.json" + other -> error ("Couldn't find path for " <> show other) + +targetForLanguage :: Language -> FilePath +targetForLanguage x = + let go lc = printf "semantic-%s/src/Language/%s/AST.hs" (lc :: String) (show x) + in case x of + CodeQL -> go "codeql" + Go -> go "go" + PHP -> go "php" + Python -> go "python" + Ruby -> go "ruby" + TypeScript -> go "typescript" + TSX -> go "tsx" + JavaScript -> go "javascript" + Java -> go "java" + other -> error ("Couldn't find path for " <> show other) + parserForLanguage :: Language -> Ptr TreeSitter.Language.Language parserForLanguage = \case Unknown -> error "Unknown language encountered" @@ -87,11 +121,13 @@ parserForLanguage = \case -- CodeQL -> r validLanguages :: [Language] -validLanguages = [CodeQL, Go, Java, JavaScript, JSON, JSX, PHP, Python, Ruby, TypeScript, TSX] +validLanguages = [CodeQL, Go, Java, PHP, Python, Ruby, TypeScript, TSX] emit :: FilePath -> Language -> IO () -emit path lang = do +emit root lang = do + rf <- Bazel.create let language = languageToText lang + let path = pathForLanguage rf lang decls <- T.pack . pprint . fmap adjust <$> astDeclarationsIO (parserForLanguage lang) path let programText = @@ -151,14 +187,14 @@ $decls T.hPutStrLn tf programText hClose tf callProcess "ormolu" ["--mode", "inplace", path] - T.readFile path >>= T.putStrLn + callProcess "cp" [path, root targetForLanguage lang] main :: IO () main = do - Config language path _root <- Opt.getRecord "generate-ast" + Config language root <- Opt.getRecord "generate-ast" if language == "all" - then traverse_ (emit path) validLanguages + then traverse_ (emit root) validLanguages else do let lang = textToLanguage language when (lang == Unknown) (die ("Couldn't determine language for " <> T.unpack language)) - emit path lang + emit root lang diff --git a/semantic-codeql/src/Language/CodeQL/AST.hs b/semantic-codeql/src/Language/CodeQL/AST.hs index c4d2b61df..82e3d1f9f 100644 --- a/semantic-codeql/src/Language/CodeQL/AST.hs +++ b/semantic-codeql/src/Language/CodeQL/AST.hs @@ -1,3 +1,4 @@ +-- Language definition for CodeQL, generated by ast-generate. Do not edit! {-# LANGUAGE CPP #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveAnyClass #-} @@ -14,21 +15,6082 @@ {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeApplications #-} {-# LANGUAGE TypeOperators #-} +{-# LANGUAGE UndecidableInstances #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Language.CodeQL.AST -( module Language.CodeQL.AST -, CodeQL.getTestCorpusDir -) where +module Language.CodeQL.AST (module Language.CodeQL.AST, getTestCorpusDir) where -import AST.GenerateSyntax -import AST.Token() -import Language.Haskell.TH.Syntax (runIO) -import Prelude hiding (Bool, Eq, Float, Integer, String) -import qualified TreeSitter.QL as CodeQL (getNodeTypesPath, getTestCorpusDir, tree_sitter_ql) +import qualified AST.Parse +import qualified AST.Token +import qualified AST.Traversable1.Class +import qualified AST.Unmarshal +import qualified Data.Foldable +import qualified Data.List as Data.OldList +import qualified Data.Maybe as GHC.Maybe +import qualified Data.Text.Internal +import qualified Data.Traversable +import qualified GHC.Base +import qualified GHC.Generics +import qualified GHC.Records +import qualified GHC.Show +import TreeSitter.CodeQL (getTestCorpusDir) +import qualified TreeSitter.Node +import qualified Prelude as GHC.Classes -#ifdef NODE_TYPES_PATH -astDeclarationsForLanguage CodeQL.tree_sitter_ql NODE_TYPES_PATH -#else -runIO CodeQL.getNodeTypesPath >>= astDeclarationsForLanguage CodeQL.tree_sitter_ql -#endif +debugSymbolNames :: [GHC.Base.String] +debugSymbolNames = debugSymbolNames_0 + +debugSymbolNames_0 :: [GHC.Base.String] +debugSymbolNames_0 = + [ "end", + "_lower_id", + "_module", + "_{", + "_}", + "_;", + "_(", + "_,", + "_)", + "_or", + "_from", + "_where", + "_select", + "_if", + "_then", + "_else", + "_and", + "_implies", + "_|", + "_.", + "_[", + "_]", + "_..", + "_order", + "_by", + "qldoc", + "_::", + "_float", + "_int", + "_string", + "_upper_id", + "_at_lower_id", + "integer", + "float", + "string", + "line_comment", + "block_comment", + "any", + "as", + "asc", + "avg", + "boolean", + "class", + "newtype", + "count", + "date", + "desc", + "exists", + "extends", + "false", + "forall", + "forex", + "import", + "in", + "instanceof", + "max", + "min", + "not", + "none", + "predicate", + "rank", + "result", + "strictcount", + "strictsum", + "strictconcat", + "concat", + "sum", + "super", + "this", + "true", + "lt", + "le", + "eq", + "gt", + "ge", + "underscore", + "minus", + "ne", + "slash", + "star", + "mod", + "plus", + "ql", + "module", + "moduleMember", + "imprt", + "moduleAliasBody", + "predicateAliasBody", + "typeAliasBody", + "classlessPredicate", + "datatype", + "datatypeBranches", + "datatypeBranch", + "select", + "dataclass", + "classMember", + "charpred", + "memberPredicate", + "field", + "_optbody", + "empty", + "body", + "higherOrderTerm", + "special_call", + "prefix_cast", + "unary_expr", + "mul_expr", + "add_expr", + "in_expr", + "comp_term", + "instance_of", + "negation", + "if_term", + "conjunction", + "disjunction", + "implication", + "quantified", + "specialId", + "quantifier", + "_call_arg", + "qualifiedRhs", + "classless_predicate_call", + "qualified_expr", + "super_ref", + "full_aggregate_body", + "expr_aggregate_body", + "aggregate", + "range", + "par_expr", + "_exprOrTerm", + "_primary", + "literal", + "bool", + "variable", + "compop", + "unop", + "mulop", + "addop", + "closure", + "direction", + "varDecl", + "asExprs", + "asExpr", + "orderBys", + "orderBy", + "literalId", + "annotation", + "annotName", + "annotArg", + "moduleName", + "qualModuleExpr", + "importModuleExpr", + "moduleExpr", + "typeLiteral", + "simpleId", + "className", + "dbtype", + "returnType", + "typeExpr", + "predicateName", + "aritylessPredicateExpr", + "predicateExpr", + "varName", + "aggId", + "_ql_repeat1", + "_moduleMember_repeat1", + "_classlessPredicate_repeat1", + "_datatypeBranches_repeat1", + "_dataclass_repeat1", + "_dataclass_repeat2", + "_higherOrderTerm_repeat1", + "_higherOrderTerm_repeat2", + "_aggregate_repeat1", + "_asExprs_repeat1", + "_orderBys_repeat1", + "_annotation_repeat1", + "_qualModuleExpr_repeat1", + "_importModuleExpr_repeat1" + ] + +data AddExpr a = AddExpr + { ann :: a, + left :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)), + right :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)), + extraChildren :: (AST.Parse.Err (Addop a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1. + AST.Traversable1.Class.Traversable1 a_1 + ) + +instance AST.Unmarshal.SymbolMatching AddExpr where + matchedSymbols _ = [107] + showFailure _ node_2 = + "expected " + GHC.Base.<> ( "add_expr" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_2 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_2) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_3 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_4 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_5 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_6 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_3 + c1_4 = TreeSitter.Node.nodeStartPoint node_2 + TreeSitter.Node.TSPoint + r2_5 + c2_6 = TreeSitter.Node.nodeEndPoint node_2 + +deriving instance GHC.Classes.Eq a_7 => GHC.Classes.Eq (AddExpr a_7) + +deriving instance GHC.Classes.Ord a_8 => GHC.Classes.Ord (AddExpr a_8) + +deriving instance GHC.Show.Show a_9 => GHC.Show.Show (AddExpr a_9) + +instance AST.Unmarshal.Unmarshal AddExpr + +instance Data.Foldable.Foldable AddExpr where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AddExpr where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AddExpr where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Addop a = Addop + { ann :: a, + extraChildren :: (AST.Parse.Err ((Minus GHC.Generics.:+: Plus) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_10. + AST.Traversable1.Class.Traversable1 a_10 + ) + +instance AST.Unmarshal.SymbolMatching Addop where + matchedSymbols _ = [137] + showFailure _ node_11 = + "expected " + GHC.Base.<> ( "addop" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_11 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_11) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_12 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_13 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_14 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_15 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_12 + c1_13 = TreeSitter.Node.nodeStartPoint node_11 + TreeSitter.Node.TSPoint + r2_14 + c2_15 = TreeSitter.Node.nodeEndPoint node_11 + +deriving instance GHC.Classes.Eq a_16 => GHC.Classes.Eq (Addop a_16) + +deriving instance GHC.Classes.Ord a_17 => GHC.Classes.Ord (Addop a_17) + +deriving instance GHC.Show.Show a_18 => GHC.Show.Show (Addop a_18) + +instance AST.Unmarshal.Unmarshal Addop + +instance Data.Foldable.Foldable Addop where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Addop where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Addop where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AggId a = AggId + { ann :: a, + extraChildren :: (AST.Parse.Err ((Any GHC.Generics.:+: Avg GHC.Generics.:+: Concat GHC.Generics.:+: Count GHC.Generics.:+: Max GHC.Generics.:+: Min GHC.Generics.:+: Rank GHC.Generics.:+: Strictconcat GHC.Generics.:+: Strictcount GHC.Generics.:+: Strictsum GHC.Generics.:+: Sum) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_19. + AST.Traversable1.Class.Traversable1 a_19 + ) + +instance AST.Unmarshal.SymbolMatching AggId where + matchedSymbols _ = [163] + showFailure _ node_20 = + "expected " + GHC.Base.<> ( "aggId" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_20 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_20) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_21 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_22 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_23 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_24 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_21 + c1_22 = TreeSitter.Node.nodeStartPoint node_20 + TreeSitter.Node.TSPoint + r2_23 + c2_24 = TreeSitter.Node.nodeEndPoint node_20 + +deriving instance GHC.Classes.Eq a_25 => GHC.Classes.Eq (AggId a_25) + +deriving instance GHC.Classes.Ord a_26 => GHC.Classes.Ord (AggId a_26) + +deriving instance GHC.Show.Show a_27 => GHC.Show.Show (AggId a_27) + +instance AST.Unmarshal.Unmarshal AggId + +instance Data.Foldable.Foldable AggId where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AggId where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AggId where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Aggregate a = Aggregate + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((AddExpr GHC.Generics.:+: AggId GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: ExprAggregateBody GHC.Generics.:+: FullAggregateBody GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_28. + AST.Traversable1.Class.Traversable1 a_28 + ) + +instance AST.Unmarshal.SymbolMatching Aggregate where + matchedSymbols _ = [126] + showFailure _ node_29 = + "expected " + GHC.Base.<> ( "aggregate" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_29 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_29) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_30 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_31 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_32 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_33 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_30 + c1_31 = TreeSitter.Node.nodeStartPoint node_29 + TreeSitter.Node.TSPoint + r2_32 + c2_33 = TreeSitter.Node.nodeEndPoint node_29 + +deriving instance GHC.Classes.Eq a_34 => GHC.Classes.Eq (Aggregate a_34) + +deriving instance GHC.Classes.Ord a_35 => GHC.Classes.Ord (Aggregate a_35) + +deriving instance GHC.Show.Show a_36 => GHC.Show.Show (Aggregate a_36) + +instance AST.Unmarshal.Unmarshal Aggregate + +instance Data.Foldable.Foldable Aggregate where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Aggregate where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Aggregate where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AnnotArg a = AnnotArg + { ann :: a, + extraChildren :: (AST.Parse.Err ((Result GHC.Generics.:+: SimpleId GHC.Generics.:+: This) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_37. + AST.Traversable1.Class.Traversable1 a_37 + ) + +instance AST.Unmarshal.SymbolMatching AnnotArg where + matchedSymbols _ = [148] + showFailure _ node_38 = + "expected " + GHC.Base.<> ( "annotArg" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_38 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_38) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_39 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_40 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_41 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_42 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_39 + c1_40 = TreeSitter.Node.nodeStartPoint node_38 + TreeSitter.Node.TSPoint + r2_41 + c2_42 = TreeSitter.Node.nodeEndPoint node_38 + +deriving instance GHC.Classes.Eq a_43 => GHC.Classes.Eq (AnnotArg a_43) + +deriving instance GHC.Classes.Ord a_44 => GHC.Classes.Ord (AnnotArg a_44) + +deriving instance GHC.Show.Show a_45 => GHC.Show.Show (AnnotArg a_45) + +instance AST.Unmarshal.Unmarshal AnnotArg + +instance Data.Foldable.Foldable AnnotArg where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AnnotArg where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AnnotArg where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AnnotName a = AnnotName {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_46. + AST.Traversable1.Class.Traversable1 a_46 + ) + +instance AST.Unmarshal.SymbolMatching AnnotName where + matchedSymbols _ = [147] + showFailure _ node_47 = + "expected " + GHC.Base.<> ( "annotName" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_47 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_47) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_48 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_49 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_50 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_51 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_48 + c1_49 = TreeSitter.Node.nodeStartPoint node_47 + TreeSitter.Node.TSPoint + r2_50 + c2_51 = TreeSitter.Node.nodeEndPoint node_47 + +deriving instance GHC.Classes.Eq a_52 => GHC.Classes.Eq (AnnotName a_52) + +deriving instance GHC.Classes.Ord a_53 => GHC.Classes.Ord (AnnotName a_53) + +deriving instance GHC.Show.Show a_54 => GHC.Show.Show (AnnotName a_54) + +instance AST.Unmarshal.Unmarshal AnnotName + +instance Data.Foldable.Foldable AnnotName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AnnotName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AnnotName where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Annotation a = Annotation + { ann :: a, + args :: ([AST.Parse.Err ((AnonymousComma GHC.Generics.:+: AnnotArg) a)]), + name :: (AST.Parse.Err (AnnotName a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_55. + AST.Traversable1.Class.Traversable1 a_55 + ) + +instance AST.Unmarshal.SymbolMatching Annotation where + matchedSymbols _ = [146] + showFailure _ node_56 = + "expected " + GHC.Base.<> ( "annotation" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_56 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_56) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_57 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_58 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_59 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_60 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_57 + c1_58 = TreeSitter.Node.nodeStartPoint node_56 + TreeSitter.Node.TSPoint + r2_59 + c2_60 = TreeSitter.Node.nodeEndPoint node_56 + +deriving instance GHC.Classes.Eq a_61 => GHC.Classes.Eq (Annotation a_61) + +deriving instance GHC.Classes.Ord a_62 => GHC.Classes.Ord (Annotation a_62) + +deriving instance GHC.Show.Show a_63 => GHC.Show.Show (Annotation a_63) + +instance AST.Unmarshal.Unmarshal Annotation + +instance Data.Foldable.Foldable Annotation where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Annotation where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Annotation where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AritylessPredicateExpr a = AritylessPredicateExpr + { ann :: a, + name :: (AST.Parse.Err (LiteralId a)), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ModuleExpr a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_64. + AST.Traversable1.Class.Traversable1 a_64 + ) + +instance AST.Unmarshal.SymbolMatching AritylessPredicateExpr where + matchedSymbols _ = [160] + showFailure _ node_65 = + "expected " + GHC.Base.<> ( "aritylessPredicateExpr" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_65 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_65) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_66 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_67 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_68 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_69 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_66 + c1_67 = TreeSitter.Node.nodeStartPoint node_65 + TreeSitter.Node.TSPoint + r2_68 + c2_69 = TreeSitter.Node.nodeEndPoint node_65 + +deriving instance GHC.Classes.Eq a_70 => GHC.Classes.Eq (AritylessPredicateExpr a_70) + +deriving instance GHC.Classes.Ord a_71 => GHC.Classes.Ord (AritylessPredicateExpr a_71) + +deriving instance GHC.Show.Show a_72 => GHC.Show.Show (AritylessPredicateExpr a_72) + +instance AST.Unmarshal.Unmarshal AritylessPredicateExpr + +instance Data.Foldable.Foldable AritylessPredicateExpr where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AritylessPredicateExpr where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AritylessPredicateExpr where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AsExpr a = AsExpr + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: As GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: VarName GHC.Generics.:+: Variable) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_73. + AST.Traversable1.Class.Traversable1 a_73 + ) + +instance AST.Unmarshal.SymbolMatching AsExpr where + matchedSymbols _ = [142] + showFailure _ node_74 = + "expected " + GHC.Base.<> ( "asExpr" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_74 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_74) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_75 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_76 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_77 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_78 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_75 + c1_76 = TreeSitter.Node.nodeStartPoint node_74 + TreeSitter.Node.TSPoint + r2_77 + c2_78 = TreeSitter.Node.nodeEndPoint node_74 + +deriving instance GHC.Classes.Eq a_79 => GHC.Classes.Eq (AsExpr a_79) + +deriving instance GHC.Classes.Ord a_80 => GHC.Classes.Ord (AsExpr a_80) + +deriving instance GHC.Show.Show a_81 => GHC.Show.Show (AsExpr a_81) + +instance AST.Unmarshal.Unmarshal AsExpr + +instance Data.Foldable.Foldable AsExpr where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AsExpr where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AsExpr where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AsExprs a = AsExprs + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (AsExpr a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_82. + AST.Traversable1.Class.Traversable1 a_82 + ) + +instance AST.Unmarshal.SymbolMatching AsExprs where + matchedSymbols _ = [141] + showFailure _ node_83 = + "expected " + GHC.Base.<> ( "asExprs" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_83 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_83) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_84 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_85 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_86 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_87 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_84 + c1_85 = TreeSitter.Node.nodeStartPoint node_83 + TreeSitter.Node.TSPoint + r2_86 + c2_87 = TreeSitter.Node.nodeEndPoint node_83 + +deriving instance GHC.Classes.Eq a_88 => GHC.Classes.Eq (AsExprs a_88) + +deriving instance GHC.Classes.Ord a_89 => GHC.Classes.Ord (AsExprs a_89) + +deriving instance GHC.Show.Show a_90 => GHC.Show.Show (AsExprs a_90) + +instance AST.Unmarshal.Unmarshal AsExprs + +instance Data.Foldable.Foldable AsExprs where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AsExprs where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AsExprs where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Body a = Body + { ann :: a, + extraChildren :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_91. + AST.Traversable1.Class.Traversable1 a_91 + ) + +instance AST.Unmarshal.SymbolMatching Body where + matchedSymbols _ = [101] + showFailure _ node_92 = + "expected " + GHC.Base.<> ( "body" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_92 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_92) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_93 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_94 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_95 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_96 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_93 + c1_94 = TreeSitter.Node.nodeStartPoint node_92 + TreeSitter.Node.TSPoint + r2_95 + c2_96 = TreeSitter.Node.nodeEndPoint node_92 + +deriving instance GHC.Classes.Eq a_97 => GHC.Classes.Eq (Body a_97) + +deriving instance GHC.Classes.Ord a_98 => GHC.Classes.Ord (Body a_98) + +deriving instance GHC.Show.Show a_99 => GHC.Show.Show (Body a_99) + +instance AST.Unmarshal.Unmarshal Body + +instance Data.Foldable.Foldable Body where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Body where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Body where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Bool a = Bool + { ann :: a, + extraChildren :: (AST.Parse.Err ((False GHC.Generics.:+: True) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_100. + AST.Traversable1.Class.Traversable1 a_100 + ) + +instance AST.Unmarshal.SymbolMatching Bool where + matchedSymbols _ = [132] + showFailure _ node_101 = + "expected " + GHC.Base.<> ( "bool" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_101 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_101) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_102 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_103 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_104 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_105 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_102 + c1_103 = TreeSitter.Node.nodeStartPoint node_101 + TreeSitter.Node.TSPoint + r2_104 + c2_105 = TreeSitter.Node.nodeEndPoint node_101 + +deriving instance GHC.Classes.Eq a_106 => GHC.Classes.Eq (Bool a_106) + +deriving instance GHC.Classes.Ord a_107 => GHC.Classes.Ord (Bool a_107) + +deriving instance GHC.Show.Show a_108 => GHC.Show.Show (Bool a_108) + +instance AST.Unmarshal.Unmarshal Bool + +instance Data.Foldable.Foldable Bool where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Bool where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Bool where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Charpred a = Charpred + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClassName GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_109. + AST.Traversable1.Class.Traversable1 a_109 + ) + +instance AST.Unmarshal.SymbolMatching Charpred where + matchedSymbols _ = [96] + showFailure _ node_110 = + "expected " + GHC.Base.<> ( "charpred" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_110 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_110) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_111 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_112 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_113 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_114 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_111 + c1_112 = TreeSitter.Node.nodeStartPoint node_110 + TreeSitter.Node.TSPoint + r2_113 + c2_114 = TreeSitter.Node.nodeEndPoint node_110 + +deriving instance GHC.Classes.Eq a_115 => GHC.Classes.Eq (Charpred a_115) + +deriving instance GHC.Classes.Ord a_116 => GHC.Classes.Ord (Charpred a_116) + +deriving instance GHC.Show.Show a_117 => GHC.Show.Show (Charpred a_117) + +instance AST.Unmarshal.Unmarshal Charpred + +instance Data.Foldable.Foldable Charpred where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Charpred where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Charpred where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClassMember a = ClassMember + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Annotation GHC.Generics.:+: Charpred GHC.Generics.:+: Field GHC.Generics.:+: MemberPredicate GHC.Generics.:+: Qldoc) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_118. + AST.Traversable1.Class.Traversable1 a_118 + ) + +instance AST.Unmarshal.SymbolMatching ClassMember where + matchedSymbols _ = [95] + showFailure _ node_119 = + "expected " + GHC.Base.<> ( "classMember" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_119 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_119) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_120 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_121 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_122 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_123 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_120 + c1_121 = TreeSitter.Node.nodeStartPoint node_119 + TreeSitter.Node.TSPoint + r2_122 + c2_123 = TreeSitter.Node.nodeEndPoint node_119 + +deriving instance GHC.Classes.Eq a_124 => GHC.Classes.Eq (ClassMember a_124) + +deriving instance GHC.Classes.Ord a_125 => GHC.Classes.Ord (ClassMember a_125) + +deriving instance GHC.Show.Show a_126 => GHC.Show.Show (ClassMember a_126) + +instance AST.Unmarshal.Unmarshal ClassMember + +instance Data.Foldable.Foldable ClassMember where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassMember where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassMember where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClassName a = ClassName {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_127. + AST.Traversable1.Class.Traversable1 a_127 + ) + +instance AST.Unmarshal.SymbolMatching ClassName where + matchedSymbols _ = [155] + showFailure _ node_128 = + "expected " + GHC.Base.<> ( "className" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_128 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_128) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_129 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_130 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_131 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_132 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_129 + c1_130 = TreeSitter.Node.nodeStartPoint node_128 + TreeSitter.Node.TSPoint + r2_131 + c2_132 = TreeSitter.Node.nodeEndPoint node_128 + +deriving instance GHC.Classes.Eq a_133 => GHC.Classes.Eq (ClassName a_133) + +deriving instance GHC.Classes.Ord a_134 => GHC.Classes.Ord (ClassName a_134) + +deriving instance GHC.Show.Show a_135 => GHC.Show.Show (ClassName a_135) + +instance AST.Unmarshal.Unmarshal ClassName + +instance Data.Foldable.Foldable ClassName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassName where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClasslessPredicate a = ClasslessPredicate + { ann :: a, + name :: (AST.Parse.Err (PredicateName a)), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Body GHC.Generics.:+: Empty GHC.Generics.:+: HigherOrderTerm GHC.Generics.:+: PredicateAliasBody GHC.Generics.:+: ReturnType GHC.Generics.:+: VarDecl) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_136. + AST.Traversable1.Class.Traversable1 a_136 + ) + +instance AST.Unmarshal.SymbolMatching ClasslessPredicate where + matchedSymbols _ = [89] + showFailure _ node_137 = + "expected " + GHC.Base.<> ( "classlessPredicate" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_137 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_137) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_138 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_139 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_140 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_141 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_138 + c1_139 = TreeSitter.Node.nodeStartPoint node_137 + TreeSitter.Node.TSPoint + r2_140 + c2_141 = TreeSitter.Node.nodeEndPoint node_137 + +deriving instance GHC.Classes.Eq a_142 => GHC.Classes.Eq (ClasslessPredicate a_142) + +deriving instance GHC.Classes.Ord a_143 => GHC.Classes.Ord (ClasslessPredicate a_143) + +deriving instance GHC.Show.Show a_144 => GHC.Show.Show (ClasslessPredicate a_144) + +instance AST.Unmarshal.Unmarshal ClasslessPredicate + +instance Data.Foldable.Foldable ClasslessPredicate where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClasslessPredicate where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClasslessPredicate where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClasslessPredicateCall a = ClasslessPredicateCall + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: AritylessPredicateExpr GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: Closure GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Underscore GHC.Generics.:+: Variable) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_145. + AST.Traversable1.Class.Traversable1 a_145 + ) + +instance AST.Unmarshal.SymbolMatching ClasslessPredicateCall where + matchedSymbols _ = [121] + showFailure _ node_146 = + "expected " + GHC.Base.<> ( "classless_predicate_call" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_146 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_146) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_147 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_148 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_149 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_150 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_147 + c1_148 = TreeSitter.Node.nodeStartPoint node_146 + TreeSitter.Node.TSPoint + r2_149 + c2_150 = TreeSitter.Node.nodeEndPoint node_146 + +deriving instance GHC.Classes.Eq a_151 => GHC.Classes.Eq (ClasslessPredicateCall a_151) + +deriving instance GHC.Classes.Ord a_152 => GHC.Classes.Ord (ClasslessPredicateCall a_152) + +deriving instance GHC.Show.Show a_153 => GHC.Show.Show (ClasslessPredicateCall a_153) + +instance AST.Unmarshal.Unmarshal ClasslessPredicateCall + +instance Data.Foldable.Foldable ClasslessPredicateCall where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClasslessPredicateCall where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClasslessPredicateCall where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Closure a = Closure + { ann :: a, + extraChildren :: (AST.Parse.Err ((Plus GHC.Generics.:+: Star) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_154. + AST.Traversable1.Class.Traversable1 a_154 + ) + +instance AST.Unmarshal.SymbolMatching Closure where + matchedSymbols _ = [138] + showFailure _ node_155 = + "expected " + GHC.Base.<> ( "closure" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_155 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_155) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_156 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_157 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_158 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_159 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_156 + c1_157 = TreeSitter.Node.nodeStartPoint node_155 + TreeSitter.Node.TSPoint + r2_158 + c2_159 = TreeSitter.Node.nodeEndPoint node_155 + +deriving instance GHC.Classes.Eq a_160 => GHC.Classes.Eq (Closure a_160) + +deriving instance GHC.Classes.Ord a_161 => GHC.Classes.Ord (Closure a_161) + +deriving instance GHC.Show.Show a_162 => GHC.Show.Show (Closure a_162) + +instance AST.Unmarshal.Unmarshal Closure + +instance Data.Foldable.Foldable Closure where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Closure where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Closure where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CompTerm a = CompTerm + { ann :: a, + left :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)), + right :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)), + extraChildren :: (AST.Parse.Err (Compop a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_163. + AST.Traversable1.Class.Traversable1 a_163 + ) + +instance AST.Unmarshal.SymbolMatching CompTerm where + matchedSymbols _ = [109] + showFailure _ node_164 = + "expected " + GHC.Base.<> ( "comp_term" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_164 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_164) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_165 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_166 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_167 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_168 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_165 + c1_166 = TreeSitter.Node.nodeStartPoint node_164 + TreeSitter.Node.TSPoint + r2_167 + c2_168 = TreeSitter.Node.nodeEndPoint node_164 + +deriving instance GHC.Classes.Eq a_169 => GHC.Classes.Eq (CompTerm a_169) + +deriving instance GHC.Classes.Ord a_170 => GHC.Classes.Ord (CompTerm a_170) + +deriving instance GHC.Show.Show a_171 => GHC.Show.Show (CompTerm a_171) + +instance AST.Unmarshal.Unmarshal CompTerm + +instance Data.Foldable.Foldable CompTerm where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CompTerm where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CompTerm where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Compop a = Compop + { ann :: a, + extraChildren :: (AST.Parse.Err ((Eq GHC.Generics.:+: Ge GHC.Generics.:+: Gt GHC.Generics.:+: Le GHC.Generics.:+: Lt GHC.Generics.:+: Ne) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_172. + AST.Traversable1.Class.Traversable1 a_172 + ) + +instance AST.Unmarshal.SymbolMatching Compop where + matchedSymbols _ = [134] + showFailure _ node_173 = + "expected " + GHC.Base.<> ( "compop" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_173 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_173) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_174 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_175 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_176 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_177 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_174 + c1_175 = TreeSitter.Node.nodeStartPoint node_173 + TreeSitter.Node.TSPoint + r2_176 + c2_177 = TreeSitter.Node.nodeEndPoint node_173 + +deriving instance GHC.Classes.Eq a_178 => GHC.Classes.Eq (Compop a_178) + +deriving instance GHC.Classes.Ord a_179 => GHC.Classes.Ord (Compop a_179) + +deriving instance GHC.Show.Show a_180 => GHC.Show.Show (Compop a_180) + +instance AST.Unmarshal.Unmarshal Compop + +instance Data.Foldable.Foldable Compop where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Compop where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Compop where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Conjunction a = Conjunction + { ann :: a, + left :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)), + right :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_181. + AST.Traversable1.Class.Traversable1 a_181 + ) + +instance AST.Unmarshal.SymbolMatching Conjunction where + matchedSymbols _ = [113] + showFailure _ node_182 = + "expected " + GHC.Base.<> ( "conjunction" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_182 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_182) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_183 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_184 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_185 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_186 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_183 + c1_184 = TreeSitter.Node.nodeStartPoint node_182 + TreeSitter.Node.TSPoint + r2_185 + c2_186 = TreeSitter.Node.nodeEndPoint node_182 + +deriving instance GHC.Classes.Eq a_187 => GHC.Classes.Eq (Conjunction a_187) + +deriving instance GHC.Classes.Ord a_188 => GHC.Classes.Ord (Conjunction a_188) + +deriving instance GHC.Show.Show a_189 => GHC.Show.Show (Conjunction a_189) + +instance AST.Unmarshal.Unmarshal Conjunction + +instance Data.Foldable.Foldable Conjunction where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Conjunction where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Conjunction where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Dataclass a = Dataclass + { ann :: a, + name :: (AST.Parse.Err (ClassName a)), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Class GHC.Generics.:+: ClassMember GHC.Generics.:+: Extends GHC.Generics.:+: TypeAliasBody GHC.Generics.:+: TypeExpr) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_190. + AST.Traversable1.Class.Traversable1 a_190 + ) + +instance AST.Unmarshal.SymbolMatching Dataclass where + matchedSymbols _ = [94] + showFailure _ node_191 = + "expected " + GHC.Base.<> ( "dataclass" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_191 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_191) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_192 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_193 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_194 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_195 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_192 + c1_193 = TreeSitter.Node.nodeStartPoint node_191 + TreeSitter.Node.TSPoint + r2_194 + c2_195 = TreeSitter.Node.nodeEndPoint node_191 + +deriving instance GHC.Classes.Eq a_196 => GHC.Classes.Eq (Dataclass a_196) + +deriving instance GHC.Classes.Ord a_197 => GHC.Classes.Ord (Dataclass a_197) + +deriving instance GHC.Show.Show a_198 => GHC.Show.Show (Dataclass a_198) + +instance AST.Unmarshal.Unmarshal Dataclass + +instance Data.Foldable.Foldable Dataclass where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Dataclass where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Dataclass where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Datatype a = Datatype + { ann :: a, + name :: (AST.Parse.Err (ClassName a)), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((DatatypeBranches GHC.Generics.:+: Eq GHC.Generics.:+: Newtype) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_199. + AST.Traversable1.Class.Traversable1 a_199 + ) + +instance AST.Unmarshal.SymbolMatching Datatype where + matchedSymbols _ = [90] + showFailure _ node_200 = + "expected " + GHC.Base.<> ( "datatype" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_200 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_200) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_201 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_202 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_203 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_204 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_201 + c1_202 = TreeSitter.Node.nodeStartPoint node_200 + TreeSitter.Node.TSPoint + r2_203 + c2_204 = TreeSitter.Node.nodeEndPoint node_200 + +deriving instance GHC.Classes.Eq a_205 => GHC.Classes.Eq (Datatype a_205) + +deriving instance GHC.Classes.Ord a_206 => GHC.Classes.Ord (Datatype a_206) + +deriving instance GHC.Show.Show a_207 => GHC.Show.Show (Datatype a_207) + +instance AST.Unmarshal.Unmarshal Datatype + +instance Data.Foldable.Foldable Datatype where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Datatype where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Datatype where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DatatypeBranch a = DatatypeBranch + { ann :: a, + name :: (AST.Parse.Err (ClassName a)), + extraChildren :: ([AST.Parse.Err ((Annotation GHC.Generics.:+: Body GHC.Generics.:+: Qldoc GHC.Generics.:+: VarDecl) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_208. + AST.Traversable1.Class.Traversable1 a_208 + ) + +instance AST.Unmarshal.SymbolMatching DatatypeBranch where + matchedSymbols _ = [92] + showFailure _ node_209 = + "expected " + GHC.Base.<> ( "datatypeBranch" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_209 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_209) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_210 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_211 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_212 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_213 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_210 + c1_211 = TreeSitter.Node.nodeStartPoint node_209 + TreeSitter.Node.TSPoint + r2_212 + c2_213 = TreeSitter.Node.nodeEndPoint node_209 + +deriving instance GHC.Classes.Eq a_214 => GHC.Classes.Eq (DatatypeBranch a_214) + +deriving instance GHC.Classes.Ord a_215 => GHC.Classes.Ord (DatatypeBranch a_215) + +deriving instance GHC.Show.Show a_216 => GHC.Show.Show (DatatypeBranch a_216) + +instance AST.Unmarshal.Unmarshal DatatypeBranch + +instance Data.Foldable.Foldable DatatypeBranch where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DatatypeBranch where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DatatypeBranch where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DatatypeBranches a = DatatypeBranches + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (DatatypeBranch a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_217. + AST.Traversable1.Class.Traversable1 a_217 + ) + +instance AST.Unmarshal.SymbolMatching DatatypeBranches where + matchedSymbols _ = [91] + showFailure _ node_218 = + "expected " + GHC.Base.<> ( "datatypeBranches" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_218 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_218) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_219 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_220 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_221 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_222 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_219 + c1_220 = TreeSitter.Node.nodeStartPoint node_218 + TreeSitter.Node.TSPoint + r2_221 + c2_222 = TreeSitter.Node.nodeEndPoint node_218 + +deriving instance GHC.Classes.Eq a_223 => GHC.Classes.Eq (DatatypeBranches a_223) + +deriving instance GHC.Classes.Ord a_224 => GHC.Classes.Ord (DatatypeBranches a_224) + +deriving instance GHC.Show.Show a_225 => GHC.Show.Show (DatatypeBranches a_225) + +instance AST.Unmarshal.Unmarshal DatatypeBranches + +instance Data.Foldable.Foldable DatatypeBranches where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DatatypeBranches where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DatatypeBranches where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Dbtype a = Dbtype {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_226. + AST.Traversable1.Class.Traversable1 a_226 + ) + +instance AST.Unmarshal.SymbolMatching Dbtype where + matchedSymbols _ = [156] + showFailure _ node_227 = + "expected " + GHC.Base.<> ( "dbtype" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_227 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_227) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_228 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_229 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_230 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_231 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_228 + c1_229 = TreeSitter.Node.nodeStartPoint node_227 + TreeSitter.Node.TSPoint + r2_230 + c2_231 = TreeSitter.Node.nodeEndPoint node_227 + +deriving instance GHC.Classes.Eq a_232 => GHC.Classes.Eq (Dbtype a_232) + +deriving instance GHC.Classes.Ord a_233 => GHC.Classes.Ord (Dbtype a_233) + +deriving instance GHC.Show.Show a_234 => GHC.Show.Show (Dbtype a_234) + +instance AST.Unmarshal.Unmarshal Dbtype + +instance Data.Foldable.Foldable Dbtype where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Dbtype where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Dbtype where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Direction a = Direction + { ann :: a, + extraChildren :: (AST.Parse.Err ((Asc GHC.Generics.:+: Desc) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_235. + AST.Traversable1.Class.Traversable1 a_235 + ) + +instance AST.Unmarshal.SymbolMatching Direction where + matchedSymbols _ = [139] + showFailure _ node_236 = + "expected " + GHC.Base.<> ( "direction" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_236 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_236) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_237 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_238 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_239 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_240 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_237 + c1_238 = TreeSitter.Node.nodeStartPoint node_236 + TreeSitter.Node.TSPoint + r2_239 + c2_240 = TreeSitter.Node.nodeEndPoint node_236 + +deriving instance GHC.Classes.Eq a_241 => GHC.Classes.Eq (Direction a_241) + +deriving instance GHC.Classes.Ord a_242 => GHC.Classes.Ord (Direction a_242) + +deriving instance GHC.Show.Show a_243 => GHC.Show.Show (Direction a_243) + +instance AST.Unmarshal.Unmarshal Direction + +instance Data.Foldable.Foldable Direction where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Direction where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Direction where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Disjunction a = Disjunction + { ann :: a, + left :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)), + right :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_244. + AST.Traversable1.Class.Traversable1 a_244 + ) + +instance AST.Unmarshal.SymbolMatching Disjunction where + matchedSymbols _ = [114] + showFailure _ node_245 = + "expected " + GHC.Base.<> ( "disjunction" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_245 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_245) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_246 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_247 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_248 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_249 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_246 + c1_247 = TreeSitter.Node.nodeStartPoint node_245 + TreeSitter.Node.TSPoint + r2_248 + c2_249 = TreeSitter.Node.nodeEndPoint node_245 + +deriving instance GHC.Classes.Eq a_250 => GHC.Classes.Eq (Disjunction a_250) + +deriving instance GHC.Classes.Ord a_251 => GHC.Classes.Ord (Disjunction a_251) + +deriving instance GHC.Show.Show a_252 => GHC.Show.Show (Disjunction a_252) + +instance AST.Unmarshal.Unmarshal Disjunction + +instance Data.Foldable.Foldable Disjunction where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Disjunction where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Disjunction where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Empty a = Empty {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_253. + AST.Traversable1.Class.Traversable1 a_253 + ) + +instance AST.Unmarshal.SymbolMatching Empty where + matchedSymbols _ = [100] + showFailure _ node_254 = + "expected " + GHC.Base.<> ( "empty" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_254 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_254) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_255 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_256 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_257 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_258 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_255 + c1_256 = TreeSitter.Node.nodeStartPoint node_254 + TreeSitter.Node.TSPoint + r2_257 + c2_258 = TreeSitter.Node.nodeEndPoint node_254 + +deriving instance GHC.Classes.Eq a_259 => GHC.Classes.Eq (Empty a_259) + +deriving instance GHC.Classes.Ord a_260 => GHC.Classes.Ord (Empty a_260) + +deriving instance GHC.Show.Show a_261 => GHC.Show.Show (Empty a_261) + +instance AST.Unmarshal.Unmarshal Empty + +instance Data.Foldable.Foldable Empty where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Empty where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Empty where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExprAggregateBody a = ExprAggregateBody + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((AsExprs GHC.Generics.:+: OrderBys) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_262. + AST.Traversable1.Class.Traversable1 a_262 + ) + +instance AST.Unmarshal.SymbolMatching ExprAggregateBody where + matchedSymbols _ = [125] + showFailure _ node_263 = + "expected " + GHC.Base.<> ( "expr_aggregate_body" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_263 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_263) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_264 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_265 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_266 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_267 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_264 + c1_265 = TreeSitter.Node.nodeStartPoint node_263 + TreeSitter.Node.TSPoint + r2_266 + c2_267 = TreeSitter.Node.nodeEndPoint node_263 + +deriving instance GHC.Classes.Eq a_268 => GHC.Classes.Eq (ExprAggregateBody a_268) + +deriving instance GHC.Classes.Ord a_269 => GHC.Classes.Ord (ExprAggregateBody a_269) + +deriving instance GHC.Show.Show a_270 => GHC.Show.Show (ExprAggregateBody a_270) + +instance AST.Unmarshal.Unmarshal ExprAggregateBody + +instance Data.Foldable.Foldable ExprAggregateBody where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExprAggregateBody where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExprAggregateBody where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Field a = Field {ann :: a, extraChildren :: (AST.Parse.Err (VarDecl a))} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_271. + AST.Traversable1.Class.Traversable1 a_271 + ) + +instance AST.Unmarshal.SymbolMatching Field where + matchedSymbols _ = [98] + showFailure _ node_272 = + "expected " + GHC.Base.<> ( "field" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_272 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_272) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_273 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_274 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_275 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_276 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_273 + c1_274 = TreeSitter.Node.nodeStartPoint node_272 + TreeSitter.Node.TSPoint + r2_275 + c2_276 = TreeSitter.Node.nodeEndPoint node_272 + +deriving instance GHC.Classes.Eq a_277 => GHC.Classes.Eq (Field a_277) + +deriving instance GHC.Classes.Ord a_278 => GHC.Classes.Ord (Field a_278) + +deriving instance GHC.Show.Show a_279 => GHC.Show.Show (Field a_279) + +instance AST.Unmarshal.Unmarshal Field + +instance Data.Foldable.Foldable Field where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Field where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Field where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FullAggregateBody a = FullAggregateBody + { ann :: a, + extraChildren :: ([AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: AsExprs GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: OrderBys GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: VarDecl GHC.Generics.:+: Variable) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_280. + AST.Traversable1.Class.Traversable1 a_280 + ) + +instance AST.Unmarshal.SymbolMatching FullAggregateBody where + matchedSymbols _ = [124] + showFailure _ node_281 = + "expected " + GHC.Base.<> ( "full_aggregate_body" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_281 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_281) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_282 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_283 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_284 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_285 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_282 + c1_283 = TreeSitter.Node.nodeStartPoint node_281 + TreeSitter.Node.TSPoint + r2_284 + c2_285 = TreeSitter.Node.nodeEndPoint node_281 + +deriving instance GHC.Classes.Eq a_286 => GHC.Classes.Eq (FullAggregateBody a_286) + +deriving instance GHC.Classes.Ord a_287 => GHC.Classes.Ord (FullAggregateBody a_287) + +deriving instance GHC.Show.Show a_288 => GHC.Show.Show (FullAggregateBody a_288) + +instance AST.Unmarshal.Unmarshal FullAggregateBody + +instance Data.Foldable.Foldable FullAggregateBody where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FullAggregateBody where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FullAggregateBody where + traverse = AST.Traversable1.Class.traverseDefault1 + +data HigherOrderTerm a = HigherOrderTerm + { ann :: a, + name :: (AST.Parse.Err (LiteralId a)), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: Eq GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PredicateExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Underscore GHC.Generics.:+: Variable) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_289. + AST.Traversable1.Class.Traversable1 a_289 + ) + +instance AST.Unmarshal.SymbolMatching HigherOrderTerm where + matchedSymbols _ = [102] + showFailure _ node_290 = + "expected " + GHC.Base.<> ( "higherOrderTerm" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_290 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_290) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_291 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_292 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_293 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_294 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_291 + c1_292 = TreeSitter.Node.nodeStartPoint node_290 + TreeSitter.Node.TSPoint + r2_293 + c2_294 = TreeSitter.Node.nodeEndPoint node_290 + +deriving instance GHC.Classes.Eq a_295 => GHC.Classes.Eq (HigherOrderTerm a_295) + +deriving instance GHC.Classes.Ord a_296 => GHC.Classes.Ord (HigherOrderTerm a_296) + +deriving instance GHC.Show.Show a_297 => GHC.Show.Show (HigherOrderTerm a_297) + +instance AST.Unmarshal.Unmarshal HigherOrderTerm + +instance Data.Foldable.Foldable HigherOrderTerm where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor HigherOrderTerm where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable HigherOrderTerm where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IfTerm a = IfTerm + { ann :: a, + first :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)), + second :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)), + cond :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_298. + AST.Traversable1.Class.Traversable1 a_298 + ) + +instance AST.Unmarshal.SymbolMatching IfTerm where + matchedSymbols _ = [112] + showFailure _ node_299 = + "expected " + GHC.Base.<> ( "if_term" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_299 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_299) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_300 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_301 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_302 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_303 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_300 + c1_301 = TreeSitter.Node.nodeStartPoint node_299 + TreeSitter.Node.TSPoint + r2_302 + c2_303 = TreeSitter.Node.nodeEndPoint node_299 + +deriving instance GHC.Classes.Eq a_304 => GHC.Classes.Eq (IfTerm a_304) + +deriving instance GHC.Classes.Ord a_305 => GHC.Classes.Ord (IfTerm a_305) + +deriving instance GHC.Show.Show a_306 => GHC.Show.Show (IfTerm a_306) + +instance AST.Unmarshal.Unmarshal IfTerm + +instance Data.Foldable.Foldable IfTerm where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IfTerm where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IfTerm where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Implication a = Implication + { ann :: a, + left :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)), + right :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_307. + AST.Traversable1.Class.Traversable1 a_307 + ) + +instance AST.Unmarshal.SymbolMatching Implication where + matchedSymbols _ = [115] + showFailure _ node_308 = + "expected " + GHC.Base.<> ( "implication" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_308 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_308) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_309 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_310 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_311 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_312 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_309 + c1_310 = TreeSitter.Node.nodeStartPoint node_308 + TreeSitter.Node.TSPoint + r2_311 + c2_312 = TreeSitter.Node.nodeEndPoint node_308 + +deriving instance GHC.Classes.Eq a_313 => GHC.Classes.Eq (Implication a_313) + +deriving instance GHC.Classes.Ord a_314 => GHC.Classes.Ord (Implication a_314) + +deriving instance GHC.Show.Show a_315 => GHC.Show.Show (Implication a_315) + +instance AST.Unmarshal.Unmarshal Implication + +instance Data.Foldable.Foldable Implication where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Implication where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Implication where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportModuleExpr a = ImportModuleExpr + { ann :: a, + name :: ([AST.Parse.Err (SimpleId a)]), + extraChildren :: (AST.Parse.Err (QualModuleExpr a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_316. + AST.Traversable1.Class.Traversable1 a_316 + ) + +instance AST.Unmarshal.SymbolMatching ImportModuleExpr where + matchedSymbols _ = [151] + showFailure _ node_317 = + "expected " + GHC.Base.<> ( "importModuleExpr" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_317 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_317) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_318 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_319 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_320 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_321 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_318 + c1_319 = TreeSitter.Node.nodeStartPoint node_317 + TreeSitter.Node.TSPoint + r2_320 + c2_321 = TreeSitter.Node.nodeEndPoint node_317 + +deriving instance GHC.Classes.Eq a_322 => GHC.Classes.Eq (ImportModuleExpr a_322) + +deriving instance GHC.Classes.Ord a_323 => GHC.Classes.Ord (ImportModuleExpr a_323) + +deriving instance GHC.Show.Show a_324 => GHC.Show.Show (ImportModuleExpr a_324) + +instance AST.Unmarshal.Unmarshal ImportModuleExpr + +instance Data.Foldable.Foldable ImportModuleExpr where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportModuleExpr where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportModuleExpr where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Imprt a = Imprt + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((As GHC.Generics.:+: Import GHC.Generics.:+: ImportModuleExpr GHC.Generics.:+: ModuleName) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_325. + AST.Traversable1.Class.Traversable1 a_325 + ) + +instance AST.Unmarshal.SymbolMatching Imprt where + matchedSymbols _ = [85] + showFailure _ node_326 = + "expected " + GHC.Base.<> ( "imprt" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_326 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_326) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_327 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_328 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_329 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_330 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_327 + c1_328 = TreeSitter.Node.nodeStartPoint node_326 + TreeSitter.Node.TSPoint + r2_329 + c2_330 = TreeSitter.Node.nodeEndPoint node_326 + +deriving instance GHC.Classes.Eq a_331 => GHC.Classes.Eq (Imprt a_331) + +deriving instance GHC.Classes.Ord a_332 => GHC.Classes.Ord (Imprt a_332) + +deriving instance GHC.Show.Show a_333 => GHC.Show.Show (Imprt a_333) + +instance AST.Unmarshal.Unmarshal Imprt + +instance Data.Foldable.Foldable Imprt where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Imprt where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Imprt where + traverse = AST.Traversable1.Class.traverseDefault1 + +data InExpr a = InExpr + { ann :: a, + left :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)), + right :: (AST.Parse.Err (Range a)), + extraChildren :: (AST.Parse.Err (In a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_334. + AST.Traversable1.Class.Traversable1 a_334 + ) + +instance AST.Unmarshal.SymbolMatching InExpr where + matchedSymbols _ = [108] + showFailure _ node_335 = + "expected " + GHC.Base.<> ( "in_expr" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_335 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_335) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_336 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_337 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_338 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_339 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_336 + c1_337 = TreeSitter.Node.nodeStartPoint node_335 + TreeSitter.Node.TSPoint + r2_338 + c2_339 = TreeSitter.Node.nodeEndPoint node_335 + +deriving instance GHC.Classes.Eq a_340 => GHC.Classes.Eq (InExpr a_340) + +deriving instance GHC.Classes.Ord a_341 => GHC.Classes.Ord (InExpr a_341) + +deriving instance GHC.Show.Show a_342 => GHC.Show.Show (InExpr a_342) + +instance AST.Unmarshal.Unmarshal InExpr + +instance Data.Foldable.Foldable InExpr where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor InExpr where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable InExpr where + traverse = AST.Traversable1.Class.traverseDefault1 + +data InstanceOf a = InstanceOf + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Instanceof GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: TypeExpr GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_343. + AST.Traversable1.Class.Traversable1 a_343 + ) + +instance AST.Unmarshal.SymbolMatching InstanceOf where + matchedSymbols _ = [110] + showFailure _ node_344 = + "expected " + GHC.Base.<> ( "instance_of" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_344 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_344) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_345 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_346 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_347 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_348 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_345 + c1_346 = TreeSitter.Node.nodeStartPoint node_344 + TreeSitter.Node.TSPoint + r2_347 + c2_348 = TreeSitter.Node.nodeEndPoint node_344 + +deriving instance GHC.Classes.Eq a_349 => GHC.Classes.Eq (InstanceOf a_349) + +deriving instance GHC.Classes.Ord a_350 => GHC.Classes.Ord (InstanceOf a_350) + +deriving instance GHC.Show.Show a_351 => GHC.Show.Show (InstanceOf a_351) + +instance AST.Unmarshal.Unmarshal InstanceOf + +instance Data.Foldable.Foldable InstanceOf where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor InstanceOf where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable InstanceOf where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Literal a = Literal + { ann :: a, + extraChildren :: (AST.Parse.Err ((Bool GHC.Generics.:+: Float GHC.Generics.:+: Integer GHC.Generics.:+: String) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_352. + AST.Traversable1.Class.Traversable1 a_352 + ) + +instance AST.Unmarshal.SymbolMatching Literal where + matchedSymbols _ = [131] + showFailure _ node_353 = + "expected " + GHC.Base.<> ( "literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_353 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_353) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_354 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_355 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_356 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_357 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_354 + c1_355 = TreeSitter.Node.nodeStartPoint node_353 + TreeSitter.Node.TSPoint + r2_356 + c2_357 = TreeSitter.Node.nodeEndPoint node_353 + +deriving instance GHC.Classes.Eq a_358 => GHC.Classes.Eq (Literal a_358) + +deriving instance GHC.Classes.Ord a_359 => GHC.Classes.Ord (Literal a_359) + +deriving instance GHC.Show.Show a_360 => GHC.Show.Show (Literal a_360) + +instance AST.Unmarshal.Unmarshal Literal + +instance Data.Foldable.Foldable Literal where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Literal where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Literal where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LiteralId a = LiteralId {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_361. + AST.Traversable1.Class.Traversable1 a_361 + ) + +instance AST.Unmarshal.SymbolMatching LiteralId where + matchedSymbols _ = [145] + showFailure _ node_362 = + "expected " + GHC.Base.<> ( "literalId" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_362 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_362) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_363 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_364 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_365 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_366 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_363 + c1_364 = TreeSitter.Node.nodeStartPoint node_362 + TreeSitter.Node.TSPoint + r2_365 + c2_366 = TreeSitter.Node.nodeEndPoint node_362 + +deriving instance GHC.Classes.Eq a_367 => GHC.Classes.Eq (LiteralId a_367) + +deriving instance GHC.Classes.Ord a_368 => GHC.Classes.Ord (LiteralId a_368) + +deriving instance GHC.Show.Show a_369 => GHC.Show.Show (LiteralId a_369) + +instance AST.Unmarshal.Unmarshal LiteralId + +instance Data.Foldable.Foldable LiteralId where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LiteralId where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LiteralId where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MemberPredicate a = MemberPredicate + { ann :: a, + name :: (AST.Parse.Err (PredicateName a)), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Body GHC.Generics.:+: Empty GHC.Generics.:+: HigherOrderTerm GHC.Generics.:+: ReturnType GHC.Generics.:+: VarDecl) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_370. + AST.Traversable1.Class.Traversable1 a_370 + ) + +instance AST.Unmarshal.SymbolMatching MemberPredicate where + matchedSymbols _ = [97] + showFailure _ node_371 = + "expected " + GHC.Base.<> ( "memberPredicate" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_371 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_371) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_372 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_373 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_374 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_375 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_372 + c1_373 = TreeSitter.Node.nodeStartPoint node_371 + TreeSitter.Node.TSPoint + r2_374 + c2_375 = TreeSitter.Node.nodeEndPoint node_371 + +deriving instance GHC.Classes.Eq a_376 => GHC.Classes.Eq (MemberPredicate a_376) + +deriving instance GHC.Classes.Ord a_377 => GHC.Classes.Ord (MemberPredicate a_377) + +deriving instance GHC.Show.Show a_378 => GHC.Show.Show (MemberPredicate a_378) + +instance AST.Unmarshal.Unmarshal MemberPredicate + +instance Data.Foldable.Foldable MemberPredicate where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MemberPredicate where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MemberPredicate where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Module a = Module + { ann :: a, + name :: (AST.Parse.Err (ModuleName a)), + extraChildren :: ([AST.Parse.Err ((ModuleAliasBody GHC.Generics.:+: ModuleMember) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_379. + AST.Traversable1.Class.Traversable1 a_379 + ) + +instance AST.Unmarshal.SymbolMatching Module where + matchedSymbols _ = [83] + showFailure _ node_380 = + "expected " + GHC.Base.<> ( "module" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_380 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_380) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_381 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_382 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_383 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_384 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_381 + c1_382 = TreeSitter.Node.nodeStartPoint node_380 + TreeSitter.Node.TSPoint + r2_383 + c2_384 = TreeSitter.Node.nodeEndPoint node_380 + +deriving instance GHC.Classes.Eq a_385 => GHC.Classes.Eq (Module a_385) + +deriving instance GHC.Classes.Ord a_386 => GHC.Classes.Ord (Module a_386) + +deriving instance GHC.Show.Show a_387 => GHC.Show.Show (Module a_387) + +instance AST.Unmarshal.Unmarshal Module + +instance Data.Foldable.Foldable Module where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Module where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Module where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ModuleAliasBody a = ModuleAliasBody + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Eq GHC.Generics.:+: ModuleExpr) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_388. + AST.Traversable1.Class.Traversable1 a_388 + ) + +instance AST.Unmarshal.SymbolMatching ModuleAliasBody where + matchedSymbols _ = [86] + showFailure _ node_389 = + "expected " + GHC.Base.<> ( "moduleAliasBody" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_389 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_389) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_390 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_391 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_392 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_393 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_390 + c1_391 = TreeSitter.Node.nodeStartPoint node_389 + TreeSitter.Node.TSPoint + r2_392 + c2_393 = TreeSitter.Node.nodeEndPoint node_389 + +deriving instance GHC.Classes.Eq a_394 => GHC.Classes.Eq (ModuleAliasBody a_394) + +deriving instance GHC.Classes.Ord a_395 => GHC.Classes.Ord (ModuleAliasBody a_395) + +deriving instance GHC.Show.Show a_396 => GHC.Show.Show (ModuleAliasBody a_396) + +instance AST.Unmarshal.Unmarshal ModuleAliasBody + +instance Data.Foldable.Foldable ModuleAliasBody where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ModuleAliasBody where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ModuleAliasBody where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ModuleExpr a = ModuleExpr + { ann :: a, + name :: (GHC.Maybe.Maybe (AST.Parse.Err (SimpleId a))), + extraChildren :: (AST.Parse.Err ((ModuleExpr GHC.Generics.:+: SimpleId) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_397. + AST.Traversable1.Class.Traversable1 a_397 + ) + +instance AST.Unmarshal.SymbolMatching ModuleExpr where + matchedSymbols _ = [152] + showFailure _ node_398 = + "expected " + GHC.Base.<> ( "moduleExpr" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_398 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_398) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_399 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_400 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_401 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_402 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_399 + c1_400 = TreeSitter.Node.nodeStartPoint node_398 + TreeSitter.Node.TSPoint + r2_401 + c2_402 = TreeSitter.Node.nodeEndPoint node_398 + +deriving instance GHC.Classes.Eq a_403 => GHC.Classes.Eq (ModuleExpr a_403) + +deriving instance GHC.Classes.Ord a_404 => GHC.Classes.Ord (ModuleExpr a_404) + +deriving instance GHC.Show.Show a_405 => GHC.Show.Show (ModuleExpr a_405) + +instance AST.Unmarshal.Unmarshal ModuleExpr + +instance Data.Foldable.Foldable ModuleExpr where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ModuleExpr where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ModuleExpr where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ModuleMember a = ModuleMember + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Annotation GHC.Generics.:+: ClasslessPredicate GHC.Generics.:+: Dataclass GHC.Generics.:+: Datatype GHC.Generics.:+: Imprt GHC.Generics.:+: Module GHC.Generics.:+: Qldoc GHC.Generics.:+: Select) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_406. + AST.Traversable1.Class.Traversable1 a_406 + ) + +instance AST.Unmarshal.SymbolMatching ModuleMember where + matchedSymbols _ = [84] + showFailure _ node_407 = + "expected " + GHC.Base.<> ( "moduleMember" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_407 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_407) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_408 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_409 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_410 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_411 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_408 + c1_409 = TreeSitter.Node.nodeStartPoint node_407 + TreeSitter.Node.TSPoint + r2_410 + c2_411 = TreeSitter.Node.nodeEndPoint node_407 + +deriving instance GHC.Classes.Eq a_412 => GHC.Classes.Eq (ModuleMember a_412) + +deriving instance GHC.Classes.Ord a_413 => GHC.Classes.Ord (ModuleMember a_413) + +deriving instance GHC.Show.Show a_414 => GHC.Show.Show (ModuleMember a_414) + +instance AST.Unmarshal.Unmarshal ModuleMember + +instance Data.Foldable.Foldable ModuleMember where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ModuleMember where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ModuleMember where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ModuleName a = ModuleName + { ann :: a, + extraChildren :: (AST.Parse.Err (SimpleId a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_415. + AST.Traversable1.Class.Traversable1 a_415 + ) + +instance AST.Unmarshal.SymbolMatching ModuleName where + matchedSymbols _ = [149] + showFailure _ node_416 = + "expected " + GHC.Base.<> ( "moduleName" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_416 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_416) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_417 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_418 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_419 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_420 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_417 + c1_418 = TreeSitter.Node.nodeStartPoint node_416 + TreeSitter.Node.TSPoint + r2_419 + c2_420 = TreeSitter.Node.nodeEndPoint node_416 + +deriving instance GHC.Classes.Eq a_421 => GHC.Classes.Eq (ModuleName a_421) + +deriving instance GHC.Classes.Ord a_422 => GHC.Classes.Ord (ModuleName a_422) + +deriving instance GHC.Show.Show a_423 => GHC.Show.Show (ModuleName a_423) + +instance AST.Unmarshal.Unmarshal ModuleName + +instance Data.Foldable.Foldable ModuleName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ModuleName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ModuleName where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MulExpr a = MulExpr + { ann :: a, + left :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)), + right :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)), + extraChildren :: (AST.Parse.Err (Mulop a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_424. + AST.Traversable1.Class.Traversable1 a_424 + ) + +instance AST.Unmarshal.SymbolMatching MulExpr where + matchedSymbols _ = [106] + showFailure _ node_425 = + "expected " + GHC.Base.<> ( "mul_expr" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_425 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_425) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_426 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_427 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_428 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_429 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_426 + c1_427 = TreeSitter.Node.nodeStartPoint node_425 + TreeSitter.Node.TSPoint + r2_428 + c2_429 = TreeSitter.Node.nodeEndPoint node_425 + +deriving instance GHC.Classes.Eq a_430 => GHC.Classes.Eq (MulExpr a_430) + +deriving instance GHC.Classes.Ord a_431 => GHC.Classes.Ord (MulExpr a_431) + +deriving instance GHC.Show.Show a_432 => GHC.Show.Show (MulExpr a_432) + +instance AST.Unmarshal.Unmarshal MulExpr + +instance Data.Foldable.Foldable MulExpr where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MulExpr where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MulExpr where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Mulop a = Mulop + { ann :: a, + extraChildren :: (AST.Parse.Err ((Mod GHC.Generics.:+: Slash GHC.Generics.:+: Star) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_433. + AST.Traversable1.Class.Traversable1 a_433 + ) + +instance AST.Unmarshal.SymbolMatching Mulop where + matchedSymbols _ = [136] + showFailure _ node_434 = + "expected " + GHC.Base.<> ( "mulop" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_434 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_434) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_435 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_436 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_437 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_438 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_435 + c1_436 = TreeSitter.Node.nodeStartPoint node_434 + TreeSitter.Node.TSPoint + r2_437 + c2_438 = TreeSitter.Node.nodeEndPoint node_434 + +deriving instance GHC.Classes.Eq a_439 => GHC.Classes.Eq (Mulop a_439) + +deriving instance GHC.Classes.Ord a_440 => GHC.Classes.Ord (Mulop a_440) + +deriving instance GHC.Show.Show a_441 => GHC.Show.Show (Mulop a_441) + +instance AST.Unmarshal.Unmarshal Mulop + +instance Data.Foldable.Foldable Mulop where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Mulop where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Mulop where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Negation a = Negation + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: Not GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_442. + AST.Traversable1.Class.Traversable1 a_442 + ) + +instance AST.Unmarshal.SymbolMatching Negation where + matchedSymbols _ = [111] + showFailure _ node_443 = + "expected " + GHC.Base.<> ( "negation" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_443 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_443) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_444 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_445 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_446 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_447 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_444 + c1_445 = TreeSitter.Node.nodeStartPoint node_443 + TreeSitter.Node.TSPoint + r2_446 + c2_447 = TreeSitter.Node.nodeEndPoint node_443 + +deriving instance GHC.Classes.Eq a_448 => GHC.Classes.Eq (Negation a_448) + +deriving instance GHC.Classes.Ord a_449 => GHC.Classes.Ord (Negation a_449) + +deriving instance GHC.Show.Show a_450 => GHC.Show.Show (Negation a_450) + +instance AST.Unmarshal.Unmarshal Negation + +instance Data.Foldable.Foldable Negation where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Negation where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Negation where + traverse = AST.Traversable1.Class.traverseDefault1 + +data OrderBy a = OrderBy + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Direction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_451. + AST.Traversable1.Class.Traversable1 a_451 + ) + +instance AST.Unmarshal.SymbolMatching OrderBy where + matchedSymbols _ = [144] + showFailure _ node_452 = + "expected " + GHC.Base.<> ( "orderBy" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_452 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_452) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_453 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_454 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_455 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_456 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_453 + c1_454 = TreeSitter.Node.nodeStartPoint node_452 + TreeSitter.Node.TSPoint + r2_455 + c2_456 = TreeSitter.Node.nodeEndPoint node_452 + +deriving instance GHC.Classes.Eq a_457 => GHC.Classes.Eq (OrderBy a_457) + +deriving instance GHC.Classes.Ord a_458 => GHC.Classes.Ord (OrderBy a_458) + +deriving instance GHC.Show.Show a_459 => GHC.Show.Show (OrderBy a_459) + +instance AST.Unmarshal.Unmarshal OrderBy + +instance Data.Foldable.Foldable OrderBy where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor OrderBy where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable OrderBy where + traverse = AST.Traversable1.Class.traverseDefault1 + +data OrderBys a = OrderBys + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (OrderBy a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_460. + AST.Traversable1.Class.Traversable1 a_460 + ) + +instance AST.Unmarshal.SymbolMatching OrderBys where + matchedSymbols _ = [143] + showFailure _ node_461 = + "expected " + GHC.Base.<> ( "orderBys" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_461 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_461) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_462 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_463 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_464 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_465 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_462 + c1_463 = TreeSitter.Node.nodeStartPoint node_461 + TreeSitter.Node.TSPoint + r2_464 + c2_465 = TreeSitter.Node.nodeEndPoint node_461 + +deriving instance GHC.Classes.Eq a_466 => GHC.Classes.Eq (OrderBys a_466) + +deriving instance GHC.Classes.Ord a_467 => GHC.Classes.Ord (OrderBys a_467) + +deriving instance GHC.Show.Show a_468 => GHC.Show.Show (OrderBys a_468) + +instance AST.Unmarshal.Unmarshal OrderBys + +instance Data.Foldable.Foldable OrderBys where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor OrderBys where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable OrderBys where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ParExpr a = ParExpr + { ann :: a, + extraChildren :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_469. + AST.Traversable1.Class.Traversable1 a_469 + ) + +instance AST.Unmarshal.SymbolMatching ParExpr where + matchedSymbols _ = [128] + showFailure _ node_470 = + "expected " + GHC.Base.<> ( "par_expr" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_470 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_470) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_471 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_472 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_473 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_474 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_471 + c1_472 = TreeSitter.Node.nodeStartPoint node_470 + TreeSitter.Node.TSPoint + r2_473 + c2_474 = TreeSitter.Node.nodeEndPoint node_470 + +deriving instance GHC.Classes.Eq a_475 => GHC.Classes.Eq (ParExpr a_475) + +deriving instance GHC.Classes.Ord a_476 => GHC.Classes.Ord (ParExpr a_476) + +deriving instance GHC.Show.Show a_477 => GHC.Show.Show (ParExpr a_477) + +instance AST.Unmarshal.Unmarshal ParExpr + +instance Data.Foldable.Foldable ParExpr where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ParExpr where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ParExpr where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PredicateAliasBody a = PredicateAliasBody + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Eq GHC.Generics.:+: PredicateExpr) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_478. + AST.Traversable1.Class.Traversable1 a_478 + ) + +instance AST.Unmarshal.SymbolMatching PredicateAliasBody where + matchedSymbols _ = [87] + showFailure _ node_479 = + "expected " + GHC.Base.<> ( "predicateAliasBody" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_479 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_479) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_480 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_481 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_482 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_483 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_480 + c1_481 = TreeSitter.Node.nodeStartPoint node_479 + TreeSitter.Node.TSPoint + r2_482 + c2_483 = TreeSitter.Node.nodeEndPoint node_479 + +deriving instance GHC.Classes.Eq a_484 => GHC.Classes.Eq (PredicateAliasBody a_484) + +deriving instance GHC.Classes.Ord a_485 => GHC.Classes.Ord (PredicateAliasBody a_485) + +deriving instance GHC.Show.Show a_486 => GHC.Show.Show (PredicateAliasBody a_486) + +instance AST.Unmarshal.Unmarshal PredicateAliasBody + +instance Data.Foldable.Foldable PredicateAliasBody where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PredicateAliasBody where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PredicateAliasBody where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PredicateExpr a = PredicateExpr + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((AritylessPredicateExpr GHC.Generics.:+: Integer GHC.Generics.:+: Slash) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_487. + AST.Traversable1.Class.Traversable1 a_487 + ) + +instance AST.Unmarshal.SymbolMatching PredicateExpr where + matchedSymbols _ = [161] + showFailure _ node_488 = + "expected " + GHC.Base.<> ( "predicateExpr" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_488 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_488) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_489 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_490 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_491 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_492 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_489 + c1_490 = TreeSitter.Node.nodeStartPoint node_488 + TreeSitter.Node.TSPoint + r2_491 + c2_492 = TreeSitter.Node.nodeEndPoint node_488 + +deriving instance GHC.Classes.Eq a_493 => GHC.Classes.Eq (PredicateExpr a_493) + +deriving instance GHC.Classes.Ord a_494 => GHC.Classes.Ord (PredicateExpr a_494) + +deriving instance GHC.Show.Show a_495 => GHC.Show.Show (PredicateExpr a_495) + +instance AST.Unmarshal.Unmarshal PredicateExpr + +instance Data.Foldable.Foldable PredicateExpr where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PredicateExpr where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PredicateExpr where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PredicateName a = PredicateName {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_496. + AST.Traversable1.Class.Traversable1 a_496 + ) + +instance AST.Unmarshal.SymbolMatching PredicateName where + matchedSymbols _ = [159] + showFailure _ node_497 = + "expected " + GHC.Base.<> ( "predicateName" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_497 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_497) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_498 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_499 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_500 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_501 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_498 + c1_499 = TreeSitter.Node.nodeStartPoint node_497 + TreeSitter.Node.TSPoint + r2_500 + c2_501 = TreeSitter.Node.nodeEndPoint node_497 + +deriving instance GHC.Classes.Eq a_502 => GHC.Classes.Eq (PredicateName a_502) + +deriving instance GHC.Classes.Ord a_503 => GHC.Classes.Ord (PredicateName a_503) + +deriving instance GHC.Show.Show a_504 => GHC.Show.Show (PredicateName a_504) + +instance AST.Unmarshal.Unmarshal PredicateName + +instance Data.Foldable.Foldable PredicateName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PredicateName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PredicateName where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PrefixCast a = PrefixCast + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: TypeExpr GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_505. + AST.Traversable1.Class.Traversable1 a_505 + ) + +instance AST.Unmarshal.SymbolMatching PrefixCast where + matchedSymbols _ = [104] + showFailure _ node_506 = + "expected " + GHC.Base.<> ( "prefix_cast" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_506 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_506) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_507 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_508 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_509 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_510 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_507 + c1_508 = TreeSitter.Node.nodeStartPoint node_506 + TreeSitter.Node.TSPoint + r2_509 + c2_510 = TreeSitter.Node.nodeEndPoint node_506 + +deriving instance GHC.Classes.Eq a_511 => GHC.Classes.Eq (PrefixCast a_511) + +deriving instance GHC.Classes.Ord a_512 => GHC.Classes.Ord (PrefixCast a_512) + +deriving instance GHC.Show.Show a_513 => GHC.Show.Show (PrefixCast a_513) + +instance AST.Unmarshal.Unmarshal PrefixCast + +instance Data.Foldable.Foldable PrefixCast where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PrefixCast where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PrefixCast where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Ql a = Ql + { ann :: a, + extraChildren :: ([AST.Parse.Err (ModuleMember a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_514. + AST.Traversable1.Class.Traversable1 a_514 + ) + +instance AST.Unmarshal.SymbolMatching Ql where + matchedSymbols _ = [82] + showFailure _ node_515 = + "expected " + GHC.Base.<> ( "ql" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_515 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_515) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_516 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_517 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_518 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_519 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_516 + c1_517 = TreeSitter.Node.nodeStartPoint node_515 + TreeSitter.Node.TSPoint + r2_518 + c2_519 = TreeSitter.Node.nodeEndPoint node_515 + +deriving instance GHC.Classes.Eq a_520 => GHC.Classes.Eq (Ql a_520) + +deriving instance GHC.Classes.Ord a_521 => GHC.Classes.Ord (Ql a_521) + +deriving instance GHC.Show.Show a_522 => GHC.Show.Show (Ql a_522) + +instance AST.Unmarshal.Unmarshal Ql + +instance Data.Foldable.Foldable Ql where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Ql where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Ql where + traverse = AST.Traversable1.Class.traverseDefault1 + +data QualModuleExpr a = QualModuleExpr + { ann :: a, + name :: (GHC.Base.NonEmpty (AST.Parse.Err (SimpleId a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_523. + AST.Traversable1.Class.Traversable1 a_523 + ) + +instance AST.Unmarshal.SymbolMatching QualModuleExpr where + matchedSymbols _ = [150] + showFailure _ node_524 = + "expected " + GHC.Base.<> ( "qualModuleExpr" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_524 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_524) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_525 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_526 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_527 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_528 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_525 + c1_526 = TreeSitter.Node.nodeStartPoint node_524 + TreeSitter.Node.TSPoint + r2_527 + c2_528 = TreeSitter.Node.nodeEndPoint node_524 + +deriving instance GHC.Classes.Eq a_529 => GHC.Classes.Eq (QualModuleExpr a_529) + +deriving instance GHC.Classes.Ord a_530 => GHC.Classes.Ord (QualModuleExpr a_530) + +deriving instance GHC.Show.Show a_531 => GHC.Show.Show (QualModuleExpr a_531) + +instance AST.Unmarshal.Unmarshal QualModuleExpr + +instance Data.Foldable.Foldable QualModuleExpr where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor QualModuleExpr where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable QualModuleExpr where + traverse = AST.Traversable1.Class.traverseDefault1 + +data QualifiedRhs a = QualifiedRhs + { ann :: a, + name :: (GHC.Maybe.Maybe (AST.Parse.Err (PredicateName a))), + extraChildren :: ([AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: Closure GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: TypeExpr GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Underscore GHC.Generics.:+: Variable) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_532. + AST.Traversable1.Class.Traversable1 a_532 + ) + +instance AST.Unmarshal.SymbolMatching QualifiedRhs where + matchedSymbols _ = [120] + showFailure _ node_533 = + "expected " + GHC.Base.<> ( "qualifiedRhs" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_533 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_533) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_534 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_535 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_536 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_537 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_534 + c1_535 = TreeSitter.Node.nodeStartPoint node_533 + TreeSitter.Node.TSPoint + r2_536 + c2_537 = TreeSitter.Node.nodeEndPoint node_533 + +deriving instance GHC.Classes.Eq a_538 => GHC.Classes.Eq (QualifiedRhs a_538) + +deriving instance GHC.Classes.Ord a_539 => GHC.Classes.Ord (QualifiedRhs a_539) + +deriving instance GHC.Show.Show a_540 => GHC.Show.Show (QualifiedRhs a_540) + +instance AST.Unmarshal.Unmarshal QualifiedRhs + +instance Data.Foldable.Foldable QualifiedRhs where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor QualifiedRhs where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable QualifiedRhs where + traverse = AST.Traversable1.Class.traverseDefault1 + +data QualifiedExpr a = QualifiedExpr + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: Literal GHC.Generics.:+: ParExpr GHC.Generics.:+: QualifiedRhs GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Range GHC.Generics.:+: SuperRef GHC.Generics.:+: Variable) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_541. + AST.Traversable1.Class.Traversable1 a_541 + ) + +instance AST.Unmarshal.SymbolMatching QualifiedExpr where + matchedSymbols _ = [122] + showFailure _ node_542 = + "expected " + GHC.Base.<> ( "qualified_expr" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_542 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_542) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_543 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_544 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_545 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_546 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_543 + c1_544 = TreeSitter.Node.nodeStartPoint node_542 + TreeSitter.Node.TSPoint + r2_545 + c2_546 = TreeSitter.Node.nodeEndPoint node_542 + +deriving instance GHC.Classes.Eq a_547 => GHC.Classes.Eq (QualifiedExpr a_547) + +deriving instance GHC.Classes.Ord a_548 => GHC.Classes.Ord (QualifiedExpr a_548) + +deriving instance GHC.Show.Show a_549 => GHC.Show.Show (QualifiedExpr a_549) + +instance AST.Unmarshal.Unmarshal QualifiedExpr + +instance Data.Foldable.Foldable QualifiedExpr where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor QualifiedExpr where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable QualifiedExpr where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Quantified a = Quantified + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Quantifier GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: VarDecl GHC.Generics.:+: Variable) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_550. + AST.Traversable1.Class.Traversable1 a_550 + ) + +instance AST.Unmarshal.SymbolMatching Quantified where + matchedSymbols _ = [116] + showFailure _ node_551 = + "expected " + GHC.Base.<> ( "quantified" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_551 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_551) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_552 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_553 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_554 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_555 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_552 + c1_553 = TreeSitter.Node.nodeStartPoint node_551 + TreeSitter.Node.TSPoint + r2_554 + c2_555 = TreeSitter.Node.nodeEndPoint node_551 + +deriving instance GHC.Classes.Eq a_556 => GHC.Classes.Eq (Quantified a_556) + +deriving instance GHC.Classes.Ord a_557 => GHC.Classes.Ord (Quantified a_557) + +deriving instance GHC.Show.Show a_558 => GHC.Show.Show (Quantified a_558) + +instance AST.Unmarshal.Unmarshal Quantified + +instance Data.Foldable.Foldable Quantified where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Quantified where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Quantified where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Quantifier a = Quantifier + { ann :: a, + extraChildren :: (AST.Parse.Err ((Exists GHC.Generics.:+: Forall GHC.Generics.:+: Forex) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_559. + AST.Traversable1.Class.Traversable1 a_559 + ) + +instance AST.Unmarshal.SymbolMatching Quantifier where + matchedSymbols _ = [118] + showFailure _ node_560 = + "expected " + GHC.Base.<> ( "quantifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_560 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_560) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_561 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_562 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_563 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_564 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_561 + c1_562 = TreeSitter.Node.nodeStartPoint node_560 + TreeSitter.Node.TSPoint + r2_563 + c2_564 = TreeSitter.Node.nodeEndPoint node_560 + +deriving instance GHC.Classes.Eq a_565 => GHC.Classes.Eq (Quantifier a_565) + +deriving instance GHC.Classes.Ord a_566 => GHC.Classes.Ord (Quantifier a_566) + +deriving instance GHC.Show.Show a_567 => GHC.Show.Show (Quantifier a_567) + +instance AST.Unmarshal.Unmarshal Quantifier + +instance Data.Foldable.Foldable Quantifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Quantifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Quantifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Range a = Range + { ann :: a, + upper :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)), + lower :: (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Variable) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_568. + AST.Traversable1.Class.Traversable1 a_568 + ) + +instance AST.Unmarshal.SymbolMatching Range where + matchedSymbols _ = [127] + showFailure _ node_569 = + "expected " + GHC.Base.<> ( "range" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_569 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_569) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_570 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_571 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_572 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_573 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_570 + c1_571 = TreeSitter.Node.nodeStartPoint node_569 + TreeSitter.Node.TSPoint + r2_572 + c2_573 = TreeSitter.Node.nodeEndPoint node_569 + +deriving instance GHC.Classes.Eq a_574 => GHC.Classes.Eq (Range a_574) + +deriving instance GHC.Classes.Ord a_575 => GHC.Classes.Ord (Range a_575) + +deriving instance GHC.Show.Show a_576 => GHC.Show.Show (Range a_576) + +instance AST.Unmarshal.Unmarshal Range + +instance Data.Foldable.Foldable Range where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Range where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Range where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ReturnType a = ReturnType + { ann :: a, + extraChildren :: (AST.Parse.Err ((Predicate GHC.Generics.:+: TypeExpr) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_577. + AST.Traversable1.Class.Traversable1 a_577 + ) + +instance AST.Unmarshal.SymbolMatching ReturnType where + matchedSymbols _ = [157] + showFailure _ node_578 = + "expected " + GHC.Base.<> ( "returnType" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_578 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_578) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_579 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_580 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_581 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_582 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_579 + c1_580 = TreeSitter.Node.nodeStartPoint node_578 + TreeSitter.Node.TSPoint + r2_581 + c2_582 = TreeSitter.Node.nodeEndPoint node_578 + +deriving instance GHC.Classes.Eq a_583 => GHC.Classes.Eq (ReturnType a_583) + +deriving instance GHC.Classes.Ord a_584 => GHC.Classes.Ord (ReturnType a_584) + +deriving instance GHC.Show.Show a_585 => GHC.Show.Show (ReturnType a_585) + +instance AST.Unmarshal.Unmarshal ReturnType + +instance Data.Foldable.Foldable ReturnType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ReturnType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ReturnType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Select a = Select + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: AsExprs GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: OrderBys GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: VarDecl GHC.Generics.:+: Variable) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_586. + AST.Traversable1.Class.Traversable1 a_586 + ) + +instance AST.Unmarshal.SymbolMatching Select where + matchedSymbols _ = [93] + showFailure _ node_587 = + "expected " + GHC.Base.<> ( "select" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_587 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_587) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_588 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_589 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_590 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_591 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_588 + c1_589 = TreeSitter.Node.nodeStartPoint node_587 + TreeSitter.Node.TSPoint + r2_590 + c2_591 = TreeSitter.Node.nodeEndPoint node_587 + +deriving instance GHC.Classes.Eq a_592 => GHC.Classes.Eq (Select a_592) + +deriving instance GHC.Classes.Ord a_593 => GHC.Classes.Ord (Select a_593) + +deriving instance GHC.Show.Show a_594 => GHC.Show.Show (Select a_594) + +instance AST.Unmarshal.Unmarshal Select + +instance Data.Foldable.Foldable Select where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Select where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Select where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SimpleId a = SimpleId {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_595. + AST.Traversable1.Class.Traversable1 a_595 + ) + +instance AST.Unmarshal.SymbolMatching SimpleId where + matchedSymbols _ = [154] + showFailure _ node_596 = + "expected " + GHC.Base.<> ( "simpleId" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_596 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_596) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_597 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_598 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_599 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_600 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_597 + c1_598 = TreeSitter.Node.nodeStartPoint node_596 + TreeSitter.Node.TSPoint + r2_599 + c2_600 = TreeSitter.Node.nodeEndPoint node_596 + +deriving instance GHC.Classes.Eq a_601 => GHC.Classes.Eq (SimpleId a_601) + +deriving instance GHC.Classes.Ord a_602 => GHC.Classes.Ord (SimpleId a_602) + +deriving instance GHC.Show.Show a_603 => GHC.Show.Show (SimpleId a_603) + +instance AST.Unmarshal.Unmarshal SimpleId + +instance Data.Foldable.Foldable SimpleId where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SimpleId where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SimpleId where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SpecialId a = SpecialId {ann :: a, extraChildren :: (AST.Parse.Err (None a))} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_604. + AST.Traversable1.Class.Traversable1 a_604 + ) + +instance AST.Unmarshal.SymbolMatching SpecialId where + matchedSymbols _ = [117] + showFailure _ node_605 = + "expected " + GHC.Base.<> ( "specialId" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_605 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_605) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_606 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_607 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_608 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_609 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_606 + c1_607 = TreeSitter.Node.nodeStartPoint node_605 + TreeSitter.Node.TSPoint + r2_608 + c2_609 = TreeSitter.Node.nodeEndPoint node_605 + +deriving instance GHC.Classes.Eq a_610 => GHC.Classes.Eq (SpecialId a_610) + +deriving instance GHC.Classes.Ord a_611 => GHC.Classes.Ord (SpecialId a_611) + +deriving instance GHC.Show.Show a_612 => GHC.Show.Show (SpecialId a_612) + +instance AST.Unmarshal.Unmarshal SpecialId + +instance Data.Foldable.Foldable SpecialId where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SpecialId where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SpecialId where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SpecialCall a = SpecialCall + { ann :: a, + extraChildren :: (AST.Parse.Err (SpecialId a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_613. + AST.Traversable1.Class.Traversable1 a_613 + ) + +instance AST.Unmarshal.SymbolMatching SpecialCall where + matchedSymbols _ = [103] + showFailure _ node_614 = + "expected " + GHC.Base.<> ( "special_call" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_614 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_614) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_615 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_616 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_617 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_618 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_615 + c1_616 = TreeSitter.Node.nodeStartPoint node_614 + TreeSitter.Node.TSPoint + r2_617 + c2_618 = TreeSitter.Node.nodeEndPoint node_614 + +deriving instance GHC.Classes.Eq a_619 => GHC.Classes.Eq (SpecialCall a_619) + +deriving instance GHC.Classes.Ord a_620 => GHC.Classes.Ord (SpecialCall a_620) + +deriving instance GHC.Show.Show a_621 => GHC.Show.Show (SpecialCall a_621) + +instance AST.Unmarshal.Unmarshal SpecialCall + +instance Data.Foldable.Foldable SpecialCall where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SpecialCall where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SpecialCall where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SuperRef a = SuperRef + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Super GHC.Generics.:+: TypeExpr) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_622. + AST.Traversable1.Class.Traversable1 a_622 + ) + +instance AST.Unmarshal.SymbolMatching SuperRef where + matchedSymbols _ = [123] + showFailure _ node_623 = + "expected " + GHC.Base.<> ( "super_ref" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_623 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_623) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_624 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_625 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_626 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_627 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_624 + c1_625 = TreeSitter.Node.nodeStartPoint node_623 + TreeSitter.Node.TSPoint + r2_626 + c2_627 = TreeSitter.Node.nodeEndPoint node_623 + +deriving instance GHC.Classes.Eq a_628 => GHC.Classes.Eq (SuperRef a_628) + +deriving instance GHC.Classes.Ord a_629 => GHC.Classes.Ord (SuperRef a_629) + +deriving instance GHC.Show.Show a_630 => GHC.Show.Show (SuperRef a_630) + +instance AST.Unmarshal.Unmarshal SuperRef + +instance Data.Foldable.Foldable SuperRef where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SuperRef where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SuperRef where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeAliasBody a = TypeAliasBody + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Eq GHC.Generics.:+: TypeExpr) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_631. + AST.Traversable1.Class.Traversable1 a_631 + ) + +instance AST.Unmarshal.SymbolMatching TypeAliasBody where + matchedSymbols _ = [88] + showFailure _ node_632 = + "expected " + GHC.Base.<> ( "typeAliasBody" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_632 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_632) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_633 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_634 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_635 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_636 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_633 + c1_634 = TreeSitter.Node.nodeStartPoint node_632 + TreeSitter.Node.TSPoint + r2_635 + c2_636 = TreeSitter.Node.nodeEndPoint node_632 + +deriving instance GHC.Classes.Eq a_637 => GHC.Classes.Eq (TypeAliasBody a_637) + +deriving instance GHC.Classes.Ord a_638 => GHC.Classes.Ord (TypeAliasBody a_638) + +deriving instance GHC.Show.Show a_639 => GHC.Show.Show (TypeAliasBody a_639) + +instance AST.Unmarshal.Unmarshal TypeAliasBody + +instance Data.Foldable.Foldable TypeAliasBody where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeAliasBody where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeAliasBody where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeExpr a = TypeExpr + { ann :: a, + name :: (GHC.Maybe.Maybe (AST.Parse.Err (ClassName a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err ((ModuleExpr GHC.Generics.:+: TypeLiteral) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_640. + AST.Traversable1.Class.Traversable1 a_640 + ) + +instance AST.Unmarshal.SymbolMatching TypeExpr where + matchedSymbols _ = [158] + showFailure _ node_641 = + "expected " + GHC.Base.<> ( "typeExpr" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_641 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_641) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_642 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_643 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_644 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_645 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_642 + c1_643 = TreeSitter.Node.nodeStartPoint node_641 + TreeSitter.Node.TSPoint + r2_644 + c2_645 = TreeSitter.Node.nodeEndPoint node_641 + +deriving instance GHC.Classes.Eq a_646 => GHC.Classes.Eq (TypeExpr a_646) + +deriving instance GHC.Classes.Ord a_647 => GHC.Classes.Ord (TypeExpr a_647) + +deriving instance GHC.Show.Show a_648 => GHC.Show.Show (TypeExpr a_648) + +instance AST.Unmarshal.Unmarshal TypeExpr + +instance Data.Foldable.Foldable TypeExpr where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeExpr where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeExpr where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeLiteral a = TypeLiteral + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err ((Boolean GHC.Generics.:+: Date GHC.Generics.:+: Dbtype) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_649. + AST.Traversable1.Class.Traversable1 a_649 + ) + +instance AST.Unmarshal.SymbolMatching TypeLiteral where + matchedSymbols _ = [153] + showFailure _ node_650 = + "expected " + GHC.Base.<> ( "typeLiteral" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_650 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_650) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_651 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_652 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_653 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_654 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_651 + c1_652 = TreeSitter.Node.nodeStartPoint node_650 + TreeSitter.Node.TSPoint + r2_653 + c2_654 = TreeSitter.Node.nodeEndPoint node_650 + +deriving instance GHC.Classes.Eq a_655 => GHC.Classes.Eq (TypeLiteral a_655) + +deriving instance GHC.Classes.Ord a_656 => GHC.Classes.Ord (TypeLiteral a_656) + +deriving instance GHC.Show.Show a_657 => GHC.Show.Show (TypeLiteral a_657) + +instance AST.Unmarshal.Unmarshal TypeLiteral + +instance Data.Foldable.Foldable TypeLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UnaryExpr a = UnaryExpr + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((AddExpr GHC.Generics.:+: Aggregate GHC.Generics.:+: ClasslessPredicateCall GHC.Generics.:+: CompTerm GHC.Generics.:+: Conjunction GHC.Generics.:+: Disjunction GHC.Generics.:+: IfTerm GHC.Generics.:+: Implication GHC.Generics.:+: InExpr GHC.Generics.:+: InstanceOf GHC.Generics.:+: Literal GHC.Generics.:+: MulExpr GHC.Generics.:+: Negation GHC.Generics.:+: ParExpr GHC.Generics.:+: PrefixCast GHC.Generics.:+: QualifiedExpr GHC.Generics.:+: Quantified GHC.Generics.:+: Range GHC.Generics.:+: SpecialCall GHC.Generics.:+: SuperRef GHC.Generics.:+: UnaryExpr GHC.Generics.:+: Unop GHC.Generics.:+: Variable) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_658. + AST.Traversable1.Class.Traversable1 a_658 + ) + +instance AST.Unmarshal.SymbolMatching UnaryExpr where + matchedSymbols _ = [105] + showFailure _ node_659 = + "expected " + GHC.Base.<> ( "unary_expr" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_659 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_659) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_660 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_661 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_662 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_663 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_660 + c1_661 = TreeSitter.Node.nodeStartPoint node_659 + TreeSitter.Node.TSPoint + r2_662 + c2_663 = TreeSitter.Node.nodeEndPoint node_659 + +deriving instance GHC.Classes.Eq a_664 => GHC.Classes.Eq (UnaryExpr a_664) + +deriving instance GHC.Classes.Ord a_665 => GHC.Classes.Ord (UnaryExpr a_665) + +deriving instance GHC.Show.Show a_666 => GHC.Show.Show (UnaryExpr a_666) + +instance AST.Unmarshal.Unmarshal UnaryExpr + +instance Data.Foldable.Foldable UnaryExpr where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UnaryExpr where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UnaryExpr where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Unop a = Unop + { ann :: a, + extraChildren :: (AST.Parse.Err ((Minus GHC.Generics.:+: Plus) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_667. + AST.Traversable1.Class.Traversable1 a_667 + ) + +instance AST.Unmarshal.SymbolMatching Unop where + matchedSymbols _ = [135] + showFailure _ node_668 = + "expected " + GHC.Base.<> ( "unop" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_668 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_668) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_669 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_670 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_671 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_672 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_669 + c1_670 = TreeSitter.Node.nodeStartPoint node_668 + TreeSitter.Node.TSPoint + r2_671 + c2_672 = TreeSitter.Node.nodeEndPoint node_668 + +deriving instance GHC.Classes.Eq a_673 => GHC.Classes.Eq (Unop a_673) + +deriving instance GHC.Classes.Ord a_674 => GHC.Classes.Ord (Unop a_674) + +deriving instance GHC.Show.Show a_675 => GHC.Show.Show (Unop a_675) + +instance AST.Unmarshal.Unmarshal Unop + +instance Data.Foldable.Foldable Unop where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Unop where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Unop where + traverse = AST.Traversable1.Class.traverseDefault1 + +data VarDecl a = VarDecl + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((TypeExpr GHC.Generics.:+: VarName) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_676. + AST.Traversable1.Class.Traversable1 a_676 + ) + +instance AST.Unmarshal.SymbolMatching VarDecl where + matchedSymbols _ = [140] + showFailure _ node_677 = + "expected " + GHC.Base.<> ( "varDecl" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_677 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_677) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_678 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_679 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_680 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_681 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_678 + c1_679 = TreeSitter.Node.nodeStartPoint node_677 + TreeSitter.Node.TSPoint + r2_680 + c2_681 = TreeSitter.Node.nodeEndPoint node_677 + +deriving instance GHC.Classes.Eq a_682 => GHC.Classes.Eq (VarDecl a_682) + +deriving instance GHC.Classes.Ord a_683 => GHC.Classes.Ord (VarDecl a_683) + +deriving instance GHC.Show.Show a_684 => GHC.Show.Show (VarDecl a_684) + +instance AST.Unmarshal.Unmarshal VarDecl + +instance Data.Foldable.Foldable VarDecl where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor VarDecl where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable VarDecl where + traverse = AST.Traversable1.Class.traverseDefault1 + +data VarName a = VarName {ann :: a, extraChildren :: (AST.Parse.Err (SimpleId a))} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_685. + AST.Traversable1.Class.Traversable1 a_685 + ) + +instance AST.Unmarshal.SymbolMatching VarName where + matchedSymbols _ = [162] + showFailure _ node_686 = + "expected " + GHC.Base.<> ( "varName" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_686 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_686) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_687 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_688 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_689 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_690 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_687 + c1_688 = TreeSitter.Node.nodeStartPoint node_686 + TreeSitter.Node.TSPoint + r2_689 + c2_690 = TreeSitter.Node.nodeEndPoint node_686 + +deriving instance GHC.Classes.Eq a_691 => GHC.Classes.Eq (VarName a_691) + +deriving instance GHC.Classes.Ord a_692 => GHC.Classes.Ord (VarName a_692) + +deriving instance GHC.Show.Show a_693 => GHC.Show.Show (VarName a_693) + +instance AST.Unmarshal.Unmarshal VarName + +instance Data.Foldable.Foldable VarName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor VarName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable VarName where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Variable a = Variable + { ann :: a, + extraChildren :: (AST.Parse.Err ((Result GHC.Generics.:+: This GHC.Generics.:+: VarName) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_694. + AST.Traversable1.Class.Traversable1 a_694 + ) + +instance AST.Unmarshal.SymbolMatching Variable where + matchedSymbols _ = [133] + showFailure _ node_695 = + "expected " + GHC.Base.<> ( "variable" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_695 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_695) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_696 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_697 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_698 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_699 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_696 + c1_697 = TreeSitter.Node.nodeStartPoint node_695 + TreeSitter.Node.TSPoint + r2_698 + c2_699 = TreeSitter.Node.nodeEndPoint node_695 + +deriving instance GHC.Classes.Eq a_700 => GHC.Classes.Eq (Variable a_700) + +deriving instance GHC.Classes.Ord a_701 => GHC.Classes.Ord (Variable a_701) + +deriving instance GHC.Show.Show a_702 => GHC.Show.Show (Variable a_702) + +instance AST.Unmarshal.Unmarshal Variable + +instance Data.Foldable.Foldable Variable where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Variable where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Variable where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousLParen = AST.Token.Token "(" 6 + +type AnonymousRParen = AST.Token.Token ")" 8 + +type AnonymousComma = AST.Token.Token "," 7 + +type AnonymousDot = AST.Token.Token "." 19 + +type AnonymousDotDot = AST.Token.Token ".." 22 + +type AnonymousColonColon = AST.Token.Token "::" 26 + +type AnonymousSemicolon = AST.Token.Token ";" 5 + +type AnonymousLBracket = AST.Token.Token "[" 20 + +type AnonymousRBracket = AST.Token.Token "]" 21 + +type AnonymousAnd = AST.Token.Token "and" 16 + +data Any a = Any {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_703. + AST.Traversable1.Class.Traversable1 a_703 + ) + +instance AST.Unmarshal.SymbolMatching Any where + matchedSymbols _ = [37] + showFailure _ node_704 = + "expected " + GHC.Base.<> ( "any" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_704 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_704) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_705 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_706 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_707 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_708 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_705 + c1_706 = TreeSitter.Node.nodeStartPoint node_704 + TreeSitter.Node.TSPoint + r2_707 + c2_708 = TreeSitter.Node.nodeEndPoint node_704 + +deriving instance GHC.Classes.Eq a_709 => GHC.Classes.Eq (Any a_709) + +deriving instance GHC.Classes.Ord a_710 => GHC.Classes.Ord (Any a_710) + +deriving instance GHC.Show.Show a_711 => GHC.Show.Show (Any a_711) + +instance AST.Unmarshal.Unmarshal Any + +instance Data.Foldable.Foldable Any where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Any where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Any where + traverse = AST.Traversable1.Class.traverseDefault1 + +data As a = As {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_712. + AST.Traversable1.Class.Traversable1 a_712 + ) + +instance AST.Unmarshal.SymbolMatching As where + matchedSymbols _ = [38] + showFailure _ node_713 = + "expected " + GHC.Base.<> ( "as" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_713 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_713) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_714 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_715 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_716 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_717 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_714 + c1_715 = TreeSitter.Node.nodeStartPoint node_713 + TreeSitter.Node.TSPoint + r2_716 + c2_717 = TreeSitter.Node.nodeEndPoint node_713 + +deriving instance GHC.Classes.Eq a_718 => GHC.Classes.Eq (As a_718) + +deriving instance GHC.Classes.Ord a_719 => GHC.Classes.Ord (As a_719) + +deriving instance GHC.Show.Show a_720 => GHC.Show.Show (As a_720) + +instance AST.Unmarshal.Unmarshal As + +instance Data.Foldable.Foldable As where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor As where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable As where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Asc a = Asc {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_721. + AST.Traversable1.Class.Traversable1 a_721 + ) + +instance AST.Unmarshal.SymbolMatching Asc where + matchedSymbols _ = [39] + showFailure _ node_722 = + "expected " + GHC.Base.<> ( "asc" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_722 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_722) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_723 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_724 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_725 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_726 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_723 + c1_724 = TreeSitter.Node.nodeStartPoint node_722 + TreeSitter.Node.TSPoint + r2_725 + c2_726 = TreeSitter.Node.nodeEndPoint node_722 + +deriving instance GHC.Classes.Eq a_727 => GHC.Classes.Eq (Asc a_727) + +deriving instance GHC.Classes.Ord a_728 => GHC.Classes.Ord (Asc a_728) + +deriving instance GHC.Show.Show a_729 => GHC.Show.Show (Asc a_729) + +instance AST.Unmarshal.Unmarshal Asc + +instance Data.Foldable.Foldable Asc where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Asc where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Asc where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Avg a = Avg {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_730. + AST.Traversable1.Class.Traversable1 a_730 + ) + +instance AST.Unmarshal.SymbolMatching Avg where + matchedSymbols _ = [40] + showFailure _ node_731 = + "expected " + GHC.Base.<> ( "avg" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_731 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_731) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_732 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_733 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_734 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_735 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_732 + c1_733 = TreeSitter.Node.nodeStartPoint node_731 + TreeSitter.Node.TSPoint + r2_734 + c2_735 = TreeSitter.Node.nodeEndPoint node_731 + +deriving instance GHC.Classes.Eq a_736 => GHC.Classes.Eq (Avg a_736) + +deriving instance GHC.Classes.Ord a_737 => GHC.Classes.Ord (Avg a_737) + +deriving instance GHC.Show.Show a_738 => GHC.Show.Show (Avg a_738) + +instance AST.Unmarshal.Unmarshal Avg + +instance Data.Foldable.Foldable Avg where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Avg where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Avg where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Boolean a = Boolean {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_739. + AST.Traversable1.Class.Traversable1 a_739 + ) + +instance AST.Unmarshal.SymbolMatching Boolean where + matchedSymbols _ = [41] + showFailure _ node_740 = + "expected " + GHC.Base.<> ( "boolean" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_740 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_740) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_741 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_742 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_743 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_744 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_741 + c1_742 = TreeSitter.Node.nodeStartPoint node_740 + TreeSitter.Node.TSPoint + r2_743 + c2_744 = TreeSitter.Node.nodeEndPoint node_740 + +deriving instance GHC.Classes.Eq a_745 => GHC.Classes.Eq (Boolean a_745) + +deriving instance GHC.Classes.Ord a_746 => GHC.Classes.Ord (Boolean a_746) + +deriving instance GHC.Show.Show a_747 => GHC.Show.Show (Boolean a_747) + +instance AST.Unmarshal.Unmarshal Boolean + +instance Data.Foldable.Foldable Boolean where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Boolean where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Boolean where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousBy = AST.Token.Token "by" 24 + +data Class a = Class {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_748. + AST.Traversable1.Class.Traversable1 a_748 + ) + +instance AST.Unmarshal.SymbolMatching Class where + matchedSymbols _ = [42] + showFailure _ node_749 = + "expected " + GHC.Base.<> ( "class" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_749 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_749) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_750 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_751 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_752 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_753 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_750 + c1_751 = TreeSitter.Node.nodeStartPoint node_749 + TreeSitter.Node.TSPoint + r2_752 + c2_753 = TreeSitter.Node.nodeEndPoint node_749 + +deriving instance GHC.Classes.Eq a_754 => GHC.Classes.Eq (Class a_754) + +deriving instance GHC.Classes.Ord a_755 => GHC.Classes.Ord (Class a_755) + +deriving instance GHC.Show.Show a_756 => GHC.Show.Show (Class a_756) + +instance AST.Unmarshal.Unmarshal Class + +instance Data.Foldable.Foldable Class where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Class where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Class where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Concat a = Concat {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_757. + AST.Traversable1.Class.Traversable1 a_757 + ) + +instance AST.Unmarshal.SymbolMatching Concat where + matchedSymbols _ = [65] + showFailure _ node_758 = + "expected " + GHC.Base.<> ( "concat" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_758 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_758) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_759 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_760 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_761 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_762 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_759 + c1_760 = TreeSitter.Node.nodeStartPoint node_758 + TreeSitter.Node.TSPoint + r2_761 + c2_762 = TreeSitter.Node.nodeEndPoint node_758 + +deriving instance GHC.Classes.Eq a_763 => GHC.Classes.Eq (Concat a_763) + +deriving instance GHC.Classes.Ord a_764 => GHC.Classes.Ord (Concat a_764) + +deriving instance GHC.Show.Show a_765 => GHC.Show.Show (Concat a_765) + +instance AST.Unmarshal.Unmarshal Concat + +instance Data.Foldable.Foldable Concat where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Concat where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Concat where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Count a = Count {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_766. + AST.Traversable1.Class.Traversable1 a_766 + ) + +instance AST.Unmarshal.SymbolMatching Count where + matchedSymbols _ = [44] + showFailure _ node_767 = + "expected " + GHC.Base.<> ( "count" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_767 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_767) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_768 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_769 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_770 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_771 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_768 + c1_769 = TreeSitter.Node.nodeStartPoint node_767 + TreeSitter.Node.TSPoint + r2_770 + c2_771 = TreeSitter.Node.nodeEndPoint node_767 + +deriving instance GHC.Classes.Eq a_772 => GHC.Classes.Eq (Count a_772) + +deriving instance GHC.Classes.Ord a_773 => GHC.Classes.Ord (Count a_773) + +deriving instance GHC.Show.Show a_774 => GHC.Show.Show (Count a_774) + +instance AST.Unmarshal.Unmarshal Count + +instance Data.Foldable.Foldable Count where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Count where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Count where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Date a = Date {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_775. + AST.Traversable1.Class.Traversable1 a_775 + ) + +instance AST.Unmarshal.SymbolMatching Date where + matchedSymbols _ = [45] + showFailure _ node_776 = + "expected " + GHC.Base.<> ( "date" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_776 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_776) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_777 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_778 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_779 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_780 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_777 + c1_778 = TreeSitter.Node.nodeStartPoint node_776 + TreeSitter.Node.TSPoint + r2_779 + c2_780 = TreeSitter.Node.nodeEndPoint node_776 + +deriving instance GHC.Classes.Eq a_781 => GHC.Classes.Eq (Date a_781) + +deriving instance GHC.Classes.Ord a_782 => GHC.Classes.Ord (Date a_782) + +deriving instance GHC.Show.Show a_783 => GHC.Show.Show (Date a_783) + +instance AST.Unmarshal.Unmarshal Date + +instance Data.Foldable.Foldable Date where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Date where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Date where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Desc a = Desc {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_784. + AST.Traversable1.Class.Traversable1 a_784 + ) + +instance AST.Unmarshal.SymbolMatching Desc where + matchedSymbols _ = [46] + showFailure _ node_785 = + "expected " + GHC.Base.<> ( "desc" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_785 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_785) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_786 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_787 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_788 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_789 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_786 + c1_787 = TreeSitter.Node.nodeStartPoint node_785 + TreeSitter.Node.TSPoint + r2_788 + c2_789 = TreeSitter.Node.nodeEndPoint node_785 + +deriving instance GHC.Classes.Eq a_790 => GHC.Classes.Eq (Desc a_790) + +deriving instance GHC.Classes.Ord a_791 => GHC.Classes.Ord (Desc a_791) + +deriving instance GHC.Show.Show a_792 => GHC.Show.Show (Desc a_792) + +instance AST.Unmarshal.Unmarshal Desc + +instance Data.Foldable.Foldable Desc where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Desc where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Desc where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousElse = AST.Token.Token "else" 15 + +data Eq a = Eq {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_793. + AST.Traversable1.Class.Traversable1 a_793 + ) + +instance AST.Unmarshal.SymbolMatching Eq where + matchedSymbols _ = [72] + showFailure _ node_794 = + "expected " + GHC.Base.<> ( "eq" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_794 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_794) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_795 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_796 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_797 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_798 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_795 + c1_796 = TreeSitter.Node.nodeStartPoint node_794 + TreeSitter.Node.TSPoint + r2_797 + c2_798 = TreeSitter.Node.nodeEndPoint node_794 + +deriving instance GHC.Classes.Eq a_799 => GHC.Classes.Eq (Eq a_799) + +deriving instance GHC.Classes.Ord a_800 => GHC.Classes.Ord (Eq a_800) + +deriving instance GHC.Show.Show a_801 => GHC.Show.Show (Eq a_801) + +instance AST.Unmarshal.Unmarshal Eq + +instance Data.Foldable.Foldable Eq where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Eq where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Eq where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Exists a = Exists {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_802. + AST.Traversable1.Class.Traversable1 a_802 + ) + +instance AST.Unmarshal.SymbolMatching Exists where + matchedSymbols _ = [47] + showFailure _ node_803 = + "expected " + GHC.Base.<> ( "exists" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_803 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_803) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_804 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_805 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_806 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_807 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_804 + c1_805 = TreeSitter.Node.nodeStartPoint node_803 + TreeSitter.Node.TSPoint + r2_806 + c2_807 = TreeSitter.Node.nodeEndPoint node_803 + +deriving instance GHC.Classes.Eq a_808 => GHC.Classes.Eq (Exists a_808) + +deriving instance GHC.Classes.Ord a_809 => GHC.Classes.Ord (Exists a_809) + +deriving instance GHC.Show.Show a_810 => GHC.Show.Show (Exists a_810) + +instance AST.Unmarshal.Unmarshal Exists + +instance Data.Foldable.Foldable Exists where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Exists where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Exists where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Extends a = Extends {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_811. + AST.Traversable1.Class.Traversable1 a_811 + ) + +instance AST.Unmarshal.SymbolMatching Extends where + matchedSymbols _ = [48] + showFailure _ node_812 = + "expected " + GHC.Base.<> ( "extends" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_812 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_812) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_813 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_814 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_815 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_816 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_813 + c1_814 = TreeSitter.Node.nodeStartPoint node_812 + TreeSitter.Node.TSPoint + r2_815 + c2_816 = TreeSitter.Node.nodeEndPoint node_812 + +deriving instance GHC.Classes.Eq a_817 => GHC.Classes.Eq (Extends a_817) + +deriving instance GHC.Classes.Ord a_818 => GHC.Classes.Ord (Extends a_818) + +deriving instance GHC.Show.Show a_819 => GHC.Show.Show (Extends a_819) + +instance AST.Unmarshal.Unmarshal Extends + +instance Data.Foldable.Foldable Extends where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Extends where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Extends where + traverse = AST.Traversable1.Class.traverseDefault1 + +data False a = False {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_820. + AST.Traversable1.Class.Traversable1 a_820 + ) + +instance AST.Unmarshal.SymbolMatching False where + matchedSymbols _ = [49] + showFailure _ node_821 = + "expected " + GHC.Base.<> ( "false" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_821 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_821) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_822 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_823 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_824 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_825 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_822 + c1_823 = TreeSitter.Node.nodeStartPoint node_821 + TreeSitter.Node.TSPoint + r2_824 + c2_825 = TreeSitter.Node.nodeEndPoint node_821 + +deriving instance GHC.Classes.Eq a_826 => GHC.Classes.Eq (False a_826) + +deriving instance GHC.Classes.Ord a_827 => GHC.Classes.Ord (False a_827) + +deriving instance GHC.Show.Show a_828 => GHC.Show.Show (False a_828) + +instance AST.Unmarshal.Unmarshal False + +instance Data.Foldable.Foldable False where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor False where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable False where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousFloat = AST.Token.Token "float" 27 + +data Float a = Float {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_829. + AST.Traversable1.Class.Traversable1 a_829 + ) + +instance AST.Unmarshal.SymbolMatching Float where + matchedSymbols _ = [33] + showFailure _ node_830 = + "expected " + GHC.Base.<> ( "float" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_830 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_830) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_831 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_832 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_833 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_834 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_831 + c1_832 = TreeSitter.Node.nodeStartPoint node_830 + TreeSitter.Node.TSPoint + r2_833 + c2_834 = TreeSitter.Node.nodeEndPoint node_830 + +deriving instance GHC.Classes.Eq a_835 => GHC.Classes.Eq (Float a_835) + +deriving instance GHC.Classes.Ord a_836 => GHC.Classes.Ord (Float a_836) + +deriving instance GHC.Show.Show a_837 => GHC.Show.Show (Float a_837) + +instance AST.Unmarshal.Unmarshal Float + +instance Data.Foldable.Foldable Float where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Float where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Float where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Forall a = Forall {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_838. + AST.Traversable1.Class.Traversable1 a_838 + ) + +instance AST.Unmarshal.SymbolMatching Forall where + matchedSymbols _ = [50] + showFailure _ node_839 = + "expected " + GHC.Base.<> ( "forall" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_839 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_839) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_840 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_841 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_842 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_843 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_840 + c1_841 = TreeSitter.Node.nodeStartPoint node_839 + TreeSitter.Node.TSPoint + r2_842 + c2_843 = TreeSitter.Node.nodeEndPoint node_839 + +deriving instance GHC.Classes.Eq a_844 => GHC.Classes.Eq (Forall a_844) + +deriving instance GHC.Classes.Ord a_845 => GHC.Classes.Ord (Forall a_845) + +deriving instance GHC.Show.Show a_846 => GHC.Show.Show (Forall a_846) + +instance AST.Unmarshal.Unmarshal Forall + +instance Data.Foldable.Foldable Forall where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Forall where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Forall where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Forex a = Forex {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_847. + AST.Traversable1.Class.Traversable1 a_847 + ) + +instance AST.Unmarshal.SymbolMatching Forex where + matchedSymbols _ = [51] + showFailure _ node_848 = + "expected " + GHC.Base.<> ( "forex" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_848 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_848) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_849 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_850 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_851 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_852 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_849 + c1_850 = TreeSitter.Node.nodeStartPoint node_848 + TreeSitter.Node.TSPoint + r2_851 + c2_852 = TreeSitter.Node.nodeEndPoint node_848 + +deriving instance GHC.Classes.Eq a_853 => GHC.Classes.Eq (Forex a_853) + +deriving instance GHC.Classes.Ord a_854 => GHC.Classes.Ord (Forex a_854) + +deriving instance GHC.Show.Show a_855 => GHC.Show.Show (Forex a_855) + +instance AST.Unmarshal.Unmarshal Forex + +instance Data.Foldable.Foldable Forex where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Forex where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Forex where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousFrom = AST.Token.Token "from" 10 + +data Ge a = Ge {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_856. + AST.Traversable1.Class.Traversable1 a_856 + ) + +instance AST.Unmarshal.SymbolMatching Ge where + matchedSymbols _ = [74] + showFailure _ node_857 = + "expected " + GHC.Base.<> ( "ge" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_857 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_857) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_858 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_859 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_860 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_861 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_858 + c1_859 = TreeSitter.Node.nodeStartPoint node_857 + TreeSitter.Node.TSPoint + r2_860 + c2_861 = TreeSitter.Node.nodeEndPoint node_857 + +deriving instance GHC.Classes.Eq a_862 => GHC.Classes.Eq (Ge a_862) + +deriving instance GHC.Classes.Ord a_863 => GHC.Classes.Ord (Ge a_863) + +deriving instance GHC.Show.Show a_864 => GHC.Show.Show (Ge a_864) + +instance AST.Unmarshal.Unmarshal Ge + +instance Data.Foldable.Foldable Ge where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Ge where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Ge where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Gt a = Gt {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_865. + AST.Traversable1.Class.Traversable1 a_865 + ) + +instance AST.Unmarshal.SymbolMatching Gt where + matchedSymbols _ = [73] + showFailure _ node_866 = + "expected " + GHC.Base.<> ( "gt" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_866 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_866) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_867 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_868 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_869 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_870 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_867 + c1_868 = TreeSitter.Node.nodeStartPoint node_866 + TreeSitter.Node.TSPoint + r2_869 + c2_870 = TreeSitter.Node.nodeEndPoint node_866 + +deriving instance GHC.Classes.Eq a_871 => GHC.Classes.Eq (Gt a_871) + +deriving instance GHC.Classes.Ord a_872 => GHC.Classes.Ord (Gt a_872) + +deriving instance GHC.Show.Show a_873 => GHC.Show.Show (Gt a_873) + +instance AST.Unmarshal.Unmarshal Gt + +instance Data.Foldable.Foldable Gt where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Gt where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Gt where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousIf = AST.Token.Token "if" 13 + +type AnonymousImplies = AST.Token.Token "implies" 17 + +data Import a = Import {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_874. + AST.Traversable1.Class.Traversable1 a_874 + ) + +instance AST.Unmarshal.SymbolMatching Import where + matchedSymbols _ = [52] + showFailure _ node_875 = + "expected " + GHC.Base.<> ( "import" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_875 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_875) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_876 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_877 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_878 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_879 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_876 + c1_877 = TreeSitter.Node.nodeStartPoint node_875 + TreeSitter.Node.TSPoint + r2_878 + c2_879 = TreeSitter.Node.nodeEndPoint node_875 + +deriving instance GHC.Classes.Eq a_880 => GHC.Classes.Eq (Import a_880) + +deriving instance GHC.Classes.Ord a_881 => GHC.Classes.Ord (Import a_881) + +deriving instance GHC.Show.Show a_882 => GHC.Show.Show (Import a_882) + +instance AST.Unmarshal.Unmarshal Import + +instance Data.Foldable.Foldable Import where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Import where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Import where + traverse = AST.Traversable1.Class.traverseDefault1 + +data In a = In {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_883. + AST.Traversable1.Class.Traversable1 a_883 + ) + +instance AST.Unmarshal.SymbolMatching In where + matchedSymbols _ = [53] + showFailure _ node_884 = + "expected " + GHC.Base.<> ( "in" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_884 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_884) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_885 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_886 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_887 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_888 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_885 + c1_886 = TreeSitter.Node.nodeStartPoint node_884 + TreeSitter.Node.TSPoint + r2_887 + c2_888 = TreeSitter.Node.nodeEndPoint node_884 + +deriving instance GHC.Classes.Eq a_889 => GHC.Classes.Eq (In a_889) + +deriving instance GHC.Classes.Ord a_890 => GHC.Classes.Ord (In a_890) + +deriving instance GHC.Show.Show a_891 => GHC.Show.Show (In a_891) + +instance AST.Unmarshal.Unmarshal In + +instance Data.Foldable.Foldable In where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor In where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable In where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Instanceof a = Instanceof {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_892. + AST.Traversable1.Class.Traversable1 a_892 + ) + +instance AST.Unmarshal.SymbolMatching Instanceof where + matchedSymbols _ = [54] + showFailure _ node_893 = + "expected " + GHC.Base.<> ( "instanceof" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_893 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_893) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_894 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_895 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_896 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_897 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_894 + c1_895 = TreeSitter.Node.nodeStartPoint node_893 + TreeSitter.Node.TSPoint + r2_896 + c2_897 = TreeSitter.Node.nodeEndPoint node_893 + +deriving instance GHC.Classes.Eq a_898 => GHC.Classes.Eq (Instanceof a_898) + +deriving instance GHC.Classes.Ord a_899 => GHC.Classes.Ord (Instanceof a_899) + +deriving instance GHC.Show.Show a_900 => GHC.Show.Show (Instanceof a_900) + +instance AST.Unmarshal.Unmarshal Instanceof + +instance Data.Foldable.Foldable Instanceof where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Instanceof where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Instanceof where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousInt = AST.Token.Token "int" 28 + +data Integer a = Integer {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_901. + AST.Traversable1.Class.Traversable1 a_901 + ) + +instance AST.Unmarshal.SymbolMatching Integer where + matchedSymbols _ = [32] + showFailure _ node_902 = + "expected " + GHC.Base.<> ( "integer" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_902 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_902) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_903 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_904 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_905 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_906 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_903 + c1_904 = TreeSitter.Node.nodeStartPoint node_902 + TreeSitter.Node.TSPoint + r2_905 + c2_906 = TreeSitter.Node.nodeEndPoint node_902 + +deriving instance GHC.Classes.Eq a_907 => GHC.Classes.Eq (Integer a_907) + +deriving instance GHC.Classes.Ord a_908 => GHC.Classes.Ord (Integer a_908) + +deriving instance GHC.Show.Show a_909 => GHC.Show.Show (Integer a_909) + +instance AST.Unmarshal.Unmarshal Integer + +instance Data.Foldable.Foldable Integer where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Integer where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Integer where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Le a = Le {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_910. + AST.Traversable1.Class.Traversable1 a_910 + ) + +instance AST.Unmarshal.SymbolMatching Le where + matchedSymbols _ = [71] + showFailure _ node_911 = + "expected " + GHC.Base.<> ( "le" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_911 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_911) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_912 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_913 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_914 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_915 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_912 + c1_913 = TreeSitter.Node.nodeStartPoint node_911 + TreeSitter.Node.TSPoint + r2_914 + c2_915 = TreeSitter.Node.nodeEndPoint node_911 + +deriving instance GHC.Classes.Eq a_916 => GHC.Classes.Eq (Le a_916) + +deriving instance GHC.Classes.Ord a_917 => GHC.Classes.Ord (Le a_917) + +deriving instance GHC.Show.Show a_918 => GHC.Show.Show (Le a_918) + +instance AST.Unmarshal.Unmarshal Le + +instance Data.Foldable.Foldable Le where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Le where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Le where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Lt a = Lt {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_919. + AST.Traversable1.Class.Traversable1 a_919 + ) + +instance AST.Unmarshal.SymbolMatching Lt where + matchedSymbols _ = [70] + showFailure _ node_920 = + "expected " + GHC.Base.<> ( "lt" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_920 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_920) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_921 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_922 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_923 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_924 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_921 + c1_922 = TreeSitter.Node.nodeStartPoint node_920 + TreeSitter.Node.TSPoint + r2_923 + c2_924 = TreeSitter.Node.nodeEndPoint node_920 + +deriving instance GHC.Classes.Eq a_925 => GHC.Classes.Eq (Lt a_925) + +deriving instance GHC.Classes.Ord a_926 => GHC.Classes.Ord (Lt a_926) + +deriving instance GHC.Show.Show a_927 => GHC.Show.Show (Lt a_927) + +instance AST.Unmarshal.Unmarshal Lt + +instance Data.Foldable.Foldable Lt where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Lt where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Lt where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Max a = Max {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_928. + AST.Traversable1.Class.Traversable1 a_928 + ) + +instance AST.Unmarshal.SymbolMatching Max where + matchedSymbols _ = [55] + showFailure _ node_929 = + "expected " + GHC.Base.<> ( "max" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_929 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_929) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_930 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_931 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_932 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_933 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_930 + c1_931 = TreeSitter.Node.nodeStartPoint node_929 + TreeSitter.Node.TSPoint + r2_932 + c2_933 = TreeSitter.Node.nodeEndPoint node_929 + +deriving instance GHC.Classes.Eq a_934 => GHC.Classes.Eq (Max a_934) + +deriving instance GHC.Classes.Ord a_935 => GHC.Classes.Ord (Max a_935) + +deriving instance GHC.Show.Show a_936 => GHC.Show.Show (Max a_936) + +instance AST.Unmarshal.Unmarshal Max + +instance Data.Foldable.Foldable Max where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Max where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Max where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Min a = Min {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_937. + AST.Traversable1.Class.Traversable1 a_937 + ) + +instance AST.Unmarshal.SymbolMatching Min where + matchedSymbols _ = [56] + showFailure _ node_938 = + "expected " + GHC.Base.<> ( "min" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_938 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_938) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_939 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_940 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_941 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_942 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_939 + c1_940 = TreeSitter.Node.nodeStartPoint node_938 + TreeSitter.Node.TSPoint + r2_941 + c2_942 = TreeSitter.Node.nodeEndPoint node_938 + +deriving instance GHC.Classes.Eq a_943 => GHC.Classes.Eq (Min a_943) + +deriving instance GHC.Classes.Ord a_944 => GHC.Classes.Ord (Min a_944) + +deriving instance GHC.Show.Show a_945 => GHC.Show.Show (Min a_945) + +instance AST.Unmarshal.Unmarshal Min + +instance Data.Foldable.Foldable Min where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Min where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Min where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Minus a = Minus {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_946. + AST.Traversable1.Class.Traversable1 a_946 + ) + +instance AST.Unmarshal.SymbolMatching Minus where + matchedSymbols _ = [76] + showFailure _ node_947 = + "expected " + GHC.Base.<> ( "minus" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_947 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_947) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_948 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_949 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_950 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_951 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_948 + c1_949 = TreeSitter.Node.nodeStartPoint node_947 + TreeSitter.Node.TSPoint + r2_950 + c2_951 = TreeSitter.Node.nodeEndPoint node_947 + +deriving instance GHC.Classes.Eq a_952 => GHC.Classes.Eq (Minus a_952) + +deriving instance GHC.Classes.Ord a_953 => GHC.Classes.Ord (Minus a_953) + +deriving instance GHC.Show.Show a_954 => GHC.Show.Show (Minus a_954) + +instance AST.Unmarshal.Unmarshal Minus + +instance Data.Foldable.Foldable Minus where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Minus where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Minus where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Mod a = Mod {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_955. + AST.Traversable1.Class.Traversable1 a_955 + ) + +instance AST.Unmarshal.SymbolMatching Mod where + matchedSymbols _ = [80] + showFailure _ node_956 = + "expected " + GHC.Base.<> ( "mod" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_956 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_956) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_957 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_958 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_959 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_960 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_957 + c1_958 = TreeSitter.Node.nodeStartPoint node_956 + TreeSitter.Node.TSPoint + r2_959 + c2_960 = TreeSitter.Node.nodeEndPoint node_956 + +deriving instance GHC.Classes.Eq a_961 => GHC.Classes.Eq (Mod a_961) + +deriving instance GHC.Classes.Ord a_962 => GHC.Classes.Ord (Mod a_962) + +deriving instance GHC.Show.Show a_963 => GHC.Show.Show (Mod a_963) + +instance AST.Unmarshal.Unmarshal Mod + +instance Data.Foldable.Foldable Mod where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Mod where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Mod where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousModule = AST.Token.Token "module" 2 + +data Ne a = Ne {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_964. + AST.Traversable1.Class.Traversable1 a_964 + ) + +instance AST.Unmarshal.SymbolMatching Ne where + matchedSymbols _ = [77] + showFailure _ node_965 = + "expected " + GHC.Base.<> ( "ne" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_965 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_965) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_966 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_967 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_968 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_969 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_966 + c1_967 = TreeSitter.Node.nodeStartPoint node_965 + TreeSitter.Node.TSPoint + r2_968 + c2_969 = TreeSitter.Node.nodeEndPoint node_965 + +deriving instance GHC.Classes.Eq a_970 => GHC.Classes.Eq (Ne a_970) + +deriving instance GHC.Classes.Ord a_971 => GHC.Classes.Ord (Ne a_971) + +deriving instance GHC.Show.Show a_972 => GHC.Show.Show (Ne a_972) + +instance AST.Unmarshal.Unmarshal Ne + +instance Data.Foldable.Foldable Ne where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Ne where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Ne where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Newtype a = Newtype {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_973. + AST.Traversable1.Class.Traversable1 a_973 + ) + +instance AST.Unmarshal.SymbolMatching Newtype where + matchedSymbols _ = [43] + showFailure _ node_974 = + "expected " + GHC.Base.<> ( "newtype" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_974 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_974) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_975 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_976 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_977 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_978 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_975 + c1_976 = TreeSitter.Node.nodeStartPoint node_974 + TreeSitter.Node.TSPoint + r2_977 + c2_978 = TreeSitter.Node.nodeEndPoint node_974 + +deriving instance GHC.Classes.Eq a_979 => GHC.Classes.Eq (Newtype a_979) + +deriving instance GHC.Classes.Ord a_980 => GHC.Classes.Ord (Newtype a_980) + +deriving instance GHC.Show.Show a_981 => GHC.Show.Show (Newtype a_981) + +instance AST.Unmarshal.Unmarshal Newtype + +instance Data.Foldable.Foldable Newtype where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Newtype where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Newtype where + traverse = AST.Traversable1.Class.traverseDefault1 + +data None a = None {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_982. + AST.Traversable1.Class.Traversable1 a_982 + ) + +instance AST.Unmarshal.SymbolMatching None where + matchedSymbols _ = [58] + showFailure _ node_983 = + "expected " + GHC.Base.<> ( "none" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_983 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_983) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_984 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_985 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_986 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_987 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_984 + c1_985 = TreeSitter.Node.nodeStartPoint node_983 + TreeSitter.Node.TSPoint + r2_986 + c2_987 = TreeSitter.Node.nodeEndPoint node_983 + +deriving instance GHC.Classes.Eq a_988 => GHC.Classes.Eq (None a_988) + +deriving instance GHC.Classes.Ord a_989 => GHC.Classes.Ord (None a_989) + +deriving instance GHC.Show.Show a_990 => GHC.Show.Show (None a_990) + +instance AST.Unmarshal.Unmarshal None + +instance Data.Foldable.Foldable None where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor None where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable None where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Not a = Not {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_991. + AST.Traversable1.Class.Traversable1 a_991 + ) + +instance AST.Unmarshal.SymbolMatching Not where + matchedSymbols _ = [57] + showFailure _ node_992 = + "expected " + GHC.Base.<> ( "not" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_992 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_992) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_993 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_994 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_995 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_996 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_993 + c1_994 = TreeSitter.Node.nodeStartPoint node_992 + TreeSitter.Node.TSPoint + r2_995 + c2_996 = TreeSitter.Node.nodeEndPoint node_992 + +deriving instance GHC.Classes.Eq a_997 => GHC.Classes.Eq (Not a_997) + +deriving instance GHC.Classes.Ord a_998 => GHC.Classes.Ord (Not a_998) + +deriving instance GHC.Show.Show a_999 => GHC.Show.Show (Not a_999) + +instance AST.Unmarshal.Unmarshal Not + +instance Data.Foldable.Foldable Not where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Not where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Not where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousOr = AST.Token.Token "or" 9 + +type AnonymousOrder = AST.Token.Token "order" 23 + +data Plus a = Plus {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1000. + AST.Traversable1.Class.Traversable1 a_1000 + ) + +instance AST.Unmarshal.SymbolMatching Plus where + matchedSymbols _ = [81] + showFailure _ node_1001 = + "expected " + GHC.Base.<> ( "plus" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1001 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1001) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1002 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1003 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1004 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1005 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1002 + c1_1003 = TreeSitter.Node.nodeStartPoint node_1001 + TreeSitter.Node.TSPoint + r2_1004 + c2_1005 = TreeSitter.Node.nodeEndPoint node_1001 + +deriving instance GHC.Classes.Eq a_1006 => GHC.Classes.Eq (Plus a_1006) + +deriving instance GHC.Classes.Ord a_1007 => GHC.Classes.Ord (Plus a_1007) + +deriving instance GHC.Show.Show a_1008 => GHC.Show.Show (Plus a_1008) + +instance AST.Unmarshal.Unmarshal Plus + +instance Data.Foldable.Foldable Plus where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Plus where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Plus where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Predicate a = Predicate {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1009. + AST.Traversable1.Class.Traversable1 a_1009 + ) + +instance AST.Unmarshal.SymbolMatching Predicate where + matchedSymbols _ = [59] + showFailure _ node_1010 = + "expected " + GHC.Base.<> ( "predicate" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1010 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1010) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1011 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1012 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1013 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1014 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1011 + c1_1012 = TreeSitter.Node.nodeStartPoint node_1010 + TreeSitter.Node.TSPoint + r2_1013 + c2_1014 = TreeSitter.Node.nodeEndPoint node_1010 + +deriving instance GHC.Classes.Eq a_1015 => GHC.Classes.Eq (Predicate a_1015) + +deriving instance GHC.Classes.Ord a_1016 => GHC.Classes.Ord (Predicate a_1016) + +deriving instance GHC.Show.Show a_1017 => GHC.Show.Show (Predicate a_1017) + +instance AST.Unmarshal.Unmarshal Predicate + +instance Data.Foldable.Foldable Predicate where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Predicate where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Predicate where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Qldoc a = Qldoc {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1018. + AST.Traversable1.Class.Traversable1 a_1018 + ) + +instance AST.Unmarshal.SymbolMatching Qldoc where + matchedSymbols _ = [25] + showFailure _ node_1019 = + "expected " + GHC.Base.<> ( "qldoc" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1019 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1019) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1020 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1021 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1022 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1023 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1020 + c1_1021 = TreeSitter.Node.nodeStartPoint node_1019 + TreeSitter.Node.TSPoint + r2_1022 + c2_1023 = TreeSitter.Node.nodeEndPoint node_1019 + +deriving instance GHC.Classes.Eq a_1024 => GHC.Classes.Eq (Qldoc a_1024) + +deriving instance GHC.Classes.Ord a_1025 => GHC.Classes.Ord (Qldoc a_1025) + +deriving instance GHC.Show.Show a_1026 => GHC.Show.Show (Qldoc a_1026) + +instance AST.Unmarshal.Unmarshal Qldoc + +instance Data.Foldable.Foldable Qldoc where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Qldoc where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Qldoc where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Rank a = Rank {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1027. + AST.Traversable1.Class.Traversable1 a_1027 + ) + +instance AST.Unmarshal.SymbolMatching Rank where + matchedSymbols _ = [60] + showFailure _ node_1028 = + "expected " + GHC.Base.<> ( "rank" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1028 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1028) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1029 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1030 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1031 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1032 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1029 + c1_1030 = TreeSitter.Node.nodeStartPoint node_1028 + TreeSitter.Node.TSPoint + r2_1031 + c2_1032 = TreeSitter.Node.nodeEndPoint node_1028 + +deriving instance GHC.Classes.Eq a_1033 => GHC.Classes.Eq (Rank a_1033) + +deriving instance GHC.Classes.Ord a_1034 => GHC.Classes.Ord (Rank a_1034) + +deriving instance GHC.Show.Show a_1035 => GHC.Show.Show (Rank a_1035) + +instance AST.Unmarshal.Unmarshal Rank + +instance Data.Foldable.Foldable Rank where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Rank where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Rank where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Result a = Result {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1036. + AST.Traversable1.Class.Traversable1 a_1036 + ) + +instance AST.Unmarshal.SymbolMatching Result where + matchedSymbols _ = [61] + showFailure _ node_1037 = + "expected " + GHC.Base.<> ( "result" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1037 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1037) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1038 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1039 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1040 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1041 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1038 + c1_1039 = TreeSitter.Node.nodeStartPoint node_1037 + TreeSitter.Node.TSPoint + r2_1040 + c2_1041 = TreeSitter.Node.nodeEndPoint node_1037 + +deriving instance GHC.Classes.Eq a_1042 => GHC.Classes.Eq (Result a_1042) + +deriving instance GHC.Classes.Ord a_1043 => GHC.Classes.Ord (Result a_1043) + +deriving instance GHC.Show.Show a_1044 => GHC.Show.Show (Result a_1044) + +instance AST.Unmarshal.Unmarshal Result + +instance Data.Foldable.Foldable Result where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Result where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Result where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousSelect = AST.Token.Token "select" 12 + +data Slash a = Slash {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1045. + AST.Traversable1.Class.Traversable1 a_1045 + ) + +instance AST.Unmarshal.SymbolMatching Slash where + matchedSymbols _ = [78] + showFailure _ node_1046 = + "expected " + GHC.Base.<> ( "slash" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1046 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1046) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1047 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1048 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1049 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1050 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1047 + c1_1048 = TreeSitter.Node.nodeStartPoint node_1046 + TreeSitter.Node.TSPoint + r2_1049 + c2_1050 = TreeSitter.Node.nodeEndPoint node_1046 + +deriving instance GHC.Classes.Eq a_1051 => GHC.Classes.Eq (Slash a_1051) + +deriving instance GHC.Classes.Ord a_1052 => GHC.Classes.Ord (Slash a_1052) + +deriving instance GHC.Show.Show a_1053 => GHC.Show.Show (Slash a_1053) + +instance AST.Unmarshal.Unmarshal Slash + +instance Data.Foldable.Foldable Slash where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Slash where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Slash where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Star a = Star {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1054. + AST.Traversable1.Class.Traversable1 a_1054 + ) + +instance AST.Unmarshal.SymbolMatching Star where + matchedSymbols _ = [79] + showFailure _ node_1055 = + "expected " + GHC.Base.<> ( "star" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1055 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1055) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1056 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1057 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1058 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1059 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1056 + c1_1057 = TreeSitter.Node.nodeStartPoint node_1055 + TreeSitter.Node.TSPoint + r2_1058 + c2_1059 = TreeSitter.Node.nodeEndPoint node_1055 + +deriving instance GHC.Classes.Eq a_1060 => GHC.Classes.Eq (Star a_1060) + +deriving instance GHC.Classes.Ord a_1061 => GHC.Classes.Ord (Star a_1061) + +deriving instance GHC.Show.Show a_1062 => GHC.Show.Show (Star a_1062) + +instance AST.Unmarshal.Unmarshal Star + +instance Data.Foldable.Foldable Star where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Star where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Star where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Strictconcat a = Strictconcat {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1063. + AST.Traversable1.Class.Traversable1 a_1063 + ) + +instance AST.Unmarshal.SymbolMatching Strictconcat where + matchedSymbols _ = [64] + showFailure _ node_1064 = + "expected " + GHC.Base.<> ( "strictconcat" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1064 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1064) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1065 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1066 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1067 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1068 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1065 + c1_1066 = TreeSitter.Node.nodeStartPoint node_1064 + TreeSitter.Node.TSPoint + r2_1067 + c2_1068 = TreeSitter.Node.nodeEndPoint node_1064 + +deriving instance GHC.Classes.Eq a_1069 => GHC.Classes.Eq (Strictconcat a_1069) + +deriving instance GHC.Classes.Ord a_1070 => GHC.Classes.Ord (Strictconcat a_1070) + +deriving instance GHC.Show.Show a_1071 => GHC.Show.Show (Strictconcat a_1071) + +instance AST.Unmarshal.Unmarshal Strictconcat + +instance Data.Foldable.Foldable Strictconcat where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Strictconcat where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Strictconcat where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Strictcount a = Strictcount {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1072. + AST.Traversable1.Class.Traversable1 a_1072 + ) + +instance AST.Unmarshal.SymbolMatching Strictcount where + matchedSymbols _ = [62] + showFailure _ node_1073 = + "expected " + GHC.Base.<> ( "strictcount" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1073 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1073) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1074 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1075 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1076 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1077 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1074 + c1_1075 = TreeSitter.Node.nodeStartPoint node_1073 + TreeSitter.Node.TSPoint + r2_1076 + c2_1077 = TreeSitter.Node.nodeEndPoint node_1073 + +deriving instance GHC.Classes.Eq a_1078 => GHC.Classes.Eq (Strictcount a_1078) + +deriving instance GHC.Classes.Ord a_1079 => GHC.Classes.Ord (Strictcount a_1079) + +deriving instance GHC.Show.Show a_1080 => GHC.Show.Show (Strictcount a_1080) + +instance AST.Unmarshal.Unmarshal Strictcount + +instance Data.Foldable.Foldable Strictcount where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Strictcount where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Strictcount where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Strictsum a = Strictsum {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1081. + AST.Traversable1.Class.Traversable1 a_1081 + ) + +instance AST.Unmarshal.SymbolMatching Strictsum where + matchedSymbols _ = [63] + showFailure _ node_1082 = + "expected " + GHC.Base.<> ( "strictsum" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1082 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1082) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1083 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1084 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1085 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1086 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1083 + c1_1084 = TreeSitter.Node.nodeStartPoint node_1082 + TreeSitter.Node.TSPoint + r2_1085 + c2_1086 = TreeSitter.Node.nodeEndPoint node_1082 + +deriving instance GHC.Classes.Eq a_1087 => GHC.Classes.Eq (Strictsum a_1087) + +deriving instance GHC.Classes.Ord a_1088 => GHC.Classes.Ord (Strictsum a_1088) + +deriving instance GHC.Show.Show a_1089 => GHC.Show.Show (Strictsum a_1089) + +instance AST.Unmarshal.Unmarshal Strictsum + +instance Data.Foldable.Foldable Strictsum where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Strictsum where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Strictsum where + traverse = AST.Traversable1.Class.traverseDefault1 + +data String a = String {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1090. + AST.Traversable1.Class.Traversable1 a_1090 + ) + +instance AST.Unmarshal.SymbolMatching String where + matchedSymbols _ = [34] + showFailure _ node_1091 = + "expected " + GHC.Base.<> ( "string" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1091 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1091) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1092 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1093 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1094 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1095 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1092 + c1_1093 = TreeSitter.Node.nodeStartPoint node_1091 + TreeSitter.Node.TSPoint + r2_1094 + c2_1095 = TreeSitter.Node.nodeEndPoint node_1091 + +deriving instance GHC.Classes.Eq a_1096 => GHC.Classes.Eq (String a_1096) + +deriving instance GHC.Classes.Ord a_1097 => GHC.Classes.Ord (String a_1097) + +deriving instance GHC.Show.Show a_1098 => GHC.Show.Show (String a_1098) + +instance AST.Unmarshal.Unmarshal String + +instance Data.Foldable.Foldable String where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor String where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable String where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousString = AST.Token.Token "string" 29 + +data Sum a = Sum {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1099. + AST.Traversable1.Class.Traversable1 a_1099 + ) + +instance AST.Unmarshal.SymbolMatching Sum where + matchedSymbols _ = [66] + showFailure _ node_1100 = + "expected " + GHC.Base.<> ( "sum" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1100 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1100) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1101 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1102 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1103 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1104 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1101 + c1_1102 = TreeSitter.Node.nodeStartPoint node_1100 + TreeSitter.Node.TSPoint + r2_1103 + c2_1104 = TreeSitter.Node.nodeEndPoint node_1100 + +deriving instance GHC.Classes.Eq a_1105 => GHC.Classes.Eq (Sum a_1105) + +deriving instance GHC.Classes.Ord a_1106 => GHC.Classes.Ord (Sum a_1106) + +deriving instance GHC.Show.Show a_1107 => GHC.Show.Show (Sum a_1107) + +instance AST.Unmarshal.Unmarshal Sum + +instance Data.Foldable.Foldable Sum where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Sum where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Sum where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Super a = Super {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1108. + AST.Traversable1.Class.Traversable1 a_1108 + ) + +instance AST.Unmarshal.SymbolMatching Super where + matchedSymbols _ = [67] + showFailure _ node_1109 = + "expected " + GHC.Base.<> ( "super" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1109 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1109) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1110 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1111 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1112 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1113 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1110 + c1_1111 = TreeSitter.Node.nodeStartPoint node_1109 + TreeSitter.Node.TSPoint + r2_1112 + c2_1113 = TreeSitter.Node.nodeEndPoint node_1109 + +deriving instance GHC.Classes.Eq a_1114 => GHC.Classes.Eq (Super a_1114) + +deriving instance GHC.Classes.Ord a_1115 => GHC.Classes.Ord (Super a_1115) + +deriving instance GHC.Show.Show a_1116 => GHC.Show.Show (Super a_1116) + +instance AST.Unmarshal.Unmarshal Super + +instance Data.Foldable.Foldable Super where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Super where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Super where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousThen = AST.Token.Token "then" 14 + +data This a = This {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1117. + AST.Traversable1.Class.Traversable1 a_1117 + ) + +instance AST.Unmarshal.SymbolMatching This where + matchedSymbols _ = [68] + showFailure _ node_1118 = + "expected " + GHC.Base.<> ( "this" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1118 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1118) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1119 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1120 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1121 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1122 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1119 + c1_1120 = TreeSitter.Node.nodeStartPoint node_1118 + TreeSitter.Node.TSPoint + r2_1121 + c2_1122 = TreeSitter.Node.nodeEndPoint node_1118 + +deriving instance GHC.Classes.Eq a_1123 => GHC.Classes.Eq (This a_1123) + +deriving instance GHC.Classes.Ord a_1124 => GHC.Classes.Ord (This a_1124) + +deriving instance GHC.Show.Show a_1125 => GHC.Show.Show (This a_1125) + +instance AST.Unmarshal.Unmarshal This + +instance Data.Foldable.Foldable This where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor This where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable This where + traverse = AST.Traversable1.Class.traverseDefault1 + +data True a = True {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1126. + AST.Traversable1.Class.Traversable1 a_1126 + ) + +instance AST.Unmarshal.SymbolMatching True where + matchedSymbols _ = [69] + showFailure _ node_1127 = + "expected " + GHC.Base.<> ( "true" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1127 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1127) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1128 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1129 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1130 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1131 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1128 + c1_1129 = TreeSitter.Node.nodeStartPoint node_1127 + TreeSitter.Node.TSPoint + r2_1130 + c2_1131 = TreeSitter.Node.nodeEndPoint node_1127 + +deriving instance GHC.Classes.Eq a_1132 => GHC.Classes.Eq (True a_1132) + +deriving instance GHC.Classes.Ord a_1133 => GHC.Classes.Ord (True a_1133) + +deriving instance GHC.Show.Show a_1134 => GHC.Show.Show (True a_1134) + +instance AST.Unmarshal.Unmarshal True + +instance Data.Foldable.Foldable True where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor True where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable True where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Underscore a = Underscore {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1135. + AST.Traversable1.Class.Traversable1 a_1135 + ) + +instance AST.Unmarshal.SymbolMatching Underscore where + matchedSymbols _ = [75] + showFailure _ node_1136 = + "expected " + GHC.Base.<> ( "underscore" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1136 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1136) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1137 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1138 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1139 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1140 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1137 + c1_1138 = TreeSitter.Node.nodeStartPoint node_1136 + TreeSitter.Node.TSPoint + r2_1139 + c2_1140 = TreeSitter.Node.nodeEndPoint node_1136 + +deriving instance GHC.Classes.Eq a_1141 => GHC.Classes.Eq (Underscore a_1141) + +deriving instance GHC.Classes.Ord a_1142 => GHC.Classes.Ord (Underscore a_1142) + +deriving instance GHC.Show.Show a_1143 => GHC.Show.Show (Underscore a_1143) + +instance AST.Unmarshal.Unmarshal Underscore + +instance Data.Foldable.Foldable Underscore where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Underscore where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Underscore where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousWhere = AST.Token.Token "where" 11 + +type AnonymousLBrace = AST.Token.Token "{" 3 + +type AnonymousPipe = AST.Token.Token "|" 18 + +type AnonymousRBrace = AST.Token.Token "}" 4 diff --git a/semantic-go/src/Language/Go/AST.hs b/semantic-go/src/Language/Go/AST.hs index c49b6f0e2..4ce65fea1 100644 --- a/semantic-go/src/Language/Go/AST.hs +++ b/semantic-go/src/Language/Go/AST.hs @@ -1,3 +1,4 @@ +-- Language definition for Go, generated by ast-generate. Do not edit! {-# LANGUAGE CPP #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveAnyClass #-} @@ -14,20 +15,4886 @@ {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeApplications #-} {-# LANGUAGE TypeOperators #-} +{-# LANGUAGE UndecidableInstances #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Language.Go.AST -( module Language.Go.AST -, Go.getTestCorpusDir -) where +module Language.Go.AST (module Language.Go.AST, getTestCorpusDir) where -import Prelude hiding (False, Float, Integer, Rational, String, True) -import AST.GenerateSyntax -import Language.Haskell.TH.Syntax (runIO) -import qualified TreeSitter.Go as Go (getNodeTypesPath, getTestCorpusDir, tree_sitter_go) +import qualified AST.Parse +import qualified AST.Token +import qualified AST.Traversable1.Class +import qualified AST.Unmarshal +import qualified Data.Foldable +import qualified Data.List as Data.OldList +import qualified Data.Maybe as GHC.Maybe +import qualified Data.Text.Internal +import qualified Data.Traversable +import qualified GHC.Base +import qualified GHC.Generics +import qualified GHC.Records +import qualified GHC.Show +import TreeSitter.Go (getTestCorpusDir) +import qualified TreeSitter.Node +import qualified Prelude as GHC.Classes -#ifdef NODE_TYPES_PATH -astDeclarationsForLanguage Go.tree_sitter_go NODE_TYPES_PATH -#else -runIO Go.getNodeTypesPath >>= astDeclarationsForLanguage Go.tree_sitter_go -#endif +debugSymbolNames :: [GHC.Base.String] +debugSymbolNames = debugSymbolNames_0 + +debugSymbolNames_0 :: [GHC.Base.String] +debugSymbolNames_0 = + [ "end", + "identifier", + "_\n", + "_;", + "_package", + "_import", + "_.", + "blank_identifier", + "_(", + "_)", + "_const", + "_,", + "_=", + "_var", + "_func", + "_...", + "_type", + "_*", + "_[", + "_]", + "_struct", + "_{", + "_}", + "_interface", + "_map", + "_chan", + "_<-", + "_:=", + "_++", + "_--", + "_*=", + "_/=", + "_%=", + "_<<=", + "_>>=", + "_&=", + "_&^=", + "_+=", + "_-=", + "_|=", + "_^=", + "_:", + "_fallthrough", + "_break", + "_continue", + "_goto", + "_return", + "_go", + "_defer", + "_if", + "_else", + "_for", + "_range", + "_switch", + "_case", + "_default", + "_select", + "identifier", + "identifier", + "_+", + "_-", + "_!", + "_^", + "_&", + "_/", + "_%", + "_<<", + "_>>", + "_&^", + "_|", + "_==", + "_!=", + "_<", + "_<=", + "_>", + "_>=", + "_&&", + "_||", + "raw_string_literal", + "_\"", + "_interpreted_string_literal_token1", + "escape_sequence", + "int_literal", + "float_literal", + "imaginary_literal", + "rune_literal", + "nil", + "true", + "false", + "comment", + "source_file", + "package_clause", + "import_declaration", + "import_spec", + "dot", + "import_spec_list", + "_declaration", + "const_declaration", + "const_spec", + "var_declaration", + "var_spec", + "function_declaration", + "method_declaration", + "parameter_list", + "parameter_declaration", + "variadic_parameter_declaration", + "type_alias", + "type_declaration", + "type_spec", + "expression_list", + "parenthesized_type", + "_simple_type", + "pointer_type", + "array_type", + "implicit_length_array_type", + "slice_type", + "struct_type", + "field_declaration_list", + "field_declaration", + "interface_type", + "method_spec_list", + "method_spec", + "map_type", + "channel_type", + "function_type", + "block", + "_statement_list", + "_statement", + "empty_statement", + "_simple_statement", + "send_statement", + "receive_statement", + "inc_statement", + "dec_statement", + "assignment_statement", + "short_var_declaration", + "labeled_statement", + "labeled_statement", + "fallthrough_statement", + "break_statement", + "continue_statement", + "goto_statement", + "return_statement", + "go_statement", + "defer_statement", + "if_statement", + "for_statement", + "for_clause", + "range_clause", + "expression_switch_statement", + "expression_case", + "default_case", + "type_switch_statement", + "_type_switch_header", + "type_case", + "select_statement", + "communication_case", + "_expression", + "parenthesized_expression", + "call_expression", + "variadic_argument", + "argument_list", + "argument_list", + "selector_expression", + "index_expression", + "slice_expression", + "type_assertion_expression", + "type_conversion_expression", + "composite_literal", + "literal_value", + "keyed_element", + "element", + "func_literal", + "unary_expression", + "binary_expression", + "qualified_type", + "interpreted_string_literal", + "_source_file_repeat1", + "_import_spec_list_repeat1", + "_const_declaration_repeat1", + "_const_spec_repeat1", + "_var_declaration_repeat1", + "_parameter_list_repeat1", + "_type_declaration_repeat1", + "_field_name_list_repeat1", + "_expression_list_repeat1", + "_field_declaration_list_repeat1", + "_method_spec_list_repeat1", + "__statement_list_repeat1", + "_expression_switch_statement_repeat1", + "_type_switch_statement_repeat1", + "_type_case_repeat1", + "_select_statement_repeat1", + "_argument_list_repeat1", + "_literal_value_repeat1", + "_interpreted_string_literal_repeat1", + "field_identifier", + "label_name", + "package_identifier", + "type_identifier" + ] + +newtype Expression a = Expression {getExpression :: ((BinaryExpression GHC.Generics.:+: CallExpression GHC.Generics.:+: CompositeLiteral GHC.Generics.:+: False GHC.Generics.:+: FloatLiteral GHC.Generics.:+: FuncLiteral GHC.Generics.:+: Identifier GHC.Generics.:+: ImaginaryLiteral GHC.Generics.:+: IndexExpression GHC.Generics.:+: IntLiteral GHC.Generics.:+: InterpretedStringLiteral GHC.Generics.:+: Nil GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: RawStringLiteral GHC.Generics.:+: RuneLiteral GHC.Generics.:+: SelectorExpression GHC.Generics.:+: SliceExpression GHC.Generics.:+: True GHC.Generics.:+: TypeAssertionExpression GHC.Generics.:+: TypeConversionExpression GHC.Generics.:+: UnaryExpression) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1. + AST.Traversable1.Class.Traversable1 a_1 + ) + +instance GHC.Records.HasField "ann" (Expression a_2) a_2 where + getField = AST.Unmarshal.gann GHC.Base.. getExpression + +deriving instance GHC.Classes.Eq a_3 => GHC.Classes.Eq (Expression a_3) + +deriving instance GHC.Classes.Ord a_4 => GHC.Classes.Ord (Expression a_4) + +deriving instance GHC.Show.Show a_5 => GHC.Show.Show (Expression a_5) + +instance AST.Unmarshal.Unmarshal Expression + +instance Data.Foldable.Foldable Expression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Expression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Expression where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype SimpleStatement a = SimpleStatement {getSimpleStatement :: ((Expression GHC.Generics.:+: AssignmentStatement GHC.Generics.:+: DecStatement GHC.Generics.:+: IncStatement GHC.Generics.:+: SendStatement GHC.Generics.:+: ShortVarDeclaration) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_6. + AST.Traversable1.Class.Traversable1 a_6 + ) + +instance GHC.Records.HasField "ann" (SimpleStatement a_7) a_7 where + getField = AST.Unmarshal.gann GHC.Base.. getSimpleStatement + +deriving instance GHC.Classes.Eq a_8 => GHC.Classes.Eq (SimpleStatement a_8) + +deriving instance GHC.Classes.Ord a_9 => GHC.Classes.Ord (SimpleStatement a_9) + +deriving instance GHC.Show.Show a_10 => GHC.Show.Show (SimpleStatement a_10) + +instance AST.Unmarshal.Unmarshal SimpleStatement + +instance Data.Foldable.Foldable SimpleStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SimpleStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SimpleStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype SimpleType a = SimpleType {getSimpleType :: ((ArrayType GHC.Generics.:+: ChannelType GHC.Generics.:+: FunctionType GHC.Generics.:+: InterfaceType GHC.Generics.:+: MapType GHC.Generics.:+: PointerType GHC.Generics.:+: QualifiedType GHC.Generics.:+: SliceType GHC.Generics.:+: StructType GHC.Generics.:+: TypeIdentifier) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_11. + AST.Traversable1.Class.Traversable1 a_11 + ) + +instance GHC.Records.HasField "ann" (SimpleType a_12) a_12 where + getField = AST.Unmarshal.gann GHC.Base.. getSimpleType + +deriving instance GHC.Classes.Eq a_13 => GHC.Classes.Eq (SimpleType a_13) + +deriving instance GHC.Classes.Ord a_14 => GHC.Classes.Ord (SimpleType a_14) + +deriving instance GHC.Show.Show a_15 => GHC.Show.Show (SimpleType a_15) + +instance AST.Unmarshal.Unmarshal SimpleType + +instance Data.Foldable.Foldable SimpleType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SimpleType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SimpleType where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Statement a = Statement {getStatement :: ((SimpleStatement GHC.Generics.:+: Block GHC.Generics.:+: BreakStatement GHC.Generics.:+: ConstDeclaration GHC.Generics.:+: ContinueStatement GHC.Generics.:+: DeferStatement GHC.Generics.:+: EmptyStatement GHC.Generics.:+: ExpressionSwitchStatement GHC.Generics.:+: FallthroughStatement GHC.Generics.:+: ForStatement GHC.Generics.:+: GoStatement GHC.Generics.:+: GotoStatement GHC.Generics.:+: IfStatement GHC.Generics.:+: LabeledStatement GHC.Generics.:+: ReturnStatement GHC.Generics.:+: SelectStatement GHC.Generics.:+: TypeDeclaration GHC.Generics.:+: TypeSwitchStatement GHC.Generics.:+: VarDeclaration) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_16. + AST.Traversable1.Class.Traversable1 a_16 + ) + +instance GHC.Records.HasField "ann" (Statement a_17) a_17 where + getField = AST.Unmarshal.gann GHC.Base.. getStatement + +deriving instance GHC.Classes.Eq a_18 => GHC.Classes.Eq (Statement a_18) + +deriving instance GHC.Classes.Ord a_19 => GHC.Classes.Ord (Statement a_19) + +deriving instance GHC.Show.Show a_20 => GHC.Show.Show (Statement a_20) + +instance AST.Unmarshal.Unmarshal Statement + +instance Data.Foldable.Foldable Statement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Statement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Statement where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Type a = Type {getType :: ((SimpleType GHC.Generics.:+: ParenthesizedType) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_21. + AST.Traversable1.Class.Traversable1 a_21 + ) + +instance GHC.Records.HasField "ann" (Type a_22) a_22 where + getField = AST.Unmarshal.gann GHC.Base.. getType + +deriving instance GHC.Classes.Eq a_23 => GHC.Classes.Eq (Type a_23) + +deriving instance GHC.Classes.Ord a_24 => GHC.Classes.Ord (Type a_24) + +deriving instance GHC.Show.Show a_25 => GHC.Show.Show (Type a_25) + +instance AST.Unmarshal.Unmarshal Type + +instance Data.Foldable.Foldable Type where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Type where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Type where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ArgumentList a = ArgumentList + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Expression GHC.Generics.:+: Type GHC.Generics.:+: VariadicArgument) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_26. + AST.Traversable1.Class.Traversable1 a_26 + ) + +instance AST.Unmarshal.SymbolMatching ArgumentList where + matchedSymbols _ = [161, 162] + showFailure _ node_27 = + "expected " + GHC.Base.<> ( "argument_list, argument_list" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_27 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_27) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_28 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_29 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_30 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_31 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_28 + c1_29 = TreeSitter.Node.nodeStartPoint node_27 + TreeSitter.Node.TSPoint + r2_30 + c2_31 = TreeSitter.Node.nodeEndPoint node_27 + +deriving instance GHC.Classes.Eq a_32 => GHC.Classes.Eq (ArgumentList a_32) + +deriving instance GHC.Classes.Ord a_33 => GHC.Classes.Ord (ArgumentList a_33) + +deriving instance GHC.Show.Show a_34 => GHC.Show.Show (ArgumentList a_34) + +instance AST.Unmarshal.Unmarshal ArgumentList + +instance Data.Foldable.Foldable ArgumentList where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ArgumentList where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ArgumentList where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ArrayType a = ArrayType + { ann :: a, + length :: (AST.Parse.Err (Expression a)), + element :: (AST.Parse.Err (Type a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_35. + AST.Traversable1.Class.Traversable1 a_35 + ) + +instance AST.Unmarshal.SymbolMatching ArrayType where + matchedSymbols _ = [113] + showFailure _ node_36 = + "expected " + GHC.Base.<> ( "array_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_36 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_36) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_37 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_38 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_39 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_40 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_37 + c1_38 = TreeSitter.Node.nodeStartPoint node_36 + TreeSitter.Node.TSPoint + r2_39 + c2_40 = TreeSitter.Node.nodeEndPoint node_36 + +deriving instance GHC.Classes.Eq a_41 => GHC.Classes.Eq (ArrayType a_41) + +deriving instance GHC.Classes.Ord a_42 => GHC.Classes.Ord (ArrayType a_42) + +deriving instance GHC.Show.Show a_43 => GHC.Show.Show (ArrayType a_43) + +instance AST.Unmarshal.Unmarshal ArrayType + +instance Data.Foldable.Foldable ArrayType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ArrayType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ArrayType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AssignmentStatement a = AssignmentStatement + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousPercentEqual GHC.Generics.:+: AnonymousAmpersandEqual GHC.Generics.:+: AnonymousAmpersandCaretEqual GHC.Generics.:+: AnonymousStarEqual GHC.Generics.:+: AnonymousPlusEqual GHC.Generics.:+: AnonymousMinusEqual GHC.Generics.:+: AnonymousSlashEqual GHC.Generics.:+: AnonymousLAngleLAngleEqual GHC.Generics.:+: AnonymousEqual GHC.Generics.:+: AnonymousRAngleRAngleEqual GHC.Generics.:+: AnonymousCaretEqual GHC.Generics.:+: AnonymousPipeEqual) a)), + left :: (AST.Parse.Err (ExpressionList a)), + right :: (AST.Parse.Err (ExpressionList a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_44. + AST.Traversable1.Class.Traversable1 a_44 + ) + +instance AST.Unmarshal.SymbolMatching AssignmentStatement where + matchedSymbols _ = [134] + showFailure _ node_45 = + "expected " + GHC.Base.<> ( "assignment_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_45 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_45) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_46 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_47 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_48 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_49 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_46 + c1_47 = TreeSitter.Node.nodeStartPoint node_45 + TreeSitter.Node.TSPoint + r2_48 + c2_49 = TreeSitter.Node.nodeEndPoint node_45 + +deriving instance GHC.Classes.Eq a_50 => GHC.Classes.Eq (AssignmentStatement a_50) + +deriving instance GHC.Classes.Ord a_51 => GHC.Classes.Ord (AssignmentStatement a_51) + +deriving instance GHC.Show.Show a_52 => GHC.Show.Show (AssignmentStatement a_52) + +instance AST.Unmarshal.Unmarshal AssignmentStatement + +instance Data.Foldable.Foldable AssignmentStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AssignmentStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AssignmentStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BinaryExpression a = BinaryExpression + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousBangEqual GHC.Generics.:+: AnonymousPercent GHC.Generics.:+: AnonymousAmpersand GHC.Generics.:+: AnonymousAmpersandAmpersand GHC.Generics.:+: AnonymousAmpersandCaret GHC.Generics.:+: AnonymousStar GHC.Generics.:+: AnonymousPlus GHC.Generics.:+: AnonymousMinus GHC.Generics.:+: AnonymousSlash GHC.Generics.:+: AnonymousLAngle GHC.Generics.:+: AnonymousLAngleLAngle GHC.Generics.:+: AnonymousLAngleEqual GHC.Generics.:+: AnonymousEqualEqual GHC.Generics.:+: AnonymousRAngle GHC.Generics.:+: AnonymousRAngleEqual GHC.Generics.:+: AnonymousRAngleRAngle GHC.Generics.:+: AnonymousCaret GHC.Generics.:+: AnonymousPipe GHC.Generics.:+: AnonymousPipePipe) a)), + left :: (AST.Parse.Err (Expression a)), + right :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_53. + AST.Traversable1.Class.Traversable1 a_53 + ) + +instance AST.Unmarshal.SymbolMatching BinaryExpression where + matchedSymbols _ = [174] + showFailure _ node_54 = + "expected " + GHC.Base.<> ( "binary_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_54 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_54) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_55 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_56 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_57 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_58 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_55 + c1_56 = TreeSitter.Node.nodeStartPoint node_54 + TreeSitter.Node.TSPoint + r2_57 + c2_58 = TreeSitter.Node.nodeEndPoint node_54 + +deriving instance GHC.Classes.Eq a_59 => GHC.Classes.Eq (BinaryExpression a_59) + +deriving instance GHC.Classes.Ord a_60 => GHC.Classes.Ord (BinaryExpression a_60) + +deriving instance GHC.Show.Show a_61 => GHC.Show.Show (BinaryExpression a_61) + +instance AST.Unmarshal.Unmarshal BinaryExpression + +instance Data.Foldable.Foldable BinaryExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BinaryExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BinaryExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Block a = Block + { ann :: a, + extraChildren :: ([AST.Parse.Err (Statement a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_62. + AST.Traversable1.Class.Traversable1 a_62 + ) + +instance AST.Unmarshal.SymbolMatching Block where + matchedSymbols _ = [125] + showFailure _ node_63 = + "expected " + GHC.Base.<> ( "block" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_63 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_63) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_64 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_65 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_66 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_67 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_64 + c1_65 = TreeSitter.Node.nodeStartPoint node_63 + TreeSitter.Node.TSPoint + r2_66 + c2_67 = TreeSitter.Node.nodeEndPoint node_63 + +deriving instance GHC.Classes.Eq a_68 => GHC.Classes.Eq (Block a_68) + +deriving instance GHC.Classes.Ord a_69 => GHC.Classes.Ord (Block a_69) + +deriving instance GHC.Show.Show a_70 => GHC.Show.Show (Block a_70) + +instance AST.Unmarshal.Unmarshal Block + +instance Data.Foldable.Foldable Block where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Block where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Block where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BreakStatement a = BreakStatement + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (LabelName a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_71. + AST.Traversable1.Class.Traversable1 a_71 + ) + +instance AST.Unmarshal.SymbolMatching BreakStatement where + matchedSymbols _ = [139] + showFailure _ node_72 = + "expected " + GHC.Base.<> ( "break_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_72 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_72) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_73 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_74 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_75 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_76 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_73 + c1_74 = TreeSitter.Node.nodeStartPoint node_72 + TreeSitter.Node.TSPoint + r2_75 + c2_76 = TreeSitter.Node.nodeEndPoint node_72 + +deriving instance GHC.Classes.Eq a_77 => GHC.Classes.Eq (BreakStatement a_77) + +deriving instance GHC.Classes.Ord a_78 => GHC.Classes.Ord (BreakStatement a_78) + +deriving instance GHC.Show.Show a_79 => GHC.Show.Show (BreakStatement a_79) + +instance AST.Unmarshal.Unmarshal BreakStatement + +instance Data.Foldable.Foldable BreakStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BreakStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BreakStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CallExpression a = CallExpression + { ann :: a, + function :: (AST.Parse.Err (Expression a)), + arguments :: (AST.Parse.Err (ArgumentList a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_80. + AST.Traversable1.Class.Traversable1 a_80 + ) + +instance AST.Unmarshal.SymbolMatching CallExpression where + matchedSymbols _ = [159] + showFailure _ node_81 = + "expected " + GHC.Base.<> ( "call_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_81 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_81) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_82 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_83 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_84 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_85 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_82 + c1_83 = TreeSitter.Node.nodeStartPoint node_81 + TreeSitter.Node.TSPoint + r2_84 + c2_85 = TreeSitter.Node.nodeEndPoint node_81 + +deriving instance GHC.Classes.Eq a_86 => GHC.Classes.Eq (CallExpression a_86) + +deriving instance GHC.Classes.Ord a_87 => GHC.Classes.Ord (CallExpression a_87) + +deriving instance GHC.Show.Show a_88 => GHC.Show.Show (CallExpression a_88) + +instance AST.Unmarshal.Unmarshal CallExpression + +instance Data.Foldable.Foldable CallExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CallExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CallExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ChannelType a = ChannelType {ann :: a, value :: (AST.Parse.Err (Type a))} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_89. + AST.Traversable1.Class.Traversable1 a_89 + ) + +instance AST.Unmarshal.SymbolMatching ChannelType where + matchedSymbols _ = [123] + showFailure _ node_90 = + "expected " + GHC.Base.<> ( "channel_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_90 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_90) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_91 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_92 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_93 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_94 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_91 + c1_92 = TreeSitter.Node.nodeStartPoint node_90 + TreeSitter.Node.TSPoint + r2_93 + c2_94 = TreeSitter.Node.nodeEndPoint node_90 + +deriving instance GHC.Classes.Eq a_95 => GHC.Classes.Eq (ChannelType a_95) + +deriving instance GHC.Classes.Ord a_96 => GHC.Classes.Ord (ChannelType a_96) + +deriving instance GHC.Show.Show a_97 => GHC.Show.Show (ChannelType a_97) + +instance AST.Unmarshal.Unmarshal ChannelType + +instance Data.Foldable.Foldable ChannelType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ChannelType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ChannelType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CommunicationCase a = CommunicationCase + { ann :: a, + communication :: (AST.Parse.Err ((ReceiveStatement GHC.Generics.:+: SendStatement) a)), + extraChildren :: ([AST.Parse.Err (Statement a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_98. + AST.Traversable1.Class.Traversable1 a_98 + ) + +instance AST.Unmarshal.SymbolMatching CommunicationCase where + matchedSymbols _ = [156] + showFailure _ node_99 = + "expected " + GHC.Base.<> ( "communication_case" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_99 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_99) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_100 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_101 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_102 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_103 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_100 + c1_101 = TreeSitter.Node.nodeStartPoint node_99 + TreeSitter.Node.TSPoint + r2_102 + c2_103 = TreeSitter.Node.nodeEndPoint node_99 + +deriving instance GHC.Classes.Eq a_104 => GHC.Classes.Eq (CommunicationCase a_104) + +deriving instance GHC.Classes.Ord a_105 => GHC.Classes.Ord (CommunicationCase a_105) + +deriving instance GHC.Show.Show a_106 => GHC.Show.Show (CommunicationCase a_106) + +instance AST.Unmarshal.Unmarshal CommunicationCase + +instance Data.Foldable.Foldable CommunicationCase where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CommunicationCase where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CommunicationCase where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CompositeLiteral a = CompositeLiteral + { ann :: a, + body :: (AST.Parse.Err (LiteralValue a)), + type' :: (AST.Parse.Err ((ArrayType GHC.Generics.:+: ImplicitLengthArrayType GHC.Generics.:+: MapType GHC.Generics.:+: QualifiedType GHC.Generics.:+: SliceType GHC.Generics.:+: StructType GHC.Generics.:+: TypeIdentifier) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_107. + AST.Traversable1.Class.Traversable1 a_107 + ) + +instance AST.Unmarshal.SymbolMatching CompositeLiteral where + matchedSymbols _ = [168] + showFailure _ node_108 = + "expected " + GHC.Base.<> ( "composite_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_108 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_108) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_109 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_110 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_111 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_112 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_109 + c1_110 = TreeSitter.Node.nodeStartPoint node_108 + TreeSitter.Node.TSPoint + r2_111 + c2_112 = TreeSitter.Node.nodeEndPoint node_108 + +deriving instance GHC.Classes.Eq a_113 => GHC.Classes.Eq (CompositeLiteral a_113) + +deriving instance GHC.Classes.Ord a_114 => GHC.Classes.Ord (CompositeLiteral a_114) + +deriving instance GHC.Show.Show a_115 => GHC.Show.Show (CompositeLiteral a_115) + +instance AST.Unmarshal.Unmarshal CompositeLiteral + +instance Data.Foldable.Foldable CompositeLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CompositeLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CompositeLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ConstDeclaration a = ConstDeclaration + { ann :: a, + extraChildren :: ([AST.Parse.Err (ConstSpec a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_116. + AST.Traversable1.Class.Traversable1 a_116 + ) + +instance AST.Unmarshal.SymbolMatching ConstDeclaration where + matchedSymbols _ = [97] + showFailure _ node_117 = + "expected " + GHC.Base.<> ( "const_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_117 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_117) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_118 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_119 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_120 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_121 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_118 + c1_119 = TreeSitter.Node.nodeStartPoint node_117 + TreeSitter.Node.TSPoint + r2_120 + c2_121 = TreeSitter.Node.nodeEndPoint node_117 + +deriving instance GHC.Classes.Eq a_122 => GHC.Classes.Eq (ConstDeclaration a_122) + +deriving instance GHC.Classes.Ord a_123 => GHC.Classes.Ord (ConstDeclaration a_123) + +deriving instance GHC.Show.Show a_124 => GHC.Show.Show (ConstDeclaration a_124) + +instance AST.Unmarshal.Unmarshal ConstDeclaration + +instance Data.Foldable.Foldable ConstDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ConstDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ConstDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ConstSpec a = ConstSpec + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err (ExpressionList a))), + name :: (GHC.Base.NonEmpty (AST.Parse.Err ((AnonymousComma GHC.Generics.:+: Identifier) a))), + type' :: (GHC.Maybe.Maybe (AST.Parse.Err (Type a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_125. + AST.Traversable1.Class.Traversable1 a_125 + ) + +instance AST.Unmarshal.SymbolMatching ConstSpec where + matchedSymbols _ = [98] + showFailure _ node_126 = + "expected " + GHC.Base.<> ( "const_spec" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_126 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_126) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_127 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_128 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_129 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_130 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_127 + c1_128 = TreeSitter.Node.nodeStartPoint node_126 + TreeSitter.Node.TSPoint + r2_129 + c2_130 = TreeSitter.Node.nodeEndPoint node_126 + +deriving instance GHC.Classes.Eq a_131 => GHC.Classes.Eq (ConstSpec a_131) + +deriving instance GHC.Classes.Ord a_132 => GHC.Classes.Ord (ConstSpec a_132) + +deriving instance GHC.Show.Show a_133 => GHC.Show.Show (ConstSpec a_133) + +instance AST.Unmarshal.Unmarshal ConstSpec + +instance Data.Foldable.Foldable ConstSpec where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ConstSpec where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ConstSpec where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ContinueStatement a = ContinueStatement + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (LabelName a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_134. + AST.Traversable1.Class.Traversable1 a_134 + ) + +instance AST.Unmarshal.SymbolMatching ContinueStatement where + matchedSymbols _ = [140] + showFailure _ node_135 = + "expected " + GHC.Base.<> ( "continue_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_135 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_135) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_136 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_137 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_138 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_139 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_136 + c1_137 = TreeSitter.Node.nodeStartPoint node_135 + TreeSitter.Node.TSPoint + r2_138 + c2_139 = TreeSitter.Node.nodeEndPoint node_135 + +deriving instance GHC.Classes.Eq a_140 => GHC.Classes.Eq (ContinueStatement a_140) + +deriving instance GHC.Classes.Ord a_141 => GHC.Classes.Ord (ContinueStatement a_141) + +deriving instance GHC.Show.Show a_142 => GHC.Show.Show (ContinueStatement a_142) + +instance AST.Unmarshal.Unmarshal ContinueStatement + +instance Data.Foldable.Foldable ContinueStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ContinueStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ContinueStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DecStatement a = DecStatement + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_143. + AST.Traversable1.Class.Traversable1 a_143 + ) + +instance AST.Unmarshal.SymbolMatching DecStatement where + matchedSymbols _ = [133] + showFailure _ node_144 = + "expected " + GHC.Base.<> ( "dec_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_144 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_144) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_145 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_146 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_147 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_148 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_145 + c1_146 = TreeSitter.Node.nodeStartPoint node_144 + TreeSitter.Node.TSPoint + r2_147 + c2_148 = TreeSitter.Node.nodeEndPoint node_144 + +deriving instance GHC.Classes.Eq a_149 => GHC.Classes.Eq (DecStatement a_149) + +deriving instance GHC.Classes.Ord a_150 => GHC.Classes.Ord (DecStatement a_150) + +deriving instance GHC.Show.Show a_151 => GHC.Show.Show (DecStatement a_151) + +instance AST.Unmarshal.Unmarshal DecStatement + +instance Data.Foldable.Foldable DecStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DecStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DecStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DefaultCase a = DefaultCase + { ann :: a, + extraChildren :: ([AST.Parse.Err (Statement a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_152. + AST.Traversable1.Class.Traversable1 a_152 + ) + +instance AST.Unmarshal.SymbolMatching DefaultCase where + matchedSymbols _ = [151] + showFailure _ node_153 = + "expected " + GHC.Base.<> ( "default_case" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_153 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_153) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_154 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_155 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_156 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_157 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_154 + c1_155 = TreeSitter.Node.nodeStartPoint node_153 + TreeSitter.Node.TSPoint + r2_156 + c2_157 = TreeSitter.Node.nodeEndPoint node_153 + +deriving instance GHC.Classes.Eq a_158 => GHC.Classes.Eq (DefaultCase a_158) + +deriving instance GHC.Classes.Ord a_159 => GHC.Classes.Ord (DefaultCase a_159) + +deriving instance GHC.Show.Show a_160 => GHC.Show.Show (DefaultCase a_160) + +instance AST.Unmarshal.Unmarshal DefaultCase + +instance Data.Foldable.Foldable DefaultCase where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DefaultCase where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DefaultCase where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DeferStatement a = DeferStatement + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_161. + AST.Traversable1.Class.Traversable1 a_161 + ) + +instance AST.Unmarshal.SymbolMatching DeferStatement where + matchedSymbols _ = [144] + showFailure _ node_162 = + "expected " + GHC.Base.<> ( "defer_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_162 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_162) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_163 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_164 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_165 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_166 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_163 + c1_164 = TreeSitter.Node.nodeStartPoint node_162 + TreeSitter.Node.TSPoint + r2_165 + c2_166 = TreeSitter.Node.nodeEndPoint node_162 + +deriving instance GHC.Classes.Eq a_167 => GHC.Classes.Eq (DeferStatement a_167) + +deriving instance GHC.Classes.Ord a_168 => GHC.Classes.Ord (DeferStatement a_168) + +deriving instance GHC.Show.Show a_169 => GHC.Show.Show (DeferStatement a_169) + +instance AST.Unmarshal.Unmarshal DeferStatement + +instance Data.Foldable.Foldable DeferStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DeferStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DeferStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Dot a = Dot {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_170. + AST.Traversable1.Class.Traversable1 a_170 + ) + +instance AST.Unmarshal.SymbolMatching Dot where + matchedSymbols _ = [94] + showFailure _ node_171 = + "expected " + GHC.Base.<> ( "dot" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_171 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_171) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_172 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_173 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_174 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_175 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_172 + c1_173 = TreeSitter.Node.nodeStartPoint node_171 + TreeSitter.Node.TSPoint + r2_174 + c2_175 = TreeSitter.Node.nodeEndPoint node_171 + +deriving instance GHC.Classes.Eq a_176 => GHC.Classes.Eq (Dot a_176) + +deriving instance GHC.Classes.Ord a_177 => GHC.Classes.Ord (Dot a_177) + +deriving instance GHC.Show.Show a_178 => GHC.Show.Show (Dot a_178) + +instance AST.Unmarshal.Unmarshal Dot + +instance Data.Foldable.Foldable Dot where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Dot where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Dot where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Element a = Element + { ann :: a, + extraChildren :: (AST.Parse.Err ((Expression GHC.Generics.:+: LiteralValue) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_179. + AST.Traversable1.Class.Traversable1 a_179 + ) + +instance AST.Unmarshal.SymbolMatching Element where + matchedSymbols _ = [171] + showFailure _ node_180 = + "expected " + GHC.Base.<> ( "element" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_180 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_180) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_181 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_182 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_183 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_184 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_181 + c1_182 = TreeSitter.Node.nodeStartPoint node_180 + TreeSitter.Node.TSPoint + r2_183 + c2_184 = TreeSitter.Node.nodeEndPoint node_180 + +deriving instance GHC.Classes.Eq a_185 => GHC.Classes.Eq (Element a_185) + +deriving instance GHC.Classes.Ord a_186 => GHC.Classes.Ord (Element a_186) + +deriving instance GHC.Show.Show a_187 => GHC.Show.Show (Element a_187) + +instance AST.Unmarshal.Unmarshal Element + +instance Data.Foldable.Foldable Element where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Element where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Element where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EmptyStatement a = EmptyStatement {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_188. + AST.Traversable1.Class.Traversable1 a_188 + ) + +instance AST.Unmarshal.SymbolMatching EmptyStatement where + matchedSymbols _ = [128] + showFailure _ node_189 = + "expected " + GHC.Base.<> ( "empty_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_189 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_189) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_190 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_191 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_192 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_193 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_190 + c1_191 = TreeSitter.Node.nodeStartPoint node_189 + TreeSitter.Node.TSPoint + r2_192 + c2_193 = TreeSitter.Node.nodeEndPoint node_189 + +deriving instance GHC.Classes.Eq a_194 => GHC.Classes.Eq (EmptyStatement a_194) + +deriving instance GHC.Classes.Ord a_195 => GHC.Classes.Ord (EmptyStatement a_195) + +deriving instance GHC.Show.Show a_196 => GHC.Show.Show (EmptyStatement a_196) + +instance AST.Unmarshal.Unmarshal EmptyStatement + +instance Data.Foldable.Foldable EmptyStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EmptyStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EmptyStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExpressionCase a = ExpressionCase + { ann :: a, + value :: (AST.Parse.Err (ExpressionList a)), + extraChildren :: ([AST.Parse.Err (Statement a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_197. + AST.Traversable1.Class.Traversable1 a_197 + ) + +instance AST.Unmarshal.SymbolMatching ExpressionCase where + matchedSymbols _ = [150] + showFailure _ node_198 = + "expected " + GHC.Base.<> ( "expression_case" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_198 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_198) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_199 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_200 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_201 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_202 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_199 + c1_200 = TreeSitter.Node.nodeStartPoint node_198 + TreeSitter.Node.TSPoint + r2_201 + c2_202 = TreeSitter.Node.nodeEndPoint node_198 + +deriving instance GHC.Classes.Eq a_203 => GHC.Classes.Eq (ExpressionCase a_203) + +deriving instance GHC.Classes.Ord a_204 => GHC.Classes.Ord (ExpressionCase a_204) + +deriving instance GHC.Show.Show a_205 => GHC.Show.Show (ExpressionCase a_205) + +instance AST.Unmarshal.Unmarshal ExpressionCase + +instance Data.Foldable.Foldable ExpressionCase where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExpressionCase where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExpressionCase where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExpressionList a = ExpressionList + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Expression a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_206. + AST.Traversable1.Class.Traversable1 a_206 + ) + +instance AST.Unmarshal.SymbolMatching ExpressionList where + matchedSymbols _ = [109] + showFailure _ node_207 = + "expected " + GHC.Base.<> ( "expression_list" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_207 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_207) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_208 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_209 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_210 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_211 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_208 + c1_209 = TreeSitter.Node.nodeStartPoint node_207 + TreeSitter.Node.TSPoint + r2_210 + c2_211 = TreeSitter.Node.nodeEndPoint node_207 + +deriving instance GHC.Classes.Eq a_212 => GHC.Classes.Eq (ExpressionList a_212) + +deriving instance GHC.Classes.Ord a_213 => GHC.Classes.Ord (ExpressionList a_213) + +deriving instance GHC.Show.Show a_214 => GHC.Show.Show (ExpressionList a_214) + +instance AST.Unmarshal.Unmarshal ExpressionList + +instance Data.Foldable.Foldable ExpressionList where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExpressionList where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExpressionList where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExpressionSwitchStatement a = ExpressionSwitchStatement + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + initializer :: (GHC.Maybe.Maybe (AST.Parse.Err (SimpleStatement a))), + extraChildren :: ([AST.Parse.Err ((DefaultCase GHC.Generics.:+: ExpressionCase) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_215. + AST.Traversable1.Class.Traversable1 a_215 + ) + +instance AST.Unmarshal.SymbolMatching ExpressionSwitchStatement where + matchedSymbols _ = [149] + showFailure _ node_216 = + "expected " + GHC.Base.<> ( "expression_switch_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_216 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_216) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_217 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_218 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_219 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_220 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_217 + c1_218 = TreeSitter.Node.nodeStartPoint node_216 + TreeSitter.Node.TSPoint + r2_219 + c2_220 = TreeSitter.Node.nodeEndPoint node_216 + +deriving instance GHC.Classes.Eq a_221 => GHC.Classes.Eq (ExpressionSwitchStatement a_221) + +deriving instance GHC.Classes.Ord a_222 => GHC.Classes.Ord (ExpressionSwitchStatement a_222) + +deriving instance GHC.Show.Show a_223 => GHC.Show.Show (ExpressionSwitchStatement a_223) + +instance AST.Unmarshal.Unmarshal ExpressionSwitchStatement + +instance Data.Foldable.Foldable ExpressionSwitchStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExpressionSwitchStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExpressionSwitchStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FallthroughStatement a = FallthroughStatement {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_224. + AST.Traversable1.Class.Traversable1 a_224 + ) + +instance AST.Unmarshal.SymbolMatching FallthroughStatement where + matchedSymbols _ = [138] + showFailure _ node_225 = + "expected " + GHC.Base.<> ( "fallthrough_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_225 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_225) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_226 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_227 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_228 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_229 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_226 + c1_227 = TreeSitter.Node.nodeStartPoint node_225 + TreeSitter.Node.TSPoint + r2_228 + c2_229 = TreeSitter.Node.nodeEndPoint node_225 + +deriving instance GHC.Classes.Eq a_230 => GHC.Classes.Eq (FallthroughStatement a_230) + +deriving instance GHC.Classes.Ord a_231 => GHC.Classes.Ord (FallthroughStatement a_231) + +deriving instance GHC.Show.Show a_232 => GHC.Show.Show (FallthroughStatement a_232) + +instance AST.Unmarshal.Unmarshal FallthroughStatement + +instance Data.Foldable.Foldable FallthroughStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FallthroughStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FallthroughStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FieldDeclaration a = FieldDeclaration + { ann :: a, + tag :: (GHC.Maybe.Maybe (AST.Parse.Err ((InterpretedStringLiteral GHC.Generics.:+: RawStringLiteral) a))), + name :: ([AST.Parse.Err ((AnonymousComma GHC.Generics.:+: FieldIdentifier) a)]), + type' :: (AST.Parse.Err ((Type GHC.Generics.:+: QualifiedType GHC.Generics.:+: TypeIdentifier) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_233. + AST.Traversable1.Class.Traversable1 a_233 + ) + +instance AST.Unmarshal.SymbolMatching FieldDeclaration where + matchedSymbols _ = [118] + showFailure _ node_234 = + "expected " + GHC.Base.<> ( "field_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_234 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_234) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_235 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_236 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_237 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_238 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_235 + c1_236 = TreeSitter.Node.nodeStartPoint node_234 + TreeSitter.Node.TSPoint + r2_237 + c2_238 = TreeSitter.Node.nodeEndPoint node_234 + +deriving instance GHC.Classes.Eq a_239 => GHC.Classes.Eq (FieldDeclaration a_239) + +deriving instance GHC.Classes.Ord a_240 => GHC.Classes.Ord (FieldDeclaration a_240) + +deriving instance GHC.Show.Show a_241 => GHC.Show.Show (FieldDeclaration a_241) + +instance AST.Unmarshal.Unmarshal FieldDeclaration + +instance Data.Foldable.Foldable FieldDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FieldDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FieldDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FieldDeclarationList a = FieldDeclarationList + { ann :: a, + extraChildren :: ([AST.Parse.Err (FieldDeclaration a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_242. + AST.Traversable1.Class.Traversable1 a_242 + ) + +instance AST.Unmarshal.SymbolMatching FieldDeclarationList where + matchedSymbols _ = [117] + showFailure _ node_243 = + "expected " + GHC.Base.<> ( "field_declaration_list" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_243 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_243) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_244 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_245 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_246 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_247 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_244 + c1_245 = TreeSitter.Node.nodeStartPoint node_243 + TreeSitter.Node.TSPoint + r2_246 + c2_247 = TreeSitter.Node.nodeEndPoint node_243 + +deriving instance GHC.Classes.Eq a_248 => GHC.Classes.Eq (FieldDeclarationList a_248) + +deriving instance GHC.Classes.Ord a_249 => GHC.Classes.Ord (FieldDeclarationList a_249) + +deriving instance GHC.Show.Show a_250 => GHC.Show.Show (FieldDeclarationList a_250) + +instance AST.Unmarshal.Unmarshal FieldDeclarationList + +instance Data.Foldable.Foldable FieldDeclarationList where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FieldDeclarationList where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FieldDeclarationList where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ForClause a = ForClause + { ann :: a, + initializer :: (GHC.Maybe.Maybe (AST.Parse.Err (SimpleStatement a))), + condition :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + update :: (GHC.Maybe.Maybe (AST.Parse.Err (SimpleStatement a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_251. + AST.Traversable1.Class.Traversable1 a_251 + ) + +instance AST.Unmarshal.SymbolMatching ForClause where + matchedSymbols _ = [147] + showFailure _ node_252 = + "expected " + GHC.Base.<> ( "for_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_252 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_252) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_253 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_254 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_255 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_256 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_253 + c1_254 = TreeSitter.Node.nodeStartPoint node_252 + TreeSitter.Node.TSPoint + r2_255 + c2_256 = TreeSitter.Node.nodeEndPoint node_252 + +deriving instance GHC.Classes.Eq a_257 => GHC.Classes.Eq (ForClause a_257) + +deriving instance GHC.Classes.Ord a_258 => GHC.Classes.Ord (ForClause a_258) + +deriving instance GHC.Show.Show a_259 => GHC.Show.Show (ForClause a_259) + +instance AST.Unmarshal.Unmarshal ForClause + +instance Data.Foldable.Foldable ForClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ForClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ForClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ForStatement a = ForStatement + { ann :: a, + body :: (AST.Parse.Err (Block a)), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err ((Expression GHC.Generics.:+: ForClause GHC.Generics.:+: RangeClause) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_260. + AST.Traversable1.Class.Traversable1 a_260 + ) + +instance AST.Unmarshal.SymbolMatching ForStatement where + matchedSymbols _ = [146] + showFailure _ node_261 = + "expected " + GHC.Base.<> ( "for_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_261 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_261) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_262 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_263 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_264 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_265 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_262 + c1_263 = TreeSitter.Node.nodeStartPoint node_261 + TreeSitter.Node.TSPoint + r2_264 + c2_265 = TreeSitter.Node.nodeEndPoint node_261 + +deriving instance GHC.Classes.Eq a_266 => GHC.Classes.Eq (ForStatement a_266) + +deriving instance GHC.Classes.Ord a_267 => GHC.Classes.Ord (ForStatement a_267) + +deriving instance GHC.Show.Show a_268 => GHC.Show.Show (ForStatement a_268) + +instance AST.Unmarshal.Unmarshal ForStatement + +instance Data.Foldable.Foldable ForStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ForStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ForStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FuncLiteral a = FuncLiteral + { ann :: a, + body :: (AST.Parse.Err (Block a)), + result :: (GHC.Maybe.Maybe (AST.Parse.Err ((SimpleType GHC.Generics.:+: ParameterList) a))), + parameters :: (AST.Parse.Err (ParameterList a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_269. + AST.Traversable1.Class.Traversable1 a_269 + ) + +instance AST.Unmarshal.SymbolMatching FuncLiteral where + matchedSymbols _ = [172] + showFailure _ node_270 = + "expected " + GHC.Base.<> ( "func_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_270 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_270) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_271 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_272 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_273 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_274 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_271 + c1_272 = TreeSitter.Node.nodeStartPoint node_270 + TreeSitter.Node.TSPoint + r2_273 + c2_274 = TreeSitter.Node.nodeEndPoint node_270 + +deriving instance GHC.Classes.Eq a_275 => GHC.Classes.Eq (FuncLiteral a_275) + +deriving instance GHC.Classes.Ord a_276 => GHC.Classes.Ord (FuncLiteral a_276) + +deriving instance GHC.Show.Show a_277 => GHC.Show.Show (FuncLiteral a_277) + +instance AST.Unmarshal.Unmarshal FuncLiteral + +instance Data.Foldable.Foldable FuncLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FuncLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FuncLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FunctionDeclaration a = FunctionDeclaration + { ann :: a, + body :: (GHC.Maybe.Maybe (AST.Parse.Err (Block a))), + result :: (GHC.Maybe.Maybe (AST.Parse.Err ((SimpleType GHC.Generics.:+: ParameterList) a))), + name :: (AST.Parse.Err (Identifier a)), + parameters :: (AST.Parse.Err (ParameterList a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_278. + AST.Traversable1.Class.Traversable1 a_278 + ) + +instance AST.Unmarshal.SymbolMatching FunctionDeclaration where + matchedSymbols _ = [101] + showFailure _ node_279 = + "expected " + GHC.Base.<> ( "function_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_279 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_279) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_280 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_281 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_282 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_283 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_280 + c1_281 = TreeSitter.Node.nodeStartPoint node_279 + TreeSitter.Node.TSPoint + r2_282 + c2_283 = TreeSitter.Node.nodeEndPoint node_279 + +deriving instance GHC.Classes.Eq a_284 => GHC.Classes.Eq (FunctionDeclaration a_284) + +deriving instance GHC.Classes.Ord a_285 => GHC.Classes.Ord (FunctionDeclaration a_285) + +deriving instance GHC.Show.Show a_286 => GHC.Show.Show (FunctionDeclaration a_286) + +instance AST.Unmarshal.Unmarshal FunctionDeclaration + +instance Data.Foldable.Foldable FunctionDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FunctionDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FunctionDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FunctionType a = FunctionType + { ann :: a, + result :: (GHC.Maybe.Maybe (AST.Parse.Err ((SimpleType GHC.Generics.:+: ParameterList) a))), + parameters :: (AST.Parse.Err (ParameterList a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_287. + AST.Traversable1.Class.Traversable1 a_287 + ) + +instance AST.Unmarshal.SymbolMatching FunctionType where + matchedSymbols _ = [124] + showFailure _ node_288 = + "expected " + GHC.Base.<> ( "function_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_288 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_288) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_289 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_290 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_291 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_292 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_289 + c1_290 = TreeSitter.Node.nodeStartPoint node_288 + TreeSitter.Node.TSPoint + r2_291 + c2_292 = TreeSitter.Node.nodeEndPoint node_288 + +deriving instance GHC.Classes.Eq a_293 => GHC.Classes.Eq (FunctionType a_293) + +deriving instance GHC.Classes.Ord a_294 => GHC.Classes.Ord (FunctionType a_294) + +deriving instance GHC.Show.Show a_295 => GHC.Show.Show (FunctionType a_295) + +instance AST.Unmarshal.Unmarshal FunctionType + +instance Data.Foldable.Foldable FunctionType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FunctionType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FunctionType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data GoStatement a = GoStatement + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_296. + AST.Traversable1.Class.Traversable1 a_296 + ) + +instance AST.Unmarshal.SymbolMatching GoStatement where + matchedSymbols _ = [143] + showFailure _ node_297 = + "expected " + GHC.Base.<> ( "go_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_297 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_297) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_298 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_299 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_300 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_301 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_298 + c1_299 = TreeSitter.Node.nodeStartPoint node_297 + TreeSitter.Node.TSPoint + r2_300 + c2_301 = TreeSitter.Node.nodeEndPoint node_297 + +deriving instance GHC.Classes.Eq a_302 => GHC.Classes.Eq (GoStatement a_302) + +deriving instance GHC.Classes.Ord a_303 => GHC.Classes.Ord (GoStatement a_303) + +deriving instance GHC.Show.Show a_304 => GHC.Show.Show (GoStatement a_304) + +instance AST.Unmarshal.Unmarshal GoStatement + +instance Data.Foldable.Foldable GoStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor GoStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable GoStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data GotoStatement a = GotoStatement + { ann :: a, + extraChildren :: (AST.Parse.Err (LabelName a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_305. + AST.Traversable1.Class.Traversable1 a_305 + ) + +instance AST.Unmarshal.SymbolMatching GotoStatement where + matchedSymbols _ = [141] + showFailure _ node_306 = + "expected " + GHC.Base.<> ( "goto_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_306 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_306) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_307 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_308 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_309 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_310 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_307 + c1_308 = TreeSitter.Node.nodeStartPoint node_306 + TreeSitter.Node.TSPoint + r2_309 + c2_310 = TreeSitter.Node.nodeEndPoint node_306 + +deriving instance GHC.Classes.Eq a_311 => GHC.Classes.Eq (GotoStatement a_311) + +deriving instance GHC.Classes.Ord a_312 => GHC.Classes.Ord (GotoStatement a_312) + +deriving instance GHC.Show.Show a_313 => GHC.Show.Show (GotoStatement a_313) + +instance AST.Unmarshal.Unmarshal GotoStatement + +instance Data.Foldable.Foldable GotoStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor GotoStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable GotoStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IfStatement a = IfStatement + { ann :: a, + alternative :: (GHC.Maybe.Maybe (AST.Parse.Err ((Block GHC.Generics.:+: IfStatement) a))), + initializer :: (GHC.Maybe.Maybe (AST.Parse.Err (SimpleStatement a))), + consequence :: (AST.Parse.Err (Block a)), + condition :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_314. + AST.Traversable1.Class.Traversable1 a_314 + ) + +instance AST.Unmarshal.SymbolMatching IfStatement where + matchedSymbols _ = [145] + showFailure _ node_315 = + "expected " + GHC.Base.<> ( "if_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_315 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_315) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_316 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_317 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_318 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_319 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_316 + c1_317 = TreeSitter.Node.nodeStartPoint node_315 + TreeSitter.Node.TSPoint + r2_318 + c2_319 = TreeSitter.Node.nodeEndPoint node_315 + +deriving instance GHC.Classes.Eq a_320 => GHC.Classes.Eq (IfStatement a_320) + +deriving instance GHC.Classes.Ord a_321 => GHC.Classes.Ord (IfStatement a_321) + +deriving instance GHC.Show.Show a_322 => GHC.Show.Show (IfStatement a_322) + +instance AST.Unmarshal.Unmarshal IfStatement + +instance Data.Foldable.Foldable IfStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IfStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IfStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImplicitLengthArrayType a = ImplicitLengthArrayType + { ann :: a, + element :: (AST.Parse.Err (Type a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_323. + AST.Traversable1.Class.Traversable1 a_323 + ) + +instance AST.Unmarshal.SymbolMatching ImplicitLengthArrayType where + matchedSymbols _ = [114] + showFailure _ node_324 = + "expected " + GHC.Base.<> ( "implicit_length_array_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_324 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_324) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_325 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_326 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_327 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_328 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_325 + c1_326 = TreeSitter.Node.nodeStartPoint node_324 + TreeSitter.Node.TSPoint + r2_327 + c2_328 = TreeSitter.Node.nodeEndPoint node_324 + +deriving instance GHC.Classes.Eq a_329 => GHC.Classes.Eq (ImplicitLengthArrayType a_329) + +deriving instance GHC.Classes.Ord a_330 => GHC.Classes.Ord (ImplicitLengthArrayType a_330) + +deriving instance GHC.Show.Show a_331 => GHC.Show.Show (ImplicitLengthArrayType a_331) + +instance AST.Unmarshal.Unmarshal ImplicitLengthArrayType + +instance Data.Foldable.Foldable ImplicitLengthArrayType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImplicitLengthArrayType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImplicitLengthArrayType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportDeclaration a = ImportDeclaration + { ann :: a, + extraChildren :: (AST.Parse.Err ((ImportSpec GHC.Generics.:+: ImportSpecList) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_332. + AST.Traversable1.Class.Traversable1 a_332 + ) + +instance AST.Unmarshal.SymbolMatching ImportDeclaration where + matchedSymbols _ = [92] + showFailure _ node_333 = + "expected " + GHC.Base.<> ( "import_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_333 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_333) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_334 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_335 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_336 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_337 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_334 + c1_335 = TreeSitter.Node.nodeStartPoint node_333 + TreeSitter.Node.TSPoint + r2_336 + c2_337 = TreeSitter.Node.nodeEndPoint node_333 + +deriving instance GHC.Classes.Eq a_338 => GHC.Classes.Eq (ImportDeclaration a_338) + +deriving instance GHC.Classes.Ord a_339 => GHC.Classes.Ord (ImportDeclaration a_339) + +deriving instance GHC.Show.Show a_340 => GHC.Show.Show (ImportDeclaration a_340) + +instance AST.Unmarshal.Unmarshal ImportDeclaration + +instance Data.Foldable.Foldable ImportDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportSpec a = ImportSpec + { ann :: a, + path :: (AST.Parse.Err ((InterpretedStringLiteral GHC.Generics.:+: RawStringLiteral) a)), + name :: (GHC.Maybe.Maybe (AST.Parse.Err ((BlankIdentifier GHC.Generics.:+: Dot GHC.Generics.:+: PackageIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_341. + AST.Traversable1.Class.Traversable1 a_341 + ) + +instance AST.Unmarshal.SymbolMatching ImportSpec where + matchedSymbols _ = [93] + showFailure _ node_342 = + "expected " + GHC.Base.<> ( "import_spec" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_342 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_342) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_343 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_344 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_345 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_346 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_343 + c1_344 = TreeSitter.Node.nodeStartPoint node_342 + TreeSitter.Node.TSPoint + r2_345 + c2_346 = TreeSitter.Node.nodeEndPoint node_342 + +deriving instance GHC.Classes.Eq a_347 => GHC.Classes.Eq (ImportSpec a_347) + +deriving instance GHC.Classes.Ord a_348 => GHC.Classes.Ord (ImportSpec a_348) + +deriving instance GHC.Show.Show a_349 => GHC.Show.Show (ImportSpec a_349) + +instance AST.Unmarshal.Unmarshal ImportSpec + +instance Data.Foldable.Foldable ImportSpec where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportSpec where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportSpec where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportSpecList a = ImportSpecList + { ann :: a, + extraChildren :: ([AST.Parse.Err (ImportSpec a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_350. + AST.Traversable1.Class.Traversable1 a_350 + ) + +instance AST.Unmarshal.SymbolMatching ImportSpecList where + matchedSymbols _ = [95] + showFailure _ node_351 = + "expected " + GHC.Base.<> ( "import_spec_list" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_351 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_351) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_352 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_353 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_354 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_355 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_352 + c1_353 = TreeSitter.Node.nodeStartPoint node_351 + TreeSitter.Node.TSPoint + r2_354 + c2_355 = TreeSitter.Node.nodeEndPoint node_351 + +deriving instance GHC.Classes.Eq a_356 => GHC.Classes.Eq (ImportSpecList a_356) + +deriving instance GHC.Classes.Ord a_357 => GHC.Classes.Ord (ImportSpecList a_357) + +deriving instance GHC.Show.Show a_358 => GHC.Show.Show (ImportSpecList a_358) + +instance AST.Unmarshal.Unmarshal ImportSpecList + +instance Data.Foldable.Foldable ImportSpecList where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportSpecList where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportSpecList where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IncStatement a = IncStatement + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_359. + AST.Traversable1.Class.Traversable1 a_359 + ) + +instance AST.Unmarshal.SymbolMatching IncStatement where + matchedSymbols _ = [132] + showFailure _ node_360 = + "expected " + GHC.Base.<> ( "inc_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_360 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_360) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_361 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_362 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_363 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_364 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_361 + c1_362 = TreeSitter.Node.nodeStartPoint node_360 + TreeSitter.Node.TSPoint + r2_363 + c2_364 = TreeSitter.Node.nodeEndPoint node_360 + +deriving instance GHC.Classes.Eq a_365 => GHC.Classes.Eq (IncStatement a_365) + +deriving instance GHC.Classes.Ord a_366 => GHC.Classes.Ord (IncStatement a_366) + +deriving instance GHC.Show.Show a_367 => GHC.Show.Show (IncStatement a_367) + +instance AST.Unmarshal.Unmarshal IncStatement + +instance Data.Foldable.Foldable IncStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IncStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IncStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IndexExpression a = IndexExpression + { ann :: a, + operand :: (AST.Parse.Err (Expression a)), + index :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_368. + AST.Traversable1.Class.Traversable1 a_368 + ) + +instance AST.Unmarshal.SymbolMatching IndexExpression where + matchedSymbols _ = [164] + showFailure _ node_369 = + "expected " + GHC.Base.<> ( "index_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_369 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_369) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_370 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_371 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_372 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_373 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_370 + c1_371 = TreeSitter.Node.nodeStartPoint node_369 + TreeSitter.Node.TSPoint + r2_372 + c2_373 = TreeSitter.Node.nodeEndPoint node_369 + +deriving instance GHC.Classes.Eq a_374 => GHC.Classes.Eq (IndexExpression a_374) + +deriving instance GHC.Classes.Ord a_375 => GHC.Classes.Ord (IndexExpression a_375) + +deriving instance GHC.Show.Show a_376 => GHC.Show.Show (IndexExpression a_376) + +instance AST.Unmarshal.Unmarshal IndexExpression + +instance Data.Foldable.Foldable IndexExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IndexExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IndexExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data InterfaceType a = InterfaceType + { ann :: a, + extraChildren :: (AST.Parse.Err (MethodSpecList a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_377. + AST.Traversable1.Class.Traversable1 a_377 + ) + +instance AST.Unmarshal.SymbolMatching InterfaceType where + matchedSymbols _ = [119] + showFailure _ node_378 = + "expected " + GHC.Base.<> ( "interface_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_378 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_378) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_379 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_380 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_381 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_382 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_379 + c1_380 = TreeSitter.Node.nodeStartPoint node_378 + TreeSitter.Node.TSPoint + r2_381 + c2_382 = TreeSitter.Node.nodeEndPoint node_378 + +deriving instance GHC.Classes.Eq a_383 => GHC.Classes.Eq (InterfaceType a_383) + +deriving instance GHC.Classes.Ord a_384 => GHC.Classes.Ord (InterfaceType a_384) + +deriving instance GHC.Show.Show a_385 => GHC.Show.Show (InterfaceType a_385) + +instance AST.Unmarshal.Unmarshal InterfaceType + +instance Data.Foldable.Foldable InterfaceType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor InterfaceType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable InterfaceType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data InterpretedStringLiteral a = InterpretedStringLiteral + { ann :: a, + extraChildren :: ([AST.Parse.Err (EscapeSequence a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_386. + AST.Traversable1.Class.Traversable1 a_386 + ) + +instance AST.Unmarshal.SymbolMatching InterpretedStringLiteral where + matchedSymbols _ = [176] + showFailure _ node_387 = + "expected " + GHC.Base.<> ( "interpreted_string_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_387 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_387) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_388 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_389 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_390 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_391 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_388 + c1_389 = TreeSitter.Node.nodeStartPoint node_387 + TreeSitter.Node.TSPoint + r2_390 + c2_391 = TreeSitter.Node.nodeEndPoint node_387 + +deriving instance GHC.Classes.Eq a_392 => GHC.Classes.Eq (InterpretedStringLiteral a_392) + +deriving instance GHC.Classes.Ord a_393 => GHC.Classes.Ord (InterpretedStringLiteral a_393) + +deriving instance GHC.Show.Show a_394 => GHC.Show.Show (InterpretedStringLiteral a_394) + +instance AST.Unmarshal.Unmarshal InterpretedStringLiteral + +instance Data.Foldable.Foldable InterpretedStringLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor InterpretedStringLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable InterpretedStringLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +data KeyedElement a = KeyedElement + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: FieldIdentifier GHC.Generics.:+: LiteralValue) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_395. + AST.Traversable1.Class.Traversable1 a_395 + ) + +instance AST.Unmarshal.SymbolMatching KeyedElement where + matchedSymbols _ = [170] + showFailure _ node_396 = + "expected " + GHC.Base.<> ( "keyed_element" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_396 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_396) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_397 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_398 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_399 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_400 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_397 + c1_398 = TreeSitter.Node.nodeStartPoint node_396 + TreeSitter.Node.TSPoint + r2_399 + c2_400 = TreeSitter.Node.nodeEndPoint node_396 + +deriving instance GHC.Classes.Eq a_401 => GHC.Classes.Eq (KeyedElement a_401) + +deriving instance GHC.Classes.Ord a_402 => GHC.Classes.Ord (KeyedElement a_402) + +deriving instance GHC.Show.Show a_403 => GHC.Show.Show (KeyedElement a_403) + +instance AST.Unmarshal.Unmarshal KeyedElement + +instance Data.Foldable.Foldable KeyedElement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor KeyedElement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable KeyedElement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LabeledStatement a = LabeledStatement + { ann :: a, + label :: (AST.Parse.Err (LabelName a)), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Statement a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_404. + AST.Traversable1.Class.Traversable1 a_404 + ) + +instance AST.Unmarshal.SymbolMatching LabeledStatement where + matchedSymbols _ = [136, 137] + showFailure _ node_405 = + "expected " + GHC.Base.<> ( "labeled_statement, labeled_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_405 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_405) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_406 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_407 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_408 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_409 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_406 + c1_407 = TreeSitter.Node.nodeStartPoint node_405 + TreeSitter.Node.TSPoint + r2_408 + c2_409 = TreeSitter.Node.nodeEndPoint node_405 + +deriving instance GHC.Classes.Eq a_410 => GHC.Classes.Eq (LabeledStatement a_410) + +deriving instance GHC.Classes.Ord a_411 => GHC.Classes.Ord (LabeledStatement a_411) + +deriving instance GHC.Show.Show a_412 => GHC.Show.Show (LabeledStatement a_412) + +instance AST.Unmarshal.Unmarshal LabeledStatement + +instance Data.Foldable.Foldable LabeledStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LabeledStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LabeledStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LiteralValue a = LiteralValue + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Element GHC.Generics.:+: KeyedElement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_413. + AST.Traversable1.Class.Traversable1 a_413 + ) + +instance AST.Unmarshal.SymbolMatching LiteralValue where + matchedSymbols _ = [169] + showFailure _ node_414 = + "expected " + GHC.Base.<> ( "literal_value" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_414 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_414) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_415 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_416 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_417 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_418 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_415 + c1_416 = TreeSitter.Node.nodeStartPoint node_414 + TreeSitter.Node.TSPoint + r2_417 + c2_418 = TreeSitter.Node.nodeEndPoint node_414 + +deriving instance GHC.Classes.Eq a_419 => GHC.Classes.Eq (LiteralValue a_419) + +deriving instance GHC.Classes.Ord a_420 => GHC.Classes.Ord (LiteralValue a_420) + +deriving instance GHC.Show.Show a_421 => GHC.Show.Show (LiteralValue a_421) + +instance AST.Unmarshal.Unmarshal LiteralValue + +instance Data.Foldable.Foldable LiteralValue where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LiteralValue where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LiteralValue where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MapType a = MapType + { ann :: a, + value :: (AST.Parse.Err (Type a)), + key :: (AST.Parse.Err (Type a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_422. + AST.Traversable1.Class.Traversable1 a_422 + ) + +instance AST.Unmarshal.SymbolMatching MapType where + matchedSymbols _ = [122] + showFailure _ node_423 = + "expected " + GHC.Base.<> ( "map_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_423 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_423) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_424 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_425 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_426 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_427 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_424 + c1_425 = TreeSitter.Node.nodeStartPoint node_423 + TreeSitter.Node.TSPoint + r2_426 + c2_427 = TreeSitter.Node.nodeEndPoint node_423 + +deriving instance GHC.Classes.Eq a_428 => GHC.Classes.Eq (MapType a_428) + +deriving instance GHC.Classes.Ord a_429 => GHC.Classes.Ord (MapType a_429) + +deriving instance GHC.Show.Show a_430 => GHC.Show.Show (MapType a_430) + +instance AST.Unmarshal.Unmarshal MapType + +instance Data.Foldable.Foldable MapType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MapType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MapType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MethodDeclaration a = MethodDeclaration + { ann :: a, + body :: (GHC.Maybe.Maybe (AST.Parse.Err (Block a))), + result :: (GHC.Maybe.Maybe (AST.Parse.Err ((SimpleType GHC.Generics.:+: ParameterList) a))), + receiver :: (AST.Parse.Err (ParameterList a)), + name :: (AST.Parse.Err (FieldIdentifier a)), + parameters :: (AST.Parse.Err (ParameterList a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_431. + AST.Traversable1.Class.Traversable1 a_431 + ) + +instance AST.Unmarshal.SymbolMatching MethodDeclaration where + matchedSymbols _ = [102] + showFailure _ node_432 = + "expected " + GHC.Base.<> ( "method_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_432 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_432) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_433 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_434 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_435 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_436 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_433 + c1_434 = TreeSitter.Node.nodeStartPoint node_432 + TreeSitter.Node.TSPoint + r2_435 + c2_436 = TreeSitter.Node.nodeEndPoint node_432 + +deriving instance GHC.Classes.Eq a_437 => GHC.Classes.Eq (MethodDeclaration a_437) + +deriving instance GHC.Classes.Ord a_438 => GHC.Classes.Ord (MethodDeclaration a_438) + +deriving instance GHC.Show.Show a_439 => GHC.Show.Show (MethodDeclaration a_439) + +instance AST.Unmarshal.Unmarshal MethodDeclaration + +instance Data.Foldable.Foldable MethodDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MethodDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MethodDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MethodSpec a = MethodSpec + { ann :: a, + result :: (GHC.Maybe.Maybe (AST.Parse.Err ((SimpleType GHC.Generics.:+: ParameterList) a))), + name :: (AST.Parse.Err (FieldIdentifier a)), + parameters :: (AST.Parse.Err (ParameterList a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_440. + AST.Traversable1.Class.Traversable1 a_440 + ) + +instance AST.Unmarshal.SymbolMatching MethodSpec where + matchedSymbols _ = [121] + showFailure _ node_441 = + "expected " + GHC.Base.<> ( "method_spec" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_441 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_441) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_442 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_443 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_444 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_445 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_442 + c1_443 = TreeSitter.Node.nodeStartPoint node_441 + TreeSitter.Node.TSPoint + r2_444 + c2_445 = TreeSitter.Node.nodeEndPoint node_441 + +deriving instance GHC.Classes.Eq a_446 => GHC.Classes.Eq (MethodSpec a_446) + +deriving instance GHC.Classes.Ord a_447 => GHC.Classes.Ord (MethodSpec a_447) + +deriving instance GHC.Show.Show a_448 => GHC.Show.Show (MethodSpec a_448) + +instance AST.Unmarshal.Unmarshal MethodSpec + +instance Data.Foldable.Foldable MethodSpec where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MethodSpec where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MethodSpec where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MethodSpecList a = MethodSpecList + { ann :: a, + extraChildren :: ([AST.Parse.Err ((MethodSpec GHC.Generics.:+: QualifiedType GHC.Generics.:+: TypeIdentifier) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_449. + AST.Traversable1.Class.Traversable1 a_449 + ) + +instance AST.Unmarshal.SymbolMatching MethodSpecList where + matchedSymbols _ = [120] + showFailure _ node_450 = + "expected " + GHC.Base.<> ( "method_spec_list" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_450 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_450) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_451 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_452 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_453 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_454 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_451 + c1_452 = TreeSitter.Node.nodeStartPoint node_450 + TreeSitter.Node.TSPoint + r2_453 + c2_454 = TreeSitter.Node.nodeEndPoint node_450 + +deriving instance GHC.Classes.Eq a_455 => GHC.Classes.Eq (MethodSpecList a_455) + +deriving instance GHC.Classes.Ord a_456 => GHC.Classes.Ord (MethodSpecList a_456) + +deriving instance GHC.Show.Show a_457 => GHC.Show.Show (MethodSpecList a_457) + +instance AST.Unmarshal.Unmarshal MethodSpecList + +instance Data.Foldable.Foldable MethodSpecList where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MethodSpecList where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MethodSpecList where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PackageClause a = PackageClause + { ann :: a, + extraChildren :: (AST.Parse.Err (PackageIdentifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_458. + AST.Traversable1.Class.Traversable1 a_458 + ) + +instance AST.Unmarshal.SymbolMatching PackageClause where + matchedSymbols _ = [91] + showFailure _ node_459 = + "expected " + GHC.Base.<> ( "package_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_459 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_459) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_460 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_461 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_462 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_463 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_460 + c1_461 = TreeSitter.Node.nodeStartPoint node_459 + TreeSitter.Node.TSPoint + r2_462 + c2_463 = TreeSitter.Node.nodeEndPoint node_459 + +deriving instance GHC.Classes.Eq a_464 => GHC.Classes.Eq (PackageClause a_464) + +deriving instance GHC.Classes.Ord a_465 => GHC.Classes.Ord (PackageClause a_465) + +deriving instance GHC.Show.Show a_466 => GHC.Show.Show (PackageClause a_466) + +instance AST.Unmarshal.Unmarshal PackageClause + +instance Data.Foldable.Foldable PackageClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PackageClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PackageClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ParameterDeclaration a = ParameterDeclaration + { ann :: a, + name :: ([AST.Parse.Err ((AnonymousComma GHC.Generics.:+: Identifier) a)]), + type' :: (AST.Parse.Err (Type a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_467. + AST.Traversable1.Class.Traversable1 a_467 + ) + +instance AST.Unmarshal.SymbolMatching ParameterDeclaration where + matchedSymbols _ = [104] + showFailure _ node_468 = + "expected " + GHC.Base.<> ( "parameter_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_468 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_468) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_469 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_470 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_471 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_472 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_469 + c1_470 = TreeSitter.Node.nodeStartPoint node_468 + TreeSitter.Node.TSPoint + r2_471 + c2_472 = TreeSitter.Node.nodeEndPoint node_468 + +deriving instance GHC.Classes.Eq a_473 => GHC.Classes.Eq (ParameterDeclaration a_473) + +deriving instance GHC.Classes.Ord a_474 => GHC.Classes.Ord (ParameterDeclaration a_474) + +deriving instance GHC.Show.Show a_475 => GHC.Show.Show (ParameterDeclaration a_475) + +instance AST.Unmarshal.Unmarshal ParameterDeclaration + +instance Data.Foldable.Foldable ParameterDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ParameterDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ParameterDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ParameterList a = ParameterList + { ann :: a, + extraChildren :: ([AST.Parse.Err ((ParameterDeclaration GHC.Generics.:+: VariadicParameterDeclaration) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_476. + AST.Traversable1.Class.Traversable1 a_476 + ) + +instance AST.Unmarshal.SymbolMatching ParameterList where + matchedSymbols _ = [103] + showFailure _ node_477 = + "expected " + GHC.Base.<> ( "parameter_list" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_477 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_477) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_478 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_479 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_480 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_481 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_478 + c1_479 = TreeSitter.Node.nodeStartPoint node_477 + TreeSitter.Node.TSPoint + r2_480 + c2_481 = TreeSitter.Node.nodeEndPoint node_477 + +deriving instance GHC.Classes.Eq a_482 => GHC.Classes.Eq (ParameterList a_482) + +deriving instance GHC.Classes.Ord a_483 => GHC.Classes.Ord (ParameterList a_483) + +deriving instance GHC.Show.Show a_484 => GHC.Show.Show (ParameterList a_484) + +instance AST.Unmarshal.Unmarshal ParameterList + +instance Data.Foldable.Foldable ParameterList where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ParameterList where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ParameterList where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ParenthesizedExpression a = ParenthesizedExpression + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_485. + AST.Traversable1.Class.Traversable1 a_485 + ) + +instance AST.Unmarshal.SymbolMatching ParenthesizedExpression where + matchedSymbols _ = [158] + showFailure _ node_486 = + "expected " + GHC.Base.<> ( "parenthesized_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_486 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_486) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_487 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_488 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_489 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_490 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_487 + c1_488 = TreeSitter.Node.nodeStartPoint node_486 + TreeSitter.Node.TSPoint + r2_489 + c2_490 = TreeSitter.Node.nodeEndPoint node_486 + +deriving instance GHC.Classes.Eq a_491 => GHC.Classes.Eq (ParenthesizedExpression a_491) + +deriving instance GHC.Classes.Ord a_492 => GHC.Classes.Ord (ParenthesizedExpression a_492) + +deriving instance GHC.Show.Show a_493 => GHC.Show.Show (ParenthesizedExpression a_493) + +instance AST.Unmarshal.Unmarshal ParenthesizedExpression + +instance Data.Foldable.Foldable ParenthesizedExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ParenthesizedExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ParenthesizedExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ParenthesizedType a = ParenthesizedType + { ann :: a, + extraChildren :: (AST.Parse.Err (Type a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_494. + AST.Traversable1.Class.Traversable1 a_494 + ) + +instance AST.Unmarshal.SymbolMatching ParenthesizedType where + matchedSymbols _ = [110] + showFailure _ node_495 = + "expected " + GHC.Base.<> ( "parenthesized_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_495 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_495) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_496 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_497 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_498 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_499 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_496 + c1_497 = TreeSitter.Node.nodeStartPoint node_495 + TreeSitter.Node.TSPoint + r2_498 + c2_499 = TreeSitter.Node.nodeEndPoint node_495 + +deriving instance GHC.Classes.Eq a_500 => GHC.Classes.Eq (ParenthesizedType a_500) + +deriving instance GHC.Classes.Ord a_501 => GHC.Classes.Ord (ParenthesizedType a_501) + +deriving instance GHC.Show.Show a_502 => GHC.Show.Show (ParenthesizedType a_502) + +instance AST.Unmarshal.Unmarshal ParenthesizedType + +instance Data.Foldable.Foldable ParenthesizedType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ParenthesizedType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ParenthesizedType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PointerType a = PointerType {ann :: a, extraChildren :: (AST.Parse.Err (Type a))} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_503. + AST.Traversable1.Class.Traversable1 a_503 + ) + +instance AST.Unmarshal.SymbolMatching PointerType where + matchedSymbols _ = [112] + showFailure _ node_504 = + "expected " + GHC.Base.<> ( "pointer_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_504 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_504) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_505 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_506 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_507 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_508 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_505 + c1_506 = TreeSitter.Node.nodeStartPoint node_504 + TreeSitter.Node.TSPoint + r2_507 + c2_508 = TreeSitter.Node.nodeEndPoint node_504 + +deriving instance GHC.Classes.Eq a_509 => GHC.Classes.Eq (PointerType a_509) + +deriving instance GHC.Classes.Ord a_510 => GHC.Classes.Ord (PointerType a_510) + +deriving instance GHC.Show.Show a_511 => GHC.Show.Show (PointerType a_511) + +instance AST.Unmarshal.Unmarshal PointerType + +instance Data.Foldable.Foldable PointerType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PointerType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PointerType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data QualifiedType a = QualifiedType + { ann :: a, + name :: (AST.Parse.Err (TypeIdentifier a)), + package :: (AST.Parse.Err (PackageIdentifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_512. + AST.Traversable1.Class.Traversable1 a_512 + ) + +instance AST.Unmarshal.SymbolMatching QualifiedType where + matchedSymbols _ = [175] + showFailure _ node_513 = + "expected " + GHC.Base.<> ( "qualified_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_513 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_513) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_514 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_515 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_516 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_517 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_514 + c1_515 = TreeSitter.Node.nodeStartPoint node_513 + TreeSitter.Node.TSPoint + r2_516 + c2_517 = TreeSitter.Node.nodeEndPoint node_513 + +deriving instance GHC.Classes.Eq a_518 => GHC.Classes.Eq (QualifiedType a_518) + +deriving instance GHC.Classes.Ord a_519 => GHC.Classes.Ord (QualifiedType a_519) + +deriving instance GHC.Show.Show a_520 => GHC.Show.Show (QualifiedType a_520) + +instance AST.Unmarshal.Unmarshal QualifiedType + +instance Data.Foldable.Foldable QualifiedType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor QualifiedType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable QualifiedType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RangeClause a = RangeClause + { ann :: a, + left :: (GHC.Maybe.Maybe (AST.Parse.Err (ExpressionList a))), + right :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_521. + AST.Traversable1.Class.Traversable1 a_521 + ) + +instance AST.Unmarshal.SymbolMatching RangeClause where + matchedSymbols _ = [148] + showFailure _ node_522 = + "expected " + GHC.Base.<> ( "range_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_522 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_522) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_523 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_524 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_525 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_526 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_523 + c1_524 = TreeSitter.Node.nodeStartPoint node_522 + TreeSitter.Node.TSPoint + r2_525 + c2_526 = TreeSitter.Node.nodeEndPoint node_522 + +deriving instance GHC.Classes.Eq a_527 => GHC.Classes.Eq (RangeClause a_527) + +deriving instance GHC.Classes.Ord a_528 => GHC.Classes.Ord (RangeClause a_528) + +deriving instance GHC.Show.Show a_529 => GHC.Show.Show (RangeClause a_529) + +instance AST.Unmarshal.Unmarshal RangeClause + +instance Data.Foldable.Foldable RangeClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RangeClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RangeClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ReceiveStatement a = ReceiveStatement + { ann :: a, + left :: (GHC.Maybe.Maybe (AST.Parse.Err (ExpressionList a))), + right :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_530. + AST.Traversable1.Class.Traversable1 a_530 + ) + +instance AST.Unmarshal.SymbolMatching ReceiveStatement where + matchedSymbols _ = [131] + showFailure _ node_531 = + "expected " + GHC.Base.<> ( "receive_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_531 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_531) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_532 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_533 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_534 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_535 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_532 + c1_533 = TreeSitter.Node.nodeStartPoint node_531 + TreeSitter.Node.TSPoint + r2_534 + c2_535 = TreeSitter.Node.nodeEndPoint node_531 + +deriving instance GHC.Classes.Eq a_536 => GHC.Classes.Eq (ReceiveStatement a_536) + +deriving instance GHC.Classes.Ord a_537 => GHC.Classes.Ord (ReceiveStatement a_537) + +deriving instance GHC.Show.Show a_538 => GHC.Show.Show (ReceiveStatement a_538) + +instance AST.Unmarshal.Unmarshal ReceiveStatement + +instance Data.Foldable.Foldable ReceiveStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ReceiveStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ReceiveStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ReturnStatement a = ReturnStatement + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ExpressionList a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_539. + AST.Traversable1.Class.Traversable1 a_539 + ) + +instance AST.Unmarshal.SymbolMatching ReturnStatement where + matchedSymbols _ = [142] + showFailure _ node_540 = + "expected " + GHC.Base.<> ( "return_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_540 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_540) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_541 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_542 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_543 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_544 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_541 + c1_542 = TreeSitter.Node.nodeStartPoint node_540 + TreeSitter.Node.TSPoint + r2_543 + c2_544 = TreeSitter.Node.nodeEndPoint node_540 + +deriving instance GHC.Classes.Eq a_545 => GHC.Classes.Eq (ReturnStatement a_545) + +deriving instance GHC.Classes.Ord a_546 => GHC.Classes.Ord (ReturnStatement a_546) + +deriving instance GHC.Show.Show a_547 => GHC.Show.Show (ReturnStatement a_547) + +instance AST.Unmarshal.Unmarshal ReturnStatement + +instance Data.Foldable.Foldable ReturnStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ReturnStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ReturnStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SelectStatement a = SelectStatement + { ann :: a, + extraChildren :: ([AST.Parse.Err ((CommunicationCase GHC.Generics.:+: DefaultCase) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_548. + AST.Traversable1.Class.Traversable1 a_548 + ) + +instance AST.Unmarshal.SymbolMatching SelectStatement where + matchedSymbols _ = [155] + showFailure _ node_549 = + "expected " + GHC.Base.<> ( "select_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_549 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_549) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_550 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_551 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_552 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_553 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_550 + c1_551 = TreeSitter.Node.nodeStartPoint node_549 + TreeSitter.Node.TSPoint + r2_552 + c2_553 = TreeSitter.Node.nodeEndPoint node_549 + +deriving instance GHC.Classes.Eq a_554 => GHC.Classes.Eq (SelectStatement a_554) + +deriving instance GHC.Classes.Ord a_555 => GHC.Classes.Ord (SelectStatement a_555) + +deriving instance GHC.Show.Show a_556 => GHC.Show.Show (SelectStatement a_556) + +instance AST.Unmarshal.Unmarshal SelectStatement + +instance Data.Foldable.Foldable SelectStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SelectStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SelectStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SelectorExpression a = SelectorExpression + { ann :: a, + field :: (AST.Parse.Err (FieldIdentifier a)), + operand :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_557. + AST.Traversable1.Class.Traversable1 a_557 + ) + +instance AST.Unmarshal.SymbolMatching SelectorExpression where + matchedSymbols _ = [163] + showFailure _ node_558 = + "expected " + GHC.Base.<> ( "selector_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_558 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_558) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_559 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_560 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_561 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_562 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_559 + c1_560 = TreeSitter.Node.nodeStartPoint node_558 + TreeSitter.Node.TSPoint + r2_561 + c2_562 = TreeSitter.Node.nodeEndPoint node_558 + +deriving instance GHC.Classes.Eq a_563 => GHC.Classes.Eq (SelectorExpression a_563) + +deriving instance GHC.Classes.Ord a_564 => GHC.Classes.Ord (SelectorExpression a_564) + +deriving instance GHC.Show.Show a_565 => GHC.Show.Show (SelectorExpression a_565) + +instance AST.Unmarshal.Unmarshal SelectorExpression + +instance Data.Foldable.Foldable SelectorExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SelectorExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SelectorExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SendStatement a = SendStatement + { ann :: a, + value :: (AST.Parse.Err (Expression a)), + channel :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_566. + AST.Traversable1.Class.Traversable1 a_566 + ) + +instance AST.Unmarshal.SymbolMatching SendStatement where + matchedSymbols _ = [130] + showFailure _ node_567 = + "expected " + GHC.Base.<> ( "send_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_567 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_567) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_568 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_569 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_570 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_571 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_568 + c1_569 = TreeSitter.Node.nodeStartPoint node_567 + TreeSitter.Node.TSPoint + r2_570 + c2_571 = TreeSitter.Node.nodeEndPoint node_567 + +deriving instance GHC.Classes.Eq a_572 => GHC.Classes.Eq (SendStatement a_572) + +deriving instance GHC.Classes.Ord a_573 => GHC.Classes.Ord (SendStatement a_573) + +deriving instance GHC.Show.Show a_574 => GHC.Show.Show (SendStatement a_574) + +instance AST.Unmarshal.Unmarshal SendStatement + +instance Data.Foldable.Foldable SendStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SendStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SendStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ShortVarDeclaration a = ShortVarDeclaration + { ann :: a, + left :: (AST.Parse.Err (ExpressionList a)), + right :: (AST.Parse.Err (ExpressionList a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_575. + AST.Traversable1.Class.Traversable1 a_575 + ) + +instance AST.Unmarshal.SymbolMatching ShortVarDeclaration where + matchedSymbols _ = [135] + showFailure _ node_576 = + "expected " + GHC.Base.<> ( "short_var_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_576 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_576) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_577 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_578 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_579 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_580 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_577 + c1_578 = TreeSitter.Node.nodeStartPoint node_576 + TreeSitter.Node.TSPoint + r2_579 + c2_580 = TreeSitter.Node.nodeEndPoint node_576 + +deriving instance GHC.Classes.Eq a_581 => GHC.Classes.Eq (ShortVarDeclaration a_581) + +deriving instance GHC.Classes.Ord a_582 => GHC.Classes.Ord (ShortVarDeclaration a_582) + +deriving instance GHC.Show.Show a_583 => GHC.Show.Show (ShortVarDeclaration a_583) + +instance AST.Unmarshal.Unmarshal ShortVarDeclaration + +instance Data.Foldable.Foldable ShortVarDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ShortVarDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ShortVarDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SliceExpression a = SliceExpression + { ann :: a, + start :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + capacity :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + end :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + operand :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_584. + AST.Traversable1.Class.Traversable1 a_584 + ) + +instance AST.Unmarshal.SymbolMatching SliceExpression where + matchedSymbols _ = [165] + showFailure _ node_585 = + "expected " + GHC.Base.<> ( "slice_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_585 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_585) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_586 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_587 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_588 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_589 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_586 + c1_587 = TreeSitter.Node.nodeStartPoint node_585 + TreeSitter.Node.TSPoint + r2_588 + c2_589 = TreeSitter.Node.nodeEndPoint node_585 + +deriving instance GHC.Classes.Eq a_590 => GHC.Classes.Eq (SliceExpression a_590) + +deriving instance GHC.Classes.Ord a_591 => GHC.Classes.Ord (SliceExpression a_591) + +deriving instance GHC.Show.Show a_592 => GHC.Show.Show (SliceExpression a_592) + +instance AST.Unmarshal.Unmarshal SliceExpression + +instance Data.Foldable.Foldable SliceExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SliceExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SliceExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SliceType a = SliceType {ann :: a, element :: (AST.Parse.Err (Type a))} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_593. + AST.Traversable1.Class.Traversable1 a_593 + ) + +instance AST.Unmarshal.SymbolMatching SliceType where + matchedSymbols _ = [115] + showFailure _ node_594 = + "expected " + GHC.Base.<> ( "slice_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_594 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_594) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_595 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_596 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_597 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_598 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_595 + c1_596 = TreeSitter.Node.nodeStartPoint node_594 + TreeSitter.Node.TSPoint + r2_597 + c2_598 = TreeSitter.Node.nodeEndPoint node_594 + +deriving instance GHC.Classes.Eq a_599 => GHC.Classes.Eq (SliceType a_599) + +deriving instance GHC.Classes.Ord a_600 => GHC.Classes.Ord (SliceType a_600) + +deriving instance GHC.Show.Show a_601 => GHC.Show.Show (SliceType a_601) + +instance AST.Unmarshal.Unmarshal SliceType + +instance Data.Foldable.Foldable SliceType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SliceType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SliceType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SourceFile a = SourceFile + { ann :: a, + extraChildren :: ([AST.Parse.Err ((ConstDeclaration GHC.Generics.:+: FunctionDeclaration GHC.Generics.:+: ImportDeclaration GHC.Generics.:+: MethodDeclaration GHC.Generics.:+: PackageClause GHC.Generics.:+: TypeDeclaration GHC.Generics.:+: VarDeclaration) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_602. + AST.Traversable1.Class.Traversable1 a_602 + ) + +instance AST.Unmarshal.SymbolMatching SourceFile where + matchedSymbols _ = [90] + showFailure _ node_603 = + "expected " + GHC.Base.<> ( "source_file" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_603 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_603) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_604 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_605 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_606 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_607 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_604 + c1_605 = TreeSitter.Node.nodeStartPoint node_603 + TreeSitter.Node.TSPoint + r2_606 + c2_607 = TreeSitter.Node.nodeEndPoint node_603 + +deriving instance GHC.Classes.Eq a_608 => GHC.Classes.Eq (SourceFile a_608) + +deriving instance GHC.Classes.Ord a_609 => GHC.Classes.Ord (SourceFile a_609) + +deriving instance GHC.Show.Show a_610 => GHC.Show.Show (SourceFile a_610) + +instance AST.Unmarshal.Unmarshal SourceFile + +instance Data.Foldable.Foldable SourceFile where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SourceFile where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SourceFile where + traverse = AST.Traversable1.Class.traverseDefault1 + +data StructType a = StructType + { ann :: a, + extraChildren :: (AST.Parse.Err (FieldDeclarationList a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_611. + AST.Traversable1.Class.Traversable1 a_611 + ) + +instance AST.Unmarshal.SymbolMatching StructType where + matchedSymbols _ = [116] + showFailure _ node_612 = + "expected " + GHC.Base.<> ( "struct_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_612 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_612) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_613 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_614 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_615 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_616 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_613 + c1_614 = TreeSitter.Node.nodeStartPoint node_612 + TreeSitter.Node.TSPoint + r2_615 + c2_616 = TreeSitter.Node.nodeEndPoint node_612 + +deriving instance GHC.Classes.Eq a_617 => GHC.Classes.Eq (StructType a_617) + +deriving instance GHC.Classes.Ord a_618 => GHC.Classes.Ord (StructType a_618) + +deriving instance GHC.Show.Show a_619 => GHC.Show.Show (StructType a_619) + +instance AST.Unmarshal.Unmarshal StructType + +instance Data.Foldable.Foldable StructType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor StructType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable StructType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeAlias a = TypeAlias + { ann :: a, + name :: (AST.Parse.Err (TypeIdentifier a)), + type' :: (AST.Parse.Err (Type a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_620. + AST.Traversable1.Class.Traversable1 a_620 + ) + +instance AST.Unmarshal.SymbolMatching TypeAlias where + matchedSymbols _ = [106] + showFailure _ node_621 = + "expected " + GHC.Base.<> ( "type_alias" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_621 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_621) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_622 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_623 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_624 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_625 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_622 + c1_623 = TreeSitter.Node.nodeStartPoint node_621 + TreeSitter.Node.TSPoint + r2_624 + c2_625 = TreeSitter.Node.nodeEndPoint node_621 + +deriving instance GHC.Classes.Eq a_626 => GHC.Classes.Eq (TypeAlias a_626) + +deriving instance GHC.Classes.Ord a_627 => GHC.Classes.Ord (TypeAlias a_627) + +deriving instance GHC.Show.Show a_628 => GHC.Show.Show (TypeAlias a_628) + +instance AST.Unmarshal.Unmarshal TypeAlias + +instance Data.Foldable.Foldable TypeAlias where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeAlias where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeAlias where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeAssertionExpression a = TypeAssertionExpression + { ann :: a, + type' :: (AST.Parse.Err (Type a)), + operand :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_629. + AST.Traversable1.Class.Traversable1 a_629 + ) + +instance AST.Unmarshal.SymbolMatching TypeAssertionExpression where + matchedSymbols _ = [166] + showFailure _ node_630 = + "expected " + GHC.Base.<> ( "type_assertion_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_630 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_630) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_631 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_632 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_633 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_634 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_631 + c1_632 = TreeSitter.Node.nodeStartPoint node_630 + TreeSitter.Node.TSPoint + r2_633 + c2_634 = TreeSitter.Node.nodeEndPoint node_630 + +deriving instance GHC.Classes.Eq a_635 => GHC.Classes.Eq (TypeAssertionExpression a_635) + +deriving instance GHC.Classes.Ord a_636 => GHC.Classes.Ord (TypeAssertionExpression a_636) + +deriving instance GHC.Show.Show a_637 => GHC.Show.Show (TypeAssertionExpression a_637) + +instance AST.Unmarshal.Unmarshal TypeAssertionExpression + +instance Data.Foldable.Foldable TypeAssertionExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeAssertionExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeAssertionExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeCase a = TypeCase + { ann :: a, + type' :: (GHC.Base.NonEmpty (AST.Parse.Err ((AnonymousComma GHC.Generics.:+: Type) a))), + extraChildren :: ([AST.Parse.Err (Statement a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_638. + AST.Traversable1.Class.Traversable1 a_638 + ) + +instance AST.Unmarshal.SymbolMatching TypeCase where + matchedSymbols _ = [154] + showFailure _ node_639 = + "expected " + GHC.Base.<> ( "type_case" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_639 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_639) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_640 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_641 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_642 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_643 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_640 + c1_641 = TreeSitter.Node.nodeStartPoint node_639 + TreeSitter.Node.TSPoint + r2_642 + c2_643 = TreeSitter.Node.nodeEndPoint node_639 + +deriving instance GHC.Classes.Eq a_644 => GHC.Classes.Eq (TypeCase a_644) + +deriving instance GHC.Classes.Ord a_645 => GHC.Classes.Ord (TypeCase a_645) + +deriving instance GHC.Show.Show a_646 => GHC.Show.Show (TypeCase a_646) + +instance AST.Unmarshal.Unmarshal TypeCase + +instance Data.Foldable.Foldable TypeCase where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeCase where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeCase where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeConversionExpression a = TypeConversionExpression + { ann :: a, + type' :: (AST.Parse.Err (Type a)), + operand :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_647. + AST.Traversable1.Class.Traversable1 a_647 + ) + +instance AST.Unmarshal.SymbolMatching TypeConversionExpression where + matchedSymbols _ = [167] + showFailure _ node_648 = + "expected " + GHC.Base.<> ( "type_conversion_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_648 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_648) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_649 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_650 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_651 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_652 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_649 + c1_650 = TreeSitter.Node.nodeStartPoint node_648 + TreeSitter.Node.TSPoint + r2_651 + c2_652 = TreeSitter.Node.nodeEndPoint node_648 + +deriving instance GHC.Classes.Eq a_653 => GHC.Classes.Eq (TypeConversionExpression a_653) + +deriving instance GHC.Classes.Ord a_654 => GHC.Classes.Ord (TypeConversionExpression a_654) + +deriving instance GHC.Show.Show a_655 => GHC.Show.Show (TypeConversionExpression a_655) + +instance AST.Unmarshal.Unmarshal TypeConversionExpression + +instance Data.Foldable.Foldable TypeConversionExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeConversionExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeConversionExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeDeclaration a = TypeDeclaration + { ann :: a, + extraChildren :: ([AST.Parse.Err ((TypeAlias GHC.Generics.:+: TypeSpec) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_656. + AST.Traversable1.Class.Traversable1 a_656 + ) + +instance AST.Unmarshal.SymbolMatching TypeDeclaration where + matchedSymbols _ = [107] + showFailure _ node_657 = + "expected " + GHC.Base.<> ( "type_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_657 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_657) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_658 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_659 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_660 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_661 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_658 + c1_659 = TreeSitter.Node.nodeStartPoint node_657 + TreeSitter.Node.TSPoint + r2_660 + c2_661 = TreeSitter.Node.nodeEndPoint node_657 + +deriving instance GHC.Classes.Eq a_662 => GHC.Classes.Eq (TypeDeclaration a_662) + +deriving instance GHC.Classes.Ord a_663 => GHC.Classes.Ord (TypeDeclaration a_663) + +deriving instance GHC.Show.Show a_664 => GHC.Show.Show (TypeDeclaration a_664) + +instance AST.Unmarshal.Unmarshal TypeDeclaration + +instance Data.Foldable.Foldable TypeDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeSpec a = TypeSpec + { ann :: a, + name :: (AST.Parse.Err (TypeIdentifier a)), + type' :: (AST.Parse.Err (Type a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_665. + AST.Traversable1.Class.Traversable1 a_665 + ) + +instance AST.Unmarshal.SymbolMatching TypeSpec where + matchedSymbols _ = [108] + showFailure _ node_666 = + "expected " + GHC.Base.<> ( "type_spec" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_666 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_666) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_667 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_668 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_669 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_670 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_667 + c1_668 = TreeSitter.Node.nodeStartPoint node_666 + TreeSitter.Node.TSPoint + r2_669 + c2_670 = TreeSitter.Node.nodeEndPoint node_666 + +deriving instance GHC.Classes.Eq a_671 => GHC.Classes.Eq (TypeSpec a_671) + +deriving instance GHC.Classes.Ord a_672 => GHC.Classes.Ord (TypeSpec a_672) + +deriving instance GHC.Show.Show a_673 => GHC.Show.Show (TypeSpec a_673) + +instance AST.Unmarshal.Unmarshal TypeSpec + +instance Data.Foldable.Foldable TypeSpec where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeSpec where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeSpec where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeSwitchStatement a = TypeSwitchStatement + { ann :: a, + value :: (AST.Parse.Err (Expression a)), + alias :: (GHC.Maybe.Maybe (AST.Parse.Err (ExpressionList a))), + initializer :: (GHC.Maybe.Maybe (AST.Parse.Err (SimpleStatement a))), + extraChildren :: ([AST.Parse.Err ((DefaultCase GHC.Generics.:+: TypeCase) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_674. + AST.Traversable1.Class.Traversable1 a_674 + ) + +instance AST.Unmarshal.SymbolMatching TypeSwitchStatement where + matchedSymbols _ = [152] + showFailure _ node_675 = + "expected " + GHC.Base.<> ( "type_switch_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_675 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_675) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_676 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_677 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_678 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_679 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_676 + c1_677 = TreeSitter.Node.nodeStartPoint node_675 + TreeSitter.Node.TSPoint + r2_678 + c2_679 = TreeSitter.Node.nodeEndPoint node_675 + +deriving instance GHC.Classes.Eq a_680 => GHC.Classes.Eq (TypeSwitchStatement a_680) + +deriving instance GHC.Classes.Ord a_681 => GHC.Classes.Ord (TypeSwitchStatement a_681) + +deriving instance GHC.Show.Show a_682 => GHC.Show.Show (TypeSwitchStatement a_682) + +instance AST.Unmarshal.Unmarshal TypeSwitchStatement + +instance Data.Foldable.Foldable TypeSwitchStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeSwitchStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeSwitchStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UnaryExpression a = UnaryExpression + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousBang GHC.Generics.:+: AnonymousAmpersand GHC.Generics.:+: AnonymousStar GHC.Generics.:+: AnonymousPlus GHC.Generics.:+: AnonymousMinus GHC.Generics.:+: AnonymousLAngleMinus GHC.Generics.:+: AnonymousCaret) a)), + operand :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_683. + AST.Traversable1.Class.Traversable1 a_683 + ) + +instance AST.Unmarshal.SymbolMatching UnaryExpression where + matchedSymbols _ = [173] + showFailure _ node_684 = + "expected " + GHC.Base.<> ( "unary_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_684 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_684) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_685 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_686 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_687 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_688 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_685 + c1_686 = TreeSitter.Node.nodeStartPoint node_684 + TreeSitter.Node.TSPoint + r2_687 + c2_688 = TreeSitter.Node.nodeEndPoint node_684 + +deriving instance GHC.Classes.Eq a_689 => GHC.Classes.Eq (UnaryExpression a_689) + +deriving instance GHC.Classes.Ord a_690 => GHC.Classes.Ord (UnaryExpression a_690) + +deriving instance GHC.Show.Show a_691 => GHC.Show.Show (UnaryExpression a_691) + +instance AST.Unmarshal.Unmarshal UnaryExpression + +instance Data.Foldable.Foldable UnaryExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UnaryExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UnaryExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data VarDeclaration a = VarDeclaration + { ann :: a, + extraChildren :: ([AST.Parse.Err (VarSpec a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_692. + AST.Traversable1.Class.Traversable1 a_692 + ) + +instance AST.Unmarshal.SymbolMatching VarDeclaration where + matchedSymbols _ = [99] + showFailure _ node_693 = + "expected " + GHC.Base.<> ( "var_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_693 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_693) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_694 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_695 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_696 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_697 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_694 + c1_695 = TreeSitter.Node.nodeStartPoint node_693 + TreeSitter.Node.TSPoint + r2_696 + c2_697 = TreeSitter.Node.nodeEndPoint node_693 + +deriving instance GHC.Classes.Eq a_698 => GHC.Classes.Eq (VarDeclaration a_698) + +deriving instance GHC.Classes.Ord a_699 => GHC.Classes.Ord (VarDeclaration a_699) + +deriving instance GHC.Show.Show a_700 => GHC.Show.Show (VarDeclaration a_700) + +instance AST.Unmarshal.Unmarshal VarDeclaration + +instance Data.Foldable.Foldable VarDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor VarDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable VarDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data VarSpec a = VarSpec + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err (ExpressionList a))), + name :: (GHC.Base.NonEmpty (AST.Parse.Err ((AnonymousComma GHC.Generics.:+: Identifier) a))), + type' :: (GHC.Maybe.Maybe (AST.Parse.Err (Type a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_701. + AST.Traversable1.Class.Traversable1 a_701 + ) + +instance AST.Unmarshal.SymbolMatching VarSpec where + matchedSymbols _ = [100] + showFailure _ node_702 = + "expected " + GHC.Base.<> ( "var_spec" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_702 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_702) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_703 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_704 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_705 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_706 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_703 + c1_704 = TreeSitter.Node.nodeStartPoint node_702 + TreeSitter.Node.TSPoint + r2_705 + c2_706 = TreeSitter.Node.nodeEndPoint node_702 + +deriving instance GHC.Classes.Eq a_707 => GHC.Classes.Eq (VarSpec a_707) + +deriving instance GHC.Classes.Ord a_708 => GHC.Classes.Ord (VarSpec a_708) + +deriving instance GHC.Show.Show a_709 => GHC.Show.Show (VarSpec a_709) + +instance AST.Unmarshal.Unmarshal VarSpec + +instance Data.Foldable.Foldable VarSpec where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor VarSpec where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable VarSpec where + traverse = AST.Traversable1.Class.traverseDefault1 + +data VariadicArgument a = VariadicArgument + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_710. + AST.Traversable1.Class.Traversable1 a_710 + ) + +instance AST.Unmarshal.SymbolMatching VariadicArgument where + matchedSymbols _ = [160] + showFailure _ node_711 = + "expected " + GHC.Base.<> ( "variadic_argument" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_711 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_711) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_712 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_713 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_714 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_715 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_712 + c1_713 = TreeSitter.Node.nodeStartPoint node_711 + TreeSitter.Node.TSPoint + r2_714 + c2_715 = TreeSitter.Node.nodeEndPoint node_711 + +deriving instance GHC.Classes.Eq a_716 => GHC.Classes.Eq (VariadicArgument a_716) + +deriving instance GHC.Classes.Ord a_717 => GHC.Classes.Ord (VariadicArgument a_717) + +deriving instance GHC.Show.Show a_718 => GHC.Show.Show (VariadicArgument a_718) + +instance AST.Unmarshal.Unmarshal VariadicArgument + +instance Data.Foldable.Foldable VariadicArgument where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor VariadicArgument where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable VariadicArgument where + traverse = AST.Traversable1.Class.traverseDefault1 + +data VariadicParameterDeclaration a = VariadicParameterDeclaration + { ann :: a, + name :: (GHC.Maybe.Maybe (AST.Parse.Err (Identifier a))), + type' :: (AST.Parse.Err (Type a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_719. + AST.Traversable1.Class.Traversable1 a_719 + ) + +instance AST.Unmarshal.SymbolMatching VariadicParameterDeclaration where + matchedSymbols _ = [105] + showFailure _ node_720 = + "expected " + GHC.Base.<> ( "variadic_parameter_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_720 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_720) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_721 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_722 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_723 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_724 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_721 + c1_722 = TreeSitter.Node.nodeStartPoint node_720 + TreeSitter.Node.TSPoint + r2_723 + c2_724 = TreeSitter.Node.nodeEndPoint node_720 + +deriving instance GHC.Classes.Eq a_725 => GHC.Classes.Eq (VariadicParameterDeclaration a_725) + +deriving instance GHC.Classes.Ord a_726 => GHC.Classes.Ord (VariadicParameterDeclaration a_726) + +deriving instance GHC.Show.Show a_727 => GHC.Show.Show (VariadicParameterDeclaration a_727) + +instance AST.Unmarshal.Unmarshal VariadicParameterDeclaration + +instance Data.Foldable.Foldable VariadicParameterDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor VariadicParameterDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable VariadicParameterDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousLF = AST.Token.Token "\n" 2 + +type AnonymousBang = AST.Token.Token "!" 61 + +type AnonymousBangEqual = AST.Token.Token "!=" 71 + +type AnonymousDQuote = AST.Token.Token "\"" 79 + +type AnonymousPercent = AST.Token.Token "%" 65 + +type AnonymousPercentEqual = AST.Token.Token "%=" 32 + +type AnonymousAmpersand = AST.Token.Token "&" 63 + +type AnonymousAmpersandAmpersand = AST.Token.Token "&&" 76 + +type AnonymousAmpersandEqual = AST.Token.Token "&=" 35 + +type AnonymousAmpersandCaret = AST.Token.Token "&^" 68 + +type AnonymousAmpersandCaretEqual = AST.Token.Token "&^=" 36 + +type AnonymousLParen = AST.Token.Token "(" 8 + +type AnonymousRParen = AST.Token.Token ")" 9 + +type AnonymousStar = AST.Token.Token "*" 17 + +type AnonymousStarEqual = AST.Token.Token "*=" 30 + +type AnonymousPlus = AST.Token.Token "+" 59 + +type AnonymousPlusPlus = AST.Token.Token "++" 28 + +type AnonymousPlusEqual = AST.Token.Token "+=" 37 + +type AnonymousComma = AST.Token.Token "," 11 + +type AnonymousMinus = AST.Token.Token "-" 60 + +type AnonymousMinusMinus = AST.Token.Token "--" 29 + +type AnonymousMinusEqual = AST.Token.Token "-=" 38 + +type AnonymousDot = AST.Token.Token "." 6 + +type AnonymousDotDotDot = AST.Token.Token "..." 15 + +type AnonymousSlash = AST.Token.Token "/" 64 + +type AnonymousSlashEqual = AST.Token.Token "/=" 31 + +type AnonymousColon = AST.Token.Token ":" 41 + +type AnonymousColonEqual = AST.Token.Token ":=" 27 + +type AnonymousSemicolon = AST.Token.Token ";" 3 + +type AnonymousLAngle = AST.Token.Token "<" 72 + +type AnonymousLAngleMinus = AST.Token.Token "<-" 26 + +type AnonymousLAngleLAngle = AST.Token.Token "<<" 66 + +type AnonymousLAngleLAngleEqual = AST.Token.Token "<<=" 33 + +type AnonymousLAngleEqual = AST.Token.Token "<=" 73 + +type AnonymousEqual = AST.Token.Token "=" 12 + +type AnonymousEqualEqual = AST.Token.Token "==" 70 + +type AnonymousRAngle = AST.Token.Token ">" 74 + +type AnonymousRAngleEqual = AST.Token.Token ">=" 75 + +type AnonymousRAngleRAngle = AST.Token.Token ">>" 67 + +type AnonymousRAngleRAngleEqual = AST.Token.Token ">>=" 34 + +type AnonymousLBracket = AST.Token.Token "[" 18 + +type AnonymousRBracket = AST.Token.Token "]" 19 + +type AnonymousCaret = AST.Token.Token "^" 62 + +type AnonymousCaretEqual = AST.Token.Token "^=" 40 + +data BlankIdentifier a = BlankIdentifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_728. + AST.Traversable1.Class.Traversable1 a_728 + ) + +instance AST.Unmarshal.SymbolMatching BlankIdentifier where + matchedSymbols _ = [7] + showFailure _ node_729 = + "expected " + GHC.Base.<> ( "blank_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_729 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_729) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_730 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_731 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_732 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_733 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_730 + c1_731 = TreeSitter.Node.nodeStartPoint node_729 + TreeSitter.Node.TSPoint + r2_732 + c2_733 = TreeSitter.Node.nodeEndPoint node_729 + +deriving instance GHC.Classes.Eq a_734 => GHC.Classes.Eq (BlankIdentifier a_734) + +deriving instance GHC.Classes.Ord a_735 => GHC.Classes.Ord (BlankIdentifier a_735) + +deriving instance GHC.Show.Show a_736 => GHC.Show.Show (BlankIdentifier a_736) + +instance AST.Unmarshal.Unmarshal BlankIdentifier + +instance Data.Foldable.Foldable BlankIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BlankIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BlankIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousBreak = AST.Token.Token "break" 43 + +type AnonymousCase = AST.Token.Token "case" 54 + +type AnonymousChan = AST.Token.Token "chan" 25 + +type AnonymousConst = AST.Token.Token "const" 10 + +type AnonymousContinue = AST.Token.Token "continue" 44 + +type AnonymousDefault = AST.Token.Token "default" 55 + +type AnonymousDefer = AST.Token.Token "defer" 48 + +type AnonymousElse = AST.Token.Token "else" 50 + +data EscapeSequence a = EscapeSequence {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_737. + AST.Traversable1.Class.Traversable1 a_737 + ) + +instance AST.Unmarshal.SymbolMatching EscapeSequence where + matchedSymbols _ = [81] + showFailure _ node_738 = + "expected " + GHC.Base.<> ( "escape_sequence" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_738 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_738) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_739 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_740 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_741 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_742 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_739 + c1_740 = TreeSitter.Node.nodeStartPoint node_738 + TreeSitter.Node.TSPoint + r2_741 + c2_742 = TreeSitter.Node.nodeEndPoint node_738 + +deriving instance GHC.Classes.Eq a_743 => GHC.Classes.Eq (EscapeSequence a_743) + +deriving instance GHC.Classes.Ord a_744 => GHC.Classes.Ord (EscapeSequence a_744) + +deriving instance GHC.Show.Show a_745 => GHC.Show.Show (EscapeSequence a_745) + +instance AST.Unmarshal.Unmarshal EscapeSequence + +instance Data.Foldable.Foldable EscapeSequence where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EscapeSequence where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EscapeSequence where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousFallthrough = AST.Token.Token "fallthrough" 42 + +data False a = False {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_746. + AST.Traversable1.Class.Traversable1 a_746 + ) + +instance AST.Unmarshal.SymbolMatching False where + matchedSymbols _ = [88] + showFailure _ node_747 = + "expected " + GHC.Base.<> ( "false" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_747 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_747) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_748 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_749 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_750 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_751 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_748 + c1_749 = TreeSitter.Node.nodeStartPoint node_747 + TreeSitter.Node.TSPoint + r2_750 + c2_751 = TreeSitter.Node.nodeEndPoint node_747 + +deriving instance GHC.Classes.Eq a_752 => GHC.Classes.Eq (False a_752) + +deriving instance GHC.Classes.Ord a_753 => GHC.Classes.Ord (False a_753) + +deriving instance GHC.Show.Show a_754 => GHC.Show.Show (False a_754) + +instance AST.Unmarshal.Unmarshal False + +instance Data.Foldable.Foldable False where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor False where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable False where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FieldIdentifier a = FieldIdentifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_755. + AST.Traversable1.Class.Traversable1 a_755 + ) + +instance AST.Unmarshal.SymbolMatching FieldIdentifier where + matchedSymbols _ = [196] + showFailure _ node_756 = + "expected " + GHC.Base.<> ( "field_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_756 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_756) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_757 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_758 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_759 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_760 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_757 + c1_758 = TreeSitter.Node.nodeStartPoint node_756 + TreeSitter.Node.TSPoint + r2_759 + c2_760 = TreeSitter.Node.nodeEndPoint node_756 + +deriving instance GHC.Classes.Eq a_761 => GHC.Classes.Eq (FieldIdentifier a_761) + +deriving instance GHC.Classes.Ord a_762 => GHC.Classes.Ord (FieldIdentifier a_762) + +deriving instance GHC.Show.Show a_763 => GHC.Show.Show (FieldIdentifier a_763) + +instance AST.Unmarshal.Unmarshal FieldIdentifier + +instance Data.Foldable.Foldable FieldIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FieldIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FieldIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FloatLiteral a = FloatLiteral {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_764. + AST.Traversable1.Class.Traversable1 a_764 + ) + +instance AST.Unmarshal.SymbolMatching FloatLiteral where + matchedSymbols _ = [83] + showFailure _ node_765 = + "expected " + GHC.Base.<> ( "float_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_765 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_765) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_766 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_767 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_768 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_769 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_766 + c1_767 = TreeSitter.Node.nodeStartPoint node_765 + TreeSitter.Node.TSPoint + r2_768 + c2_769 = TreeSitter.Node.nodeEndPoint node_765 + +deriving instance GHC.Classes.Eq a_770 => GHC.Classes.Eq (FloatLiteral a_770) + +deriving instance GHC.Classes.Ord a_771 => GHC.Classes.Ord (FloatLiteral a_771) + +deriving instance GHC.Show.Show a_772 => GHC.Show.Show (FloatLiteral a_772) + +instance AST.Unmarshal.Unmarshal FloatLiteral + +instance Data.Foldable.Foldable FloatLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FloatLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FloatLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousFor = AST.Token.Token "for" 51 + +type AnonymousFunc = AST.Token.Token "func" 14 + +type AnonymousGo = AST.Token.Token "go" 47 + +type AnonymousGoto = AST.Token.Token "goto" 45 + +data Identifier a = Identifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_773. + AST.Traversable1.Class.Traversable1 a_773 + ) + +instance AST.Unmarshal.SymbolMatching Identifier where + matchedSymbols _ = [1, 57, 58] + showFailure _ node_774 = + "expected " + GHC.Base.<> ( "identifier, identifier, identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_774 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_774) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_775 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_776 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_777 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_778 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_775 + c1_776 = TreeSitter.Node.nodeStartPoint node_774 + TreeSitter.Node.TSPoint + r2_777 + c2_778 = TreeSitter.Node.nodeEndPoint node_774 + +deriving instance GHC.Classes.Eq a_779 => GHC.Classes.Eq (Identifier a_779) + +deriving instance GHC.Classes.Ord a_780 => GHC.Classes.Ord (Identifier a_780) + +deriving instance GHC.Show.Show a_781 => GHC.Show.Show (Identifier a_781) + +instance AST.Unmarshal.Unmarshal Identifier + +instance Data.Foldable.Foldable Identifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Identifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Identifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousIf = AST.Token.Token "if" 49 + +data ImaginaryLiteral a = ImaginaryLiteral {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_782. + AST.Traversable1.Class.Traversable1 a_782 + ) + +instance AST.Unmarshal.SymbolMatching ImaginaryLiteral where + matchedSymbols _ = [84] + showFailure _ node_783 = + "expected " + GHC.Base.<> ( "imaginary_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_783 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_783) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_784 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_785 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_786 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_787 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_784 + c1_785 = TreeSitter.Node.nodeStartPoint node_783 + TreeSitter.Node.TSPoint + r2_786 + c2_787 = TreeSitter.Node.nodeEndPoint node_783 + +deriving instance GHC.Classes.Eq a_788 => GHC.Classes.Eq (ImaginaryLiteral a_788) + +deriving instance GHC.Classes.Ord a_789 => GHC.Classes.Ord (ImaginaryLiteral a_789) + +deriving instance GHC.Show.Show a_790 => GHC.Show.Show (ImaginaryLiteral a_790) + +instance AST.Unmarshal.Unmarshal ImaginaryLiteral + +instance Data.Foldable.Foldable ImaginaryLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImaginaryLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImaginaryLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousImport = AST.Token.Token "import" 5 + +data IntLiteral a = IntLiteral {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_791. + AST.Traversable1.Class.Traversable1 a_791 + ) + +instance AST.Unmarshal.SymbolMatching IntLiteral where + matchedSymbols _ = [82] + showFailure _ node_792 = + "expected " + GHC.Base.<> ( "int_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_792 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_792) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_793 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_794 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_795 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_796 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_793 + c1_794 = TreeSitter.Node.nodeStartPoint node_792 + TreeSitter.Node.TSPoint + r2_795 + c2_796 = TreeSitter.Node.nodeEndPoint node_792 + +deriving instance GHC.Classes.Eq a_797 => GHC.Classes.Eq (IntLiteral a_797) + +deriving instance GHC.Classes.Ord a_798 => GHC.Classes.Ord (IntLiteral a_798) + +deriving instance GHC.Show.Show a_799 => GHC.Show.Show (IntLiteral a_799) + +instance AST.Unmarshal.Unmarshal IntLiteral + +instance Data.Foldable.Foldable IntLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IntLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IntLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousInterface = AST.Token.Token "interface" 23 + +data LabelName a = LabelName {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_800. + AST.Traversable1.Class.Traversable1 a_800 + ) + +instance AST.Unmarshal.SymbolMatching LabelName where + matchedSymbols _ = [197] + showFailure _ node_801 = + "expected " + GHC.Base.<> ( "label_name" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_801 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_801) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_802 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_803 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_804 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_805 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_802 + c1_803 = TreeSitter.Node.nodeStartPoint node_801 + TreeSitter.Node.TSPoint + r2_804 + c2_805 = TreeSitter.Node.nodeEndPoint node_801 + +deriving instance GHC.Classes.Eq a_806 => GHC.Classes.Eq (LabelName a_806) + +deriving instance GHC.Classes.Ord a_807 => GHC.Classes.Ord (LabelName a_807) + +deriving instance GHC.Show.Show a_808 => GHC.Show.Show (LabelName a_808) + +instance AST.Unmarshal.Unmarshal LabelName + +instance Data.Foldable.Foldable LabelName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LabelName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LabelName where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousMap = AST.Token.Token "map" 24 + +data Nil a = Nil {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_809. + AST.Traversable1.Class.Traversable1 a_809 + ) + +instance AST.Unmarshal.SymbolMatching Nil where + matchedSymbols _ = [86] + showFailure _ node_810 = + "expected " + GHC.Base.<> ( "nil" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_810 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_810) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_811 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_812 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_813 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_814 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_811 + c1_812 = TreeSitter.Node.nodeStartPoint node_810 + TreeSitter.Node.TSPoint + r2_813 + c2_814 = TreeSitter.Node.nodeEndPoint node_810 + +deriving instance GHC.Classes.Eq a_815 => GHC.Classes.Eq (Nil a_815) + +deriving instance GHC.Classes.Ord a_816 => GHC.Classes.Ord (Nil a_816) + +deriving instance GHC.Show.Show a_817 => GHC.Show.Show (Nil a_817) + +instance AST.Unmarshal.Unmarshal Nil + +instance Data.Foldable.Foldable Nil where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Nil where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Nil where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousPackage = AST.Token.Token "package" 4 + +data PackageIdentifier a = PackageIdentifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_818. + AST.Traversable1.Class.Traversable1 a_818 + ) + +instance AST.Unmarshal.SymbolMatching PackageIdentifier where + matchedSymbols _ = [198] + showFailure _ node_819 = + "expected " + GHC.Base.<> ( "package_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_819 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_819) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_820 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_821 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_822 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_823 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_820 + c1_821 = TreeSitter.Node.nodeStartPoint node_819 + TreeSitter.Node.TSPoint + r2_822 + c2_823 = TreeSitter.Node.nodeEndPoint node_819 + +deriving instance GHC.Classes.Eq a_824 => GHC.Classes.Eq (PackageIdentifier a_824) + +deriving instance GHC.Classes.Ord a_825 => GHC.Classes.Ord (PackageIdentifier a_825) + +deriving instance GHC.Show.Show a_826 => GHC.Show.Show (PackageIdentifier a_826) + +instance AST.Unmarshal.Unmarshal PackageIdentifier + +instance Data.Foldable.Foldable PackageIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PackageIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PackageIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousRange = AST.Token.Token "range" 52 + +data RawStringLiteral a = RawStringLiteral {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_827. + AST.Traversable1.Class.Traversable1 a_827 + ) + +instance AST.Unmarshal.SymbolMatching RawStringLiteral where + matchedSymbols _ = [78] + showFailure _ node_828 = + "expected " + GHC.Base.<> ( "raw_string_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_828 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_828) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_829 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_830 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_831 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_832 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_829 + c1_830 = TreeSitter.Node.nodeStartPoint node_828 + TreeSitter.Node.TSPoint + r2_831 + c2_832 = TreeSitter.Node.nodeEndPoint node_828 + +deriving instance GHC.Classes.Eq a_833 => GHC.Classes.Eq (RawStringLiteral a_833) + +deriving instance GHC.Classes.Ord a_834 => GHC.Classes.Ord (RawStringLiteral a_834) + +deriving instance GHC.Show.Show a_835 => GHC.Show.Show (RawStringLiteral a_835) + +instance AST.Unmarshal.Unmarshal RawStringLiteral + +instance Data.Foldable.Foldable RawStringLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RawStringLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RawStringLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousReturn = AST.Token.Token "return" 46 + +data RuneLiteral a = RuneLiteral {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_836. + AST.Traversable1.Class.Traversable1 a_836 + ) + +instance AST.Unmarshal.SymbolMatching RuneLiteral where + matchedSymbols _ = [85] + showFailure _ node_837 = + "expected " + GHC.Base.<> ( "rune_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_837 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_837) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_838 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_839 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_840 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_841 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_838 + c1_839 = TreeSitter.Node.nodeStartPoint node_837 + TreeSitter.Node.TSPoint + r2_840 + c2_841 = TreeSitter.Node.nodeEndPoint node_837 + +deriving instance GHC.Classes.Eq a_842 => GHC.Classes.Eq (RuneLiteral a_842) + +deriving instance GHC.Classes.Ord a_843 => GHC.Classes.Ord (RuneLiteral a_843) + +deriving instance GHC.Show.Show a_844 => GHC.Show.Show (RuneLiteral a_844) + +instance AST.Unmarshal.Unmarshal RuneLiteral + +instance Data.Foldable.Foldable RuneLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RuneLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RuneLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousSelect = AST.Token.Token "select" 56 + +type AnonymousStruct = AST.Token.Token "struct" 20 + +type AnonymousSwitch = AST.Token.Token "switch" 53 + +data True a = True {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_845. + AST.Traversable1.Class.Traversable1 a_845 + ) + +instance AST.Unmarshal.SymbolMatching True where + matchedSymbols _ = [87] + showFailure _ node_846 = + "expected " + GHC.Base.<> ( "true" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_846 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_846) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_847 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_848 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_849 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_850 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_847 + c1_848 = TreeSitter.Node.nodeStartPoint node_846 + TreeSitter.Node.TSPoint + r2_849 + c2_850 = TreeSitter.Node.nodeEndPoint node_846 + +deriving instance GHC.Classes.Eq a_851 => GHC.Classes.Eq (True a_851) + +deriving instance GHC.Classes.Ord a_852 => GHC.Classes.Ord (True a_852) + +deriving instance GHC.Show.Show a_853 => GHC.Show.Show (True a_853) + +instance AST.Unmarshal.Unmarshal True + +instance Data.Foldable.Foldable True where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor True where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable True where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousType = AST.Token.Token "type" 16 + +data TypeIdentifier a = TypeIdentifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_854. + AST.Traversable1.Class.Traversable1 a_854 + ) + +instance AST.Unmarshal.SymbolMatching TypeIdentifier where + matchedSymbols _ = [199] + showFailure _ node_855 = + "expected " + GHC.Base.<> ( "type_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_855 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_855) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_856 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_857 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_858 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_859 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_856 + c1_857 = TreeSitter.Node.nodeStartPoint node_855 + TreeSitter.Node.TSPoint + r2_858 + c2_859 = TreeSitter.Node.nodeEndPoint node_855 + +deriving instance GHC.Classes.Eq a_860 => GHC.Classes.Eq (TypeIdentifier a_860) + +deriving instance GHC.Classes.Ord a_861 => GHC.Classes.Ord (TypeIdentifier a_861) + +deriving instance GHC.Show.Show a_862 => GHC.Show.Show (TypeIdentifier a_862) + +instance AST.Unmarshal.Unmarshal TypeIdentifier + +instance Data.Foldable.Foldable TypeIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousVar = AST.Token.Token "var" 13 + +type AnonymousLBrace = AST.Token.Token "{" 21 + +type AnonymousPipe = AST.Token.Token "|" 69 + +type AnonymousPipeEqual = AST.Token.Token "|=" 39 + +type AnonymousPipePipe = AST.Token.Token "||" 77 + +type AnonymousRBrace = AST.Token.Token "}" 22 diff --git a/semantic-java/src/Language/Java/AST.hs b/semantic-java/src/Language/Java/AST.hs index 624e666c0..eaa9016a2 100644 --- a/semantic-java/src/Language/Java/AST.hs +++ b/semantic-java/src/Language/Java/AST.hs @@ -1,3 +1,4 @@ +-- Language definition for Java, generated by ast-generate. Do not edit! {-# LANGUAGE CPP #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveAnyClass #-} @@ -14,20 +15,6408 @@ {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeApplications #-} {-# LANGUAGE TypeOperators #-} +{-# LANGUAGE UndecidableInstances #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Language.Java.AST -( module Language.Java.AST -, Java.getTestCorpusDir -) where +module Language.Java.AST (module Language.Java.AST, getTestCorpusDir) where -import AST.GenerateSyntax -import AST.Token -import Language.Haskell.TH.Syntax (runIO) -import qualified TreeSitter.Java as Java (getNodeTypesPath, getTestCorpusDir, tree_sitter_java) +import qualified AST.Parse +import qualified AST.Token +import qualified AST.Traversable1.Class +import qualified AST.Unmarshal +import qualified Data.Foldable +import qualified Data.List as Data.OldList +import qualified Data.Maybe as GHC.Maybe +import qualified Data.Text.Internal +import qualified Data.Traversable +import qualified GHC.Base +import qualified GHC.Generics +import qualified GHC.Records +import qualified GHC.Show +import TreeSitter.Java (getTestCorpusDir) +import qualified TreeSitter.Node +import qualified Prelude as GHC.Classes -#ifdef NODE_TYPES_PATH -astDeclarationsForLanguage Java.tree_sitter_java NODE_TYPES_PATH -#else -runIO Java.getNodeTypesPath >>= astDeclarationsForLanguage Java.tree_sitter_java -#endif +debugSymbolNames :: [GHC.Base.String] +debugSymbolNames = debugSymbolNames_0 + +debugSymbolNames_0 :: [GHC.Base.String] +debugSymbolNames_0 = + [ "end", + "identifier", + "decimal_integer_literal", + "hex_integer_literal", + "octal_integer_literal", + "binary_integer_literal", + "decimal_floating_point_literal", + "hex_floating_point_literal", + "true", + "false", + "character_literal", + "string_literal", + "null_literal", + "_(", + "_&", + "_)", + "_=", + "_+=", + "_-=", + "_*=", + "_/=", + "_&=", + "_|=", + "_^=", + "_%=", + "_<<=", + "_>>=", + "_>>>=", + "_>", + "_<", + "_==", + "_>=", + "_<=", + "_!=", + "_&&", + "_||", + "_+", + "_-", + "_*", + "_/", + "_|", + "_^", + "_%", + "_<<", + "_>>", + "_>>>", + "_instanceof", + "_->", + "_,", + "_?", + "_:", + "_!", + "_~", + "_++", + "_--", + "_new", + "_[", + "_]", + "_.", + "_class", + "_::", + "_extends", + "_;", + "_{", + "_}", + "_assert", + "_switch", + "_case", + "_default", + "_do", + "_while", + "_break", + "_continue", + "_return", + "_synchronized", + "_throw", + "_try", + "_catch", + "_finally", + "_if", + "_else", + "_for", + "_@", + "_open", + "_module", + "_requires", + "_exports", + "_to", + "_opens", + "_uses", + "_provides", + "_with", + "_transitive", + "_static", + "_package", + "_import", + "_enum", + "_public", + "_protected", + "_private", + "_abstract", + "_final", + "_strictfp", + "_native", + "_transient", + "_volatile", + "_implements", + "_@interface", + "_interface", + "_byte", + "_short", + "_int", + "_long", + "_char", + "_float", + "_double", + "boolean_type", + "void_type", + "_...", + "_throws", + "this", + "super", + "comment", + "program", + "_literal", + "_expression", + "cast_expression", + "assignment_expression", + "binary_expression", + "instanceof_expression", + "lambda_expression", + "inferred_parameters", + "ternary_expression", + "unary_expression", + "update_expression", + "_primary", + "array_creation_expression", + "dimensions_expr", + "parenthesized_expression", + "class_literal", + "object_creation_expression", + "_unqualified_object_creation_expression", + "field_access", + "array_access", + "method_invocation", + "argument_list", + "method_reference", + "type_arguments", + "wildcard", + "_wildcard_bounds", + "dimensions", + "_statement", + "block", + "expression_statement", + "labeled_statement", + "assert_statement", + "switch_statement", + "switch_block", + "switch_label", + "do_statement", + "break_statement", + "continue_statement", + "return_statement", + "synchronized_statement", + "throw_statement", + "try_statement", + "catch_clause", + "catch_formal_parameter", + "catch_type", + "finally_clause", + "try_with_resources_statement", + "resource_specification", + "resource", + "if_statement", + "while_statement", + "for_statement", + "for_init", + "enhanced_for_statement", + "_annotation", + "marker_annotation", + "annotation", + "annotation_argument_list", + "element_value_pair", + "_element_value", + "element_value_array_initializer", + "_declaration", + "module_declaration", + "module_directive", + "requires_modifier", + "module_name", + "package_declaration", + "import_declaration", + "asterisk", + "enum_declaration", + "enum_body", + "enum_body_declarations", + "enum_constant", + "class_declaration", + "modifiers", + "type_parameters", + "type_parameter", + "type_bound", + "superclass", + "super_interfaces", + "interface_type_list", + "class_body", + "static_initializer", + "constructor_declaration", + "_constructor_declarator", + "constructor_body", + "explicit_constructor_invocation", + "scoped_identifier", + "field_declaration", + "annotation_type_declaration", + "annotation_type_body", + "annotation_type_element_declaration", + "_default_value", + "interface_declaration", + "extends_interfaces", + "interface_body", + "constant_declaration", + "_variable_declarator_list", + "variable_declarator", + "_variable_declarator_id", + "array_initializer", + "_type", + "_unannotated_type", + "annotated_type", + "scoped_type_identifier", + "generic_type", + "array_type", + "integral_type", + "floating_point_type", + "_method_header", + "_method_declarator", + "formal_parameters", + "formal_parameter", + "receiver_parameter", + "spread_parameter", + "throws", + "local_variable_declaration_statement", + "local_variable_declaration", + "method_declaration", + "_program_repeat1", + "_cast_expression_repeat1", + "_inferred_parameters_repeat1", + "_array_creation_expression_repeat1", + "_dimensions_expr_repeat1", + "_class_literal_repeat1", + "_argument_list_repeat1", + "_type_arguments_repeat1", + "_dimensions_repeat1", + "_switch_block_repeat1", + "_try_statement_repeat1", + "_catch_type_repeat1", + "_resource_specification_repeat1", + "_annotation_argument_list_repeat1", + "_element_value_array_initializer_repeat1", + "_module_declaration_repeat1", + "_module_directive_repeat1", + "_module_directive_repeat2", + "_module_directive_repeat3", + "_import_declaration_repeat1", + "_enum_body_repeat1", + "_enum_body_declarations_repeat1", + "_modifiers_repeat1", + "_type_parameters_repeat1", + "_type_bound_repeat1", + "_interface_type_list_repeat1", + "_annotation_type_body_repeat1", + "_interface_body_repeat1", + "__variable_declarator_list_repeat1", + "_array_initializer_repeat1", + "_formal_parameters_repeat1", + "type_identifier" + ] + +newtype Declaration a = Declaration {getDeclaration :: ((AnnotationTypeDeclaration GHC.Generics.:+: ClassDeclaration GHC.Generics.:+: EnumDeclaration GHC.Generics.:+: ImportDeclaration GHC.Generics.:+: InterfaceDeclaration GHC.Generics.:+: ModuleDeclaration GHC.Generics.:+: PackageDeclaration) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1. + AST.Traversable1.Class.Traversable1 a_1 + ) + +instance GHC.Records.HasField "ann" (Declaration a_2) a_2 where + getField = AST.Unmarshal.gann GHC.Base.. getDeclaration + +deriving instance GHC.Classes.Eq a_3 => GHC.Classes.Eq (Declaration a_3) + +deriving instance GHC.Classes.Ord a_4 => GHC.Classes.Ord (Declaration a_4) + +deriving instance GHC.Show.Show a_5 => GHC.Show.Show (Declaration a_5) + +instance AST.Unmarshal.Unmarshal Declaration + +instance Data.Foldable.Foldable Declaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Declaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Declaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Expression a = Expression {getExpression :: ((Primary GHC.Generics.:+: AssignmentExpression GHC.Generics.:+: BinaryExpression GHC.Generics.:+: CastExpression GHC.Generics.:+: Identifier GHC.Generics.:+: InstanceofExpression GHC.Generics.:+: LambdaExpression GHC.Generics.:+: ScopedIdentifier GHC.Generics.:+: TernaryExpression GHC.Generics.:+: UnaryExpression GHC.Generics.:+: UpdateExpression) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_6. + AST.Traversable1.Class.Traversable1 a_6 + ) + +instance GHC.Records.HasField "ann" (Expression a_7) a_7 where + getField = AST.Unmarshal.gann GHC.Base.. getExpression + +deriving instance GHC.Classes.Eq a_8 => GHC.Classes.Eq (Expression a_8) + +deriving instance GHC.Classes.Ord a_9 => GHC.Classes.Ord (Expression a_9) + +deriving instance GHC.Show.Show a_10 => GHC.Show.Show (Expression a_10) + +instance AST.Unmarshal.Unmarshal Expression + +instance Data.Foldable.Foldable Expression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Expression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Expression where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Literal a = Literal {getLiteral :: ((BinaryIntegerLiteral GHC.Generics.:+: CharacterLiteral GHC.Generics.:+: DecimalFloatingPointLiteral GHC.Generics.:+: DecimalIntegerLiteral GHC.Generics.:+: False GHC.Generics.:+: HexFloatingPointLiteral GHC.Generics.:+: HexIntegerLiteral GHC.Generics.:+: NullLiteral GHC.Generics.:+: OctalIntegerLiteral GHC.Generics.:+: StringLiteral GHC.Generics.:+: True) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_11. + AST.Traversable1.Class.Traversable1 a_11 + ) + +instance GHC.Records.HasField "ann" (Literal a_12) a_12 where + getField = AST.Unmarshal.gann GHC.Base.. getLiteral + +deriving instance GHC.Classes.Eq a_13 => GHC.Classes.Eq (Literal a_13) + +deriving instance GHC.Classes.Ord a_14 => GHC.Classes.Ord (Literal a_14) + +deriving instance GHC.Show.Show a_15 => GHC.Show.Show (Literal a_15) + +instance AST.Unmarshal.Unmarshal Literal + +instance Data.Foldable.Foldable Literal where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Literal where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Literal where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Primary a = Primary {getPrimary :: ((Literal GHC.Generics.:+: ArrayAccess GHC.Generics.:+: ArrayCreationExpression GHC.Generics.:+: ClassLiteral GHC.Generics.:+: FieldAccess GHC.Generics.:+: MethodInvocation GHC.Generics.:+: MethodReference GHC.Generics.:+: ObjectCreationExpression GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: This) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_16. + AST.Traversable1.Class.Traversable1 a_16 + ) + +instance GHC.Records.HasField "ann" (Primary a_17) a_17 where + getField = AST.Unmarshal.gann GHC.Base.. getPrimary + +deriving instance GHC.Classes.Eq a_18 => GHC.Classes.Eq (Primary a_18) + +deriving instance GHC.Classes.Ord a_19 => GHC.Classes.Ord (Primary a_19) + +deriving instance GHC.Show.Show a_20 => GHC.Show.Show (Primary a_20) + +instance AST.Unmarshal.Unmarshal Primary + +instance Data.Foldable.Foldable Primary where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Primary where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Primary where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype SimpleType a = SimpleType {getSimpleType :: ((BooleanType GHC.Generics.:+: FloatingPointType GHC.Generics.:+: GenericType GHC.Generics.:+: IntegralType GHC.Generics.:+: ScopedTypeIdentifier GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: VoidType) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_21. + AST.Traversable1.Class.Traversable1 a_21 + ) + +instance GHC.Records.HasField "ann" (SimpleType a_22) a_22 where + getField = AST.Unmarshal.gann GHC.Base.. getSimpleType + +deriving instance GHC.Classes.Eq a_23 => GHC.Classes.Eq (SimpleType a_23) + +deriving instance GHC.Classes.Ord a_24 => GHC.Classes.Ord (SimpleType a_24) + +deriving instance GHC.Show.Show a_25 => GHC.Show.Show (SimpleType a_25) + +instance AST.Unmarshal.Unmarshal SimpleType + +instance Data.Foldable.Foldable SimpleType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SimpleType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SimpleType where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Statement a = Statement {getStatement :: ((AnonymousSemicolon GHC.Generics.:+: Declaration GHC.Generics.:+: AssertStatement GHC.Generics.:+: Block GHC.Generics.:+: BreakStatement GHC.Generics.:+: ContinueStatement GHC.Generics.:+: DoStatement GHC.Generics.:+: EnhancedForStatement GHC.Generics.:+: ExpressionStatement GHC.Generics.:+: ForStatement GHC.Generics.:+: IfStatement GHC.Generics.:+: LabeledStatement GHC.Generics.:+: LocalVariableDeclarationStatement GHC.Generics.:+: ReturnStatement GHC.Generics.:+: SwitchStatement GHC.Generics.:+: SynchronizedStatement GHC.Generics.:+: ThrowStatement GHC.Generics.:+: TryStatement GHC.Generics.:+: TryWithResourcesStatement GHC.Generics.:+: WhileStatement) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_26. + AST.Traversable1.Class.Traversable1 a_26 + ) + +instance GHC.Records.HasField "ann" (Statement a_27) a_27 where + getField = AST.Unmarshal.gann GHC.Base.. getStatement + +deriving instance GHC.Classes.Eq a_28 => GHC.Classes.Eq (Statement a_28) + +deriving instance GHC.Classes.Ord a_29 => GHC.Classes.Ord (Statement a_29) + +deriving instance GHC.Show.Show a_30 => GHC.Show.Show (Statement a_30) + +instance AST.Unmarshal.Unmarshal Statement + +instance Data.Foldable.Foldable Statement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Statement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Statement where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Type a = Type {getType :: ((UnannotatedType GHC.Generics.:+: AnnotatedType) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_31. + AST.Traversable1.Class.Traversable1 a_31 + ) + +instance GHC.Records.HasField "ann" (Type a_32) a_32 where + getField = AST.Unmarshal.gann GHC.Base.. getType + +deriving instance GHC.Classes.Eq a_33 => GHC.Classes.Eq (Type a_33) + +deriving instance GHC.Classes.Ord a_34 => GHC.Classes.Ord (Type a_34) + +deriving instance GHC.Show.Show a_35 => GHC.Show.Show (Type a_35) + +instance AST.Unmarshal.Unmarshal Type + +instance Data.Foldable.Foldable Type where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Type where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Type where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype UnannotatedType a = UnannotatedType {getUnannotatedType :: ((SimpleType GHC.Generics.:+: ArrayType) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_36. + AST.Traversable1.Class.Traversable1 a_36 + ) + +instance GHC.Records.HasField "ann" (UnannotatedType a_37) a_37 where + getField = AST.Unmarshal.gann GHC.Base.. getUnannotatedType + +deriving instance GHC.Classes.Eq a_38 => GHC.Classes.Eq (UnannotatedType a_38) + +deriving instance GHC.Classes.Ord a_39 => GHC.Classes.Ord (UnannotatedType a_39) + +deriving instance GHC.Show.Show a_40 => GHC.Show.Show (UnannotatedType a_40) + +instance AST.Unmarshal.Unmarshal UnannotatedType + +instance Data.Foldable.Foldable UnannotatedType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UnannotatedType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UnannotatedType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AnnotatedType a = AnnotatedType + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((UnannotatedType GHC.Generics.:+: Annotation GHC.Generics.:+: MarkerAnnotation) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_41. + AST.Traversable1.Class.Traversable1 a_41 + ) + +instance AST.Unmarshal.SymbolMatching AnnotatedType where + matchedSymbols _ = [227] + showFailure _ node_42 = + "expected " + GHC.Base.<> ( "annotated_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_42 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_42) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_43 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_44 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_45 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_46 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_43 + c1_44 = TreeSitter.Node.nodeStartPoint node_42 + TreeSitter.Node.TSPoint + r2_45 + c2_46 = TreeSitter.Node.nodeEndPoint node_42 + +deriving instance GHC.Classes.Eq a_47 => GHC.Classes.Eq (AnnotatedType a_47) + +deriving instance GHC.Classes.Ord a_48 => GHC.Classes.Ord (AnnotatedType a_48) + +deriving instance GHC.Show.Show a_49 => GHC.Show.Show (AnnotatedType a_49) + +instance AST.Unmarshal.Unmarshal AnnotatedType + +instance Data.Foldable.Foldable AnnotatedType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AnnotatedType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AnnotatedType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Annotation a = Annotation + { ann :: a, + arguments :: (AST.Parse.Err (AnnotationArgumentList a)), + name :: (AST.Parse.Err ((Identifier GHC.Generics.:+: ScopedIdentifier) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_50. + AST.Traversable1.Class.Traversable1 a_50 + ) + +instance AST.Unmarshal.SymbolMatching Annotation where + matchedSymbols _ = [180] + showFailure _ node_51 = + "expected " + GHC.Base.<> ( "annotation" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_51 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_51) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_52 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_53 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_54 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_55 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_52 + c1_53 = TreeSitter.Node.nodeStartPoint node_51 + TreeSitter.Node.TSPoint + r2_54 + c2_55 = TreeSitter.Node.nodeEndPoint node_51 + +deriving instance GHC.Classes.Eq a_56 => GHC.Classes.Eq (Annotation a_56) + +deriving instance GHC.Classes.Ord a_57 => GHC.Classes.Ord (Annotation a_57) + +deriving instance GHC.Show.Show a_58 => GHC.Show.Show (Annotation a_58) + +instance AST.Unmarshal.Unmarshal Annotation + +instance Data.Foldable.Foldable Annotation where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Annotation where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Annotation where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AnnotationArgumentList a = AnnotationArgumentList + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Expression GHC.Generics.:+: Annotation GHC.Generics.:+: ElementValueArrayInitializer GHC.Generics.:+: ElementValuePair GHC.Generics.:+: MarkerAnnotation) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_59. + AST.Traversable1.Class.Traversable1 a_59 + ) + +instance AST.Unmarshal.SymbolMatching AnnotationArgumentList where + matchedSymbols _ = [181] + showFailure _ node_60 = + "expected " + GHC.Base.<> ( "annotation_argument_list" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_60 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_60) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_61 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_62 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_63 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_64 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_61 + c1_62 = TreeSitter.Node.nodeStartPoint node_60 + TreeSitter.Node.TSPoint + r2_63 + c2_64 = TreeSitter.Node.nodeEndPoint node_60 + +deriving instance GHC.Classes.Eq a_65 => GHC.Classes.Eq (AnnotationArgumentList a_65) + +deriving instance GHC.Classes.Ord a_66 => GHC.Classes.Ord (AnnotationArgumentList a_66) + +deriving instance GHC.Show.Show a_67 => GHC.Show.Show (AnnotationArgumentList a_67) + +instance AST.Unmarshal.Unmarshal AnnotationArgumentList + +instance Data.Foldable.Foldable AnnotationArgumentList where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AnnotationArgumentList where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AnnotationArgumentList where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AnnotationTypeBody a = AnnotationTypeBody + { ann :: a, + extraChildren :: ([AST.Parse.Err ((AnnotationTypeDeclaration GHC.Generics.:+: AnnotationTypeElementDeclaration GHC.Generics.:+: ClassDeclaration GHC.Generics.:+: ConstantDeclaration GHC.Generics.:+: InterfaceDeclaration) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_68. + AST.Traversable1.Class.Traversable1 a_68 + ) + +instance AST.Unmarshal.SymbolMatching AnnotationTypeBody where + matchedSymbols _ = [214] + showFailure _ node_69 = + "expected " + GHC.Base.<> ( "annotation_type_body" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_69 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_69) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_70 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_71 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_72 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_73 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_70 + c1_71 = TreeSitter.Node.nodeStartPoint node_69 + TreeSitter.Node.TSPoint + r2_72 + c2_73 = TreeSitter.Node.nodeEndPoint node_69 + +deriving instance GHC.Classes.Eq a_74 => GHC.Classes.Eq (AnnotationTypeBody a_74) + +deriving instance GHC.Classes.Ord a_75 => GHC.Classes.Ord (AnnotationTypeBody a_75) + +deriving instance GHC.Show.Show a_76 => GHC.Show.Show (AnnotationTypeBody a_76) + +instance AST.Unmarshal.Unmarshal AnnotationTypeBody + +instance Data.Foldable.Foldable AnnotationTypeBody where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AnnotationTypeBody where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AnnotationTypeBody where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AnnotationTypeDeclaration a = AnnotationTypeDeclaration + { ann :: a, + body :: (AST.Parse.Err (AnnotationTypeBody a)), + name :: (AST.Parse.Err (Identifier a)), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Modifiers a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_77. + AST.Traversable1.Class.Traversable1 a_77 + ) + +instance AST.Unmarshal.SymbolMatching AnnotationTypeDeclaration where + matchedSymbols _ = [213] + showFailure _ node_78 = + "expected " + GHC.Base.<> ( "annotation_type_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_78 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_78) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_79 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_80 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_81 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_82 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_79 + c1_80 = TreeSitter.Node.nodeStartPoint node_78 + TreeSitter.Node.TSPoint + r2_81 + c2_82 = TreeSitter.Node.nodeEndPoint node_78 + +deriving instance GHC.Classes.Eq a_83 => GHC.Classes.Eq (AnnotationTypeDeclaration a_83) + +deriving instance GHC.Classes.Ord a_84 => GHC.Classes.Ord (AnnotationTypeDeclaration a_84) + +deriving instance GHC.Show.Show a_85 => GHC.Show.Show (AnnotationTypeDeclaration a_85) + +instance AST.Unmarshal.Unmarshal AnnotationTypeDeclaration + +instance Data.Foldable.Foldable AnnotationTypeDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AnnotationTypeDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AnnotationTypeDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AnnotationTypeElementDeclaration a = AnnotationTypeElementDeclaration + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err ((Expression GHC.Generics.:+: Annotation GHC.Generics.:+: ElementValueArrayInitializer GHC.Generics.:+: MarkerAnnotation) a))), + name :: (AST.Parse.Err (Identifier a)), + type' :: (AST.Parse.Err (UnannotatedType a)), + dimensions :: (GHC.Maybe.Maybe (AST.Parse.Err (Dimensions a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Modifiers a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_86. + AST.Traversable1.Class.Traversable1 a_86 + ) + +instance AST.Unmarshal.SymbolMatching AnnotationTypeElementDeclaration where + matchedSymbols _ = [215] + showFailure _ node_87 = + "expected " + GHC.Base.<> ( "annotation_type_element_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_87 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_87) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_88 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_89 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_90 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_91 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_88 + c1_89 = TreeSitter.Node.nodeStartPoint node_87 + TreeSitter.Node.TSPoint + r2_90 + c2_91 = TreeSitter.Node.nodeEndPoint node_87 + +deriving instance GHC.Classes.Eq a_92 => GHC.Classes.Eq (AnnotationTypeElementDeclaration a_92) + +deriving instance GHC.Classes.Ord a_93 => GHC.Classes.Ord (AnnotationTypeElementDeclaration a_93) + +deriving instance GHC.Show.Show a_94 => GHC.Show.Show (AnnotationTypeElementDeclaration a_94) + +instance AST.Unmarshal.Unmarshal AnnotationTypeElementDeclaration + +instance Data.Foldable.Foldable AnnotationTypeElementDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AnnotationTypeElementDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AnnotationTypeElementDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ArgumentList a = ArgumentList + { ann :: a, + extraChildren :: ([AST.Parse.Err (Expression a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_95. + AST.Traversable1.Class.Traversable1 a_95 + ) + +instance AST.Unmarshal.SymbolMatching ArgumentList where + matchedSymbols _ = [145] + showFailure _ node_96 = + "expected " + GHC.Base.<> ( "argument_list" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_96 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_96) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_97 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_98 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_99 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_100 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_97 + c1_98 = TreeSitter.Node.nodeStartPoint node_96 + TreeSitter.Node.TSPoint + r2_99 + c2_100 = TreeSitter.Node.nodeEndPoint node_96 + +deriving instance GHC.Classes.Eq a_101 => GHC.Classes.Eq (ArgumentList a_101) + +deriving instance GHC.Classes.Ord a_102 => GHC.Classes.Ord (ArgumentList a_102) + +deriving instance GHC.Show.Show a_103 => GHC.Show.Show (ArgumentList a_103) + +instance AST.Unmarshal.Unmarshal ArgumentList + +instance Data.Foldable.Foldable ArgumentList where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ArgumentList where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ArgumentList where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ArrayAccess a = ArrayAccess + { ann :: a, + array :: (AST.Parse.Err ((Primary GHC.Generics.:+: Identifier GHC.Generics.:+: ScopedIdentifier) a)), + index :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_104. + AST.Traversable1.Class.Traversable1 a_104 + ) + +instance AST.Unmarshal.SymbolMatching ArrayAccess where + matchedSymbols _ = [143] + showFailure _ node_105 = + "expected " + GHC.Base.<> ( "array_access" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_105 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_105) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_106 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_107 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_108 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_109 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_106 + c1_107 = TreeSitter.Node.nodeStartPoint node_105 + TreeSitter.Node.TSPoint + r2_108 + c2_109 = TreeSitter.Node.nodeEndPoint node_105 + +deriving instance GHC.Classes.Eq a_110 => GHC.Classes.Eq (ArrayAccess a_110) + +deriving instance GHC.Classes.Ord a_111 => GHC.Classes.Ord (ArrayAccess a_111) + +deriving instance GHC.Show.Show a_112 => GHC.Show.Show (ArrayAccess a_112) + +instance AST.Unmarshal.Unmarshal ArrayAccess + +instance Data.Foldable.Foldable ArrayAccess where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ArrayAccess where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ArrayAccess where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ArrayCreationExpression a = ArrayCreationExpression + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err (ArrayInitializer a))), + type' :: (AST.Parse.Err (SimpleType a)), + dimensions :: (GHC.Base.NonEmpty (AST.Parse.Err ((Dimensions GHC.Generics.:+: DimensionsExpr) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_113. + AST.Traversable1.Class.Traversable1 a_113 + ) + +instance AST.Unmarshal.SymbolMatching ArrayCreationExpression where + matchedSymbols _ = [136] + showFailure _ node_114 = + "expected " + GHC.Base.<> ( "array_creation_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_114 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_114) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_115 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_116 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_117 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_118 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_115 + c1_116 = TreeSitter.Node.nodeStartPoint node_114 + TreeSitter.Node.TSPoint + r2_117 + c2_118 = TreeSitter.Node.nodeEndPoint node_114 + +deriving instance GHC.Classes.Eq a_119 => GHC.Classes.Eq (ArrayCreationExpression a_119) + +deriving instance GHC.Classes.Ord a_120 => GHC.Classes.Ord (ArrayCreationExpression a_120) + +deriving instance GHC.Show.Show a_121 => GHC.Show.Show (ArrayCreationExpression a_121) + +instance AST.Unmarshal.Unmarshal ArrayCreationExpression + +instance Data.Foldable.Foldable ArrayCreationExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ArrayCreationExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ArrayCreationExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ArrayInitializer a = ArrayInitializer + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Expression GHC.Generics.:+: ArrayInitializer) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_122. + AST.Traversable1.Class.Traversable1 a_122 + ) + +instance AST.Unmarshal.SymbolMatching ArrayInitializer where + matchedSymbols _ = [224] + showFailure _ node_123 = + "expected " + GHC.Base.<> ( "array_initializer" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_123 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_123) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_124 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_125 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_126 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_127 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_124 + c1_125 = TreeSitter.Node.nodeStartPoint node_123 + TreeSitter.Node.TSPoint + r2_126 + c2_127 = TreeSitter.Node.nodeEndPoint node_123 + +deriving instance GHC.Classes.Eq a_128 => GHC.Classes.Eq (ArrayInitializer a_128) + +deriving instance GHC.Classes.Ord a_129 => GHC.Classes.Ord (ArrayInitializer a_129) + +deriving instance GHC.Show.Show a_130 => GHC.Show.Show (ArrayInitializer a_130) + +instance AST.Unmarshal.Unmarshal ArrayInitializer + +instance Data.Foldable.Foldable ArrayInitializer where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ArrayInitializer where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ArrayInitializer where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ArrayType a = ArrayType + { ann :: a, + dimensions :: (AST.Parse.Err (Dimensions a)), + element :: (AST.Parse.Err (UnannotatedType a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_131. + AST.Traversable1.Class.Traversable1 a_131 + ) + +instance AST.Unmarshal.SymbolMatching ArrayType where + matchedSymbols _ = [230] + showFailure _ node_132 = + "expected " + GHC.Base.<> ( "array_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_132 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_132) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_133 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_134 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_135 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_136 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_133 + c1_134 = TreeSitter.Node.nodeStartPoint node_132 + TreeSitter.Node.TSPoint + r2_135 + c2_136 = TreeSitter.Node.nodeEndPoint node_132 + +deriving instance GHC.Classes.Eq a_137 => GHC.Classes.Eq (ArrayType a_137) + +deriving instance GHC.Classes.Ord a_138 => GHC.Classes.Ord (ArrayType a_138) + +deriving instance GHC.Show.Show a_139 => GHC.Show.Show (ArrayType a_139) + +instance AST.Unmarshal.Unmarshal ArrayType + +instance Data.Foldable.Foldable ArrayType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ArrayType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ArrayType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AssertStatement a = AssertStatement + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Expression a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_140. + AST.Traversable1.Class.Traversable1 a_140 + ) + +instance AST.Unmarshal.SymbolMatching AssertStatement where + matchedSymbols _ = [155] + showFailure _ node_141 = + "expected " + GHC.Base.<> ( "assert_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_141 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_141) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_142 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_143 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_144 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_145 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_142 + c1_143 = TreeSitter.Node.nodeStartPoint node_141 + TreeSitter.Node.TSPoint + r2_144 + c2_145 = TreeSitter.Node.nodeEndPoint node_141 + +deriving instance GHC.Classes.Eq a_146 => GHC.Classes.Eq (AssertStatement a_146) + +deriving instance GHC.Classes.Ord a_147 => GHC.Classes.Ord (AssertStatement a_147) + +deriving instance GHC.Show.Show a_148 => GHC.Show.Show (AssertStatement a_148) + +instance AST.Unmarshal.Unmarshal AssertStatement + +instance Data.Foldable.Foldable AssertStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AssertStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AssertStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AssignmentExpression a = AssignmentExpression + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousPercentEqual GHC.Generics.:+: AnonymousAmpersandEqual GHC.Generics.:+: AnonymousStarEqual GHC.Generics.:+: AnonymousPlusEqual GHC.Generics.:+: AnonymousMinusEqual GHC.Generics.:+: AnonymousSlashEqual GHC.Generics.:+: AnonymousLAngleLAngleEqual GHC.Generics.:+: AnonymousEqual GHC.Generics.:+: AnonymousRAngleRAngleEqual GHC.Generics.:+: AnonymousRAngleRAngleRAngleEqual GHC.Generics.:+: AnonymousCaretEqual GHC.Generics.:+: AnonymousPipeEqual) a)), + left :: (AST.Parse.Err ((ArrayAccess GHC.Generics.:+: FieldAccess GHC.Generics.:+: Identifier GHC.Generics.:+: ScopedIdentifier) a)), + right :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_149. + AST.Traversable1.Class.Traversable1 a_149 + ) + +instance AST.Unmarshal.SymbolMatching AssignmentExpression where + matchedSymbols _ = [127] + showFailure _ node_150 = + "expected " + GHC.Base.<> ( "assignment_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_150 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_150) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_151 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_152 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_153 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_154 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_151 + c1_152 = TreeSitter.Node.nodeStartPoint node_150 + TreeSitter.Node.TSPoint + r2_153 + c2_154 = TreeSitter.Node.nodeEndPoint node_150 + +deriving instance GHC.Classes.Eq a_155 => GHC.Classes.Eq (AssignmentExpression a_155) + +deriving instance GHC.Classes.Ord a_156 => GHC.Classes.Ord (AssignmentExpression a_156) + +deriving instance GHC.Show.Show a_157 => GHC.Show.Show (AssignmentExpression a_157) + +instance AST.Unmarshal.Unmarshal AssignmentExpression + +instance Data.Foldable.Foldable AssignmentExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AssignmentExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AssignmentExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Asterisk a = Asterisk {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_158. + AST.Traversable1.Class.Traversable1 a_158 + ) + +instance AST.Unmarshal.SymbolMatching Asterisk where + matchedSymbols _ = [192] + showFailure _ node_159 = + "expected " + GHC.Base.<> ( "asterisk" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_159 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_159) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_160 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_161 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_162 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_163 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_160 + c1_161 = TreeSitter.Node.nodeStartPoint node_159 + TreeSitter.Node.TSPoint + r2_162 + c2_163 = TreeSitter.Node.nodeEndPoint node_159 + +deriving instance GHC.Classes.Eq a_164 => GHC.Classes.Eq (Asterisk a_164) + +deriving instance GHC.Classes.Ord a_165 => GHC.Classes.Ord (Asterisk a_165) + +deriving instance GHC.Show.Show a_166 => GHC.Show.Show (Asterisk a_166) + +instance AST.Unmarshal.Unmarshal Asterisk + +instance Data.Foldable.Foldable Asterisk where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Asterisk where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Asterisk where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BinaryExpression a = BinaryExpression + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousBangEqual GHC.Generics.:+: AnonymousPercent GHC.Generics.:+: AnonymousAmpersand GHC.Generics.:+: AnonymousAmpersandAmpersand GHC.Generics.:+: AnonymousStar GHC.Generics.:+: AnonymousPlus GHC.Generics.:+: AnonymousMinus GHC.Generics.:+: AnonymousSlash GHC.Generics.:+: AnonymousLAngle GHC.Generics.:+: AnonymousLAngleLAngle GHC.Generics.:+: AnonymousLAngleEqual GHC.Generics.:+: AnonymousEqualEqual GHC.Generics.:+: AnonymousRAngle GHC.Generics.:+: AnonymousRAngleEqual GHC.Generics.:+: AnonymousRAngleRAngle GHC.Generics.:+: AnonymousRAngleRAngleRAngle GHC.Generics.:+: AnonymousCaret GHC.Generics.:+: AnonymousPipe GHC.Generics.:+: AnonymousPipePipe) a)), + left :: (AST.Parse.Err (Expression a)), + right :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_167. + AST.Traversable1.Class.Traversable1 a_167 + ) + +instance AST.Unmarshal.SymbolMatching BinaryExpression where + matchedSymbols _ = [128] + showFailure _ node_168 = + "expected " + GHC.Base.<> ( "binary_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_168 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_168) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_169 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_170 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_171 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_172 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_169 + c1_170 = TreeSitter.Node.nodeStartPoint node_168 + TreeSitter.Node.TSPoint + r2_171 + c2_172 = TreeSitter.Node.nodeEndPoint node_168 + +deriving instance GHC.Classes.Eq a_173 => GHC.Classes.Eq (BinaryExpression a_173) + +deriving instance GHC.Classes.Ord a_174 => GHC.Classes.Ord (BinaryExpression a_174) + +deriving instance GHC.Show.Show a_175 => GHC.Show.Show (BinaryExpression a_175) + +instance AST.Unmarshal.Unmarshal BinaryExpression + +instance Data.Foldable.Foldable BinaryExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BinaryExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BinaryExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Block a = Block + { ann :: a, + extraChildren :: ([AST.Parse.Err (Statement a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_176. + AST.Traversable1.Class.Traversable1 a_176 + ) + +instance AST.Unmarshal.SymbolMatching Block where + matchedSymbols _ = [152] + showFailure _ node_177 = + "expected " + GHC.Base.<> ( "block" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_177 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_177) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_178 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_179 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_180 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_181 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_178 + c1_179 = TreeSitter.Node.nodeStartPoint node_177 + TreeSitter.Node.TSPoint + r2_180 + c2_181 = TreeSitter.Node.nodeEndPoint node_177 + +deriving instance GHC.Classes.Eq a_182 => GHC.Classes.Eq (Block a_182) + +deriving instance GHC.Classes.Ord a_183 => GHC.Classes.Ord (Block a_183) + +deriving instance GHC.Show.Show a_184 => GHC.Show.Show (Block a_184) + +instance AST.Unmarshal.Unmarshal Block + +instance Data.Foldable.Foldable Block where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Block where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Block where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BreakStatement a = BreakStatement + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Identifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_185. + AST.Traversable1.Class.Traversable1 a_185 + ) + +instance AST.Unmarshal.SymbolMatching BreakStatement where + matchedSymbols _ = [160] + showFailure _ node_186 = + "expected " + GHC.Base.<> ( "break_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_186 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_186) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_187 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_188 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_189 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_190 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_187 + c1_188 = TreeSitter.Node.nodeStartPoint node_186 + TreeSitter.Node.TSPoint + r2_189 + c2_190 = TreeSitter.Node.nodeEndPoint node_186 + +deriving instance GHC.Classes.Eq a_191 => GHC.Classes.Eq (BreakStatement a_191) + +deriving instance GHC.Classes.Ord a_192 => GHC.Classes.Ord (BreakStatement a_192) + +deriving instance GHC.Show.Show a_193 => GHC.Show.Show (BreakStatement a_193) + +instance AST.Unmarshal.Unmarshal BreakStatement + +instance Data.Foldable.Foldable BreakStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BreakStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BreakStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CastExpression a = CastExpression + { ann :: a, + value :: (AST.Parse.Err (Expression a)), + type' :: (GHC.Base.NonEmpty (AST.Parse.Err (Type a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_194. + AST.Traversable1.Class.Traversable1 a_194 + ) + +instance AST.Unmarshal.SymbolMatching CastExpression where + matchedSymbols _ = [126] + showFailure _ node_195 = + "expected " + GHC.Base.<> ( "cast_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_195 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_195) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_196 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_197 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_198 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_199 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_196 + c1_197 = TreeSitter.Node.nodeStartPoint node_195 + TreeSitter.Node.TSPoint + r2_198 + c2_199 = TreeSitter.Node.nodeEndPoint node_195 + +deriving instance GHC.Classes.Eq a_200 => GHC.Classes.Eq (CastExpression a_200) + +deriving instance GHC.Classes.Ord a_201 => GHC.Classes.Ord (CastExpression a_201) + +deriving instance GHC.Show.Show a_202 => GHC.Show.Show (CastExpression a_202) + +instance AST.Unmarshal.Unmarshal CastExpression + +instance Data.Foldable.Foldable CastExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CastExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CastExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CatchClause a = CatchClause + { ann :: a, + body :: (AST.Parse.Err (Block a)), + extraChildren :: (AST.Parse.Err (CatchFormalParameter a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_203. + AST.Traversable1.Class.Traversable1 a_203 + ) + +instance AST.Unmarshal.SymbolMatching CatchClause where + matchedSymbols _ = [166] + showFailure _ node_204 = + "expected " + GHC.Base.<> ( "catch_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_204 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_204) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_205 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_206 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_207 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_208 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_205 + c1_206 = TreeSitter.Node.nodeStartPoint node_204 + TreeSitter.Node.TSPoint + r2_207 + c2_208 = TreeSitter.Node.nodeEndPoint node_204 + +deriving instance GHC.Classes.Eq a_209 => GHC.Classes.Eq (CatchClause a_209) + +deriving instance GHC.Classes.Ord a_210 => GHC.Classes.Ord (CatchClause a_210) + +deriving instance GHC.Show.Show a_211 => GHC.Show.Show (CatchClause a_211) + +instance AST.Unmarshal.Unmarshal CatchClause + +instance Data.Foldable.Foldable CatchClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CatchClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CatchClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CatchFormalParameter a = CatchFormalParameter + { ann :: a, + name :: (AST.Parse.Err (Identifier a)), + dimensions :: (GHC.Maybe.Maybe (AST.Parse.Err (Dimensions a))), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((CatchType GHC.Generics.:+: Modifiers) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_212. + AST.Traversable1.Class.Traversable1 a_212 + ) + +instance AST.Unmarshal.SymbolMatching CatchFormalParameter where + matchedSymbols _ = [167] + showFailure _ node_213 = + "expected " + GHC.Base.<> ( "catch_formal_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_213 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_213) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_214 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_215 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_216 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_217 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_214 + c1_215 = TreeSitter.Node.nodeStartPoint node_213 + TreeSitter.Node.TSPoint + r2_216 + c2_217 = TreeSitter.Node.nodeEndPoint node_213 + +deriving instance GHC.Classes.Eq a_218 => GHC.Classes.Eq (CatchFormalParameter a_218) + +deriving instance GHC.Classes.Ord a_219 => GHC.Classes.Ord (CatchFormalParameter a_219) + +deriving instance GHC.Show.Show a_220 => GHC.Show.Show (CatchFormalParameter a_220) + +instance AST.Unmarshal.Unmarshal CatchFormalParameter + +instance Data.Foldable.Foldable CatchFormalParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CatchFormalParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CatchFormalParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CatchType a = CatchType + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (UnannotatedType a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_221. + AST.Traversable1.Class.Traversable1 a_221 + ) + +instance AST.Unmarshal.SymbolMatching CatchType where + matchedSymbols _ = [168] + showFailure _ node_222 = + "expected " + GHC.Base.<> ( "catch_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_222 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_222) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_223 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_224 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_225 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_226 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_223 + c1_224 = TreeSitter.Node.nodeStartPoint node_222 + TreeSitter.Node.TSPoint + r2_225 + c2_226 = TreeSitter.Node.nodeEndPoint node_222 + +deriving instance GHC.Classes.Eq a_227 => GHC.Classes.Eq (CatchType a_227) + +deriving instance GHC.Classes.Ord a_228 => GHC.Classes.Ord (CatchType a_228) + +deriving instance GHC.Show.Show a_229 => GHC.Show.Show (CatchType a_229) + +instance AST.Unmarshal.Unmarshal CatchType + +instance Data.Foldable.Foldable CatchType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CatchType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CatchType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClassBody a = ClassBody + { ann :: a, + extraChildren :: ([AST.Parse.Err ((AnnotationTypeDeclaration GHC.Generics.:+: Block GHC.Generics.:+: ClassDeclaration GHC.Generics.:+: ConstructorDeclaration GHC.Generics.:+: EnumDeclaration GHC.Generics.:+: FieldDeclaration GHC.Generics.:+: InterfaceDeclaration GHC.Generics.:+: MethodDeclaration GHC.Generics.:+: StaticInitializer) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_230. + AST.Traversable1.Class.Traversable1 a_230 + ) + +instance AST.Unmarshal.SymbolMatching ClassBody where + matchedSymbols _ = [205] + showFailure _ node_231 = + "expected " + GHC.Base.<> ( "class_body" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_231 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_231) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_232 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_233 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_234 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_235 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_232 + c1_233 = TreeSitter.Node.nodeStartPoint node_231 + TreeSitter.Node.TSPoint + r2_234 + c2_235 = TreeSitter.Node.nodeEndPoint node_231 + +deriving instance GHC.Classes.Eq a_236 => GHC.Classes.Eq (ClassBody a_236) + +deriving instance GHC.Classes.Ord a_237 => GHC.Classes.Ord (ClassBody a_237) + +deriving instance GHC.Show.Show a_238 => GHC.Show.Show (ClassBody a_238) + +instance AST.Unmarshal.Unmarshal ClassBody + +instance Data.Foldable.Foldable ClassBody where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassBody where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassBody where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClassDeclaration a = ClassDeclaration + { ann :: a, + body :: (AST.Parse.Err (ClassBody a)), + interfaces :: (GHC.Maybe.Maybe (AST.Parse.Err (SuperInterfaces a))), + name :: (AST.Parse.Err (Identifier a)), + superclass :: (GHC.Maybe.Maybe (AST.Parse.Err (Superclass a))), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Modifiers a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_239. + AST.Traversable1.Class.Traversable1 a_239 + ) + +instance AST.Unmarshal.SymbolMatching ClassDeclaration where + matchedSymbols _ = [197] + showFailure _ node_240 = + "expected " + GHC.Base.<> ( "class_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_240 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_240) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_241 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_242 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_243 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_244 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_241 + c1_242 = TreeSitter.Node.nodeStartPoint node_240 + TreeSitter.Node.TSPoint + r2_243 + c2_244 = TreeSitter.Node.nodeEndPoint node_240 + +deriving instance GHC.Classes.Eq a_245 => GHC.Classes.Eq (ClassDeclaration a_245) + +deriving instance GHC.Classes.Ord a_246 => GHC.Classes.Ord (ClassDeclaration a_246) + +deriving instance GHC.Show.Show a_247 => GHC.Show.Show (ClassDeclaration a_247) + +instance AST.Unmarshal.Unmarshal ClassDeclaration + +instance Data.Foldable.Foldable ClassDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClassLiteral a = ClassLiteral + { ann :: a, + extraChildren :: (AST.Parse.Err ((BooleanType GHC.Generics.:+: FloatingPointType GHC.Generics.:+: Identifier GHC.Generics.:+: IntegralType GHC.Generics.:+: ScopedIdentifier GHC.Generics.:+: VoidType) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_248. + AST.Traversable1.Class.Traversable1 a_248 + ) + +instance AST.Unmarshal.SymbolMatching ClassLiteral where + matchedSymbols _ = [139] + showFailure _ node_249 = + "expected " + GHC.Base.<> ( "class_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_249 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_249) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_250 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_251 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_252 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_253 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_250 + c1_251 = TreeSitter.Node.nodeStartPoint node_249 + TreeSitter.Node.TSPoint + r2_252 + c2_253 = TreeSitter.Node.nodeEndPoint node_249 + +deriving instance GHC.Classes.Eq a_254 => GHC.Classes.Eq (ClassLiteral a_254) + +deriving instance GHC.Classes.Ord a_255 => GHC.Classes.Ord (ClassLiteral a_255) + +deriving instance GHC.Show.Show a_256 => GHC.Show.Show (ClassLiteral a_256) + +instance AST.Unmarshal.Unmarshal ClassLiteral + +instance Data.Foldable.Foldable ClassLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ConstantDeclaration a = ConstantDeclaration + { ann :: a, + declarator :: (GHC.Base.NonEmpty (AST.Parse.Err (VariableDeclarator a))), + type' :: (AST.Parse.Err (UnannotatedType a)), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Modifiers a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_257. + AST.Traversable1.Class.Traversable1 a_257 + ) + +instance AST.Unmarshal.SymbolMatching ConstantDeclaration where + matchedSymbols _ = [220] + showFailure _ node_258 = + "expected " + GHC.Base.<> ( "constant_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_258 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_258) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_259 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_260 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_261 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_262 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_259 + c1_260 = TreeSitter.Node.nodeStartPoint node_258 + TreeSitter.Node.TSPoint + r2_261 + c2_262 = TreeSitter.Node.nodeEndPoint node_258 + +deriving instance GHC.Classes.Eq a_263 => GHC.Classes.Eq (ConstantDeclaration a_263) + +deriving instance GHC.Classes.Ord a_264 => GHC.Classes.Ord (ConstantDeclaration a_264) + +deriving instance GHC.Show.Show a_265 => GHC.Show.Show (ConstantDeclaration a_265) + +instance AST.Unmarshal.Unmarshal ConstantDeclaration + +instance Data.Foldable.Foldable ConstantDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ConstantDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ConstantDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ConstructorBody a = ConstructorBody + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: ExplicitConstructorInvocation) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_266. + AST.Traversable1.Class.Traversable1 a_266 + ) + +instance AST.Unmarshal.SymbolMatching ConstructorBody where + matchedSymbols _ = [209] + showFailure _ node_267 = + "expected " + GHC.Base.<> ( "constructor_body" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_267 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_267) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_268 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_269 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_270 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_271 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_268 + c1_269 = TreeSitter.Node.nodeStartPoint node_267 + TreeSitter.Node.TSPoint + r2_270 + c2_271 = TreeSitter.Node.nodeEndPoint node_267 + +deriving instance GHC.Classes.Eq a_272 => GHC.Classes.Eq (ConstructorBody a_272) + +deriving instance GHC.Classes.Ord a_273 => GHC.Classes.Ord (ConstructorBody a_273) + +deriving instance GHC.Show.Show a_274 => GHC.Show.Show (ConstructorBody a_274) + +instance AST.Unmarshal.Unmarshal ConstructorBody + +instance Data.Foldable.Foldable ConstructorBody where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ConstructorBody where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ConstructorBody where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ConstructorDeclaration a = ConstructorDeclaration + { ann :: a, + body :: (AST.Parse.Err (ConstructorBody a)), + typeParamaters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + name :: (AST.Parse.Err (Identifier a)), + parameters :: (AST.Parse.Err (FormalParameters a)), + extraChildren :: ([AST.Parse.Err ((Modifiers GHC.Generics.:+: Throws) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_275. + AST.Traversable1.Class.Traversable1 a_275 + ) + +instance AST.Unmarshal.SymbolMatching ConstructorDeclaration where + matchedSymbols _ = [207] + showFailure _ node_276 = + "expected " + GHC.Base.<> ( "constructor_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_276 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_276) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_277 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_278 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_279 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_280 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_277 + c1_278 = TreeSitter.Node.nodeStartPoint node_276 + TreeSitter.Node.TSPoint + r2_279 + c2_280 = TreeSitter.Node.nodeEndPoint node_276 + +deriving instance GHC.Classes.Eq a_281 => GHC.Classes.Eq (ConstructorDeclaration a_281) + +deriving instance GHC.Classes.Ord a_282 => GHC.Classes.Ord (ConstructorDeclaration a_282) + +deriving instance GHC.Show.Show a_283 => GHC.Show.Show (ConstructorDeclaration a_283) + +instance AST.Unmarshal.Unmarshal ConstructorDeclaration + +instance Data.Foldable.Foldable ConstructorDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ConstructorDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ConstructorDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ContinueStatement a = ContinueStatement + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Identifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_284. + AST.Traversable1.Class.Traversable1 a_284 + ) + +instance AST.Unmarshal.SymbolMatching ContinueStatement where + matchedSymbols _ = [161] + showFailure _ node_285 = + "expected " + GHC.Base.<> ( "continue_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_285 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_285) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_286 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_287 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_288 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_289 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_286 + c1_287 = TreeSitter.Node.nodeStartPoint node_285 + TreeSitter.Node.TSPoint + r2_288 + c2_289 = TreeSitter.Node.nodeEndPoint node_285 + +deriving instance GHC.Classes.Eq a_290 => GHC.Classes.Eq (ContinueStatement a_290) + +deriving instance GHC.Classes.Ord a_291 => GHC.Classes.Ord (ContinueStatement a_291) + +deriving instance GHC.Show.Show a_292 => GHC.Show.Show (ContinueStatement a_292) + +instance AST.Unmarshal.Unmarshal ContinueStatement + +instance Data.Foldable.Foldable ContinueStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ContinueStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ContinueStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Dimensions a = Dimensions + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Annotation GHC.Generics.:+: MarkerAnnotation) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_293. + AST.Traversable1.Class.Traversable1 a_293 + ) + +instance AST.Unmarshal.SymbolMatching Dimensions where + matchedSymbols _ = [150] + showFailure _ node_294 = + "expected " + GHC.Base.<> ( "dimensions" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_294 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_294) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_295 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_296 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_297 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_298 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_295 + c1_296 = TreeSitter.Node.nodeStartPoint node_294 + TreeSitter.Node.TSPoint + r2_297 + c2_298 = TreeSitter.Node.nodeEndPoint node_294 + +deriving instance GHC.Classes.Eq a_299 => GHC.Classes.Eq (Dimensions a_299) + +deriving instance GHC.Classes.Ord a_300 => GHC.Classes.Ord (Dimensions a_300) + +deriving instance GHC.Show.Show a_301 => GHC.Show.Show (Dimensions a_301) + +instance AST.Unmarshal.Unmarshal Dimensions + +instance Data.Foldable.Foldable Dimensions where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Dimensions where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Dimensions where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DimensionsExpr a = DimensionsExpr + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: Annotation GHC.Generics.:+: MarkerAnnotation) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_302. + AST.Traversable1.Class.Traversable1 a_302 + ) + +instance AST.Unmarshal.SymbolMatching DimensionsExpr where + matchedSymbols _ = [137] + showFailure _ node_303 = + "expected " + GHC.Base.<> ( "dimensions_expr" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_303 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_303) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_304 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_305 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_306 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_307 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_304 + c1_305 = TreeSitter.Node.nodeStartPoint node_303 + TreeSitter.Node.TSPoint + r2_306 + c2_307 = TreeSitter.Node.nodeEndPoint node_303 + +deriving instance GHC.Classes.Eq a_308 => GHC.Classes.Eq (DimensionsExpr a_308) + +deriving instance GHC.Classes.Ord a_309 => GHC.Classes.Ord (DimensionsExpr a_309) + +deriving instance GHC.Show.Show a_310 => GHC.Show.Show (DimensionsExpr a_310) + +instance AST.Unmarshal.Unmarshal DimensionsExpr + +instance Data.Foldable.Foldable DimensionsExpr where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DimensionsExpr where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DimensionsExpr where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DoStatement a = DoStatement + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: Statement) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_311. + AST.Traversable1.Class.Traversable1 a_311 + ) + +instance AST.Unmarshal.SymbolMatching DoStatement where + matchedSymbols _ = [159] + showFailure _ node_312 = + "expected " + GHC.Base.<> ( "do_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_312 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_312) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_313 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_314 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_315 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_316 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_313 + c1_314 = TreeSitter.Node.nodeStartPoint node_312 + TreeSitter.Node.TSPoint + r2_315 + c2_316 = TreeSitter.Node.nodeEndPoint node_312 + +deriving instance GHC.Classes.Eq a_317 => GHC.Classes.Eq (DoStatement a_317) + +deriving instance GHC.Classes.Ord a_318 => GHC.Classes.Ord (DoStatement a_318) + +deriving instance GHC.Show.Show a_319 => GHC.Show.Show (DoStatement a_319) + +instance AST.Unmarshal.Unmarshal DoStatement + +instance Data.Foldable.Foldable DoStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DoStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DoStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ElementValueArrayInitializer a = ElementValueArrayInitializer + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Expression GHC.Generics.:+: Annotation GHC.Generics.:+: ElementValueArrayInitializer GHC.Generics.:+: MarkerAnnotation) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_320. + AST.Traversable1.Class.Traversable1 a_320 + ) + +instance AST.Unmarshal.SymbolMatching ElementValueArrayInitializer where + matchedSymbols _ = [184] + showFailure _ node_321 = + "expected " + GHC.Base.<> ( "element_value_array_initializer" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_321 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_321) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_322 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_323 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_324 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_325 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_322 + c1_323 = TreeSitter.Node.nodeStartPoint node_321 + TreeSitter.Node.TSPoint + r2_324 + c2_325 = TreeSitter.Node.nodeEndPoint node_321 + +deriving instance GHC.Classes.Eq a_326 => GHC.Classes.Eq (ElementValueArrayInitializer a_326) + +deriving instance GHC.Classes.Ord a_327 => GHC.Classes.Ord (ElementValueArrayInitializer a_327) + +deriving instance GHC.Show.Show a_328 => GHC.Show.Show (ElementValueArrayInitializer a_328) + +instance AST.Unmarshal.Unmarshal ElementValueArrayInitializer + +instance Data.Foldable.Foldable ElementValueArrayInitializer where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ElementValueArrayInitializer where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ElementValueArrayInitializer where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ElementValuePair a = ElementValuePair + { ann :: a, + value :: (AST.Parse.Err ((Expression GHC.Generics.:+: Annotation GHC.Generics.:+: ElementValueArrayInitializer GHC.Generics.:+: MarkerAnnotation) a)), + key :: (AST.Parse.Err (Identifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_329. + AST.Traversable1.Class.Traversable1 a_329 + ) + +instance AST.Unmarshal.SymbolMatching ElementValuePair where + matchedSymbols _ = [182] + showFailure _ node_330 = + "expected " + GHC.Base.<> ( "element_value_pair" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_330 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_330) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_331 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_332 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_333 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_334 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_331 + c1_332 = TreeSitter.Node.nodeStartPoint node_330 + TreeSitter.Node.TSPoint + r2_333 + c2_334 = TreeSitter.Node.nodeEndPoint node_330 + +deriving instance GHC.Classes.Eq a_335 => GHC.Classes.Eq (ElementValuePair a_335) + +deriving instance GHC.Classes.Ord a_336 => GHC.Classes.Ord (ElementValuePair a_336) + +deriving instance GHC.Show.Show a_337 => GHC.Show.Show (ElementValuePair a_337) + +instance AST.Unmarshal.Unmarshal ElementValuePair + +instance Data.Foldable.Foldable ElementValuePair where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ElementValuePair where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ElementValuePair where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EnhancedForStatement a = EnhancedForStatement + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + value :: (AST.Parse.Err (Expression a)), + name :: (AST.Parse.Err (Identifier a)), + type' :: (AST.Parse.Err (UnannotatedType a)), + dimensions :: (GHC.Maybe.Maybe (AST.Parse.Err (Dimensions a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Modifiers a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_338. + AST.Traversable1.Class.Traversable1 a_338 + ) + +instance AST.Unmarshal.SymbolMatching EnhancedForStatement where + matchedSymbols _ = [177] + showFailure _ node_339 = + "expected " + GHC.Base.<> ( "enhanced_for_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_339 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_339) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_340 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_341 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_342 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_343 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_340 + c1_341 = TreeSitter.Node.nodeStartPoint node_339 + TreeSitter.Node.TSPoint + r2_342 + c2_343 = TreeSitter.Node.nodeEndPoint node_339 + +deriving instance GHC.Classes.Eq a_344 => GHC.Classes.Eq (EnhancedForStatement a_344) + +deriving instance GHC.Classes.Ord a_345 => GHC.Classes.Ord (EnhancedForStatement a_345) + +deriving instance GHC.Show.Show a_346 => GHC.Show.Show (EnhancedForStatement a_346) + +instance AST.Unmarshal.Unmarshal EnhancedForStatement + +instance Data.Foldable.Foldable EnhancedForStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EnhancedForStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EnhancedForStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EnumBody a = EnumBody + { ann :: a, + extraChildren :: ([AST.Parse.Err ((EnumBodyDeclarations GHC.Generics.:+: EnumConstant) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_347. + AST.Traversable1.Class.Traversable1 a_347 + ) + +instance AST.Unmarshal.SymbolMatching EnumBody where + matchedSymbols _ = [194] + showFailure _ node_348 = + "expected " + GHC.Base.<> ( "enum_body" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_348 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_348) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_349 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_350 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_351 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_352 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_349 + c1_350 = TreeSitter.Node.nodeStartPoint node_348 + TreeSitter.Node.TSPoint + r2_351 + c2_352 = TreeSitter.Node.nodeEndPoint node_348 + +deriving instance GHC.Classes.Eq a_353 => GHC.Classes.Eq (EnumBody a_353) + +deriving instance GHC.Classes.Ord a_354 => GHC.Classes.Ord (EnumBody a_354) + +deriving instance GHC.Show.Show a_355 => GHC.Show.Show (EnumBody a_355) + +instance AST.Unmarshal.Unmarshal EnumBody + +instance Data.Foldable.Foldable EnumBody where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EnumBody where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EnumBody where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EnumBodyDeclarations a = EnumBodyDeclarations + { ann :: a, + extraChildren :: ([AST.Parse.Err ((AnnotationTypeDeclaration GHC.Generics.:+: Block GHC.Generics.:+: ClassDeclaration GHC.Generics.:+: ConstructorDeclaration GHC.Generics.:+: EnumDeclaration GHC.Generics.:+: FieldDeclaration GHC.Generics.:+: InterfaceDeclaration GHC.Generics.:+: MethodDeclaration GHC.Generics.:+: StaticInitializer) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_356. + AST.Traversable1.Class.Traversable1 a_356 + ) + +instance AST.Unmarshal.SymbolMatching EnumBodyDeclarations where + matchedSymbols _ = [195] + showFailure _ node_357 = + "expected " + GHC.Base.<> ( "enum_body_declarations" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_357 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_357) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_358 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_359 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_360 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_361 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_358 + c1_359 = TreeSitter.Node.nodeStartPoint node_357 + TreeSitter.Node.TSPoint + r2_360 + c2_361 = TreeSitter.Node.nodeEndPoint node_357 + +deriving instance GHC.Classes.Eq a_362 => GHC.Classes.Eq (EnumBodyDeclarations a_362) + +deriving instance GHC.Classes.Ord a_363 => GHC.Classes.Ord (EnumBodyDeclarations a_363) + +deriving instance GHC.Show.Show a_364 => GHC.Show.Show (EnumBodyDeclarations a_364) + +instance AST.Unmarshal.Unmarshal EnumBodyDeclarations + +instance Data.Foldable.Foldable EnumBodyDeclarations where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EnumBodyDeclarations where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EnumBodyDeclarations where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EnumConstant a = EnumConstant + { ann :: a, + body :: (GHC.Maybe.Maybe (AST.Parse.Err (ClassBody a))), + arguments :: (GHC.Maybe.Maybe (AST.Parse.Err (ArgumentList a))), + name :: (AST.Parse.Err (Identifier a)), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Modifiers a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_365. + AST.Traversable1.Class.Traversable1 a_365 + ) + +instance AST.Unmarshal.SymbolMatching EnumConstant where + matchedSymbols _ = [196] + showFailure _ node_366 = + "expected " + GHC.Base.<> ( "enum_constant" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_366 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_366) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_367 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_368 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_369 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_370 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_367 + c1_368 = TreeSitter.Node.nodeStartPoint node_366 + TreeSitter.Node.TSPoint + r2_369 + c2_370 = TreeSitter.Node.nodeEndPoint node_366 + +deriving instance GHC.Classes.Eq a_371 => GHC.Classes.Eq (EnumConstant a_371) + +deriving instance GHC.Classes.Ord a_372 => GHC.Classes.Ord (EnumConstant a_372) + +deriving instance GHC.Show.Show a_373 => GHC.Show.Show (EnumConstant a_373) + +instance AST.Unmarshal.Unmarshal EnumConstant + +instance Data.Foldable.Foldable EnumConstant where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EnumConstant where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EnumConstant where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EnumDeclaration a = EnumDeclaration + { ann :: a, + body :: (AST.Parse.Err (EnumBody a)), + interfaces :: (GHC.Maybe.Maybe (AST.Parse.Err (SuperInterfaces a))), + name :: (AST.Parse.Err (Identifier a)), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Modifiers a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_374. + AST.Traversable1.Class.Traversable1 a_374 + ) + +instance AST.Unmarshal.SymbolMatching EnumDeclaration where + matchedSymbols _ = [193] + showFailure _ node_375 = + "expected " + GHC.Base.<> ( "enum_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_375 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_375) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_376 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_377 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_378 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_379 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_376 + c1_377 = TreeSitter.Node.nodeStartPoint node_375 + TreeSitter.Node.TSPoint + r2_378 + c2_379 = TreeSitter.Node.nodeEndPoint node_375 + +deriving instance GHC.Classes.Eq a_380 => GHC.Classes.Eq (EnumDeclaration a_380) + +deriving instance GHC.Classes.Ord a_381 => GHC.Classes.Ord (EnumDeclaration a_381) + +deriving instance GHC.Show.Show a_382 => GHC.Show.Show (EnumDeclaration a_382) + +instance AST.Unmarshal.Unmarshal EnumDeclaration + +instance Data.Foldable.Foldable EnumDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EnumDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EnumDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExplicitConstructorInvocation a = ExplicitConstructorInvocation + { ann :: a, + arguments :: (AST.Parse.Err (ArgumentList a)), + typeArguments :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeArguments a))), + object :: (GHC.Maybe.Maybe (AST.Parse.Err ((Primary GHC.Generics.:+: Identifier GHC.Generics.:+: ScopedIdentifier) a))), + constructor :: (AST.Parse.Err ((Super GHC.Generics.:+: This) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_383. + AST.Traversable1.Class.Traversable1 a_383 + ) + +instance AST.Unmarshal.SymbolMatching ExplicitConstructorInvocation where + matchedSymbols _ = [210] + showFailure _ node_384 = + "expected " + GHC.Base.<> ( "explicit_constructor_invocation" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_384 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_384) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_385 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_386 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_387 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_388 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_385 + c1_386 = TreeSitter.Node.nodeStartPoint node_384 + TreeSitter.Node.TSPoint + r2_387 + c2_388 = TreeSitter.Node.nodeEndPoint node_384 + +deriving instance GHC.Classes.Eq a_389 => GHC.Classes.Eq (ExplicitConstructorInvocation a_389) + +deriving instance GHC.Classes.Ord a_390 => GHC.Classes.Ord (ExplicitConstructorInvocation a_390) + +deriving instance GHC.Show.Show a_391 => GHC.Show.Show (ExplicitConstructorInvocation a_391) + +instance AST.Unmarshal.Unmarshal ExplicitConstructorInvocation + +instance Data.Foldable.Foldable ExplicitConstructorInvocation where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExplicitConstructorInvocation where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExplicitConstructorInvocation where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExpressionStatement a = ExpressionStatement + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_392. + AST.Traversable1.Class.Traversable1 a_392 + ) + +instance AST.Unmarshal.SymbolMatching ExpressionStatement where + matchedSymbols _ = [153] + showFailure _ node_393 = + "expected " + GHC.Base.<> ( "expression_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_393 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_393) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_394 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_395 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_396 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_397 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_394 + c1_395 = TreeSitter.Node.nodeStartPoint node_393 + TreeSitter.Node.TSPoint + r2_396 + c2_397 = TreeSitter.Node.nodeEndPoint node_393 + +deriving instance GHC.Classes.Eq a_398 => GHC.Classes.Eq (ExpressionStatement a_398) + +deriving instance GHC.Classes.Ord a_399 => GHC.Classes.Ord (ExpressionStatement a_399) + +deriving instance GHC.Show.Show a_400 => GHC.Show.Show (ExpressionStatement a_400) + +instance AST.Unmarshal.Unmarshal ExpressionStatement + +instance Data.Foldable.Foldable ExpressionStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExpressionStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExpressionStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExtendsInterfaces a = ExtendsInterfaces + { ann :: a, + extraChildren :: (AST.Parse.Err (InterfaceTypeList a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_401. + AST.Traversable1.Class.Traversable1 a_401 + ) + +instance AST.Unmarshal.SymbolMatching ExtendsInterfaces where + matchedSymbols _ = [218] + showFailure _ node_402 = + "expected " + GHC.Base.<> ( "extends_interfaces" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_402 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_402) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_403 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_404 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_405 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_406 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_403 + c1_404 = TreeSitter.Node.nodeStartPoint node_402 + TreeSitter.Node.TSPoint + r2_405 + c2_406 = TreeSitter.Node.nodeEndPoint node_402 + +deriving instance GHC.Classes.Eq a_407 => GHC.Classes.Eq (ExtendsInterfaces a_407) + +deriving instance GHC.Classes.Ord a_408 => GHC.Classes.Ord (ExtendsInterfaces a_408) + +deriving instance GHC.Show.Show a_409 => GHC.Show.Show (ExtendsInterfaces a_409) + +instance AST.Unmarshal.Unmarshal ExtendsInterfaces + +instance Data.Foldable.Foldable ExtendsInterfaces where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExtendsInterfaces where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExtendsInterfaces where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FieldAccess a = FieldAccess + { ann :: a, + field :: (AST.Parse.Err ((Identifier GHC.Generics.:+: This) a)), + object :: (AST.Parse.Err ((Primary GHC.Generics.:+: Identifier GHC.Generics.:+: ScopedIdentifier GHC.Generics.:+: Super) a)), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Super a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_410. + AST.Traversable1.Class.Traversable1 a_410 + ) + +instance AST.Unmarshal.SymbolMatching FieldAccess where + matchedSymbols _ = [142] + showFailure _ node_411 = + "expected " + GHC.Base.<> ( "field_access" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_411 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_411) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_412 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_413 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_414 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_415 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_412 + c1_413 = TreeSitter.Node.nodeStartPoint node_411 + TreeSitter.Node.TSPoint + r2_414 + c2_415 = TreeSitter.Node.nodeEndPoint node_411 + +deriving instance GHC.Classes.Eq a_416 => GHC.Classes.Eq (FieldAccess a_416) + +deriving instance GHC.Classes.Ord a_417 => GHC.Classes.Ord (FieldAccess a_417) + +deriving instance GHC.Show.Show a_418 => GHC.Show.Show (FieldAccess a_418) + +instance AST.Unmarshal.Unmarshal FieldAccess + +instance Data.Foldable.Foldable FieldAccess where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FieldAccess where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FieldAccess where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FieldDeclaration a = FieldDeclaration + { ann :: a, + declarator :: (GHC.Base.NonEmpty (AST.Parse.Err (VariableDeclarator a))), + type' :: (AST.Parse.Err (UnannotatedType a)), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Modifiers a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_419. + AST.Traversable1.Class.Traversable1 a_419 + ) + +instance AST.Unmarshal.SymbolMatching FieldDeclaration where + matchedSymbols _ = [212] + showFailure _ node_420 = + "expected " + GHC.Base.<> ( "field_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_420 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_420) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_421 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_422 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_423 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_424 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_421 + c1_422 = TreeSitter.Node.nodeStartPoint node_420 + TreeSitter.Node.TSPoint + r2_423 + c2_424 = TreeSitter.Node.nodeEndPoint node_420 + +deriving instance GHC.Classes.Eq a_425 => GHC.Classes.Eq (FieldDeclaration a_425) + +deriving instance GHC.Classes.Ord a_426 => GHC.Classes.Ord (FieldDeclaration a_426) + +deriving instance GHC.Show.Show a_427 => GHC.Show.Show (FieldDeclaration a_427) + +instance AST.Unmarshal.Unmarshal FieldDeclaration + +instance Data.Foldable.Foldable FieldDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FieldDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FieldDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FinallyClause a = FinallyClause + { ann :: a, + extraChildren :: (AST.Parse.Err (Block a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_428. + AST.Traversable1.Class.Traversable1 a_428 + ) + +instance AST.Unmarshal.SymbolMatching FinallyClause where + matchedSymbols _ = [169] + showFailure _ node_429 = + "expected " + GHC.Base.<> ( "finally_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_429 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_429) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_430 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_431 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_432 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_433 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_430 + c1_431 = TreeSitter.Node.nodeStartPoint node_429 + TreeSitter.Node.TSPoint + r2_432 + c2_433 = TreeSitter.Node.nodeEndPoint node_429 + +deriving instance GHC.Classes.Eq a_434 => GHC.Classes.Eq (FinallyClause a_434) + +deriving instance GHC.Classes.Ord a_435 => GHC.Classes.Ord (FinallyClause a_435) + +deriving instance GHC.Show.Show a_436 => GHC.Show.Show (FinallyClause a_436) + +instance AST.Unmarshal.Unmarshal FinallyClause + +instance Data.Foldable.Foldable FinallyClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FinallyClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FinallyClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FloatingPointType a = FloatingPointType {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_437. + AST.Traversable1.Class.Traversable1 a_437 + ) + +instance AST.Unmarshal.SymbolMatching FloatingPointType where + matchedSymbols _ = [232] + showFailure _ node_438 = + "expected " + GHC.Base.<> ( "floating_point_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_438 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_438) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_439 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_440 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_441 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_442 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_439 + c1_440 = TreeSitter.Node.nodeStartPoint node_438 + TreeSitter.Node.TSPoint + r2_441 + c2_442 = TreeSitter.Node.nodeEndPoint node_438 + +deriving instance GHC.Classes.Eq a_443 => GHC.Classes.Eq (FloatingPointType a_443) + +deriving instance GHC.Classes.Ord a_444 => GHC.Classes.Ord (FloatingPointType a_444) + +deriving instance GHC.Show.Show a_445 => GHC.Show.Show (FloatingPointType a_445) + +instance AST.Unmarshal.Unmarshal FloatingPointType + +instance Data.Foldable.Foldable FloatingPointType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FloatingPointType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FloatingPointType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ForInit a = ForInit + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: LocalVariableDeclaration) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_446. + AST.Traversable1.Class.Traversable1 a_446 + ) + +instance AST.Unmarshal.SymbolMatching ForInit where + matchedSymbols _ = [176] + showFailure _ node_447 = + "expected " + GHC.Base.<> ( "for_init" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_447 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_447) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_448 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_449 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_450 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_451 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_448 + c1_449 = TreeSitter.Node.nodeStartPoint node_447 + TreeSitter.Node.TSPoint + r2_450 + c2_451 = TreeSitter.Node.nodeEndPoint node_447 + +deriving instance GHC.Classes.Eq a_452 => GHC.Classes.Eq (ForInit a_452) + +deriving instance GHC.Classes.Ord a_453 => GHC.Classes.Ord (ForInit a_453) + +deriving instance GHC.Show.Show a_454 => GHC.Show.Show (ForInit a_454) + +instance AST.Unmarshal.Unmarshal ForInit + +instance Data.Foldable.Foldable ForInit where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ForInit where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ForInit where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ForStatement a = ForStatement + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: Statement GHC.Generics.:+: ForInit) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_455. + AST.Traversable1.Class.Traversable1 a_455 + ) + +instance AST.Unmarshal.SymbolMatching ForStatement where + matchedSymbols _ = [175] + showFailure _ node_456 = + "expected " + GHC.Base.<> ( "for_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_456 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_456) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_457 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_458 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_459 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_460 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_457 + c1_458 = TreeSitter.Node.nodeStartPoint node_456 + TreeSitter.Node.TSPoint + r2_459 + c2_460 = TreeSitter.Node.nodeEndPoint node_456 + +deriving instance GHC.Classes.Eq a_461 => GHC.Classes.Eq (ForStatement a_461) + +deriving instance GHC.Classes.Ord a_462 => GHC.Classes.Ord (ForStatement a_462) + +deriving instance GHC.Show.Show a_463 => GHC.Show.Show (ForStatement a_463) + +instance AST.Unmarshal.Unmarshal ForStatement + +instance Data.Foldable.Foldable ForStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ForStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ForStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FormalParameter a = FormalParameter + { ann :: a, + name :: (AST.Parse.Err (Identifier a)), + type' :: (AST.Parse.Err (UnannotatedType a)), + dimensions :: (GHC.Maybe.Maybe (AST.Parse.Err (Dimensions a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Modifiers a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_464. + AST.Traversable1.Class.Traversable1 a_464 + ) + +instance AST.Unmarshal.SymbolMatching FormalParameter where + matchedSymbols _ = [236] + showFailure _ node_465 = + "expected " + GHC.Base.<> ( "formal_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_465 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_465) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_466 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_467 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_468 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_469 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_466 + c1_467 = TreeSitter.Node.nodeStartPoint node_465 + TreeSitter.Node.TSPoint + r2_468 + c2_469 = TreeSitter.Node.nodeEndPoint node_465 + +deriving instance GHC.Classes.Eq a_470 => GHC.Classes.Eq (FormalParameter a_470) + +deriving instance GHC.Classes.Ord a_471 => GHC.Classes.Ord (FormalParameter a_471) + +deriving instance GHC.Show.Show a_472 => GHC.Show.Show (FormalParameter a_472) + +instance AST.Unmarshal.Unmarshal FormalParameter + +instance Data.Foldable.Foldable FormalParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FormalParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FormalParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FormalParameters a = FormalParameters + { ann :: a, + extraChildren :: ([AST.Parse.Err ((FormalParameter GHC.Generics.:+: ReceiverParameter GHC.Generics.:+: SpreadParameter) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_473. + AST.Traversable1.Class.Traversable1 a_473 + ) + +instance AST.Unmarshal.SymbolMatching FormalParameters where + matchedSymbols _ = [235] + showFailure _ node_474 = + "expected " + GHC.Base.<> ( "formal_parameters" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_474 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_474) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_475 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_476 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_477 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_478 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_475 + c1_476 = TreeSitter.Node.nodeStartPoint node_474 + TreeSitter.Node.TSPoint + r2_477 + c2_478 = TreeSitter.Node.nodeEndPoint node_474 + +deriving instance GHC.Classes.Eq a_479 => GHC.Classes.Eq (FormalParameters a_479) + +deriving instance GHC.Classes.Ord a_480 => GHC.Classes.Ord (FormalParameters a_480) + +deriving instance GHC.Show.Show a_481 => GHC.Show.Show (FormalParameters a_481) + +instance AST.Unmarshal.Unmarshal FormalParameters + +instance Data.Foldable.Foldable FormalParameters where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FormalParameters where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FormalParameters where + traverse = AST.Traversable1.Class.traverseDefault1 + +data GenericType a = GenericType + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ScopedTypeIdentifier GHC.Generics.:+: TypeArguments GHC.Generics.:+: TypeIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_482. + AST.Traversable1.Class.Traversable1 a_482 + ) + +instance AST.Unmarshal.SymbolMatching GenericType where + matchedSymbols _ = [229] + showFailure _ node_483 = + "expected " + GHC.Base.<> ( "generic_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_483 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_483) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_484 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_485 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_486 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_487 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_484 + c1_485 = TreeSitter.Node.nodeStartPoint node_483 + TreeSitter.Node.TSPoint + r2_486 + c2_487 = TreeSitter.Node.nodeEndPoint node_483 + +deriving instance GHC.Classes.Eq a_488 => GHC.Classes.Eq (GenericType a_488) + +deriving instance GHC.Classes.Ord a_489 => GHC.Classes.Ord (GenericType a_489) + +deriving instance GHC.Show.Show a_490 => GHC.Show.Show (GenericType a_490) + +instance AST.Unmarshal.Unmarshal GenericType + +instance Data.Foldable.Foldable GenericType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor GenericType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable GenericType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IfStatement a = IfStatement + { ann :: a, + alternative :: (GHC.Maybe.Maybe (AST.Parse.Err (Statement a))), + consequence :: (AST.Parse.Err (Statement a)), + condition :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_491. + AST.Traversable1.Class.Traversable1 a_491 + ) + +instance AST.Unmarshal.SymbolMatching IfStatement where + matchedSymbols _ = [173] + showFailure _ node_492 = + "expected " + GHC.Base.<> ( "if_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_492 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_492) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_493 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_494 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_495 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_496 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_493 + c1_494 = TreeSitter.Node.nodeStartPoint node_492 + TreeSitter.Node.TSPoint + r2_495 + c2_496 = TreeSitter.Node.nodeEndPoint node_492 + +deriving instance GHC.Classes.Eq a_497 => GHC.Classes.Eq (IfStatement a_497) + +deriving instance GHC.Classes.Ord a_498 => GHC.Classes.Ord (IfStatement a_498) + +deriving instance GHC.Show.Show a_499 => GHC.Show.Show (IfStatement a_499) + +instance AST.Unmarshal.Unmarshal IfStatement + +instance Data.Foldable.Foldable IfStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IfStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IfStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportDeclaration a = ImportDeclaration + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Asterisk GHC.Generics.:+: Identifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_500. + AST.Traversable1.Class.Traversable1 a_500 + ) + +instance AST.Unmarshal.SymbolMatching ImportDeclaration where + matchedSymbols _ = [191] + showFailure _ node_501 = + "expected " + GHC.Base.<> ( "import_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_501 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_501) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_502 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_503 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_504 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_505 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_502 + c1_503 = TreeSitter.Node.nodeStartPoint node_501 + TreeSitter.Node.TSPoint + r2_504 + c2_505 = TreeSitter.Node.nodeEndPoint node_501 + +deriving instance GHC.Classes.Eq a_506 => GHC.Classes.Eq (ImportDeclaration a_506) + +deriving instance GHC.Classes.Ord a_507 => GHC.Classes.Ord (ImportDeclaration a_507) + +deriving instance GHC.Show.Show a_508 => GHC.Show.Show (ImportDeclaration a_508) + +instance AST.Unmarshal.Unmarshal ImportDeclaration + +instance Data.Foldable.Foldable ImportDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data InferredParameters a = InferredParameters + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Identifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_509. + AST.Traversable1.Class.Traversable1 a_509 + ) + +instance AST.Unmarshal.SymbolMatching InferredParameters where + matchedSymbols _ = [131] + showFailure _ node_510 = + "expected " + GHC.Base.<> ( "inferred_parameters" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_510 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_510) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_511 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_512 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_513 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_514 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_511 + c1_512 = TreeSitter.Node.nodeStartPoint node_510 + TreeSitter.Node.TSPoint + r2_513 + c2_514 = TreeSitter.Node.nodeEndPoint node_510 + +deriving instance GHC.Classes.Eq a_515 => GHC.Classes.Eq (InferredParameters a_515) + +deriving instance GHC.Classes.Ord a_516 => GHC.Classes.Ord (InferredParameters a_516) + +deriving instance GHC.Show.Show a_517 => GHC.Show.Show (InferredParameters a_517) + +instance AST.Unmarshal.Unmarshal InferredParameters + +instance Data.Foldable.Foldable InferredParameters where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor InferredParameters where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable InferredParameters where + traverse = AST.Traversable1.Class.traverseDefault1 + +data InstanceofExpression a = InstanceofExpression + { ann :: a, + left :: (AST.Parse.Err (Expression a)), + right :: (AST.Parse.Err (Type a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_518. + AST.Traversable1.Class.Traversable1 a_518 + ) + +instance AST.Unmarshal.SymbolMatching InstanceofExpression where + matchedSymbols _ = [129] + showFailure _ node_519 = + "expected " + GHC.Base.<> ( "instanceof_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_519 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_519) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_520 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_521 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_522 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_523 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_520 + c1_521 = TreeSitter.Node.nodeStartPoint node_519 + TreeSitter.Node.TSPoint + r2_522 + c2_523 = TreeSitter.Node.nodeEndPoint node_519 + +deriving instance GHC.Classes.Eq a_524 => GHC.Classes.Eq (InstanceofExpression a_524) + +deriving instance GHC.Classes.Ord a_525 => GHC.Classes.Ord (InstanceofExpression a_525) + +deriving instance GHC.Show.Show a_526 => GHC.Show.Show (InstanceofExpression a_526) + +instance AST.Unmarshal.Unmarshal InstanceofExpression + +instance Data.Foldable.Foldable InstanceofExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor InstanceofExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable InstanceofExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IntegralType a = IntegralType {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_527. + AST.Traversable1.Class.Traversable1 a_527 + ) + +instance AST.Unmarshal.SymbolMatching IntegralType where + matchedSymbols _ = [231] + showFailure _ node_528 = + "expected " + GHC.Base.<> ( "integral_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_528 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_528) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_529 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_530 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_531 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_532 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_529 + c1_530 = TreeSitter.Node.nodeStartPoint node_528 + TreeSitter.Node.TSPoint + r2_531 + c2_532 = TreeSitter.Node.nodeEndPoint node_528 + +deriving instance GHC.Classes.Eq a_533 => GHC.Classes.Eq (IntegralType a_533) + +deriving instance GHC.Classes.Ord a_534 => GHC.Classes.Ord (IntegralType a_534) + +deriving instance GHC.Show.Show a_535 => GHC.Show.Show (IntegralType a_535) + +instance AST.Unmarshal.Unmarshal IntegralType + +instance Data.Foldable.Foldable IntegralType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IntegralType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IntegralType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data InterfaceBody a = InterfaceBody + { ann :: a, + extraChildren :: ([AST.Parse.Err ((AnnotationTypeDeclaration GHC.Generics.:+: ClassDeclaration GHC.Generics.:+: ConstantDeclaration GHC.Generics.:+: EnumDeclaration GHC.Generics.:+: InterfaceDeclaration GHC.Generics.:+: MethodDeclaration) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_536. + AST.Traversable1.Class.Traversable1 a_536 + ) + +instance AST.Unmarshal.SymbolMatching InterfaceBody where + matchedSymbols _ = [219] + showFailure _ node_537 = + "expected " + GHC.Base.<> ( "interface_body" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_537 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_537) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_538 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_539 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_540 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_541 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_538 + c1_539 = TreeSitter.Node.nodeStartPoint node_537 + TreeSitter.Node.TSPoint + r2_540 + c2_541 = TreeSitter.Node.nodeEndPoint node_537 + +deriving instance GHC.Classes.Eq a_542 => GHC.Classes.Eq (InterfaceBody a_542) + +deriving instance GHC.Classes.Ord a_543 => GHC.Classes.Ord (InterfaceBody a_543) + +deriving instance GHC.Show.Show a_544 => GHC.Show.Show (InterfaceBody a_544) + +instance AST.Unmarshal.Unmarshal InterfaceBody + +instance Data.Foldable.Foldable InterfaceBody where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor InterfaceBody where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable InterfaceBody where + traverse = AST.Traversable1.Class.traverseDefault1 + +data InterfaceDeclaration a = InterfaceDeclaration + { ann :: a, + body :: (AST.Parse.Err (InterfaceBody a)), + name :: (AST.Parse.Err (Identifier a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + extraChildren :: ([AST.Parse.Err ((ExtendsInterfaces GHC.Generics.:+: Modifiers) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_545. + AST.Traversable1.Class.Traversable1 a_545 + ) + +instance AST.Unmarshal.SymbolMatching InterfaceDeclaration where + matchedSymbols _ = [217] + showFailure _ node_546 = + "expected " + GHC.Base.<> ( "interface_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_546 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_546) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_547 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_548 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_549 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_550 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_547 + c1_548 = TreeSitter.Node.nodeStartPoint node_546 + TreeSitter.Node.TSPoint + r2_549 + c2_550 = TreeSitter.Node.nodeEndPoint node_546 + +deriving instance GHC.Classes.Eq a_551 => GHC.Classes.Eq (InterfaceDeclaration a_551) + +deriving instance GHC.Classes.Ord a_552 => GHC.Classes.Ord (InterfaceDeclaration a_552) + +deriving instance GHC.Show.Show a_553 => GHC.Show.Show (InterfaceDeclaration a_553) + +instance AST.Unmarshal.Unmarshal InterfaceDeclaration + +instance Data.Foldable.Foldable InterfaceDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor InterfaceDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable InterfaceDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data InterfaceTypeList a = InterfaceTypeList + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Type a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_554. + AST.Traversable1.Class.Traversable1 a_554 + ) + +instance AST.Unmarshal.SymbolMatching InterfaceTypeList where + matchedSymbols _ = [204] + showFailure _ node_555 = + "expected " + GHC.Base.<> ( "interface_type_list" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_555 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_555) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_556 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_557 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_558 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_559 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_556 + c1_557 = TreeSitter.Node.nodeStartPoint node_555 + TreeSitter.Node.TSPoint + r2_558 + c2_559 = TreeSitter.Node.nodeEndPoint node_555 + +deriving instance GHC.Classes.Eq a_560 => GHC.Classes.Eq (InterfaceTypeList a_560) + +deriving instance GHC.Classes.Ord a_561 => GHC.Classes.Ord (InterfaceTypeList a_561) + +deriving instance GHC.Show.Show a_562 => GHC.Show.Show (InterfaceTypeList a_562) + +instance AST.Unmarshal.Unmarshal InterfaceTypeList + +instance Data.Foldable.Foldable InterfaceTypeList where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor InterfaceTypeList where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable InterfaceTypeList where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LabeledStatement a = LabeledStatement + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Statement GHC.Generics.:+: Identifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_563. + AST.Traversable1.Class.Traversable1 a_563 + ) + +instance AST.Unmarshal.SymbolMatching LabeledStatement where + matchedSymbols _ = [154] + showFailure _ node_564 = + "expected " + GHC.Base.<> ( "labeled_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_564 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_564) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_565 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_566 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_567 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_568 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_565 + c1_566 = TreeSitter.Node.nodeStartPoint node_564 + TreeSitter.Node.TSPoint + r2_567 + c2_568 = TreeSitter.Node.nodeEndPoint node_564 + +deriving instance GHC.Classes.Eq a_569 => GHC.Classes.Eq (LabeledStatement a_569) + +deriving instance GHC.Classes.Ord a_570 => GHC.Classes.Ord (LabeledStatement a_570) + +deriving instance GHC.Show.Show a_571 => GHC.Show.Show (LabeledStatement a_571) + +instance AST.Unmarshal.Unmarshal LabeledStatement + +instance Data.Foldable.Foldable LabeledStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LabeledStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LabeledStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LambdaExpression a = LambdaExpression + { ann :: a, + body :: (AST.Parse.Err ((Expression GHC.Generics.:+: Block) a)), + parameters :: (AST.Parse.Err ((FormalParameters GHC.Generics.:+: Identifier GHC.Generics.:+: InferredParameters) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_572. + AST.Traversable1.Class.Traversable1 a_572 + ) + +instance AST.Unmarshal.SymbolMatching LambdaExpression where + matchedSymbols _ = [130] + showFailure _ node_573 = + "expected " + GHC.Base.<> ( "lambda_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_573 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_573) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_574 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_575 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_576 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_577 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_574 + c1_575 = TreeSitter.Node.nodeStartPoint node_573 + TreeSitter.Node.TSPoint + r2_576 + c2_577 = TreeSitter.Node.nodeEndPoint node_573 + +deriving instance GHC.Classes.Eq a_578 => GHC.Classes.Eq (LambdaExpression a_578) + +deriving instance GHC.Classes.Ord a_579 => GHC.Classes.Ord (LambdaExpression a_579) + +deriving instance GHC.Show.Show a_580 => GHC.Show.Show (LambdaExpression a_580) + +instance AST.Unmarshal.Unmarshal LambdaExpression + +instance Data.Foldable.Foldable LambdaExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LambdaExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LambdaExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LocalVariableDeclaration a = LocalVariableDeclaration + { ann :: a, + declarator :: (GHC.Base.NonEmpty (AST.Parse.Err (VariableDeclarator a))), + type' :: (AST.Parse.Err (UnannotatedType a)), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Modifiers a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_581. + AST.Traversable1.Class.Traversable1 a_581 + ) + +instance AST.Unmarshal.SymbolMatching LocalVariableDeclaration where + matchedSymbols _ = [241] + showFailure _ node_582 = + "expected " + GHC.Base.<> ( "local_variable_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_582 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_582) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_583 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_584 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_585 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_586 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_583 + c1_584 = TreeSitter.Node.nodeStartPoint node_582 + TreeSitter.Node.TSPoint + r2_585 + c2_586 = TreeSitter.Node.nodeEndPoint node_582 + +deriving instance GHC.Classes.Eq a_587 => GHC.Classes.Eq (LocalVariableDeclaration a_587) + +deriving instance GHC.Classes.Ord a_588 => GHC.Classes.Ord (LocalVariableDeclaration a_588) + +deriving instance GHC.Show.Show a_589 => GHC.Show.Show (LocalVariableDeclaration a_589) + +instance AST.Unmarshal.Unmarshal LocalVariableDeclaration + +instance Data.Foldable.Foldable LocalVariableDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LocalVariableDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LocalVariableDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LocalVariableDeclarationStatement a = LocalVariableDeclarationStatement + { ann :: a, + extraChildren :: (AST.Parse.Err (LocalVariableDeclaration a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_590. + AST.Traversable1.Class.Traversable1 a_590 + ) + +instance AST.Unmarshal.SymbolMatching LocalVariableDeclarationStatement where + matchedSymbols _ = [240] + showFailure _ node_591 = + "expected " + GHC.Base.<> ( "local_variable_declaration_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_591 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_591) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_592 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_593 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_594 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_595 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_592 + c1_593 = TreeSitter.Node.nodeStartPoint node_591 + TreeSitter.Node.TSPoint + r2_594 + c2_595 = TreeSitter.Node.nodeEndPoint node_591 + +deriving instance GHC.Classes.Eq a_596 => GHC.Classes.Eq (LocalVariableDeclarationStatement a_596) + +deriving instance GHC.Classes.Ord a_597 => GHC.Classes.Ord (LocalVariableDeclarationStatement a_597) + +deriving instance GHC.Show.Show a_598 => GHC.Show.Show (LocalVariableDeclarationStatement a_598) + +instance AST.Unmarshal.Unmarshal LocalVariableDeclarationStatement + +instance Data.Foldable.Foldable LocalVariableDeclarationStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LocalVariableDeclarationStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LocalVariableDeclarationStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MarkerAnnotation a = MarkerAnnotation + { ann :: a, + name :: (AST.Parse.Err ((Identifier GHC.Generics.:+: ScopedIdentifier) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_599. + AST.Traversable1.Class.Traversable1 a_599 + ) + +instance AST.Unmarshal.SymbolMatching MarkerAnnotation where + matchedSymbols _ = [179] + showFailure _ node_600 = + "expected " + GHC.Base.<> ( "marker_annotation" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_600 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_600) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_601 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_602 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_603 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_604 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_601 + c1_602 = TreeSitter.Node.nodeStartPoint node_600 + TreeSitter.Node.TSPoint + r2_603 + c2_604 = TreeSitter.Node.nodeEndPoint node_600 + +deriving instance GHC.Classes.Eq a_605 => GHC.Classes.Eq (MarkerAnnotation a_605) + +deriving instance GHC.Classes.Ord a_606 => GHC.Classes.Ord (MarkerAnnotation a_606) + +deriving instance GHC.Show.Show a_607 => GHC.Show.Show (MarkerAnnotation a_607) + +instance AST.Unmarshal.Unmarshal MarkerAnnotation + +instance Data.Foldable.Foldable MarkerAnnotation where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MarkerAnnotation where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MarkerAnnotation where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MethodDeclaration a = MethodDeclaration + { ann :: a, + body :: (GHC.Maybe.Maybe (AST.Parse.Err (Block a))), + name :: (AST.Parse.Err (Identifier a)), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + type' :: (AST.Parse.Err (UnannotatedType a)), + dimensions :: (GHC.Maybe.Maybe (AST.Parse.Err (Dimensions a))), + extraChildren :: ([AST.Parse.Err ((Annotation GHC.Generics.:+: MarkerAnnotation GHC.Generics.:+: Modifiers GHC.Generics.:+: Throws) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_608. + AST.Traversable1.Class.Traversable1 a_608 + ) + +instance AST.Unmarshal.SymbolMatching MethodDeclaration where + matchedSymbols _ = [242] + showFailure _ node_609 = + "expected " + GHC.Base.<> ( "method_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_609 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_609) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_610 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_611 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_612 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_613 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_610 + c1_611 = TreeSitter.Node.nodeStartPoint node_609 + TreeSitter.Node.TSPoint + r2_612 + c2_613 = TreeSitter.Node.nodeEndPoint node_609 + +deriving instance GHC.Classes.Eq a_614 => GHC.Classes.Eq (MethodDeclaration a_614) + +deriving instance GHC.Classes.Ord a_615 => GHC.Classes.Ord (MethodDeclaration a_615) + +deriving instance GHC.Show.Show a_616 => GHC.Show.Show (MethodDeclaration a_616) + +instance AST.Unmarshal.Unmarshal MethodDeclaration + +instance Data.Foldable.Foldable MethodDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MethodDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MethodDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MethodInvocation a = MethodInvocation + { ann :: a, + arguments :: (AST.Parse.Err (ArgumentList a)), + name :: (AST.Parse.Err (Identifier a)), + typeArguments :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeArguments a))), + object :: (GHC.Maybe.Maybe (AST.Parse.Err ((Primary GHC.Generics.:+: Identifier GHC.Generics.:+: ScopedIdentifier GHC.Generics.:+: Super) a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Super a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_617. + AST.Traversable1.Class.Traversable1 a_617 + ) + +instance AST.Unmarshal.SymbolMatching MethodInvocation where + matchedSymbols _ = [144] + showFailure _ node_618 = + "expected " + GHC.Base.<> ( "method_invocation" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_618 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_618) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_619 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_620 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_621 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_622 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_619 + c1_620 = TreeSitter.Node.nodeStartPoint node_618 + TreeSitter.Node.TSPoint + r2_621 + c2_622 = TreeSitter.Node.nodeEndPoint node_618 + +deriving instance GHC.Classes.Eq a_623 => GHC.Classes.Eq (MethodInvocation a_623) + +deriving instance GHC.Classes.Ord a_624 => GHC.Classes.Ord (MethodInvocation a_624) + +deriving instance GHC.Show.Show a_625 => GHC.Show.Show (MethodInvocation a_625) + +instance AST.Unmarshal.Unmarshal MethodInvocation + +instance Data.Foldable.Foldable MethodInvocation where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MethodInvocation where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MethodInvocation where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MethodReference a = MethodReference + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Primary GHC.Generics.:+: Type GHC.Generics.:+: Identifier GHC.Generics.:+: ScopedIdentifier GHC.Generics.:+: Super GHC.Generics.:+: TypeArguments) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_626. + AST.Traversable1.Class.Traversable1 a_626 + ) + +instance AST.Unmarshal.SymbolMatching MethodReference where + matchedSymbols _ = [146] + showFailure _ node_627 = + "expected " + GHC.Base.<> ( "method_reference" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_627 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_627) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_628 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_629 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_630 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_631 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_628 + c1_629 = TreeSitter.Node.nodeStartPoint node_627 + TreeSitter.Node.TSPoint + r2_630 + c2_631 = TreeSitter.Node.nodeEndPoint node_627 + +deriving instance GHC.Classes.Eq a_632 => GHC.Classes.Eq (MethodReference a_632) + +deriving instance GHC.Classes.Ord a_633 => GHC.Classes.Ord (MethodReference a_633) + +deriving instance GHC.Show.Show a_634 => GHC.Show.Show (MethodReference a_634) + +instance AST.Unmarshal.Unmarshal MethodReference + +instance Data.Foldable.Foldable MethodReference where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MethodReference where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MethodReference where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Modifiers a = Modifiers + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Annotation GHC.Generics.:+: MarkerAnnotation) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_635. + AST.Traversable1.Class.Traversable1 a_635 + ) + +instance AST.Unmarshal.SymbolMatching Modifiers where + matchedSymbols _ = [198] + showFailure _ node_636 = + "expected " + GHC.Base.<> ( "modifiers" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_636 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_636) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_637 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_638 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_639 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_640 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_637 + c1_638 = TreeSitter.Node.nodeStartPoint node_636 + TreeSitter.Node.TSPoint + r2_639 + c2_640 = TreeSitter.Node.nodeEndPoint node_636 + +deriving instance GHC.Classes.Eq a_641 => GHC.Classes.Eq (Modifiers a_641) + +deriving instance GHC.Classes.Ord a_642 => GHC.Classes.Ord (Modifiers a_642) + +deriving instance GHC.Show.Show a_643 => GHC.Show.Show (Modifiers a_643) + +instance AST.Unmarshal.Unmarshal Modifiers + +instance Data.Foldable.Foldable Modifiers where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Modifiers where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Modifiers where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ModuleDeclaration a = ModuleDeclaration + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Annotation GHC.Generics.:+: Identifier GHC.Generics.:+: MarkerAnnotation GHC.Generics.:+: ModuleDirective GHC.Generics.:+: ScopedIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_644. + AST.Traversable1.Class.Traversable1 a_644 + ) + +instance AST.Unmarshal.SymbolMatching ModuleDeclaration where + matchedSymbols _ = [186] + showFailure _ node_645 = + "expected " + GHC.Base.<> ( "module_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_645 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_645) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_646 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_647 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_648 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_649 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_646 + c1_647 = TreeSitter.Node.nodeStartPoint node_645 + TreeSitter.Node.TSPoint + r2_648 + c2_649 = TreeSitter.Node.nodeEndPoint node_645 + +deriving instance GHC.Classes.Eq a_650 => GHC.Classes.Eq (ModuleDeclaration a_650) + +deriving instance GHC.Classes.Ord a_651 => GHC.Classes.Ord (ModuleDeclaration a_651) + +deriving instance GHC.Show.Show a_652 => GHC.Show.Show (ModuleDeclaration a_652) + +instance AST.Unmarshal.Unmarshal ModuleDeclaration + +instance Data.Foldable.Foldable ModuleDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ModuleDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ModuleDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ModuleDirective a = ModuleDirective + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Identifier GHC.Generics.:+: ModuleName GHC.Generics.:+: RequiresModifier GHC.Generics.:+: ScopedIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_653. + AST.Traversable1.Class.Traversable1 a_653 + ) + +instance AST.Unmarshal.SymbolMatching ModuleDirective where + matchedSymbols _ = [187] + showFailure _ node_654 = + "expected " + GHC.Base.<> ( "module_directive" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_654 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_654) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_655 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_656 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_657 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_658 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_655 + c1_656 = TreeSitter.Node.nodeStartPoint node_654 + TreeSitter.Node.TSPoint + r2_657 + c2_658 = TreeSitter.Node.nodeEndPoint node_654 + +deriving instance GHC.Classes.Eq a_659 => GHC.Classes.Eq (ModuleDirective a_659) + +deriving instance GHC.Classes.Ord a_660 => GHC.Classes.Ord (ModuleDirective a_660) + +deriving instance GHC.Show.Show a_661 => GHC.Show.Show (ModuleDirective a_661) + +instance AST.Unmarshal.Unmarshal ModuleDirective + +instance Data.Foldable.Foldable ModuleDirective where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ModuleDirective where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ModuleDirective where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ModuleName a = ModuleName + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Identifier GHC.Generics.:+: ModuleName) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_662. + AST.Traversable1.Class.Traversable1 a_662 + ) + +instance AST.Unmarshal.SymbolMatching ModuleName where + matchedSymbols _ = [189] + showFailure _ node_663 = + "expected " + GHC.Base.<> ( "module_name" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_663 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_663) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_664 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_665 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_666 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_667 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_664 + c1_665 = TreeSitter.Node.nodeStartPoint node_663 + TreeSitter.Node.TSPoint + r2_666 + c2_667 = TreeSitter.Node.nodeEndPoint node_663 + +deriving instance GHC.Classes.Eq a_668 => GHC.Classes.Eq (ModuleName a_668) + +deriving instance GHC.Classes.Ord a_669 => GHC.Classes.Ord (ModuleName a_669) + +deriving instance GHC.Show.Show a_670 => GHC.Show.Show (ModuleName a_670) + +instance AST.Unmarshal.Unmarshal ModuleName + +instance Data.Foldable.Foldable ModuleName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ModuleName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ModuleName where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ObjectCreationExpression a = ObjectCreationExpression + { ann :: a, + arguments :: (AST.Parse.Err (ArgumentList a)), + typeArguments :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeArguments a))), + type' :: (AST.Parse.Err (SimpleType a)), + extraChildren :: ([AST.Parse.Err ((Primary GHC.Generics.:+: ClassBody GHC.Generics.:+: Identifier GHC.Generics.:+: ScopedIdentifier) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_671. + AST.Traversable1.Class.Traversable1 a_671 + ) + +instance AST.Unmarshal.SymbolMatching ObjectCreationExpression where + matchedSymbols _ = [140] + showFailure _ node_672 = + "expected " + GHC.Base.<> ( "object_creation_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_672 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_672) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_673 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_674 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_675 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_676 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_673 + c1_674 = TreeSitter.Node.nodeStartPoint node_672 + TreeSitter.Node.TSPoint + r2_675 + c2_676 = TreeSitter.Node.nodeEndPoint node_672 + +deriving instance GHC.Classes.Eq a_677 => GHC.Classes.Eq (ObjectCreationExpression a_677) + +deriving instance GHC.Classes.Ord a_678 => GHC.Classes.Ord (ObjectCreationExpression a_678) + +deriving instance GHC.Show.Show a_679 => GHC.Show.Show (ObjectCreationExpression a_679) + +instance AST.Unmarshal.Unmarshal ObjectCreationExpression + +instance Data.Foldable.Foldable ObjectCreationExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ObjectCreationExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ObjectCreationExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PackageDeclaration a = PackageDeclaration + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Annotation GHC.Generics.:+: Identifier GHC.Generics.:+: MarkerAnnotation GHC.Generics.:+: ScopedIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_680. + AST.Traversable1.Class.Traversable1 a_680 + ) + +instance AST.Unmarshal.SymbolMatching PackageDeclaration where + matchedSymbols _ = [190] + showFailure _ node_681 = + "expected " + GHC.Base.<> ( "package_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_681 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_681) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_682 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_683 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_684 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_685 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_682 + c1_683 = TreeSitter.Node.nodeStartPoint node_681 + TreeSitter.Node.TSPoint + r2_684 + c2_685 = TreeSitter.Node.nodeEndPoint node_681 + +deriving instance GHC.Classes.Eq a_686 => GHC.Classes.Eq (PackageDeclaration a_686) + +deriving instance GHC.Classes.Ord a_687 => GHC.Classes.Ord (PackageDeclaration a_687) + +deriving instance GHC.Show.Show a_688 => GHC.Show.Show (PackageDeclaration a_688) + +instance AST.Unmarshal.Unmarshal PackageDeclaration + +instance Data.Foldable.Foldable PackageDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PackageDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PackageDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ParenthesizedExpression a = ParenthesizedExpression + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_689. + AST.Traversable1.Class.Traversable1 a_689 + ) + +instance AST.Unmarshal.SymbolMatching ParenthesizedExpression where + matchedSymbols _ = [138] + showFailure _ node_690 = + "expected " + GHC.Base.<> ( "parenthesized_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_690 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_690) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_691 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_692 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_693 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_694 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_691 + c1_692 = TreeSitter.Node.nodeStartPoint node_690 + TreeSitter.Node.TSPoint + r2_693 + c2_694 = TreeSitter.Node.nodeEndPoint node_690 + +deriving instance GHC.Classes.Eq a_695 => GHC.Classes.Eq (ParenthesizedExpression a_695) + +deriving instance GHC.Classes.Ord a_696 => GHC.Classes.Ord (ParenthesizedExpression a_696) + +deriving instance GHC.Show.Show a_697 => GHC.Show.Show (ParenthesizedExpression a_697) + +instance AST.Unmarshal.Unmarshal ParenthesizedExpression + +instance Data.Foldable.Foldable ParenthesizedExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ParenthesizedExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ParenthesizedExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Program a = Program + { ann :: a, + extraChildren :: ([AST.Parse.Err (Statement a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_698. + AST.Traversable1.Class.Traversable1 a_698 + ) + +instance AST.Unmarshal.SymbolMatching Program where + matchedSymbols _ = [123] + showFailure _ node_699 = + "expected " + GHC.Base.<> ( "program" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_699 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_699) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_700 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_701 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_702 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_703 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_700 + c1_701 = TreeSitter.Node.nodeStartPoint node_699 + TreeSitter.Node.TSPoint + r2_702 + c2_703 = TreeSitter.Node.nodeEndPoint node_699 + +deriving instance GHC.Classes.Eq a_704 => GHC.Classes.Eq (Program a_704) + +deriving instance GHC.Classes.Ord a_705 => GHC.Classes.Ord (Program a_705) + +deriving instance GHC.Show.Show a_706 => GHC.Show.Show (Program a_706) + +instance AST.Unmarshal.Unmarshal Program + +instance Data.Foldable.Foldable Program where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Program where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Program where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ReceiverParameter a = ReceiverParameter + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((UnannotatedType GHC.Generics.:+: Annotation GHC.Generics.:+: Identifier GHC.Generics.:+: MarkerAnnotation GHC.Generics.:+: This) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_707. + AST.Traversable1.Class.Traversable1 a_707 + ) + +instance AST.Unmarshal.SymbolMatching ReceiverParameter where + matchedSymbols _ = [237] + showFailure _ node_708 = + "expected " + GHC.Base.<> ( "receiver_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_708 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_708) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_709 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_710 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_711 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_712 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_709 + c1_710 = TreeSitter.Node.nodeStartPoint node_708 + TreeSitter.Node.TSPoint + r2_711 + c2_712 = TreeSitter.Node.nodeEndPoint node_708 + +deriving instance GHC.Classes.Eq a_713 => GHC.Classes.Eq (ReceiverParameter a_713) + +deriving instance GHC.Classes.Ord a_714 => GHC.Classes.Ord (ReceiverParameter a_714) + +deriving instance GHC.Show.Show a_715 => GHC.Show.Show (ReceiverParameter a_715) + +instance AST.Unmarshal.Unmarshal ReceiverParameter + +instance Data.Foldable.Foldable ReceiverParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ReceiverParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ReceiverParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RequiresModifier a = RequiresModifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_716. + AST.Traversable1.Class.Traversable1 a_716 + ) + +instance AST.Unmarshal.SymbolMatching RequiresModifier where + matchedSymbols _ = [188] + showFailure _ node_717 = + "expected " + GHC.Base.<> ( "requires_modifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_717 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_717) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_718 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_719 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_720 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_721 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_718 + c1_719 = TreeSitter.Node.nodeStartPoint node_717 + TreeSitter.Node.TSPoint + r2_720 + c2_721 = TreeSitter.Node.nodeEndPoint node_717 + +deriving instance GHC.Classes.Eq a_722 => GHC.Classes.Eq (RequiresModifier a_722) + +deriving instance GHC.Classes.Ord a_723 => GHC.Classes.Ord (RequiresModifier a_723) + +deriving instance GHC.Show.Show a_724 => GHC.Show.Show (RequiresModifier a_724) + +instance AST.Unmarshal.Unmarshal RequiresModifier + +instance Data.Foldable.Foldable RequiresModifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RequiresModifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RequiresModifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Resource a = Resource + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + name :: (GHC.Maybe.Maybe (AST.Parse.Err (Identifier a))), + type' :: (GHC.Maybe.Maybe (AST.Parse.Err (UnannotatedType a))), + dimensions :: (GHC.Maybe.Maybe (AST.Parse.Err (Dimensions a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err ((FieldAccess GHC.Generics.:+: Identifier GHC.Generics.:+: Modifiers GHC.Generics.:+: ScopedIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_725. + AST.Traversable1.Class.Traversable1 a_725 + ) + +instance AST.Unmarshal.SymbolMatching Resource where + matchedSymbols _ = [172] + showFailure _ node_726 = + "expected " + GHC.Base.<> ( "resource" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_726 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_726) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_727 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_728 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_729 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_730 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_727 + c1_728 = TreeSitter.Node.nodeStartPoint node_726 + TreeSitter.Node.TSPoint + r2_729 + c2_730 = TreeSitter.Node.nodeEndPoint node_726 + +deriving instance GHC.Classes.Eq a_731 => GHC.Classes.Eq (Resource a_731) + +deriving instance GHC.Classes.Ord a_732 => GHC.Classes.Ord (Resource a_732) + +deriving instance GHC.Show.Show a_733 => GHC.Show.Show (Resource a_733) + +instance AST.Unmarshal.Unmarshal Resource + +instance Data.Foldable.Foldable Resource where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Resource where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Resource where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ResourceSpecification a = ResourceSpecification + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Resource a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_734. + AST.Traversable1.Class.Traversable1 a_734 + ) + +instance AST.Unmarshal.SymbolMatching ResourceSpecification where + matchedSymbols _ = [171] + showFailure _ node_735 = + "expected " + GHC.Base.<> ( "resource_specification" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_735 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_735) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_736 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_737 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_738 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_739 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_736 + c1_737 = TreeSitter.Node.nodeStartPoint node_735 + TreeSitter.Node.TSPoint + r2_738 + c2_739 = TreeSitter.Node.nodeEndPoint node_735 + +deriving instance GHC.Classes.Eq a_740 => GHC.Classes.Eq (ResourceSpecification a_740) + +deriving instance GHC.Classes.Ord a_741 => GHC.Classes.Ord (ResourceSpecification a_741) + +deriving instance GHC.Show.Show a_742 => GHC.Show.Show (ResourceSpecification a_742) + +instance AST.Unmarshal.Unmarshal ResourceSpecification + +instance Data.Foldable.Foldable ResourceSpecification where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ResourceSpecification where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ResourceSpecification where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ReturnStatement a = ReturnStatement + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_743. + AST.Traversable1.Class.Traversable1 a_743 + ) + +instance AST.Unmarshal.SymbolMatching ReturnStatement where + matchedSymbols _ = [162] + showFailure _ node_744 = + "expected " + GHC.Base.<> ( "return_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_744 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_744) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_745 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_746 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_747 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_748 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_745 + c1_746 = TreeSitter.Node.nodeStartPoint node_744 + TreeSitter.Node.TSPoint + r2_747 + c2_748 = TreeSitter.Node.nodeEndPoint node_744 + +deriving instance GHC.Classes.Eq a_749 => GHC.Classes.Eq (ReturnStatement a_749) + +deriving instance GHC.Classes.Ord a_750 => GHC.Classes.Ord (ReturnStatement a_750) + +deriving instance GHC.Show.Show a_751 => GHC.Show.Show (ReturnStatement a_751) + +instance AST.Unmarshal.Unmarshal ReturnStatement + +instance Data.Foldable.Foldable ReturnStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ReturnStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ReturnStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ScopedIdentifier a = ScopedIdentifier + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Identifier GHC.Generics.:+: ScopedIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_752. + AST.Traversable1.Class.Traversable1 a_752 + ) + +instance AST.Unmarshal.SymbolMatching ScopedIdentifier where + matchedSymbols _ = [211] + showFailure _ node_753 = + "expected " + GHC.Base.<> ( "scoped_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_753 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_753) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_754 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_755 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_756 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_757 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_754 + c1_755 = TreeSitter.Node.nodeStartPoint node_753 + TreeSitter.Node.TSPoint + r2_756 + c2_757 = TreeSitter.Node.nodeEndPoint node_753 + +deriving instance GHC.Classes.Eq a_758 => GHC.Classes.Eq (ScopedIdentifier a_758) + +deriving instance GHC.Classes.Ord a_759 => GHC.Classes.Ord (ScopedIdentifier a_759) + +deriving instance GHC.Show.Show a_760 => GHC.Show.Show (ScopedIdentifier a_760) + +instance AST.Unmarshal.Unmarshal ScopedIdentifier + +instance Data.Foldable.Foldable ScopedIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ScopedIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ScopedIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ScopedTypeIdentifier a = ScopedTypeIdentifier + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Annotation GHC.Generics.:+: GenericType GHC.Generics.:+: MarkerAnnotation GHC.Generics.:+: ScopedTypeIdentifier GHC.Generics.:+: TypeIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_761. + AST.Traversable1.Class.Traversable1 a_761 + ) + +instance AST.Unmarshal.SymbolMatching ScopedTypeIdentifier where + matchedSymbols _ = [228] + showFailure _ node_762 = + "expected " + GHC.Base.<> ( "scoped_type_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_762 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_762) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_763 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_764 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_765 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_766 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_763 + c1_764 = TreeSitter.Node.nodeStartPoint node_762 + TreeSitter.Node.TSPoint + r2_765 + c2_766 = TreeSitter.Node.nodeEndPoint node_762 + +deriving instance GHC.Classes.Eq a_767 => GHC.Classes.Eq (ScopedTypeIdentifier a_767) + +deriving instance GHC.Classes.Ord a_768 => GHC.Classes.Ord (ScopedTypeIdentifier a_768) + +deriving instance GHC.Show.Show a_769 => GHC.Show.Show (ScopedTypeIdentifier a_769) + +instance AST.Unmarshal.Unmarshal ScopedTypeIdentifier + +instance Data.Foldable.Foldable ScopedTypeIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ScopedTypeIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ScopedTypeIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SpreadParameter a = SpreadParameter + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((UnannotatedType GHC.Generics.:+: Modifiers GHC.Generics.:+: VariableDeclarator) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_770. + AST.Traversable1.Class.Traversable1 a_770 + ) + +instance AST.Unmarshal.SymbolMatching SpreadParameter where + matchedSymbols _ = [238] + showFailure _ node_771 = + "expected " + GHC.Base.<> ( "spread_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_771 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_771) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_772 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_773 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_774 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_775 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_772 + c1_773 = TreeSitter.Node.nodeStartPoint node_771 + TreeSitter.Node.TSPoint + r2_774 + c2_775 = TreeSitter.Node.nodeEndPoint node_771 + +deriving instance GHC.Classes.Eq a_776 => GHC.Classes.Eq (SpreadParameter a_776) + +deriving instance GHC.Classes.Ord a_777 => GHC.Classes.Ord (SpreadParameter a_777) + +deriving instance GHC.Show.Show a_778 => GHC.Show.Show (SpreadParameter a_778) + +instance AST.Unmarshal.Unmarshal SpreadParameter + +instance Data.Foldable.Foldable SpreadParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SpreadParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SpreadParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data StaticInitializer a = StaticInitializer + { ann :: a, + extraChildren :: (AST.Parse.Err (Block a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_779. + AST.Traversable1.Class.Traversable1 a_779 + ) + +instance AST.Unmarshal.SymbolMatching StaticInitializer where + matchedSymbols _ = [206] + showFailure _ node_780 = + "expected " + GHC.Base.<> ( "static_initializer" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_780 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_780) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_781 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_782 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_783 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_784 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_781 + c1_782 = TreeSitter.Node.nodeStartPoint node_780 + TreeSitter.Node.TSPoint + r2_783 + c2_784 = TreeSitter.Node.nodeEndPoint node_780 + +deriving instance GHC.Classes.Eq a_785 => GHC.Classes.Eq (StaticInitializer a_785) + +deriving instance GHC.Classes.Ord a_786 => GHC.Classes.Ord (StaticInitializer a_786) + +deriving instance GHC.Show.Show a_787 => GHC.Show.Show (StaticInitializer a_787) + +instance AST.Unmarshal.Unmarshal StaticInitializer + +instance Data.Foldable.Foldable StaticInitializer where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor StaticInitializer where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable StaticInitializer where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SuperInterfaces a = SuperInterfaces + { ann :: a, + extraChildren :: (AST.Parse.Err (InterfaceTypeList a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_788. + AST.Traversable1.Class.Traversable1 a_788 + ) + +instance AST.Unmarshal.SymbolMatching SuperInterfaces where + matchedSymbols _ = [203] + showFailure _ node_789 = + "expected " + GHC.Base.<> ( "super_interfaces" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_789 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_789) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_790 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_791 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_792 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_793 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_790 + c1_791 = TreeSitter.Node.nodeStartPoint node_789 + TreeSitter.Node.TSPoint + r2_792 + c2_793 = TreeSitter.Node.nodeEndPoint node_789 + +deriving instance GHC.Classes.Eq a_794 => GHC.Classes.Eq (SuperInterfaces a_794) + +deriving instance GHC.Classes.Ord a_795 => GHC.Classes.Ord (SuperInterfaces a_795) + +deriving instance GHC.Show.Show a_796 => GHC.Show.Show (SuperInterfaces a_796) + +instance AST.Unmarshal.Unmarshal SuperInterfaces + +instance Data.Foldable.Foldable SuperInterfaces where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SuperInterfaces where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SuperInterfaces where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Superclass a = Superclass {ann :: a, extraChildren :: (AST.Parse.Err (Type a))} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_797. + AST.Traversable1.Class.Traversable1 a_797 + ) + +instance AST.Unmarshal.SymbolMatching Superclass where + matchedSymbols _ = [202] + showFailure _ node_798 = + "expected " + GHC.Base.<> ( "superclass" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_798 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_798) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_799 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_800 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_801 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_802 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_799 + c1_800 = TreeSitter.Node.nodeStartPoint node_798 + TreeSitter.Node.TSPoint + r2_801 + c2_802 = TreeSitter.Node.nodeEndPoint node_798 + +deriving instance GHC.Classes.Eq a_803 => GHC.Classes.Eq (Superclass a_803) + +deriving instance GHC.Classes.Ord a_804 => GHC.Classes.Ord (Superclass a_804) + +deriving instance GHC.Show.Show a_805 => GHC.Show.Show (Superclass a_805) + +instance AST.Unmarshal.Unmarshal Superclass + +instance Data.Foldable.Foldable Superclass where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Superclass where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Superclass where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SwitchBlock a = SwitchBlock + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: SwitchLabel) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_806. + AST.Traversable1.Class.Traversable1 a_806 + ) + +instance AST.Unmarshal.SymbolMatching SwitchBlock where + matchedSymbols _ = [157] + showFailure _ node_807 = + "expected " + GHC.Base.<> ( "switch_block" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_807 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_807) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_808 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_809 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_810 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_811 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_808 + c1_809 = TreeSitter.Node.nodeStartPoint node_807 + TreeSitter.Node.TSPoint + r2_810 + c2_811 = TreeSitter.Node.nodeEndPoint node_807 + +deriving instance GHC.Classes.Eq a_812 => GHC.Classes.Eq (SwitchBlock a_812) + +deriving instance GHC.Classes.Ord a_813 => GHC.Classes.Ord (SwitchBlock a_813) + +deriving instance GHC.Show.Show a_814 => GHC.Show.Show (SwitchBlock a_814) + +instance AST.Unmarshal.Unmarshal SwitchBlock + +instance Data.Foldable.Foldable SwitchBlock where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SwitchBlock where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SwitchBlock where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SwitchLabel a = SwitchLabel + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_815. + AST.Traversable1.Class.Traversable1 a_815 + ) + +instance AST.Unmarshal.SymbolMatching SwitchLabel where + matchedSymbols _ = [158] + showFailure _ node_816 = + "expected " + GHC.Base.<> ( "switch_label" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_816 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_816) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_817 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_818 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_819 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_820 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_817 + c1_818 = TreeSitter.Node.nodeStartPoint node_816 + TreeSitter.Node.TSPoint + r2_819 + c2_820 = TreeSitter.Node.nodeEndPoint node_816 + +deriving instance GHC.Classes.Eq a_821 => GHC.Classes.Eq (SwitchLabel a_821) + +deriving instance GHC.Classes.Ord a_822 => GHC.Classes.Ord (SwitchLabel a_822) + +deriving instance GHC.Show.Show a_823 => GHC.Show.Show (SwitchLabel a_823) + +instance AST.Unmarshal.Unmarshal SwitchLabel + +instance Data.Foldable.Foldable SwitchLabel where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SwitchLabel where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SwitchLabel where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SwitchStatement a = SwitchStatement + { ann :: a, + body :: (AST.Parse.Err (SwitchBlock a)), + condition :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_824. + AST.Traversable1.Class.Traversable1 a_824 + ) + +instance AST.Unmarshal.SymbolMatching SwitchStatement where + matchedSymbols _ = [156] + showFailure _ node_825 = + "expected " + GHC.Base.<> ( "switch_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_825 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_825) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_826 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_827 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_828 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_829 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_826 + c1_827 = TreeSitter.Node.nodeStartPoint node_825 + TreeSitter.Node.TSPoint + r2_828 + c2_829 = TreeSitter.Node.nodeEndPoint node_825 + +deriving instance GHC.Classes.Eq a_830 => GHC.Classes.Eq (SwitchStatement a_830) + +deriving instance GHC.Classes.Ord a_831 => GHC.Classes.Ord (SwitchStatement a_831) + +deriving instance GHC.Show.Show a_832 => GHC.Show.Show (SwitchStatement a_832) + +instance AST.Unmarshal.Unmarshal SwitchStatement + +instance Data.Foldable.Foldable SwitchStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SwitchStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SwitchStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SynchronizedStatement a = SynchronizedStatement + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: Block) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_833. + AST.Traversable1.Class.Traversable1 a_833 + ) + +instance AST.Unmarshal.SymbolMatching SynchronizedStatement where + matchedSymbols _ = [163] + showFailure _ node_834 = + "expected " + GHC.Base.<> ( "synchronized_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_834 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_834) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_835 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_836 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_837 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_838 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_835 + c1_836 = TreeSitter.Node.nodeStartPoint node_834 + TreeSitter.Node.TSPoint + r2_837 + c2_838 = TreeSitter.Node.nodeEndPoint node_834 + +deriving instance GHC.Classes.Eq a_839 => GHC.Classes.Eq (SynchronizedStatement a_839) + +deriving instance GHC.Classes.Ord a_840 => GHC.Classes.Ord (SynchronizedStatement a_840) + +deriving instance GHC.Show.Show a_841 => GHC.Show.Show (SynchronizedStatement a_841) + +instance AST.Unmarshal.Unmarshal SynchronizedStatement + +instance Data.Foldable.Foldable SynchronizedStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SynchronizedStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SynchronizedStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TernaryExpression a = TernaryExpression + { ann :: a, + alternative :: (AST.Parse.Err (Expression a)), + consequence :: (AST.Parse.Err (Expression a)), + condition :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_842. + AST.Traversable1.Class.Traversable1 a_842 + ) + +instance AST.Unmarshal.SymbolMatching TernaryExpression where + matchedSymbols _ = [132] + showFailure _ node_843 = + "expected " + GHC.Base.<> ( "ternary_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_843 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_843) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_844 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_845 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_846 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_847 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_844 + c1_845 = TreeSitter.Node.nodeStartPoint node_843 + TreeSitter.Node.TSPoint + r2_846 + c2_847 = TreeSitter.Node.nodeEndPoint node_843 + +deriving instance GHC.Classes.Eq a_848 => GHC.Classes.Eq (TernaryExpression a_848) + +deriving instance GHC.Classes.Ord a_849 => GHC.Classes.Ord (TernaryExpression a_849) + +deriving instance GHC.Show.Show a_850 => GHC.Show.Show (TernaryExpression a_850) + +instance AST.Unmarshal.Unmarshal TernaryExpression + +instance Data.Foldable.Foldable TernaryExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TernaryExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TernaryExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ThrowStatement a = ThrowStatement + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_851. + AST.Traversable1.Class.Traversable1 a_851 + ) + +instance AST.Unmarshal.SymbolMatching ThrowStatement where + matchedSymbols _ = [164] + showFailure _ node_852 = + "expected " + GHC.Base.<> ( "throw_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_852 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_852) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_853 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_854 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_855 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_856 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_853 + c1_854 = TreeSitter.Node.nodeStartPoint node_852 + TreeSitter.Node.TSPoint + r2_855 + c2_856 = TreeSitter.Node.nodeEndPoint node_852 + +deriving instance GHC.Classes.Eq a_857 => GHC.Classes.Eq (ThrowStatement a_857) + +deriving instance GHC.Classes.Ord a_858 => GHC.Classes.Ord (ThrowStatement a_858) + +deriving instance GHC.Show.Show a_859 => GHC.Show.Show (ThrowStatement a_859) + +instance AST.Unmarshal.Unmarshal ThrowStatement + +instance Data.Foldable.Foldable ThrowStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ThrowStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ThrowStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Throws a = Throws + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Type a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_860. + AST.Traversable1.Class.Traversable1 a_860 + ) + +instance AST.Unmarshal.SymbolMatching Throws where + matchedSymbols _ = [239] + showFailure _ node_861 = + "expected " + GHC.Base.<> ( "throws" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_861 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_861) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_862 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_863 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_864 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_865 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_862 + c1_863 = TreeSitter.Node.nodeStartPoint node_861 + TreeSitter.Node.TSPoint + r2_864 + c2_865 = TreeSitter.Node.nodeEndPoint node_861 + +deriving instance GHC.Classes.Eq a_866 => GHC.Classes.Eq (Throws a_866) + +deriving instance GHC.Classes.Ord a_867 => GHC.Classes.Ord (Throws a_867) + +deriving instance GHC.Show.Show a_868 => GHC.Show.Show (Throws a_868) + +instance AST.Unmarshal.Unmarshal Throws + +instance Data.Foldable.Foldable Throws where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Throws where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Throws where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TryStatement a = TryStatement + { ann :: a, + body :: (AST.Parse.Err (Block a)), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((CatchClause GHC.Generics.:+: FinallyClause) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_869. + AST.Traversable1.Class.Traversable1 a_869 + ) + +instance AST.Unmarshal.SymbolMatching TryStatement where + matchedSymbols _ = [165] + showFailure _ node_870 = + "expected " + GHC.Base.<> ( "try_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_870 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_870) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_871 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_872 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_873 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_874 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_871 + c1_872 = TreeSitter.Node.nodeStartPoint node_870 + TreeSitter.Node.TSPoint + r2_873 + c2_874 = TreeSitter.Node.nodeEndPoint node_870 + +deriving instance GHC.Classes.Eq a_875 => GHC.Classes.Eq (TryStatement a_875) + +deriving instance GHC.Classes.Ord a_876 => GHC.Classes.Ord (TryStatement a_876) + +deriving instance GHC.Show.Show a_877 => GHC.Show.Show (TryStatement a_877) + +instance AST.Unmarshal.Unmarshal TryStatement + +instance Data.Foldable.Foldable TryStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TryStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TryStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TryWithResourcesStatement a = TryWithResourcesStatement + { ann :: a, + body :: (AST.Parse.Err (Block a)), + resources :: (AST.Parse.Err (ResourceSpecification a)), + extraChildren :: ([AST.Parse.Err ((CatchClause GHC.Generics.:+: FinallyClause) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_878. + AST.Traversable1.Class.Traversable1 a_878 + ) + +instance AST.Unmarshal.SymbolMatching TryWithResourcesStatement where + matchedSymbols _ = [170] + showFailure _ node_879 = + "expected " + GHC.Base.<> ( "try_with_resources_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_879 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_879) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_880 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_881 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_882 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_883 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_880 + c1_881 = TreeSitter.Node.nodeStartPoint node_879 + TreeSitter.Node.TSPoint + r2_882 + c2_883 = TreeSitter.Node.nodeEndPoint node_879 + +deriving instance GHC.Classes.Eq a_884 => GHC.Classes.Eq (TryWithResourcesStatement a_884) + +deriving instance GHC.Classes.Ord a_885 => GHC.Classes.Ord (TryWithResourcesStatement a_885) + +deriving instance GHC.Show.Show a_886 => GHC.Show.Show (TryWithResourcesStatement a_886) + +instance AST.Unmarshal.Unmarshal TryWithResourcesStatement + +instance Data.Foldable.Foldable TryWithResourcesStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TryWithResourcesStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TryWithResourcesStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeArguments a = TypeArguments + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Type GHC.Generics.:+: Wildcard) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_887. + AST.Traversable1.Class.Traversable1 a_887 + ) + +instance AST.Unmarshal.SymbolMatching TypeArguments where + matchedSymbols _ = [147] + showFailure _ node_888 = + "expected " + GHC.Base.<> ( "type_arguments" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_888 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_888) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_889 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_890 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_891 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_892 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_889 + c1_890 = TreeSitter.Node.nodeStartPoint node_888 + TreeSitter.Node.TSPoint + r2_891 + c2_892 = TreeSitter.Node.nodeEndPoint node_888 + +deriving instance GHC.Classes.Eq a_893 => GHC.Classes.Eq (TypeArguments a_893) + +deriving instance GHC.Classes.Ord a_894 => GHC.Classes.Ord (TypeArguments a_894) + +deriving instance GHC.Show.Show a_895 => GHC.Show.Show (TypeArguments a_895) + +instance AST.Unmarshal.Unmarshal TypeArguments + +instance Data.Foldable.Foldable TypeArguments where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeArguments where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeArguments where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeBound a = TypeBound + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Type a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_896. + AST.Traversable1.Class.Traversable1 a_896 + ) + +instance AST.Unmarshal.SymbolMatching TypeBound where + matchedSymbols _ = [201] + showFailure _ node_897 = + "expected " + GHC.Base.<> ( "type_bound" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_897 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_897) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_898 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_899 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_900 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_901 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_898 + c1_899 = TreeSitter.Node.nodeStartPoint node_897 + TreeSitter.Node.TSPoint + r2_900 + c2_901 = TreeSitter.Node.nodeEndPoint node_897 + +deriving instance GHC.Classes.Eq a_902 => GHC.Classes.Eq (TypeBound a_902) + +deriving instance GHC.Classes.Ord a_903 => GHC.Classes.Ord (TypeBound a_903) + +deriving instance GHC.Show.Show a_904 => GHC.Show.Show (TypeBound a_904) + +instance AST.Unmarshal.Unmarshal TypeBound + +instance Data.Foldable.Foldable TypeBound where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeBound where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeBound where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeParameter a = TypeParameter + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Annotation GHC.Generics.:+: Identifier GHC.Generics.:+: MarkerAnnotation GHC.Generics.:+: TypeBound) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_905. + AST.Traversable1.Class.Traversable1 a_905 + ) + +instance AST.Unmarshal.SymbolMatching TypeParameter where + matchedSymbols _ = [200] + showFailure _ node_906 = + "expected " + GHC.Base.<> ( "type_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_906 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_906) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_907 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_908 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_909 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_910 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_907 + c1_908 = TreeSitter.Node.nodeStartPoint node_906 + TreeSitter.Node.TSPoint + r2_909 + c2_910 = TreeSitter.Node.nodeEndPoint node_906 + +deriving instance GHC.Classes.Eq a_911 => GHC.Classes.Eq (TypeParameter a_911) + +deriving instance GHC.Classes.Ord a_912 => GHC.Classes.Ord (TypeParameter a_912) + +deriving instance GHC.Show.Show a_913 => GHC.Show.Show (TypeParameter a_913) + +instance AST.Unmarshal.Unmarshal TypeParameter + +instance Data.Foldable.Foldable TypeParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeParameters a = TypeParameters + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (TypeParameter a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_914. + AST.Traversable1.Class.Traversable1 a_914 + ) + +instance AST.Unmarshal.SymbolMatching TypeParameters where + matchedSymbols _ = [199] + showFailure _ node_915 = + "expected " + GHC.Base.<> ( "type_parameters" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_915 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_915) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_916 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_917 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_918 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_919 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_916 + c1_917 = TreeSitter.Node.nodeStartPoint node_915 + TreeSitter.Node.TSPoint + r2_918 + c2_919 = TreeSitter.Node.nodeEndPoint node_915 + +deriving instance GHC.Classes.Eq a_920 => GHC.Classes.Eq (TypeParameters a_920) + +deriving instance GHC.Classes.Ord a_921 => GHC.Classes.Ord (TypeParameters a_921) + +deriving instance GHC.Show.Show a_922 => GHC.Show.Show (TypeParameters a_922) + +instance AST.Unmarshal.Unmarshal TypeParameters + +instance Data.Foldable.Foldable TypeParameters where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeParameters where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeParameters where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UnaryExpression a = UnaryExpression + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousBang GHC.Generics.:+: AnonymousPlus GHC.Generics.:+: AnonymousMinus GHC.Generics.:+: AnonymousTilde) a)), + operand :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_923. + AST.Traversable1.Class.Traversable1 a_923 + ) + +instance AST.Unmarshal.SymbolMatching UnaryExpression where + matchedSymbols _ = [133] + showFailure _ node_924 = + "expected " + GHC.Base.<> ( "unary_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_924 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_924) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_925 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_926 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_927 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_928 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_925 + c1_926 = TreeSitter.Node.nodeStartPoint node_924 + TreeSitter.Node.TSPoint + r2_927 + c2_928 = TreeSitter.Node.nodeEndPoint node_924 + +deriving instance GHC.Classes.Eq a_929 => GHC.Classes.Eq (UnaryExpression a_929) + +deriving instance GHC.Classes.Ord a_930 => GHC.Classes.Ord (UnaryExpression a_930) + +deriving instance GHC.Show.Show a_931 => GHC.Show.Show (UnaryExpression a_931) + +instance AST.Unmarshal.Unmarshal UnaryExpression + +instance Data.Foldable.Foldable UnaryExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UnaryExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UnaryExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UpdateExpression a = UpdateExpression + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_932. + AST.Traversable1.Class.Traversable1 a_932 + ) + +instance AST.Unmarshal.SymbolMatching UpdateExpression where + matchedSymbols _ = [134] + showFailure _ node_933 = + "expected " + GHC.Base.<> ( "update_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_933 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_933) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_934 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_935 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_936 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_937 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_934 + c1_935 = TreeSitter.Node.nodeStartPoint node_933 + TreeSitter.Node.TSPoint + r2_936 + c2_937 = TreeSitter.Node.nodeEndPoint node_933 + +deriving instance GHC.Classes.Eq a_938 => GHC.Classes.Eq (UpdateExpression a_938) + +deriving instance GHC.Classes.Ord a_939 => GHC.Classes.Ord (UpdateExpression a_939) + +deriving instance GHC.Show.Show a_940 => GHC.Show.Show (UpdateExpression a_940) + +instance AST.Unmarshal.Unmarshal UpdateExpression + +instance Data.Foldable.Foldable UpdateExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UpdateExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UpdateExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data VariableDeclarator a = VariableDeclarator + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err ((Expression GHC.Generics.:+: ArrayInitializer) a))), + name :: (AST.Parse.Err (Identifier a)), + dimensions :: (GHC.Maybe.Maybe (AST.Parse.Err (Dimensions a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_941. + AST.Traversable1.Class.Traversable1 a_941 + ) + +instance AST.Unmarshal.SymbolMatching VariableDeclarator where + matchedSymbols _ = [222] + showFailure _ node_942 = + "expected " + GHC.Base.<> ( "variable_declarator" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_942 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_942) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_943 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_944 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_945 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_946 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_943 + c1_944 = TreeSitter.Node.nodeStartPoint node_942 + TreeSitter.Node.TSPoint + r2_945 + c2_946 = TreeSitter.Node.nodeEndPoint node_942 + +deriving instance GHC.Classes.Eq a_947 => GHC.Classes.Eq (VariableDeclarator a_947) + +deriving instance GHC.Classes.Ord a_948 => GHC.Classes.Ord (VariableDeclarator a_948) + +deriving instance GHC.Show.Show a_949 => GHC.Show.Show (VariableDeclarator a_949) + +instance AST.Unmarshal.Unmarshal VariableDeclarator + +instance Data.Foldable.Foldable VariableDeclarator where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor VariableDeclarator where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable VariableDeclarator where + traverse = AST.Traversable1.Class.traverseDefault1 + +data WhileStatement a = WhileStatement + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + condition :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_950. + AST.Traversable1.Class.Traversable1 a_950 + ) + +instance AST.Unmarshal.SymbolMatching WhileStatement where + matchedSymbols _ = [174] + showFailure _ node_951 = + "expected " + GHC.Base.<> ( "while_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_951 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_951) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_952 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_953 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_954 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_955 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_952 + c1_953 = TreeSitter.Node.nodeStartPoint node_951 + TreeSitter.Node.TSPoint + r2_954 + c2_955 = TreeSitter.Node.nodeEndPoint node_951 + +deriving instance GHC.Classes.Eq a_956 => GHC.Classes.Eq (WhileStatement a_956) + +deriving instance GHC.Classes.Ord a_957 => GHC.Classes.Ord (WhileStatement a_957) + +deriving instance GHC.Show.Show a_958 => GHC.Show.Show (WhileStatement a_958) + +instance AST.Unmarshal.Unmarshal WhileStatement + +instance Data.Foldable.Foldable WhileStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor WhileStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable WhileStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Wildcard a = Wildcard + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Type GHC.Generics.:+: Annotation GHC.Generics.:+: MarkerAnnotation GHC.Generics.:+: Super) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_959. + AST.Traversable1.Class.Traversable1 a_959 + ) + +instance AST.Unmarshal.SymbolMatching Wildcard where + matchedSymbols _ = [148] + showFailure _ node_960 = + "expected " + GHC.Base.<> ( "wildcard" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_960 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_960) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_961 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_962 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_963 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_964 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_961 + c1_962 = TreeSitter.Node.nodeStartPoint node_960 + TreeSitter.Node.TSPoint + r2_963 + c2_964 = TreeSitter.Node.nodeEndPoint node_960 + +deriving instance GHC.Classes.Eq a_965 => GHC.Classes.Eq (Wildcard a_965) + +deriving instance GHC.Classes.Ord a_966 => GHC.Classes.Ord (Wildcard a_966) + +deriving instance GHC.Show.Show a_967 => GHC.Show.Show (Wildcard a_967) + +instance AST.Unmarshal.Unmarshal Wildcard + +instance Data.Foldable.Foldable Wildcard where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Wildcard where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Wildcard where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousBang = AST.Token.Token "!" 51 + +type AnonymousBangEqual = AST.Token.Token "!=" 33 + +type AnonymousPercent = AST.Token.Token "%" 42 + +type AnonymousPercentEqual = AST.Token.Token "%=" 24 + +type AnonymousAmpersand = AST.Token.Token "&" 14 + +type AnonymousAmpersandAmpersand = AST.Token.Token "&&" 34 + +type AnonymousAmpersandEqual = AST.Token.Token "&=" 21 + +type AnonymousLParen = AST.Token.Token "(" 13 + +type AnonymousRParen = AST.Token.Token ")" 15 + +type AnonymousStar = AST.Token.Token "*" 38 + +type AnonymousStarEqual = AST.Token.Token "*=" 19 + +type AnonymousPlus = AST.Token.Token "+" 36 + +type AnonymousPlusPlus = AST.Token.Token "++" 53 + +type AnonymousPlusEqual = AST.Token.Token "+=" 17 + +type AnonymousComma = AST.Token.Token "," 48 + +type AnonymousMinus = AST.Token.Token "-" 37 + +type AnonymousMinusMinus = AST.Token.Token "--" 54 + +type AnonymousMinusEqual = AST.Token.Token "-=" 18 + +type AnonymousMinusRAngle = AST.Token.Token "->" 47 + +type AnonymousDot = AST.Token.Token "." 58 + +type AnonymousDotDotDot = AST.Token.Token "..." 118 + +type AnonymousSlash = AST.Token.Token "/" 39 + +type AnonymousSlashEqual = AST.Token.Token "/=" 20 + +type AnonymousColon = AST.Token.Token ":" 50 + +type AnonymousColonColon = AST.Token.Token "::" 60 + +type AnonymousSemicolon = AST.Token.Token ";" 62 + +type AnonymousLAngle = AST.Token.Token "<" 29 + +type AnonymousLAngleLAngle = AST.Token.Token "<<" 43 + +type AnonymousLAngleLAngleEqual = AST.Token.Token "<<=" 25 + +type AnonymousLAngleEqual = AST.Token.Token "<=" 32 + +type AnonymousEqual = AST.Token.Token "=" 16 + +type AnonymousEqualEqual = AST.Token.Token "==" 30 + +type AnonymousRAngle = AST.Token.Token ">" 28 + +type AnonymousRAngleEqual = AST.Token.Token ">=" 31 + +type AnonymousRAngleRAngle = AST.Token.Token ">>" 44 + +type AnonymousRAngleRAngleEqual = AST.Token.Token ">>=" 26 + +type AnonymousRAngleRAngleRAngle = AST.Token.Token ">>>" 45 + +type AnonymousRAngleRAngleRAngleEqual = AST.Token.Token ">>>=" 27 + +type AnonymousQuestion = AST.Token.Token "?" 49 + +type AnonymousAt = AST.Token.Token "@" 82 + +type AnonymousAtinterface = AST.Token.Token "@interface" 107 + +type AnonymousLBracket = AST.Token.Token "[" 56 + +type AnonymousRBracket = AST.Token.Token "]" 57 + +type AnonymousCaret = AST.Token.Token "^" 41 + +type AnonymousCaretEqual = AST.Token.Token "^=" 23 + +type AnonymousAbstract = AST.Token.Token "abstract" 100 + +type AnonymousAssert = AST.Token.Token "assert" 65 + +data BinaryIntegerLiteral a = BinaryIntegerLiteral {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_968. + AST.Traversable1.Class.Traversable1 a_968 + ) + +instance AST.Unmarshal.SymbolMatching BinaryIntegerLiteral where + matchedSymbols _ = [5] + showFailure _ node_969 = + "expected " + GHC.Base.<> ( "binary_integer_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_969 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_969) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_970 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_971 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_972 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_973 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_970 + c1_971 = TreeSitter.Node.nodeStartPoint node_969 + TreeSitter.Node.TSPoint + r2_972 + c2_973 = TreeSitter.Node.nodeEndPoint node_969 + +deriving instance GHC.Classes.Eq a_974 => GHC.Classes.Eq (BinaryIntegerLiteral a_974) + +deriving instance GHC.Classes.Ord a_975 => GHC.Classes.Ord (BinaryIntegerLiteral a_975) + +deriving instance GHC.Show.Show a_976 => GHC.Show.Show (BinaryIntegerLiteral a_976) + +instance AST.Unmarshal.Unmarshal BinaryIntegerLiteral + +instance Data.Foldable.Foldable BinaryIntegerLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BinaryIntegerLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BinaryIntegerLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BooleanType a = BooleanType {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_977. + AST.Traversable1.Class.Traversable1 a_977 + ) + +instance AST.Unmarshal.SymbolMatching BooleanType where + matchedSymbols _ = [116] + showFailure _ node_978 = + "expected " + GHC.Base.<> ( "boolean_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_978 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_978) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_979 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_980 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_981 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_982 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_979 + c1_980 = TreeSitter.Node.nodeStartPoint node_978 + TreeSitter.Node.TSPoint + r2_981 + c2_982 = TreeSitter.Node.nodeEndPoint node_978 + +deriving instance GHC.Classes.Eq a_983 => GHC.Classes.Eq (BooleanType a_983) + +deriving instance GHC.Classes.Ord a_984 => GHC.Classes.Ord (BooleanType a_984) + +deriving instance GHC.Show.Show a_985 => GHC.Show.Show (BooleanType a_985) + +instance AST.Unmarshal.Unmarshal BooleanType + +instance Data.Foldable.Foldable BooleanType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BooleanType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BooleanType where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousBreak = AST.Token.Token "break" 71 + +type AnonymousByte = AST.Token.Token "byte" 109 + +type AnonymousCase = AST.Token.Token "case" 67 + +type AnonymousCatch = AST.Token.Token "catch" 77 + +type AnonymousChar = AST.Token.Token "char" 113 + +data CharacterLiteral a = CharacterLiteral {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_986. + AST.Traversable1.Class.Traversable1 a_986 + ) + +instance AST.Unmarshal.SymbolMatching CharacterLiteral where + matchedSymbols _ = [10] + showFailure _ node_987 = + "expected " + GHC.Base.<> ( "character_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_987 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_987) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_988 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_989 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_990 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_991 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_988 + c1_989 = TreeSitter.Node.nodeStartPoint node_987 + TreeSitter.Node.TSPoint + r2_990 + c2_991 = TreeSitter.Node.nodeEndPoint node_987 + +deriving instance GHC.Classes.Eq a_992 => GHC.Classes.Eq (CharacterLiteral a_992) + +deriving instance GHC.Classes.Ord a_993 => GHC.Classes.Ord (CharacterLiteral a_993) + +deriving instance GHC.Show.Show a_994 => GHC.Show.Show (CharacterLiteral a_994) + +instance AST.Unmarshal.Unmarshal CharacterLiteral + +instance Data.Foldable.Foldable CharacterLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CharacterLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CharacterLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousClass = AST.Token.Token "class" 59 + +type AnonymousContinue = AST.Token.Token "continue" 72 + +data DecimalFloatingPointLiteral a = DecimalFloatingPointLiteral + { ann :: a, + text :: Data.Text.Internal.Text + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_995. + AST.Traversable1.Class.Traversable1 a_995 + ) + +instance AST.Unmarshal.SymbolMatching DecimalFloatingPointLiteral where + matchedSymbols _ = [6] + showFailure _ node_996 = + "expected " + GHC.Base.<> ( "decimal_floating_point_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_996 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_996) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_997 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_998 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_999 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1000 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_997 + c1_998 = TreeSitter.Node.nodeStartPoint node_996 + TreeSitter.Node.TSPoint + r2_999 + c2_1000 = TreeSitter.Node.nodeEndPoint node_996 + +deriving instance GHC.Classes.Eq a_1001 => GHC.Classes.Eq (DecimalFloatingPointLiteral a_1001) + +deriving instance GHC.Classes.Ord a_1002 => GHC.Classes.Ord (DecimalFloatingPointLiteral a_1002) + +deriving instance GHC.Show.Show a_1003 => GHC.Show.Show (DecimalFloatingPointLiteral a_1003) + +instance AST.Unmarshal.Unmarshal DecimalFloatingPointLiteral + +instance Data.Foldable.Foldable DecimalFloatingPointLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DecimalFloatingPointLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DecimalFloatingPointLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DecimalIntegerLiteral a = DecimalIntegerLiteral {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1004. + AST.Traversable1.Class.Traversable1 a_1004 + ) + +instance AST.Unmarshal.SymbolMatching DecimalIntegerLiteral where + matchedSymbols _ = [2] + showFailure _ node_1005 = + "expected " + GHC.Base.<> ( "decimal_integer_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1005 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1005) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1006 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1007 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1008 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1009 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1006 + c1_1007 = TreeSitter.Node.nodeStartPoint node_1005 + TreeSitter.Node.TSPoint + r2_1008 + c2_1009 = TreeSitter.Node.nodeEndPoint node_1005 + +deriving instance GHC.Classes.Eq a_1010 => GHC.Classes.Eq (DecimalIntegerLiteral a_1010) + +deriving instance GHC.Classes.Ord a_1011 => GHC.Classes.Ord (DecimalIntegerLiteral a_1011) + +deriving instance GHC.Show.Show a_1012 => GHC.Show.Show (DecimalIntegerLiteral a_1012) + +instance AST.Unmarshal.Unmarshal DecimalIntegerLiteral + +instance Data.Foldable.Foldable DecimalIntegerLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DecimalIntegerLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DecimalIntegerLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousDefault = AST.Token.Token "default" 68 + +type AnonymousDo = AST.Token.Token "do" 69 + +type AnonymousDouble = AST.Token.Token "double" 115 + +type AnonymousElse = AST.Token.Token "else" 80 + +type AnonymousEnum = AST.Token.Token "enum" 96 + +type AnonymousExports = AST.Token.Token "exports" 86 + +type AnonymousExtends = AST.Token.Token "extends" 61 + +data False a = False {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1013. + AST.Traversable1.Class.Traversable1 a_1013 + ) + +instance AST.Unmarshal.SymbolMatching False where + matchedSymbols _ = [9] + showFailure _ node_1014 = + "expected " + GHC.Base.<> ( "false" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1014 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1014) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1015 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1016 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1017 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1018 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1015 + c1_1016 = TreeSitter.Node.nodeStartPoint node_1014 + TreeSitter.Node.TSPoint + r2_1017 + c2_1018 = TreeSitter.Node.nodeEndPoint node_1014 + +deriving instance GHC.Classes.Eq a_1019 => GHC.Classes.Eq (False a_1019) + +deriving instance GHC.Classes.Ord a_1020 => GHC.Classes.Ord (False a_1020) + +deriving instance GHC.Show.Show a_1021 => GHC.Show.Show (False a_1021) + +instance AST.Unmarshal.Unmarshal False + +instance Data.Foldable.Foldable False where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor False where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable False where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousFinal = AST.Token.Token "final" 101 + +type AnonymousFinally = AST.Token.Token "finally" 78 + +type AnonymousFloat = AST.Token.Token "float" 114 + +type AnonymousFor = AST.Token.Token "for" 81 + +data HexFloatingPointLiteral a = HexFloatingPointLiteral + { ann :: a, + text :: Data.Text.Internal.Text + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1022. + AST.Traversable1.Class.Traversable1 a_1022 + ) + +instance AST.Unmarshal.SymbolMatching HexFloatingPointLiteral where + matchedSymbols _ = [7] + showFailure _ node_1023 = + "expected " + GHC.Base.<> ( "hex_floating_point_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1023 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1023) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1024 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1025 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1026 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1027 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1024 + c1_1025 = TreeSitter.Node.nodeStartPoint node_1023 + TreeSitter.Node.TSPoint + r2_1026 + c2_1027 = TreeSitter.Node.nodeEndPoint node_1023 + +deriving instance GHC.Classes.Eq a_1028 => GHC.Classes.Eq (HexFloatingPointLiteral a_1028) + +deriving instance GHC.Classes.Ord a_1029 => GHC.Classes.Ord (HexFloatingPointLiteral a_1029) + +deriving instance GHC.Show.Show a_1030 => GHC.Show.Show (HexFloatingPointLiteral a_1030) + +instance AST.Unmarshal.Unmarshal HexFloatingPointLiteral + +instance Data.Foldable.Foldable HexFloatingPointLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor HexFloatingPointLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable HexFloatingPointLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +data HexIntegerLiteral a = HexIntegerLiteral {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1031. + AST.Traversable1.Class.Traversable1 a_1031 + ) + +instance AST.Unmarshal.SymbolMatching HexIntegerLiteral where + matchedSymbols _ = [3] + showFailure _ node_1032 = + "expected " + GHC.Base.<> ( "hex_integer_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1032 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1032) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1033 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1034 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1035 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1036 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1033 + c1_1034 = TreeSitter.Node.nodeStartPoint node_1032 + TreeSitter.Node.TSPoint + r2_1035 + c2_1036 = TreeSitter.Node.nodeEndPoint node_1032 + +deriving instance GHC.Classes.Eq a_1037 => GHC.Classes.Eq (HexIntegerLiteral a_1037) + +deriving instance GHC.Classes.Ord a_1038 => GHC.Classes.Ord (HexIntegerLiteral a_1038) + +deriving instance GHC.Show.Show a_1039 => GHC.Show.Show (HexIntegerLiteral a_1039) + +instance AST.Unmarshal.Unmarshal HexIntegerLiteral + +instance Data.Foldable.Foldable HexIntegerLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor HexIntegerLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable HexIntegerLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Identifier a = Identifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1040. + AST.Traversable1.Class.Traversable1 a_1040 + ) + +instance AST.Unmarshal.SymbolMatching Identifier where + matchedSymbols _ = [1] + showFailure _ node_1041 = + "expected " + GHC.Base.<> ( "identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1041 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1041) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1042 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1043 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1044 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1045 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1042 + c1_1043 = TreeSitter.Node.nodeStartPoint node_1041 + TreeSitter.Node.TSPoint + r2_1044 + c2_1045 = TreeSitter.Node.nodeEndPoint node_1041 + +deriving instance GHC.Classes.Eq a_1046 => GHC.Classes.Eq (Identifier a_1046) + +deriving instance GHC.Classes.Ord a_1047 => GHC.Classes.Ord (Identifier a_1047) + +deriving instance GHC.Show.Show a_1048 => GHC.Show.Show (Identifier a_1048) + +instance AST.Unmarshal.Unmarshal Identifier + +instance Data.Foldable.Foldable Identifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Identifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Identifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousIf = AST.Token.Token "if" 79 + +type AnonymousImplements = AST.Token.Token "implements" 106 + +type AnonymousImport = AST.Token.Token "import" 95 + +type AnonymousInstanceof = AST.Token.Token "instanceof" 46 + +type AnonymousInt = AST.Token.Token "int" 111 + +type AnonymousInterface = AST.Token.Token "interface" 108 + +type AnonymousLong = AST.Token.Token "long" 112 + +type AnonymousModule = AST.Token.Token "module" 84 + +type AnonymousNative = AST.Token.Token "native" 103 + +type AnonymousNew = AST.Token.Token "new" 55 + +data NullLiteral a = NullLiteral {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1049. + AST.Traversable1.Class.Traversable1 a_1049 + ) + +instance AST.Unmarshal.SymbolMatching NullLiteral where + matchedSymbols _ = [12] + showFailure _ node_1050 = + "expected " + GHC.Base.<> ( "null_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1050 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1050) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1051 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1052 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1053 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1054 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1051 + c1_1052 = TreeSitter.Node.nodeStartPoint node_1050 + TreeSitter.Node.TSPoint + r2_1053 + c2_1054 = TreeSitter.Node.nodeEndPoint node_1050 + +deriving instance GHC.Classes.Eq a_1055 => GHC.Classes.Eq (NullLiteral a_1055) + +deriving instance GHC.Classes.Ord a_1056 => GHC.Classes.Ord (NullLiteral a_1056) + +deriving instance GHC.Show.Show a_1057 => GHC.Show.Show (NullLiteral a_1057) + +instance AST.Unmarshal.Unmarshal NullLiteral + +instance Data.Foldable.Foldable NullLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NullLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NullLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +data OctalIntegerLiteral a = OctalIntegerLiteral {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1058. + AST.Traversable1.Class.Traversable1 a_1058 + ) + +instance AST.Unmarshal.SymbolMatching OctalIntegerLiteral where + matchedSymbols _ = [4] + showFailure _ node_1059 = + "expected " + GHC.Base.<> ( "octal_integer_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1059 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1059) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1060 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1061 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1062 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1063 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1060 + c1_1061 = TreeSitter.Node.nodeStartPoint node_1059 + TreeSitter.Node.TSPoint + r2_1062 + c2_1063 = TreeSitter.Node.nodeEndPoint node_1059 + +deriving instance GHC.Classes.Eq a_1064 => GHC.Classes.Eq (OctalIntegerLiteral a_1064) + +deriving instance GHC.Classes.Ord a_1065 => GHC.Classes.Ord (OctalIntegerLiteral a_1065) + +deriving instance GHC.Show.Show a_1066 => GHC.Show.Show (OctalIntegerLiteral a_1066) + +instance AST.Unmarshal.Unmarshal OctalIntegerLiteral + +instance Data.Foldable.Foldable OctalIntegerLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor OctalIntegerLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable OctalIntegerLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousOpen = AST.Token.Token "open" 83 + +type AnonymousOpens = AST.Token.Token "opens" 88 + +type AnonymousPackage = AST.Token.Token "package" 94 + +type AnonymousPrivate = AST.Token.Token "private" 99 + +type AnonymousProtected = AST.Token.Token "protected" 98 + +type AnonymousProvides = AST.Token.Token "provides" 90 + +type AnonymousPublic = AST.Token.Token "public" 97 + +type AnonymousRequires = AST.Token.Token "requires" 85 + +type AnonymousReturn = AST.Token.Token "return" 73 + +type AnonymousShort = AST.Token.Token "short" 110 + +type AnonymousStatic = AST.Token.Token "static" 93 + +type AnonymousStrictfp = AST.Token.Token "strictfp" 102 + +data StringLiteral a = StringLiteral {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1067. + AST.Traversable1.Class.Traversable1 a_1067 + ) + +instance AST.Unmarshal.SymbolMatching StringLiteral where + matchedSymbols _ = [11] + showFailure _ node_1068 = + "expected " + GHC.Base.<> ( "string_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1068 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1068) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1069 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1070 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1071 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1072 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1069 + c1_1070 = TreeSitter.Node.nodeStartPoint node_1068 + TreeSitter.Node.TSPoint + r2_1071 + c2_1072 = TreeSitter.Node.nodeEndPoint node_1068 + +deriving instance GHC.Classes.Eq a_1073 => GHC.Classes.Eq (StringLiteral a_1073) + +deriving instance GHC.Classes.Ord a_1074 => GHC.Classes.Ord (StringLiteral a_1074) + +deriving instance GHC.Show.Show a_1075 => GHC.Show.Show (StringLiteral a_1075) + +instance AST.Unmarshal.Unmarshal StringLiteral + +instance Data.Foldable.Foldable StringLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor StringLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable StringLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Super a = Super {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1076. + AST.Traversable1.Class.Traversable1 a_1076 + ) + +instance AST.Unmarshal.SymbolMatching Super where + matchedSymbols _ = [121] + showFailure _ node_1077 = + "expected " + GHC.Base.<> ( "super" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1077 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1077) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1078 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1079 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1080 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1081 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1078 + c1_1079 = TreeSitter.Node.nodeStartPoint node_1077 + TreeSitter.Node.TSPoint + r2_1080 + c2_1081 = TreeSitter.Node.nodeEndPoint node_1077 + +deriving instance GHC.Classes.Eq a_1082 => GHC.Classes.Eq (Super a_1082) + +deriving instance GHC.Classes.Ord a_1083 => GHC.Classes.Ord (Super a_1083) + +deriving instance GHC.Show.Show a_1084 => GHC.Show.Show (Super a_1084) + +instance AST.Unmarshal.Unmarshal Super + +instance Data.Foldable.Foldable Super where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Super where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Super where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousSwitch = AST.Token.Token "switch" 66 + +type AnonymousSynchronized = AST.Token.Token "synchronized" 74 + +data This a = This {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1085. + AST.Traversable1.Class.Traversable1 a_1085 + ) + +instance AST.Unmarshal.SymbolMatching This where + matchedSymbols _ = [120] + showFailure _ node_1086 = + "expected " + GHC.Base.<> ( "this" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1086 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1086) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1087 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1088 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1089 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1090 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1087 + c1_1088 = TreeSitter.Node.nodeStartPoint node_1086 + TreeSitter.Node.TSPoint + r2_1089 + c2_1090 = TreeSitter.Node.nodeEndPoint node_1086 + +deriving instance GHC.Classes.Eq a_1091 => GHC.Classes.Eq (This a_1091) + +deriving instance GHC.Classes.Ord a_1092 => GHC.Classes.Ord (This a_1092) + +deriving instance GHC.Show.Show a_1093 => GHC.Show.Show (This a_1093) + +instance AST.Unmarshal.Unmarshal This + +instance Data.Foldable.Foldable This where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor This where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable This where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousThrow = AST.Token.Token "throw" 75 + +type AnonymousThrows = AST.Token.Token "throws" 119 + +type AnonymousTo = AST.Token.Token "to" 87 + +type AnonymousTransient = AST.Token.Token "transient" 104 + +type AnonymousTransitive = AST.Token.Token "transitive" 92 + +data True a = True {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1094. + AST.Traversable1.Class.Traversable1 a_1094 + ) + +instance AST.Unmarshal.SymbolMatching True where + matchedSymbols _ = [8] + showFailure _ node_1095 = + "expected " + GHC.Base.<> ( "true" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1095 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1095) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1096 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1097 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1098 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1099 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1096 + c1_1097 = TreeSitter.Node.nodeStartPoint node_1095 + TreeSitter.Node.TSPoint + r2_1098 + c2_1099 = TreeSitter.Node.nodeEndPoint node_1095 + +deriving instance GHC.Classes.Eq a_1100 => GHC.Classes.Eq (True a_1100) + +deriving instance GHC.Classes.Ord a_1101 => GHC.Classes.Ord (True a_1101) + +deriving instance GHC.Show.Show a_1102 => GHC.Show.Show (True a_1102) + +instance AST.Unmarshal.Unmarshal True + +instance Data.Foldable.Foldable True where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor True where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable True where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousTry = AST.Token.Token "try" 76 + +data TypeIdentifier a = TypeIdentifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1103. + AST.Traversable1.Class.Traversable1 a_1103 + ) + +instance AST.Unmarshal.SymbolMatching TypeIdentifier where + matchedSymbols _ = [274] + showFailure _ node_1104 = + "expected " + GHC.Base.<> ( "type_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1104 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1104) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1105 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1106 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1107 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1108 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1105 + c1_1106 = TreeSitter.Node.nodeStartPoint node_1104 + TreeSitter.Node.TSPoint + r2_1107 + c2_1108 = TreeSitter.Node.nodeEndPoint node_1104 + +deriving instance GHC.Classes.Eq a_1109 => GHC.Classes.Eq (TypeIdentifier a_1109) + +deriving instance GHC.Classes.Ord a_1110 => GHC.Classes.Ord (TypeIdentifier a_1110) + +deriving instance GHC.Show.Show a_1111 => GHC.Show.Show (TypeIdentifier a_1111) + +instance AST.Unmarshal.Unmarshal TypeIdentifier + +instance Data.Foldable.Foldable TypeIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousUses = AST.Token.Token "uses" 89 + +data VoidType a = VoidType {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1112. + AST.Traversable1.Class.Traversable1 a_1112 + ) + +instance AST.Unmarshal.SymbolMatching VoidType where + matchedSymbols _ = [117] + showFailure _ node_1113 = + "expected " + GHC.Base.<> ( "void_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1113 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1113) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1114 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1115 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1116 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1117 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1114 + c1_1115 = TreeSitter.Node.nodeStartPoint node_1113 + TreeSitter.Node.TSPoint + r2_1116 + c2_1117 = TreeSitter.Node.nodeEndPoint node_1113 + +deriving instance GHC.Classes.Eq a_1118 => GHC.Classes.Eq (VoidType a_1118) + +deriving instance GHC.Classes.Ord a_1119 => GHC.Classes.Ord (VoidType a_1119) + +deriving instance GHC.Show.Show a_1120 => GHC.Show.Show (VoidType a_1120) + +instance AST.Unmarshal.Unmarshal VoidType + +instance Data.Foldable.Foldable VoidType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor VoidType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable VoidType where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousVolatile = AST.Token.Token "volatile" 105 + +type AnonymousWhile = AST.Token.Token "while" 70 + +type AnonymousWith = AST.Token.Token "with" 91 + +type AnonymousLBrace = AST.Token.Token "{" 63 + +type AnonymousPipe = AST.Token.Token "|" 40 + +type AnonymousPipeEqual = AST.Token.Token "|=" 22 + +type AnonymousPipePipe = AST.Token.Token "||" 35 + +type AnonymousRBrace = AST.Token.Token "}" 64 + +type AnonymousTilde = AST.Token.Token "~" 52 diff --git a/semantic-php/src/Language/PHP/AST.hs b/semantic-php/src/Language/PHP/AST.hs index f51753d33..4da19f0e9 100644 --- a/semantic-php/src/Language/PHP/AST.hs +++ b/semantic-php/src/Language/PHP/AST.hs @@ -1,3 +1,4 @@ +-- Language definition for PHP, generated by ast-generate. Do not edit! {-# LANGUAGE CPP #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveAnyClass #-} @@ -14,20 +15,6244 @@ {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeApplications #-} {-# LANGUAGE TypeOperators #-} +{-# LANGUAGE UndecidableInstances #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Language.PHP.AST -( module Language.PHP.AST -) where +module Language.PHP.AST (module Language.PHP.AST, getTestCorpusDir) where -import AST.GenerateSyntax -import AST.Token() -import Language.Haskell.TH.Syntax (runIO) -import Prelude hiding (String, Integer, Float) -import qualified TreeSitter.PHP as PHP (getNodeTypesPath, tree_sitter_php) +import qualified AST.Parse +import qualified AST.Token +import qualified AST.Traversable1.Class +import qualified AST.Unmarshal +import qualified Data.Foldable +import qualified Data.List as Data.OldList +import qualified Data.Maybe as GHC.Maybe +import qualified Data.Text.Internal +import qualified Data.Traversable +import qualified GHC.Base +import qualified GHC.Generics +import qualified GHC.Records +import qualified GHC.Show +import qualified TreeSitter.Node +import TreeSitter.PHP (getTestCorpusDir) +import qualified Prelude as GHC.Classes -#ifdef NODE_TYPES_PATH -astDeclarationsForLanguage PHP.tree_sitter_php NODE_TYPES_PATH -#else -runIO PHP.getNodeTypesPath >>= astDeclarationsForLanguage PHP.tree_sitter_php -#endif +debugSymbolNames :: [GHC.Base.String] +debugSymbolNames = debugSymbolNames_0 + +debugSymbolNames_0 :: [GHC.Base.String] +debugSymbolNames_0 = + [ "end", + "name", + "php_tag", + "_?>", + "_text_token1", + "_text_token2", + "_;", + "_static", + "_,", + "_=", + "_global", + "_namespace", + "_use", + "_\\", + "_function", + "_const", + "_as", + "_{", + "_}", + "_trait", + "_interface", + "_extends", + "_class", + "_abstract", + "_final", + "_implements", + "var_modifier", + "_insteadof", + "_public", + "_protected", + "_private", + "_&", + "_(", + "_)", + "_...", + "_?", + "_array", + "_callable", + "_iterable", + "_bool", + "_float", + "_int", + "_string", + "_void", + "_binary", + "_boolean", + "_double", + "_integer", + "_object", + "_real", + "_unset", + "_:", + "_echo", + "_declare", + "_enddeclare", + "_ticks", + "_encoding", + "_strict_types", + "float", + "_try", + "_catch", + "_finally", + "_goto", + "_continue", + "_break", + "integer", + "_return", + "_throw", + "_while", + "_endwhile", + "_do", + "_for", + "_endfor", + "_foreach", + "_endforeach", + "_=>", + "_if", + "_endif", + "_elseif", + "_else", + "_switch", + "_endswitch", + "_case", + "_default", + "_@", + "_+", + "_-", + "_~", + "_!", + "_**", + "_clone", + "_::", + "_print", + "_new", + "_++", + "_--", + "shell_command_expression", + "_**=", + "_*=", + "_/=", + "_%=", + "_+=", + "_-=", + "_.=", + "_<<=", + "_>>=", + "_&=", + "_^=", + "_|=", + "_->", + "_list", + "_self", + "_parent", + "_[", + "_]", + "string", + "boolean", + "null", + "_$", + "_yield", + "_from", + "_instanceof", + "_??", + "_and", + "_or", + "_xor", + "_||", + "_&&", + "_|", + "_^", + "_==", + "_!=", + "_<>", + "_===", + "_!==", + "_<", + "_>", + "_<=", + "_>=", + "_<=>", + "_<<", + "_>>", + "_.", + "_*", + "_/", + "_%", + "_include", + "_include_once", + "_require", + "_require_once", + "comment", + "_automatic_semicolon", + "heredoc", + "_eof", + "program", + "text_interpolation", + "text", + "empty_statement", + "function_static_declaration", + "static_variable_declaration", + "global_declaration", + "namespace_definition", + "namespace_use_declaration", + "namespace_function_or_const", + "namespace_use_clause", + "qualified_name", + "namespace_name_as_prefix", + "namespace_name", + "namespace_aliasing_clause", + "namespace_use_group", + "namespace_use_group_clause", + "trait_declaration", + "interface_declaration", + "interface_base_clause", + "class_declaration", + "declaration_list", + "class_modifier", + "class_base_clause", + "class_interface_clause", + "_member_declaration", + "const_declaration", + "property_declaration", + "_modifier", + "property_element", + "property_initializer", + "method_declaration", + "static_modifier", + "use_declaration", + "use_list", + "use_instead_of_clause", + "use_as_clause", + "visibility_modifier", + "function_definition", + "_function_definition_header", + "formal_parameters", + "simple_parameter", + "variadic_parameter", + "_type", + "optional_type", + "primitive_type", + "cast_type", + "_return_type", + "const_element", + "echo_statement", + "unset_statement", + "declare_statement", + "declare_directive", + "try_statement", + "catch_clause", + "finally_clause", + "_jump_statement", + "goto_statement", + "continue_statement", + "break_statement", + "return_statement", + "throw_statement", + "while_statement", + "do_statement", + "for_statement", + "_expressions", + "sequence_expression", + "foreach_statement", + "pair", + "if_statement", + "colon_block", + "else_if_clause", + "else_clause", + "else_if_clause", + "else_clause", + "switch_statement", + "switch_block", + "case_statement", + "default_statement", + "compound_statement", + "named_label_statement", + "expression_statement", + "_expression", + "_unary_expression", + "unary_op_expression", + "exponentiation_expression", + "clone_expression", + "_primary_expression", + "parenthesized_expression", + "class_constant_access_expression", + "print_intrinsic", + "anonymous_function_creation_expression", + "anonymous_function_use_clause", + "object_creation_expression", + "update_expression", + "cast_expression", + "cast_expression", + "assignment_expression", + "conditional_expression", + "augmented_assignment_expression", + "member_access_expression", + "scoped_property_access_expression", + "list_literal", + "function_call_expression", + "scoped_call_expression", + "_scope_resolution_qualifier", + "relative_scope", + "arguments", + "member_call_expression", + "variadic_unpacking", + "subscript_expression", + "_dereferencable_expression", + "array_creation_expression", + "_string", + "dynamic_variable_name", + "variable_name", + "yield_expression", + "array_element_initializer", + "binary_expression", + "include_expression", + "include_once_expression", + "require_expression", + "require_once_expression", + "name", + "_program_repeat1", + "_text_repeat1", + "_function_static_declaration_repeat1", + "_global_declaration_repeat1", + "_namespace_use_declaration_repeat1", + "_namespace_name_repeat1", + "_namespace_use_group_repeat1", + "_interface_base_clause_repeat1", + "_declaration_list_repeat1", + "_const_declaration_repeat1", + "_property_declaration_repeat1", + "_property_declaration_repeat2", + "_use_list_repeat1", + "_formal_parameters_repeat1", + "_unset_statement_repeat1", + "_try_statement_repeat1", + "_if_statement_repeat1", + "_if_statement_repeat2", + "_switch_block_repeat1", + "_anonymous_function_use_clause_repeat1", + "_list_literal_repeat1", + "_arguments_repeat1", + "_array_creation_expression_repeat1", + "type_name" + ] + +newtype Expression a = Expression {getExpression :: ((PrimaryExpression GHC.Generics.:+: AssignmentExpression GHC.Generics.:+: AugmentedAssignmentExpression GHC.Generics.:+: BinaryExpression GHC.Generics.:+: CastExpression GHC.Generics.:+: CloneExpression GHC.Generics.:+: ConditionalExpression GHC.Generics.:+: ExponentiationExpression GHC.Generics.:+: IncludeExpression GHC.Generics.:+: IncludeOnceExpression GHC.Generics.:+: RequireExpression GHC.Generics.:+: RequireOnceExpression GHC.Generics.:+: UnaryOpExpression GHC.Generics.:+: YieldExpression) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1. + AST.Traversable1.Class.Traversable1 a_1 + ) + +instance GHC.Records.HasField "ann" (Expression a_2) a_2 where + getField = AST.Unmarshal.gann GHC.Base.. getExpression + +deriving instance GHC.Classes.Eq a_3 => GHC.Classes.Eq (Expression a_3) + +deriving instance GHC.Classes.Ord a_4 => GHC.Classes.Ord (Expression a_4) + +deriving instance GHC.Show.Show a_5 => GHC.Show.Show (Expression a_5) + +instance AST.Unmarshal.Unmarshal Expression + +instance Data.Foldable.Foldable Expression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Expression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Expression where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Literal a = Literal {getLiteral :: ((Boolean GHC.Generics.:+: Float GHC.Generics.:+: Heredoc GHC.Generics.:+: Integer GHC.Generics.:+: Null GHC.Generics.:+: String) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_6. + AST.Traversable1.Class.Traversable1 a_6 + ) + +instance GHC.Records.HasField "ann" (Literal a_7) a_7 where + getField = AST.Unmarshal.gann GHC.Base.. getLiteral + +deriving instance GHC.Classes.Eq a_8 => GHC.Classes.Eq (Literal a_8) + +deriving instance GHC.Classes.Ord a_9 => GHC.Classes.Ord (Literal a_9) + +deriving instance GHC.Show.Show a_10 => GHC.Show.Show (Literal a_10) + +instance AST.Unmarshal.Unmarshal Literal + +instance Data.Foldable.Foldable Literal where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Literal where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Literal where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype PrimaryExpression a = PrimaryExpression {getPrimaryExpression :: ((Literal GHC.Generics.:+: AnonymousFunctionCreationExpression GHC.Generics.:+: ArrayCreationExpression GHC.Generics.:+: CastExpression GHC.Generics.:+: ClassConstantAccessExpression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: FunctionCallExpression GHC.Generics.:+: MemberAccessExpression GHC.Generics.:+: MemberCallExpression GHC.Generics.:+: ObjectCreationExpression GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: PrintIntrinsic GHC.Generics.:+: QualifiedName GHC.Generics.:+: ScopedCallExpression GHC.Generics.:+: ScopedPropertyAccessExpression GHC.Generics.:+: ShellCommandExpression GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: UpdateExpression GHC.Generics.:+: VariableName) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_11. + AST.Traversable1.Class.Traversable1 a_11 + ) + +instance GHC.Records.HasField "ann" (PrimaryExpression a_12) a_12 where + getField = AST.Unmarshal.gann GHC.Base.. getPrimaryExpression + +deriving instance GHC.Classes.Eq a_13 => GHC.Classes.Eq (PrimaryExpression a_13) + +deriving instance GHC.Classes.Ord a_14 => GHC.Classes.Ord (PrimaryExpression a_14) + +deriving instance GHC.Show.Show a_15 => GHC.Show.Show (PrimaryExpression a_15) + +instance AST.Unmarshal.Unmarshal PrimaryExpression + +instance Data.Foldable.Foldable PrimaryExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PrimaryExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PrimaryExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Statement a = Statement {getStatement :: ((BreakStatement GHC.Generics.:+: ClassDeclaration GHC.Generics.:+: CompoundStatement GHC.Generics.:+: ConstDeclaration GHC.Generics.:+: ContinueStatement GHC.Generics.:+: DeclareStatement GHC.Generics.:+: DoStatement GHC.Generics.:+: EchoStatement GHC.Generics.:+: EmptyStatement GHC.Generics.:+: ExpressionStatement GHC.Generics.:+: ForStatement GHC.Generics.:+: ForeachStatement GHC.Generics.:+: FunctionDefinition GHC.Generics.:+: FunctionStaticDeclaration GHC.Generics.:+: GlobalDeclaration GHC.Generics.:+: GotoStatement GHC.Generics.:+: IfStatement GHC.Generics.:+: InterfaceDeclaration GHC.Generics.:+: NamedLabelStatement GHC.Generics.:+: NamespaceDefinition GHC.Generics.:+: NamespaceUseDeclaration GHC.Generics.:+: ReturnStatement GHC.Generics.:+: SwitchStatement GHC.Generics.:+: ThrowStatement GHC.Generics.:+: TraitDeclaration GHC.Generics.:+: TryStatement GHC.Generics.:+: UnsetStatement GHC.Generics.:+: WhileStatement) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_16. + AST.Traversable1.Class.Traversable1 a_16 + ) + +instance GHC.Records.HasField "ann" (Statement a_17) a_17 where + getField = AST.Unmarshal.gann GHC.Base.. getStatement + +deriving instance GHC.Classes.Eq a_18 => GHC.Classes.Eq (Statement a_18) + +deriving instance GHC.Classes.Ord a_19 => GHC.Classes.Ord (Statement a_19) + +deriving instance GHC.Show.Show a_20 => GHC.Show.Show (Statement a_20) + +instance AST.Unmarshal.Unmarshal Statement + +instance Data.Foldable.Foldable Statement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Statement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Statement where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Type a = Type {getType :: ((OptionalType GHC.Generics.:+: PrimitiveType GHC.Generics.:+: TypeName) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_21. + AST.Traversable1.Class.Traversable1 a_21 + ) + +instance GHC.Records.HasField "ann" (Type a_22) a_22 where + getField = AST.Unmarshal.gann GHC.Base.. getType + +deriving instance GHC.Classes.Eq a_23 => GHC.Classes.Eq (Type a_23) + +deriving instance GHC.Classes.Ord a_24 => GHC.Classes.Ord (Type a_24) + +deriving instance GHC.Show.Show a_25 => GHC.Show.Show (Type a_25) + +instance AST.Unmarshal.Unmarshal Type + +instance Data.Foldable.Foldable Type where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Type where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Type where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AnonymousFunctionCreationExpression a = AnonymousFunctionCreationExpression + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (Type a))), + body :: (AST.Parse.Err (CompoundStatement a)), + parameters :: (AST.Parse.Err (FormalParameters a)), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (AnonymousFunctionUseClause a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_26. + AST.Traversable1.Class.Traversable1 a_26 + ) + +instance AST.Unmarshal.SymbolMatching AnonymousFunctionCreationExpression where + matchedSymbols _ = [245] + showFailure _ node_27 = + "expected " + GHC.Base.<> ( "anonymous_function_creation_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_27 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_27) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_28 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_29 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_30 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_31 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_28 + c1_29 = TreeSitter.Node.nodeStartPoint node_27 + TreeSitter.Node.TSPoint + r2_30 + c2_31 = TreeSitter.Node.nodeEndPoint node_27 + +deriving instance GHC.Classes.Eq a_32 => GHC.Classes.Eq (AnonymousFunctionCreationExpression a_32) + +deriving instance GHC.Classes.Ord a_33 => GHC.Classes.Ord (AnonymousFunctionCreationExpression a_33) + +deriving instance GHC.Show.Show a_34 => GHC.Show.Show (AnonymousFunctionCreationExpression a_34) + +instance AST.Unmarshal.Unmarshal AnonymousFunctionCreationExpression + +instance Data.Foldable.Foldable AnonymousFunctionCreationExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AnonymousFunctionCreationExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AnonymousFunctionCreationExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AnonymousFunctionUseClause a = AnonymousFunctionUseClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (VariableName a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_35. + AST.Traversable1.Class.Traversable1 a_35 + ) + +instance AST.Unmarshal.SymbolMatching AnonymousFunctionUseClause where + matchedSymbols _ = [246] + showFailure _ node_36 = + "expected " + GHC.Base.<> ( "anonymous_function_use_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_36 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_36) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_37 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_38 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_39 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_40 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_37 + c1_38 = TreeSitter.Node.nodeStartPoint node_36 + TreeSitter.Node.TSPoint + r2_39 + c2_40 = TreeSitter.Node.nodeEndPoint node_36 + +deriving instance GHC.Classes.Eq a_41 => GHC.Classes.Eq (AnonymousFunctionUseClause a_41) + +deriving instance GHC.Classes.Ord a_42 => GHC.Classes.Ord (AnonymousFunctionUseClause a_42) + +deriving instance GHC.Show.Show a_43 => GHC.Show.Show (AnonymousFunctionUseClause a_43) + +instance AST.Unmarshal.Unmarshal AnonymousFunctionUseClause + +instance Data.Foldable.Foldable AnonymousFunctionUseClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AnonymousFunctionUseClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AnonymousFunctionUseClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Arguments a = Arguments + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Expression GHC.Generics.:+: VariadicUnpacking) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_44. + AST.Traversable1.Class.Traversable1 a_44 + ) + +instance AST.Unmarshal.SymbolMatching Arguments where + matchedSymbols _ = [261] + showFailure _ node_45 = + "expected " + GHC.Base.<> ( "arguments" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_45 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_45) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_46 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_47 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_48 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_49 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_46 + c1_47 = TreeSitter.Node.nodeStartPoint node_45 + TreeSitter.Node.TSPoint + r2_48 + c2_49 = TreeSitter.Node.nodeEndPoint node_45 + +deriving instance GHC.Classes.Eq a_50 => GHC.Classes.Eq (Arguments a_50) + +deriving instance GHC.Classes.Ord a_51 => GHC.Classes.Ord (Arguments a_51) + +deriving instance GHC.Show.Show a_52 => GHC.Show.Show (Arguments a_52) + +instance AST.Unmarshal.Unmarshal Arguments + +instance Data.Foldable.Foldable Arguments where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Arguments where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Arguments where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ArrayCreationExpression a = ArrayCreationExpression + { ann :: a, + extraChildren :: ([AST.Parse.Err (ArrayElementInitializer a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_53. + AST.Traversable1.Class.Traversable1 a_53 + ) + +instance AST.Unmarshal.SymbolMatching ArrayCreationExpression where + matchedSymbols _ = [266] + showFailure _ node_54 = + "expected " + GHC.Base.<> ( "array_creation_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_54 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_54) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_55 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_56 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_57 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_58 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_55 + c1_56 = TreeSitter.Node.nodeStartPoint node_54 + TreeSitter.Node.TSPoint + r2_57 + c2_58 = TreeSitter.Node.nodeEndPoint node_54 + +deriving instance GHC.Classes.Eq a_59 => GHC.Classes.Eq (ArrayCreationExpression a_59) + +deriving instance GHC.Classes.Ord a_60 => GHC.Classes.Ord (ArrayCreationExpression a_60) + +deriving instance GHC.Show.Show a_61 => GHC.Show.Show (ArrayCreationExpression a_61) + +instance AST.Unmarshal.Unmarshal ArrayCreationExpression + +instance Data.Foldable.Foldable ArrayCreationExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ArrayCreationExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ArrayCreationExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ArrayElementInitializer a = ArrayElementInitializer + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Expression a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_62. + AST.Traversable1.Class.Traversable1 a_62 + ) + +instance AST.Unmarshal.SymbolMatching ArrayElementInitializer where + matchedSymbols _ = [271] + showFailure _ node_63 = + "expected " + GHC.Base.<> ( "array_element_initializer" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_63 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_63) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_64 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_65 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_66 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_67 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_64 + c1_65 = TreeSitter.Node.nodeStartPoint node_63 + TreeSitter.Node.TSPoint + r2_66 + c2_67 = TreeSitter.Node.nodeEndPoint node_63 + +deriving instance GHC.Classes.Eq a_68 => GHC.Classes.Eq (ArrayElementInitializer a_68) + +deriving instance GHC.Classes.Ord a_69 => GHC.Classes.Ord (ArrayElementInitializer a_69) + +deriving instance GHC.Show.Show a_70 => GHC.Show.Show (ArrayElementInitializer a_70) + +instance AST.Unmarshal.Unmarshal ArrayElementInitializer + +instance Data.Foldable.Foldable ArrayElementInitializer where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ArrayElementInitializer where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ArrayElementInitializer where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AssignmentExpression a = AssignmentExpression + { ann :: a, + left :: (AST.Parse.Err ((ArrayCreationExpression GHC.Generics.:+: CastExpression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: FunctionCallExpression GHC.Generics.:+: ListLiteral GHC.Generics.:+: MemberAccessExpression GHC.Generics.:+: MemberCallExpression GHC.Generics.:+: ScopedCallExpression GHC.Generics.:+: ScopedPropertyAccessExpression GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: VariableName) a)), + right :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_71. + AST.Traversable1.Class.Traversable1 a_71 + ) + +instance AST.Unmarshal.SymbolMatching AssignmentExpression where + matchedSymbols _ = [251] + showFailure _ node_72 = + "expected " + GHC.Base.<> ( "assignment_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_72 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_72) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_73 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_74 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_75 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_76 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_73 + c1_74 = TreeSitter.Node.nodeStartPoint node_72 + TreeSitter.Node.TSPoint + r2_75 + c2_76 = TreeSitter.Node.nodeEndPoint node_72 + +deriving instance GHC.Classes.Eq a_77 => GHC.Classes.Eq (AssignmentExpression a_77) + +deriving instance GHC.Classes.Ord a_78 => GHC.Classes.Ord (AssignmentExpression a_78) + +deriving instance GHC.Show.Show a_79 => GHC.Show.Show (AssignmentExpression a_79) + +instance AST.Unmarshal.Unmarshal AssignmentExpression + +instance Data.Foldable.Foldable AssignmentExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AssignmentExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AssignmentExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AugmentedAssignmentExpression a = AugmentedAssignmentExpression + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousPercentEqual GHC.Generics.:+: AnonymousAmpersandEqual GHC.Generics.:+: AnonymousStarStarEqual GHC.Generics.:+: AnonymousStarEqual GHC.Generics.:+: AnonymousPlusEqual GHC.Generics.:+: AnonymousMinusEqual GHC.Generics.:+: AnonymousDotEqual GHC.Generics.:+: AnonymousSlashEqual GHC.Generics.:+: AnonymousLAngleLAngleEqual GHC.Generics.:+: AnonymousRAngleRAngleEqual GHC.Generics.:+: AnonymousCaretEqual GHC.Generics.:+: AnonymousPipeEqual) a)), + left :: (AST.Parse.Err ((CastExpression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: FunctionCallExpression GHC.Generics.:+: MemberAccessExpression GHC.Generics.:+: MemberCallExpression GHC.Generics.:+: ScopedCallExpression GHC.Generics.:+: ScopedPropertyAccessExpression GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: VariableName) a)), + right :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_80. + AST.Traversable1.Class.Traversable1 a_80 + ) + +instance AST.Unmarshal.SymbolMatching AugmentedAssignmentExpression where + matchedSymbols _ = [253] + showFailure _ node_81 = + "expected " + GHC.Base.<> ( "augmented_assignment_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_81 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_81) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_82 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_83 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_84 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_85 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_82 + c1_83 = TreeSitter.Node.nodeStartPoint node_81 + TreeSitter.Node.TSPoint + r2_84 + c2_85 = TreeSitter.Node.nodeEndPoint node_81 + +deriving instance GHC.Classes.Eq a_86 => GHC.Classes.Eq (AugmentedAssignmentExpression a_86) + +deriving instance GHC.Classes.Ord a_87 => GHC.Classes.Ord (AugmentedAssignmentExpression a_87) + +deriving instance GHC.Show.Show a_88 => GHC.Show.Show (AugmentedAssignmentExpression a_88) + +instance AST.Unmarshal.Unmarshal AugmentedAssignmentExpression + +instance Data.Foldable.Foldable AugmentedAssignmentExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AugmentedAssignmentExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AugmentedAssignmentExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BinaryExpression a = BinaryExpression + { ann :: a, + operator :: (GHC.Maybe.Maybe (AST.Parse.Err ((AnonymousBangEqual GHC.Generics.:+: AnonymousBangEqualEqual GHC.Generics.:+: AnonymousPercent GHC.Generics.:+: AnonymousAmpersand GHC.Generics.:+: AnonymousAmpersandAmpersand GHC.Generics.:+: AnonymousStar GHC.Generics.:+: AnonymousPlus GHC.Generics.:+: AnonymousMinus GHC.Generics.:+: AnonymousDot GHC.Generics.:+: AnonymousSlash GHC.Generics.:+: AnonymousLAngle GHC.Generics.:+: AnonymousLAngleLAngle GHC.Generics.:+: AnonymousLAngleEqual GHC.Generics.:+: AnonymousLAngleEqualRAngle GHC.Generics.:+: AnonymousLAngleRAngle GHC.Generics.:+: AnonymousEqualEqual GHC.Generics.:+: AnonymousEqualEqualEqual GHC.Generics.:+: AnonymousRAngle GHC.Generics.:+: AnonymousRAngleEqual GHC.Generics.:+: AnonymousRAngleRAngle GHC.Generics.:+: AnonymousCaret GHC.Generics.:+: AnonymousAnd GHC.Generics.:+: AnonymousInstanceof GHC.Generics.:+: AnonymousOr GHC.Generics.:+: AnonymousXor GHC.Generics.:+: AnonymousPipe GHC.Generics.:+: AnonymousPipePipe) a))), + left :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + right :: (GHC.Maybe.Maybe (AST.Parse.Err ((Expression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: MemberAccessExpression GHC.Generics.:+: QualifiedName GHC.Generics.:+: ScopedPropertyAccessExpression GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: VariableName) a))), + extraChildren :: ([AST.Parse.Err (Expression a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_89. + AST.Traversable1.Class.Traversable1 a_89 + ) + +instance AST.Unmarshal.SymbolMatching BinaryExpression where + matchedSymbols _ = [272] + showFailure _ node_90 = + "expected " + GHC.Base.<> ( "binary_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_90 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_90) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_91 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_92 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_93 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_94 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_91 + c1_92 = TreeSitter.Node.nodeStartPoint node_90 + TreeSitter.Node.TSPoint + r2_93 + c2_94 = TreeSitter.Node.nodeEndPoint node_90 + +deriving instance GHC.Classes.Eq a_95 => GHC.Classes.Eq (BinaryExpression a_95) + +deriving instance GHC.Classes.Ord a_96 => GHC.Classes.Ord (BinaryExpression a_96) + +deriving instance GHC.Show.Show a_97 => GHC.Show.Show (BinaryExpression a_97) + +instance AST.Unmarshal.Unmarshal BinaryExpression + +instance Data.Foldable.Foldable BinaryExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BinaryExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BinaryExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BreakStatement a = BreakStatement + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_98. + AST.Traversable1.Class.Traversable1 a_98 + ) + +instance AST.Unmarshal.SymbolMatching BreakStatement where + matchedSymbols _ = [213] + showFailure _ node_99 = + "expected " + GHC.Base.<> ( "break_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_99 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_99) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_100 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_101 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_102 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_103 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_100 + c1_101 = TreeSitter.Node.nodeStartPoint node_99 + TreeSitter.Node.TSPoint + r2_102 + c2_103 = TreeSitter.Node.nodeEndPoint node_99 + +deriving instance GHC.Classes.Eq a_104 => GHC.Classes.Eq (BreakStatement a_104) + +deriving instance GHC.Classes.Ord a_105 => GHC.Classes.Ord (BreakStatement a_105) + +deriving instance GHC.Show.Show a_106 => GHC.Show.Show (BreakStatement a_106) + +instance AST.Unmarshal.Unmarshal BreakStatement + +instance Data.Foldable.Foldable BreakStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BreakStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BreakStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CaseStatement a = CaseStatement + { ann :: a, + value :: (AST.Parse.Err (Expression a)), + extraChildren :: ([AST.Parse.Err (Statement a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_107. + AST.Traversable1.Class.Traversable1 a_107 + ) + +instance AST.Unmarshal.SymbolMatching CaseStatement where + matchedSymbols _ = [231] + showFailure _ node_108 = + "expected " + GHC.Base.<> ( "case_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_108 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_108) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_109 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_110 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_111 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_112 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_109 + c1_110 = TreeSitter.Node.nodeStartPoint node_108 + TreeSitter.Node.TSPoint + r2_111 + c2_112 = TreeSitter.Node.nodeEndPoint node_108 + +deriving instance GHC.Classes.Eq a_113 => GHC.Classes.Eq (CaseStatement a_113) + +deriving instance GHC.Classes.Ord a_114 => GHC.Classes.Ord (CaseStatement a_114) + +deriving instance GHC.Show.Show a_115 => GHC.Show.Show (CaseStatement a_115) + +instance AST.Unmarshal.Unmarshal CaseStatement + +instance Data.Foldable.Foldable CaseStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CaseStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CaseStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CastExpression a = CastExpression + { ann :: a, + value :: (AST.Parse.Err ((PrimaryExpression GHC.Generics.:+: CloneExpression GHC.Generics.:+: ExponentiationExpression GHC.Generics.:+: UnaryOpExpression) a)), + type' :: (AST.Parse.Err (CastType a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_116. + AST.Traversable1.Class.Traversable1 a_116 + ) + +instance AST.Unmarshal.SymbolMatching CastExpression where + matchedSymbols _ = [249, 250] + showFailure _ node_117 = + "expected " + GHC.Base.<> ( "cast_expression, cast_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_117 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_117) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_118 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_119 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_120 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_121 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_118 + c1_119 = TreeSitter.Node.nodeStartPoint node_117 + TreeSitter.Node.TSPoint + r2_120 + c2_121 = TreeSitter.Node.nodeEndPoint node_117 + +deriving instance GHC.Classes.Eq a_122 => GHC.Classes.Eq (CastExpression a_122) + +deriving instance GHC.Classes.Ord a_123 => GHC.Classes.Ord (CastExpression a_123) + +deriving instance GHC.Show.Show a_124 => GHC.Show.Show (CastExpression a_124) + +instance AST.Unmarshal.Unmarshal CastExpression + +instance Data.Foldable.Foldable CastExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CastExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CastExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CastType a = CastType {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_125. + AST.Traversable1.Class.Traversable1 a_125 + ) + +instance AST.Unmarshal.SymbolMatching CastType where + matchedSymbols _ = [200] + showFailure _ node_126 = + "expected " + GHC.Base.<> ( "cast_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_126 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_126) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_127 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_128 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_129 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_130 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_127 + c1_128 = TreeSitter.Node.nodeStartPoint node_126 + TreeSitter.Node.TSPoint + r2_129 + c2_130 = TreeSitter.Node.nodeEndPoint node_126 + +deriving instance GHC.Classes.Eq a_131 => GHC.Classes.Eq (CastType a_131) + +deriving instance GHC.Classes.Ord a_132 => GHC.Classes.Ord (CastType a_132) + +deriving instance GHC.Show.Show a_133 => GHC.Show.Show (CastType a_133) + +instance AST.Unmarshal.Unmarshal CastType + +instance Data.Foldable.Foldable CastType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CastType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CastType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CatchClause a = CatchClause + { ann :: a, + body :: (AST.Parse.Err (CompoundStatement a)), + name :: (AST.Parse.Err (VariableName a)), + type' :: (AST.Parse.Err (TypeName a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_134. + AST.Traversable1.Class.Traversable1 a_134 + ) + +instance AST.Unmarshal.SymbolMatching CatchClause where + matchedSymbols _ = [208] + showFailure _ node_135 = + "expected " + GHC.Base.<> ( "catch_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_135 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_135) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_136 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_137 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_138 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_139 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_136 + c1_137 = TreeSitter.Node.nodeStartPoint node_135 + TreeSitter.Node.TSPoint + r2_138 + c2_139 = TreeSitter.Node.nodeEndPoint node_135 + +deriving instance GHC.Classes.Eq a_140 => GHC.Classes.Eq (CatchClause a_140) + +deriving instance GHC.Classes.Ord a_141 => GHC.Classes.Ord (CatchClause a_141) + +deriving instance GHC.Show.Show a_142 => GHC.Show.Show (CatchClause a_142) + +instance AST.Unmarshal.Unmarshal CatchClause + +instance Data.Foldable.Foldable CatchClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CatchClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CatchClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClassBaseClause a = ClassBaseClause + { ann :: a, + extraChildren :: (AST.Parse.Err (QualifiedName a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_143. + AST.Traversable1.Class.Traversable1 a_143 + ) + +instance AST.Unmarshal.SymbolMatching ClassBaseClause where + matchedSymbols _ = [177] + showFailure _ node_144 = + "expected " + GHC.Base.<> ( "class_base_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_144 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_144) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_145 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_146 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_147 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_148 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_145 + c1_146 = TreeSitter.Node.nodeStartPoint node_144 + TreeSitter.Node.TSPoint + r2_147 + c2_148 = TreeSitter.Node.nodeEndPoint node_144 + +deriving instance GHC.Classes.Eq a_149 => GHC.Classes.Eq (ClassBaseClause a_149) + +deriving instance GHC.Classes.Ord a_150 => GHC.Classes.Ord (ClassBaseClause a_150) + +deriving instance GHC.Show.Show a_151 => GHC.Show.Show (ClassBaseClause a_151) + +instance AST.Unmarshal.Unmarshal ClassBaseClause + +instance Data.Foldable.Foldable ClassBaseClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassBaseClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassBaseClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClassConstantAccessExpression a = ClassConstantAccessExpression + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayCreationExpression GHC.Generics.:+: CastExpression GHC.Generics.:+: ClassConstantAccessExpression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: FunctionCallExpression GHC.Generics.:+: Heredoc GHC.Generics.:+: MemberAccessExpression GHC.Generics.:+: MemberCallExpression GHC.Generics.:+: Name GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: QualifiedName GHC.Generics.:+: RelativeScope GHC.Generics.:+: ScopedCallExpression GHC.Generics.:+: ScopedPropertyAccessExpression GHC.Generics.:+: String GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: VariableName) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_152. + AST.Traversable1.Class.Traversable1 a_152 + ) + +instance AST.Unmarshal.SymbolMatching ClassConstantAccessExpression where + matchedSymbols _ = [243] + showFailure _ node_153 = + "expected " + GHC.Base.<> ( "class_constant_access_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_153 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_153) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_154 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_155 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_156 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_157 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_154 + c1_155 = TreeSitter.Node.nodeStartPoint node_153 + TreeSitter.Node.TSPoint + r2_156 + c2_157 = TreeSitter.Node.nodeEndPoint node_153 + +deriving instance GHC.Classes.Eq a_158 => GHC.Classes.Eq (ClassConstantAccessExpression a_158) + +deriving instance GHC.Classes.Ord a_159 => GHC.Classes.Ord (ClassConstantAccessExpression a_159) + +deriving instance GHC.Show.Show a_160 => GHC.Show.Show (ClassConstantAccessExpression a_160) + +instance AST.Unmarshal.Unmarshal ClassConstantAccessExpression + +instance Data.Foldable.Foldable ClassConstantAccessExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassConstantAccessExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassConstantAccessExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClassDeclaration a = ClassDeclaration + { ann :: a, + body :: (AST.Parse.Err (DeclarationList a)), + name :: (AST.Parse.Err (Name a)), + extraChildren :: ([AST.Parse.Err ((ClassBaseClause GHC.Generics.:+: ClassInterfaceClause GHC.Generics.:+: ClassModifier) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_161. + AST.Traversable1.Class.Traversable1 a_161 + ) + +instance AST.Unmarshal.SymbolMatching ClassDeclaration where + matchedSymbols _ = [174] + showFailure _ node_162 = + "expected " + GHC.Base.<> ( "class_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_162 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_162) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_163 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_164 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_165 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_166 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_163 + c1_164 = TreeSitter.Node.nodeStartPoint node_162 + TreeSitter.Node.TSPoint + r2_165 + c2_166 = TreeSitter.Node.nodeEndPoint node_162 + +deriving instance GHC.Classes.Eq a_167 => GHC.Classes.Eq (ClassDeclaration a_167) + +deriving instance GHC.Classes.Ord a_168 => GHC.Classes.Ord (ClassDeclaration a_168) + +deriving instance GHC.Show.Show a_169 => GHC.Show.Show (ClassDeclaration a_169) + +instance AST.Unmarshal.Unmarshal ClassDeclaration + +instance Data.Foldable.Foldable ClassDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClassInterfaceClause a = ClassInterfaceClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (QualifiedName a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_170. + AST.Traversable1.Class.Traversable1 a_170 + ) + +instance AST.Unmarshal.SymbolMatching ClassInterfaceClause where + matchedSymbols _ = [178] + showFailure _ node_171 = + "expected " + GHC.Base.<> ( "class_interface_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_171 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_171) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_172 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_173 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_174 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_175 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_172 + c1_173 = TreeSitter.Node.nodeStartPoint node_171 + TreeSitter.Node.TSPoint + r2_174 + c2_175 = TreeSitter.Node.nodeEndPoint node_171 + +deriving instance GHC.Classes.Eq a_176 => GHC.Classes.Eq (ClassInterfaceClause a_176) + +deriving instance GHC.Classes.Ord a_177 => GHC.Classes.Ord (ClassInterfaceClause a_177) + +deriving instance GHC.Show.Show a_178 => GHC.Show.Show (ClassInterfaceClause a_178) + +instance AST.Unmarshal.Unmarshal ClassInterfaceClause + +instance Data.Foldable.Foldable ClassInterfaceClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassInterfaceClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassInterfaceClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClassModifier a = ClassModifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_179. + AST.Traversable1.Class.Traversable1 a_179 + ) + +instance AST.Unmarshal.SymbolMatching ClassModifier where + matchedSymbols _ = [176] + showFailure _ node_180 = + "expected " + GHC.Base.<> ( "class_modifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_180 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_180) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_181 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_182 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_183 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_184 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_181 + c1_182 = TreeSitter.Node.nodeStartPoint node_180 + TreeSitter.Node.TSPoint + r2_183 + c2_184 = TreeSitter.Node.nodeEndPoint node_180 + +deriving instance GHC.Classes.Eq a_185 => GHC.Classes.Eq (ClassModifier a_185) + +deriving instance GHC.Classes.Ord a_186 => GHC.Classes.Ord (ClassModifier a_186) + +deriving instance GHC.Show.Show a_187 => GHC.Show.Show (ClassModifier a_187) + +instance AST.Unmarshal.Unmarshal ClassModifier + +instance Data.Foldable.Foldable ClassModifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassModifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassModifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CloneExpression a = CloneExpression + { ann :: a, + extraChildren :: (AST.Parse.Err (PrimaryExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_188. + AST.Traversable1.Class.Traversable1 a_188 + ) + +instance AST.Unmarshal.SymbolMatching CloneExpression where + matchedSymbols _ = [240] + showFailure _ node_189 = + "expected " + GHC.Base.<> ( "clone_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_189 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_189) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_190 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_191 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_192 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_193 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_190 + c1_191 = TreeSitter.Node.nodeStartPoint node_189 + TreeSitter.Node.TSPoint + r2_192 + c2_193 = TreeSitter.Node.nodeEndPoint node_189 + +deriving instance GHC.Classes.Eq a_194 => GHC.Classes.Eq (CloneExpression a_194) + +deriving instance GHC.Classes.Ord a_195 => GHC.Classes.Ord (CloneExpression a_195) + +deriving instance GHC.Show.Show a_196 => GHC.Show.Show (CloneExpression a_196) + +instance AST.Unmarshal.Unmarshal CloneExpression + +instance Data.Foldable.Foldable CloneExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CloneExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CloneExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ColonBlock a = ColonBlock + { ann :: a, + extraChildren :: ([AST.Parse.Err (Statement a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_197. + AST.Traversable1.Class.Traversable1 a_197 + ) + +instance AST.Unmarshal.SymbolMatching ColonBlock where + matchedSymbols _ = [224] + showFailure _ node_198 = + "expected " + GHC.Base.<> ( "colon_block" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_198 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_198) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_199 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_200 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_201 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_202 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_199 + c1_200 = TreeSitter.Node.nodeStartPoint node_198 + TreeSitter.Node.TSPoint + r2_201 + c2_202 = TreeSitter.Node.nodeEndPoint node_198 + +deriving instance GHC.Classes.Eq a_203 => GHC.Classes.Eq (ColonBlock a_203) + +deriving instance GHC.Classes.Ord a_204 => GHC.Classes.Ord (ColonBlock a_204) + +deriving instance GHC.Show.Show a_205 => GHC.Show.Show (ColonBlock a_205) + +instance AST.Unmarshal.Unmarshal ColonBlock + +instance Data.Foldable.Foldable ColonBlock where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ColonBlock where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ColonBlock where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CompoundStatement a = CompoundStatement + { ann :: a, + extraChildren :: ([AST.Parse.Err (Statement a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_206. + AST.Traversable1.Class.Traversable1 a_206 + ) + +instance AST.Unmarshal.SymbolMatching CompoundStatement where + matchedSymbols _ = [233] + showFailure _ node_207 = + "expected " + GHC.Base.<> ( "compound_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_207 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_207) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_208 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_209 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_210 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_211 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_208 + c1_209 = TreeSitter.Node.nodeStartPoint node_207 + TreeSitter.Node.TSPoint + r2_210 + c2_211 = TreeSitter.Node.nodeEndPoint node_207 + +deriving instance GHC.Classes.Eq a_212 => GHC.Classes.Eq (CompoundStatement a_212) + +deriving instance GHC.Classes.Ord a_213 => GHC.Classes.Ord (CompoundStatement a_213) + +deriving instance GHC.Show.Show a_214 => GHC.Show.Show (CompoundStatement a_214) + +instance AST.Unmarshal.Unmarshal CompoundStatement + +instance Data.Foldable.Foldable CompoundStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CompoundStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CompoundStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ConditionalExpression a = ConditionalExpression + { ann :: a, + alternative :: (AST.Parse.Err (Expression a)), + body :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + condition :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_215. + AST.Traversable1.Class.Traversable1 a_215 + ) + +instance AST.Unmarshal.SymbolMatching ConditionalExpression where + matchedSymbols _ = [252] + showFailure _ node_216 = + "expected " + GHC.Base.<> ( "conditional_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_216 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_216) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_217 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_218 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_219 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_220 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_217 + c1_218 = TreeSitter.Node.nodeStartPoint node_216 + TreeSitter.Node.TSPoint + r2_219 + c2_220 = TreeSitter.Node.nodeEndPoint node_216 + +deriving instance GHC.Classes.Eq a_221 => GHC.Classes.Eq (ConditionalExpression a_221) + +deriving instance GHC.Classes.Ord a_222 => GHC.Classes.Ord (ConditionalExpression a_222) + +deriving instance GHC.Show.Show a_223 => GHC.Show.Show (ConditionalExpression a_223) + +instance AST.Unmarshal.Unmarshal ConditionalExpression + +instance Data.Foldable.Foldable ConditionalExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ConditionalExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ConditionalExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ConstDeclaration a = ConstDeclaration + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ConstElement GHC.Generics.:+: VisibilityModifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_224. + AST.Traversable1.Class.Traversable1 a_224 + ) + +instance AST.Unmarshal.SymbolMatching ConstDeclaration where + matchedSymbols _ = [180] + showFailure _ node_225 = + "expected " + GHC.Base.<> ( "const_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_225 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_225) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_226 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_227 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_228 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_229 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_226 + c1_227 = TreeSitter.Node.nodeStartPoint node_225 + TreeSitter.Node.TSPoint + r2_228 + c2_229 = TreeSitter.Node.nodeEndPoint node_225 + +deriving instance GHC.Classes.Eq a_230 => GHC.Classes.Eq (ConstDeclaration a_230) + +deriving instance GHC.Classes.Ord a_231 => GHC.Classes.Ord (ConstDeclaration a_231) + +deriving instance GHC.Show.Show a_232 => GHC.Show.Show (ConstDeclaration a_232) + +instance AST.Unmarshal.Unmarshal ConstDeclaration + +instance Data.Foldable.Foldable ConstDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ConstDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ConstDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ConstElement a = ConstElement + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: Name) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_233. + AST.Traversable1.Class.Traversable1 a_233 + ) + +instance AST.Unmarshal.SymbolMatching ConstElement where + matchedSymbols _ = [202] + showFailure _ node_234 = + "expected " + GHC.Base.<> ( "const_element" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_234 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_234) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_235 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_236 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_237 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_238 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_235 + c1_236 = TreeSitter.Node.nodeStartPoint node_234 + TreeSitter.Node.TSPoint + r2_237 + c2_238 = TreeSitter.Node.nodeEndPoint node_234 + +deriving instance GHC.Classes.Eq a_239 => GHC.Classes.Eq (ConstElement a_239) + +deriving instance GHC.Classes.Ord a_240 => GHC.Classes.Ord (ConstElement a_240) + +deriving instance GHC.Show.Show a_241 => GHC.Show.Show (ConstElement a_241) + +instance AST.Unmarshal.Unmarshal ConstElement + +instance Data.Foldable.Foldable ConstElement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ConstElement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ConstElement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ContinueStatement a = ContinueStatement + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_242. + AST.Traversable1.Class.Traversable1 a_242 + ) + +instance AST.Unmarshal.SymbolMatching ContinueStatement where + matchedSymbols _ = [212] + showFailure _ node_243 = + "expected " + GHC.Base.<> ( "continue_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_243 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_243) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_244 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_245 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_246 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_247 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_244 + c1_245 = TreeSitter.Node.nodeStartPoint node_243 + TreeSitter.Node.TSPoint + r2_246 + c2_247 = TreeSitter.Node.nodeEndPoint node_243 + +deriving instance GHC.Classes.Eq a_248 => GHC.Classes.Eq (ContinueStatement a_248) + +deriving instance GHC.Classes.Ord a_249 => GHC.Classes.Ord (ContinueStatement a_249) + +deriving instance GHC.Show.Show a_250 => GHC.Show.Show (ContinueStatement a_250) + +instance AST.Unmarshal.Unmarshal ContinueStatement + +instance Data.Foldable.Foldable ContinueStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ContinueStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ContinueStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DeclarationList a = DeclarationList + { ann :: a, + extraChildren :: ([AST.Parse.Err ((ConstDeclaration GHC.Generics.:+: MethodDeclaration GHC.Generics.:+: PropertyDeclaration GHC.Generics.:+: UseDeclaration) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_251. + AST.Traversable1.Class.Traversable1 a_251 + ) + +instance AST.Unmarshal.SymbolMatching DeclarationList where + matchedSymbols _ = [175] + showFailure _ node_252 = + "expected " + GHC.Base.<> ( "declaration_list" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_252 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_252) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_253 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_254 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_255 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_256 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_253 + c1_254 = TreeSitter.Node.nodeStartPoint node_252 + TreeSitter.Node.TSPoint + r2_255 + c2_256 = TreeSitter.Node.nodeEndPoint node_252 + +deriving instance GHC.Classes.Eq a_257 => GHC.Classes.Eq (DeclarationList a_257) + +deriving instance GHC.Classes.Ord a_258 => GHC.Classes.Ord (DeclarationList a_258) + +deriving instance GHC.Show.Show a_259 => GHC.Show.Show (DeclarationList a_259) + +instance AST.Unmarshal.Unmarshal DeclarationList + +instance Data.Foldable.Foldable DeclarationList where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DeclarationList where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DeclarationList where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DeclareDirective a = DeclareDirective + { ann :: a, + extraChildren :: (AST.Parse.Err (Literal a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_260. + AST.Traversable1.Class.Traversable1 a_260 + ) + +instance AST.Unmarshal.SymbolMatching DeclareDirective where + matchedSymbols _ = [206] + showFailure _ node_261 = + "expected " + GHC.Base.<> ( "declare_directive" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_261 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_261) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_262 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_263 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_264 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_265 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_262 + c1_263 = TreeSitter.Node.nodeStartPoint node_261 + TreeSitter.Node.TSPoint + r2_264 + c2_265 = TreeSitter.Node.nodeEndPoint node_261 + +deriving instance GHC.Classes.Eq a_266 => GHC.Classes.Eq (DeclareDirective a_266) + +deriving instance GHC.Classes.Ord a_267 => GHC.Classes.Ord (DeclareDirective a_267) + +deriving instance GHC.Show.Show a_268 => GHC.Show.Show (DeclareDirective a_268) + +instance AST.Unmarshal.Unmarshal DeclareDirective + +instance Data.Foldable.Foldable DeclareDirective where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DeclareDirective where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DeclareDirective where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DeclareStatement a = DeclareStatement + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Statement GHC.Generics.:+: DeclareDirective) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_269. + AST.Traversable1.Class.Traversable1 a_269 + ) + +instance AST.Unmarshal.SymbolMatching DeclareStatement where + matchedSymbols _ = [205] + showFailure _ node_270 = + "expected " + GHC.Base.<> ( "declare_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_270 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_270) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_271 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_272 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_273 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_274 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_271 + c1_272 = TreeSitter.Node.nodeStartPoint node_270 + TreeSitter.Node.TSPoint + r2_273 + c2_274 = TreeSitter.Node.nodeEndPoint node_270 + +deriving instance GHC.Classes.Eq a_275 => GHC.Classes.Eq (DeclareStatement a_275) + +deriving instance GHC.Classes.Ord a_276 => GHC.Classes.Ord (DeclareStatement a_276) + +deriving instance GHC.Show.Show a_277 => GHC.Show.Show (DeclareStatement a_277) + +instance AST.Unmarshal.Unmarshal DeclareStatement + +instance Data.Foldable.Foldable DeclareStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DeclareStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DeclareStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DefaultStatement a = DefaultStatement + { ann :: a, + extraChildren :: ([AST.Parse.Err (Statement a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_278. + AST.Traversable1.Class.Traversable1 a_278 + ) + +instance AST.Unmarshal.SymbolMatching DefaultStatement where + matchedSymbols _ = [232] + showFailure _ node_279 = + "expected " + GHC.Base.<> ( "default_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_279 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_279) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_280 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_281 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_282 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_283 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_280 + c1_281 = TreeSitter.Node.nodeStartPoint node_279 + TreeSitter.Node.TSPoint + r2_282 + c2_283 = TreeSitter.Node.nodeEndPoint node_279 + +deriving instance GHC.Classes.Eq a_284 => GHC.Classes.Eq (DefaultStatement a_284) + +deriving instance GHC.Classes.Ord a_285 => GHC.Classes.Ord (DefaultStatement a_285) + +deriving instance GHC.Show.Show a_286 => GHC.Show.Show (DefaultStatement a_286) + +instance AST.Unmarshal.Unmarshal DefaultStatement + +instance Data.Foldable.Foldable DefaultStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DefaultStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DefaultStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DoStatement a = DoStatement + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + condition :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_287. + AST.Traversable1.Class.Traversable1 a_287 + ) + +instance AST.Unmarshal.SymbolMatching DoStatement where + matchedSymbols _ = [217] + showFailure _ node_288 = + "expected " + GHC.Base.<> ( "do_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_288 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_288) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_289 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_290 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_291 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_292 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_289 + c1_290 = TreeSitter.Node.nodeStartPoint node_288 + TreeSitter.Node.TSPoint + r2_291 + c2_292 = TreeSitter.Node.nodeEndPoint node_288 + +deriving instance GHC.Classes.Eq a_293 => GHC.Classes.Eq (DoStatement a_293) + +deriving instance GHC.Classes.Ord a_294 => GHC.Classes.Ord (DoStatement a_294) + +deriving instance GHC.Show.Show a_295 => GHC.Show.Show (DoStatement a_295) + +instance AST.Unmarshal.Unmarshal DoStatement + +instance Data.Foldable.Foldable DoStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DoStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DoStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DynamicVariableName a = DynamicVariableName + { ann :: a, + extraChildren :: (AST.Parse.Err ((Expression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: VariableName) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_296. + AST.Traversable1.Class.Traversable1 a_296 + ) + +instance AST.Unmarshal.SymbolMatching DynamicVariableName where + matchedSymbols _ = [268] + showFailure _ node_297 = + "expected " + GHC.Base.<> ( "dynamic_variable_name" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_297 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_297) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_298 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_299 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_300 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_301 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_298 + c1_299 = TreeSitter.Node.nodeStartPoint node_297 + TreeSitter.Node.TSPoint + r2_300 + c2_301 = TreeSitter.Node.nodeEndPoint node_297 + +deriving instance GHC.Classes.Eq a_302 => GHC.Classes.Eq (DynamicVariableName a_302) + +deriving instance GHC.Classes.Ord a_303 => GHC.Classes.Ord (DynamicVariableName a_303) + +deriving instance GHC.Show.Show a_304 => GHC.Show.Show (DynamicVariableName a_304) + +instance AST.Unmarshal.Unmarshal DynamicVariableName + +instance Data.Foldable.Foldable DynamicVariableName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DynamicVariableName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DynamicVariableName where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EchoStatement a = EchoStatement + { ann :: a, + extraChildren :: (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_305. + AST.Traversable1.Class.Traversable1 a_305 + ) + +instance AST.Unmarshal.SymbolMatching EchoStatement where + matchedSymbols _ = [203] + showFailure _ node_306 = + "expected " + GHC.Base.<> ( "echo_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_306 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_306) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_307 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_308 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_309 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_310 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_307 + c1_308 = TreeSitter.Node.nodeStartPoint node_306 + TreeSitter.Node.TSPoint + r2_309 + c2_310 = TreeSitter.Node.nodeEndPoint node_306 + +deriving instance GHC.Classes.Eq a_311 => GHC.Classes.Eq (EchoStatement a_311) + +deriving instance GHC.Classes.Ord a_312 => GHC.Classes.Ord (EchoStatement a_312) + +deriving instance GHC.Show.Show a_313 => GHC.Show.Show (EchoStatement a_313) + +instance AST.Unmarshal.Unmarshal EchoStatement + +instance Data.Foldable.Foldable EchoStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EchoStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EchoStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ElseClause a = ElseClause + { ann :: a, + body :: (AST.Parse.Err ((Statement GHC.Generics.:+: ColonBlock) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_314. + AST.Traversable1.Class.Traversable1 a_314 + ) + +instance AST.Unmarshal.SymbolMatching ElseClause where + matchedSymbols _ = [226, 228] + showFailure _ node_315 = + "expected " + GHC.Base.<> ( "else_clause, else_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_315 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_315) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_316 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_317 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_318 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_319 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_316 + c1_317 = TreeSitter.Node.nodeStartPoint node_315 + TreeSitter.Node.TSPoint + r2_318 + c2_319 = TreeSitter.Node.nodeEndPoint node_315 + +deriving instance GHC.Classes.Eq a_320 => GHC.Classes.Eq (ElseClause a_320) + +deriving instance GHC.Classes.Ord a_321 => GHC.Classes.Ord (ElseClause a_321) + +deriving instance GHC.Show.Show a_322 => GHC.Show.Show (ElseClause a_322) + +instance AST.Unmarshal.Unmarshal ElseClause + +instance Data.Foldable.Foldable ElseClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ElseClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ElseClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ElseIfClause a = ElseIfClause + { ann :: a, + body :: (AST.Parse.Err ((Statement GHC.Generics.:+: ColonBlock) a)), + condition :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_323. + AST.Traversable1.Class.Traversable1 a_323 + ) + +instance AST.Unmarshal.SymbolMatching ElseIfClause where + matchedSymbols _ = [225, 227] + showFailure _ node_324 = + "expected " + GHC.Base.<> ( "else_if_clause, else_if_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_324 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_324) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_325 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_326 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_327 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_328 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_325 + c1_326 = TreeSitter.Node.nodeStartPoint node_324 + TreeSitter.Node.TSPoint + r2_327 + c2_328 = TreeSitter.Node.nodeEndPoint node_324 + +deriving instance GHC.Classes.Eq a_329 => GHC.Classes.Eq (ElseIfClause a_329) + +deriving instance GHC.Classes.Ord a_330 => GHC.Classes.Ord (ElseIfClause a_330) + +deriving instance GHC.Show.Show a_331 => GHC.Show.Show (ElseIfClause a_331) + +instance AST.Unmarshal.Unmarshal ElseIfClause + +instance Data.Foldable.Foldable ElseIfClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ElseIfClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ElseIfClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EmptyStatement a = EmptyStatement {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_332. + AST.Traversable1.Class.Traversable1 a_332 + ) + +instance AST.Unmarshal.SymbolMatching EmptyStatement where + matchedSymbols _ = [157] + showFailure _ node_333 = + "expected " + GHC.Base.<> ( "empty_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_333 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_333) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_334 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_335 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_336 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_337 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_334 + c1_335 = TreeSitter.Node.nodeStartPoint node_333 + TreeSitter.Node.TSPoint + r2_336 + c2_337 = TreeSitter.Node.nodeEndPoint node_333 + +deriving instance GHC.Classes.Eq a_338 => GHC.Classes.Eq (EmptyStatement a_338) + +deriving instance GHC.Classes.Ord a_339 => GHC.Classes.Ord (EmptyStatement a_339) + +deriving instance GHC.Show.Show a_340 => GHC.Show.Show (EmptyStatement a_340) + +instance AST.Unmarshal.Unmarshal EmptyStatement + +instance Data.Foldable.Foldable EmptyStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EmptyStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EmptyStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExponentiationExpression a = ExponentiationExpression + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((PrimaryExpression GHC.Generics.:+: CloneExpression GHC.Generics.:+: ExponentiationExpression) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_341. + AST.Traversable1.Class.Traversable1 a_341 + ) + +instance AST.Unmarshal.SymbolMatching ExponentiationExpression where + matchedSymbols _ = [239] + showFailure _ node_342 = + "expected " + GHC.Base.<> ( "exponentiation_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_342 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_342) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_343 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_344 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_345 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_346 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_343 + c1_344 = TreeSitter.Node.nodeStartPoint node_342 + TreeSitter.Node.TSPoint + r2_345 + c2_346 = TreeSitter.Node.nodeEndPoint node_342 + +deriving instance GHC.Classes.Eq a_347 => GHC.Classes.Eq (ExponentiationExpression a_347) + +deriving instance GHC.Classes.Ord a_348 => GHC.Classes.Ord (ExponentiationExpression a_348) + +deriving instance GHC.Show.Show a_349 => GHC.Show.Show (ExponentiationExpression a_349) + +instance AST.Unmarshal.Unmarshal ExponentiationExpression + +instance Data.Foldable.Foldable ExponentiationExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExponentiationExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExponentiationExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExpressionStatement a = ExpressionStatement + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_350. + AST.Traversable1.Class.Traversable1 a_350 + ) + +instance AST.Unmarshal.SymbolMatching ExpressionStatement where + matchedSymbols _ = [235] + showFailure _ node_351 = + "expected " + GHC.Base.<> ( "expression_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_351 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_351) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_352 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_353 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_354 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_355 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_352 + c1_353 = TreeSitter.Node.nodeStartPoint node_351 + TreeSitter.Node.TSPoint + r2_354 + c2_355 = TreeSitter.Node.nodeEndPoint node_351 + +deriving instance GHC.Classes.Eq a_356 => GHC.Classes.Eq (ExpressionStatement a_356) + +deriving instance GHC.Classes.Ord a_357 => GHC.Classes.Ord (ExpressionStatement a_357) + +deriving instance GHC.Show.Show a_358 => GHC.Show.Show (ExpressionStatement a_358) + +instance AST.Unmarshal.Unmarshal ExpressionStatement + +instance Data.Foldable.Foldable ExpressionStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExpressionStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExpressionStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FinallyClause a = FinallyClause + { ann :: a, + body :: (AST.Parse.Err (CompoundStatement a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_359. + AST.Traversable1.Class.Traversable1 a_359 + ) + +instance AST.Unmarshal.SymbolMatching FinallyClause where + matchedSymbols _ = [209] + showFailure _ node_360 = + "expected " + GHC.Base.<> ( "finally_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_360 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_360) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_361 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_362 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_363 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_364 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_361 + c1_362 = TreeSitter.Node.nodeStartPoint node_360 + TreeSitter.Node.TSPoint + r2_363 + c2_364 = TreeSitter.Node.nodeEndPoint node_360 + +deriving instance GHC.Classes.Eq a_365 => GHC.Classes.Eq (FinallyClause a_365) + +deriving instance GHC.Classes.Ord a_366 => GHC.Classes.Ord (FinallyClause a_366) + +deriving instance GHC.Show.Show a_367 => GHC.Show.Show (FinallyClause a_367) + +instance AST.Unmarshal.Unmarshal FinallyClause + +instance Data.Foldable.Foldable FinallyClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FinallyClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FinallyClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ForStatement a = ForStatement + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Expression GHC.Generics.:+: Statement GHC.Generics.:+: SequenceExpression) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_368. + AST.Traversable1.Class.Traversable1 a_368 + ) + +instance AST.Unmarshal.SymbolMatching ForStatement where + matchedSymbols _ = [218] + showFailure _ node_369 = + "expected " + GHC.Base.<> ( "for_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_369 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_369) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_370 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_371 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_372 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_373 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_370 + c1_371 = TreeSitter.Node.nodeStartPoint node_369 + TreeSitter.Node.TSPoint + r2_372 + c2_373 = TreeSitter.Node.nodeEndPoint node_369 + +deriving instance GHC.Classes.Eq a_374 => GHC.Classes.Eq (ForStatement a_374) + +deriving instance GHC.Classes.Ord a_375 => GHC.Classes.Ord (ForStatement a_375) + +deriving instance GHC.Show.Show a_376 => GHC.Show.Show (ForStatement a_376) + +instance AST.Unmarshal.Unmarshal ForStatement + +instance Data.Foldable.Foldable ForStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ForStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ForStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ForeachStatement a = ForeachStatement + { ann :: a, + body :: (GHC.Maybe.Maybe (AST.Parse.Err ((Statement GHC.Generics.:+: ColonBlock) a))), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: ListLiteral GHC.Generics.:+: Pair) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_377. + AST.Traversable1.Class.Traversable1 a_377 + ) + +instance AST.Unmarshal.SymbolMatching ForeachStatement where + matchedSymbols _ = [221] + showFailure _ node_378 = + "expected " + GHC.Base.<> ( "foreach_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_378 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_378) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_379 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_380 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_381 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_382 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_379 + c1_380 = TreeSitter.Node.nodeStartPoint node_378 + TreeSitter.Node.TSPoint + r2_381 + c2_382 = TreeSitter.Node.nodeEndPoint node_378 + +deriving instance GHC.Classes.Eq a_383 => GHC.Classes.Eq (ForeachStatement a_383) + +deriving instance GHC.Classes.Ord a_384 => GHC.Classes.Ord (ForeachStatement a_384) + +deriving instance GHC.Show.Show a_385 => GHC.Show.Show (ForeachStatement a_385) + +instance AST.Unmarshal.Unmarshal ForeachStatement + +instance Data.Foldable.Foldable ForeachStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ForeachStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ForeachStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FormalParameters a = FormalParameters + { ann :: a, + extraChildren :: ([AST.Parse.Err ((SimpleParameter GHC.Generics.:+: VariadicParameter) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_386. + AST.Traversable1.Class.Traversable1 a_386 + ) + +instance AST.Unmarshal.SymbolMatching FormalParameters where + matchedSymbols _ = [194] + showFailure _ node_387 = + "expected " + GHC.Base.<> ( "formal_parameters" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_387 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_387) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_388 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_389 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_390 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_391 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_388 + c1_389 = TreeSitter.Node.nodeStartPoint node_387 + TreeSitter.Node.TSPoint + r2_390 + c2_391 = TreeSitter.Node.nodeEndPoint node_387 + +deriving instance GHC.Classes.Eq a_392 => GHC.Classes.Eq (FormalParameters a_392) + +deriving instance GHC.Classes.Ord a_393 => GHC.Classes.Ord (FormalParameters a_393) + +deriving instance GHC.Show.Show a_394 => GHC.Show.Show (FormalParameters a_394) + +instance AST.Unmarshal.Unmarshal FormalParameters + +instance Data.Foldable.Foldable FormalParameters where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FormalParameters where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FormalParameters where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FunctionCallExpression a = FunctionCallExpression + { ann :: a, + function :: (AST.Parse.Err ((ArrayCreationExpression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: FunctionCallExpression GHC.Generics.:+: Heredoc GHC.Generics.:+: MemberCallExpression GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: QualifiedName GHC.Generics.:+: ScopedCallExpression GHC.Generics.:+: String GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: VariableName) a)), + arguments :: (AST.Parse.Err (Arguments a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_395. + AST.Traversable1.Class.Traversable1 a_395 + ) + +instance AST.Unmarshal.SymbolMatching FunctionCallExpression where + matchedSymbols _ = [257] + showFailure _ node_396 = + "expected " + GHC.Base.<> ( "function_call_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_396 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_396) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_397 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_398 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_399 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_400 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_397 + c1_398 = TreeSitter.Node.nodeStartPoint node_396 + TreeSitter.Node.TSPoint + r2_399 + c2_400 = TreeSitter.Node.nodeEndPoint node_396 + +deriving instance GHC.Classes.Eq a_401 => GHC.Classes.Eq (FunctionCallExpression a_401) + +deriving instance GHC.Classes.Ord a_402 => GHC.Classes.Ord (FunctionCallExpression a_402) + +deriving instance GHC.Show.Show a_403 => GHC.Show.Show (FunctionCallExpression a_403) + +instance AST.Unmarshal.Unmarshal FunctionCallExpression + +instance Data.Foldable.Foldable FunctionCallExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FunctionCallExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FunctionCallExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FunctionDefinition a = FunctionDefinition + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (Type a))), + body :: (AST.Parse.Err (CompoundStatement a)), + name :: (AST.Parse.Err (Name a)), + parameters :: (AST.Parse.Err (FormalParameters a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_404. + AST.Traversable1.Class.Traversable1 a_404 + ) + +instance AST.Unmarshal.SymbolMatching FunctionDefinition where + matchedSymbols _ = [192] + showFailure _ node_405 = + "expected " + GHC.Base.<> ( "function_definition" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_405 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_405) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_406 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_407 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_408 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_409 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_406 + c1_407 = TreeSitter.Node.nodeStartPoint node_405 + TreeSitter.Node.TSPoint + r2_408 + c2_409 = TreeSitter.Node.nodeEndPoint node_405 + +deriving instance GHC.Classes.Eq a_410 => GHC.Classes.Eq (FunctionDefinition a_410) + +deriving instance GHC.Classes.Ord a_411 => GHC.Classes.Ord (FunctionDefinition a_411) + +deriving instance GHC.Show.Show a_412 => GHC.Show.Show (FunctionDefinition a_412) + +instance AST.Unmarshal.Unmarshal FunctionDefinition + +instance Data.Foldable.Foldable FunctionDefinition where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FunctionDefinition where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FunctionDefinition where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FunctionStaticDeclaration a = FunctionStaticDeclaration + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (StaticVariableDeclaration a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_413. + AST.Traversable1.Class.Traversable1 a_413 + ) + +instance AST.Unmarshal.SymbolMatching FunctionStaticDeclaration where + matchedSymbols _ = [158] + showFailure _ node_414 = + "expected " + GHC.Base.<> ( "function_static_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_414 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_414) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_415 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_416 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_417 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_418 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_415 + c1_416 = TreeSitter.Node.nodeStartPoint node_414 + TreeSitter.Node.TSPoint + r2_417 + c2_418 = TreeSitter.Node.nodeEndPoint node_414 + +deriving instance GHC.Classes.Eq a_419 => GHC.Classes.Eq (FunctionStaticDeclaration a_419) + +deriving instance GHC.Classes.Ord a_420 => GHC.Classes.Ord (FunctionStaticDeclaration a_420) + +deriving instance GHC.Show.Show a_421 => GHC.Show.Show (FunctionStaticDeclaration a_421) + +instance AST.Unmarshal.Unmarshal FunctionStaticDeclaration + +instance Data.Foldable.Foldable FunctionStaticDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FunctionStaticDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FunctionStaticDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data GlobalDeclaration a = GlobalDeclaration + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((DynamicVariableName GHC.Generics.:+: VariableName) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_422. + AST.Traversable1.Class.Traversable1 a_422 + ) + +instance AST.Unmarshal.SymbolMatching GlobalDeclaration where + matchedSymbols _ = [160] + showFailure _ node_423 = + "expected " + GHC.Base.<> ( "global_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_423 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_423) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_424 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_425 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_426 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_427 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_424 + c1_425 = TreeSitter.Node.nodeStartPoint node_423 + TreeSitter.Node.TSPoint + r2_426 + c2_427 = TreeSitter.Node.nodeEndPoint node_423 + +deriving instance GHC.Classes.Eq a_428 => GHC.Classes.Eq (GlobalDeclaration a_428) + +deriving instance GHC.Classes.Ord a_429 => GHC.Classes.Ord (GlobalDeclaration a_429) + +deriving instance GHC.Show.Show a_430 => GHC.Show.Show (GlobalDeclaration a_430) + +instance AST.Unmarshal.Unmarshal GlobalDeclaration + +instance Data.Foldable.Foldable GlobalDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor GlobalDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable GlobalDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data GotoStatement a = GotoStatement + { ann :: a, + extraChildren :: (AST.Parse.Err (Name a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_431. + AST.Traversable1.Class.Traversable1 a_431 + ) + +instance AST.Unmarshal.SymbolMatching GotoStatement where + matchedSymbols _ = [211] + showFailure _ node_432 = + "expected " + GHC.Base.<> ( "goto_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_432 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_432) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_433 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_434 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_435 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_436 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_433 + c1_434 = TreeSitter.Node.nodeStartPoint node_432 + TreeSitter.Node.TSPoint + r2_435 + c2_436 = TreeSitter.Node.nodeEndPoint node_432 + +deriving instance GHC.Classes.Eq a_437 => GHC.Classes.Eq (GotoStatement a_437) + +deriving instance GHC.Classes.Ord a_438 => GHC.Classes.Ord (GotoStatement a_438) + +deriving instance GHC.Show.Show a_439 => GHC.Show.Show (GotoStatement a_439) + +instance AST.Unmarshal.Unmarshal GotoStatement + +instance Data.Foldable.Foldable GotoStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor GotoStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable GotoStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IfStatement a = IfStatement + { ann :: a, + alternative :: ([AST.Parse.Err ((ElseClause GHC.Generics.:+: ElseIfClause) a)]), + body :: (AST.Parse.Err ((Statement GHC.Generics.:+: ColonBlock) a)), + condition :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_440. + AST.Traversable1.Class.Traversable1 a_440 + ) + +instance AST.Unmarshal.SymbolMatching IfStatement where + matchedSymbols _ = [223] + showFailure _ node_441 = + "expected " + GHC.Base.<> ( "if_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_441 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_441) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_442 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_443 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_444 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_445 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_442 + c1_443 = TreeSitter.Node.nodeStartPoint node_441 + TreeSitter.Node.TSPoint + r2_444 + c2_445 = TreeSitter.Node.nodeEndPoint node_441 + +deriving instance GHC.Classes.Eq a_446 => GHC.Classes.Eq (IfStatement a_446) + +deriving instance GHC.Classes.Ord a_447 => GHC.Classes.Ord (IfStatement a_447) + +deriving instance GHC.Show.Show a_448 => GHC.Show.Show (IfStatement a_448) + +instance AST.Unmarshal.Unmarshal IfStatement + +instance Data.Foldable.Foldable IfStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IfStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IfStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IncludeExpression a = IncludeExpression + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_449. + AST.Traversable1.Class.Traversable1 a_449 + ) + +instance AST.Unmarshal.SymbolMatching IncludeExpression where + matchedSymbols _ = [273] + showFailure _ node_450 = + "expected " + GHC.Base.<> ( "include_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_450 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_450) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_451 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_452 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_453 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_454 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_451 + c1_452 = TreeSitter.Node.nodeStartPoint node_450 + TreeSitter.Node.TSPoint + r2_453 + c2_454 = TreeSitter.Node.nodeEndPoint node_450 + +deriving instance GHC.Classes.Eq a_455 => GHC.Classes.Eq (IncludeExpression a_455) + +deriving instance GHC.Classes.Ord a_456 => GHC.Classes.Ord (IncludeExpression a_456) + +deriving instance GHC.Show.Show a_457 => GHC.Show.Show (IncludeExpression a_457) + +instance AST.Unmarshal.Unmarshal IncludeExpression + +instance Data.Foldable.Foldable IncludeExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IncludeExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IncludeExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IncludeOnceExpression a = IncludeOnceExpression + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_458. + AST.Traversable1.Class.Traversable1 a_458 + ) + +instance AST.Unmarshal.SymbolMatching IncludeOnceExpression where + matchedSymbols _ = [274] + showFailure _ node_459 = + "expected " + GHC.Base.<> ( "include_once_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_459 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_459) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_460 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_461 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_462 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_463 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_460 + c1_461 = TreeSitter.Node.nodeStartPoint node_459 + TreeSitter.Node.TSPoint + r2_462 + c2_463 = TreeSitter.Node.nodeEndPoint node_459 + +deriving instance GHC.Classes.Eq a_464 => GHC.Classes.Eq (IncludeOnceExpression a_464) + +deriving instance GHC.Classes.Ord a_465 => GHC.Classes.Ord (IncludeOnceExpression a_465) + +deriving instance GHC.Show.Show a_466 => GHC.Show.Show (IncludeOnceExpression a_466) + +instance AST.Unmarshal.Unmarshal IncludeOnceExpression + +instance Data.Foldable.Foldable IncludeOnceExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IncludeOnceExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IncludeOnceExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data InterfaceBaseClause a = InterfaceBaseClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (QualifiedName a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_467. + AST.Traversable1.Class.Traversable1 a_467 + ) + +instance AST.Unmarshal.SymbolMatching InterfaceBaseClause where + matchedSymbols _ = [173] + showFailure _ node_468 = + "expected " + GHC.Base.<> ( "interface_base_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_468 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_468) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_469 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_470 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_471 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_472 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_469 + c1_470 = TreeSitter.Node.nodeStartPoint node_468 + TreeSitter.Node.TSPoint + r2_471 + c2_472 = TreeSitter.Node.nodeEndPoint node_468 + +deriving instance GHC.Classes.Eq a_473 => GHC.Classes.Eq (InterfaceBaseClause a_473) + +deriving instance GHC.Classes.Ord a_474 => GHC.Classes.Ord (InterfaceBaseClause a_474) + +deriving instance GHC.Show.Show a_475 => GHC.Show.Show (InterfaceBaseClause a_475) + +instance AST.Unmarshal.Unmarshal InterfaceBaseClause + +instance Data.Foldable.Foldable InterfaceBaseClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor InterfaceBaseClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable InterfaceBaseClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data InterfaceDeclaration a = InterfaceDeclaration + { ann :: a, + body :: (AST.Parse.Err (DeclarationList a)), + name :: (AST.Parse.Err (Name a)), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (InterfaceBaseClause a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_476. + AST.Traversable1.Class.Traversable1 a_476 + ) + +instance AST.Unmarshal.SymbolMatching InterfaceDeclaration where + matchedSymbols _ = [172] + showFailure _ node_477 = + "expected " + GHC.Base.<> ( "interface_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_477 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_477) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_478 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_479 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_480 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_481 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_478 + c1_479 = TreeSitter.Node.nodeStartPoint node_477 + TreeSitter.Node.TSPoint + r2_480 + c2_481 = TreeSitter.Node.nodeEndPoint node_477 + +deriving instance GHC.Classes.Eq a_482 => GHC.Classes.Eq (InterfaceDeclaration a_482) + +deriving instance GHC.Classes.Ord a_483 => GHC.Classes.Ord (InterfaceDeclaration a_483) + +deriving instance GHC.Show.Show a_484 => GHC.Show.Show (InterfaceDeclaration a_484) + +instance AST.Unmarshal.Unmarshal InterfaceDeclaration + +instance Data.Foldable.Foldable InterfaceDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor InterfaceDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable InterfaceDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ListLiteral a = ListLiteral + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Expression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: FunctionCallExpression GHC.Generics.:+: ListLiteral GHC.Generics.:+: MemberAccessExpression GHC.Generics.:+: MemberCallExpression GHC.Generics.:+: ScopedCallExpression GHC.Generics.:+: ScopedPropertyAccessExpression GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: VariableName) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_485. + AST.Traversable1.Class.Traversable1 a_485 + ) + +instance AST.Unmarshal.SymbolMatching ListLiteral where + matchedSymbols _ = [256] + showFailure _ node_486 = + "expected " + GHC.Base.<> ( "list_literal" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_486 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_486) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_487 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_488 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_489 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_490 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_487 + c1_488 = TreeSitter.Node.nodeStartPoint node_486 + TreeSitter.Node.TSPoint + r2_489 + c2_490 = TreeSitter.Node.nodeEndPoint node_486 + +deriving instance GHC.Classes.Eq a_491 => GHC.Classes.Eq (ListLiteral a_491) + +deriving instance GHC.Classes.Ord a_492 => GHC.Classes.Ord (ListLiteral a_492) + +deriving instance GHC.Show.Show a_493 => GHC.Show.Show (ListLiteral a_493) + +instance AST.Unmarshal.Unmarshal ListLiteral + +instance Data.Foldable.Foldable ListLiteral where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ListLiteral where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ListLiteral where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MemberAccessExpression a = MemberAccessExpression + { ann :: a, + name :: (AST.Parse.Err ((Expression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: Name GHC.Generics.:+: VariableName) a)), + object :: (AST.Parse.Err ((ArrayCreationExpression GHC.Generics.:+: CastExpression GHC.Generics.:+: ClassConstantAccessExpression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: FunctionCallExpression GHC.Generics.:+: Heredoc GHC.Generics.:+: MemberAccessExpression GHC.Generics.:+: MemberCallExpression GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: ScopedCallExpression GHC.Generics.:+: ScopedPropertyAccessExpression GHC.Generics.:+: String GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: VariableName) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_494. + AST.Traversable1.Class.Traversable1 a_494 + ) + +instance AST.Unmarshal.SymbolMatching MemberAccessExpression where + matchedSymbols _ = [254] + showFailure _ node_495 = + "expected " + GHC.Base.<> ( "member_access_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_495 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_495) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_496 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_497 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_498 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_499 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_496 + c1_497 = TreeSitter.Node.nodeStartPoint node_495 + TreeSitter.Node.TSPoint + r2_498 + c2_499 = TreeSitter.Node.nodeEndPoint node_495 + +deriving instance GHC.Classes.Eq a_500 => GHC.Classes.Eq (MemberAccessExpression a_500) + +deriving instance GHC.Classes.Ord a_501 => GHC.Classes.Ord (MemberAccessExpression a_501) + +deriving instance GHC.Show.Show a_502 => GHC.Show.Show (MemberAccessExpression a_502) + +instance AST.Unmarshal.Unmarshal MemberAccessExpression + +instance Data.Foldable.Foldable MemberAccessExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MemberAccessExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MemberAccessExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MemberCallExpression a = MemberCallExpression + { ann :: a, + arguments :: (AST.Parse.Err (Arguments a)), + name :: (AST.Parse.Err ((Expression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: Name GHC.Generics.:+: VariableName) a)), + object :: (AST.Parse.Err ((ArrayCreationExpression GHC.Generics.:+: CastExpression GHC.Generics.:+: ClassConstantAccessExpression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: FunctionCallExpression GHC.Generics.:+: Heredoc GHC.Generics.:+: MemberAccessExpression GHC.Generics.:+: MemberCallExpression GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: ScopedCallExpression GHC.Generics.:+: ScopedPropertyAccessExpression GHC.Generics.:+: String GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: VariableName) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_503. + AST.Traversable1.Class.Traversable1 a_503 + ) + +instance AST.Unmarshal.SymbolMatching MemberCallExpression where + matchedSymbols _ = [262] + showFailure _ node_504 = + "expected " + GHC.Base.<> ( "member_call_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_504 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_504) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_505 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_506 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_507 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_508 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_505 + c1_506 = TreeSitter.Node.nodeStartPoint node_504 + TreeSitter.Node.TSPoint + r2_507 + c2_508 = TreeSitter.Node.nodeEndPoint node_504 + +deriving instance GHC.Classes.Eq a_509 => GHC.Classes.Eq (MemberCallExpression a_509) + +deriving instance GHC.Classes.Ord a_510 => GHC.Classes.Ord (MemberCallExpression a_510) + +deriving instance GHC.Show.Show a_511 => GHC.Show.Show (MemberCallExpression a_511) + +instance AST.Unmarshal.Unmarshal MemberCallExpression + +instance Data.Foldable.Foldable MemberCallExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MemberCallExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MemberCallExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MethodDeclaration a = MethodDeclaration + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (Type a))), + body :: (GHC.Maybe.Maybe (AST.Parse.Err (CompoundStatement a))), + name :: (AST.Parse.Err (Name a)), + parameters :: (AST.Parse.Err (FormalParameters a)), + extraChildren :: ([AST.Parse.Err ((ClassModifier GHC.Generics.:+: StaticModifier GHC.Generics.:+: VarModifier GHC.Generics.:+: VisibilityModifier) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_512. + AST.Traversable1.Class.Traversable1 a_512 + ) + +instance AST.Unmarshal.SymbolMatching MethodDeclaration where + matchedSymbols _ = [185] + showFailure _ node_513 = + "expected " + GHC.Base.<> ( "method_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_513 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_513) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_514 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_515 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_516 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_517 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_514 + c1_515 = TreeSitter.Node.nodeStartPoint node_513 + TreeSitter.Node.TSPoint + r2_516 + c2_517 = TreeSitter.Node.nodeEndPoint node_513 + +deriving instance GHC.Classes.Eq a_518 => GHC.Classes.Eq (MethodDeclaration a_518) + +deriving instance GHC.Classes.Ord a_519 => GHC.Classes.Ord (MethodDeclaration a_519) + +deriving instance GHC.Show.Show a_520 => GHC.Show.Show (MethodDeclaration a_520) + +instance AST.Unmarshal.Unmarshal MethodDeclaration + +instance Data.Foldable.Foldable MethodDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MethodDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MethodDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Name a = Name {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_521. + AST.Traversable1.Class.Traversable1 a_521 + ) + +instance AST.Unmarshal.SymbolMatching Name where + matchedSymbols _ = [1, 277] + showFailure _ node_522 = + "expected " + GHC.Base.<> ( "name, name" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_522 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_522) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_523 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_524 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_525 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_526 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_523 + c1_524 = TreeSitter.Node.nodeStartPoint node_522 + TreeSitter.Node.TSPoint + r2_525 + c2_526 = TreeSitter.Node.nodeEndPoint node_522 + +deriving instance GHC.Classes.Eq a_527 => GHC.Classes.Eq (Name a_527) + +deriving instance GHC.Classes.Ord a_528 => GHC.Classes.Ord (Name a_528) + +deriving instance GHC.Show.Show a_529 => GHC.Show.Show (Name a_529) + +instance AST.Unmarshal.Unmarshal Name + +instance Data.Foldable.Foldable Name where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Name where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Name where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NamedLabelStatement a = NamedLabelStatement + { ann :: a, + extraChildren :: (AST.Parse.Err (Name a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_530. + AST.Traversable1.Class.Traversable1 a_530 + ) + +instance AST.Unmarshal.SymbolMatching NamedLabelStatement where + matchedSymbols _ = [234] + showFailure _ node_531 = + "expected " + GHC.Base.<> ( "named_label_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_531 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_531) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_532 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_533 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_534 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_535 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_532 + c1_533 = TreeSitter.Node.nodeStartPoint node_531 + TreeSitter.Node.TSPoint + r2_534 + c2_535 = TreeSitter.Node.nodeEndPoint node_531 + +deriving instance GHC.Classes.Eq a_536 => GHC.Classes.Eq (NamedLabelStatement a_536) + +deriving instance GHC.Classes.Ord a_537 => GHC.Classes.Ord (NamedLabelStatement a_537) + +deriving instance GHC.Show.Show a_538 => GHC.Show.Show (NamedLabelStatement a_538) + +instance AST.Unmarshal.Unmarshal NamedLabelStatement + +instance Data.Foldable.Foldable NamedLabelStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NamedLabelStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NamedLabelStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NamespaceAliasingClause a = NamespaceAliasingClause + { ann :: a, + extraChildren :: (AST.Parse.Err (Name a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_539. + AST.Traversable1.Class.Traversable1 a_539 + ) + +instance AST.Unmarshal.SymbolMatching NamespaceAliasingClause where + matchedSymbols _ = [168] + showFailure _ node_540 = + "expected " + GHC.Base.<> ( "namespace_aliasing_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_540 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_540) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_541 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_542 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_543 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_544 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_541 + c1_542 = TreeSitter.Node.nodeStartPoint node_540 + TreeSitter.Node.TSPoint + r2_543 + c2_544 = TreeSitter.Node.nodeEndPoint node_540 + +deriving instance GHC.Classes.Eq a_545 => GHC.Classes.Eq (NamespaceAliasingClause a_545) + +deriving instance GHC.Classes.Ord a_546 => GHC.Classes.Ord (NamespaceAliasingClause a_546) + +deriving instance GHC.Show.Show a_547 => GHC.Show.Show (NamespaceAliasingClause a_547) + +instance AST.Unmarshal.Unmarshal NamespaceAliasingClause + +instance Data.Foldable.Foldable NamespaceAliasingClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NamespaceAliasingClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NamespaceAliasingClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NamespaceDefinition a = NamespaceDefinition + { ann :: a, + body :: (GHC.Maybe.Maybe (AST.Parse.Err (CompoundStatement a))), + name :: (GHC.Maybe.Maybe (AST.Parse.Err (NamespaceName a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_548. + AST.Traversable1.Class.Traversable1 a_548 + ) + +instance AST.Unmarshal.SymbolMatching NamespaceDefinition where + matchedSymbols _ = [161] + showFailure _ node_549 = + "expected " + GHC.Base.<> ( "namespace_definition" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_549 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_549) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_550 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_551 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_552 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_553 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_550 + c1_551 = TreeSitter.Node.nodeStartPoint node_549 + TreeSitter.Node.TSPoint + r2_552 + c2_553 = TreeSitter.Node.nodeEndPoint node_549 + +deriving instance GHC.Classes.Eq a_554 => GHC.Classes.Eq (NamespaceDefinition a_554) + +deriving instance GHC.Classes.Ord a_555 => GHC.Classes.Ord (NamespaceDefinition a_555) + +deriving instance GHC.Show.Show a_556 => GHC.Show.Show (NamespaceDefinition a_556) + +instance AST.Unmarshal.Unmarshal NamespaceDefinition + +instance Data.Foldable.Foldable NamespaceDefinition where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NamespaceDefinition where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NamespaceDefinition where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NamespaceFunctionOrConst a = NamespaceFunctionOrConst + { ann :: a, + text :: Data.Text.Internal.Text + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_557. + AST.Traversable1.Class.Traversable1 a_557 + ) + +instance AST.Unmarshal.SymbolMatching NamespaceFunctionOrConst where + matchedSymbols _ = [163] + showFailure _ node_558 = + "expected " + GHC.Base.<> ( "namespace_function_or_const" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_558 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_558) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_559 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_560 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_561 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_562 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_559 + c1_560 = TreeSitter.Node.nodeStartPoint node_558 + TreeSitter.Node.TSPoint + r2_561 + c2_562 = TreeSitter.Node.nodeEndPoint node_558 + +deriving instance GHC.Classes.Eq a_563 => GHC.Classes.Eq (NamespaceFunctionOrConst a_563) + +deriving instance GHC.Classes.Ord a_564 => GHC.Classes.Ord (NamespaceFunctionOrConst a_564) + +deriving instance GHC.Show.Show a_565 => GHC.Show.Show (NamespaceFunctionOrConst a_565) + +instance AST.Unmarshal.Unmarshal NamespaceFunctionOrConst + +instance Data.Foldable.Foldable NamespaceFunctionOrConst where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NamespaceFunctionOrConst where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NamespaceFunctionOrConst where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NamespaceName a = NamespaceName + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Name a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_566. + AST.Traversable1.Class.Traversable1 a_566 + ) + +instance AST.Unmarshal.SymbolMatching NamespaceName where + matchedSymbols _ = [167] + showFailure _ node_567 = + "expected " + GHC.Base.<> ( "namespace_name" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_567 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_567) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_568 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_569 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_570 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_571 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_568 + c1_569 = TreeSitter.Node.nodeStartPoint node_567 + TreeSitter.Node.TSPoint + r2_570 + c2_571 = TreeSitter.Node.nodeEndPoint node_567 + +deriving instance GHC.Classes.Eq a_572 => GHC.Classes.Eq (NamespaceName a_572) + +deriving instance GHC.Classes.Ord a_573 => GHC.Classes.Ord (NamespaceName a_573) + +deriving instance GHC.Show.Show a_574 => GHC.Show.Show (NamespaceName a_574) + +instance AST.Unmarshal.Unmarshal NamespaceName + +instance Data.Foldable.Foldable NamespaceName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NamespaceName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NamespaceName where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NamespaceNameAsPrefix a = NamespaceNameAsPrefix + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (NamespaceName a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_575. + AST.Traversable1.Class.Traversable1 a_575 + ) + +instance AST.Unmarshal.SymbolMatching NamespaceNameAsPrefix where + matchedSymbols _ = [166] + showFailure _ node_576 = + "expected " + GHC.Base.<> ( "namespace_name_as_prefix" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_576 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_576) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_577 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_578 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_579 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_580 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_577 + c1_578 = TreeSitter.Node.nodeStartPoint node_576 + TreeSitter.Node.TSPoint + r2_579 + c2_580 = TreeSitter.Node.nodeEndPoint node_576 + +deriving instance GHC.Classes.Eq a_581 => GHC.Classes.Eq (NamespaceNameAsPrefix a_581) + +deriving instance GHC.Classes.Ord a_582 => GHC.Classes.Ord (NamespaceNameAsPrefix a_582) + +deriving instance GHC.Show.Show a_583 => GHC.Show.Show (NamespaceNameAsPrefix a_583) + +instance AST.Unmarshal.Unmarshal NamespaceNameAsPrefix + +instance Data.Foldable.Foldable NamespaceNameAsPrefix where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NamespaceNameAsPrefix where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NamespaceNameAsPrefix where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NamespaceUseClause a = NamespaceUseClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((NamespaceAliasingClause GHC.Generics.:+: QualifiedName) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_584. + AST.Traversable1.Class.Traversable1 a_584 + ) + +instance AST.Unmarshal.SymbolMatching NamespaceUseClause where + matchedSymbols _ = [164] + showFailure _ node_585 = + "expected " + GHC.Base.<> ( "namespace_use_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_585 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_585) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_586 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_587 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_588 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_589 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_586 + c1_587 = TreeSitter.Node.nodeStartPoint node_585 + TreeSitter.Node.TSPoint + r2_588 + c2_589 = TreeSitter.Node.nodeEndPoint node_585 + +deriving instance GHC.Classes.Eq a_590 => GHC.Classes.Eq (NamespaceUseClause a_590) + +deriving instance GHC.Classes.Ord a_591 => GHC.Classes.Ord (NamespaceUseClause a_591) + +deriving instance GHC.Show.Show a_592 => GHC.Show.Show (NamespaceUseClause a_592) + +instance AST.Unmarshal.Unmarshal NamespaceUseClause + +instance Data.Foldable.Foldable NamespaceUseClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NamespaceUseClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NamespaceUseClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NamespaceUseDeclaration a = NamespaceUseDeclaration + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((NamespaceFunctionOrConst GHC.Generics.:+: NamespaceName GHC.Generics.:+: NamespaceUseClause GHC.Generics.:+: NamespaceUseGroup) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_593. + AST.Traversable1.Class.Traversable1 a_593 + ) + +instance AST.Unmarshal.SymbolMatching NamespaceUseDeclaration where + matchedSymbols _ = [162] + showFailure _ node_594 = + "expected " + GHC.Base.<> ( "namespace_use_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_594 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_594) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_595 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_596 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_597 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_598 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_595 + c1_596 = TreeSitter.Node.nodeStartPoint node_594 + TreeSitter.Node.TSPoint + r2_597 + c2_598 = TreeSitter.Node.nodeEndPoint node_594 + +deriving instance GHC.Classes.Eq a_599 => GHC.Classes.Eq (NamespaceUseDeclaration a_599) + +deriving instance GHC.Classes.Ord a_600 => GHC.Classes.Ord (NamespaceUseDeclaration a_600) + +deriving instance GHC.Show.Show a_601 => GHC.Show.Show (NamespaceUseDeclaration a_601) + +instance AST.Unmarshal.Unmarshal NamespaceUseDeclaration + +instance Data.Foldable.Foldable NamespaceUseDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NamespaceUseDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NamespaceUseDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NamespaceUseGroup a = NamespaceUseGroup + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (NamespaceUseGroupClause a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_602. + AST.Traversable1.Class.Traversable1 a_602 + ) + +instance AST.Unmarshal.SymbolMatching NamespaceUseGroup where + matchedSymbols _ = [169] + showFailure _ node_603 = + "expected " + GHC.Base.<> ( "namespace_use_group" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_603 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_603) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_604 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_605 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_606 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_607 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_604 + c1_605 = TreeSitter.Node.nodeStartPoint node_603 + TreeSitter.Node.TSPoint + r2_606 + c2_607 = TreeSitter.Node.nodeEndPoint node_603 + +deriving instance GHC.Classes.Eq a_608 => GHC.Classes.Eq (NamespaceUseGroup a_608) + +deriving instance GHC.Classes.Ord a_609 => GHC.Classes.Ord (NamespaceUseGroup a_609) + +deriving instance GHC.Show.Show a_610 => GHC.Show.Show (NamespaceUseGroup a_610) + +instance AST.Unmarshal.Unmarshal NamespaceUseGroup + +instance Data.Foldable.Foldable NamespaceUseGroup where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NamespaceUseGroup where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NamespaceUseGroup where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NamespaceUseGroupClause a = NamespaceUseGroupClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((NamespaceAliasingClause GHC.Generics.:+: NamespaceFunctionOrConst GHC.Generics.:+: NamespaceName) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_611. + AST.Traversable1.Class.Traversable1 a_611 + ) + +instance AST.Unmarshal.SymbolMatching NamespaceUseGroupClause where + matchedSymbols _ = [170] + showFailure _ node_612 = + "expected " + GHC.Base.<> ( "namespace_use_group_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_612 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_612) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_613 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_614 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_615 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_616 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_613 + c1_614 = TreeSitter.Node.nodeStartPoint node_612 + TreeSitter.Node.TSPoint + r2_615 + c2_616 = TreeSitter.Node.nodeEndPoint node_612 + +deriving instance GHC.Classes.Eq a_617 => GHC.Classes.Eq (NamespaceUseGroupClause a_617) + +deriving instance GHC.Classes.Ord a_618 => GHC.Classes.Ord (NamespaceUseGroupClause a_618) + +deriving instance GHC.Show.Show a_619 => GHC.Show.Show (NamespaceUseGroupClause a_619) + +instance AST.Unmarshal.Unmarshal NamespaceUseGroupClause + +instance Data.Foldable.Foldable NamespaceUseGroupClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NamespaceUseGroupClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NamespaceUseGroupClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ObjectCreationExpression a = ObjectCreationExpression + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Arguments GHC.Generics.:+: ClassBaseClause GHC.Generics.:+: ClassInterfaceClause GHC.Generics.:+: DeclarationList GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: MemberAccessExpression GHC.Generics.:+: QualifiedName GHC.Generics.:+: ScopedPropertyAccessExpression GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: VariableName) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_620. + AST.Traversable1.Class.Traversable1 a_620 + ) + +instance AST.Unmarshal.SymbolMatching ObjectCreationExpression where + matchedSymbols _ = [247] + showFailure _ node_621 = + "expected " + GHC.Base.<> ( "object_creation_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_621 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_621) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_622 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_623 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_624 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_625 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_622 + c1_623 = TreeSitter.Node.nodeStartPoint node_621 + TreeSitter.Node.TSPoint + r2_624 + c2_625 = TreeSitter.Node.nodeEndPoint node_621 + +deriving instance GHC.Classes.Eq a_626 => GHC.Classes.Eq (ObjectCreationExpression a_626) + +deriving instance GHC.Classes.Ord a_627 => GHC.Classes.Ord (ObjectCreationExpression a_627) + +deriving instance GHC.Show.Show a_628 => GHC.Show.Show (ObjectCreationExpression a_628) + +instance AST.Unmarshal.Unmarshal ObjectCreationExpression + +instance Data.Foldable.Foldable ObjectCreationExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ObjectCreationExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ObjectCreationExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data OptionalType a = OptionalType + { ann :: a, + extraChildren :: (AST.Parse.Err ((PrimitiveType GHC.Generics.:+: TypeName) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_629. + AST.Traversable1.Class.Traversable1 a_629 + ) + +instance AST.Unmarshal.SymbolMatching OptionalType where + matchedSymbols _ = [198] + showFailure _ node_630 = + "expected " + GHC.Base.<> ( "optional_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_630 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_630) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_631 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_632 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_633 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_634 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_631 + c1_632 = TreeSitter.Node.nodeStartPoint node_630 + TreeSitter.Node.TSPoint + r2_633 + c2_634 = TreeSitter.Node.nodeEndPoint node_630 + +deriving instance GHC.Classes.Eq a_635 => GHC.Classes.Eq (OptionalType a_635) + +deriving instance GHC.Classes.Ord a_636 => GHC.Classes.Ord (OptionalType a_636) + +deriving instance GHC.Show.Show a_637 => GHC.Show.Show (OptionalType a_637) + +instance AST.Unmarshal.Unmarshal OptionalType + +instance Data.Foldable.Foldable OptionalType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor OptionalType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable OptionalType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Pair a = Pair + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: ListLiteral) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_638. + AST.Traversable1.Class.Traversable1 a_638 + ) + +instance AST.Unmarshal.SymbolMatching Pair where + matchedSymbols _ = [222] + showFailure _ node_639 = + "expected " + GHC.Base.<> ( "pair" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_639 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_639) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_640 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_641 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_642 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_643 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_640 + c1_641 = TreeSitter.Node.nodeStartPoint node_639 + TreeSitter.Node.TSPoint + r2_642 + c2_643 = TreeSitter.Node.nodeEndPoint node_639 + +deriving instance GHC.Classes.Eq a_644 => GHC.Classes.Eq (Pair a_644) + +deriving instance GHC.Classes.Ord a_645 => GHC.Classes.Ord (Pair a_645) + +deriving instance GHC.Show.Show a_646 => GHC.Show.Show (Pair a_646) + +instance AST.Unmarshal.Unmarshal Pair + +instance Data.Foldable.Foldable Pair where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Pair where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Pair where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ParenthesizedExpression a = ParenthesizedExpression + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_647. + AST.Traversable1.Class.Traversable1 a_647 + ) + +instance AST.Unmarshal.SymbolMatching ParenthesizedExpression where + matchedSymbols _ = [242] + showFailure _ node_648 = + "expected " + GHC.Base.<> ( "parenthesized_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_648 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_648) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_649 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_650 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_651 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_652 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_649 + c1_650 = TreeSitter.Node.nodeStartPoint node_648 + TreeSitter.Node.TSPoint + r2_651 + c2_652 = TreeSitter.Node.nodeEndPoint node_648 + +deriving instance GHC.Classes.Eq a_653 => GHC.Classes.Eq (ParenthesizedExpression a_653) + +deriving instance GHC.Classes.Ord a_654 => GHC.Classes.Ord (ParenthesizedExpression a_654) + +deriving instance GHC.Show.Show a_655 => GHC.Show.Show (ParenthesizedExpression a_655) + +instance AST.Unmarshal.Unmarshal ParenthesizedExpression + +instance Data.Foldable.Foldable ParenthesizedExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ParenthesizedExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ParenthesizedExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PrimitiveType a = PrimitiveType {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_656. + AST.Traversable1.Class.Traversable1 a_656 + ) + +instance AST.Unmarshal.SymbolMatching PrimitiveType where + matchedSymbols _ = [199] + showFailure _ node_657 = + "expected " + GHC.Base.<> ( "primitive_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_657 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_657) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_658 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_659 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_660 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_661 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_658 + c1_659 = TreeSitter.Node.nodeStartPoint node_657 + TreeSitter.Node.TSPoint + r2_660 + c2_661 = TreeSitter.Node.nodeEndPoint node_657 + +deriving instance GHC.Classes.Eq a_662 => GHC.Classes.Eq (PrimitiveType a_662) + +deriving instance GHC.Classes.Ord a_663 => GHC.Classes.Ord (PrimitiveType a_663) + +deriving instance GHC.Show.Show a_664 => GHC.Show.Show (PrimitiveType a_664) + +instance AST.Unmarshal.Unmarshal PrimitiveType + +instance Data.Foldable.Foldable PrimitiveType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PrimitiveType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PrimitiveType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PrintIntrinsic a = PrintIntrinsic + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_665. + AST.Traversable1.Class.Traversable1 a_665 + ) + +instance AST.Unmarshal.SymbolMatching PrintIntrinsic where + matchedSymbols _ = [244] + showFailure _ node_666 = + "expected " + GHC.Base.<> ( "print_intrinsic" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_666 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_666) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_667 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_668 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_669 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_670 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_667 + c1_668 = TreeSitter.Node.nodeStartPoint node_666 + TreeSitter.Node.TSPoint + r2_669 + c2_670 = TreeSitter.Node.nodeEndPoint node_666 + +deriving instance GHC.Classes.Eq a_671 => GHC.Classes.Eq (PrintIntrinsic a_671) + +deriving instance GHC.Classes.Ord a_672 => GHC.Classes.Ord (PrintIntrinsic a_672) + +deriving instance GHC.Show.Show a_673 => GHC.Show.Show (PrintIntrinsic a_673) + +instance AST.Unmarshal.Unmarshal PrintIntrinsic + +instance Data.Foldable.Foldable PrintIntrinsic where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PrintIntrinsic where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PrintIntrinsic where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Program a = Program + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: PhpTag GHC.Generics.:+: Text) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_674. + AST.Traversable1.Class.Traversable1 a_674 + ) + +instance AST.Unmarshal.SymbolMatching Program where + matchedSymbols _ = [154] + showFailure _ node_675 = + "expected " + GHC.Base.<> ( "program" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_675 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_675) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_676 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_677 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_678 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_679 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_676 + c1_677 = TreeSitter.Node.nodeStartPoint node_675 + TreeSitter.Node.TSPoint + r2_678 + c2_679 = TreeSitter.Node.nodeEndPoint node_675 + +deriving instance GHC.Classes.Eq a_680 => GHC.Classes.Eq (Program a_680) + +deriving instance GHC.Classes.Ord a_681 => GHC.Classes.Ord (Program a_681) + +deriving instance GHC.Show.Show a_682 => GHC.Show.Show (Program a_682) + +instance AST.Unmarshal.Unmarshal Program + +instance Data.Foldable.Foldable Program where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Program where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Program where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PropertyDeclaration a = PropertyDeclaration + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ClassModifier GHC.Generics.:+: PropertyElement GHC.Generics.:+: StaticModifier GHC.Generics.:+: VarModifier GHC.Generics.:+: VisibilityModifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_683. + AST.Traversable1.Class.Traversable1 a_683 + ) + +instance AST.Unmarshal.SymbolMatching PropertyDeclaration where + matchedSymbols _ = [181] + showFailure _ node_684 = + "expected " + GHC.Base.<> ( "property_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_684 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_684) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_685 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_686 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_687 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_688 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_685 + c1_686 = TreeSitter.Node.nodeStartPoint node_684 + TreeSitter.Node.TSPoint + r2_687 + c2_688 = TreeSitter.Node.nodeEndPoint node_684 + +deriving instance GHC.Classes.Eq a_689 => GHC.Classes.Eq (PropertyDeclaration a_689) + +deriving instance GHC.Classes.Ord a_690 => GHC.Classes.Ord (PropertyDeclaration a_690) + +deriving instance GHC.Show.Show a_691 => GHC.Show.Show (PropertyDeclaration a_691) + +instance AST.Unmarshal.Unmarshal PropertyDeclaration + +instance Data.Foldable.Foldable PropertyDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PropertyDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PropertyDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PropertyElement a = PropertyElement + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((PropertyInitializer GHC.Generics.:+: VariableName) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_692. + AST.Traversable1.Class.Traversable1 a_692 + ) + +instance AST.Unmarshal.SymbolMatching PropertyElement where + matchedSymbols _ = [183] + showFailure _ node_693 = + "expected " + GHC.Base.<> ( "property_element" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_693 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_693) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_694 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_695 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_696 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_697 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_694 + c1_695 = TreeSitter.Node.nodeStartPoint node_693 + TreeSitter.Node.TSPoint + r2_696 + c2_697 = TreeSitter.Node.nodeEndPoint node_693 + +deriving instance GHC.Classes.Eq a_698 => GHC.Classes.Eq (PropertyElement a_698) + +deriving instance GHC.Classes.Ord a_699 => GHC.Classes.Ord (PropertyElement a_699) + +deriving instance GHC.Show.Show a_700 => GHC.Show.Show (PropertyElement a_700) + +instance AST.Unmarshal.Unmarshal PropertyElement + +instance Data.Foldable.Foldable PropertyElement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PropertyElement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PropertyElement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PropertyInitializer a = PropertyInitializer + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_701. + AST.Traversable1.Class.Traversable1 a_701 + ) + +instance AST.Unmarshal.SymbolMatching PropertyInitializer where + matchedSymbols _ = [184] + showFailure _ node_702 = + "expected " + GHC.Base.<> ( "property_initializer" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_702 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_702) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_703 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_704 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_705 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_706 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_703 + c1_704 = TreeSitter.Node.nodeStartPoint node_702 + TreeSitter.Node.TSPoint + r2_705 + c2_706 = TreeSitter.Node.nodeEndPoint node_702 + +deriving instance GHC.Classes.Eq a_707 => GHC.Classes.Eq (PropertyInitializer a_707) + +deriving instance GHC.Classes.Ord a_708 => GHC.Classes.Ord (PropertyInitializer a_708) + +deriving instance GHC.Show.Show a_709 => GHC.Show.Show (PropertyInitializer a_709) + +instance AST.Unmarshal.Unmarshal PropertyInitializer + +instance Data.Foldable.Foldable PropertyInitializer where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PropertyInitializer where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PropertyInitializer where + traverse = AST.Traversable1.Class.traverseDefault1 + +data QualifiedName a = QualifiedName + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Name GHC.Generics.:+: NamespaceNameAsPrefix) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_710. + AST.Traversable1.Class.Traversable1 a_710 + ) + +instance AST.Unmarshal.SymbolMatching QualifiedName where + matchedSymbols _ = [165] + showFailure _ node_711 = + "expected " + GHC.Base.<> ( "qualified_name" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_711 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_711) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_712 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_713 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_714 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_715 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_712 + c1_713 = TreeSitter.Node.nodeStartPoint node_711 + TreeSitter.Node.TSPoint + r2_714 + c2_715 = TreeSitter.Node.nodeEndPoint node_711 + +deriving instance GHC.Classes.Eq a_716 => GHC.Classes.Eq (QualifiedName a_716) + +deriving instance GHC.Classes.Ord a_717 => GHC.Classes.Ord (QualifiedName a_717) + +deriving instance GHC.Show.Show a_718 => GHC.Show.Show (QualifiedName a_718) + +instance AST.Unmarshal.Unmarshal QualifiedName + +instance Data.Foldable.Foldable QualifiedName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor QualifiedName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable QualifiedName where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RelativeScope a = RelativeScope {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_719. + AST.Traversable1.Class.Traversable1 a_719 + ) + +instance AST.Unmarshal.SymbolMatching RelativeScope where + matchedSymbols _ = [260] + showFailure _ node_720 = + "expected " + GHC.Base.<> ( "relative_scope" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_720 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_720) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_721 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_722 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_723 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_724 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_721 + c1_722 = TreeSitter.Node.nodeStartPoint node_720 + TreeSitter.Node.TSPoint + r2_723 + c2_724 = TreeSitter.Node.nodeEndPoint node_720 + +deriving instance GHC.Classes.Eq a_725 => GHC.Classes.Eq (RelativeScope a_725) + +deriving instance GHC.Classes.Ord a_726 => GHC.Classes.Ord (RelativeScope a_726) + +deriving instance GHC.Show.Show a_727 => GHC.Show.Show (RelativeScope a_727) + +instance AST.Unmarshal.Unmarshal RelativeScope + +instance Data.Foldable.Foldable RelativeScope where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RelativeScope where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RelativeScope where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RequireExpression a = RequireExpression + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_728. + AST.Traversable1.Class.Traversable1 a_728 + ) + +instance AST.Unmarshal.SymbolMatching RequireExpression where + matchedSymbols _ = [275] + showFailure _ node_729 = + "expected " + GHC.Base.<> ( "require_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_729 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_729) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_730 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_731 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_732 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_733 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_730 + c1_731 = TreeSitter.Node.nodeStartPoint node_729 + TreeSitter.Node.TSPoint + r2_732 + c2_733 = TreeSitter.Node.nodeEndPoint node_729 + +deriving instance GHC.Classes.Eq a_734 => GHC.Classes.Eq (RequireExpression a_734) + +deriving instance GHC.Classes.Ord a_735 => GHC.Classes.Ord (RequireExpression a_735) + +deriving instance GHC.Show.Show a_736 => GHC.Show.Show (RequireExpression a_736) + +instance AST.Unmarshal.Unmarshal RequireExpression + +instance Data.Foldable.Foldable RequireExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RequireExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RequireExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RequireOnceExpression a = RequireOnceExpression + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_737. + AST.Traversable1.Class.Traversable1 a_737 + ) + +instance AST.Unmarshal.SymbolMatching RequireOnceExpression where + matchedSymbols _ = [276] + showFailure _ node_738 = + "expected " + GHC.Base.<> ( "require_once_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_738 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_738) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_739 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_740 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_741 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_742 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_739 + c1_740 = TreeSitter.Node.nodeStartPoint node_738 + TreeSitter.Node.TSPoint + r2_741 + c2_742 = TreeSitter.Node.nodeEndPoint node_738 + +deriving instance GHC.Classes.Eq a_743 => GHC.Classes.Eq (RequireOnceExpression a_743) + +deriving instance GHC.Classes.Ord a_744 => GHC.Classes.Ord (RequireOnceExpression a_744) + +deriving instance GHC.Show.Show a_745 => GHC.Show.Show (RequireOnceExpression a_745) + +instance AST.Unmarshal.Unmarshal RequireOnceExpression + +instance Data.Foldable.Foldable RequireOnceExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RequireOnceExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RequireOnceExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ReturnStatement a = ReturnStatement + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_746. + AST.Traversable1.Class.Traversable1 a_746 + ) + +instance AST.Unmarshal.SymbolMatching ReturnStatement where + matchedSymbols _ = [214] + showFailure _ node_747 = + "expected " + GHC.Base.<> ( "return_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_747 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_747) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_748 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_749 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_750 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_751 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_748 + c1_749 = TreeSitter.Node.nodeStartPoint node_747 + TreeSitter.Node.TSPoint + r2_750 + c2_751 = TreeSitter.Node.nodeEndPoint node_747 + +deriving instance GHC.Classes.Eq a_752 => GHC.Classes.Eq (ReturnStatement a_752) + +deriving instance GHC.Classes.Ord a_753 => GHC.Classes.Ord (ReturnStatement a_753) + +deriving instance GHC.Show.Show a_754 => GHC.Show.Show (ReturnStatement a_754) + +instance AST.Unmarshal.Unmarshal ReturnStatement + +instance Data.Foldable.Foldable ReturnStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ReturnStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ReturnStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ScopedCallExpression a = ScopedCallExpression + { ann :: a, + arguments :: (AST.Parse.Err (Arguments a)), + name :: (AST.Parse.Err ((Expression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: Name GHC.Generics.:+: VariableName) a)), + scope :: (AST.Parse.Err ((ArrayCreationExpression GHC.Generics.:+: CastExpression GHC.Generics.:+: ClassConstantAccessExpression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: FunctionCallExpression GHC.Generics.:+: Heredoc GHC.Generics.:+: MemberAccessExpression GHC.Generics.:+: MemberCallExpression GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: QualifiedName GHC.Generics.:+: RelativeScope GHC.Generics.:+: ScopedCallExpression GHC.Generics.:+: ScopedPropertyAccessExpression GHC.Generics.:+: String GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: VariableName) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_755. + AST.Traversable1.Class.Traversable1 a_755 + ) + +instance AST.Unmarshal.SymbolMatching ScopedCallExpression where + matchedSymbols _ = [258] + showFailure _ node_756 = + "expected " + GHC.Base.<> ( "scoped_call_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_756 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_756) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_757 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_758 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_759 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_760 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_757 + c1_758 = TreeSitter.Node.nodeStartPoint node_756 + TreeSitter.Node.TSPoint + r2_759 + c2_760 = TreeSitter.Node.nodeEndPoint node_756 + +deriving instance GHC.Classes.Eq a_761 => GHC.Classes.Eq (ScopedCallExpression a_761) + +deriving instance GHC.Classes.Ord a_762 => GHC.Classes.Ord (ScopedCallExpression a_762) + +deriving instance GHC.Show.Show a_763 => GHC.Show.Show (ScopedCallExpression a_763) + +instance AST.Unmarshal.Unmarshal ScopedCallExpression + +instance Data.Foldable.Foldable ScopedCallExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ScopedCallExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ScopedCallExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ScopedPropertyAccessExpression a = ScopedPropertyAccessExpression + { ann :: a, + name :: (AST.Parse.Err ((DynamicVariableName GHC.Generics.:+: VariableName) a)), + scope :: (AST.Parse.Err ((ArrayCreationExpression GHC.Generics.:+: CastExpression GHC.Generics.:+: ClassConstantAccessExpression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: FunctionCallExpression GHC.Generics.:+: Heredoc GHC.Generics.:+: MemberAccessExpression GHC.Generics.:+: MemberCallExpression GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: QualifiedName GHC.Generics.:+: RelativeScope GHC.Generics.:+: ScopedCallExpression GHC.Generics.:+: ScopedPropertyAccessExpression GHC.Generics.:+: String GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: VariableName) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_764. + AST.Traversable1.Class.Traversable1 a_764 + ) + +instance AST.Unmarshal.SymbolMatching ScopedPropertyAccessExpression where + matchedSymbols _ = [255] + showFailure _ node_765 = + "expected " + GHC.Base.<> ( "scoped_property_access_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_765 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_765) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_766 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_767 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_768 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_769 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_766 + c1_767 = TreeSitter.Node.nodeStartPoint node_765 + TreeSitter.Node.TSPoint + r2_768 + c2_769 = TreeSitter.Node.nodeEndPoint node_765 + +deriving instance GHC.Classes.Eq a_770 => GHC.Classes.Eq (ScopedPropertyAccessExpression a_770) + +deriving instance GHC.Classes.Ord a_771 => GHC.Classes.Ord (ScopedPropertyAccessExpression a_771) + +deriving instance GHC.Show.Show a_772 => GHC.Show.Show (ScopedPropertyAccessExpression a_772) + +instance AST.Unmarshal.Unmarshal ScopedPropertyAccessExpression + +instance Data.Foldable.Foldable ScopedPropertyAccessExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ScopedPropertyAccessExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ScopedPropertyAccessExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SequenceExpression a = SequenceExpression + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_773. + AST.Traversable1.Class.Traversable1 a_773 + ) + +instance AST.Unmarshal.SymbolMatching SequenceExpression where + matchedSymbols _ = [220] + showFailure _ node_774 = + "expected " + GHC.Base.<> ( "sequence_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_774 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_774) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_775 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_776 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_777 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_778 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_775 + c1_776 = TreeSitter.Node.nodeStartPoint node_774 + TreeSitter.Node.TSPoint + r2_777 + c2_778 = TreeSitter.Node.nodeEndPoint node_774 + +deriving instance GHC.Classes.Eq a_779 => GHC.Classes.Eq (SequenceExpression a_779) + +deriving instance GHC.Classes.Ord a_780 => GHC.Classes.Ord (SequenceExpression a_780) + +deriving instance GHC.Show.Show a_781 => GHC.Show.Show (SequenceExpression a_781) + +instance AST.Unmarshal.Unmarshal SequenceExpression + +instance Data.Foldable.Foldable SequenceExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SequenceExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SequenceExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SimpleParameter a = SimpleParameter + { ann :: a, + defaultValue :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + name :: (AST.Parse.Err (VariableName a)), + type' :: (GHC.Maybe.Maybe (AST.Parse.Err (Type a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_782. + AST.Traversable1.Class.Traversable1 a_782 + ) + +instance AST.Unmarshal.SymbolMatching SimpleParameter where + matchedSymbols _ = [195] + showFailure _ node_783 = + "expected " + GHC.Base.<> ( "simple_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_783 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_783) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_784 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_785 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_786 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_787 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_784 + c1_785 = TreeSitter.Node.nodeStartPoint node_783 + TreeSitter.Node.TSPoint + r2_786 + c2_787 = TreeSitter.Node.nodeEndPoint node_783 + +deriving instance GHC.Classes.Eq a_788 => GHC.Classes.Eq (SimpleParameter a_788) + +deriving instance GHC.Classes.Ord a_789 => GHC.Classes.Ord (SimpleParameter a_789) + +deriving instance GHC.Show.Show a_790 => GHC.Show.Show (SimpleParameter a_790) + +instance AST.Unmarshal.Unmarshal SimpleParameter + +instance Data.Foldable.Foldable SimpleParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SimpleParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SimpleParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data StaticModifier a = StaticModifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_791. + AST.Traversable1.Class.Traversable1 a_791 + ) + +instance AST.Unmarshal.SymbolMatching StaticModifier where + matchedSymbols _ = [186] + showFailure _ node_792 = + "expected " + GHC.Base.<> ( "static_modifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_792 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_792) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_793 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_794 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_795 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_796 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_793 + c1_794 = TreeSitter.Node.nodeStartPoint node_792 + TreeSitter.Node.TSPoint + r2_795 + c2_796 = TreeSitter.Node.nodeEndPoint node_792 + +deriving instance GHC.Classes.Eq a_797 => GHC.Classes.Eq (StaticModifier a_797) + +deriving instance GHC.Classes.Ord a_798 => GHC.Classes.Ord (StaticModifier a_798) + +deriving instance GHC.Show.Show a_799 => GHC.Show.Show (StaticModifier a_799) + +instance AST.Unmarshal.Unmarshal StaticModifier + +instance Data.Foldable.Foldable StaticModifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor StaticModifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable StaticModifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data StaticVariableDeclaration a = StaticVariableDeclaration + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + name :: (AST.Parse.Err (VariableName a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_800. + AST.Traversable1.Class.Traversable1 a_800 + ) + +instance AST.Unmarshal.SymbolMatching StaticVariableDeclaration where + matchedSymbols _ = [159] + showFailure _ node_801 = + "expected " + GHC.Base.<> ( "static_variable_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_801 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_801) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_802 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_803 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_804 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_805 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_802 + c1_803 = TreeSitter.Node.nodeStartPoint node_801 + TreeSitter.Node.TSPoint + r2_804 + c2_805 = TreeSitter.Node.nodeEndPoint node_801 + +deriving instance GHC.Classes.Eq a_806 => GHC.Classes.Eq (StaticVariableDeclaration a_806) + +deriving instance GHC.Classes.Ord a_807 => GHC.Classes.Ord (StaticVariableDeclaration a_807) + +deriving instance GHC.Show.Show a_808 => GHC.Show.Show (StaticVariableDeclaration a_808) + +instance AST.Unmarshal.Unmarshal StaticVariableDeclaration + +instance Data.Foldable.Foldable StaticVariableDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor StaticVariableDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable StaticVariableDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SubscriptExpression a = SubscriptExpression + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: ArrayCreationExpression GHC.Generics.:+: ClassConstantAccessExpression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: FunctionCallExpression GHC.Generics.:+: Heredoc GHC.Generics.:+: MemberAccessExpression GHC.Generics.:+: MemberCallExpression GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: ScopedCallExpression GHC.Generics.:+: ScopedPropertyAccessExpression GHC.Generics.:+: String GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: VariableName) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_809. + AST.Traversable1.Class.Traversable1 a_809 + ) + +instance AST.Unmarshal.SymbolMatching SubscriptExpression where + matchedSymbols _ = [264] + showFailure _ node_810 = + "expected " + GHC.Base.<> ( "subscript_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_810 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_810) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_811 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_812 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_813 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_814 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_811 + c1_812 = TreeSitter.Node.nodeStartPoint node_810 + TreeSitter.Node.TSPoint + r2_813 + c2_814 = TreeSitter.Node.nodeEndPoint node_810 + +deriving instance GHC.Classes.Eq a_815 => GHC.Classes.Eq (SubscriptExpression a_815) + +deriving instance GHC.Classes.Ord a_816 => GHC.Classes.Ord (SubscriptExpression a_816) + +deriving instance GHC.Show.Show a_817 => GHC.Show.Show (SubscriptExpression a_817) + +instance AST.Unmarshal.Unmarshal SubscriptExpression + +instance Data.Foldable.Foldable SubscriptExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SubscriptExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SubscriptExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SwitchBlock a = SwitchBlock + { ann :: a, + extraChildren :: ([AST.Parse.Err ((CaseStatement GHC.Generics.:+: DefaultStatement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_818. + AST.Traversable1.Class.Traversable1 a_818 + ) + +instance AST.Unmarshal.SymbolMatching SwitchBlock where + matchedSymbols _ = [230] + showFailure _ node_819 = + "expected " + GHC.Base.<> ( "switch_block" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_819 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_819) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_820 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_821 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_822 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_823 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_820 + c1_821 = TreeSitter.Node.nodeStartPoint node_819 + TreeSitter.Node.TSPoint + r2_822 + c2_823 = TreeSitter.Node.nodeEndPoint node_819 + +deriving instance GHC.Classes.Eq a_824 => GHC.Classes.Eq (SwitchBlock a_824) + +deriving instance GHC.Classes.Ord a_825 => GHC.Classes.Ord (SwitchBlock a_825) + +deriving instance GHC.Show.Show a_826 => GHC.Show.Show (SwitchBlock a_826) + +instance AST.Unmarshal.Unmarshal SwitchBlock + +instance Data.Foldable.Foldable SwitchBlock where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SwitchBlock where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SwitchBlock where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SwitchStatement a = SwitchStatement + { ann :: a, + body :: (AST.Parse.Err (SwitchBlock a)), + condition :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_827. + AST.Traversable1.Class.Traversable1 a_827 + ) + +instance AST.Unmarshal.SymbolMatching SwitchStatement where + matchedSymbols _ = [229] + showFailure _ node_828 = + "expected " + GHC.Base.<> ( "switch_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_828 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_828) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_829 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_830 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_831 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_832 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_829 + c1_830 = TreeSitter.Node.nodeStartPoint node_828 + TreeSitter.Node.TSPoint + r2_831 + c2_832 = TreeSitter.Node.nodeEndPoint node_828 + +deriving instance GHC.Classes.Eq a_833 => GHC.Classes.Eq (SwitchStatement a_833) + +deriving instance GHC.Classes.Ord a_834 => GHC.Classes.Ord (SwitchStatement a_834) + +deriving instance GHC.Show.Show a_835 => GHC.Show.Show (SwitchStatement a_835) + +instance AST.Unmarshal.Unmarshal SwitchStatement + +instance Data.Foldable.Foldable SwitchStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SwitchStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SwitchStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Text a = Text {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_836. + AST.Traversable1.Class.Traversable1 a_836 + ) + +instance AST.Unmarshal.SymbolMatching Text where + matchedSymbols _ = [156] + showFailure _ node_837 = + "expected " + GHC.Base.<> ( "text" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_837 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_837) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_838 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_839 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_840 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_841 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_838 + c1_839 = TreeSitter.Node.nodeStartPoint node_837 + TreeSitter.Node.TSPoint + r2_840 + c2_841 = TreeSitter.Node.nodeEndPoint node_837 + +deriving instance GHC.Classes.Eq a_842 => GHC.Classes.Eq (Text a_842) + +deriving instance GHC.Classes.Ord a_843 => GHC.Classes.Ord (Text a_843) + +deriving instance GHC.Show.Show a_844 => GHC.Show.Show (Text a_844) + +instance AST.Unmarshal.Unmarshal Text + +instance Data.Foldable.Foldable Text where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Text where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Text where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ThrowStatement a = ThrowStatement + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_845. + AST.Traversable1.Class.Traversable1 a_845 + ) + +instance AST.Unmarshal.SymbolMatching ThrowStatement where + matchedSymbols _ = [215] + showFailure _ node_846 = + "expected " + GHC.Base.<> ( "throw_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_846 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_846) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_847 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_848 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_849 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_850 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_847 + c1_848 = TreeSitter.Node.nodeStartPoint node_846 + TreeSitter.Node.TSPoint + r2_849 + c2_850 = TreeSitter.Node.nodeEndPoint node_846 + +deriving instance GHC.Classes.Eq a_851 => GHC.Classes.Eq (ThrowStatement a_851) + +deriving instance GHC.Classes.Ord a_852 => GHC.Classes.Ord (ThrowStatement a_852) + +deriving instance GHC.Show.Show a_853 => GHC.Show.Show (ThrowStatement a_853) + +instance AST.Unmarshal.Unmarshal ThrowStatement + +instance Data.Foldable.Foldable ThrowStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ThrowStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ThrowStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TraitDeclaration a = TraitDeclaration + { ann :: a, + body :: (AST.Parse.Err (DeclarationList a)), + name :: (AST.Parse.Err (Name a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_854. + AST.Traversable1.Class.Traversable1 a_854 + ) + +instance AST.Unmarshal.SymbolMatching TraitDeclaration where + matchedSymbols _ = [171] + showFailure _ node_855 = + "expected " + GHC.Base.<> ( "trait_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_855 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_855) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_856 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_857 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_858 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_859 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_856 + c1_857 = TreeSitter.Node.nodeStartPoint node_855 + TreeSitter.Node.TSPoint + r2_858 + c2_859 = TreeSitter.Node.nodeEndPoint node_855 + +deriving instance GHC.Classes.Eq a_860 => GHC.Classes.Eq (TraitDeclaration a_860) + +deriving instance GHC.Classes.Ord a_861 => GHC.Classes.Ord (TraitDeclaration a_861) + +deriving instance GHC.Show.Show a_862 => GHC.Show.Show (TraitDeclaration a_862) + +instance AST.Unmarshal.Unmarshal TraitDeclaration + +instance Data.Foldable.Foldable TraitDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TraitDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TraitDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TryStatement a = TryStatement + { ann :: a, + body :: (AST.Parse.Err (CompoundStatement a)), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((CatchClause GHC.Generics.:+: FinallyClause) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_863. + AST.Traversable1.Class.Traversable1 a_863 + ) + +instance AST.Unmarshal.SymbolMatching TryStatement where + matchedSymbols _ = [207] + showFailure _ node_864 = + "expected " + GHC.Base.<> ( "try_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_864 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_864) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_865 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_866 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_867 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_868 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_865 + c1_866 = TreeSitter.Node.nodeStartPoint node_864 + TreeSitter.Node.TSPoint + r2_867 + c2_868 = TreeSitter.Node.nodeEndPoint node_864 + +deriving instance GHC.Classes.Eq a_869 => GHC.Classes.Eq (TryStatement a_869) + +deriving instance GHC.Classes.Ord a_870 => GHC.Classes.Ord (TryStatement a_870) + +deriving instance GHC.Show.Show a_871 => GHC.Show.Show (TryStatement a_871) + +instance AST.Unmarshal.Unmarshal TryStatement + +instance Data.Foldable.Foldable TryStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TryStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TryStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeName a = TypeName + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Name GHC.Generics.:+: NamespaceNameAsPrefix) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_872. + AST.Traversable1.Class.Traversable1 a_872 + ) + +instance AST.Unmarshal.SymbolMatching TypeName where + matchedSymbols _ = [301] + showFailure _ node_873 = + "expected " + GHC.Base.<> ( "type_name" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_873 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_873) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_874 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_875 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_876 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_877 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_874 + c1_875 = TreeSitter.Node.nodeStartPoint node_873 + TreeSitter.Node.TSPoint + r2_876 + c2_877 = TreeSitter.Node.nodeEndPoint node_873 + +deriving instance GHC.Classes.Eq a_878 => GHC.Classes.Eq (TypeName a_878) + +deriving instance GHC.Classes.Ord a_879 => GHC.Classes.Ord (TypeName a_879) + +deriving instance GHC.Show.Show a_880 => GHC.Show.Show (TypeName a_880) + +instance AST.Unmarshal.Unmarshal TypeName + +instance Data.Foldable.Foldable TypeName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeName where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UnaryOpExpression a = UnaryOpExpression + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_881. + AST.Traversable1.Class.Traversable1 a_881 + ) + +instance AST.Unmarshal.SymbolMatching UnaryOpExpression where + matchedSymbols _ = [238] + showFailure _ node_882 = + "expected " + GHC.Base.<> ( "unary_op_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_882 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_882) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_883 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_884 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_885 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_886 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_883 + c1_884 = TreeSitter.Node.nodeStartPoint node_882 + TreeSitter.Node.TSPoint + r2_885 + c2_886 = TreeSitter.Node.nodeEndPoint node_882 + +deriving instance GHC.Classes.Eq a_887 => GHC.Classes.Eq (UnaryOpExpression a_887) + +deriving instance GHC.Classes.Ord a_888 => GHC.Classes.Ord (UnaryOpExpression a_888) + +deriving instance GHC.Show.Show a_889 => GHC.Show.Show (UnaryOpExpression a_889) + +instance AST.Unmarshal.Unmarshal UnaryOpExpression + +instance Data.Foldable.Foldable UnaryOpExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UnaryOpExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UnaryOpExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UnsetStatement a = UnsetStatement + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((CastExpression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: FunctionCallExpression GHC.Generics.:+: MemberAccessExpression GHC.Generics.:+: MemberCallExpression GHC.Generics.:+: ScopedCallExpression GHC.Generics.:+: ScopedPropertyAccessExpression GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: VariableName) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_890. + AST.Traversable1.Class.Traversable1 a_890 + ) + +instance AST.Unmarshal.SymbolMatching UnsetStatement where + matchedSymbols _ = [204] + showFailure _ node_891 = + "expected " + GHC.Base.<> ( "unset_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_891 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_891) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_892 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_893 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_894 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_895 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_892 + c1_893 = TreeSitter.Node.nodeStartPoint node_891 + TreeSitter.Node.TSPoint + r2_894 + c2_895 = TreeSitter.Node.nodeEndPoint node_891 + +deriving instance GHC.Classes.Eq a_896 => GHC.Classes.Eq (UnsetStatement a_896) + +deriving instance GHC.Classes.Ord a_897 => GHC.Classes.Ord (UnsetStatement a_897) + +deriving instance GHC.Show.Show a_898 => GHC.Show.Show (UnsetStatement a_898) + +instance AST.Unmarshal.Unmarshal UnsetStatement + +instance Data.Foldable.Foldable UnsetStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UnsetStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UnsetStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UpdateExpression a = UpdateExpression + { ann :: a, + extraChildren :: (AST.Parse.Err ((CastExpression GHC.Generics.:+: DynamicVariableName GHC.Generics.:+: FunctionCallExpression GHC.Generics.:+: MemberAccessExpression GHC.Generics.:+: MemberCallExpression GHC.Generics.:+: ScopedCallExpression GHC.Generics.:+: ScopedPropertyAccessExpression GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: VariableName) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_899. + AST.Traversable1.Class.Traversable1 a_899 + ) + +instance AST.Unmarshal.SymbolMatching UpdateExpression where + matchedSymbols _ = [248] + showFailure _ node_900 = + "expected " + GHC.Base.<> ( "update_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_900 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_900) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_901 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_902 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_903 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_904 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_901 + c1_902 = TreeSitter.Node.nodeStartPoint node_900 + TreeSitter.Node.TSPoint + r2_903 + c2_904 = TreeSitter.Node.nodeEndPoint node_900 + +deriving instance GHC.Classes.Eq a_905 => GHC.Classes.Eq (UpdateExpression a_905) + +deriving instance GHC.Classes.Ord a_906 => GHC.Classes.Ord (UpdateExpression a_906) + +deriving instance GHC.Show.Show a_907 => GHC.Show.Show (UpdateExpression a_907) + +instance AST.Unmarshal.Unmarshal UpdateExpression + +instance Data.Foldable.Foldable UpdateExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UpdateExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UpdateExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UseAsClause a = UseAsClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ClassConstantAccessExpression GHC.Generics.:+: Name GHC.Generics.:+: VisibilityModifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_908. + AST.Traversable1.Class.Traversable1 a_908 + ) + +instance AST.Unmarshal.SymbolMatching UseAsClause where + matchedSymbols _ = [190] + showFailure _ node_909 = + "expected " + GHC.Base.<> ( "use_as_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_909 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_909) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_910 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_911 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_912 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_913 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_910 + c1_911 = TreeSitter.Node.nodeStartPoint node_909 + TreeSitter.Node.TSPoint + r2_912 + c2_913 = TreeSitter.Node.nodeEndPoint node_909 + +deriving instance GHC.Classes.Eq a_914 => GHC.Classes.Eq (UseAsClause a_914) + +deriving instance GHC.Classes.Ord a_915 => GHC.Classes.Ord (UseAsClause a_915) + +deriving instance GHC.Show.Show a_916 => GHC.Show.Show (UseAsClause a_916) + +instance AST.Unmarshal.Unmarshal UseAsClause + +instance Data.Foldable.Foldable UseAsClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UseAsClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UseAsClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UseDeclaration a = UseDeclaration + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((QualifiedName GHC.Generics.:+: UseList) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_917. + AST.Traversable1.Class.Traversable1 a_917 + ) + +instance AST.Unmarshal.SymbolMatching UseDeclaration where + matchedSymbols _ = [187] + showFailure _ node_918 = + "expected " + GHC.Base.<> ( "use_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_918 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_918) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_919 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_920 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_921 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_922 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_919 + c1_920 = TreeSitter.Node.nodeStartPoint node_918 + TreeSitter.Node.TSPoint + r2_921 + c2_922 = TreeSitter.Node.nodeEndPoint node_918 + +deriving instance GHC.Classes.Eq a_923 => GHC.Classes.Eq (UseDeclaration a_923) + +deriving instance GHC.Classes.Ord a_924 => GHC.Classes.Ord (UseDeclaration a_924) + +deriving instance GHC.Show.Show a_925 => GHC.Show.Show (UseDeclaration a_925) + +instance AST.Unmarshal.Unmarshal UseDeclaration + +instance Data.Foldable.Foldable UseDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UseDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UseDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UseInsteadOfClause a = UseInsteadOfClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ClassConstantAccessExpression GHC.Generics.:+: Name) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_926. + AST.Traversable1.Class.Traversable1 a_926 + ) + +instance AST.Unmarshal.SymbolMatching UseInsteadOfClause where + matchedSymbols _ = [189] + showFailure _ node_927 = + "expected " + GHC.Base.<> ( "use_instead_of_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_927 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_927) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_928 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_929 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_930 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_931 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_928 + c1_929 = TreeSitter.Node.nodeStartPoint node_927 + TreeSitter.Node.TSPoint + r2_930 + c2_931 = TreeSitter.Node.nodeEndPoint node_927 + +deriving instance GHC.Classes.Eq a_932 => GHC.Classes.Eq (UseInsteadOfClause a_932) + +deriving instance GHC.Classes.Ord a_933 => GHC.Classes.Ord (UseInsteadOfClause a_933) + +deriving instance GHC.Show.Show a_934 => GHC.Show.Show (UseInsteadOfClause a_934) + +instance AST.Unmarshal.Unmarshal UseInsteadOfClause + +instance Data.Foldable.Foldable UseInsteadOfClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UseInsteadOfClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UseInsteadOfClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UseList a = UseList + { ann :: a, + extraChildren :: ([AST.Parse.Err ((UseAsClause GHC.Generics.:+: UseInsteadOfClause) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_935. + AST.Traversable1.Class.Traversable1 a_935 + ) + +instance AST.Unmarshal.SymbolMatching UseList where + matchedSymbols _ = [188] + showFailure _ node_936 = + "expected " + GHC.Base.<> ( "use_list" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_936 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_936) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_937 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_938 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_939 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_940 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_937 + c1_938 = TreeSitter.Node.nodeStartPoint node_936 + TreeSitter.Node.TSPoint + r2_939 + c2_940 = TreeSitter.Node.nodeEndPoint node_936 + +deriving instance GHC.Classes.Eq a_941 => GHC.Classes.Eq (UseList a_941) + +deriving instance GHC.Classes.Ord a_942 => GHC.Classes.Ord (UseList a_942) + +deriving instance GHC.Show.Show a_943 => GHC.Show.Show (UseList a_943) + +instance AST.Unmarshal.Unmarshal UseList + +instance Data.Foldable.Foldable UseList where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UseList where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UseList where + traverse = AST.Traversable1.Class.traverseDefault1 + +data VariableName a = VariableName + { ann :: a, + extraChildren :: (AST.Parse.Err (Name a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_944. + AST.Traversable1.Class.Traversable1 a_944 + ) + +instance AST.Unmarshal.SymbolMatching VariableName where + matchedSymbols _ = [269] + showFailure _ node_945 = + "expected " + GHC.Base.<> ( "variable_name" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_945 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_945) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_946 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_947 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_948 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_949 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_946 + c1_947 = TreeSitter.Node.nodeStartPoint node_945 + TreeSitter.Node.TSPoint + r2_948 + c2_949 = TreeSitter.Node.nodeEndPoint node_945 + +deriving instance GHC.Classes.Eq a_950 => GHC.Classes.Eq (VariableName a_950) + +deriving instance GHC.Classes.Ord a_951 => GHC.Classes.Ord (VariableName a_951) + +deriving instance GHC.Show.Show a_952 => GHC.Show.Show (VariableName a_952) + +instance AST.Unmarshal.Unmarshal VariableName + +instance Data.Foldable.Foldable VariableName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor VariableName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable VariableName where + traverse = AST.Traversable1.Class.traverseDefault1 + +data VariadicParameter a = VariadicParameter + { ann :: a, + name :: (AST.Parse.Err (VariableName a)), + type' :: (GHC.Maybe.Maybe (AST.Parse.Err (Type a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_953. + AST.Traversable1.Class.Traversable1 a_953 + ) + +instance AST.Unmarshal.SymbolMatching VariadicParameter where + matchedSymbols _ = [196] + showFailure _ node_954 = + "expected " + GHC.Base.<> ( "variadic_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_954 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_954) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_955 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_956 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_957 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_958 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_955 + c1_956 = TreeSitter.Node.nodeStartPoint node_954 + TreeSitter.Node.TSPoint + r2_957 + c2_958 = TreeSitter.Node.nodeEndPoint node_954 + +deriving instance GHC.Classes.Eq a_959 => GHC.Classes.Eq (VariadicParameter a_959) + +deriving instance GHC.Classes.Ord a_960 => GHC.Classes.Ord (VariadicParameter a_960) + +deriving instance GHC.Show.Show a_961 => GHC.Show.Show (VariadicParameter a_961) + +instance AST.Unmarshal.Unmarshal VariadicParameter + +instance Data.Foldable.Foldable VariadicParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor VariadicParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable VariadicParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data VariadicUnpacking a = VariadicUnpacking + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_962. + AST.Traversable1.Class.Traversable1 a_962 + ) + +instance AST.Unmarshal.SymbolMatching VariadicUnpacking where + matchedSymbols _ = [263] + showFailure _ node_963 = + "expected " + GHC.Base.<> ( "variadic_unpacking" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_963 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_963) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_964 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_965 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_966 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_967 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_964 + c1_965 = TreeSitter.Node.nodeStartPoint node_963 + TreeSitter.Node.TSPoint + r2_966 + c2_967 = TreeSitter.Node.nodeEndPoint node_963 + +deriving instance GHC.Classes.Eq a_968 => GHC.Classes.Eq (VariadicUnpacking a_968) + +deriving instance GHC.Classes.Ord a_969 => GHC.Classes.Ord (VariadicUnpacking a_969) + +deriving instance GHC.Show.Show a_970 => GHC.Show.Show (VariadicUnpacking a_970) + +instance AST.Unmarshal.Unmarshal VariadicUnpacking + +instance Data.Foldable.Foldable VariadicUnpacking where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor VariadicUnpacking where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable VariadicUnpacking where + traverse = AST.Traversable1.Class.traverseDefault1 + +data VisibilityModifier a = VisibilityModifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_971. + AST.Traversable1.Class.Traversable1 a_971 + ) + +instance AST.Unmarshal.SymbolMatching VisibilityModifier where + matchedSymbols _ = [191] + showFailure _ node_972 = + "expected " + GHC.Base.<> ( "visibility_modifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_972 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_972) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_973 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_974 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_975 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_976 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_973 + c1_974 = TreeSitter.Node.nodeStartPoint node_972 + TreeSitter.Node.TSPoint + r2_975 + c2_976 = TreeSitter.Node.nodeEndPoint node_972 + +deriving instance GHC.Classes.Eq a_977 => GHC.Classes.Eq (VisibilityModifier a_977) + +deriving instance GHC.Classes.Ord a_978 => GHC.Classes.Ord (VisibilityModifier a_978) + +deriving instance GHC.Show.Show a_979 => GHC.Show.Show (VisibilityModifier a_979) + +instance AST.Unmarshal.Unmarshal VisibilityModifier + +instance Data.Foldable.Foldable VisibilityModifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor VisibilityModifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable VisibilityModifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data WhileStatement a = WhileStatement + { ann :: a, + body :: (AST.Parse.Err ((Statement GHC.Generics.:+: ColonBlock) a)), + condition :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_980. + AST.Traversable1.Class.Traversable1 a_980 + ) + +instance AST.Unmarshal.SymbolMatching WhileStatement where + matchedSymbols _ = [216] + showFailure _ node_981 = + "expected " + GHC.Base.<> ( "while_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_981 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_981) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_982 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_983 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_984 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_985 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_982 + c1_983 = TreeSitter.Node.nodeStartPoint node_981 + TreeSitter.Node.TSPoint + r2_984 + c2_985 = TreeSitter.Node.nodeEndPoint node_981 + +deriving instance GHC.Classes.Eq a_986 => GHC.Classes.Eq (WhileStatement a_986) + +deriving instance GHC.Classes.Ord a_987 => GHC.Classes.Ord (WhileStatement a_987) + +deriving instance GHC.Show.Show a_988 => GHC.Show.Show (WhileStatement a_988) + +instance AST.Unmarshal.Unmarshal WhileStatement + +instance Data.Foldable.Foldable WhileStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor WhileStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable WhileStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data YieldExpression a = YieldExpression + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err ((Expression GHC.Generics.:+: ArrayElementInitializer) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_989. + AST.Traversable1.Class.Traversable1 a_989 + ) + +instance AST.Unmarshal.SymbolMatching YieldExpression where + matchedSymbols _ = [270] + showFailure _ node_990 = + "expected " + GHC.Base.<> ( "yield_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_990 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_990) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_991 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_992 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_993 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_994 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_991 + c1_992 = TreeSitter.Node.nodeStartPoint node_990 + TreeSitter.Node.TSPoint + r2_993 + c2_994 = TreeSitter.Node.nodeEndPoint node_990 + +deriving instance GHC.Classes.Eq a_995 => GHC.Classes.Eq (YieldExpression a_995) + +deriving instance GHC.Classes.Ord a_996 => GHC.Classes.Ord (YieldExpression a_996) + +deriving instance GHC.Show.Show a_997 => GHC.Show.Show (YieldExpression a_997) + +instance AST.Unmarshal.Unmarshal YieldExpression + +instance Data.Foldable.Foldable YieldExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor YieldExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable YieldExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousBang = AST.Token.Token "!" 88 + +type AnonymousBangEqual = AST.Token.Token "!=" 131 + +type AnonymousBangEqualEqual = AST.Token.Token "!==" 134 + +type AnonymousDollar = AST.Token.Token "$" 118 + +type AnonymousPercent = AST.Token.Token "%" 145 + +type AnonymousPercentEqual = AST.Token.Token "%=" 100 + +type AnonymousAmpersand = AST.Token.Token "&" 31 + +type AnonymousAmpersandAmpersand = AST.Token.Token "&&" 127 + +type AnonymousAmpersandEqual = AST.Token.Token "&=" 106 + +type AnonymousLParen = AST.Token.Token "(" 32 + +type AnonymousRParen = AST.Token.Token ")" 33 + +type AnonymousStar = AST.Token.Token "*" 143 + +type AnonymousStarStar = AST.Token.Token "**" 89 + +type AnonymousStarStarEqual = AST.Token.Token "**=" 97 + +type AnonymousStarEqual = AST.Token.Token "*=" 98 + +type AnonymousPlus = AST.Token.Token "+" 85 + +type AnonymousPlusPlus = AST.Token.Token "++" 94 + +type AnonymousPlusEqual = AST.Token.Token "+=" 101 + +type AnonymousComma = AST.Token.Token "," 8 + +type AnonymousMinus = AST.Token.Token "-" 86 + +type AnonymousMinusMinus = AST.Token.Token "--" 95 + +type AnonymousMinusEqual = AST.Token.Token "-=" 102 + +type AnonymousMinusRAngle = AST.Token.Token "->" 109 + +type AnonymousDot = AST.Token.Token "." 142 + +type AnonymousDotDotDot = AST.Token.Token "..." 34 + +type AnonymousDotEqual = AST.Token.Token ".=" 103 + +type AnonymousSlash = AST.Token.Token "/" 144 + +type AnonymousSlashEqual = AST.Token.Token "/=" 99 + +type AnonymousColon = AST.Token.Token ":" 51 + +type AnonymousColonColon = AST.Token.Token "::" 91 + +type AnonymousSemicolon = AST.Token.Token ";" 6 + +type AnonymousLAngle = AST.Token.Token "<" 135 + +type AnonymousLAngleLAngle = AST.Token.Token "<<" 140 + +type AnonymousLAngleLAngleEqual = AST.Token.Token "<<=" 104 + +type AnonymousLAngleEqual = AST.Token.Token "<=" 137 + +type AnonymousLAngleEqualRAngle = AST.Token.Token "<=>" 139 + +type AnonymousLAngleRAngle = AST.Token.Token "<>" 132 + +type AnonymousEqual = AST.Token.Token "=" 9 + +type AnonymousEqualEqual = AST.Token.Token "==" 130 + +type AnonymousEqualEqualEqual = AST.Token.Token "===" 133 + +type AnonymousEqualRAngle = AST.Token.Token "=>" 75 + +type AnonymousRAngle = AST.Token.Token ">" 136 + +type AnonymousRAngleEqual = AST.Token.Token ">=" 138 + +type AnonymousRAngleRAngle = AST.Token.Token ">>" 141 + +type AnonymousRAngleRAngleEqual = AST.Token.Token ">>=" 105 + +type AnonymousQuestion = AST.Token.Token "?" 35 + +type AnonymousQuestionRAngle = AST.Token.Token "?>" 3 + +type AnonymousQuestionQuestion = AST.Token.Token "??" 122 + +type AnonymousAt = AST.Token.Token "@" 84 + +type AnonymousLBracket = AST.Token.Token "[" 113 + +type AnonymousBackslash = AST.Token.Token "\\" 13 + +type AnonymousRBracket = AST.Token.Token "]" 114 + +type AnonymousCaret = AST.Token.Token "^" 129 + +type AnonymousCaretEqual = AST.Token.Token "^=" 107 + +type AnonymousAbstract = AST.Token.Token "abstract" 23 + +type AnonymousAnd = AST.Token.Token "and" 123 + +type AnonymousArray = AST.Token.Token "array" 36 + +type AnonymousAs = AST.Token.Token "as" 16 + +type AnonymousBinary = AST.Token.Token "binary" 44 + +type AnonymousBool = AST.Token.Token "bool" 39 + +data Boolean a = Boolean {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_998. + AST.Traversable1.Class.Traversable1 a_998 + ) + +instance AST.Unmarshal.SymbolMatching Boolean where + matchedSymbols _ = [116] + showFailure _ node_999 = + "expected " + GHC.Base.<> ( "boolean" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_999 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_999) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1000 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1001 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1002 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1003 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1000 + c1_1001 = TreeSitter.Node.nodeStartPoint node_999 + TreeSitter.Node.TSPoint + r2_1002 + c2_1003 = TreeSitter.Node.nodeEndPoint node_999 + +deriving instance GHC.Classes.Eq a_1004 => GHC.Classes.Eq (Boolean a_1004) + +deriving instance GHC.Classes.Ord a_1005 => GHC.Classes.Ord (Boolean a_1005) + +deriving instance GHC.Show.Show a_1006 => GHC.Show.Show (Boolean a_1006) + +instance AST.Unmarshal.Unmarshal Boolean + +instance Data.Foldable.Foldable Boolean where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Boolean where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Boolean where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousBoolean = AST.Token.Token "boolean" 45 + +type AnonymousBreak = AST.Token.Token "break" 64 + +type AnonymousCallable = AST.Token.Token "callable" 37 + +type AnonymousCase = AST.Token.Token "case" 82 + +type AnonymousCatch = AST.Token.Token "catch" 60 + +type AnonymousClass = AST.Token.Token "class" 22 + +type AnonymousClone = AST.Token.Token "clone" 90 + +type AnonymousConst = AST.Token.Token "const" 15 + +type AnonymousContinue = AST.Token.Token "continue" 63 + +type AnonymousDeclare = AST.Token.Token "declare" 53 + +type AnonymousDefault = AST.Token.Token "default" 83 + +type AnonymousDo = AST.Token.Token "do" 70 + +type AnonymousDouble = AST.Token.Token "double" 46 + +type AnonymousEcho = AST.Token.Token "echo" 52 + +type AnonymousElse = AST.Token.Token "else" 79 + +type AnonymousElseif = AST.Token.Token "elseif" 78 + +type AnonymousEncoding = AST.Token.Token "encoding" 56 + +type AnonymousEnddeclare = AST.Token.Token "enddeclare" 54 + +type AnonymousEndfor = AST.Token.Token "endfor" 72 + +type AnonymousEndforeach = AST.Token.Token "endforeach" 74 + +type AnonymousEndif = AST.Token.Token "endif" 77 + +type AnonymousEndswitch = AST.Token.Token "endswitch" 81 + +type AnonymousEndwhile = AST.Token.Token "endwhile" 69 + +type AnonymousExtends = AST.Token.Token "extends" 21 + +type AnonymousFinal = AST.Token.Token "final" 24 + +type AnonymousFinally = AST.Token.Token "finally" 61 + +type AnonymousFloat = AST.Token.Token "float" 40 + +data Float a = Float {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1007. + AST.Traversable1.Class.Traversable1 a_1007 + ) + +instance AST.Unmarshal.SymbolMatching Float where + matchedSymbols _ = [58] + showFailure _ node_1008 = + "expected " + GHC.Base.<> ( "float" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1008 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1008) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1009 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1010 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1011 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1012 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1009 + c1_1010 = TreeSitter.Node.nodeStartPoint node_1008 + TreeSitter.Node.TSPoint + r2_1011 + c2_1012 = TreeSitter.Node.nodeEndPoint node_1008 + +deriving instance GHC.Classes.Eq a_1013 => GHC.Classes.Eq (Float a_1013) + +deriving instance GHC.Classes.Ord a_1014 => GHC.Classes.Ord (Float a_1014) + +deriving instance GHC.Show.Show a_1015 => GHC.Show.Show (Float a_1015) + +instance AST.Unmarshal.Unmarshal Float + +instance Data.Foldable.Foldable Float where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Float where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Float where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousFor = AST.Token.Token "for" 71 + +type AnonymousForeach = AST.Token.Token "foreach" 73 + +type AnonymousFrom = AST.Token.Token "from" 120 + +type AnonymousFunction = AST.Token.Token "function" 14 + +type AnonymousGlobal = AST.Token.Token "global" 10 + +type AnonymousGoto = AST.Token.Token "goto" 62 + +data Heredoc a = Heredoc {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1016. + AST.Traversable1.Class.Traversable1 a_1016 + ) + +instance AST.Unmarshal.SymbolMatching Heredoc where + matchedSymbols _ = [152] + showFailure _ node_1017 = + "expected " + GHC.Base.<> ( "heredoc" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1017 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1017) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1018 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1019 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1020 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1021 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1018 + c1_1019 = TreeSitter.Node.nodeStartPoint node_1017 + TreeSitter.Node.TSPoint + r2_1020 + c2_1021 = TreeSitter.Node.nodeEndPoint node_1017 + +deriving instance GHC.Classes.Eq a_1022 => GHC.Classes.Eq (Heredoc a_1022) + +deriving instance GHC.Classes.Ord a_1023 => GHC.Classes.Ord (Heredoc a_1023) + +deriving instance GHC.Show.Show a_1024 => GHC.Show.Show (Heredoc a_1024) + +instance AST.Unmarshal.Unmarshal Heredoc + +instance Data.Foldable.Foldable Heredoc where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Heredoc where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Heredoc where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousIf = AST.Token.Token "if" 76 + +type AnonymousImplements = AST.Token.Token "implements" 25 + +type AnonymousInclude = AST.Token.Token "include" 146 + +type AnonymousIncludeOnce = AST.Token.Token "include_once" 147 + +type AnonymousInstanceof = AST.Token.Token "instanceof" 121 + +type AnonymousInsteadof = AST.Token.Token "insteadof" 27 + +type AnonymousInt = AST.Token.Token "int" 41 + +type AnonymousInteger = AST.Token.Token "integer" 47 + +data Integer a = Integer {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1025. + AST.Traversable1.Class.Traversable1 a_1025 + ) + +instance AST.Unmarshal.SymbolMatching Integer where + matchedSymbols _ = [65] + showFailure _ node_1026 = + "expected " + GHC.Base.<> ( "integer" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1026 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1026) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1027 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1028 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1029 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1030 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1027 + c1_1028 = TreeSitter.Node.nodeStartPoint node_1026 + TreeSitter.Node.TSPoint + r2_1029 + c2_1030 = TreeSitter.Node.nodeEndPoint node_1026 + +deriving instance GHC.Classes.Eq a_1031 => GHC.Classes.Eq (Integer a_1031) + +deriving instance GHC.Classes.Ord a_1032 => GHC.Classes.Ord (Integer a_1032) + +deriving instance GHC.Show.Show a_1033 => GHC.Show.Show (Integer a_1033) + +instance AST.Unmarshal.Unmarshal Integer + +instance Data.Foldable.Foldable Integer where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Integer where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Integer where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousInterface = AST.Token.Token "interface" 20 + +type AnonymousIterable = AST.Token.Token "iterable" 38 + +type AnonymousList = AST.Token.Token "list" 110 + +type AnonymousNamespace = AST.Token.Token "namespace" 11 + +type AnonymousNew = AST.Token.Token "new" 93 + +data Null a = Null {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1034. + AST.Traversable1.Class.Traversable1 a_1034 + ) + +instance AST.Unmarshal.SymbolMatching Null where + matchedSymbols _ = [117] + showFailure _ node_1035 = + "expected " + GHC.Base.<> ( "null" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1035 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1035) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1036 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1037 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1038 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1039 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1036 + c1_1037 = TreeSitter.Node.nodeStartPoint node_1035 + TreeSitter.Node.TSPoint + r2_1038 + c2_1039 = TreeSitter.Node.nodeEndPoint node_1035 + +deriving instance GHC.Classes.Eq a_1040 => GHC.Classes.Eq (Null a_1040) + +deriving instance GHC.Classes.Ord a_1041 => GHC.Classes.Ord (Null a_1041) + +deriving instance GHC.Show.Show a_1042 => GHC.Show.Show (Null a_1042) + +instance AST.Unmarshal.Unmarshal Null + +instance Data.Foldable.Foldable Null where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Null where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Null where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousObject = AST.Token.Token "object" 48 + +type AnonymousOr = AST.Token.Token "or" 124 + +type AnonymousParent = AST.Token.Token "parent" 112 + +data PhpTag a = PhpTag {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1043. + AST.Traversable1.Class.Traversable1 a_1043 + ) + +instance AST.Unmarshal.SymbolMatching PhpTag where + matchedSymbols _ = [2] + showFailure _ node_1044 = + "expected " + GHC.Base.<> ( "php_tag" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1044 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1044) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1045 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1046 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1047 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1048 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1045 + c1_1046 = TreeSitter.Node.nodeStartPoint node_1044 + TreeSitter.Node.TSPoint + r2_1047 + c2_1048 = TreeSitter.Node.nodeEndPoint node_1044 + +deriving instance GHC.Classes.Eq a_1049 => GHC.Classes.Eq (PhpTag a_1049) + +deriving instance GHC.Classes.Ord a_1050 => GHC.Classes.Ord (PhpTag a_1050) + +deriving instance GHC.Show.Show a_1051 => GHC.Show.Show (PhpTag a_1051) + +instance AST.Unmarshal.Unmarshal PhpTag + +instance Data.Foldable.Foldable PhpTag where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PhpTag where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PhpTag where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousPrint = AST.Token.Token "print" 92 + +type AnonymousPrivate = AST.Token.Token "private" 30 + +type AnonymousProtected = AST.Token.Token "protected" 29 + +type AnonymousPublic = AST.Token.Token "public" 28 + +type AnonymousReal = AST.Token.Token "real" 49 + +type AnonymousRequire = AST.Token.Token "require" 148 + +type AnonymousRequireOnce = AST.Token.Token "require_once" 149 + +type AnonymousReturn = AST.Token.Token "return" 66 + +type AnonymousSelf = AST.Token.Token "self" 111 + +data ShellCommandExpression a = ShellCommandExpression + { ann :: a, + text :: Data.Text.Internal.Text + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1052. + AST.Traversable1.Class.Traversable1 a_1052 + ) + +instance AST.Unmarshal.SymbolMatching ShellCommandExpression where + matchedSymbols _ = [96] + showFailure _ node_1053 = + "expected " + GHC.Base.<> ( "shell_command_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1053 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1053) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1054 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1055 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1056 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1057 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1054 + c1_1055 = TreeSitter.Node.nodeStartPoint node_1053 + TreeSitter.Node.TSPoint + r2_1056 + c2_1057 = TreeSitter.Node.nodeEndPoint node_1053 + +deriving instance GHC.Classes.Eq a_1058 => GHC.Classes.Eq (ShellCommandExpression a_1058) + +deriving instance GHC.Classes.Ord a_1059 => GHC.Classes.Ord (ShellCommandExpression a_1059) + +deriving instance GHC.Show.Show a_1060 => GHC.Show.Show (ShellCommandExpression a_1060) + +instance AST.Unmarshal.Unmarshal ShellCommandExpression + +instance Data.Foldable.Foldable ShellCommandExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ShellCommandExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ShellCommandExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousStatic = AST.Token.Token "static" 7 + +type AnonymousStrictTypes = AST.Token.Token "strict_types" 57 + +type AnonymousString = AST.Token.Token "string" 42 + +data String a = String {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1061. + AST.Traversable1.Class.Traversable1 a_1061 + ) + +instance AST.Unmarshal.SymbolMatching String where + matchedSymbols _ = [115] + showFailure _ node_1062 = + "expected " + GHC.Base.<> ( "string" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1062 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1062) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1063 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1064 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1065 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1066 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1063 + c1_1064 = TreeSitter.Node.nodeStartPoint node_1062 + TreeSitter.Node.TSPoint + r2_1065 + c2_1066 = TreeSitter.Node.nodeEndPoint node_1062 + +deriving instance GHC.Classes.Eq a_1067 => GHC.Classes.Eq (String a_1067) + +deriving instance GHC.Classes.Ord a_1068 => GHC.Classes.Ord (String a_1068) + +deriving instance GHC.Show.Show a_1069 => GHC.Show.Show (String a_1069) + +instance AST.Unmarshal.Unmarshal String + +instance Data.Foldable.Foldable String where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor String where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable String where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousSwitch = AST.Token.Token "switch" 80 + +type AnonymousThrow = AST.Token.Token "throw" 67 + +type AnonymousTicks = AST.Token.Token "ticks" 55 + +type AnonymousTrait = AST.Token.Token "trait" 19 + +type AnonymousTry = AST.Token.Token "try" 59 + +type AnonymousUnset = AST.Token.Token "unset" 50 + +type AnonymousUse = AST.Token.Token "use" 12 + +data VarModifier a = VarModifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1070. + AST.Traversable1.Class.Traversable1 a_1070 + ) + +instance AST.Unmarshal.SymbolMatching VarModifier where + matchedSymbols _ = [26] + showFailure _ node_1071 = + "expected " + GHC.Base.<> ( "var_modifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1071 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1071) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1072 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1073 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1074 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1075 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1072 + c1_1073 = TreeSitter.Node.nodeStartPoint node_1071 + TreeSitter.Node.TSPoint + r2_1074 + c2_1075 = TreeSitter.Node.nodeEndPoint node_1071 + +deriving instance GHC.Classes.Eq a_1076 => GHC.Classes.Eq (VarModifier a_1076) + +deriving instance GHC.Classes.Ord a_1077 => GHC.Classes.Ord (VarModifier a_1077) + +deriving instance GHC.Show.Show a_1078 => GHC.Show.Show (VarModifier a_1078) + +instance AST.Unmarshal.Unmarshal VarModifier + +instance Data.Foldable.Foldable VarModifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor VarModifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable VarModifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousVoid = AST.Token.Token "void" 43 + +type AnonymousWhile = AST.Token.Token "while" 68 + +type AnonymousXor = AST.Token.Token "xor" 125 + +type AnonymousYield = AST.Token.Token "yield" 119 + +type AnonymousLBrace = AST.Token.Token "{" 17 + +type AnonymousPipe = AST.Token.Token "|" 128 + +type AnonymousPipeEqual = AST.Token.Token "|=" 108 + +type AnonymousPipePipe = AST.Token.Token "||" 126 + +type AnonymousRBrace = AST.Token.Token "}" 18 + +type AnonymousTilde = AST.Token.Token "~" 87 diff --git a/semantic-python/src/Language/Python/AST.hs b/semantic-python/src/Language/Python/AST.hs index bc357804d..6fbfc2d7e 100644 --- a/semantic-python/src/Language/Python/AST.hs +++ b/semantic-python/src/Language/Python/AST.hs @@ -1,3 +1,4 @@ +-- Language definition for Python, generated by ast-generate. Do not edit! {-# LANGUAGE CPP #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveAnyClass #-} @@ -14,20 +15,4830 @@ {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeApplications #-} {-# LANGUAGE TypeOperators #-} +{-# LANGUAGE UndecidableInstances #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Language.Python.AST -( module Language.Python.AST -, Python.getTestCorpusDir -) where +module Language.Python.AST (module Language.Python.AST, getTestCorpusDir) where -import Prelude hiding (False, Float, Integer, String, True) -import AST.GenerateSyntax -import Language.Haskell.TH.Syntax (runIO) -import qualified TreeSitter.Python as Python (getNodeTypesPath, getTestCorpusDir, tree_sitter_python) +import qualified AST.Parse +import qualified AST.Token +import qualified AST.Traversable1.Class +import qualified AST.Unmarshal +import qualified Data.Foldable +import qualified Data.List as Data.OldList +import qualified Data.Maybe as GHC.Maybe +import qualified Data.Text.Internal +import qualified Data.Traversable +import qualified GHC.Base +import qualified GHC.Generics +import qualified GHC.Records +import qualified GHC.Show +import qualified TreeSitter.Node +import TreeSitter.Python (getTestCorpusDir) +import qualified Prelude as GHC.Classes -#ifdef NODE_TYPES_PATH -astDeclarationsForLanguage Python.tree_sitter_python NODE_TYPES_PATH -#else -runIO Python.getNodeTypesPath >>= astDeclarationsForLanguage Python.tree_sitter_python -#endif +debugSymbolNames :: [GHC.Base.String] +debugSymbolNames = debugSymbolNames_0 + +debugSymbolNames_0 :: [GHC.Base.String] +debugSymbolNames_0 = + [ "end", + "identifier", + "_import", + "_.", + "_from", + "___future__", + "_(", + "_)", + "_,", + "_as", + "_*", + "_print", + "_>>", + "_assert", + "_:=", + "_return", + "_del", + "_raise", + "_pass", + "_break", + "_continue", + "_if", + "_:", + "_elif", + "_else", + "_async", + "_for", + "_in", + "_while", + "_try", + "_except", + "_finally", + "_with", + "_def", + "_->", + "_=", + "_**", + "_global", + "_nonlocal", + "_exec", + "_class", + "_@", + "_not", + "_and", + "_or", + "_+", + "_-", + "_/", + "_%", + "_//", + "_|", + "_&", + "_^", + "_<<", + "_~", + "_<", + "_<=", + "_==", + "_!=", + "_>=", + "_>", + "_<>", + "_is", + "_lambda", + "_+=", + "_-=", + "_*=", + "_/=", + "_@=", + "_//=", + "_%=", + "_**=", + "_>>=", + "_<<=", + "_&=", + "_^=", + "_|=", + "_yield", + "_[", + "_]", + "ellipsis", + "_{", + "_}", + "escape_sequence", + "_not_escape_sequence", + "_format_specifier_token1", + "type_conversion", + "integer", + "float", + "true", + "false", + "none", + "_await", + "comment", + "_semicolon", + "_newline", + "_indent", + "_dedent", + "_\"", + "_string_content", + "_\"", + "module", + "_statement", + "_simple_statements", + "import_statement", + "import_prefix", + "relative_import", + "future_import_statement", + "import_from_statement", + "_import_list", + "aliased_import", + "wildcard_import", + "print_statement", + "chevron", + "assert_statement", + "expression_statement", + "named_expression", + "return_statement", + "delete_statement", + "raise_statement", + "pass_statement", + "break_statement", + "continue_statement", + "if_statement", + "elif_clause", + "else_clause", + "for_statement", + "while_statement", + "try_statement", + "except_clause", + "finally_clause", + "with_statement", + "with_item", + "function_definition", + "parameters", + "lambda_parameters", + "_parameters", + "default_parameter", + "typed_default_parameter", + "list_splat", + "dictionary_splat", + "global_statement", + "nonlocal_statement", + "exec_statement", + "class_definition", + "parenthesized_expression", + "argument_list", + "decorated_definition", + "decorator", + "block", + "variables", + "expression_list", + "dotted_name", + "_expression_within_for_in_clause", + "_expression", + "_primary_expression", + "not_operator", + "boolean_operator", + "binary_operator", + "unary_operator", + "comparison_operator", + "lambda", + "lambda", + "assignment", + "augmented_assignment", + "_right_hand_side", + "yield", + "attribute", + "subscript", + "slice", + "call", + "typed_parameter", + "type", + "keyword_argument", + "list", + "_comprehension_clauses", + "list_comprehension", + "dictionary", + "dictionary_comprehension", + "pair", + "set", + "set_comprehension", + "parenthesized_expression", + "tuple", + "generator_expression", + "for_in_clause", + "if_clause", + "conditional_expression", + "concatenated_string", + "string", + "interpolation", + "format_specifier", + "format_expression", + "await", + "_module_repeat1", + "__simple_statements_repeat1", + "_import_prefix_repeat1", + "__import_list_repeat1", + "_print_statement_repeat1", + "_assert_statement_repeat1", + "_if_statement_repeat1", + "_try_statement_repeat1", + "_with_statement_repeat1", + "__parameters_repeat1", + "_global_statement_repeat1", + "_argument_list_repeat1", + "_decorated_definition_repeat1", + "_variables_repeat1", + "_dotted_name_repeat1", + "_comparison_operator_repeat1", + "_subscript_repeat1", + "_list_repeat1", + "__comprehension_clauses_repeat1", + "_dictionary_repeat1", + "_tuple_repeat1", + "_for_in_clause_repeat1", + "_concatenated_string_repeat1", + "_string_repeat1", + "_format_specifier_repeat1" + ] + +newtype CompoundStatement a = CompoundStatement {getCompoundStatement :: ((ClassDefinition GHC.Generics.:+: DecoratedDefinition GHC.Generics.:+: ForStatement GHC.Generics.:+: FunctionDefinition GHC.Generics.:+: IfStatement GHC.Generics.:+: TryStatement GHC.Generics.:+: WhileStatement GHC.Generics.:+: WithStatement) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1. + AST.Traversable1.Class.Traversable1 a_1 + ) + +instance GHC.Records.HasField "ann" (CompoundStatement a_2) a_2 where + getField = AST.Unmarshal.gann GHC.Base.. getCompoundStatement + +deriving instance GHC.Classes.Eq a_3 => GHC.Classes.Eq (CompoundStatement a_3) + +deriving instance GHC.Classes.Ord a_4 => GHC.Classes.Ord (CompoundStatement a_4) + +deriving instance GHC.Show.Show a_5 => GHC.Show.Show (CompoundStatement a_5) + +instance AST.Unmarshal.Unmarshal CompoundStatement + +instance Data.Foldable.Foldable CompoundStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CompoundStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CompoundStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Expression a = Expression {getExpression :: ((PrimaryExpression GHC.Generics.:+: Await GHC.Generics.:+: BooleanOperator GHC.Generics.:+: ComparisonOperator GHC.Generics.:+: ConditionalExpression GHC.Generics.:+: Lambda GHC.Generics.:+: NamedExpression GHC.Generics.:+: NotOperator) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_6. + AST.Traversable1.Class.Traversable1 a_6 + ) + +instance GHC.Records.HasField "ann" (Expression a_7) a_7 where + getField = AST.Unmarshal.gann GHC.Base.. getExpression + +deriving instance GHC.Classes.Eq a_8 => GHC.Classes.Eq (Expression a_8) + +deriving instance GHC.Classes.Ord a_9 => GHC.Classes.Ord (Expression a_9) + +deriving instance GHC.Show.Show a_10 => GHC.Show.Show (Expression a_10) + +instance AST.Unmarshal.Unmarshal Expression + +instance Data.Foldable.Foldable Expression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Expression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Expression where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Parameter a = Parameter {getParameter :: ((DefaultParameter GHC.Generics.:+: DictionarySplat GHC.Generics.:+: Identifier GHC.Generics.:+: ListSplat GHC.Generics.:+: Tuple GHC.Generics.:+: TypedDefaultParameter GHC.Generics.:+: TypedParameter) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_11. + AST.Traversable1.Class.Traversable1 a_11 + ) + +instance GHC.Records.HasField "ann" (Parameter a_12) a_12 where + getField = AST.Unmarshal.gann GHC.Base.. getParameter + +deriving instance GHC.Classes.Eq a_13 => GHC.Classes.Eq (Parameter a_13) + +deriving instance GHC.Classes.Ord a_14 => GHC.Classes.Ord (Parameter a_14) + +deriving instance GHC.Show.Show a_15 => GHC.Show.Show (Parameter a_15) + +instance AST.Unmarshal.Unmarshal Parameter + +instance Data.Foldable.Foldable Parameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Parameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Parameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype PrimaryExpression a = PrimaryExpression {getPrimaryExpression :: ((Attribute GHC.Generics.:+: BinaryOperator GHC.Generics.:+: Call GHC.Generics.:+: ConcatenatedString GHC.Generics.:+: Dictionary GHC.Generics.:+: DictionaryComprehension GHC.Generics.:+: Ellipsis GHC.Generics.:+: False GHC.Generics.:+: Float GHC.Generics.:+: GeneratorExpression GHC.Generics.:+: Identifier GHC.Generics.:+: Integer GHC.Generics.:+: List GHC.Generics.:+: ListComprehension GHC.Generics.:+: None GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: Set GHC.Generics.:+: SetComprehension GHC.Generics.:+: String GHC.Generics.:+: Subscript GHC.Generics.:+: True GHC.Generics.:+: Tuple GHC.Generics.:+: UnaryOperator) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_16. + AST.Traversable1.Class.Traversable1 a_16 + ) + +instance GHC.Records.HasField "ann" (PrimaryExpression a_17) a_17 where + getField = AST.Unmarshal.gann GHC.Base.. getPrimaryExpression + +deriving instance GHC.Classes.Eq a_18 => GHC.Classes.Eq (PrimaryExpression a_18) + +deriving instance GHC.Classes.Ord a_19 => GHC.Classes.Ord (PrimaryExpression a_19) + +deriving instance GHC.Show.Show a_20 => GHC.Show.Show (PrimaryExpression a_20) + +instance AST.Unmarshal.Unmarshal PrimaryExpression + +instance Data.Foldable.Foldable PrimaryExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PrimaryExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PrimaryExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype SimpleStatement a = SimpleStatement {getSimpleStatement :: ((AssertStatement GHC.Generics.:+: BreakStatement GHC.Generics.:+: ContinueStatement GHC.Generics.:+: DeleteStatement GHC.Generics.:+: ExecStatement GHC.Generics.:+: ExpressionStatement GHC.Generics.:+: FutureImportStatement GHC.Generics.:+: GlobalStatement GHC.Generics.:+: ImportFromStatement GHC.Generics.:+: ImportStatement GHC.Generics.:+: NonlocalStatement GHC.Generics.:+: PassStatement GHC.Generics.:+: PrintStatement GHC.Generics.:+: RaiseStatement GHC.Generics.:+: ReturnStatement) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_21. + AST.Traversable1.Class.Traversable1 a_21 + ) + +instance GHC.Records.HasField "ann" (SimpleStatement a_22) a_22 where + getField = AST.Unmarshal.gann GHC.Base.. getSimpleStatement + +deriving instance GHC.Classes.Eq a_23 => GHC.Classes.Eq (SimpleStatement a_23) + +deriving instance GHC.Classes.Ord a_24 => GHC.Classes.Ord (SimpleStatement a_24) + +deriving instance GHC.Show.Show a_25 => GHC.Show.Show (SimpleStatement a_25) + +instance AST.Unmarshal.Unmarshal SimpleStatement + +instance Data.Foldable.Foldable SimpleStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SimpleStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SimpleStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AliasedImport a = AliasedImport + { ann :: a, + alias :: (AST.Parse.Err (Identifier a)), + name :: (AST.Parse.Err (DottedName a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_26. + AST.Traversable1.Class.Traversable1 a_26 + ) + +instance AST.Unmarshal.SymbolMatching AliasedImport where + matchedSymbols _ = [110] + showFailure _ node_27 = + "expected " + GHC.Base.<> ( "aliased_import" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_27 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_27) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_28 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_29 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_30 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_31 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_28 + c1_29 = TreeSitter.Node.nodeStartPoint node_27 + TreeSitter.Node.TSPoint + r2_30 + c2_31 = TreeSitter.Node.nodeEndPoint node_27 + +deriving instance GHC.Classes.Eq a_32 => GHC.Classes.Eq (AliasedImport a_32) + +deriving instance GHC.Classes.Ord a_33 => GHC.Classes.Ord (AliasedImport a_33) + +deriving instance GHC.Show.Show a_34 => GHC.Show.Show (AliasedImport a_34) + +instance AST.Unmarshal.Unmarshal AliasedImport + +instance Data.Foldable.Foldable AliasedImport where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AliasedImport where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AliasedImport where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ArgumentList a = ArgumentList + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Expression GHC.Generics.:+: DictionarySplat GHC.Generics.:+: KeywordArgument GHC.Generics.:+: ListSplat GHC.Generics.:+: ParenthesizedExpression) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_35. + AST.Traversable1.Class.Traversable1 a_35 + ) + +instance AST.Unmarshal.SymbolMatching ArgumentList where + matchedSymbols _ = [146] + showFailure _ node_36 = + "expected " + GHC.Base.<> ( "argument_list" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_36 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_36) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_37 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_38 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_39 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_40 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_37 + c1_38 = TreeSitter.Node.nodeStartPoint node_36 + TreeSitter.Node.TSPoint + r2_39 + c2_40 = TreeSitter.Node.nodeEndPoint node_36 + +deriving instance GHC.Classes.Eq a_41 => GHC.Classes.Eq (ArgumentList a_41) + +deriving instance GHC.Classes.Ord a_42 => GHC.Classes.Ord (ArgumentList a_42) + +deriving instance GHC.Show.Show a_43 => GHC.Show.Show (ArgumentList a_43) + +instance AST.Unmarshal.Unmarshal ArgumentList + +instance Data.Foldable.Foldable ArgumentList where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ArgumentList where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ArgumentList where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AssertStatement a = AssertStatement + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Expression a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_44. + AST.Traversable1.Class.Traversable1 a_44 + ) + +instance AST.Unmarshal.SymbolMatching AssertStatement where + matchedSymbols _ = [114] + showFailure _ node_45 = + "expected " + GHC.Base.<> ( "assert_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_45 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_45) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_46 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_47 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_48 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_49 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_46 + c1_47 = TreeSitter.Node.nodeStartPoint node_45 + TreeSitter.Node.TSPoint + r2_48 + c2_49 = TreeSitter.Node.nodeEndPoint node_45 + +deriving instance GHC.Classes.Eq a_50 => GHC.Classes.Eq (AssertStatement a_50) + +deriving instance GHC.Classes.Ord a_51 => GHC.Classes.Ord (AssertStatement a_51) + +deriving instance GHC.Show.Show a_52 => GHC.Show.Show (AssertStatement a_52) + +instance AST.Unmarshal.Unmarshal AssertStatement + +instance Data.Foldable.Foldable AssertStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AssertStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AssertStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Assignment a = Assignment + { ann :: a, + left :: (AST.Parse.Err (ExpressionList a)), + right :: (GHC.Maybe.Maybe (AST.Parse.Err ((Assignment GHC.Generics.:+: AugmentedAssignment GHC.Generics.:+: ExpressionList GHC.Generics.:+: Yield) a))), + type' :: (GHC.Maybe.Maybe (AST.Parse.Err (Type a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_53. + AST.Traversable1.Class.Traversable1 a_53 + ) + +instance AST.Unmarshal.SymbolMatching Assignment where + matchedSymbols _ = [163] + showFailure _ node_54 = + "expected " + GHC.Base.<> ( "assignment" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_54 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_54) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_55 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_56 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_57 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_58 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_55 + c1_56 = TreeSitter.Node.nodeStartPoint node_54 + TreeSitter.Node.TSPoint + r2_57 + c2_58 = TreeSitter.Node.nodeEndPoint node_54 + +deriving instance GHC.Classes.Eq a_59 => GHC.Classes.Eq (Assignment a_59) + +deriving instance GHC.Classes.Ord a_60 => GHC.Classes.Ord (Assignment a_60) + +deriving instance GHC.Show.Show a_61 => GHC.Show.Show (Assignment a_61) + +instance AST.Unmarshal.Unmarshal Assignment + +instance Data.Foldable.Foldable Assignment where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Assignment where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Assignment where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Attribute a = Attribute + { ann :: a, + attribute :: (AST.Parse.Err (Identifier a)), + object :: (AST.Parse.Err (PrimaryExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_62. + AST.Traversable1.Class.Traversable1 a_62 + ) + +instance AST.Unmarshal.SymbolMatching Attribute where + matchedSymbols _ = [167] + showFailure _ node_63 = + "expected " + GHC.Base.<> ( "attribute" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_63 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_63) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_64 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_65 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_66 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_67 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_64 + c1_65 = TreeSitter.Node.nodeStartPoint node_63 + TreeSitter.Node.TSPoint + r2_66 + c2_67 = TreeSitter.Node.nodeEndPoint node_63 + +deriving instance GHC.Classes.Eq a_68 => GHC.Classes.Eq (Attribute a_68) + +deriving instance GHC.Classes.Ord a_69 => GHC.Classes.Ord (Attribute a_69) + +deriving instance GHC.Show.Show a_70 => GHC.Show.Show (Attribute a_70) + +instance AST.Unmarshal.Unmarshal Attribute + +instance Data.Foldable.Foldable Attribute where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Attribute where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Attribute where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AugmentedAssignment a = AugmentedAssignment + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousPercentEqual GHC.Generics.:+: AnonymousAmpersandEqual GHC.Generics.:+: AnonymousStarStarEqual GHC.Generics.:+: AnonymousStarEqual GHC.Generics.:+: AnonymousPlusEqual GHC.Generics.:+: AnonymousMinusEqual GHC.Generics.:+: AnonymousSlashSlashEqual GHC.Generics.:+: AnonymousSlashEqual GHC.Generics.:+: AnonymousLAngleLAngleEqual GHC.Generics.:+: AnonymousRAngleRAngleEqual GHC.Generics.:+: AnonymousAtEqual GHC.Generics.:+: AnonymousCaretEqual GHC.Generics.:+: AnonymousPipeEqual) a)), + left :: (AST.Parse.Err (ExpressionList a)), + right :: (AST.Parse.Err ((Assignment GHC.Generics.:+: AugmentedAssignment GHC.Generics.:+: ExpressionList GHC.Generics.:+: Yield) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_71. + AST.Traversable1.Class.Traversable1 a_71 + ) + +instance AST.Unmarshal.SymbolMatching AugmentedAssignment where + matchedSymbols _ = [164] + showFailure _ node_72 = + "expected " + GHC.Base.<> ( "augmented_assignment" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_72 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_72) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_73 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_74 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_75 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_76 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_73 + c1_74 = TreeSitter.Node.nodeStartPoint node_72 + TreeSitter.Node.TSPoint + r2_75 + c2_76 = TreeSitter.Node.nodeEndPoint node_72 + +deriving instance GHC.Classes.Eq a_77 => GHC.Classes.Eq (AugmentedAssignment a_77) + +deriving instance GHC.Classes.Ord a_78 => GHC.Classes.Ord (AugmentedAssignment a_78) + +deriving instance GHC.Show.Show a_79 => GHC.Show.Show (AugmentedAssignment a_79) + +instance AST.Unmarshal.Unmarshal AugmentedAssignment + +instance Data.Foldable.Foldable AugmentedAssignment where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AugmentedAssignment where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AugmentedAssignment where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Await a = Await {ann :: a, extraChildren :: (AST.Parse.Err (Expression a))} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_80. + AST.Traversable1.Class.Traversable1 a_80 + ) + +instance AST.Unmarshal.SymbolMatching Await where + matchedSymbols _ = [193] + showFailure _ node_81 = + "expected " + GHC.Base.<> ( "await" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_81 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_81) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_82 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_83 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_84 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_85 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_82 + c1_83 = TreeSitter.Node.nodeStartPoint node_81 + TreeSitter.Node.TSPoint + r2_84 + c2_85 = TreeSitter.Node.nodeEndPoint node_81 + +deriving instance GHC.Classes.Eq a_86 => GHC.Classes.Eq (Await a_86) + +deriving instance GHC.Classes.Ord a_87 => GHC.Classes.Ord (Await a_87) + +deriving instance GHC.Show.Show a_88 => GHC.Show.Show (Await a_88) + +instance AST.Unmarshal.Unmarshal Await + +instance Data.Foldable.Foldable Await where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Await where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Await where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BinaryOperator a = BinaryOperator + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousPercent GHC.Generics.:+: AnonymousAmpersand GHC.Generics.:+: AnonymousStar GHC.Generics.:+: AnonymousStarStar GHC.Generics.:+: AnonymousPlus GHC.Generics.:+: AnonymousMinus GHC.Generics.:+: AnonymousSlash GHC.Generics.:+: AnonymousSlashSlash GHC.Generics.:+: AnonymousLAngleLAngle GHC.Generics.:+: AnonymousRAngleRAngle GHC.Generics.:+: AnonymousAt GHC.Generics.:+: AnonymousCaret GHC.Generics.:+: AnonymousPipe) a)), + left :: (AST.Parse.Err (PrimaryExpression a)), + right :: (AST.Parse.Err (PrimaryExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_89. + AST.Traversable1.Class.Traversable1 a_89 + ) + +instance AST.Unmarshal.SymbolMatching BinaryOperator where + matchedSymbols _ = [158] + showFailure _ node_90 = + "expected " + GHC.Base.<> ( "binary_operator" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_90 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_90) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_91 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_92 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_93 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_94 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_91 + c1_92 = TreeSitter.Node.nodeStartPoint node_90 + TreeSitter.Node.TSPoint + r2_93 + c2_94 = TreeSitter.Node.nodeEndPoint node_90 + +deriving instance GHC.Classes.Eq a_95 => GHC.Classes.Eq (BinaryOperator a_95) + +deriving instance GHC.Classes.Ord a_96 => GHC.Classes.Ord (BinaryOperator a_96) + +deriving instance GHC.Show.Show a_97 => GHC.Show.Show (BinaryOperator a_97) + +instance AST.Unmarshal.Unmarshal BinaryOperator + +instance Data.Foldable.Foldable BinaryOperator where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BinaryOperator where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BinaryOperator where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Block a = Block + { ann :: a, + extraChildren :: ([AST.Parse.Err ((CompoundStatement GHC.Generics.:+: SimpleStatement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_98. + AST.Traversable1.Class.Traversable1 a_98 + ) + +instance AST.Unmarshal.SymbolMatching Block where + matchedSymbols _ = [149] + showFailure _ node_99 = + "expected " + GHC.Base.<> ( "block" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_99 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_99) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_100 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_101 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_102 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_103 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_100 + c1_101 = TreeSitter.Node.nodeStartPoint node_99 + TreeSitter.Node.TSPoint + r2_102 + c2_103 = TreeSitter.Node.nodeEndPoint node_99 + +deriving instance GHC.Classes.Eq a_104 => GHC.Classes.Eq (Block a_104) + +deriving instance GHC.Classes.Ord a_105 => GHC.Classes.Ord (Block a_105) + +deriving instance GHC.Show.Show a_106 => GHC.Show.Show (Block a_106) + +instance AST.Unmarshal.Unmarshal Block + +instance Data.Foldable.Foldable Block where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Block where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Block where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BooleanOperator a = BooleanOperator + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousAnd GHC.Generics.:+: AnonymousOr) a)), + left :: (AST.Parse.Err (Expression a)), + right :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_107. + AST.Traversable1.Class.Traversable1 a_107 + ) + +instance AST.Unmarshal.SymbolMatching BooleanOperator where + matchedSymbols _ = [157] + showFailure _ node_108 = + "expected " + GHC.Base.<> ( "boolean_operator" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_108 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_108) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_109 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_110 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_111 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_112 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_109 + c1_110 = TreeSitter.Node.nodeStartPoint node_108 + TreeSitter.Node.TSPoint + r2_111 + c2_112 = TreeSitter.Node.nodeEndPoint node_108 + +deriving instance GHC.Classes.Eq a_113 => GHC.Classes.Eq (BooleanOperator a_113) + +deriving instance GHC.Classes.Ord a_114 => GHC.Classes.Ord (BooleanOperator a_114) + +deriving instance GHC.Show.Show a_115 => GHC.Show.Show (BooleanOperator a_115) + +instance AST.Unmarshal.Unmarshal BooleanOperator + +instance Data.Foldable.Foldable BooleanOperator where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BooleanOperator where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BooleanOperator where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BreakStatement a = BreakStatement {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_116. + AST.Traversable1.Class.Traversable1 a_116 + ) + +instance AST.Unmarshal.SymbolMatching BreakStatement where + matchedSymbols _ = [121] + showFailure _ node_117 = + "expected " + GHC.Base.<> ( "break_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_117 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_117) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_118 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_119 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_120 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_121 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_118 + c1_119 = TreeSitter.Node.nodeStartPoint node_117 + TreeSitter.Node.TSPoint + r2_120 + c2_121 = TreeSitter.Node.nodeEndPoint node_117 + +deriving instance GHC.Classes.Eq a_122 => GHC.Classes.Eq (BreakStatement a_122) + +deriving instance GHC.Classes.Ord a_123 => GHC.Classes.Ord (BreakStatement a_123) + +deriving instance GHC.Show.Show a_124 => GHC.Show.Show (BreakStatement a_124) + +instance AST.Unmarshal.Unmarshal BreakStatement + +instance Data.Foldable.Foldable BreakStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BreakStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BreakStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Call a = Call + { ann :: a, + function :: (AST.Parse.Err (PrimaryExpression a)), + arguments :: (AST.Parse.Err ((ArgumentList GHC.Generics.:+: GeneratorExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_125. + AST.Traversable1.Class.Traversable1 a_125 + ) + +instance AST.Unmarshal.SymbolMatching Call where + matchedSymbols _ = [170] + showFailure _ node_126 = + "expected " + GHC.Base.<> ( "call" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_126 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_126) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_127 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_128 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_129 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_130 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_127 + c1_128 = TreeSitter.Node.nodeStartPoint node_126 + TreeSitter.Node.TSPoint + r2_129 + c2_130 = TreeSitter.Node.nodeEndPoint node_126 + +deriving instance GHC.Classes.Eq a_131 => GHC.Classes.Eq (Call a_131) + +deriving instance GHC.Classes.Ord a_132 => GHC.Classes.Ord (Call a_132) + +deriving instance GHC.Show.Show a_133 => GHC.Show.Show (Call a_133) + +instance AST.Unmarshal.Unmarshal Call + +instance Data.Foldable.Foldable Call where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Call where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Call where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Chevron a = Chevron + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_134. + AST.Traversable1.Class.Traversable1 a_134 + ) + +instance AST.Unmarshal.SymbolMatching Chevron where + matchedSymbols _ = [113] + showFailure _ node_135 = + "expected " + GHC.Base.<> ( "chevron" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_135 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_135) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_136 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_137 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_138 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_139 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_136 + c1_137 = TreeSitter.Node.nodeStartPoint node_135 + TreeSitter.Node.TSPoint + r2_138 + c2_139 = TreeSitter.Node.nodeEndPoint node_135 + +deriving instance GHC.Classes.Eq a_140 => GHC.Classes.Eq (Chevron a_140) + +deriving instance GHC.Classes.Ord a_141 => GHC.Classes.Ord (Chevron a_141) + +deriving instance GHC.Show.Show a_142 => GHC.Show.Show (Chevron a_142) + +instance AST.Unmarshal.Unmarshal Chevron + +instance Data.Foldable.Foldable Chevron where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Chevron where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Chevron where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClassDefinition a = ClassDefinition + { ann :: a, + body :: (AST.Parse.Err (Block a)), + superclasses :: (GHC.Maybe.Maybe (AST.Parse.Err (ArgumentList a))), + name :: (AST.Parse.Err (Identifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_143. + AST.Traversable1.Class.Traversable1 a_143 + ) + +instance AST.Unmarshal.SymbolMatching ClassDefinition where + matchedSymbols _ = [144] + showFailure _ node_144 = + "expected " + GHC.Base.<> ( "class_definition" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_144 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_144) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_145 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_146 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_147 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_148 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_145 + c1_146 = TreeSitter.Node.nodeStartPoint node_144 + TreeSitter.Node.TSPoint + r2_147 + c2_148 = TreeSitter.Node.nodeEndPoint node_144 + +deriving instance GHC.Classes.Eq a_149 => GHC.Classes.Eq (ClassDefinition a_149) + +deriving instance GHC.Classes.Ord a_150 => GHC.Classes.Ord (ClassDefinition a_150) + +deriving instance GHC.Show.Show a_151 => GHC.Show.Show (ClassDefinition a_151) + +instance AST.Unmarshal.Unmarshal ClassDefinition + +instance Data.Foldable.Foldable ClassDefinition where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassDefinition where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassDefinition where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ComparisonOperator a = ComparisonOperator + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (PrimaryExpression a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_152. + AST.Traversable1.Class.Traversable1 a_152 + ) + +instance AST.Unmarshal.SymbolMatching ComparisonOperator where + matchedSymbols _ = [160] + showFailure _ node_153 = + "expected " + GHC.Base.<> ( "comparison_operator" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_153 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_153) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_154 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_155 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_156 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_157 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_154 + c1_155 = TreeSitter.Node.nodeStartPoint node_153 + TreeSitter.Node.TSPoint + r2_156 + c2_157 = TreeSitter.Node.nodeEndPoint node_153 + +deriving instance GHC.Classes.Eq a_158 => GHC.Classes.Eq (ComparisonOperator a_158) + +deriving instance GHC.Classes.Ord a_159 => GHC.Classes.Ord (ComparisonOperator a_159) + +deriving instance GHC.Show.Show a_160 => GHC.Show.Show (ComparisonOperator a_160) + +instance AST.Unmarshal.Unmarshal ComparisonOperator + +instance Data.Foldable.Foldable ComparisonOperator where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ComparisonOperator where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ComparisonOperator where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ConcatenatedString a = ConcatenatedString + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (String a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_161. + AST.Traversable1.Class.Traversable1 a_161 + ) + +instance AST.Unmarshal.SymbolMatching ConcatenatedString where + matchedSymbols _ = [188] + showFailure _ node_162 = + "expected " + GHC.Base.<> ( "concatenated_string" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_162 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_162) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_163 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_164 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_165 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_166 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_163 + c1_164 = TreeSitter.Node.nodeStartPoint node_162 + TreeSitter.Node.TSPoint + r2_165 + c2_166 = TreeSitter.Node.nodeEndPoint node_162 + +deriving instance GHC.Classes.Eq a_167 => GHC.Classes.Eq (ConcatenatedString a_167) + +deriving instance GHC.Classes.Ord a_168 => GHC.Classes.Ord (ConcatenatedString a_168) + +deriving instance GHC.Show.Show a_169 => GHC.Show.Show (ConcatenatedString a_169) + +instance AST.Unmarshal.Unmarshal ConcatenatedString + +instance Data.Foldable.Foldable ConcatenatedString where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ConcatenatedString where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ConcatenatedString where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ConditionalExpression a = ConditionalExpression + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Expression a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_170. + AST.Traversable1.Class.Traversable1 a_170 + ) + +instance AST.Unmarshal.SymbolMatching ConditionalExpression where + matchedSymbols _ = [187] + showFailure _ node_171 = + "expected " + GHC.Base.<> ( "conditional_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_171 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_171) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_172 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_173 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_174 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_175 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_172 + c1_173 = TreeSitter.Node.nodeStartPoint node_171 + TreeSitter.Node.TSPoint + r2_174 + c2_175 = TreeSitter.Node.nodeEndPoint node_171 + +deriving instance GHC.Classes.Eq a_176 => GHC.Classes.Eq (ConditionalExpression a_176) + +deriving instance GHC.Classes.Ord a_177 => GHC.Classes.Ord (ConditionalExpression a_177) + +deriving instance GHC.Show.Show a_178 => GHC.Show.Show (ConditionalExpression a_178) + +instance AST.Unmarshal.Unmarshal ConditionalExpression + +instance Data.Foldable.Foldable ConditionalExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ConditionalExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ConditionalExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ContinueStatement a = ContinueStatement {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_179. + AST.Traversable1.Class.Traversable1 a_179 + ) + +instance AST.Unmarshal.SymbolMatching ContinueStatement where + matchedSymbols _ = [122] + showFailure _ node_180 = + "expected " + GHC.Base.<> ( "continue_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_180 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_180) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_181 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_182 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_183 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_184 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_181 + c1_182 = TreeSitter.Node.nodeStartPoint node_180 + TreeSitter.Node.TSPoint + r2_183 + c2_184 = TreeSitter.Node.nodeEndPoint node_180 + +deriving instance GHC.Classes.Eq a_185 => GHC.Classes.Eq (ContinueStatement a_185) + +deriving instance GHC.Classes.Ord a_186 => GHC.Classes.Ord (ContinueStatement a_186) + +deriving instance GHC.Show.Show a_187 => GHC.Show.Show (ContinueStatement a_187) + +instance AST.Unmarshal.Unmarshal ContinueStatement + +instance Data.Foldable.Foldable ContinueStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ContinueStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ContinueStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DecoratedDefinition a = DecoratedDefinition + { ann :: a, + definition :: (AST.Parse.Err ((ClassDefinition GHC.Generics.:+: FunctionDefinition) a)), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Decorator a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_188. + AST.Traversable1.Class.Traversable1 a_188 + ) + +instance AST.Unmarshal.SymbolMatching DecoratedDefinition where + matchedSymbols _ = [147] + showFailure _ node_189 = + "expected " + GHC.Base.<> ( "decorated_definition" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_189 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_189) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_190 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_191 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_192 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_193 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_190 + c1_191 = TreeSitter.Node.nodeStartPoint node_189 + TreeSitter.Node.TSPoint + r2_192 + c2_193 = TreeSitter.Node.nodeEndPoint node_189 + +deriving instance GHC.Classes.Eq a_194 => GHC.Classes.Eq (DecoratedDefinition a_194) + +deriving instance GHC.Classes.Ord a_195 => GHC.Classes.Ord (DecoratedDefinition a_195) + +deriving instance GHC.Show.Show a_196 => GHC.Show.Show (DecoratedDefinition a_196) + +instance AST.Unmarshal.Unmarshal DecoratedDefinition + +instance Data.Foldable.Foldable DecoratedDefinition where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DecoratedDefinition where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DecoratedDefinition where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Decorator a = Decorator + { ann :: a, + arguments :: (GHC.Maybe.Maybe (AST.Parse.Err (ArgumentList a))), + extraChildren :: (AST.Parse.Err (DottedName a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_197. + AST.Traversable1.Class.Traversable1 a_197 + ) + +instance AST.Unmarshal.SymbolMatching Decorator where + matchedSymbols _ = [148] + showFailure _ node_198 = + "expected " + GHC.Base.<> ( "decorator" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_198 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_198) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_199 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_200 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_201 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_202 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_199 + c1_200 = TreeSitter.Node.nodeStartPoint node_198 + TreeSitter.Node.TSPoint + r2_201 + c2_202 = TreeSitter.Node.nodeEndPoint node_198 + +deriving instance GHC.Classes.Eq a_203 => GHC.Classes.Eq (Decorator a_203) + +deriving instance GHC.Classes.Ord a_204 => GHC.Classes.Ord (Decorator a_204) + +deriving instance GHC.Show.Show a_205 => GHC.Show.Show (Decorator a_205) + +instance AST.Unmarshal.Unmarshal Decorator + +instance Data.Foldable.Foldable Decorator where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Decorator where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Decorator where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DefaultParameter a = DefaultParameter + { ann :: a, + value :: (AST.Parse.Err (Expression a)), + name :: (AST.Parse.Err (Identifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_206. + AST.Traversable1.Class.Traversable1 a_206 + ) + +instance AST.Unmarshal.SymbolMatching DefaultParameter where + matchedSymbols _ = [137] + showFailure _ node_207 = + "expected " + GHC.Base.<> ( "default_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_207 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_207) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_208 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_209 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_210 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_211 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_208 + c1_209 = TreeSitter.Node.nodeStartPoint node_207 + TreeSitter.Node.TSPoint + r2_210 + c2_211 = TreeSitter.Node.nodeEndPoint node_207 + +deriving instance GHC.Classes.Eq a_212 => GHC.Classes.Eq (DefaultParameter a_212) + +deriving instance GHC.Classes.Ord a_213 => GHC.Classes.Ord (DefaultParameter a_213) + +deriving instance GHC.Show.Show a_214 => GHC.Show.Show (DefaultParameter a_214) + +instance AST.Unmarshal.Unmarshal DefaultParameter + +instance Data.Foldable.Foldable DefaultParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DefaultParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DefaultParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DeleteStatement a = DeleteStatement + { ann :: a, + extraChildren :: (AST.Parse.Err (ExpressionList a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_215. + AST.Traversable1.Class.Traversable1 a_215 + ) + +instance AST.Unmarshal.SymbolMatching DeleteStatement where + matchedSymbols _ = [118] + showFailure _ node_216 = + "expected " + GHC.Base.<> ( "delete_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_216 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_216) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_217 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_218 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_219 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_220 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_217 + c1_218 = TreeSitter.Node.nodeStartPoint node_216 + TreeSitter.Node.TSPoint + r2_219 + c2_220 = TreeSitter.Node.nodeEndPoint node_216 + +deriving instance GHC.Classes.Eq a_221 => GHC.Classes.Eq (DeleteStatement a_221) + +deriving instance GHC.Classes.Ord a_222 => GHC.Classes.Ord (DeleteStatement a_222) + +deriving instance GHC.Show.Show a_223 => GHC.Show.Show (DeleteStatement a_223) + +instance AST.Unmarshal.Unmarshal DeleteStatement + +instance Data.Foldable.Foldable DeleteStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DeleteStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DeleteStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Dictionary a = Dictionary + { ann :: a, + extraChildren :: ([AST.Parse.Err ((DictionarySplat GHC.Generics.:+: Pair) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_224. + AST.Traversable1.Class.Traversable1 a_224 + ) + +instance AST.Unmarshal.SymbolMatching Dictionary where + matchedSymbols _ = [177] + showFailure _ node_225 = + "expected " + GHC.Base.<> ( "dictionary" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_225 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_225) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_226 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_227 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_228 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_229 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_226 + c1_227 = TreeSitter.Node.nodeStartPoint node_225 + TreeSitter.Node.TSPoint + r2_228 + c2_229 = TreeSitter.Node.nodeEndPoint node_225 + +deriving instance GHC.Classes.Eq a_230 => GHC.Classes.Eq (Dictionary a_230) + +deriving instance GHC.Classes.Ord a_231 => GHC.Classes.Ord (Dictionary a_231) + +deriving instance GHC.Show.Show a_232 => GHC.Show.Show (Dictionary a_232) + +instance AST.Unmarshal.Unmarshal Dictionary + +instance Data.Foldable.Foldable Dictionary where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Dictionary where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Dictionary where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DictionaryComprehension a = DictionaryComprehension + { ann :: a, + body :: (AST.Parse.Err (Pair a)), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ForInClause GHC.Generics.:+: IfClause) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_233. + AST.Traversable1.Class.Traversable1 a_233 + ) + +instance AST.Unmarshal.SymbolMatching DictionaryComprehension where + matchedSymbols _ = [178] + showFailure _ node_234 = + "expected " + GHC.Base.<> ( "dictionary_comprehension" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_234 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_234) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_235 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_236 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_237 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_238 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_235 + c1_236 = TreeSitter.Node.nodeStartPoint node_234 + TreeSitter.Node.TSPoint + r2_237 + c2_238 = TreeSitter.Node.nodeEndPoint node_234 + +deriving instance GHC.Classes.Eq a_239 => GHC.Classes.Eq (DictionaryComprehension a_239) + +deriving instance GHC.Classes.Ord a_240 => GHC.Classes.Ord (DictionaryComprehension a_240) + +deriving instance GHC.Show.Show a_241 => GHC.Show.Show (DictionaryComprehension a_241) + +instance AST.Unmarshal.Unmarshal DictionaryComprehension + +instance Data.Foldable.Foldable DictionaryComprehension where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DictionaryComprehension where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DictionaryComprehension where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DictionarySplat a = DictionarySplat + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_242. + AST.Traversable1.Class.Traversable1 a_242 + ) + +instance AST.Unmarshal.SymbolMatching DictionarySplat where + matchedSymbols _ = [140] + showFailure _ node_243 = + "expected " + GHC.Base.<> ( "dictionary_splat" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_243 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_243) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_244 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_245 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_246 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_247 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_244 + c1_245 = TreeSitter.Node.nodeStartPoint node_243 + TreeSitter.Node.TSPoint + r2_246 + c2_247 = TreeSitter.Node.nodeEndPoint node_243 + +deriving instance GHC.Classes.Eq a_248 => GHC.Classes.Eq (DictionarySplat a_248) + +deriving instance GHC.Classes.Ord a_249 => GHC.Classes.Ord (DictionarySplat a_249) + +deriving instance GHC.Show.Show a_250 => GHC.Show.Show (DictionarySplat a_250) + +instance AST.Unmarshal.Unmarshal DictionarySplat + +instance Data.Foldable.Foldable DictionarySplat where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DictionarySplat where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DictionarySplat where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DottedName a = DottedName + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Identifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_251. + AST.Traversable1.Class.Traversable1 a_251 + ) + +instance AST.Unmarshal.SymbolMatching DottedName where + matchedSymbols _ = [152] + showFailure _ node_252 = + "expected " + GHC.Base.<> ( "dotted_name" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_252 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_252) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_253 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_254 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_255 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_256 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_253 + c1_254 = TreeSitter.Node.nodeStartPoint node_252 + TreeSitter.Node.TSPoint + r2_255 + c2_256 = TreeSitter.Node.nodeEndPoint node_252 + +deriving instance GHC.Classes.Eq a_257 => GHC.Classes.Eq (DottedName a_257) + +deriving instance GHC.Classes.Ord a_258 => GHC.Classes.Ord (DottedName a_258) + +deriving instance GHC.Show.Show a_259 => GHC.Show.Show (DottedName a_259) + +instance AST.Unmarshal.Unmarshal DottedName + +instance Data.Foldable.Foldable DottedName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DottedName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DottedName where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ElifClause a = ElifClause + { ann :: a, + consequence :: (AST.Parse.Err (Block a)), + condition :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_260. + AST.Traversable1.Class.Traversable1 a_260 + ) + +instance AST.Unmarshal.SymbolMatching ElifClause where + matchedSymbols _ = [124] + showFailure _ node_261 = + "expected " + GHC.Base.<> ( "elif_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_261 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_261) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_262 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_263 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_264 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_265 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_262 + c1_263 = TreeSitter.Node.nodeStartPoint node_261 + TreeSitter.Node.TSPoint + r2_264 + c2_265 = TreeSitter.Node.nodeEndPoint node_261 + +deriving instance GHC.Classes.Eq a_266 => GHC.Classes.Eq (ElifClause a_266) + +deriving instance GHC.Classes.Ord a_267 => GHC.Classes.Ord (ElifClause a_267) + +deriving instance GHC.Show.Show a_268 => GHC.Show.Show (ElifClause a_268) + +instance AST.Unmarshal.Unmarshal ElifClause + +instance Data.Foldable.Foldable ElifClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ElifClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ElifClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ElseClause a = ElseClause {ann :: a, body :: (AST.Parse.Err (Block a))} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_269. + AST.Traversable1.Class.Traversable1 a_269 + ) + +instance AST.Unmarshal.SymbolMatching ElseClause where + matchedSymbols _ = [125] + showFailure _ node_270 = + "expected " + GHC.Base.<> ( "else_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_270 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_270) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_271 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_272 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_273 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_274 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_271 + c1_272 = TreeSitter.Node.nodeStartPoint node_270 + TreeSitter.Node.TSPoint + r2_273 + c2_274 = TreeSitter.Node.nodeEndPoint node_270 + +deriving instance GHC.Classes.Eq a_275 => GHC.Classes.Eq (ElseClause a_275) + +deriving instance GHC.Classes.Ord a_276 => GHC.Classes.Ord (ElseClause a_276) + +deriving instance GHC.Show.Show a_277 => GHC.Show.Show (ElseClause a_277) + +instance AST.Unmarshal.Unmarshal ElseClause + +instance Data.Foldable.Foldable ElseClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ElseClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ElseClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExceptClause a = ExceptClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: Block) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_278. + AST.Traversable1.Class.Traversable1 a_278 + ) + +instance AST.Unmarshal.SymbolMatching ExceptClause where + matchedSymbols _ = [129] + showFailure _ node_279 = + "expected " + GHC.Base.<> ( "except_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_279 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_279) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_280 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_281 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_282 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_283 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_280 + c1_281 = TreeSitter.Node.nodeStartPoint node_279 + TreeSitter.Node.TSPoint + r2_282 + c2_283 = TreeSitter.Node.nodeEndPoint node_279 + +deriving instance GHC.Classes.Eq a_284 => GHC.Classes.Eq (ExceptClause a_284) + +deriving instance GHC.Classes.Ord a_285 => GHC.Classes.Ord (ExceptClause a_285) + +deriving instance GHC.Show.Show a_286 => GHC.Show.Show (ExceptClause a_286) + +instance AST.Unmarshal.Unmarshal ExceptClause + +instance Data.Foldable.Foldable ExceptClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExceptClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExceptClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExecStatement a = ExecStatement + { ann :: a, + code :: (AST.Parse.Err (String a)), + extraChildren :: ([AST.Parse.Err (Expression a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_287. + AST.Traversable1.Class.Traversable1 a_287 + ) + +instance AST.Unmarshal.SymbolMatching ExecStatement where + matchedSymbols _ = [143] + showFailure _ node_288 = + "expected " + GHC.Base.<> ( "exec_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_288 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_288) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_289 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_290 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_291 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_292 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_289 + c1_290 = TreeSitter.Node.nodeStartPoint node_288 + TreeSitter.Node.TSPoint + r2_291 + c2_292 = TreeSitter.Node.nodeEndPoint node_288 + +deriving instance GHC.Classes.Eq a_293 => GHC.Classes.Eq (ExecStatement a_293) + +deriving instance GHC.Classes.Ord a_294 => GHC.Classes.Ord (ExecStatement a_294) + +deriving instance GHC.Show.Show a_295 => GHC.Show.Show (ExecStatement a_295) + +instance AST.Unmarshal.Unmarshal ExecStatement + +instance Data.Foldable.Foldable ExecStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExecStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExecStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExpressionList a = ExpressionList + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Expression a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_296. + AST.Traversable1.Class.Traversable1 a_296 + ) + +instance AST.Unmarshal.SymbolMatching ExpressionList where + matchedSymbols _ = [151] + showFailure _ node_297 = + "expected " + GHC.Base.<> ( "expression_list" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_297 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_297) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_298 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_299 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_300 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_301 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_298 + c1_299 = TreeSitter.Node.nodeStartPoint node_297 + TreeSitter.Node.TSPoint + r2_300 + c2_301 = TreeSitter.Node.nodeEndPoint node_297 + +deriving instance GHC.Classes.Eq a_302 => GHC.Classes.Eq (ExpressionList a_302) + +deriving instance GHC.Classes.Ord a_303 => GHC.Classes.Ord (ExpressionList a_303) + +deriving instance GHC.Show.Show a_304 => GHC.Show.Show (ExpressionList a_304) + +instance AST.Unmarshal.Unmarshal ExpressionList + +instance Data.Foldable.Foldable ExpressionList where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExpressionList where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExpressionList where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExpressionStatement a = ExpressionStatement + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: Assignment GHC.Generics.:+: AugmentedAssignment GHC.Generics.:+: Yield) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_305. + AST.Traversable1.Class.Traversable1 a_305 + ) + +instance AST.Unmarshal.SymbolMatching ExpressionStatement where + matchedSymbols _ = [115] + showFailure _ node_306 = + "expected " + GHC.Base.<> ( "expression_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_306 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_306) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_307 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_308 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_309 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_310 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_307 + c1_308 = TreeSitter.Node.nodeStartPoint node_306 + TreeSitter.Node.TSPoint + r2_309 + c2_310 = TreeSitter.Node.nodeEndPoint node_306 + +deriving instance GHC.Classes.Eq a_311 => GHC.Classes.Eq (ExpressionStatement a_311) + +deriving instance GHC.Classes.Ord a_312 => GHC.Classes.Ord (ExpressionStatement a_312) + +deriving instance GHC.Show.Show a_313 => GHC.Show.Show (ExpressionStatement a_313) + +instance AST.Unmarshal.Unmarshal ExpressionStatement + +instance Data.Foldable.Foldable ExpressionStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExpressionStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExpressionStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FinallyClause a = FinallyClause + { ann :: a, + extraChildren :: (AST.Parse.Err (Block a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_314. + AST.Traversable1.Class.Traversable1 a_314 + ) + +instance AST.Unmarshal.SymbolMatching FinallyClause where + matchedSymbols _ = [130] + showFailure _ node_315 = + "expected " + GHC.Base.<> ( "finally_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_315 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_315) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_316 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_317 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_318 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_319 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_316 + c1_317 = TreeSitter.Node.nodeStartPoint node_315 + TreeSitter.Node.TSPoint + r2_318 + c2_319 = TreeSitter.Node.nodeEndPoint node_315 + +deriving instance GHC.Classes.Eq a_320 => GHC.Classes.Eq (FinallyClause a_320) + +deriving instance GHC.Classes.Ord a_321 => GHC.Classes.Ord (FinallyClause a_321) + +deriving instance GHC.Show.Show a_322 => GHC.Show.Show (FinallyClause a_322) + +instance AST.Unmarshal.Unmarshal FinallyClause + +instance Data.Foldable.Foldable FinallyClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FinallyClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FinallyClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ForInClause a = ForInClause + { ann :: a, + left :: (AST.Parse.Err (Variables a)), + right :: (GHC.Base.NonEmpty (AST.Parse.Err ((AnonymousComma GHC.Generics.:+: Expression GHC.Generics.:+: Lambda) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_323. + AST.Traversable1.Class.Traversable1 a_323 + ) + +instance AST.Unmarshal.SymbolMatching ForInClause where + matchedSymbols _ = [185] + showFailure _ node_324 = + "expected " + GHC.Base.<> ( "for_in_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_324 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_324) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_325 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_326 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_327 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_328 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_325 + c1_326 = TreeSitter.Node.nodeStartPoint node_324 + TreeSitter.Node.TSPoint + r2_327 + c2_328 = TreeSitter.Node.nodeEndPoint node_324 + +deriving instance GHC.Classes.Eq a_329 => GHC.Classes.Eq (ForInClause a_329) + +deriving instance GHC.Classes.Ord a_330 => GHC.Classes.Ord (ForInClause a_330) + +deriving instance GHC.Show.Show a_331 => GHC.Show.Show (ForInClause a_331) + +instance AST.Unmarshal.Unmarshal ForInClause + +instance Data.Foldable.Foldable ForInClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ForInClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ForInClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ForStatement a = ForStatement + { ann :: a, + alternative :: (GHC.Maybe.Maybe (AST.Parse.Err (ElseClause a))), + body :: (AST.Parse.Err (Block a)), + left :: (AST.Parse.Err (Variables a)), + right :: (AST.Parse.Err (ExpressionList a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_332. + AST.Traversable1.Class.Traversable1 a_332 + ) + +instance AST.Unmarshal.SymbolMatching ForStatement where + matchedSymbols _ = [126] + showFailure _ node_333 = + "expected " + GHC.Base.<> ( "for_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_333 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_333) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_334 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_335 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_336 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_337 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_334 + c1_335 = TreeSitter.Node.nodeStartPoint node_333 + TreeSitter.Node.TSPoint + r2_336 + c2_337 = TreeSitter.Node.nodeEndPoint node_333 + +deriving instance GHC.Classes.Eq a_338 => GHC.Classes.Eq (ForStatement a_338) + +deriving instance GHC.Classes.Ord a_339 => GHC.Classes.Ord (ForStatement a_339) + +deriving instance GHC.Show.Show a_340 => GHC.Show.Show (ForStatement a_340) + +instance AST.Unmarshal.Unmarshal ForStatement + +instance Data.Foldable.Foldable ForStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ForStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ForStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FormatExpression a = FormatExpression + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_341. + AST.Traversable1.Class.Traversable1 a_341 + ) + +instance AST.Unmarshal.SymbolMatching FormatExpression where + matchedSymbols _ = [192] + showFailure _ node_342 = + "expected " + GHC.Base.<> ( "format_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_342 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_342) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_343 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_344 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_345 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_346 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_343 + c1_344 = TreeSitter.Node.nodeStartPoint node_342 + TreeSitter.Node.TSPoint + r2_345 + c2_346 = TreeSitter.Node.nodeEndPoint node_342 + +deriving instance GHC.Classes.Eq a_347 => GHC.Classes.Eq (FormatExpression a_347) + +deriving instance GHC.Classes.Ord a_348 => GHC.Classes.Ord (FormatExpression a_348) + +deriving instance GHC.Show.Show a_349 => GHC.Show.Show (FormatExpression a_349) + +instance AST.Unmarshal.Unmarshal FormatExpression + +instance Data.Foldable.Foldable FormatExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FormatExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FormatExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FormatSpecifier a = FormatSpecifier + { ann :: a, + extraChildren :: ([AST.Parse.Err (FormatExpression a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_350. + AST.Traversable1.Class.Traversable1 a_350 + ) + +instance AST.Unmarshal.SymbolMatching FormatSpecifier where + matchedSymbols _ = [191] + showFailure _ node_351 = + "expected " + GHC.Base.<> ( "format_specifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_351 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_351) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_352 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_353 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_354 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_355 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_352 + c1_353 = TreeSitter.Node.nodeStartPoint node_351 + TreeSitter.Node.TSPoint + r2_354 + c2_355 = TreeSitter.Node.nodeEndPoint node_351 + +deriving instance GHC.Classes.Eq a_356 => GHC.Classes.Eq (FormatSpecifier a_356) + +deriving instance GHC.Classes.Ord a_357 => GHC.Classes.Ord (FormatSpecifier a_357) + +deriving instance GHC.Show.Show a_358 => GHC.Show.Show (FormatSpecifier a_358) + +instance AST.Unmarshal.Unmarshal FormatSpecifier + +instance Data.Foldable.Foldable FormatSpecifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FormatSpecifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FormatSpecifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FunctionDefinition a = FunctionDefinition + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (Type a))), + body :: (AST.Parse.Err (Block a)), + name :: (AST.Parse.Err (Identifier a)), + parameters :: (AST.Parse.Err (Parameters a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_359. + AST.Traversable1.Class.Traversable1 a_359 + ) + +instance AST.Unmarshal.SymbolMatching FunctionDefinition where + matchedSymbols _ = [133] + showFailure _ node_360 = + "expected " + GHC.Base.<> ( "function_definition" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_360 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_360) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_361 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_362 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_363 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_364 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_361 + c1_362 = TreeSitter.Node.nodeStartPoint node_360 + TreeSitter.Node.TSPoint + r2_363 + c2_364 = TreeSitter.Node.nodeEndPoint node_360 + +deriving instance GHC.Classes.Eq a_365 => GHC.Classes.Eq (FunctionDefinition a_365) + +deriving instance GHC.Classes.Ord a_366 => GHC.Classes.Ord (FunctionDefinition a_366) + +deriving instance GHC.Show.Show a_367 => GHC.Show.Show (FunctionDefinition a_367) + +instance AST.Unmarshal.Unmarshal FunctionDefinition + +instance Data.Foldable.Foldable FunctionDefinition where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FunctionDefinition where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FunctionDefinition where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FutureImportStatement a = FutureImportStatement + { ann :: a, + name :: (GHC.Base.NonEmpty (AST.Parse.Err ((AliasedImport GHC.Generics.:+: DottedName) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_368. + AST.Traversable1.Class.Traversable1 a_368 + ) + +instance AST.Unmarshal.SymbolMatching FutureImportStatement where + matchedSymbols _ = [107] + showFailure _ node_369 = + "expected " + GHC.Base.<> ( "future_import_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_369 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_369) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_370 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_371 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_372 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_373 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_370 + c1_371 = TreeSitter.Node.nodeStartPoint node_369 + TreeSitter.Node.TSPoint + r2_372 + c2_373 = TreeSitter.Node.nodeEndPoint node_369 + +deriving instance GHC.Classes.Eq a_374 => GHC.Classes.Eq (FutureImportStatement a_374) + +deriving instance GHC.Classes.Ord a_375 => GHC.Classes.Ord (FutureImportStatement a_375) + +deriving instance GHC.Show.Show a_376 => GHC.Show.Show (FutureImportStatement a_376) + +instance AST.Unmarshal.Unmarshal FutureImportStatement + +instance Data.Foldable.Foldable FutureImportStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FutureImportStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FutureImportStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data GeneratorExpression a = GeneratorExpression + { ann :: a, + body :: (AST.Parse.Err (Expression a)), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ForInClause GHC.Generics.:+: IfClause) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_377. + AST.Traversable1.Class.Traversable1 a_377 + ) + +instance AST.Unmarshal.SymbolMatching GeneratorExpression where + matchedSymbols _ = [184] + showFailure _ node_378 = + "expected " + GHC.Base.<> ( "generator_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_378 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_378) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_379 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_380 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_381 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_382 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_379 + c1_380 = TreeSitter.Node.nodeStartPoint node_378 + TreeSitter.Node.TSPoint + r2_381 + c2_382 = TreeSitter.Node.nodeEndPoint node_378 + +deriving instance GHC.Classes.Eq a_383 => GHC.Classes.Eq (GeneratorExpression a_383) + +deriving instance GHC.Classes.Ord a_384 => GHC.Classes.Ord (GeneratorExpression a_384) + +deriving instance GHC.Show.Show a_385 => GHC.Show.Show (GeneratorExpression a_385) + +instance AST.Unmarshal.Unmarshal GeneratorExpression + +instance Data.Foldable.Foldable GeneratorExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor GeneratorExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable GeneratorExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data GlobalStatement a = GlobalStatement + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Identifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_386. + AST.Traversable1.Class.Traversable1 a_386 + ) + +instance AST.Unmarshal.SymbolMatching GlobalStatement where + matchedSymbols _ = [141] + showFailure _ node_387 = + "expected " + GHC.Base.<> ( "global_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_387 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_387) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_388 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_389 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_390 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_391 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_388 + c1_389 = TreeSitter.Node.nodeStartPoint node_387 + TreeSitter.Node.TSPoint + r2_390 + c2_391 = TreeSitter.Node.nodeEndPoint node_387 + +deriving instance GHC.Classes.Eq a_392 => GHC.Classes.Eq (GlobalStatement a_392) + +deriving instance GHC.Classes.Ord a_393 => GHC.Classes.Ord (GlobalStatement a_393) + +deriving instance GHC.Show.Show a_394 => GHC.Show.Show (GlobalStatement a_394) + +instance AST.Unmarshal.Unmarshal GlobalStatement + +instance Data.Foldable.Foldable GlobalStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor GlobalStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable GlobalStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IfClause a = IfClause + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_395. + AST.Traversable1.Class.Traversable1 a_395 + ) + +instance AST.Unmarshal.SymbolMatching IfClause where + matchedSymbols _ = [186] + showFailure _ node_396 = + "expected " + GHC.Base.<> ( "if_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_396 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_396) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_397 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_398 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_399 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_400 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_397 + c1_398 = TreeSitter.Node.nodeStartPoint node_396 + TreeSitter.Node.TSPoint + r2_399 + c2_400 = TreeSitter.Node.nodeEndPoint node_396 + +deriving instance GHC.Classes.Eq a_401 => GHC.Classes.Eq (IfClause a_401) + +deriving instance GHC.Classes.Ord a_402 => GHC.Classes.Ord (IfClause a_402) + +deriving instance GHC.Show.Show a_403 => GHC.Show.Show (IfClause a_403) + +instance AST.Unmarshal.Unmarshal IfClause + +instance Data.Foldable.Foldable IfClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IfClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IfClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IfStatement a = IfStatement + { ann :: a, + alternative :: ([AST.Parse.Err ((ElifClause GHC.Generics.:+: ElseClause) a)]), + consequence :: (AST.Parse.Err (Block a)), + condition :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_404. + AST.Traversable1.Class.Traversable1 a_404 + ) + +instance AST.Unmarshal.SymbolMatching IfStatement where + matchedSymbols _ = [123] + showFailure _ node_405 = + "expected " + GHC.Base.<> ( "if_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_405 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_405) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_406 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_407 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_408 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_409 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_406 + c1_407 = TreeSitter.Node.nodeStartPoint node_405 + TreeSitter.Node.TSPoint + r2_408 + c2_409 = TreeSitter.Node.nodeEndPoint node_405 + +deriving instance GHC.Classes.Eq a_410 => GHC.Classes.Eq (IfStatement a_410) + +deriving instance GHC.Classes.Ord a_411 => GHC.Classes.Ord (IfStatement a_411) + +deriving instance GHC.Show.Show a_412 => GHC.Show.Show (IfStatement a_412) + +instance AST.Unmarshal.Unmarshal IfStatement + +instance Data.Foldable.Foldable IfStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IfStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IfStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportFromStatement a = ImportFromStatement + { ann :: a, + name :: ([AST.Parse.Err ((AliasedImport GHC.Generics.:+: DottedName) a)]), + moduleName :: (AST.Parse.Err ((DottedName GHC.Generics.:+: RelativeImport) a)), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (WildcardImport a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_413. + AST.Traversable1.Class.Traversable1 a_413 + ) + +instance AST.Unmarshal.SymbolMatching ImportFromStatement where + matchedSymbols _ = [108] + showFailure _ node_414 = + "expected " + GHC.Base.<> ( "import_from_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_414 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_414) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_415 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_416 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_417 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_418 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_415 + c1_416 = TreeSitter.Node.nodeStartPoint node_414 + TreeSitter.Node.TSPoint + r2_417 + c2_418 = TreeSitter.Node.nodeEndPoint node_414 + +deriving instance GHC.Classes.Eq a_419 => GHC.Classes.Eq (ImportFromStatement a_419) + +deriving instance GHC.Classes.Ord a_420 => GHC.Classes.Ord (ImportFromStatement a_420) + +deriving instance GHC.Show.Show a_421 => GHC.Show.Show (ImportFromStatement a_421) + +instance AST.Unmarshal.Unmarshal ImportFromStatement + +instance Data.Foldable.Foldable ImportFromStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportFromStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportFromStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportPrefix a = ImportPrefix {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_422. + AST.Traversable1.Class.Traversable1 a_422 + ) + +instance AST.Unmarshal.SymbolMatching ImportPrefix where + matchedSymbols _ = [105] + showFailure _ node_423 = + "expected " + GHC.Base.<> ( "import_prefix" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_423 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_423) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_424 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_425 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_426 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_427 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_424 + c1_425 = TreeSitter.Node.nodeStartPoint node_423 + TreeSitter.Node.TSPoint + r2_426 + c2_427 = TreeSitter.Node.nodeEndPoint node_423 + +deriving instance GHC.Classes.Eq a_428 => GHC.Classes.Eq (ImportPrefix a_428) + +deriving instance GHC.Classes.Ord a_429 => GHC.Classes.Ord (ImportPrefix a_429) + +deriving instance GHC.Show.Show a_430 => GHC.Show.Show (ImportPrefix a_430) + +instance AST.Unmarshal.Unmarshal ImportPrefix + +instance Data.Foldable.Foldable ImportPrefix where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportPrefix where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportPrefix where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportStatement a = ImportStatement + { ann :: a, + name :: (GHC.Base.NonEmpty (AST.Parse.Err ((AliasedImport GHC.Generics.:+: DottedName) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_431. + AST.Traversable1.Class.Traversable1 a_431 + ) + +instance AST.Unmarshal.SymbolMatching ImportStatement where + matchedSymbols _ = [104] + showFailure _ node_432 = + "expected " + GHC.Base.<> ( "import_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_432 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_432) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_433 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_434 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_435 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_436 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_433 + c1_434 = TreeSitter.Node.nodeStartPoint node_432 + TreeSitter.Node.TSPoint + r2_435 + c2_436 = TreeSitter.Node.nodeEndPoint node_432 + +deriving instance GHC.Classes.Eq a_437 => GHC.Classes.Eq (ImportStatement a_437) + +deriving instance GHC.Classes.Ord a_438 => GHC.Classes.Ord (ImportStatement a_438) + +deriving instance GHC.Show.Show a_439 => GHC.Show.Show (ImportStatement a_439) + +instance AST.Unmarshal.Unmarshal ImportStatement + +instance Data.Foldable.Foldable ImportStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Interpolation a = Interpolation + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: FormatSpecifier GHC.Generics.:+: TypeConversion) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_440. + AST.Traversable1.Class.Traversable1 a_440 + ) + +instance AST.Unmarshal.SymbolMatching Interpolation where + matchedSymbols _ = [190] + showFailure _ node_441 = + "expected " + GHC.Base.<> ( "interpolation" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_441 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_441) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_442 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_443 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_444 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_445 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_442 + c1_443 = TreeSitter.Node.nodeStartPoint node_441 + TreeSitter.Node.TSPoint + r2_444 + c2_445 = TreeSitter.Node.nodeEndPoint node_441 + +deriving instance GHC.Classes.Eq a_446 => GHC.Classes.Eq (Interpolation a_446) + +deriving instance GHC.Classes.Ord a_447 => GHC.Classes.Ord (Interpolation a_447) + +deriving instance GHC.Show.Show a_448 => GHC.Show.Show (Interpolation a_448) + +instance AST.Unmarshal.Unmarshal Interpolation + +instance Data.Foldable.Foldable Interpolation where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Interpolation where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Interpolation where + traverse = AST.Traversable1.Class.traverseDefault1 + +data KeywordArgument a = KeywordArgument + { ann :: a, + value :: (AST.Parse.Err (Expression a)), + name :: (AST.Parse.Err (Identifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_449. + AST.Traversable1.Class.Traversable1 a_449 + ) + +instance AST.Unmarshal.SymbolMatching KeywordArgument where + matchedSymbols _ = [173] + showFailure _ node_450 = + "expected " + GHC.Base.<> ( "keyword_argument" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_450 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_450) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_451 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_452 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_453 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_454 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_451 + c1_452 = TreeSitter.Node.nodeStartPoint node_450 + TreeSitter.Node.TSPoint + r2_453 + c2_454 = TreeSitter.Node.nodeEndPoint node_450 + +deriving instance GHC.Classes.Eq a_455 => GHC.Classes.Eq (KeywordArgument a_455) + +deriving instance GHC.Classes.Ord a_456 => GHC.Classes.Ord (KeywordArgument a_456) + +deriving instance GHC.Show.Show a_457 => GHC.Show.Show (KeywordArgument a_457) + +instance AST.Unmarshal.Unmarshal KeywordArgument + +instance Data.Foldable.Foldable KeywordArgument where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor KeywordArgument where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable KeywordArgument where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Lambda a = Lambda + { ann :: a, + body :: (AST.Parse.Err ((Expression GHC.Generics.:+: Lambda) a)), + parameters :: (GHC.Maybe.Maybe (AST.Parse.Err (LambdaParameters a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_458. + AST.Traversable1.Class.Traversable1 a_458 + ) + +instance AST.Unmarshal.SymbolMatching Lambda where + matchedSymbols _ = [161, 162] + showFailure _ node_459 = + "expected " + GHC.Base.<> ( "lambda, lambda" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_459 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_459) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_460 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_461 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_462 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_463 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_460 + c1_461 = TreeSitter.Node.nodeStartPoint node_459 + TreeSitter.Node.TSPoint + r2_462 + c2_463 = TreeSitter.Node.nodeEndPoint node_459 + +deriving instance GHC.Classes.Eq a_464 => GHC.Classes.Eq (Lambda a_464) + +deriving instance GHC.Classes.Ord a_465 => GHC.Classes.Ord (Lambda a_465) + +deriving instance GHC.Show.Show a_466 => GHC.Show.Show (Lambda a_466) + +instance AST.Unmarshal.Unmarshal Lambda + +instance Data.Foldable.Foldable Lambda where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Lambda where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Lambda where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LambdaParameters a = LambdaParameters + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Parameter a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_467. + AST.Traversable1.Class.Traversable1 a_467 + ) + +instance AST.Unmarshal.SymbolMatching LambdaParameters where + matchedSymbols _ = [135] + showFailure _ node_468 = + "expected " + GHC.Base.<> ( "lambda_parameters" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_468 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_468) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_469 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_470 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_471 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_472 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_469 + c1_470 = TreeSitter.Node.nodeStartPoint node_468 + TreeSitter.Node.TSPoint + r2_471 + c2_472 = TreeSitter.Node.nodeEndPoint node_468 + +deriving instance GHC.Classes.Eq a_473 => GHC.Classes.Eq (LambdaParameters a_473) + +deriving instance GHC.Classes.Ord a_474 => GHC.Classes.Ord (LambdaParameters a_474) + +deriving instance GHC.Show.Show a_475 => GHC.Show.Show (LambdaParameters a_475) + +instance AST.Unmarshal.Unmarshal LambdaParameters + +instance Data.Foldable.Foldable LambdaParameters where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LambdaParameters where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LambdaParameters where + traverse = AST.Traversable1.Class.traverseDefault1 + +data List a = List + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Expression GHC.Generics.:+: ListSplat) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_476. + AST.Traversable1.Class.Traversable1 a_476 + ) + +instance AST.Unmarshal.SymbolMatching List where + matchedSymbols _ = [174] + showFailure _ node_477 = + "expected " + GHC.Base.<> ( "list" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_477 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_477) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_478 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_479 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_480 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_481 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_478 + c1_479 = TreeSitter.Node.nodeStartPoint node_477 + TreeSitter.Node.TSPoint + r2_480 + c2_481 = TreeSitter.Node.nodeEndPoint node_477 + +deriving instance GHC.Classes.Eq a_482 => GHC.Classes.Eq (List a_482) + +deriving instance GHC.Classes.Ord a_483 => GHC.Classes.Ord (List a_483) + +deriving instance GHC.Show.Show a_484 => GHC.Show.Show (List a_484) + +instance AST.Unmarshal.Unmarshal List + +instance Data.Foldable.Foldable List where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor List where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable List where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ListComprehension a = ListComprehension + { ann :: a, + body :: (AST.Parse.Err (Expression a)), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ForInClause GHC.Generics.:+: IfClause) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_485. + AST.Traversable1.Class.Traversable1 a_485 + ) + +instance AST.Unmarshal.SymbolMatching ListComprehension where + matchedSymbols _ = [176] + showFailure _ node_486 = + "expected " + GHC.Base.<> ( "list_comprehension" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_486 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_486) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_487 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_488 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_489 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_490 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_487 + c1_488 = TreeSitter.Node.nodeStartPoint node_486 + TreeSitter.Node.TSPoint + r2_489 + c2_490 = TreeSitter.Node.nodeEndPoint node_486 + +deriving instance GHC.Classes.Eq a_491 => GHC.Classes.Eq (ListComprehension a_491) + +deriving instance GHC.Classes.Ord a_492 => GHC.Classes.Ord (ListComprehension a_492) + +deriving instance GHC.Show.Show a_493 => GHC.Show.Show (ListComprehension a_493) + +instance AST.Unmarshal.Unmarshal ListComprehension + +instance Data.Foldable.Foldable ListComprehension where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ListComprehension where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ListComprehension where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ListSplat a = ListSplat + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_494. + AST.Traversable1.Class.Traversable1 a_494 + ) + +instance AST.Unmarshal.SymbolMatching ListSplat where + matchedSymbols _ = [139] + showFailure _ node_495 = + "expected " + GHC.Base.<> ( "list_splat" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_495 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_495) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_496 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_497 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_498 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_499 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_496 + c1_497 = TreeSitter.Node.nodeStartPoint node_495 + TreeSitter.Node.TSPoint + r2_498 + c2_499 = TreeSitter.Node.nodeEndPoint node_495 + +deriving instance GHC.Classes.Eq a_500 => GHC.Classes.Eq (ListSplat a_500) + +deriving instance GHC.Classes.Ord a_501 => GHC.Classes.Ord (ListSplat a_501) + +deriving instance GHC.Show.Show a_502 => GHC.Show.Show (ListSplat a_502) + +instance AST.Unmarshal.Unmarshal ListSplat + +instance Data.Foldable.Foldable ListSplat where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ListSplat where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ListSplat where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Module a = Module + { ann :: a, + extraChildren :: ([AST.Parse.Err ((CompoundStatement GHC.Generics.:+: SimpleStatement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_503. + AST.Traversable1.Class.Traversable1 a_503 + ) + +instance AST.Unmarshal.SymbolMatching Module where + matchedSymbols _ = [101] + showFailure _ node_504 = + "expected " + GHC.Base.<> ( "module" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_504 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_504) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_505 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_506 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_507 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_508 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_505 + c1_506 = TreeSitter.Node.nodeStartPoint node_504 + TreeSitter.Node.TSPoint + r2_507 + c2_508 = TreeSitter.Node.nodeEndPoint node_504 + +deriving instance GHC.Classes.Eq a_509 => GHC.Classes.Eq (Module a_509) + +deriving instance GHC.Classes.Ord a_510 => GHC.Classes.Ord (Module a_510) + +deriving instance GHC.Show.Show a_511 => GHC.Show.Show (Module a_511) + +instance AST.Unmarshal.Unmarshal Module + +instance Data.Foldable.Foldable Module where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Module where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Module where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NamedExpression a = NamedExpression + { ann :: a, + value :: (AST.Parse.Err (Expression a)), + name :: (AST.Parse.Err (Identifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_512. + AST.Traversable1.Class.Traversable1 a_512 + ) + +instance AST.Unmarshal.SymbolMatching NamedExpression where + matchedSymbols _ = [116] + showFailure _ node_513 = + "expected " + GHC.Base.<> ( "named_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_513 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_513) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_514 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_515 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_516 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_517 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_514 + c1_515 = TreeSitter.Node.nodeStartPoint node_513 + TreeSitter.Node.TSPoint + r2_516 + c2_517 = TreeSitter.Node.nodeEndPoint node_513 + +deriving instance GHC.Classes.Eq a_518 => GHC.Classes.Eq (NamedExpression a_518) + +deriving instance GHC.Classes.Ord a_519 => GHC.Classes.Ord (NamedExpression a_519) + +deriving instance GHC.Show.Show a_520 => GHC.Show.Show (NamedExpression a_520) + +instance AST.Unmarshal.Unmarshal NamedExpression + +instance Data.Foldable.Foldable NamedExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NamedExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NamedExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NonlocalStatement a = NonlocalStatement + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Identifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_521. + AST.Traversable1.Class.Traversable1 a_521 + ) + +instance AST.Unmarshal.SymbolMatching NonlocalStatement where + matchedSymbols _ = [142] + showFailure _ node_522 = + "expected " + GHC.Base.<> ( "nonlocal_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_522 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_522) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_523 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_524 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_525 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_526 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_523 + c1_524 = TreeSitter.Node.nodeStartPoint node_522 + TreeSitter.Node.TSPoint + r2_525 + c2_526 = TreeSitter.Node.nodeEndPoint node_522 + +deriving instance GHC.Classes.Eq a_527 => GHC.Classes.Eq (NonlocalStatement a_527) + +deriving instance GHC.Classes.Ord a_528 => GHC.Classes.Ord (NonlocalStatement a_528) + +deriving instance GHC.Show.Show a_529 => GHC.Show.Show (NonlocalStatement a_529) + +instance AST.Unmarshal.Unmarshal NonlocalStatement + +instance Data.Foldable.Foldable NonlocalStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NonlocalStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NonlocalStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NotOperator a = NotOperator + { ann :: a, + argument :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_530. + AST.Traversable1.Class.Traversable1 a_530 + ) + +instance AST.Unmarshal.SymbolMatching NotOperator where + matchedSymbols _ = [156] + showFailure _ node_531 = + "expected " + GHC.Base.<> ( "not_operator" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_531 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_531) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_532 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_533 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_534 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_535 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_532 + c1_533 = TreeSitter.Node.nodeStartPoint node_531 + TreeSitter.Node.TSPoint + r2_534 + c2_535 = TreeSitter.Node.nodeEndPoint node_531 + +deriving instance GHC.Classes.Eq a_536 => GHC.Classes.Eq (NotOperator a_536) + +deriving instance GHC.Classes.Ord a_537 => GHC.Classes.Ord (NotOperator a_537) + +deriving instance GHC.Show.Show a_538 => GHC.Show.Show (NotOperator a_538) + +instance AST.Unmarshal.Unmarshal NotOperator + +instance Data.Foldable.Foldable NotOperator where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NotOperator where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NotOperator where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Pair a = Pair + { ann :: a, + value :: (AST.Parse.Err (Expression a)), + key :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_539. + AST.Traversable1.Class.Traversable1 a_539 + ) + +instance AST.Unmarshal.SymbolMatching Pair where + matchedSymbols _ = [179] + showFailure _ node_540 = + "expected " + GHC.Base.<> ( "pair" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_540 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_540) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_541 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_542 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_543 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_544 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_541 + c1_542 = TreeSitter.Node.nodeStartPoint node_540 + TreeSitter.Node.TSPoint + r2_543 + c2_544 = TreeSitter.Node.nodeEndPoint node_540 + +deriving instance GHC.Classes.Eq a_545 => GHC.Classes.Eq (Pair a_545) + +deriving instance GHC.Classes.Ord a_546 => GHC.Classes.Ord (Pair a_546) + +deriving instance GHC.Show.Show a_547 => GHC.Show.Show (Pair a_547) + +instance AST.Unmarshal.Unmarshal Pair + +instance Data.Foldable.Foldable Pair where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Pair where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Pair where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Parameters a = Parameters + { ann :: a, + extraChildren :: ([AST.Parse.Err (Parameter a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_548. + AST.Traversable1.Class.Traversable1 a_548 + ) + +instance AST.Unmarshal.SymbolMatching Parameters where + matchedSymbols _ = [134] + showFailure _ node_549 = + "expected " + GHC.Base.<> ( "parameters" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_549 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_549) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_550 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_551 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_552 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_553 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_550 + c1_551 = TreeSitter.Node.nodeStartPoint node_549 + TreeSitter.Node.TSPoint + r2_552 + c2_553 = TreeSitter.Node.nodeEndPoint node_549 + +deriving instance GHC.Classes.Eq a_554 => GHC.Classes.Eq (Parameters a_554) + +deriving instance GHC.Classes.Ord a_555 => GHC.Classes.Ord (Parameters a_555) + +deriving instance GHC.Show.Show a_556 => GHC.Show.Show (Parameters a_556) + +instance AST.Unmarshal.Unmarshal Parameters + +instance Data.Foldable.Foldable Parameters where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Parameters where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Parameters where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ParenthesizedExpression a = ParenthesizedExpression + { ann :: a, + extraChildren :: (AST.Parse.Err ((Expression GHC.Generics.:+: ListSplat GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: Yield) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_557. + AST.Traversable1.Class.Traversable1 a_557 + ) + +instance AST.Unmarshal.SymbolMatching ParenthesizedExpression where + matchedSymbols _ = [145, 182] + showFailure _ node_558 = + "expected " + GHC.Base.<> ( "parenthesized_expression, parenthesized_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_558 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_558) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_559 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_560 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_561 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_562 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_559 + c1_560 = TreeSitter.Node.nodeStartPoint node_558 + TreeSitter.Node.TSPoint + r2_561 + c2_562 = TreeSitter.Node.nodeEndPoint node_558 + +deriving instance GHC.Classes.Eq a_563 => GHC.Classes.Eq (ParenthesizedExpression a_563) + +deriving instance GHC.Classes.Ord a_564 => GHC.Classes.Ord (ParenthesizedExpression a_564) + +deriving instance GHC.Show.Show a_565 => GHC.Show.Show (ParenthesizedExpression a_565) + +instance AST.Unmarshal.Unmarshal ParenthesizedExpression + +instance Data.Foldable.Foldable ParenthesizedExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ParenthesizedExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ParenthesizedExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PassStatement a = PassStatement {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_566. + AST.Traversable1.Class.Traversable1 a_566 + ) + +instance AST.Unmarshal.SymbolMatching PassStatement where + matchedSymbols _ = [120] + showFailure _ node_567 = + "expected " + GHC.Base.<> ( "pass_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_567 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_567) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_568 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_569 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_570 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_571 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_568 + c1_569 = TreeSitter.Node.nodeStartPoint node_567 + TreeSitter.Node.TSPoint + r2_570 + c2_571 = TreeSitter.Node.nodeEndPoint node_567 + +deriving instance GHC.Classes.Eq a_572 => GHC.Classes.Eq (PassStatement a_572) + +deriving instance GHC.Classes.Ord a_573 => GHC.Classes.Ord (PassStatement a_573) + +deriving instance GHC.Show.Show a_574 => GHC.Show.Show (PassStatement a_574) + +instance AST.Unmarshal.Unmarshal PassStatement + +instance Data.Foldable.Foldable PassStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PassStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PassStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PrintStatement a = PrintStatement + { ann :: a, + argument :: ([AST.Parse.Err (Expression a)]), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Chevron a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_575. + AST.Traversable1.Class.Traversable1 a_575 + ) + +instance AST.Unmarshal.SymbolMatching PrintStatement where + matchedSymbols _ = [112] + showFailure _ node_576 = + "expected " + GHC.Base.<> ( "print_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_576 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_576) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_577 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_578 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_579 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_580 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_577 + c1_578 = TreeSitter.Node.nodeStartPoint node_576 + TreeSitter.Node.TSPoint + r2_579 + c2_580 = TreeSitter.Node.nodeEndPoint node_576 + +deriving instance GHC.Classes.Eq a_581 => GHC.Classes.Eq (PrintStatement a_581) + +deriving instance GHC.Classes.Ord a_582 => GHC.Classes.Ord (PrintStatement a_582) + +deriving instance GHC.Show.Show a_583 => GHC.Show.Show (PrintStatement a_583) + +instance AST.Unmarshal.Unmarshal PrintStatement + +instance Data.Foldable.Foldable PrintStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PrintStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PrintStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RaiseStatement a = RaiseStatement + { ann :: a, + cause :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ExpressionList a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_584. + AST.Traversable1.Class.Traversable1 a_584 + ) + +instance AST.Unmarshal.SymbolMatching RaiseStatement where + matchedSymbols _ = [119] + showFailure _ node_585 = + "expected " + GHC.Base.<> ( "raise_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_585 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_585) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_586 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_587 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_588 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_589 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_586 + c1_587 = TreeSitter.Node.nodeStartPoint node_585 + TreeSitter.Node.TSPoint + r2_588 + c2_589 = TreeSitter.Node.nodeEndPoint node_585 + +deriving instance GHC.Classes.Eq a_590 => GHC.Classes.Eq (RaiseStatement a_590) + +deriving instance GHC.Classes.Ord a_591 => GHC.Classes.Ord (RaiseStatement a_591) + +deriving instance GHC.Show.Show a_592 => GHC.Show.Show (RaiseStatement a_592) + +instance AST.Unmarshal.Unmarshal RaiseStatement + +instance Data.Foldable.Foldable RaiseStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RaiseStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RaiseStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RelativeImport a = RelativeImport + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((DottedName GHC.Generics.:+: ImportPrefix) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_593. + AST.Traversable1.Class.Traversable1 a_593 + ) + +instance AST.Unmarshal.SymbolMatching RelativeImport where + matchedSymbols _ = [106] + showFailure _ node_594 = + "expected " + GHC.Base.<> ( "relative_import" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_594 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_594) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_595 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_596 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_597 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_598 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_595 + c1_596 = TreeSitter.Node.nodeStartPoint node_594 + TreeSitter.Node.TSPoint + r2_597 + c2_598 = TreeSitter.Node.nodeEndPoint node_594 + +deriving instance GHC.Classes.Eq a_599 => GHC.Classes.Eq (RelativeImport a_599) + +deriving instance GHC.Classes.Ord a_600 => GHC.Classes.Ord (RelativeImport a_600) + +deriving instance GHC.Show.Show a_601 => GHC.Show.Show (RelativeImport a_601) + +instance AST.Unmarshal.Unmarshal RelativeImport + +instance Data.Foldable.Foldable RelativeImport where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RelativeImport where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RelativeImport where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ReturnStatement a = ReturnStatement + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ExpressionList a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_602. + AST.Traversable1.Class.Traversable1 a_602 + ) + +instance AST.Unmarshal.SymbolMatching ReturnStatement where + matchedSymbols _ = [117] + showFailure _ node_603 = + "expected " + GHC.Base.<> ( "return_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_603 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_603) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_604 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_605 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_606 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_607 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_604 + c1_605 = TreeSitter.Node.nodeStartPoint node_603 + TreeSitter.Node.TSPoint + r2_606 + c2_607 = TreeSitter.Node.nodeEndPoint node_603 + +deriving instance GHC.Classes.Eq a_608 => GHC.Classes.Eq (ReturnStatement a_608) + +deriving instance GHC.Classes.Ord a_609 => GHC.Classes.Ord (ReturnStatement a_609) + +deriving instance GHC.Show.Show a_610 => GHC.Show.Show (ReturnStatement a_610) + +instance AST.Unmarshal.Unmarshal ReturnStatement + +instance Data.Foldable.Foldable ReturnStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ReturnStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ReturnStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Set a = Set + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: ListSplat) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_611. + AST.Traversable1.Class.Traversable1 a_611 + ) + +instance AST.Unmarshal.SymbolMatching Set where + matchedSymbols _ = [180] + showFailure _ node_612 = + "expected " + GHC.Base.<> ( "set" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_612 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_612) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_613 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_614 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_615 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_616 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_613 + c1_614 = TreeSitter.Node.nodeStartPoint node_612 + TreeSitter.Node.TSPoint + r2_615 + c2_616 = TreeSitter.Node.nodeEndPoint node_612 + +deriving instance GHC.Classes.Eq a_617 => GHC.Classes.Eq (Set a_617) + +deriving instance GHC.Classes.Ord a_618 => GHC.Classes.Ord (Set a_618) + +deriving instance GHC.Show.Show a_619 => GHC.Show.Show (Set a_619) + +instance AST.Unmarshal.Unmarshal Set + +instance Data.Foldable.Foldable Set where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Set where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Set where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SetComprehension a = SetComprehension + { ann :: a, + body :: (AST.Parse.Err (Expression a)), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ForInClause GHC.Generics.:+: IfClause) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_620. + AST.Traversable1.Class.Traversable1 a_620 + ) + +instance AST.Unmarshal.SymbolMatching SetComprehension where + matchedSymbols _ = [181] + showFailure _ node_621 = + "expected " + GHC.Base.<> ( "set_comprehension" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_621 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_621) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_622 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_623 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_624 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_625 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_622 + c1_623 = TreeSitter.Node.nodeStartPoint node_621 + TreeSitter.Node.TSPoint + r2_624 + c2_625 = TreeSitter.Node.nodeEndPoint node_621 + +deriving instance GHC.Classes.Eq a_626 => GHC.Classes.Eq (SetComprehension a_626) + +deriving instance GHC.Classes.Ord a_627 => GHC.Classes.Ord (SetComprehension a_627) + +deriving instance GHC.Show.Show a_628 => GHC.Show.Show (SetComprehension a_628) + +instance AST.Unmarshal.Unmarshal SetComprehension + +instance Data.Foldable.Foldable SetComprehension where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SetComprehension where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SetComprehension where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Slice a = Slice + { ann :: a, + extraChildren :: ([AST.Parse.Err (Expression a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_629. + AST.Traversable1.Class.Traversable1 a_629 + ) + +instance AST.Unmarshal.SymbolMatching Slice where + matchedSymbols _ = [169] + showFailure _ node_630 = + "expected " + GHC.Base.<> ( "slice" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_630 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_630) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_631 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_632 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_633 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_634 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_631 + c1_632 = TreeSitter.Node.nodeStartPoint node_630 + TreeSitter.Node.TSPoint + r2_633 + c2_634 = TreeSitter.Node.nodeEndPoint node_630 + +deriving instance GHC.Classes.Eq a_635 => GHC.Classes.Eq (Slice a_635) + +deriving instance GHC.Classes.Ord a_636 => GHC.Classes.Ord (Slice a_636) + +deriving instance GHC.Show.Show a_637 => GHC.Show.Show (Slice a_637) + +instance AST.Unmarshal.Unmarshal Slice + +instance Data.Foldable.Foldable Slice where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Slice where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Slice where + traverse = AST.Traversable1.Class.traverseDefault1 + +data String a = String + { ann :: a, + extraChildren :: ([AST.Parse.Err ((EscapeSequence GHC.Generics.:+: Interpolation) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_638. + AST.Traversable1.Class.Traversable1 a_638 + ) + +instance AST.Unmarshal.SymbolMatching String where + matchedSymbols _ = [189] + showFailure _ node_639 = + "expected " + GHC.Base.<> ( "string" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_639 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_639) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_640 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_641 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_642 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_643 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_640 + c1_641 = TreeSitter.Node.nodeStartPoint node_639 + TreeSitter.Node.TSPoint + r2_642 + c2_643 = TreeSitter.Node.nodeEndPoint node_639 + +deriving instance GHC.Classes.Eq a_644 => GHC.Classes.Eq (String a_644) + +deriving instance GHC.Classes.Ord a_645 => GHC.Classes.Ord (String a_645) + +deriving instance GHC.Show.Show a_646 => GHC.Show.Show (String a_646) + +instance AST.Unmarshal.Unmarshal String + +instance Data.Foldable.Foldable String where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor String where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable String where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Subscript a = Subscript + { ann :: a, + subscript :: (GHC.Base.NonEmpty (AST.Parse.Err ((AnonymousComma GHC.Generics.:+: Expression GHC.Generics.:+: Slice) a))), + value :: (AST.Parse.Err (PrimaryExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_647. + AST.Traversable1.Class.Traversable1 a_647 + ) + +instance AST.Unmarshal.SymbolMatching Subscript where + matchedSymbols _ = [168] + showFailure _ node_648 = + "expected " + GHC.Base.<> ( "subscript" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_648 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_648) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_649 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_650 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_651 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_652 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_649 + c1_650 = TreeSitter.Node.nodeStartPoint node_648 + TreeSitter.Node.TSPoint + r2_651 + c2_652 = TreeSitter.Node.nodeEndPoint node_648 + +deriving instance GHC.Classes.Eq a_653 => GHC.Classes.Eq (Subscript a_653) + +deriving instance GHC.Classes.Ord a_654 => GHC.Classes.Ord (Subscript a_654) + +deriving instance GHC.Show.Show a_655 => GHC.Show.Show (Subscript a_655) + +instance AST.Unmarshal.Unmarshal Subscript + +instance Data.Foldable.Foldable Subscript where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Subscript where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Subscript where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TryStatement a = TryStatement + { ann :: a, + body :: (AST.Parse.Err (Block a)), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ElseClause GHC.Generics.:+: ExceptClause GHC.Generics.:+: FinallyClause) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_656. + AST.Traversable1.Class.Traversable1 a_656 + ) + +instance AST.Unmarshal.SymbolMatching TryStatement where + matchedSymbols _ = [128] + showFailure _ node_657 = + "expected " + GHC.Base.<> ( "try_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_657 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_657) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_658 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_659 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_660 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_661 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_658 + c1_659 = TreeSitter.Node.nodeStartPoint node_657 + TreeSitter.Node.TSPoint + r2_660 + c2_661 = TreeSitter.Node.nodeEndPoint node_657 + +deriving instance GHC.Classes.Eq a_662 => GHC.Classes.Eq (TryStatement a_662) + +deriving instance GHC.Classes.Ord a_663 => GHC.Classes.Ord (TryStatement a_663) + +deriving instance GHC.Show.Show a_664 => GHC.Show.Show (TryStatement a_664) + +instance AST.Unmarshal.Unmarshal TryStatement + +instance Data.Foldable.Foldable TryStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TryStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TryStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Tuple a = Tuple + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Expression GHC.Generics.:+: Yield) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_665. + AST.Traversable1.Class.Traversable1 a_665 + ) + +instance AST.Unmarshal.SymbolMatching Tuple where + matchedSymbols _ = [183] + showFailure _ node_666 = + "expected " + GHC.Base.<> ( "tuple" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_666 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_666) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_667 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_668 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_669 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_670 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_667 + c1_668 = TreeSitter.Node.nodeStartPoint node_666 + TreeSitter.Node.TSPoint + r2_669 + c2_670 = TreeSitter.Node.nodeEndPoint node_666 + +deriving instance GHC.Classes.Eq a_671 => GHC.Classes.Eq (Tuple a_671) + +deriving instance GHC.Classes.Ord a_672 => GHC.Classes.Ord (Tuple a_672) + +deriving instance GHC.Show.Show a_673 => GHC.Show.Show (Tuple a_673) + +instance AST.Unmarshal.Unmarshal Tuple + +instance Data.Foldable.Foldable Tuple where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Tuple where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Tuple where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Type a = Type {ann :: a, extraChildren :: (AST.Parse.Err (Expression a))} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_674. + AST.Traversable1.Class.Traversable1 a_674 + ) + +instance AST.Unmarshal.SymbolMatching Type where + matchedSymbols _ = [172] + showFailure _ node_675 = + "expected " + GHC.Base.<> ( "type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_675 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_675) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_676 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_677 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_678 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_679 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_676 + c1_677 = TreeSitter.Node.nodeStartPoint node_675 + TreeSitter.Node.TSPoint + r2_678 + c2_679 = TreeSitter.Node.nodeEndPoint node_675 + +deriving instance GHC.Classes.Eq a_680 => GHC.Classes.Eq (Type a_680) + +deriving instance GHC.Classes.Ord a_681 => GHC.Classes.Ord (Type a_681) + +deriving instance GHC.Show.Show a_682 => GHC.Show.Show (Type a_682) + +instance AST.Unmarshal.Unmarshal Type + +instance Data.Foldable.Foldable Type where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Type where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Type where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypedDefaultParameter a = TypedDefaultParameter + { ann :: a, + value :: (AST.Parse.Err (Expression a)), + name :: (AST.Parse.Err (Identifier a)), + type' :: (AST.Parse.Err (Type a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_683. + AST.Traversable1.Class.Traversable1 a_683 + ) + +instance AST.Unmarshal.SymbolMatching TypedDefaultParameter where + matchedSymbols _ = [138] + showFailure _ node_684 = + "expected " + GHC.Base.<> ( "typed_default_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_684 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_684) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_685 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_686 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_687 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_688 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_685 + c1_686 = TreeSitter.Node.nodeStartPoint node_684 + TreeSitter.Node.TSPoint + r2_687 + c2_688 = TreeSitter.Node.nodeEndPoint node_684 + +deriving instance GHC.Classes.Eq a_689 => GHC.Classes.Eq (TypedDefaultParameter a_689) + +deriving instance GHC.Classes.Ord a_690 => GHC.Classes.Ord (TypedDefaultParameter a_690) + +deriving instance GHC.Show.Show a_691 => GHC.Show.Show (TypedDefaultParameter a_691) + +instance AST.Unmarshal.Unmarshal TypedDefaultParameter + +instance Data.Foldable.Foldable TypedDefaultParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypedDefaultParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypedDefaultParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypedParameter a = TypedParameter + { ann :: a, + type' :: (AST.Parse.Err (Type a)), + extraChildren :: (AST.Parse.Err ((DictionarySplat GHC.Generics.:+: Identifier GHC.Generics.:+: ListSplat) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_692. + AST.Traversable1.Class.Traversable1 a_692 + ) + +instance AST.Unmarshal.SymbolMatching TypedParameter where + matchedSymbols _ = [171] + showFailure _ node_693 = + "expected " + GHC.Base.<> ( "typed_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_693 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_693) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_694 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_695 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_696 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_697 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_694 + c1_695 = TreeSitter.Node.nodeStartPoint node_693 + TreeSitter.Node.TSPoint + r2_696 + c2_697 = TreeSitter.Node.nodeEndPoint node_693 + +deriving instance GHC.Classes.Eq a_698 => GHC.Classes.Eq (TypedParameter a_698) + +deriving instance GHC.Classes.Ord a_699 => GHC.Classes.Ord (TypedParameter a_699) + +deriving instance GHC.Show.Show a_700 => GHC.Show.Show (TypedParameter a_700) + +instance AST.Unmarshal.Unmarshal TypedParameter + +instance Data.Foldable.Foldable TypedParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypedParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypedParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UnaryOperator a = UnaryOperator + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousPlus GHC.Generics.:+: AnonymousMinus GHC.Generics.:+: AnonymousTilde) a)), + argument :: (AST.Parse.Err (PrimaryExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_701. + AST.Traversable1.Class.Traversable1 a_701 + ) + +instance AST.Unmarshal.SymbolMatching UnaryOperator where + matchedSymbols _ = [159] + showFailure _ node_702 = + "expected " + GHC.Base.<> ( "unary_operator" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_702 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_702) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_703 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_704 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_705 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_706 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_703 + c1_704 = TreeSitter.Node.nodeStartPoint node_702 + TreeSitter.Node.TSPoint + r2_705 + c2_706 = TreeSitter.Node.nodeEndPoint node_702 + +deriving instance GHC.Classes.Eq a_707 => GHC.Classes.Eq (UnaryOperator a_707) + +deriving instance GHC.Classes.Ord a_708 => GHC.Classes.Ord (UnaryOperator a_708) + +deriving instance GHC.Show.Show a_709 => GHC.Show.Show (UnaryOperator a_709) + +instance AST.Unmarshal.Unmarshal UnaryOperator + +instance Data.Foldable.Foldable UnaryOperator where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UnaryOperator where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UnaryOperator where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Variables a = Variables + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (PrimaryExpression a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_710. + AST.Traversable1.Class.Traversable1 a_710 + ) + +instance AST.Unmarshal.SymbolMatching Variables where + matchedSymbols _ = [150] + showFailure _ node_711 = + "expected " + GHC.Base.<> ( "variables" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_711 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_711) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_712 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_713 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_714 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_715 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_712 + c1_713 = TreeSitter.Node.nodeStartPoint node_711 + TreeSitter.Node.TSPoint + r2_714 + c2_715 = TreeSitter.Node.nodeEndPoint node_711 + +deriving instance GHC.Classes.Eq a_716 => GHC.Classes.Eq (Variables a_716) + +deriving instance GHC.Classes.Ord a_717 => GHC.Classes.Ord (Variables a_717) + +deriving instance GHC.Show.Show a_718 => GHC.Show.Show (Variables a_718) + +instance AST.Unmarshal.Unmarshal Variables + +instance Data.Foldable.Foldable Variables where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Variables where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Variables where + traverse = AST.Traversable1.Class.traverseDefault1 + +data WhileStatement a = WhileStatement + { ann :: a, + alternative :: (GHC.Maybe.Maybe (AST.Parse.Err (ElseClause a))), + body :: (AST.Parse.Err (Block a)), + condition :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_719. + AST.Traversable1.Class.Traversable1 a_719 + ) + +instance AST.Unmarshal.SymbolMatching WhileStatement where + matchedSymbols _ = [127] + showFailure _ node_720 = + "expected " + GHC.Base.<> ( "while_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_720 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_720) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_721 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_722 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_723 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_724 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_721 + c1_722 = TreeSitter.Node.nodeStartPoint node_720 + TreeSitter.Node.TSPoint + r2_723 + c2_724 = TreeSitter.Node.nodeEndPoint node_720 + +deriving instance GHC.Classes.Eq a_725 => GHC.Classes.Eq (WhileStatement a_725) + +deriving instance GHC.Classes.Ord a_726 => GHC.Classes.Ord (WhileStatement a_726) + +deriving instance GHC.Show.Show a_727 => GHC.Show.Show (WhileStatement a_727) + +instance AST.Unmarshal.Unmarshal WhileStatement + +instance Data.Foldable.Foldable WhileStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor WhileStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable WhileStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data WildcardImport a = WildcardImport {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_728. + AST.Traversable1.Class.Traversable1 a_728 + ) + +instance AST.Unmarshal.SymbolMatching WildcardImport where + matchedSymbols _ = [111] + showFailure _ node_729 = + "expected " + GHC.Base.<> ( "wildcard_import" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_729 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_729) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_730 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_731 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_732 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_733 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_730 + c1_731 = TreeSitter.Node.nodeStartPoint node_729 + TreeSitter.Node.TSPoint + r2_732 + c2_733 = TreeSitter.Node.nodeEndPoint node_729 + +deriving instance GHC.Classes.Eq a_734 => GHC.Classes.Eq (WildcardImport a_734) + +deriving instance GHC.Classes.Ord a_735 => GHC.Classes.Ord (WildcardImport a_735) + +deriving instance GHC.Show.Show a_736 => GHC.Show.Show (WildcardImport a_736) + +instance AST.Unmarshal.Unmarshal WildcardImport + +instance Data.Foldable.Foldable WildcardImport where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor WildcardImport where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable WildcardImport where + traverse = AST.Traversable1.Class.traverseDefault1 + +data WithItem a = WithItem + { ann :: a, + value :: (AST.Parse.Err (Expression a)), + alias :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_737. + AST.Traversable1.Class.Traversable1 a_737 + ) + +instance AST.Unmarshal.SymbolMatching WithItem where + matchedSymbols _ = [132] + showFailure _ node_738 = + "expected " + GHC.Base.<> ( "with_item" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_738 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_738) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_739 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_740 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_741 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_742 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_739 + c1_740 = TreeSitter.Node.nodeStartPoint node_738 + TreeSitter.Node.TSPoint + r2_741 + c2_742 = TreeSitter.Node.nodeEndPoint node_738 + +deriving instance GHC.Classes.Eq a_743 => GHC.Classes.Eq (WithItem a_743) + +deriving instance GHC.Classes.Ord a_744 => GHC.Classes.Ord (WithItem a_744) + +deriving instance GHC.Show.Show a_745 => GHC.Show.Show (WithItem a_745) + +instance AST.Unmarshal.Unmarshal WithItem + +instance Data.Foldable.Foldable WithItem where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor WithItem where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable WithItem where + traverse = AST.Traversable1.Class.traverseDefault1 + +data WithStatement a = WithStatement + { ann :: a, + body :: (AST.Parse.Err (Block a)), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (WithItem a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_746. + AST.Traversable1.Class.Traversable1 a_746 + ) + +instance AST.Unmarshal.SymbolMatching WithStatement where + matchedSymbols _ = [131] + showFailure _ node_747 = + "expected " + GHC.Base.<> ( "with_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_747 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_747) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_748 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_749 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_750 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_751 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_748 + c1_749 = TreeSitter.Node.nodeStartPoint node_747 + TreeSitter.Node.TSPoint + r2_750 + c2_751 = TreeSitter.Node.nodeEndPoint node_747 + +deriving instance GHC.Classes.Eq a_752 => GHC.Classes.Eq (WithStatement a_752) + +deriving instance GHC.Classes.Ord a_753 => GHC.Classes.Ord (WithStatement a_753) + +deriving instance GHC.Show.Show a_754 => GHC.Show.Show (WithStatement a_754) + +instance AST.Unmarshal.Unmarshal WithStatement + +instance Data.Foldable.Foldable WithStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor WithStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable WithStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Yield a = Yield + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err ((Expression GHC.Generics.:+: ExpressionList) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_755. + AST.Traversable1.Class.Traversable1 a_755 + ) + +instance AST.Unmarshal.SymbolMatching Yield where + matchedSymbols _ = [166] + showFailure _ node_756 = + "expected " + GHC.Base.<> ( "yield" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_756 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_756) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_757 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_758 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_759 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_760 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_757 + c1_758 = TreeSitter.Node.nodeStartPoint node_756 + TreeSitter.Node.TSPoint + r2_759 + c2_760 = TreeSitter.Node.nodeEndPoint node_756 + +deriving instance GHC.Classes.Eq a_761 => GHC.Classes.Eq (Yield a_761) + +deriving instance GHC.Classes.Ord a_762 => GHC.Classes.Ord (Yield a_762) + +deriving instance GHC.Show.Show a_763 => GHC.Show.Show (Yield a_763) + +instance AST.Unmarshal.Unmarshal Yield + +instance Data.Foldable.Foldable Yield where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Yield where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Yield where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousBangEqual = AST.Token.Token "!=" 58 + +type AnonymousPercent = AST.Token.Token "%" 48 + +type AnonymousPercentEqual = AST.Token.Token "%=" 70 + +type AnonymousAmpersand = AST.Token.Token "&" 51 + +type AnonymousAmpersandEqual = AST.Token.Token "&=" 74 + +type AnonymousLParen = AST.Token.Token "(" 6 + +type AnonymousRParen = AST.Token.Token ")" 7 + +type AnonymousStar = AST.Token.Token "*" 10 + +type AnonymousStarStar = AST.Token.Token "**" 36 + +type AnonymousStarStarEqual = AST.Token.Token "**=" 71 + +type AnonymousStarEqual = AST.Token.Token "*=" 66 + +type AnonymousPlus = AST.Token.Token "+" 45 + +type AnonymousPlusEqual = AST.Token.Token "+=" 64 + +type AnonymousComma = AST.Token.Token "," 8 + +type AnonymousMinus = AST.Token.Token "-" 46 + +type AnonymousMinusEqual = AST.Token.Token "-=" 65 + +type AnonymousMinusRAngle = AST.Token.Token "->" 34 + +type AnonymousDot = AST.Token.Token "." 3 + +type AnonymousSlash = AST.Token.Token "/" 47 + +type AnonymousSlashSlash = AST.Token.Token "//" 49 + +type AnonymousSlashSlashEqual = AST.Token.Token "//=" 69 + +type AnonymousSlashEqual = AST.Token.Token "/=" 67 + +type AnonymousColon = AST.Token.Token ":" 22 + +type AnonymousColonEqual = AST.Token.Token ":=" 14 + +type AnonymousLAngle = AST.Token.Token "<" 55 + +type AnonymousLAngleLAngle = AST.Token.Token "<<" 53 + +type AnonymousLAngleLAngleEqual = AST.Token.Token "<<=" 73 + +type AnonymousLAngleEqual = AST.Token.Token "<=" 56 + +type AnonymousLAngleRAngle = AST.Token.Token "<>" 61 + +type AnonymousEqual = AST.Token.Token "=" 35 + +type AnonymousEqualEqual = AST.Token.Token "==" 57 + +type AnonymousRAngle = AST.Token.Token ">" 60 + +type AnonymousRAngleEqual = AST.Token.Token ">=" 59 + +type AnonymousRAngleRAngle = AST.Token.Token ">>" 12 + +type AnonymousRAngleRAngleEqual = AST.Token.Token ">>=" 72 + +type AnonymousAt = AST.Token.Token "@" 41 + +type AnonymousAtEqual = AST.Token.Token "@=" 68 + +type AnonymousLBracket = AST.Token.Token "[" 78 + +type AnonymousRBracket = AST.Token.Token "]" 79 + +type AnonymousCaret = AST.Token.Token "^" 52 + +type AnonymousCaretEqual = AST.Token.Token "^=" 75 + +type AnonymousUnderscorefutureUnderscore = + AST.Token.Token + "__future__" + 5 + +type AnonymousAnd = AST.Token.Token "and" 43 + +type AnonymousAs = AST.Token.Token "as" 9 + +type AnonymousAssert = AST.Token.Token "assert" 13 + +type AnonymousAsync = AST.Token.Token "async" 25 + +type AnonymousAwait = AST.Token.Token "await" 92 + +type AnonymousBreak = AST.Token.Token "break" 19 + +type AnonymousClass = AST.Token.Token "class" 40 + +type AnonymousContinue = AST.Token.Token "continue" 20 + +type AnonymousDef = AST.Token.Token "def" 33 + +type AnonymousDel = AST.Token.Token "del" 16 + +type AnonymousElif = AST.Token.Token "elif" 23 + +data Ellipsis a = Ellipsis {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_764. + AST.Traversable1.Class.Traversable1 a_764 + ) + +instance AST.Unmarshal.SymbolMatching Ellipsis where + matchedSymbols _ = [80] + showFailure _ node_765 = + "expected " + GHC.Base.<> ( "ellipsis" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_765 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_765) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_766 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_767 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_768 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_769 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_766 + c1_767 = TreeSitter.Node.nodeStartPoint node_765 + TreeSitter.Node.TSPoint + r2_768 + c2_769 = TreeSitter.Node.nodeEndPoint node_765 + +deriving instance GHC.Classes.Eq a_770 => GHC.Classes.Eq (Ellipsis a_770) + +deriving instance GHC.Classes.Ord a_771 => GHC.Classes.Ord (Ellipsis a_771) + +deriving instance GHC.Show.Show a_772 => GHC.Show.Show (Ellipsis a_772) + +instance AST.Unmarshal.Unmarshal Ellipsis + +instance Data.Foldable.Foldable Ellipsis where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Ellipsis where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Ellipsis where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousElse = AST.Token.Token "else" 24 + +data EscapeSequence a = EscapeSequence {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_773. + AST.Traversable1.Class.Traversable1 a_773 + ) + +instance AST.Unmarshal.SymbolMatching EscapeSequence where + matchedSymbols _ = [83] + showFailure _ node_774 = + "expected " + GHC.Base.<> ( "escape_sequence" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_774 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_774) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_775 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_776 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_777 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_778 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_775 + c1_776 = TreeSitter.Node.nodeStartPoint node_774 + TreeSitter.Node.TSPoint + r2_777 + c2_778 = TreeSitter.Node.nodeEndPoint node_774 + +deriving instance GHC.Classes.Eq a_779 => GHC.Classes.Eq (EscapeSequence a_779) + +deriving instance GHC.Classes.Ord a_780 => GHC.Classes.Ord (EscapeSequence a_780) + +deriving instance GHC.Show.Show a_781 => GHC.Show.Show (EscapeSequence a_781) + +instance AST.Unmarshal.Unmarshal EscapeSequence + +instance Data.Foldable.Foldable EscapeSequence where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EscapeSequence where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EscapeSequence where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousExcept = AST.Token.Token "except" 30 + +type AnonymousExec = AST.Token.Token "exec" 39 + +data False a = False {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_782. + AST.Traversable1.Class.Traversable1 a_782 + ) + +instance AST.Unmarshal.SymbolMatching False where + matchedSymbols _ = [90] + showFailure _ node_783 = + "expected " + GHC.Base.<> ( "false" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_783 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_783) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_784 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_785 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_786 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_787 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_784 + c1_785 = TreeSitter.Node.nodeStartPoint node_783 + TreeSitter.Node.TSPoint + r2_786 + c2_787 = TreeSitter.Node.nodeEndPoint node_783 + +deriving instance GHC.Classes.Eq a_788 => GHC.Classes.Eq (False a_788) + +deriving instance GHC.Classes.Ord a_789 => GHC.Classes.Ord (False a_789) + +deriving instance GHC.Show.Show a_790 => GHC.Show.Show (False a_790) + +instance AST.Unmarshal.Unmarshal False + +instance Data.Foldable.Foldable False where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor False where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable False where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousFinally = AST.Token.Token "finally" 31 + +data Float a = Float {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_791. + AST.Traversable1.Class.Traversable1 a_791 + ) + +instance AST.Unmarshal.SymbolMatching Float where + matchedSymbols _ = [88] + showFailure _ node_792 = + "expected " + GHC.Base.<> ( "float" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_792 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_792) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_793 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_794 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_795 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_796 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_793 + c1_794 = TreeSitter.Node.nodeStartPoint node_792 + TreeSitter.Node.TSPoint + r2_795 + c2_796 = TreeSitter.Node.nodeEndPoint node_792 + +deriving instance GHC.Classes.Eq a_797 => GHC.Classes.Eq (Float a_797) + +deriving instance GHC.Classes.Ord a_798 => GHC.Classes.Ord (Float a_798) + +deriving instance GHC.Show.Show a_799 => GHC.Show.Show (Float a_799) + +instance AST.Unmarshal.Unmarshal Float + +instance Data.Foldable.Foldable Float where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Float where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Float where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousFor = AST.Token.Token "for" 26 + +type AnonymousFrom = AST.Token.Token "from" 4 + +type AnonymousGlobal = AST.Token.Token "global" 37 + +data Identifier a = Identifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_800. + AST.Traversable1.Class.Traversable1 a_800 + ) + +instance AST.Unmarshal.SymbolMatching Identifier where + matchedSymbols _ = [1] + showFailure _ node_801 = + "expected " + GHC.Base.<> ( "identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_801 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_801) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_802 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_803 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_804 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_805 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_802 + c1_803 = TreeSitter.Node.nodeStartPoint node_801 + TreeSitter.Node.TSPoint + r2_804 + c2_805 = TreeSitter.Node.nodeEndPoint node_801 + +deriving instance GHC.Classes.Eq a_806 => GHC.Classes.Eq (Identifier a_806) + +deriving instance GHC.Classes.Ord a_807 => GHC.Classes.Ord (Identifier a_807) + +deriving instance GHC.Show.Show a_808 => GHC.Show.Show (Identifier a_808) + +instance AST.Unmarshal.Unmarshal Identifier + +instance Data.Foldable.Foldable Identifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Identifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Identifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousIf = AST.Token.Token "if" 21 + +type AnonymousImport = AST.Token.Token "import" 2 + +type AnonymousIn = AST.Token.Token "in" 27 + +data Integer a = Integer {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_809. + AST.Traversable1.Class.Traversable1 a_809 + ) + +instance AST.Unmarshal.SymbolMatching Integer where + matchedSymbols _ = [87] + showFailure _ node_810 = + "expected " + GHC.Base.<> ( "integer" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_810 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_810) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_811 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_812 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_813 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_814 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_811 + c1_812 = TreeSitter.Node.nodeStartPoint node_810 + TreeSitter.Node.TSPoint + r2_813 + c2_814 = TreeSitter.Node.nodeEndPoint node_810 + +deriving instance GHC.Classes.Eq a_815 => GHC.Classes.Eq (Integer a_815) + +deriving instance GHC.Classes.Ord a_816 => GHC.Classes.Ord (Integer a_816) + +deriving instance GHC.Show.Show a_817 => GHC.Show.Show (Integer a_817) + +instance AST.Unmarshal.Unmarshal Integer + +instance Data.Foldable.Foldable Integer where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Integer where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Integer where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousIs = AST.Token.Token "is" 62 + +type AnonymousLambda = AST.Token.Token "lambda" 63 + +data None a = None {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_818. + AST.Traversable1.Class.Traversable1 a_818 + ) + +instance AST.Unmarshal.SymbolMatching None where + matchedSymbols _ = [91] + showFailure _ node_819 = + "expected " + GHC.Base.<> ( "none" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_819 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_819) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_820 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_821 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_822 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_823 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_820 + c1_821 = TreeSitter.Node.nodeStartPoint node_819 + TreeSitter.Node.TSPoint + r2_822 + c2_823 = TreeSitter.Node.nodeEndPoint node_819 + +deriving instance GHC.Classes.Eq a_824 => GHC.Classes.Eq (None a_824) + +deriving instance GHC.Classes.Ord a_825 => GHC.Classes.Ord (None a_825) + +deriving instance GHC.Show.Show a_826 => GHC.Show.Show (None a_826) + +instance AST.Unmarshal.Unmarshal None + +instance Data.Foldable.Foldable None where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor None where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable None where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousNonlocal = AST.Token.Token "nonlocal" 38 + +type AnonymousNot = AST.Token.Token "not" 42 + +type AnonymousOr = AST.Token.Token "or" 44 + +type AnonymousPass = AST.Token.Token "pass" 18 + +type AnonymousPrint = AST.Token.Token "print" 11 + +type AnonymousRaise = AST.Token.Token "raise" 17 + +type AnonymousReturn = AST.Token.Token "return" 15 + +data True a = True {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_827. + AST.Traversable1.Class.Traversable1 a_827 + ) + +instance AST.Unmarshal.SymbolMatching True where + matchedSymbols _ = [89] + showFailure _ node_828 = + "expected " + GHC.Base.<> ( "true" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_828 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_828) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_829 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_830 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_831 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_832 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_829 + c1_830 = TreeSitter.Node.nodeStartPoint node_828 + TreeSitter.Node.TSPoint + r2_831 + c2_832 = TreeSitter.Node.nodeEndPoint node_828 + +deriving instance GHC.Classes.Eq a_833 => GHC.Classes.Eq (True a_833) + +deriving instance GHC.Classes.Ord a_834 => GHC.Classes.Ord (True a_834) + +deriving instance GHC.Show.Show a_835 => GHC.Show.Show (True a_835) + +instance AST.Unmarshal.Unmarshal True + +instance Data.Foldable.Foldable True where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor True where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable True where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousTry = AST.Token.Token "try" 29 + +data TypeConversion a = TypeConversion {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_836. + AST.Traversable1.Class.Traversable1 a_836 + ) + +instance AST.Unmarshal.SymbolMatching TypeConversion where + matchedSymbols _ = [86] + showFailure _ node_837 = + "expected " + GHC.Base.<> ( "type_conversion" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_837 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_837) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_838 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_839 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_840 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_841 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_838 + c1_839 = TreeSitter.Node.nodeStartPoint node_837 + TreeSitter.Node.TSPoint + r2_840 + c2_841 = TreeSitter.Node.nodeEndPoint node_837 + +deriving instance GHC.Classes.Eq a_842 => GHC.Classes.Eq (TypeConversion a_842) + +deriving instance GHC.Classes.Ord a_843 => GHC.Classes.Ord (TypeConversion a_843) + +deriving instance GHC.Show.Show a_844 => GHC.Show.Show (TypeConversion a_844) + +instance AST.Unmarshal.Unmarshal TypeConversion + +instance Data.Foldable.Foldable TypeConversion where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeConversion where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeConversion where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousWhile = AST.Token.Token "while" 28 + +type AnonymousWith = AST.Token.Token "with" 32 + +type AnonymousYield = AST.Token.Token "yield" 77 + +type AnonymousLBrace = AST.Token.Token "{" 81 + +type AnonymousPipe = AST.Token.Token "|" 50 + +type AnonymousPipeEqual = AST.Token.Token "|=" 76 + +type AnonymousRBrace = AST.Token.Token "}" 82 + +type AnonymousTilde = AST.Token.Token "~" 54 diff --git a/semantic-ruby/src/Language/Ruby/AST.hs b/semantic-ruby/src/Language/Ruby/AST.hs index 826a0be97..b0ba07cb4 100644 --- a/semantic-ruby/src/Language/Ruby/AST.hs +++ b/semantic-ruby/src/Language/Ruby/AST.hs @@ -1,3 +1,4 @@ +-- Language definition for Ruby, generated by ast-generate. Do not edit! {-# LANGUAGE CPP #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveAnyClass #-} @@ -14,20 +15,5633 @@ {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeApplications #-} {-# LANGUAGE TypeOperators #-} +{-# LANGUAGE UndecidableInstances #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Language.Ruby.AST -( module Language.Ruby.AST -, Ruby.getTestCorpusDir -) where +module Language.Ruby.AST (module Language.Ruby.AST, getTestCorpusDir) where -import Prelude hiding (False, Float, Integer, Rational, String, True) -import AST.GenerateSyntax -import Language.Haskell.TH.Syntax (runIO) -import qualified TreeSitter.Ruby as Ruby (getNodeTypesPath, getTestCorpusDir, tree_sitter_ruby) +import qualified AST.Parse +import qualified AST.Token +import qualified AST.Traversable1.Class +import qualified AST.Unmarshal +import qualified Data.Foldable +import qualified Data.List as Data.OldList +import qualified Data.Maybe as GHC.Maybe +import qualified Data.Text.Internal +import qualified Data.Traversable +import qualified GHC.Base +import qualified GHC.Generics +import qualified GHC.Records +import qualified GHC.Show +import qualified TreeSitter.Node +import TreeSitter.Ruby (getTestCorpusDir) +import qualified Prelude as GHC.Classes -#ifdef NODE_TYPES_PATH -astDeclarationsForLanguage Ruby.tree_sitter_ruby NODE_TYPES_PATH -#else -runIO Ruby.getNodeTypesPath >>= astDeclarationsForLanguage Ruby.tree_sitter_ruby -#endif +debugSymbolNames :: [GHC.Base.String] +debugSymbolNames = debugSymbolNames_0 + +debugSymbolNames_0 :: [GHC.Base.String] +debugSymbolNames_0 = + [ "end", + "identifier", + "___END__", + "uninterpreted", + "_BEGIN", + "_{", + "_}", + "_END", + "_def", + "_(", + "_)", + "_.", + "_::", + "_,", + "_|", + "_;", + "_*", + "_**", + "_&", + "_:", + "_=", + "_class", + "_<", + "_module", + "_end", + "_return", + "_yield", + "_break", + "_next", + "_redo", + "_retry", + "_if", + "_unless", + "_while", + "_until", + "_rescue", + "_for", + "_in", + "_do", + "_case", + "_when", + "_elsif", + "_else", + "_then", + "_begin", + "_ensure", + "_=>", + "_[", + "_]", + "_::", + "_&.", + "_(", + "_+=", + "_-=", + "_*=", + "_**=", + "_/=", + "_||=", + "_|=", + "_&&=", + "_&=", + "_%=", + "_>>=", + "_<<=", + "_^=", + "_?", + "_:", + "_..", + "_...", + "_and", + "_or", + "_||", + "_&&", + "_<<", + "_>>", + "_<=", + "_>", + "_>=", + "_^", + "_+", + "_/", + "_%", + "_==", + "_!=", + "_===", + "_<=>", + "_=~", + "_!~", + "_defined?", + "_not", + "_!", + "_~", + "_-", + "_+@", + "_-@", + "_[]", + "_[]=", + "_`", + "_undef", + "_alias", + "comment", + "integer", + "float", + "complex", + "_r", + "super", + "self", + "true", + "false", + "nil", + "constant", + "instance_variable", + "class_variable", + "global_variable", + "character", + "_#{", + "_string_array_token1", + "escape_sequence", + "_[", + "_->", + "_line_break", + "_simple_symbol", + "_\"", + "_:\"", + "_`", + "_/", + "_%w(", + "_%i(", + "_heredoc_body_start", + "_string_content", + "_heredoc_content", + "_string_end", + "heredoc_end", + "heredoc_beginning", + "_&", + "_*", + "_-", + "_-", + "_*", + "_<<", + "symbol", + "program", + "_statements", + "begin_block", + "end_block", + "_statement", + "method", + "singleton_method", + "_method_rest", + "parameters", + "bare_parameters", + "block_parameters", + "_formal_parameter", + "_simple_formal_parameter", + "splat_parameter", + "hash_splat_parameter", + "block_parameter", + "keyword_parameter", + "optional_parameter", + "class", + "superclass", + "singleton_class", + "module", + "return", + "yield", + "break", + "next", + "return", + "yield", + "break", + "next", + "redo", + "retry", + "if_modifier", + "unless_modifier", + "while_modifier", + "until_modifier", + "rescue_modifier", + "while", + "until", + "for", + "in", + "do", + "case", + "when", + "pattern", + "if", + "unless", + "elsif", + "else", + "then", + "begin", + "ensure", + "rescue", + "exceptions", + "exception_variable", + "_body_statement", + "_expression", + "_arg", + "_primary", + "parenthesized_statements", + "element_reference", + "scope_resolution", + "call", + "method_call", + "method_call", + "argument_list", + "argument_list", + "_argument_list_with_trailing_comma", + "_argument", + "splat_argument", + "hash_splat_argument", + "block_argument", + "do_block", + "block", + "assignment", + "assignment", + "operator_assignment", + "operator_assignment", + "conditional", + "range", + "binary", + "binary", + "unary", + "unary", + "unary", + "right_assignment_list", + "left_assignment_list", + "_mlhs", + "destructured_left_assignment", + "rest_assignment", + "_lhs", + "_variable", + "operator", + "_method_name", + "setter", + "undef", + "alias", + "rational", + "chained_string", + "interpolation", + "string", + "subshell", + "string_array", + "symbol_array", + "symbol", + "regex", + "heredoc_body", + "__literal_contents", + "array", + "hash", + "pair", + "lambda", + "empty_statement", + "_terminator", + "__statements_repeat1", + "_parameters_repeat1", + "_block_parameters_repeat1", + "_for_repeat1", + "_case_repeat1", + "_case_repeat2", + "_when_repeat1", + "_exceptions_repeat1", + "__body_statement_repeat1", + "_command_argument_list_repeat1", + "__mlhs_repeat1", + "_undef_repeat1", + "_chained_string_repeat1", + "_string_array_repeat1", + "_symbol_array_repeat1", + "_heredoc_body_repeat1", + "_hash_repeat1", + "_\"", + "bare_string", + "bare_symbol", + "destructured_parameter", + "lambda_parameters", + "method_parameters" + ] + +newtype Arg a = Arg {getArg :: ((Primary GHC.Generics.:+: Assignment GHC.Generics.:+: Binary GHC.Generics.:+: Conditional GHC.Generics.:+: OperatorAssignment GHC.Generics.:+: Range GHC.Generics.:+: Unary) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1. + AST.Traversable1.Class.Traversable1 a_1 + ) + +instance GHC.Records.HasField "ann" (Arg a_2) a_2 where + getField = AST.Unmarshal.gann GHC.Base.. getArg + +deriving instance GHC.Classes.Eq a_3 => GHC.Classes.Eq (Arg a_3) + +deriving instance GHC.Classes.Ord a_4 => GHC.Classes.Ord (Arg a_4) + +deriving instance GHC.Show.Show a_5 => GHC.Show.Show (Arg a_5) + +instance AST.Unmarshal.Unmarshal Arg + +instance Data.Foldable.Foldable Arg where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Arg where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Arg where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Lhs a = Lhs {getLhs :: ((Variable GHC.Generics.:+: Call GHC.Generics.:+: ElementReference GHC.Generics.:+: False GHC.Generics.:+: MethodCall GHC.Generics.:+: Nil GHC.Generics.:+: ScopeResolution GHC.Generics.:+: True) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_6. + AST.Traversable1.Class.Traversable1 a_6 + ) + +instance GHC.Records.HasField "ann" (Lhs a_7) a_7 where + getField = AST.Unmarshal.gann GHC.Base.. getLhs + +deriving instance GHC.Classes.Eq a_8 => GHC.Classes.Eq (Lhs a_8) + +deriving instance GHC.Classes.Ord a_9 => GHC.Classes.Ord (Lhs a_9) + +deriving instance GHC.Show.Show a_10 => GHC.Show.Show (Lhs a_10) + +instance AST.Unmarshal.Unmarshal Lhs + +instance Data.Foldable.Foldable Lhs where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Lhs where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Lhs where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype MethodName a = MethodName {getMethodName :: ((ClassVariable GHC.Generics.:+: Constant GHC.Generics.:+: GlobalVariable GHC.Generics.:+: Identifier GHC.Generics.:+: InstanceVariable GHC.Generics.:+: Operator GHC.Generics.:+: Setter GHC.Generics.:+: Symbol) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_11. + AST.Traversable1.Class.Traversable1 a_11 + ) + +instance GHC.Records.HasField "ann" (MethodName a_12) a_12 where + getField = AST.Unmarshal.gann GHC.Base.. getMethodName + +deriving instance GHC.Classes.Eq a_13 => GHC.Classes.Eq (MethodName a_13) + +deriving instance GHC.Classes.Ord a_14 => GHC.Classes.Ord (MethodName a_14) + +deriving instance GHC.Show.Show a_15 => GHC.Show.Show (MethodName a_15) + +instance AST.Unmarshal.Unmarshal MethodName + +instance Data.Foldable.Foldable MethodName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MethodName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MethodName where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Primary a = Primary {getPrimary :: ((Lhs GHC.Generics.:+: Array GHC.Generics.:+: Begin GHC.Generics.:+: Break GHC.Generics.:+: Case GHC.Generics.:+: ChainedString GHC.Generics.:+: Character GHC.Generics.:+: Class GHC.Generics.:+: Complex GHC.Generics.:+: Float GHC.Generics.:+: For GHC.Generics.:+: Hash GHC.Generics.:+: HeredocBeginning GHC.Generics.:+: If GHC.Generics.:+: Integer GHC.Generics.:+: Lambda GHC.Generics.:+: Method GHC.Generics.:+: Module GHC.Generics.:+: Next GHC.Generics.:+: ParenthesizedStatements GHC.Generics.:+: Rational GHC.Generics.:+: Redo GHC.Generics.:+: Regex GHC.Generics.:+: Retry GHC.Generics.:+: Return GHC.Generics.:+: SingletonClass GHC.Generics.:+: SingletonMethod GHC.Generics.:+: String GHC.Generics.:+: StringArray GHC.Generics.:+: Subshell GHC.Generics.:+: Symbol GHC.Generics.:+: SymbolArray GHC.Generics.:+: Unary GHC.Generics.:+: Unless GHC.Generics.:+: Until GHC.Generics.:+: While GHC.Generics.:+: Yield) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_16. + AST.Traversable1.Class.Traversable1 a_16 + ) + +instance GHC.Records.HasField "ann" (Primary a_17) a_17 where + getField = AST.Unmarshal.gann GHC.Base.. getPrimary + +deriving instance GHC.Classes.Eq a_18 => GHC.Classes.Eq (Primary a_18) + +deriving instance GHC.Classes.Ord a_19 => GHC.Classes.Ord (Primary a_19) + +deriving instance GHC.Show.Show a_20 => GHC.Show.Show (Primary a_20) + +instance AST.Unmarshal.Unmarshal Primary + +instance Data.Foldable.Foldable Primary where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Primary where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Primary where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Statement a = Statement {getStatement :: ((Arg GHC.Generics.:+: Alias GHC.Generics.:+: Assignment GHC.Generics.:+: BeginBlock GHC.Generics.:+: Binary GHC.Generics.:+: Break GHC.Generics.:+: EndBlock GHC.Generics.:+: IfModifier GHC.Generics.:+: MethodCall GHC.Generics.:+: Next GHC.Generics.:+: OperatorAssignment GHC.Generics.:+: RescueModifier GHC.Generics.:+: Return GHC.Generics.:+: Undef GHC.Generics.:+: UnlessModifier GHC.Generics.:+: UntilModifier GHC.Generics.:+: WhileModifier GHC.Generics.:+: Yield) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_21. + AST.Traversable1.Class.Traversable1 a_21 + ) + +instance GHC.Records.HasField "ann" (Statement a_22) a_22 where + getField = AST.Unmarshal.gann GHC.Base.. getStatement + +deriving instance GHC.Classes.Eq a_23 => GHC.Classes.Eq (Statement a_23) + +deriving instance GHC.Classes.Ord a_24 => GHC.Classes.Ord (Statement a_24) + +deriving instance GHC.Show.Show a_25 => GHC.Show.Show (Statement a_25) + +instance AST.Unmarshal.Unmarshal Statement + +instance Data.Foldable.Foldable Statement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Statement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Statement where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Variable a = Variable {getVariable :: ((ClassVariable GHC.Generics.:+: Constant GHC.Generics.:+: GlobalVariable GHC.Generics.:+: Identifier GHC.Generics.:+: InstanceVariable GHC.Generics.:+: Self GHC.Generics.:+: Super) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_26. + AST.Traversable1.Class.Traversable1 a_26 + ) + +instance GHC.Records.HasField "ann" (Variable a_27) a_27 where + getField = AST.Unmarshal.gann GHC.Base.. getVariable + +deriving instance GHC.Classes.Eq a_28 => GHC.Classes.Eq (Variable a_28) + +deriving instance GHC.Classes.Ord a_29 => GHC.Classes.Ord (Variable a_29) + +deriving instance GHC.Show.Show a_30 => GHC.Show.Show (Variable a_30) + +instance AST.Unmarshal.Unmarshal Variable + +instance Data.Foldable.Foldable Variable where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Variable where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Variable where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Alias a = Alias + { ann :: a, + alias :: (AST.Parse.Err (MethodName a)), + name :: (AST.Parse.Err (MethodName a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_31. + AST.Traversable1.Class.Traversable1 a_31 + ) + +instance AST.Unmarshal.SymbolMatching Alias where + matchedSymbols _ = [237] + showFailure _ node_32 = + "expected " + GHC.Base.<> ( "alias" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_32 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_32) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_33 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_34 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_35 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_36 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_33 + c1_34 = TreeSitter.Node.nodeStartPoint node_32 + TreeSitter.Node.TSPoint + r2_35 + c2_36 = TreeSitter.Node.nodeEndPoint node_32 + +deriving instance GHC.Classes.Eq a_37 => GHC.Classes.Eq (Alias a_37) + +deriving instance GHC.Classes.Ord a_38 => GHC.Classes.Ord (Alias a_38) + +deriving instance GHC.Show.Show a_39 => GHC.Show.Show (Alias a_39) + +instance AST.Unmarshal.Unmarshal Alias + +instance Data.Foldable.Foldable Alias where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Alias where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Alias where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ArgumentList a = ArgumentList + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Arg GHC.Generics.:+: BlockArgument GHC.Generics.:+: HashSplatArgument GHC.Generics.:+: MethodCall GHC.Generics.:+: Pair GHC.Generics.:+: SplatArgument) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_40. + AST.Traversable1.Class.Traversable1 a_40 + ) + +instance AST.Unmarshal.SymbolMatching ArgumentList where + matchedSymbols _ = [206, 207] + showFailure _ node_41 = + "expected " + GHC.Base.<> ( "argument_list, argument_list" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_41 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_41) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_42 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_43 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_44 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_45 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_42 + c1_43 = TreeSitter.Node.nodeStartPoint node_41 + TreeSitter.Node.TSPoint + r2_44 + c2_45 = TreeSitter.Node.nodeEndPoint node_41 + +deriving instance GHC.Classes.Eq a_46 => GHC.Classes.Eq (ArgumentList a_46) + +deriving instance GHC.Classes.Ord a_47 => GHC.Classes.Ord (ArgumentList a_47) + +deriving instance GHC.Show.Show a_48 => GHC.Show.Show (ArgumentList a_48) + +instance AST.Unmarshal.Unmarshal ArgumentList + +instance Data.Foldable.Foldable ArgumentList where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ArgumentList where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ArgumentList where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Array a = Array + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Arg GHC.Generics.:+: BlockArgument GHC.Generics.:+: HashSplatArgument GHC.Generics.:+: Pair GHC.Generics.:+: SplatArgument) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_49. + AST.Traversable1.Class.Traversable1 a_49 + ) + +instance AST.Unmarshal.SymbolMatching Array where + matchedSymbols _ = [249] + showFailure _ node_50 = + "expected " + GHC.Base.<> ( "array" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_50 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_50) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_51 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_52 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_53 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_54 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_51 + c1_52 = TreeSitter.Node.nodeStartPoint node_50 + TreeSitter.Node.TSPoint + r2_53 + c2_54 = TreeSitter.Node.nodeEndPoint node_50 + +deriving instance GHC.Classes.Eq a_55 => GHC.Classes.Eq (Array a_55) + +deriving instance GHC.Classes.Ord a_56 => GHC.Classes.Ord (Array a_56) + +deriving instance GHC.Show.Show a_57 => GHC.Show.Show (Array a_57) + +instance AST.Unmarshal.Unmarshal Array + +instance Data.Foldable.Foldable Array where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Array where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Array where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Assignment a = Assignment + { ann :: a, + left :: (AST.Parse.Err ((Lhs GHC.Generics.:+: LeftAssignmentList) a)), + right :: (AST.Parse.Err ((Arg GHC.Generics.:+: Break GHC.Generics.:+: MethodCall GHC.Generics.:+: Next GHC.Generics.:+: Return GHC.Generics.:+: RightAssignmentList GHC.Generics.:+: SplatArgument GHC.Generics.:+: Yield) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_58. + AST.Traversable1.Class.Traversable1 a_58 + ) + +instance AST.Unmarshal.SymbolMatching Assignment where + matchedSymbols _ = [215, 216] + showFailure _ node_59 = + "expected " + GHC.Base.<> ( "assignment, assignment" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_59 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_59) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_60 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_61 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_62 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_63 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_60 + c1_61 = TreeSitter.Node.nodeStartPoint node_59 + TreeSitter.Node.TSPoint + r2_62 + c2_63 = TreeSitter.Node.nodeEndPoint node_59 + +deriving instance GHC.Classes.Eq a_64 => GHC.Classes.Eq (Assignment a_64) + +deriving instance GHC.Classes.Ord a_65 => GHC.Classes.Ord (Assignment a_65) + +deriving instance GHC.Show.Show a_66 => GHC.Show.Show (Assignment a_66) + +instance AST.Unmarshal.Unmarshal Assignment + +instance Data.Foldable.Foldable Assignment where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Assignment where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Assignment where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BareString a = BareString + { ann :: a, + extraChildren :: ([AST.Parse.Err ((EscapeSequence GHC.Generics.:+: Interpolation) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_67. + AST.Traversable1.Class.Traversable1 a_67 + ) + +instance AST.Unmarshal.SymbolMatching BareString where + matchedSymbols _ = [273] + showFailure _ node_68 = + "expected " + GHC.Base.<> ( "bare_string" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_68 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_68) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_69 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_70 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_71 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_72 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_69 + c1_70 = TreeSitter.Node.nodeStartPoint node_68 + TreeSitter.Node.TSPoint + r2_71 + c2_72 = TreeSitter.Node.nodeEndPoint node_68 + +deriving instance GHC.Classes.Eq a_73 => GHC.Classes.Eq (BareString a_73) + +deriving instance GHC.Classes.Ord a_74 => GHC.Classes.Ord (BareString a_74) + +deriving instance GHC.Show.Show a_75 => GHC.Show.Show (BareString a_75) + +instance AST.Unmarshal.Unmarshal BareString + +instance Data.Foldable.Foldable BareString where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BareString where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BareString where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BareSymbol a = BareSymbol + { ann :: a, + extraChildren :: ([AST.Parse.Err ((EscapeSequence GHC.Generics.:+: Interpolation) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_76. + AST.Traversable1.Class.Traversable1 a_76 + ) + +instance AST.Unmarshal.SymbolMatching BareSymbol where + matchedSymbols _ = [274] + showFailure _ node_77 = + "expected " + GHC.Base.<> ( "bare_symbol" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_77 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_77) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_78 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_79 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_80 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_81 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_78 + c1_79 = TreeSitter.Node.nodeStartPoint node_77 + TreeSitter.Node.TSPoint + r2_80 + c2_81 = TreeSitter.Node.nodeEndPoint node_77 + +deriving instance GHC.Classes.Eq a_82 => GHC.Classes.Eq (BareSymbol a_82) + +deriving instance GHC.Classes.Ord a_83 => GHC.Classes.Ord (BareSymbol a_83) + +deriving instance GHC.Show.Show a_84 => GHC.Show.Show (BareSymbol a_84) + +instance AST.Unmarshal.Unmarshal BareSymbol + +instance Data.Foldable.Foldable BareSymbol where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BareSymbol where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BareSymbol where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Begin a = Begin + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: Else GHC.Generics.:+: EmptyStatement GHC.Generics.:+: Ensure GHC.Generics.:+: Rescue) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_85. + AST.Traversable1.Class.Traversable1 a_85 + ) + +instance AST.Unmarshal.SymbolMatching Begin where + matchedSymbols _ = [191] + showFailure _ node_86 = + "expected " + GHC.Base.<> ( "begin" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_86 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_86) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_87 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_88 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_89 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_90 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_87 + c1_88 = TreeSitter.Node.nodeStartPoint node_86 + TreeSitter.Node.TSPoint + r2_89 + c2_90 = TreeSitter.Node.nodeEndPoint node_86 + +deriving instance GHC.Classes.Eq a_91 => GHC.Classes.Eq (Begin a_91) + +deriving instance GHC.Classes.Ord a_92 => GHC.Classes.Ord (Begin a_92) + +deriving instance GHC.Show.Show a_93 => GHC.Show.Show (Begin a_93) + +instance AST.Unmarshal.Unmarshal Begin + +instance Data.Foldable.Foldable Begin where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Begin where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Begin where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BeginBlock a = BeginBlock + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: EmptyStatement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_94. + AST.Traversable1.Class.Traversable1 a_94 + ) + +instance AST.Unmarshal.SymbolMatching BeginBlock where + matchedSymbols _ = [143] + showFailure _ node_95 = + "expected " + GHC.Base.<> ( "begin_block" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_95 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_95) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_96 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_97 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_98 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_99 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_96 + c1_97 = TreeSitter.Node.nodeStartPoint node_95 + TreeSitter.Node.TSPoint + r2_98 + c2_99 = TreeSitter.Node.nodeEndPoint node_95 + +deriving instance GHC.Classes.Eq a_100 => GHC.Classes.Eq (BeginBlock a_100) + +deriving instance GHC.Classes.Ord a_101 => GHC.Classes.Ord (BeginBlock a_101) + +deriving instance GHC.Show.Show a_102 => GHC.Show.Show (BeginBlock a_102) + +instance AST.Unmarshal.Unmarshal BeginBlock + +instance Data.Foldable.Foldable BeginBlock where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BeginBlock where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BeginBlock where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Binary a = Binary + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousBangEqual GHC.Generics.:+: AnonymousBangTilde GHC.Generics.:+: AnonymousPercent GHC.Generics.:+: AnonymousAmpersand GHC.Generics.:+: AnonymousAmpersandAmpersand GHC.Generics.:+: AnonymousStar GHC.Generics.:+: AnonymousStarStar GHC.Generics.:+: AnonymousPlus GHC.Generics.:+: AnonymousMinus GHC.Generics.:+: AnonymousSlash GHC.Generics.:+: AnonymousLAngle GHC.Generics.:+: AnonymousLAngleLAngle GHC.Generics.:+: AnonymousLAngleEqual GHC.Generics.:+: AnonymousLAngleEqualRAngle GHC.Generics.:+: AnonymousEqualEqual GHC.Generics.:+: AnonymousEqualEqualEqual GHC.Generics.:+: AnonymousEqualTilde GHC.Generics.:+: AnonymousRAngle GHC.Generics.:+: AnonymousRAngleEqual GHC.Generics.:+: AnonymousRAngleRAngle GHC.Generics.:+: AnonymousCaret GHC.Generics.:+: AnonymousAnd GHC.Generics.:+: AnonymousOr GHC.Generics.:+: AnonymousPipe GHC.Generics.:+: AnonymousPipePipe) a)), + left :: (AST.Parse.Err ((Arg GHC.Generics.:+: Break GHC.Generics.:+: MethodCall GHC.Generics.:+: Next GHC.Generics.:+: Return GHC.Generics.:+: Yield) a)), + right :: (AST.Parse.Err ((Arg GHC.Generics.:+: Break GHC.Generics.:+: MethodCall GHC.Generics.:+: Next GHC.Generics.:+: Return GHC.Generics.:+: Yield) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_103. + AST.Traversable1.Class.Traversable1 a_103 + ) + +instance AST.Unmarshal.SymbolMatching Binary where + matchedSymbols _ = [221, 222] + showFailure _ node_104 = + "expected " + GHC.Base.<> ( "binary, binary" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_104 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_104) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_105 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_106 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_107 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_108 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_105 + c1_106 = TreeSitter.Node.nodeStartPoint node_104 + TreeSitter.Node.TSPoint + r2_107 + c2_108 = TreeSitter.Node.nodeEndPoint node_104 + +deriving instance GHC.Classes.Eq a_109 => GHC.Classes.Eq (Binary a_109) + +deriving instance GHC.Classes.Ord a_110 => GHC.Classes.Ord (Binary a_110) + +deriving instance GHC.Show.Show a_111 => GHC.Show.Show (Binary a_111) + +instance AST.Unmarshal.Unmarshal Binary + +instance Data.Foldable.Foldable Binary where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Binary where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Binary where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Block a = Block + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: BlockParameters GHC.Generics.:+: EmptyStatement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_112. + AST.Traversable1.Class.Traversable1 a_112 + ) + +instance AST.Unmarshal.SymbolMatching Block where + matchedSymbols _ = [214] + showFailure _ node_113 = + "expected " + GHC.Base.<> ( "block" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_113 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_113) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_114 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_115 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_116 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_117 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_114 + c1_115 = TreeSitter.Node.nodeStartPoint node_113 + TreeSitter.Node.TSPoint + r2_116 + c2_117 = TreeSitter.Node.nodeEndPoint node_113 + +deriving instance GHC.Classes.Eq a_118 => GHC.Classes.Eq (Block a_118) + +deriving instance GHC.Classes.Ord a_119 => GHC.Classes.Ord (Block a_119) + +deriving instance GHC.Show.Show a_120 => GHC.Show.Show (Block a_120) + +instance AST.Unmarshal.Unmarshal Block + +instance Data.Foldable.Foldable Block where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Block where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Block where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BlockArgument a = BlockArgument + { ann :: a, + extraChildren :: (AST.Parse.Err (Arg a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_121. + AST.Traversable1.Class.Traversable1 a_121 + ) + +instance AST.Unmarshal.SymbolMatching BlockArgument where + matchedSymbols _ = [212] + showFailure _ node_122 = + "expected " + GHC.Base.<> ( "block_argument" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_122 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_122) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_123 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_124 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_125 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_126 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_123 + c1_124 = TreeSitter.Node.nodeStartPoint node_122 + TreeSitter.Node.TSPoint + r2_125 + c2_126 = TreeSitter.Node.nodeEndPoint node_122 + +deriving instance GHC.Classes.Eq a_127 => GHC.Classes.Eq (BlockArgument a_127) + +deriving instance GHC.Classes.Ord a_128 => GHC.Classes.Ord (BlockArgument a_128) + +deriving instance GHC.Show.Show a_129 => GHC.Show.Show (BlockArgument a_129) + +instance AST.Unmarshal.Unmarshal BlockArgument + +instance Data.Foldable.Foldable BlockArgument where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BlockArgument where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BlockArgument where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BlockParameter a = BlockParameter {ann :: a, name :: (AST.Parse.Err (Identifier a))} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_130. + AST.Traversable1.Class.Traversable1 a_130 + ) + +instance AST.Unmarshal.SymbolMatching BlockParameter where + matchedSymbols _ = [156] + showFailure _ node_131 = + "expected " + GHC.Base.<> ( "block_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_131 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_131) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_132 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_133 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_134 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_135 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_132 + c1_133 = TreeSitter.Node.nodeStartPoint node_131 + TreeSitter.Node.TSPoint + r2_134 + c2_135 = TreeSitter.Node.nodeEndPoint node_131 + +deriving instance GHC.Classes.Eq a_136 => GHC.Classes.Eq (BlockParameter a_136) + +deriving instance GHC.Classes.Ord a_137 => GHC.Classes.Ord (BlockParameter a_137) + +deriving instance GHC.Show.Show a_138 => GHC.Show.Show (BlockParameter a_138) + +instance AST.Unmarshal.Unmarshal BlockParameter + +instance Data.Foldable.Foldable BlockParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BlockParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BlockParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BlockParameters a = BlockParameters + { ann :: a, + extraChildren :: ([AST.Parse.Err ((BlockParameter GHC.Generics.:+: DestructuredParameter GHC.Generics.:+: HashSplatParameter GHC.Generics.:+: Identifier GHC.Generics.:+: KeywordParameter GHC.Generics.:+: OptionalParameter GHC.Generics.:+: SplatParameter) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_139. + AST.Traversable1.Class.Traversable1 a_139 + ) + +instance AST.Unmarshal.SymbolMatching BlockParameters where + matchedSymbols _ = [151] + showFailure _ node_140 = + "expected " + GHC.Base.<> ( "block_parameters" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_140 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_140) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_141 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_142 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_143 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_144 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_141 + c1_142 = TreeSitter.Node.nodeStartPoint node_140 + TreeSitter.Node.TSPoint + r2_143 + c2_144 = TreeSitter.Node.nodeEndPoint node_140 + +deriving instance GHC.Classes.Eq a_145 => GHC.Classes.Eq (BlockParameters a_145) + +deriving instance GHC.Classes.Ord a_146 => GHC.Classes.Ord (BlockParameters a_146) + +deriving instance GHC.Show.Show a_147 => GHC.Show.Show (BlockParameters a_147) + +instance AST.Unmarshal.Unmarshal BlockParameters + +instance Data.Foldable.Foldable BlockParameters where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BlockParameters where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BlockParameters where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Break a = Break + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ArgumentList a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_148. + AST.Traversable1.Class.Traversable1 a_148 + ) + +instance AST.Unmarshal.SymbolMatching Break where + matchedSymbols _ = [165, 169] + showFailure _ node_149 = + "expected " + GHC.Base.<> ( "break, break" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_149 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_149) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_150 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_151 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_152 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_153 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_150 + c1_151 = TreeSitter.Node.nodeStartPoint node_149 + TreeSitter.Node.TSPoint + r2_152 + c2_153 = TreeSitter.Node.nodeEndPoint node_149 + +deriving instance GHC.Classes.Eq a_154 => GHC.Classes.Eq (Break a_154) + +deriving instance GHC.Classes.Ord a_155 => GHC.Classes.Ord (Break a_155) + +deriving instance GHC.Show.Show a_156 => GHC.Show.Show (Break a_156) + +instance AST.Unmarshal.Unmarshal Break + +instance Data.Foldable.Foldable Break where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Break where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Break where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Call a = Call + { ann :: a, + receiver :: (AST.Parse.Err (Primary a)), + method :: (AST.Parse.Err ((ArgumentList GHC.Generics.:+: Constant GHC.Generics.:+: Identifier GHC.Generics.:+: Operator) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_157. + AST.Traversable1.Class.Traversable1 a_157 + ) + +instance AST.Unmarshal.SymbolMatching Call where + matchedSymbols _ = [203] + showFailure _ node_158 = + "expected " + GHC.Base.<> ( "call" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_158 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_158) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_159 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_160 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_161 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_162 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_159 + c1_160 = TreeSitter.Node.nodeStartPoint node_158 + TreeSitter.Node.TSPoint + r2_161 + c2_162 = TreeSitter.Node.nodeEndPoint node_158 + +deriving instance GHC.Classes.Eq a_163 => GHC.Classes.Eq (Call a_163) + +deriving instance GHC.Classes.Ord a_164 => GHC.Classes.Ord (Call a_164) + +deriving instance GHC.Show.Show a_165 => GHC.Show.Show (Call a_165) + +instance AST.Unmarshal.Unmarshal Call + +instance Data.Foldable.Foldable Call where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Call where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Call where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Case a = Case + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err (Arg a))), + extraChildren :: ([AST.Parse.Err ((Else GHC.Generics.:+: When) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_166. + AST.Traversable1.Class.Traversable1 a_166 + ) + +instance AST.Unmarshal.SymbolMatching Case where + matchedSymbols _ = [183] + showFailure _ node_167 = + "expected " + GHC.Base.<> ( "case" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_167 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_167) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_168 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_169 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_170 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_171 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_168 + c1_169 = TreeSitter.Node.nodeStartPoint node_167 + TreeSitter.Node.TSPoint + r2_170 + c2_171 = TreeSitter.Node.nodeEndPoint node_167 + +deriving instance GHC.Classes.Eq a_172 => GHC.Classes.Eq (Case a_172) + +deriving instance GHC.Classes.Ord a_173 => GHC.Classes.Ord (Case a_173) + +deriving instance GHC.Show.Show a_174 => GHC.Show.Show (Case a_174) + +instance AST.Unmarshal.Unmarshal Case + +instance Data.Foldable.Foldable Case where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Case where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Case where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ChainedString a = ChainedString + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (String a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_175. + AST.Traversable1.Class.Traversable1 a_175 + ) + +instance AST.Unmarshal.SymbolMatching ChainedString where + matchedSymbols _ = [239] + showFailure _ node_176 = + "expected " + GHC.Base.<> ( "chained_string" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_176 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_176) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_177 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_178 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_179 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_180 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_177 + c1_178 = TreeSitter.Node.nodeStartPoint node_176 + TreeSitter.Node.TSPoint + r2_179 + c2_180 = TreeSitter.Node.nodeEndPoint node_176 + +deriving instance GHC.Classes.Eq a_181 => GHC.Classes.Eq (ChainedString a_181) + +deriving instance GHC.Classes.Ord a_182 => GHC.Classes.Ord (ChainedString a_182) + +deriving instance GHC.Show.Show a_183 => GHC.Show.Show (ChainedString a_183) + +instance AST.Unmarshal.Unmarshal ChainedString + +instance Data.Foldable.Foldable ChainedString where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ChainedString where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ChainedString where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Class a = Class + { ann :: a, + name :: (AST.Parse.Err ((Constant GHC.Generics.:+: ScopeResolution) a)), + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: Else GHC.Generics.:+: EmptyStatement GHC.Generics.:+: Ensure GHC.Generics.:+: Rescue GHC.Generics.:+: Superclass) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_184. + AST.Traversable1.Class.Traversable1 a_184 + ) + +instance AST.Unmarshal.SymbolMatching Class where + matchedSymbols _ = [159] + showFailure _ node_185 = + "expected " + GHC.Base.<> ( "class" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_185 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_185) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_186 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_187 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_188 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_189 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_186 + c1_187 = TreeSitter.Node.nodeStartPoint node_185 + TreeSitter.Node.TSPoint + r2_188 + c2_189 = TreeSitter.Node.nodeEndPoint node_185 + +deriving instance GHC.Classes.Eq a_190 => GHC.Classes.Eq (Class a_190) + +deriving instance GHC.Classes.Ord a_191 => GHC.Classes.Ord (Class a_191) + +deriving instance GHC.Show.Show a_192 => GHC.Show.Show (Class a_192) + +instance AST.Unmarshal.Unmarshal Class + +instance Data.Foldable.Foldable Class where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Class where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Class where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Conditional a = Conditional + { ann :: a, + alternative :: (AST.Parse.Err (Arg a)), + consequence :: (AST.Parse.Err (Arg a)), + condition :: (AST.Parse.Err (Arg a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_193. + AST.Traversable1.Class.Traversable1 a_193 + ) + +instance AST.Unmarshal.SymbolMatching Conditional where + matchedSymbols _ = [219] + showFailure _ node_194 = + "expected " + GHC.Base.<> ( "conditional" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_194 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_194) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_195 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_196 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_197 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_198 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_195 + c1_196 = TreeSitter.Node.nodeStartPoint node_194 + TreeSitter.Node.TSPoint + r2_197 + c2_198 = TreeSitter.Node.nodeEndPoint node_194 + +deriving instance GHC.Classes.Eq a_199 => GHC.Classes.Eq (Conditional a_199) + +deriving instance GHC.Classes.Ord a_200 => GHC.Classes.Ord (Conditional a_200) + +deriving instance GHC.Show.Show a_201 => GHC.Show.Show (Conditional a_201) + +instance AST.Unmarshal.Unmarshal Conditional + +instance Data.Foldable.Foldable Conditional where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Conditional where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Conditional where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DestructuredLeftAssignment a = DestructuredLeftAssignment + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Lhs GHC.Generics.:+: DestructuredLeftAssignment GHC.Generics.:+: RestAssignment) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_202. + AST.Traversable1.Class.Traversable1 a_202 + ) + +instance AST.Unmarshal.SymbolMatching DestructuredLeftAssignment where + matchedSymbols _ = [229] + showFailure _ node_203 = + "expected " + GHC.Base.<> ( "destructured_left_assignment" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_203 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_203) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_204 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_205 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_206 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_207 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_204 + c1_205 = TreeSitter.Node.nodeStartPoint node_203 + TreeSitter.Node.TSPoint + r2_206 + c2_207 = TreeSitter.Node.nodeEndPoint node_203 + +deriving instance GHC.Classes.Eq a_208 => GHC.Classes.Eq (DestructuredLeftAssignment a_208) + +deriving instance GHC.Classes.Ord a_209 => GHC.Classes.Ord (DestructuredLeftAssignment a_209) + +deriving instance GHC.Show.Show a_210 => GHC.Show.Show (DestructuredLeftAssignment a_210) + +instance AST.Unmarshal.Unmarshal DestructuredLeftAssignment + +instance Data.Foldable.Foldable DestructuredLeftAssignment where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DestructuredLeftAssignment where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DestructuredLeftAssignment where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DestructuredParameter a = DestructuredParameter + { ann :: a, + extraChildren :: ([AST.Parse.Err ((BlockParameter GHC.Generics.:+: DestructuredParameter GHC.Generics.:+: HashSplatParameter GHC.Generics.:+: Identifier GHC.Generics.:+: KeywordParameter GHC.Generics.:+: OptionalParameter GHC.Generics.:+: SplatParameter) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_211. + AST.Traversable1.Class.Traversable1 a_211 + ) + +instance AST.Unmarshal.SymbolMatching DestructuredParameter where + matchedSymbols _ = [275] + showFailure _ node_212 = + "expected " + GHC.Base.<> ( "destructured_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_212 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_212) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_213 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_214 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_215 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_216 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_213 + c1_214 = TreeSitter.Node.nodeStartPoint node_212 + TreeSitter.Node.TSPoint + r2_215 + c2_216 = TreeSitter.Node.nodeEndPoint node_212 + +deriving instance GHC.Classes.Eq a_217 => GHC.Classes.Eq (DestructuredParameter a_217) + +deriving instance GHC.Classes.Ord a_218 => GHC.Classes.Ord (DestructuredParameter a_218) + +deriving instance GHC.Show.Show a_219 => GHC.Show.Show (DestructuredParameter a_219) + +instance AST.Unmarshal.Unmarshal DestructuredParameter + +instance Data.Foldable.Foldable DestructuredParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DestructuredParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DestructuredParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Do a = Do + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: EmptyStatement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_220. + AST.Traversable1.Class.Traversable1 a_220 + ) + +instance AST.Unmarshal.SymbolMatching Do where + matchedSymbols _ = [182] + showFailure _ node_221 = + "expected " + GHC.Base.<> ( "do" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_221 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_221) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_222 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_223 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_224 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_225 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_222 + c1_223 = TreeSitter.Node.nodeStartPoint node_221 + TreeSitter.Node.TSPoint + r2_224 + c2_225 = TreeSitter.Node.nodeEndPoint node_221 + +deriving instance GHC.Classes.Eq a_226 => GHC.Classes.Eq (Do a_226) + +deriving instance GHC.Classes.Ord a_227 => GHC.Classes.Ord (Do a_227) + +deriving instance GHC.Show.Show a_228 => GHC.Show.Show (Do a_228) + +instance AST.Unmarshal.Unmarshal Do + +instance Data.Foldable.Foldable Do where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Do where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Do where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DoBlock a = DoBlock + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: BlockParameters GHC.Generics.:+: Else GHC.Generics.:+: EmptyStatement GHC.Generics.:+: Ensure GHC.Generics.:+: Rescue) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_229. + AST.Traversable1.Class.Traversable1 a_229 + ) + +instance AST.Unmarshal.SymbolMatching DoBlock where + matchedSymbols _ = [213] + showFailure _ node_230 = + "expected " + GHC.Base.<> ( "do_block" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_230 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_230) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_231 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_232 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_233 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_234 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_231 + c1_232 = TreeSitter.Node.nodeStartPoint node_230 + TreeSitter.Node.TSPoint + r2_233 + c2_234 = TreeSitter.Node.nodeEndPoint node_230 + +deriving instance GHC.Classes.Eq a_235 => GHC.Classes.Eq (DoBlock a_235) + +deriving instance GHC.Classes.Ord a_236 => GHC.Classes.Ord (DoBlock a_236) + +deriving instance GHC.Show.Show a_237 => GHC.Show.Show (DoBlock a_237) + +instance AST.Unmarshal.Unmarshal DoBlock + +instance Data.Foldable.Foldable DoBlock where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DoBlock where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DoBlock where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ElementReference a = ElementReference + { ann :: a, + object :: (AST.Parse.Err (Primary a)), + extraChildren :: ([AST.Parse.Err ((Arg GHC.Generics.:+: BlockArgument GHC.Generics.:+: HashSplatArgument GHC.Generics.:+: Pair GHC.Generics.:+: SplatArgument) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_238. + AST.Traversable1.Class.Traversable1 a_238 + ) + +instance AST.Unmarshal.SymbolMatching ElementReference where + matchedSymbols _ = [201] + showFailure _ node_239 = + "expected " + GHC.Base.<> ( "element_reference" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_239 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_239) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_240 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_241 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_242 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_243 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_240 + c1_241 = TreeSitter.Node.nodeStartPoint node_239 + TreeSitter.Node.TSPoint + r2_242 + c2_243 = TreeSitter.Node.nodeEndPoint node_239 + +deriving instance GHC.Classes.Eq a_244 => GHC.Classes.Eq (ElementReference a_244) + +deriving instance GHC.Classes.Ord a_245 => GHC.Classes.Ord (ElementReference a_245) + +deriving instance GHC.Show.Show a_246 => GHC.Show.Show (ElementReference a_246) + +instance AST.Unmarshal.Unmarshal ElementReference + +instance Data.Foldable.Foldable ElementReference where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ElementReference where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ElementReference where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Else a = Else + { ann :: a, + condition :: (GHC.Maybe.Maybe (AST.Parse.Err (AnonymousSemicolon a))), + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: EmptyStatement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_247. + AST.Traversable1.Class.Traversable1 a_247 + ) + +instance AST.Unmarshal.SymbolMatching Else where + matchedSymbols _ = [189] + showFailure _ node_248 = + "expected " + GHC.Base.<> ( "else" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_248 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_248) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_249 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_250 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_251 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_252 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_249 + c1_250 = TreeSitter.Node.nodeStartPoint node_248 + TreeSitter.Node.TSPoint + r2_251 + c2_252 = TreeSitter.Node.nodeEndPoint node_248 + +deriving instance GHC.Classes.Eq a_253 => GHC.Classes.Eq (Else a_253) + +deriving instance GHC.Classes.Ord a_254 => GHC.Classes.Ord (Else a_254) + +deriving instance GHC.Show.Show a_255 => GHC.Show.Show (Else a_255) + +instance AST.Unmarshal.Unmarshal Else + +instance Data.Foldable.Foldable Else where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Else where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Else where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Elsif a = Elsif + { ann :: a, + alternative :: (GHC.Maybe.Maybe (AST.Parse.Err ((Else GHC.Generics.:+: Elsif) a))), + consequence :: (GHC.Maybe.Maybe (AST.Parse.Err (Then a))), + condition :: (AST.Parse.Err (Statement a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_256. + AST.Traversable1.Class.Traversable1 a_256 + ) + +instance AST.Unmarshal.SymbolMatching Elsif where + matchedSymbols _ = [188] + showFailure _ node_257 = + "expected " + GHC.Base.<> ( "elsif" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_257 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_257) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_258 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_259 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_260 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_261 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_258 + c1_259 = TreeSitter.Node.nodeStartPoint node_257 + TreeSitter.Node.TSPoint + r2_260 + c2_261 = TreeSitter.Node.nodeEndPoint node_257 + +deriving instance GHC.Classes.Eq a_262 => GHC.Classes.Eq (Elsif a_262) + +deriving instance GHC.Classes.Ord a_263 => GHC.Classes.Ord (Elsif a_263) + +deriving instance GHC.Show.Show a_264 => GHC.Show.Show (Elsif a_264) + +instance AST.Unmarshal.Unmarshal Elsif + +instance Data.Foldable.Foldable Elsif where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Elsif where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Elsif where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EmptyStatement a = EmptyStatement {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_265. + AST.Traversable1.Class.Traversable1 a_265 + ) + +instance AST.Unmarshal.SymbolMatching EmptyStatement where + matchedSymbols _ = [253] + showFailure _ node_266 = + "expected " + GHC.Base.<> ( "empty_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_266 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_266) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_267 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_268 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_269 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_270 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_267 + c1_268 = TreeSitter.Node.nodeStartPoint node_266 + TreeSitter.Node.TSPoint + r2_269 + c2_270 = TreeSitter.Node.nodeEndPoint node_266 + +deriving instance GHC.Classes.Eq a_271 => GHC.Classes.Eq (EmptyStatement a_271) + +deriving instance GHC.Classes.Ord a_272 => GHC.Classes.Ord (EmptyStatement a_272) + +deriving instance GHC.Show.Show a_273 => GHC.Show.Show (EmptyStatement a_273) + +instance AST.Unmarshal.Unmarshal EmptyStatement + +instance Data.Foldable.Foldable EmptyStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EmptyStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EmptyStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EndBlock a = EndBlock + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: EmptyStatement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_274. + AST.Traversable1.Class.Traversable1 a_274 + ) + +instance AST.Unmarshal.SymbolMatching EndBlock where + matchedSymbols _ = [144] + showFailure _ node_275 = + "expected " + GHC.Base.<> ( "end_block" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_275 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_275) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_276 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_277 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_278 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_279 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_276 + c1_277 = TreeSitter.Node.nodeStartPoint node_275 + TreeSitter.Node.TSPoint + r2_278 + c2_279 = TreeSitter.Node.nodeEndPoint node_275 + +deriving instance GHC.Classes.Eq a_280 => GHC.Classes.Eq (EndBlock a_280) + +deriving instance GHC.Classes.Ord a_281 => GHC.Classes.Ord (EndBlock a_281) + +deriving instance GHC.Show.Show a_282 => GHC.Show.Show (EndBlock a_282) + +instance AST.Unmarshal.Unmarshal EndBlock + +instance Data.Foldable.Foldable EndBlock where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EndBlock where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EndBlock where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Ensure a = Ensure + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: EmptyStatement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_283. + AST.Traversable1.Class.Traversable1 a_283 + ) + +instance AST.Unmarshal.SymbolMatching Ensure where + matchedSymbols _ = [192] + showFailure _ node_284 = + "expected " + GHC.Base.<> ( "ensure" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_284 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_284) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_285 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_286 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_287 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_288 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_285 + c1_286 = TreeSitter.Node.nodeStartPoint node_284 + TreeSitter.Node.TSPoint + r2_287 + c2_288 = TreeSitter.Node.nodeEndPoint node_284 + +deriving instance GHC.Classes.Eq a_289 => GHC.Classes.Eq (Ensure a_289) + +deriving instance GHC.Classes.Ord a_290 => GHC.Classes.Ord (Ensure a_290) + +deriving instance GHC.Show.Show a_291 => GHC.Show.Show (Ensure a_291) + +instance AST.Unmarshal.Unmarshal Ensure + +instance Data.Foldable.Foldable Ensure where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Ensure where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Ensure where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExceptionVariable a = ExceptionVariable + { ann :: a, + extraChildren :: (AST.Parse.Err (Lhs a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_292. + AST.Traversable1.Class.Traversable1 a_292 + ) + +instance AST.Unmarshal.SymbolMatching ExceptionVariable where + matchedSymbols _ = [195] + showFailure _ node_293 = + "expected " + GHC.Base.<> ( "exception_variable" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_293 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_293) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_294 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_295 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_296 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_297 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_294 + c1_295 = TreeSitter.Node.nodeStartPoint node_293 + TreeSitter.Node.TSPoint + r2_296 + c2_297 = TreeSitter.Node.nodeEndPoint node_293 + +deriving instance GHC.Classes.Eq a_298 => GHC.Classes.Eq (ExceptionVariable a_298) + +deriving instance GHC.Classes.Ord a_299 => GHC.Classes.Ord (ExceptionVariable a_299) + +deriving instance GHC.Show.Show a_300 => GHC.Show.Show (ExceptionVariable a_300) + +instance AST.Unmarshal.Unmarshal ExceptionVariable + +instance Data.Foldable.Foldable ExceptionVariable where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExceptionVariable where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExceptionVariable where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Exceptions a = Exceptions + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Arg GHC.Generics.:+: SplatArgument) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_301. + AST.Traversable1.Class.Traversable1 a_301 + ) + +instance AST.Unmarshal.SymbolMatching Exceptions where + matchedSymbols _ = [194] + showFailure _ node_302 = + "expected " + GHC.Base.<> ( "exceptions" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_302 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_302) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_303 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_304 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_305 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_306 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_303 + c1_304 = TreeSitter.Node.nodeStartPoint node_302 + TreeSitter.Node.TSPoint + r2_305 + c2_306 = TreeSitter.Node.nodeEndPoint node_302 + +deriving instance GHC.Classes.Eq a_307 => GHC.Classes.Eq (Exceptions a_307) + +deriving instance GHC.Classes.Ord a_308 => GHC.Classes.Ord (Exceptions a_308) + +deriving instance GHC.Show.Show a_309 => GHC.Show.Show (Exceptions a_309) + +instance AST.Unmarshal.Unmarshal Exceptions + +instance Data.Foldable.Foldable Exceptions where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Exceptions where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Exceptions where + traverse = AST.Traversable1.Class.traverseDefault1 + +data For a = For + { ann :: a, + pattern :: (GHC.Base.NonEmpty (AST.Parse.Err ((Lhs GHC.Generics.:+: DestructuredLeftAssignment GHC.Generics.:+: RestAssignment) a))), + body :: (AST.Parse.Err (Do a)), + value :: (AST.Parse.Err (In a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_310. + AST.Traversable1.Class.Traversable1 a_310 + ) + +instance AST.Unmarshal.SymbolMatching For where + matchedSymbols _ = [180] + showFailure _ node_311 = + "expected " + GHC.Base.<> ( "for" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_311 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_311) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_312 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_313 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_314 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_315 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_312 + c1_313 = TreeSitter.Node.nodeStartPoint node_311 + TreeSitter.Node.TSPoint + r2_314 + c2_315 = TreeSitter.Node.nodeEndPoint node_311 + +deriving instance GHC.Classes.Eq a_316 => GHC.Classes.Eq (For a_316) + +deriving instance GHC.Classes.Ord a_317 => GHC.Classes.Ord (For a_317) + +deriving instance GHC.Show.Show a_318 => GHC.Show.Show (For a_318) + +instance AST.Unmarshal.Unmarshal For + +instance Data.Foldable.Foldable For where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor For where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable For where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Hash a = Hash + { ann :: a, + extraChildren :: ([AST.Parse.Err ((HashSplatArgument GHC.Generics.:+: Pair) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_319. + AST.Traversable1.Class.Traversable1 a_319 + ) + +instance AST.Unmarshal.SymbolMatching Hash where + matchedSymbols _ = [250] + showFailure _ node_320 = + "expected " + GHC.Base.<> ( "hash" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_320 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_320) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_321 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_322 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_323 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_324 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_321 + c1_322 = TreeSitter.Node.nodeStartPoint node_320 + TreeSitter.Node.TSPoint + r2_323 + c2_324 = TreeSitter.Node.nodeEndPoint node_320 + +deriving instance GHC.Classes.Eq a_325 => GHC.Classes.Eq (Hash a_325) + +deriving instance GHC.Classes.Ord a_326 => GHC.Classes.Ord (Hash a_326) + +deriving instance GHC.Show.Show a_327 => GHC.Show.Show (Hash a_327) + +instance AST.Unmarshal.Unmarshal Hash + +instance Data.Foldable.Foldable Hash where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Hash where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Hash where + traverse = AST.Traversable1.Class.traverseDefault1 + +data HashSplatArgument a = HashSplatArgument + { ann :: a, + extraChildren :: (AST.Parse.Err (Arg a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_328. + AST.Traversable1.Class.Traversable1 a_328 + ) + +instance AST.Unmarshal.SymbolMatching HashSplatArgument where + matchedSymbols _ = [211] + showFailure _ node_329 = + "expected " + GHC.Base.<> ( "hash_splat_argument" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_329 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_329) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_330 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_331 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_332 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_333 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_330 + c1_331 = TreeSitter.Node.nodeStartPoint node_329 + TreeSitter.Node.TSPoint + r2_332 + c2_333 = TreeSitter.Node.nodeEndPoint node_329 + +deriving instance GHC.Classes.Eq a_334 => GHC.Classes.Eq (HashSplatArgument a_334) + +deriving instance GHC.Classes.Ord a_335 => GHC.Classes.Ord (HashSplatArgument a_335) + +deriving instance GHC.Show.Show a_336 => GHC.Show.Show (HashSplatArgument a_336) + +instance AST.Unmarshal.Unmarshal HashSplatArgument + +instance Data.Foldable.Foldable HashSplatArgument where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor HashSplatArgument where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable HashSplatArgument where + traverse = AST.Traversable1.Class.traverseDefault1 + +data HashSplatParameter a = HashSplatParameter + { ann :: a, + name :: (GHC.Maybe.Maybe (AST.Parse.Err (Identifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_337. + AST.Traversable1.Class.Traversable1 a_337 + ) + +instance AST.Unmarshal.SymbolMatching HashSplatParameter where + matchedSymbols _ = [155] + showFailure _ node_338 = + "expected " + GHC.Base.<> ( "hash_splat_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_338 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_338) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_339 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_340 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_341 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_342 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_339 + c1_340 = TreeSitter.Node.nodeStartPoint node_338 + TreeSitter.Node.TSPoint + r2_341 + c2_342 = TreeSitter.Node.nodeEndPoint node_338 + +deriving instance GHC.Classes.Eq a_343 => GHC.Classes.Eq (HashSplatParameter a_343) + +deriving instance GHC.Classes.Ord a_344 => GHC.Classes.Ord (HashSplatParameter a_344) + +deriving instance GHC.Show.Show a_345 => GHC.Show.Show (HashSplatParameter a_345) + +instance AST.Unmarshal.Unmarshal HashSplatParameter + +instance Data.Foldable.Foldable HashSplatParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor HashSplatParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable HashSplatParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data If a = If + { ann :: a, + alternative :: (GHC.Maybe.Maybe (AST.Parse.Err ((Else GHC.Generics.:+: Elsif) a))), + consequence :: (GHC.Maybe.Maybe (AST.Parse.Err (Then a))), + condition :: (AST.Parse.Err (Statement a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_346. + AST.Traversable1.Class.Traversable1 a_346 + ) + +instance AST.Unmarshal.SymbolMatching If where + matchedSymbols _ = [186] + showFailure _ node_347 = + "expected " + GHC.Base.<> ( "if" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_347 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_347) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_348 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_349 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_350 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_351 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_348 + c1_349 = TreeSitter.Node.nodeStartPoint node_347 + TreeSitter.Node.TSPoint + r2_350 + c2_351 = TreeSitter.Node.nodeEndPoint node_347 + +deriving instance GHC.Classes.Eq a_352 => GHC.Classes.Eq (If a_352) + +deriving instance GHC.Classes.Ord a_353 => GHC.Classes.Ord (If a_353) + +deriving instance GHC.Show.Show a_354 => GHC.Show.Show (If a_354) + +instance AST.Unmarshal.Unmarshal If + +instance Data.Foldable.Foldable If where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor If where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable If where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IfModifier a = IfModifier + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + condition :: (AST.Parse.Err ((Arg GHC.Generics.:+: Break GHC.Generics.:+: MethodCall GHC.Generics.:+: Next GHC.Generics.:+: Return GHC.Generics.:+: Yield) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_355. + AST.Traversable1.Class.Traversable1 a_355 + ) + +instance AST.Unmarshal.SymbolMatching IfModifier where + matchedSymbols _ = [173] + showFailure _ node_356 = + "expected " + GHC.Base.<> ( "if_modifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_356 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_356) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_357 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_358 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_359 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_360 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_357 + c1_358 = TreeSitter.Node.nodeStartPoint node_356 + TreeSitter.Node.TSPoint + r2_359 + c2_360 = TreeSitter.Node.nodeEndPoint node_356 + +deriving instance GHC.Classes.Eq a_361 => GHC.Classes.Eq (IfModifier a_361) + +deriving instance GHC.Classes.Ord a_362 => GHC.Classes.Ord (IfModifier a_362) + +deriving instance GHC.Show.Show a_363 => GHC.Show.Show (IfModifier a_363) + +instance AST.Unmarshal.Unmarshal IfModifier + +instance Data.Foldable.Foldable IfModifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IfModifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IfModifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data In a = In {ann :: a, extraChildren :: (AST.Parse.Err (Arg a))} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_364. + AST.Traversable1.Class.Traversable1 a_364 + ) + +instance AST.Unmarshal.SymbolMatching In where + matchedSymbols _ = [181] + showFailure _ node_365 = + "expected " + GHC.Base.<> ( "in" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_365 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_365) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_366 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_367 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_368 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_369 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_366 + c1_367 = TreeSitter.Node.nodeStartPoint node_365 + TreeSitter.Node.TSPoint + r2_368 + c2_369 = TreeSitter.Node.nodeEndPoint node_365 + +deriving instance GHC.Classes.Eq a_370 => GHC.Classes.Eq (In a_370) + +deriving instance GHC.Classes.Ord a_371 => GHC.Classes.Ord (In a_371) + +deriving instance GHC.Show.Show a_372 => GHC.Show.Show (In a_372) + +instance AST.Unmarshal.Unmarshal In + +instance Data.Foldable.Foldable In where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor In where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable In where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Interpolation a = Interpolation + { ann :: a, + extraChildren :: (AST.Parse.Err (Statement a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_373. + AST.Traversable1.Class.Traversable1 a_373 + ) + +instance AST.Unmarshal.SymbolMatching Interpolation where + matchedSymbols _ = [240] + showFailure _ node_374 = + "expected " + GHC.Base.<> ( "interpolation" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_374 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_374) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_375 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_376 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_377 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_378 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_375 + c1_376 = TreeSitter.Node.nodeStartPoint node_374 + TreeSitter.Node.TSPoint + r2_377 + c2_378 = TreeSitter.Node.nodeEndPoint node_374 + +deriving instance GHC.Classes.Eq a_379 => GHC.Classes.Eq (Interpolation a_379) + +deriving instance GHC.Classes.Ord a_380 => GHC.Classes.Ord (Interpolation a_380) + +deriving instance GHC.Show.Show a_381 => GHC.Show.Show (Interpolation a_381) + +instance AST.Unmarshal.Unmarshal Interpolation + +instance Data.Foldable.Foldable Interpolation where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Interpolation where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Interpolation where + traverse = AST.Traversable1.Class.traverseDefault1 + +data KeywordParameter a = KeywordParameter + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err (Arg a))), + name :: (AST.Parse.Err (Identifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_382. + AST.Traversable1.Class.Traversable1 a_382 + ) + +instance AST.Unmarshal.SymbolMatching KeywordParameter where + matchedSymbols _ = [157] + showFailure _ node_383 = + "expected " + GHC.Base.<> ( "keyword_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_383 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_383) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_384 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_385 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_386 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_387 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_384 + c1_385 = TreeSitter.Node.nodeStartPoint node_383 + TreeSitter.Node.TSPoint + r2_386 + c2_387 = TreeSitter.Node.nodeEndPoint node_383 + +deriving instance GHC.Classes.Eq a_388 => GHC.Classes.Eq (KeywordParameter a_388) + +deriving instance GHC.Classes.Ord a_389 => GHC.Classes.Ord (KeywordParameter a_389) + +deriving instance GHC.Show.Show a_390 => GHC.Show.Show (KeywordParameter a_390) + +instance AST.Unmarshal.Unmarshal KeywordParameter + +instance Data.Foldable.Foldable KeywordParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor KeywordParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable KeywordParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Lambda a = Lambda + { ann :: a, + body :: (AST.Parse.Err ((Block GHC.Generics.:+: DoBlock) a)), + parameters :: (GHC.Maybe.Maybe (AST.Parse.Err (LambdaParameters a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_391. + AST.Traversable1.Class.Traversable1 a_391 + ) + +instance AST.Unmarshal.SymbolMatching Lambda where + matchedSymbols _ = [252] + showFailure _ node_392 = + "expected " + GHC.Base.<> ( "lambda" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_392 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_392) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_393 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_394 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_395 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_396 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_393 + c1_394 = TreeSitter.Node.nodeStartPoint node_392 + TreeSitter.Node.TSPoint + r2_395 + c2_396 = TreeSitter.Node.nodeEndPoint node_392 + +deriving instance GHC.Classes.Eq a_397 => GHC.Classes.Eq (Lambda a_397) + +deriving instance GHC.Classes.Ord a_398 => GHC.Classes.Ord (Lambda a_398) + +deriving instance GHC.Show.Show a_399 => GHC.Show.Show (Lambda a_399) + +instance AST.Unmarshal.Unmarshal Lambda + +instance Data.Foldable.Foldable Lambda where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Lambda where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Lambda where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LambdaParameters a = LambdaParameters + { ann :: a, + extraChildren :: ([AST.Parse.Err ((BlockParameter GHC.Generics.:+: DestructuredParameter GHC.Generics.:+: HashSplatParameter GHC.Generics.:+: Identifier GHC.Generics.:+: KeywordParameter GHC.Generics.:+: OptionalParameter GHC.Generics.:+: SplatParameter) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_400. + AST.Traversable1.Class.Traversable1 a_400 + ) + +instance AST.Unmarshal.SymbolMatching LambdaParameters where + matchedSymbols _ = [276] + showFailure _ node_401 = + "expected " + GHC.Base.<> ( "lambda_parameters" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_401 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_401) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_402 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_403 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_404 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_405 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_402 + c1_403 = TreeSitter.Node.nodeStartPoint node_401 + TreeSitter.Node.TSPoint + r2_404 + c2_405 = TreeSitter.Node.nodeEndPoint node_401 + +deriving instance GHC.Classes.Eq a_406 => GHC.Classes.Eq (LambdaParameters a_406) + +deriving instance GHC.Classes.Ord a_407 => GHC.Classes.Ord (LambdaParameters a_407) + +deriving instance GHC.Show.Show a_408 => GHC.Show.Show (LambdaParameters a_408) + +instance AST.Unmarshal.Unmarshal LambdaParameters + +instance Data.Foldable.Foldable LambdaParameters where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LambdaParameters where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LambdaParameters where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LeftAssignmentList a = LeftAssignmentList + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Lhs GHC.Generics.:+: DestructuredLeftAssignment GHC.Generics.:+: RestAssignment) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_409. + AST.Traversable1.Class.Traversable1 a_409 + ) + +instance AST.Unmarshal.SymbolMatching LeftAssignmentList where + matchedSymbols _ = [227] + showFailure _ node_410 = + "expected " + GHC.Base.<> ( "left_assignment_list" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_410 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_410) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_411 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_412 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_413 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_414 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_411 + c1_412 = TreeSitter.Node.nodeStartPoint node_410 + TreeSitter.Node.TSPoint + r2_413 + c2_414 = TreeSitter.Node.nodeEndPoint node_410 + +deriving instance GHC.Classes.Eq a_415 => GHC.Classes.Eq (LeftAssignmentList a_415) + +deriving instance GHC.Classes.Ord a_416 => GHC.Classes.Ord (LeftAssignmentList a_416) + +deriving instance GHC.Show.Show a_417 => GHC.Show.Show (LeftAssignmentList a_417) + +instance AST.Unmarshal.Unmarshal LeftAssignmentList + +instance Data.Foldable.Foldable LeftAssignmentList where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LeftAssignmentList where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LeftAssignmentList where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Method a = Method + { ann :: a, + name :: (AST.Parse.Err (MethodName a)), + parameters :: (GHC.Maybe.Maybe (AST.Parse.Err (MethodParameters a))), + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: Else GHC.Generics.:+: EmptyStatement GHC.Generics.:+: Ensure GHC.Generics.:+: Rescue) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_418. + AST.Traversable1.Class.Traversable1 a_418 + ) + +instance AST.Unmarshal.SymbolMatching Method where + matchedSymbols _ = [146] + showFailure _ node_419 = + "expected " + GHC.Base.<> ( "method" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_419 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_419) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_420 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_421 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_422 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_423 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_420 + c1_421 = TreeSitter.Node.nodeStartPoint node_419 + TreeSitter.Node.TSPoint + r2_422 + c2_423 = TreeSitter.Node.nodeEndPoint node_419 + +deriving instance GHC.Classes.Eq a_424 => GHC.Classes.Eq (Method a_424) + +deriving instance GHC.Classes.Ord a_425 => GHC.Classes.Ord (Method a_425) + +deriving instance GHC.Show.Show a_426 => GHC.Show.Show (Method a_426) + +instance AST.Unmarshal.Unmarshal Method + +instance Data.Foldable.Foldable Method where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Method where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Method where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MethodCall a = MethodCall + { ann :: a, + arguments :: (GHC.Maybe.Maybe (AST.Parse.Err (ArgumentList a))), + block :: (GHC.Maybe.Maybe (AST.Parse.Err ((Block GHC.Generics.:+: DoBlock) a))), + method :: (AST.Parse.Err ((Variable GHC.Generics.:+: Call GHC.Generics.:+: ScopeResolution) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_427. + AST.Traversable1.Class.Traversable1 a_427 + ) + +instance AST.Unmarshal.SymbolMatching MethodCall where + matchedSymbols _ = [204, 205] + showFailure _ node_428 = + "expected " + GHC.Base.<> ( "method_call, method_call" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_428 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_428) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_429 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_430 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_431 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_432 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_429 + c1_430 = TreeSitter.Node.nodeStartPoint node_428 + TreeSitter.Node.TSPoint + r2_431 + c2_432 = TreeSitter.Node.nodeEndPoint node_428 + +deriving instance GHC.Classes.Eq a_433 => GHC.Classes.Eq (MethodCall a_433) + +deriving instance GHC.Classes.Ord a_434 => GHC.Classes.Ord (MethodCall a_434) + +deriving instance GHC.Show.Show a_435 => GHC.Show.Show (MethodCall a_435) + +instance AST.Unmarshal.Unmarshal MethodCall + +instance Data.Foldable.Foldable MethodCall where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MethodCall where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MethodCall where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MethodParameters a = MethodParameters + { ann :: a, + extraChildren :: ([AST.Parse.Err ((BlockParameter GHC.Generics.:+: DestructuredParameter GHC.Generics.:+: HashSplatParameter GHC.Generics.:+: Identifier GHC.Generics.:+: KeywordParameter GHC.Generics.:+: OptionalParameter GHC.Generics.:+: SplatParameter) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_436. + AST.Traversable1.Class.Traversable1 a_436 + ) + +instance AST.Unmarshal.SymbolMatching MethodParameters where + matchedSymbols _ = [277] + showFailure _ node_437 = + "expected " + GHC.Base.<> ( "method_parameters" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_437 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_437) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_438 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_439 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_440 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_441 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_438 + c1_439 = TreeSitter.Node.nodeStartPoint node_437 + TreeSitter.Node.TSPoint + r2_440 + c2_441 = TreeSitter.Node.nodeEndPoint node_437 + +deriving instance GHC.Classes.Eq a_442 => GHC.Classes.Eq (MethodParameters a_442) + +deriving instance GHC.Classes.Ord a_443 => GHC.Classes.Ord (MethodParameters a_443) + +deriving instance GHC.Show.Show a_444 => GHC.Show.Show (MethodParameters a_444) + +instance AST.Unmarshal.Unmarshal MethodParameters + +instance Data.Foldable.Foldable MethodParameters where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MethodParameters where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MethodParameters where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Module a = Module + { ann :: a, + name :: (AST.Parse.Err ((Constant GHC.Generics.:+: ScopeResolution) a)), + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: Else GHC.Generics.:+: EmptyStatement GHC.Generics.:+: Ensure GHC.Generics.:+: Rescue) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_445. + AST.Traversable1.Class.Traversable1 a_445 + ) + +instance AST.Unmarshal.SymbolMatching Module where + matchedSymbols _ = [162] + showFailure _ node_446 = + "expected " + GHC.Base.<> ( "module" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_446 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_446) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_447 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_448 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_449 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_450 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_447 + c1_448 = TreeSitter.Node.nodeStartPoint node_446 + TreeSitter.Node.TSPoint + r2_449 + c2_450 = TreeSitter.Node.nodeEndPoint node_446 + +deriving instance GHC.Classes.Eq a_451 => GHC.Classes.Eq (Module a_451) + +deriving instance GHC.Classes.Ord a_452 => GHC.Classes.Ord (Module a_452) + +deriving instance GHC.Show.Show a_453 => GHC.Show.Show (Module a_453) + +instance AST.Unmarshal.Unmarshal Module + +instance Data.Foldable.Foldable Module where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Module where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Module where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Next a = Next + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ArgumentList a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_454. + AST.Traversable1.Class.Traversable1 a_454 + ) + +instance AST.Unmarshal.SymbolMatching Next where + matchedSymbols _ = [166, 170] + showFailure _ node_455 = + "expected " + GHC.Base.<> ( "next, next" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_455 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_455) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_456 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_457 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_458 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_459 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_456 + c1_457 = TreeSitter.Node.nodeStartPoint node_455 + TreeSitter.Node.TSPoint + r2_458 + c2_459 = TreeSitter.Node.nodeEndPoint node_455 + +deriving instance GHC.Classes.Eq a_460 => GHC.Classes.Eq (Next a_460) + +deriving instance GHC.Classes.Ord a_461 => GHC.Classes.Ord (Next a_461) + +deriving instance GHC.Show.Show a_462 => GHC.Show.Show (Next a_462) + +instance AST.Unmarshal.Unmarshal Next + +instance Data.Foldable.Foldable Next where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Next where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Next where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Operator a = Operator {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_463. + AST.Traversable1.Class.Traversable1 a_463 + ) + +instance AST.Unmarshal.SymbolMatching Operator where + matchedSymbols _ = [233] + showFailure _ node_464 = + "expected " + GHC.Base.<> ( "operator" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_464 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_464) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_465 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_466 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_467 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_468 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_465 + c1_466 = TreeSitter.Node.nodeStartPoint node_464 + TreeSitter.Node.TSPoint + r2_467 + c2_468 = TreeSitter.Node.nodeEndPoint node_464 + +deriving instance GHC.Classes.Eq a_469 => GHC.Classes.Eq (Operator a_469) + +deriving instance GHC.Classes.Ord a_470 => GHC.Classes.Ord (Operator a_470) + +deriving instance GHC.Show.Show a_471 => GHC.Show.Show (Operator a_471) + +instance AST.Unmarshal.Unmarshal Operator + +instance Data.Foldable.Foldable Operator where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Operator where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Operator where + traverse = AST.Traversable1.Class.traverseDefault1 + +data OperatorAssignment a = OperatorAssignment + { ann :: a, + left :: (AST.Parse.Err (Lhs a)), + right :: (AST.Parse.Err ((Arg GHC.Generics.:+: Break GHC.Generics.:+: MethodCall GHC.Generics.:+: Next GHC.Generics.:+: Return GHC.Generics.:+: Yield) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_472. + AST.Traversable1.Class.Traversable1 a_472 + ) + +instance AST.Unmarshal.SymbolMatching OperatorAssignment where + matchedSymbols _ = [217, 218] + showFailure _ node_473 = + "expected " + GHC.Base.<> ( "operator_assignment, operator_assignment" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_473 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_473) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_474 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_475 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_476 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_477 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_474 + c1_475 = TreeSitter.Node.nodeStartPoint node_473 + TreeSitter.Node.TSPoint + r2_476 + c2_477 = TreeSitter.Node.nodeEndPoint node_473 + +deriving instance GHC.Classes.Eq a_478 => GHC.Classes.Eq (OperatorAssignment a_478) + +deriving instance GHC.Classes.Ord a_479 => GHC.Classes.Ord (OperatorAssignment a_479) + +deriving instance GHC.Show.Show a_480 => GHC.Show.Show (OperatorAssignment a_480) + +instance AST.Unmarshal.Unmarshal OperatorAssignment + +instance Data.Foldable.Foldable OperatorAssignment where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor OperatorAssignment where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable OperatorAssignment where + traverse = AST.Traversable1.Class.traverseDefault1 + +data OptionalParameter a = OptionalParameter + { ann :: a, + value :: (AST.Parse.Err (Arg a)), + name :: (AST.Parse.Err (Identifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_481. + AST.Traversable1.Class.Traversable1 a_481 + ) + +instance AST.Unmarshal.SymbolMatching OptionalParameter where + matchedSymbols _ = [158] + showFailure _ node_482 = + "expected " + GHC.Base.<> ( "optional_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_482 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_482) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_483 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_484 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_485 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_486 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_483 + c1_484 = TreeSitter.Node.nodeStartPoint node_482 + TreeSitter.Node.TSPoint + r2_485 + c2_486 = TreeSitter.Node.nodeEndPoint node_482 + +deriving instance GHC.Classes.Eq a_487 => GHC.Classes.Eq (OptionalParameter a_487) + +deriving instance GHC.Classes.Ord a_488 => GHC.Classes.Ord (OptionalParameter a_488) + +deriving instance GHC.Show.Show a_489 => GHC.Show.Show (OptionalParameter a_489) + +instance AST.Unmarshal.Unmarshal OptionalParameter + +instance Data.Foldable.Foldable OptionalParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor OptionalParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable OptionalParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Pair a = Pair + { ann :: a, + value :: (AST.Parse.Err (Arg a)), + key :: (AST.Parse.Err ((Arg GHC.Generics.:+: String GHC.Generics.:+: Symbol) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_490. + AST.Traversable1.Class.Traversable1 a_490 + ) + +instance AST.Unmarshal.SymbolMatching Pair where + matchedSymbols _ = [251] + showFailure _ node_491 = + "expected " + GHC.Base.<> ( "pair" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_491 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_491) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_492 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_493 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_494 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_495 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_492 + c1_493 = TreeSitter.Node.nodeStartPoint node_491 + TreeSitter.Node.TSPoint + r2_494 + c2_495 = TreeSitter.Node.nodeEndPoint node_491 + +deriving instance GHC.Classes.Eq a_496 => GHC.Classes.Eq (Pair a_496) + +deriving instance GHC.Classes.Ord a_497 => GHC.Classes.Ord (Pair a_497) + +deriving instance GHC.Show.Show a_498 => GHC.Show.Show (Pair a_498) + +instance AST.Unmarshal.Unmarshal Pair + +instance Data.Foldable.Foldable Pair where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Pair where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Pair where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ParenthesizedStatements a = ParenthesizedStatements + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: EmptyStatement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_499. + AST.Traversable1.Class.Traversable1 a_499 + ) + +instance AST.Unmarshal.SymbolMatching ParenthesizedStatements where + matchedSymbols _ = [200] + showFailure _ node_500 = + "expected " + GHC.Base.<> ( "parenthesized_statements" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_500 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_500) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_501 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_502 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_503 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_504 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_501 + c1_502 = TreeSitter.Node.nodeStartPoint node_500 + TreeSitter.Node.TSPoint + r2_503 + c2_504 = TreeSitter.Node.nodeEndPoint node_500 + +deriving instance GHC.Classes.Eq a_505 => GHC.Classes.Eq (ParenthesizedStatements a_505) + +deriving instance GHC.Classes.Ord a_506 => GHC.Classes.Ord (ParenthesizedStatements a_506) + +deriving instance GHC.Show.Show a_507 => GHC.Show.Show (ParenthesizedStatements a_507) + +instance AST.Unmarshal.Unmarshal ParenthesizedStatements + +instance Data.Foldable.Foldable ParenthesizedStatements where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ParenthesizedStatements where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ParenthesizedStatements where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Pattern a = Pattern + { ann :: a, + extraChildren :: (AST.Parse.Err ((Arg GHC.Generics.:+: SplatArgument) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_508. + AST.Traversable1.Class.Traversable1 a_508 + ) + +instance AST.Unmarshal.SymbolMatching Pattern where + matchedSymbols _ = [185] + showFailure _ node_509 = + "expected " + GHC.Base.<> ( "pattern" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_509 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_509) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_510 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_511 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_512 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_513 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_510 + c1_511 = TreeSitter.Node.nodeStartPoint node_509 + TreeSitter.Node.TSPoint + r2_512 + c2_513 = TreeSitter.Node.nodeEndPoint node_509 + +deriving instance GHC.Classes.Eq a_514 => GHC.Classes.Eq (Pattern a_514) + +deriving instance GHC.Classes.Ord a_515 => GHC.Classes.Ord (Pattern a_515) + +deriving instance GHC.Show.Show a_516 => GHC.Show.Show (Pattern a_516) + +instance AST.Unmarshal.Unmarshal Pattern + +instance Data.Foldable.Foldable Pattern where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Pattern where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Pattern where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Program a = Program + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: EmptyStatement GHC.Generics.:+: Uninterpreted) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_517. + AST.Traversable1.Class.Traversable1 a_517 + ) + +instance AST.Unmarshal.SymbolMatching Program where + matchedSymbols _ = [141] + showFailure _ node_518 = + "expected " + GHC.Base.<> ( "program" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_518 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_518) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_519 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_520 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_521 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_522 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_519 + c1_520 = TreeSitter.Node.nodeStartPoint node_518 + TreeSitter.Node.TSPoint + r2_521 + c2_522 = TreeSitter.Node.nodeEndPoint node_518 + +deriving instance GHC.Classes.Eq a_523 => GHC.Classes.Eq (Program a_523) + +deriving instance GHC.Classes.Ord a_524 => GHC.Classes.Ord (Program a_524) + +deriving instance GHC.Show.Show a_525 => GHC.Show.Show (Program a_525) + +instance AST.Unmarshal.Unmarshal Program + +instance Data.Foldable.Foldable Program where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Program where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Program where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Range a = Range + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Arg a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_526. + AST.Traversable1.Class.Traversable1 a_526 + ) + +instance AST.Unmarshal.SymbolMatching Range where + matchedSymbols _ = [220] + showFailure _ node_527 = + "expected " + GHC.Base.<> ( "range" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_527 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_527) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_528 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_529 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_530 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_531 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_528 + c1_529 = TreeSitter.Node.nodeStartPoint node_527 + TreeSitter.Node.TSPoint + r2_530 + c2_531 = TreeSitter.Node.nodeEndPoint node_527 + +deriving instance GHC.Classes.Eq a_532 => GHC.Classes.Eq (Range a_532) + +deriving instance GHC.Classes.Ord a_533 => GHC.Classes.Ord (Range a_533) + +deriving instance GHC.Show.Show a_534 => GHC.Show.Show (Range a_534) + +instance AST.Unmarshal.Unmarshal Range + +instance Data.Foldable.Foldable Range where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Range where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Range where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Rational a = Rational {ann :: a, extraChildren :: (AST.Parse.Err (Integer a))} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_535. + AST.Traversable1.Class.Traversable1 a_535 + ) + +instance AST.Unmarshal.SymbolMatching Rational where + matchedSymbols _ = [238] + showFailure _ node_536 = + "expected " + GHC.Base.<> ( "rational" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_536 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_536) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_537 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_538 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_539 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_540 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_537 + c1_538 = TreeSitter.Node.nodeStartPoint node_536 + TreeSitter.Node.TSPoint + r2_539 + c2_540 = TreeSitter.Node.nodeEndPoint node_536 + +deriving instance GHC.Classes.Eq a_541 => GHC.Classes.Eq (Rational a_541) + +deriving instance GHC.Classes.Ord a_542 => GHC.Classes.Ord (Rational a_542) + +deriving instance GHC.Show.Show a_543 => GHC.Show.Show (Rational a_543) + +instance AST.Unmarshal.Unmarshal Rational + +instance Data.Foldable.Foldable Rational where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Rational where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Rational where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Redo a = Redo + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ArgumentList a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_544. + AST.Traversable1.Class.Traversable1 a_544 + ) + +instance AST.Unmarshal.SymbolMatching Redo where + matchedSymbols _ = [171] + showFailure _ node_545 = + "expected " + GHC.Base.<> ( "redo" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_545 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_545) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_546 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_547 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_548 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_549 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_546 + c1_547 = TreeSitter.Node.nodeStartPoint node_545 + TreeSitter.Node.TSPoint + r2_548 + c2_549 = TreeSitter.Node.nodeEndPoint node_545 + +deriving instance GHC.Classes.Eq a_550 => GHC.Classes.Eq (Redo a_550) + +deriving instance GHC.Classes.Ord a_551 => GHC.Classes.Ord (Redo a_551) + +deriving instance GHC.Show.Show a_552 => GHC.Show.Show (Redo a_552) + +instance AST.Unmarshal.Unmarshal Redo + +instance Data.Foldable.Foldable Redo where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Redo where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Redo where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Regex a = Regex + { ann :: a, + extraChildren :: ([AST.Parse.Err ((EscapeSequence GHC.Generics.:+: Interpolation) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_553. + AST.Traversable1.Class.Traversable1 a_553 + ) + +instance AST.Unmarshal.SymbolMatching Regex where + matchedSymbols _ = [246] + showFailure _ node_554 = + "expected " + GHC.Base.<> ( "regex" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_554 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_554) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_555 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_556 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_557 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_558 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_555 + c1_556 = TreeSitter.Node.nodeStartPoint node_554 + TreeSitter.Node.TSPoint + r2_557 + c2_558 = TreeSitter.Node.nodeEndPoint node_554 + +deriving instance GHC.Classes.Eq a_559 => GHC.Classes.Eq (Regex a_559) + +deriving instance GHC.Classes.Ord a_560 => GHC.Classes.Ord (Regex a_560) + +deriving instance GHC.Show.Show a_561 => GHC.Show.Show (Regex a_561) + +instance AST.Unmarshal.Unmarshal Regex + +instance Data.Foldable.Foldable Regex where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Regex where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Regex where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Rescue a = Rescue + { ann :: a, + exceptions :: (GHC.Maybe.Maybe (AST.Parse.Err (Exceptions a))), + body :: (GHC.Maybe.Maybe (AST.Parse.Err (Then a))), + variable :: (GHC.Maybe.Maybe (AST.Parse.Err (ExceptionVariable a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_562. + AST.Traversable1.Class.Traversable1 a_562 + ) + +instance AST.Unmarshal.SymbolMatching Rescue where + matchedSymbols _ = [193] + showFailure _ node_563 = + "expected " + GHC.Base.<> ( "rescue" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_563 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_563) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_564 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_565 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_566 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_567 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_564 + c1_565 = TreeSitter.Node.nodeStartPoint node_563 + TreeSitter.Node.TSPoint + r2_566 + c2_567 = TreeSitter.Node.nodeEndPoint node_563 + +deriving instance GHC.Classes.Eq a_568 => GHC.Classes.Eq (Rescue a_568) + +deriving instance GHC.Classes.Ord a_569 => GHC.Classes.Ord (Rescue a_569) + +deriving instance GHC.Show.Show a_570 => GHC.Show.Show (Rescue a_570) + +instance AST.Unmarshal.Unmarshal Rescue + +instance Data.Foldable.Foldable Rescue where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Rescue where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Rescue where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RescueModifier a = RescueModifier + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + handler :: (AST.Parse.Err ((Arg GHC.Generics.:+: Break GHC.Generics.:+: MethodCall GHC.Generics.:+: Next GHC.Generics.:+: Return GHC.Generics.:+: Yield) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_571. + AST.Traversable1.Class.Traversable1 a_571 + ) + +instance AST.Unmarshal.SymbolMatching RescueModifier where + matchedSymbols _ = [177] + showFailure _ node_572 = + "expected " + GHC.Base.<> ( "rescue_modifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_572 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_572) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_573 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_574 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_575 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_576 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_573 + c1_574 = TreeSitter.Node.nodeStartPoint node_572 + TreeSitter.Node.TSPoint + r2_575 + c2_576 = TreeSitter.Node.nodeEndPoint node_572 + +deriving instance GHC.Classes.Eq a_577 => GHC.Classes.Eq (RescueModifier a_577) + +deriving instance GHC.Classes.Ord a_578 => GHC.Classes.Ord (RescueModifier a_578) + +deriving instance GHC.Show.Show a_579 => GHC.Show.Show (RescueModifier a_579) + +instance AST.Unmarshal.Unmarshal RescueModifier + +instance Data.Foldable.Foldable RescueModifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RescueModifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RescueModifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RestAssignment a = RestAssignment + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Lhs a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_580. + AST.Traversable1.Class.Traversable1 a_580 + ) + +instance AST.Unmarshal.SymbolMatching RestAssignment where + matchedSymbols _ = [230] + showFailure _ node_581 = + "expected " + GHC.Base.<> ( "rest_assignment" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_581 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_581) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_582 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_583 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_584 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_585 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_582 + c1_583 = TreeSitter.Node.nodeStartPoint node_581 + TreeSitter.Node.TSPoint + r2_584 + c2_585 = TreeSitter.Node.nodeEndPoint node_581 + +deriving instance GHC.Classes.Eq a_586 => GHC.Classes.Eq (RestAssignment a_586) + +deriving instance GHC.Classes.Ord a_587 => GHC.Classes.Ord (RestAssignment a_587) + +deriving instance GHC.Show.Show a_588 => GHC.Show.Show (RestAssignment a_588) + +instance AST.Unmarshal.Unmarshal RestAssignment + +instance Data.Foldable.Foldable RestAssignment where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RestAssignment where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RestAssignment where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Retry a = Retry + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ArgumentList a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_589. + AST.Traversable1.Class.Traversable1 a_589 + ) + +instance AST.Unmarshal.SymbolMatching Retry where + matchedSymbols _ = [172] + showFailure _ node_590 = + "expected " + GHC.Base.<> ( "retry" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_590 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_590) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_591 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_592 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_593 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_594 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_591 + c1_592 = TreeSitter.Node.nodeStartPoint node_590 + TreeSitter.Node.TSPoint + r2_593 + c2_594 = TreeSitter.Node.nodeEndPoint node_590 + +deriving instance GHC.Classes.Eq a_595 => GHC.Classes.Eq (Retry a_595) + +deriving instance GHC.Classes.Ord a_596 => GHC.Classes.Ord (Retry a_596) + +deriving instance GHC.Show.Show a_597 => GHC.Show.Show (Retry a_597) + +instance AST.Unmarshal.Unmarshal Retry + +instance Data.Foldable.Foldable Retry where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Retry where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Retry where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Return a = Return + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ArgumentList a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_598. + AST.Traversable1.Class.Traversable1 a_598 + ) + +instance AST.Unmarshal.SymbolMatching Return where + matchedSymbols _ = [163, 167] + showFailure _ node_599 = + "expected " + GHC.Base.<> ( "return, return" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_599 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_599) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_600 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_601 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_602 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_603 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_600 + c1_601 = TreeSitter.Node.nodeStartPoint node_599 + TreeSitter.Node.TSPoint + r2_602 + c2_603 = TreeSitter.Node.nodeEndPoint node_599 + +deriving instance GHC.Classes.Eq a_604 => GHC.Classes.Eq (Return a_604) + +deriving instance GHC.Classes.Ord a_605 => GHC.Classes.Ord (Return a_605) + +deriving instance GHC.Show.Show a_606 => GHC.Show.Show (Return a_606) + +instance AST.Unmarshal.Unmarshal Return + +instance Data.Foldable.Foldable Return where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Return where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Return where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RightAssignmentList a = RightAssignmentList + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Arg GHC.Generics.:+: SplatArgument) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_607. + AST.Traversable1.Class.Traversable1 a_607 + ) + +instance AST.Unmarshal.SymbolMatching RightAssignmentList where + matchedSymbols _ = [226] + showFailure _ node_608 = + "expected " + GHC.Base.<> ( "right_assignment_list" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_608 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_608) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_609 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_610 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_611 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_612 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_609 + c1_610 = TreeSitter.Node.nodeStartPoint node_608 + TreeSitter.Node.TSPoint + r2_611 + c2_612 = TreeSitter.Node.nodeEndPoint node_608 + +deriving instance GHC.Classes.Eq a_613 => GHC.Classes.Eq (RightAssignmentList a_613) + +deriving instance GHC.Classes.Ord a_614 => GHC.Classes.Ord (RightAssignmentList a_614) + +deriving instance GHC.Show.Show a_615 => GHC.Show.Show (RightAssignmentList a_615) + +instance AST.Unmarshal.Unmarshal RightAssignmentList + +instance Data.Foldable.Foldable RightAssignmentList where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RightAssignmentList where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RightAssignmentList where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ScopeResolution a = ScopeResolution + { ann :: a, + name :: (AST.Parse.Err ((Constant GHC.Generics.:+: Identifier) a)), + scope :: (GHC.Maybe.Maybe (AST.Parse.Err (Primary a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_616. + AST.Traversable1.Class.Traversable1 a_616 + ) + +instance AST.Unmarshal.SymbolMatching ScopeResolution where + matchedSymbols _ = [202] + showFailure _ node_617 = + "expected " + GHC.Base.<> ( "scope_resolution" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_617 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_617) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_618 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_619 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_620 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_621 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_618 + c1_619 = TreeSitter.Node.nodeStartPoint node_617 + TreeSitter.Node.TSPoint + r2_620 + c2_621 = TreeSitter.Node.nodeEndPoint node_617 + +deriving instance GHC.Classes.Eq a_622 => GHC.Classes.Eq (ScopeResolution a_622) + +deriving instance GHC.Classes.Ord a_623 => GHC.Classes.Ord (ScopeResolution a_623) + +deriving instance GHC.Show.Show a_624 => GHC.Show.Show (ScopeResolution a_624) + +instance AST.Unmarshal.Unmarshal ScopeResolution + +instance Data.Foldable.Foldable ScopeResolution where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ScopeResolution where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ScopeResolution where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Setter a = Setter + { ann :: a, + extraChildren :: (AST.Parse.Err (Identifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_625. + AST.Traversable1.Class.Traversable1 a_625 + ) + +instance AST.Unmarshal.SymbolMatching Setter where + matchedSymbols _ = [235] + showFailure _ node_626 = + "expected " + GHC.Base.<> ( "setter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_626 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_626) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_627 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_628 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_629 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_630 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_627 + c1_628 = TreeSitter.Node.nodeStartPoint node_626 + TreeSitter.Node.TSPoint + r2_629 + c2_630 = TreeSitter.Node.nodeEndPoint node_626 + +deriving instance GHC.Classes.Eq a_631 => GHC.Classes.Eq (Setter a_631) + +deriving instance GHC.Classes.Ord a_632 => GHC.Classes.Ord (Setter a_632) + +deriving instance GHC.Show.Show a_633 => GHC.Show.Show (Setter a_633) + +instance AST.Unmarshal.Unmarshal Setter + +instance Data.Foldable.Foldable Setter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Setter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Setter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SingletonClass a = SingletonClass + { ann :: a, + value :: (AST.Parse.Err (Arg a)), + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: Else GHC.Generics.:+: EmptyStatement GHC.Generics.:+: Ensure GHC.Generics.:+: Rescue) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_634. + AST.Traversable1.Class.Traversable1 a_634 + ) + +instance AST.Unmarshal.SymbolMatching SingletonClass where + matchedSymbols _ = [161] + showFailure _ node_635 = + "expected " + GHC.Base.<> ( "singleton_class" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_635 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_635) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_636 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_637 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_638 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_639 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_636 + c1_637 = TreeSitter.Node.nodeStartPoint node_635 + TreeSitter.Node.TSPoint + r2_638 + c2_639 = TreeSitter.Node.nodeEndPoint node_635 + +deriving instance GHC.Classes.Eq a_640 => GHC.Classes.Eq (SingletonClass a_640) + +deriving instance GHC.Classes.Ord a_641 => GHC.Classes.Ord (SingletonClass a_641) + +deriving instance GHC.Show.Show a_642 => GHC.Show.Show (SingletonClass a_642) + +instance AST.Unmarshal.Unmarshal SingletonClass + +instance Data.Foldable.Foldable SingletonClass where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SingletonClass where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SingletonClass where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SingletonMethod a = SingletonMethod + { ann :: a, + name :: (AST.Parse.Err (MethodName a)), + parameters :: (GHC.Maybe.Maybe (AST.Parse.Err (MethodParameters a))), + object :: (AST.Parse.Err ((Arg GHC.Generics.:+: Variable) a)), + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: Else GHC.Generics.:+: EmptyStatement GHC.Generics.:+: Ensure GHC.Generics.:+: Rescue) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_643. + AST.Traversable1.Class.Traversable1 a_643 + ) + +instance AST.Unmarshal.SymbolMatching SingletonMethod where + matchedSymbols _ = [147] + showFailure _ node_644 = + "expected " + GHC.Base.<> ( "singleton_method" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_644 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_644) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_645 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_646 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_647 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_648 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_645 + c1_646 = TreeSitter.Node.nodeStartPoint node_644 + TreeSitter.Node.TSPoint + r2_647 + c2_648 = TreeSitter.Node.nodeEndPoint node_644 + +deriving instance GHC.Classes.Eq a_649 => GHC.Classes.Eq (SingletonMethod a_649) + +deriving instance GHC.Classes.Ord a_650 => GHC.Classes.Ord (SingletonMethod a_650) + +deriving instance GHC.Show.Show a_651 => GHC.Show.Show (SingletonMethod a_651) + +instance AST.Unmarshal.Unmarshal SingletonMethod + +instance Data.Foldable.Foldable SingletonMethod where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SingletonMethod where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SingletonMethod where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SplatArgument a = SplatArgument + { ann :: a, + extraChildren :: (AST.Parse.Err (Arg a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_652. + AST.Traversable1.Class.Traversable1 a_652 + ) + +instance AST.Unmarshal.SymbolMatching SplatArgument where + matchedSymbols _ = [210] + showFailure _ node_653 = + "expected " + GHC.Base.<> ( "splat_argument" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_653 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_653) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_654 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_655 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_656 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_657 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_654 + c1_655 = TreeSitter.Node.nodeStartPoint node_653 + TreeSitter.Node.TSPoint + r2_656 + c2_657 = TreeSitter.Node.nodeEndPoint node_653 + +deriving instance GHC.Classes.Eq a_658 => GHC.Classes.Eq (SplatArgument a_658) + +deriving instance GHC.Classes.Ord a_659 => GHC.Classes.Ord (SplatArgument a_659) + +deriving instance GHC.Show.Show a_660 => GHC.Show.Show (SplatArgument a_660) + +instance AST.Unmarshal.Unmarshal SplatArgument + +instance Data.Foldable.Foldable SplatArgument where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SplatArgument where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SplatArgument where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SplatParameter a = SplatParameter + { ann :: a, + name :: (GHC.Maybe.Maybe (AST.Parse.Err (Identifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_661. + AST.Traversable1.Class.Traversable1 a_661 + ) + +instance AST.Unmarshal.SymbolMatching SplatParameter where + matchedSymbols _ = [154] + showFailure _ node_662 = + "expected " + GHC.Base.<> ( "splat_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_662 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_662) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_663 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_664 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_665 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_666 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_663 + c1_664 = TreeSitter.Node.nodeStartPoint node_662 + TreeSitter.Node.TSPoint + r2_665 + c2_666 = TreeSitter.Node.nodeEndPoint node_662 + +deriving instance GHC.Classes.Eq a_667 => GHC.Classes.Eq (SplatParameter a_667) + +deriving instance GHC.Classes.Ord a_668 => GHC.Classes.Ord (SplatParameter a_668) + +deriving instance GHC.Show.Show a_669 => GHC.Show.Show (SplatParameter a_669) + +instance AST.Unmarshal.Unmarshal SplatParameter + +instance Data.Foldable.Foldable SplatParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SplatParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SplatParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data String a = String + { ann :: a, + extraChildren :: ([AST.Parse.Err ((EscapeSequence GHC.Generics.:+: Interpolation) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_670. + AST.Traversable1.Class.Traversable1 a_670 + ) + +instance AST.Unmarshal.SymbolMatching String where + matchedSymbols _ = [241] + showFailure _ node_671 = + "expected " + GHC.Base.<> ( "string" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_671 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_671) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_672 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_673 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_674 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_675 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_672 + c1_673 = TreeSitter.Node.nodeStartPoint node_671 + TreeSitter.Node.TSPoint + r2_674 + c2_675 = TreeSitter.Node.nodeEndPoint node_671 + +deriving instance GHC.Classes.Eq a_676 => GHC.Classes.Eq (String a_676) + +deriving instance GHC.Classes.Ord a_677 => GHC.Classes.Ord (String a_677) + +deriving instance GHC.Show.Show a_678 => GHC.Show.Show (String a_678) + +instance AST.Unmarshal.Unmarshal String + +instance Data.Foldable.Foldable String where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor String where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable String where + traverse = AST.Traversable1.Class.traverseDefault1 + +data StringArray a = StringArray + { ann :: a, + extraChildren :: ([AST.Parse.Err (BareString a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_679. + AST.Traversable1.Class.Traversable1 a_679 + ) + +instance AST.Unmarshal.SymbolMatching StringArray where + matchedSymbols _ = [243] + showFailure _ node_680 = + "expected " + GHC.Base.<> ( "string_array" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_680 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_680) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_681 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_682 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_683 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_684 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_681 + c1_682 = TreeSitter.Node.nodeStartPoint node_680 + TreeSitter.Node.TSPoint + r2_683 + c2_684 = TreeSitter.Node.nodeEndPoint node_680 + +deriving instance GHC.Classes.Eq a_685 => GHC.Classes.Eq (StringArray a_685) + +deriving instance GHC.Classes.Ord a_686 => GHC.Classes.Ord (StringArray a_686) + +deriving instance GHC.Show.Show a_687 => GHC.Show.Show (StringArray a_687) + +instance AST.Unmarshal.Unmarshal StringArray + +instance Data.Foldable.Foldable StringArray where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor StringArray where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable StringArray where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Subshell a = Subshell + { ann :: a, + extraChildren :: ([AST.Parse.Err ((EscapeSequence GHC.Generics.:+: Interpolation) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_688. + AST.Traversable1.Class.Traversable1 a_688 + ) + +instance AST.Unmarshal.SymbolMatching Subshell where + matchedSymbols _ = [242] + showFailure _ node_689 = + "expected " + GHC.Base.<> ( "subshell" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_689 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_689) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_690 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_691 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_692 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_693 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_690 + c1_691 = TreeSitter.Node.nodeStartPoint node_689 + TreeSitter.Node.TSPoint + r2_692 + c2_693 = TreeSitter.Node.nodeEndPoint node_689 + +deriving instance GHC.Classes.Eq a_694 => GHC.Classes.Eq (Subshell a_694) + +deriving instance GHC.Classes.Ord a_695 => GHC.Classes.Ord (Subshell a_695) + +deriving instance GHC.Show.Show a_696 => GHC.Show.Show (Subshell a_696) + +instance AST.Unmarshal.Unmarshal Subshell + +instance Data.Foldable.Foldable Subshell where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Subshell where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Subshell where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Superclass a = Superclass {ann :: a, extraChildren :: (AST.Parse.Err (Arg a))} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_697. + AST.Traversable1.Class.Traversable1 a_697 + ) + +instance AST.Unmarshal.SymbolMatching Superclass where + matchedSymbols _ = [160] + showFailure _ node_698 = + "expected " + GHC.Base.<> ( "superclass" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_698 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_698) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_699 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_700 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_701 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_702 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_699 + c1_700 = TreeSitter.Node.nodeStartPoint node_698 + TreeSitter.Node.TSPoint + r2_701 + c2_702 = TreeSitter.Node.nodeEndPoint node_698 + +deriving instance GHC.Classes.Eq a_703 => GHC.Classes.Eq (Superclass a_703) + +deriving instance GHC.Classes.Ord a_704 => GHC.Classes.Ord (Superclass a_704) + +deriving instance GHC.Show.Show a_705 => GHC.Show.Show (Superclass a_705) + +instance AST.Unmarshal.Unmarshal Superclass + +instance Data.Foldable.Foldable Superclass where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Superclass where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Superclass where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Symbol a = Symbol + { ann :: a, + extraChildren :: ([AST.Parse.Err ((EscapeSequence GHC.Generics.:+: Interpolation) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_706. + AST.Traversable1.Class.Traversable1 a_706 + ) + +instance AST.Unmarshal.SymbolMatching Symbol where + matchedSymbols _ = [140, 245] + showFailure _ node_707 = + "expected " + GHC.Base.<> ( "symbol, symbol" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_707 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_707) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_708 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_709 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_710 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_711 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_708 + c1_709 = TreeSitter.Node.nodeStartPoint node_707 + TreeSitter.Node.TSPoint + r2_710 + c2_711 = TreeSitter.Node.nodeEndPoint node_707 + +deriving instance GHC.Classes.Eq a_712 => GHC.Classes.Eq (Symbol a_712) + +deriving instance GHC.Classes.Ord a_713 => GHC.Classes.Ord (Symbol a_713) + +deriving instance GHC.Show.Show a_714 => GHC.Show.Show (Symbol a_714) + +instance AST.Unmarshal.Unmarshal Symbol + +instance Data.Foldable.Foldable Symbol where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Symbol where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Symbol where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SymbolArray a = SymbolArray + { ann :: a, + extraChildren :: ([AST.Parse.Err (BareSymbol a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_715. + AST.Traversable1.Class.Traversable1 a_715 + ) + +instance AST.Unmarshal.SymbolMatching SymbolArray where + matchedSymbols _ = [244] + showFailure _ node_716 = + "expected " + GHC.Base.<> ( "symbol_array" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_716 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_716) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_717 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_718 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_719 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_720 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_717 + c1_718 = TreeSitter.Node.nodeStartPoint node_716 + TreeSitter.Node.TSPoint + r2_719 + c2_720 = TreeSitter.Node.nodeEndPoint node_716 + +deriving instance GHC.Classes.Eq a_721 => GHC.Classes.Eq (SymbolArray a_721) + +deriving instance GHC.Classes.Ord a_722 => GHC.Classes.Ord (SymbolArray a_722) + +deriving instance GHC.Show.Show a_723 => GHC.Show.Show (SymbolArray a_723) + +instance AST.Unmarshal.Unmarshal SymbolArray + +instance Data.Foldable.Foldable SymbolArray where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SymbolArray where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SymbolArray where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Then a = Then + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: EmptyStatement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_724. + AST.Traversable1.Class.Traversable1 a_724 + ) + +instance AST.Unmarshal.SymbolMatching Then where + matchedSymbols _ = [190] + showFailure _ node_725 = + "expected " + GHC.Base.<> ( "then" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_725 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_725) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_726 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_727 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_728 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_729 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_726 + c1_727 = TreeSitter.Node.nodeStartPoint node_725 + TreeSitter.Node.TSPoint + r2_728 + c2_729 = TreeSitter.Node.nodeEndPoint node_725 + +deriving instance GHC.Classes.Eq a_730 => GHC.Classes.Eq (Then a_730) + +deriving instance GHC.Classes.Ord a_731 => GHC.Classes.Ord (Then a_731) + +deriving instance GHC.Show.Show a_732 => GHC.Show.Show (Then a_732) + +instance AST.Unmarshal.Unmarshal Then + +instance Data.Foldable.Foldable Then where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Then where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Then where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Unary a = Unary + { ann :: a, + extraChildren :: (AST.Parse.Err ((Arg GHC.Generics.:+: Float GHC.Generics.:+: Integer GHC.Generics.:+: ParenthesizedStatements) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_733. + AST.Traversable1.Class.Traversable1 a_733 + ) + +instance AST.Unmarshal.SymbolMatching Unary where + matchedSymbols _ = [223, 224, 225] + showFailure _ node_734 = + "expected " + GHC.Base.<> ( "unary, unary, unary" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_734 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_734) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_735 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_736 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_737 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_738 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_735 + c1_736 = TreeSitter.Node.nodeStartPoint node_734 + TreeSitter.Node.TSPoint + r2_737 + c2_738 = TreeSitter.Node.nodeEndPoint node_734 + +deriving instance GHC.Classes.Eq a_739 => GHC.Classes.Eq (Unary a_739) + +deriving instance GHC.Classes.Ord a_740 => GHC.Classes.Ord (Unary a_740) + +deriving instance GHC.Show.Show a_741 => GHC.Show.Show (Unary a_741) + +instance AST.Unmarshal.Unmarshal Unary + +instance Data.Foldable.Foldable Unary where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Unary where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Unary where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Undef a = Undef + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (MethodName a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_742. + AST.Traversable1.Class.Traversable1 a_742 + ) + +instance AST.Unmarshal.SymbolMatching Undef where + matchedSymbols _ = [236] + showFailure _ node_743 = + "expected " + GHC.Base.<> ( "undef" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_743 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_743) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_744 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_745 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_746 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_747 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_744 + c1_745 = TreeSitter.Node.nodeStartPoint node_743 + TreeSitter.Node.TSPoint + r2_746 + c2_747 = TreeSitter.Node.nodeEndPoint node_743 + +deriving instance GHC.Classes.Eq a_748 => GHC.Classes.Eq (Undef a_748) + +deriving instance GHC.Classes.Ord a_749 => GHC.Classes.Ord (Undef a_749) + +deriving instance GHC.Show.Show a_750 => GHC.Show.Show (Undef a_750) + +instance AST.Unmarshal.Unmarshal Undef + +instance Data.Foldable.Foldable Undef where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Undef where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Undef where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Unless a = Unless + { ann :: a, + alternative :: (GHC.Maybe.Maybe (AST.Parse.Err ((Else GHC.Generics.:+: Elsif) a))), + consequence :: (GHC.Maybe.Maybe (AST.Parse.Err (Then a))), + condition :: (AST.Parse.Err (Statement a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_751. + AST.Traversable1.Class.Traversable1 a_751 + ) + +instance AST.Unmarshal.SymbolMatching Unless where + matchedSymbols _ = [187] + showFailure _ node_752 = + "expected " + GHC.Base.<> ( "unless" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_752 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_752) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_753 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_754 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_755 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_756 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_753 + c1_754 = TreeSitter.Node.nodeStartPoint node_752 + TreeSitter.Node.TSPoint + r2_755 + c2_756 = TreeSitter.Node.nodeEndPoint node_752 + +deriving instance GHC.Classes.Eq a_757 => GHC.Classes.Eq (Unless a_757) + +deriving instance GHC.Classes.Ord a_758 => GHC.Classes.Ord (Unless a_758) + +deriving instance GHC.Show.Show a_759 => GHC.Show.Show (Unless a_759) + +instance AST.Unmarshal.Unmarshal Unless + +instance Data.Foldable.Foldable Unless where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Unless where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Unless where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UnlessModifier a = UnlessModifier + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + condition :: (AST.Parse.Err ((Arg GHC.Generics.:+: Break GHC.Generics.:+: MethodCall GHC.Generics.:+: Next GHC.Generics.:+: Return GHC.Generics.:+: Yield) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_760. + AST.Traversable1.Class.Traversable1 a_760 + ) + +instance AST.Unmarshal.SymbolMatching UnlessModifier where + matchedSymbols _ = [174] + showFailure _ node_761 = + "expected " + GHC.Base.<> ( "unless_modifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_761 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_761) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_762 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_763 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_764 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_765 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_762 + c1_763 = TreeSitter.Node.nodeStartPoint node_761 + TreeSitter.Node.TSPoint + r2_764 + c2_765 = TreeSitter.Node.nodeEndPoint node_761 + +deriving instance GHC.Classes.Eq a_766 => GHC.Classes.Eq (UnlessModifier a_766) + +deriving instance GHC.Classes.Ord a_767 => GHC.Classes.Ord (UnlessModifier a_767) + +deriving instance GHC.Show.Show a_768 => GHC.Show.Show (UnlessModifier a_768) + +instance AST.Unmarshal.Unmarshal UnlessModifier + +instance Data.Foldable.Foldable UnlessModifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UnlessModifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UnlessModifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Until a = Until + { ann :: a, + body :: (AST.Parse.Err (Do a)), + condition :: (AST.Parse.Err (Arg a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_769. + AST.Traversable1.Class.Traversable1 a_769 + ) + +instance AST.Unmarshal.SymbolMatching Until where + matchedSymbols _ = [179] + showFailure _ node_770 = + "expected " + GHC.Base.<> ( "until" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_770 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_770) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_771 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_772 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_773 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_774 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_771 + c1_772 = TreeSitter.Node.nodeStartPoint node_770 + TreeSitter.Node.TSPoint + r2_773 + c2_774 = TreeSitter.Node.nodeEndPoint node_770 + +deriving instance GHC.Classes.Eq a_775 => GHC.Classes.Eq (Until a_775) + +deriving instance GHC.Classes.Ord a_776 => GHC.Classes.Ord (Until a_776) + +deriving instance GHC.Show.Show a_777 => GHC.Show.Show (Until a_777) + +instance AST.Unmarshal.Unmarshal Until + +instance Data.Foldable.Foldable Until where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Until where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Until where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UntilModifier a = UntilModifier + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + condition :: (AST.Parse.Err ((Arg GHC.Generics.:+: Break GHC.Generics.:+: MethodCall GHC.Generics.:+: Next GHC.Generics.:+: Return GHC.Generics.:+: Yield) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_778. + AST.Traversable1.Class.Traversable1 a_778 + ) + +instance AST.Unmarshal.SymbolMatching UntilModifier where + matchedSymbols _ = [176] + showFailure _ node_779 = + "expected " + GHC.Base.<> ( "until_modifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_779 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_779) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_780 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_781 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_782 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_783 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_780 + c1_781 = TreeSitter.Node.nodeStartPoint node_779 + TreeSitter.Node.TSPoint + r2_782 + c2_783 = TreeSitter.Node.nodeEndPoint node_779 + +deriving instance GHC.Classes.Eq a_784 => GHC.Classes.Eq (UntilModifier a_784) + +deriving instance GHC.Classes.Ord a_785 => GHC.Classes.Ord (UntilModifier a_785) + +deriving instance GHC.Show.Show a_786 => GHC.Show.Show (UntilModifier a_786) + +instance AST.Unmarshal.Unmarshal UntilModifier + +instance Data.Foldable.Foldable UntilModifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UntilModifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UntilModifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data When a = When + { ann :: a, + pattern :: (GHC.Base.NonEmpty (AST.Parse.Err ((AnonymousComma GHC.Generics.:+: Pattern) a))), + body :: (GHC.Maybe.Maybe (AST.Parse.Err (Then a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_787. + AST.Traversable1.Class.Traversable1 a_787 + ) + +instance AST.Unmarshal.SymbolMatching When where + matchedSymbols _ = [184] + showFailure _ node_788 = + "expected " + GHC.Base.<> ( "when" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_788 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_788) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_789 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_790 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_791 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_792 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_789 + c1_790 = TreeSitter.Node.nodeStartPoint node_788 + TreeSitter.Node.TSPoint + r2_791 + c2_792 = TreeSitter.Node.nodeEndPoint node_788 + +deriving instance GHC.Classes.Eq a_793 => GHC.Classes.Eq (When a_793) + +deriving instance GHC.Classes.Ord a_794 => GHC.Classes.Ord (When a_794) + +deriving instance GHC.Show.Show a_795 => GHC.Show.Show (When a_795) + +instance AST.Unmarshal.Unmarshal When + +instance Data.Foldable.Foldable When where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor When where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable When where + traverse = AST.Traversable1.Class.traverseDefault1 + +data While a = While + { ann :: a, + body :: (AST.Parse.Err (Do a)), + condition :: (AST.Parse.Err (Arg a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_796. + AST.Traversable1.Class.Traversable1 a_796 + ) + +instance AST.Unmarshal.SymbolMatching While where + matchedSymbols _ = [178] + showFailure _ node_797 = + "expected " + GHC.Base.<> ( "while" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_797 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_797) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_798 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_799 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_800 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_801 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_798 + c1_799 = TreeSitter.Node.nodeStartPoint node_797 + TreeSitter.Node.TSPoint + r2_800 + c2_801 = TreeSitter.Node.nodeEndPoint node_797 + +deriving instance GHC.Classes.Eq a_802 => GHC.Classes.Eq (While a_802) + +deriving instance GHC.Classes.Ord a_803 => GHC.Classes.Ord (While a_803) + +deriving instance GHC.Show.Show a_804 => GHC.Show.Show (While a_804) + +instance AST.Unmarshal.Unmarshal While + +instance Data.Foldable.Foldable While where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor While where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable While where + traverse = AST.Traversable1.Class.traverseDefault1 + +data WhileModifier a = WhileModifier + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + condition :: (AST.Parse.Err ((Arg GHC.Generics.:+: Break GHC.Generics.:+: MethodCall GHC.Generics.:+: Next GHC.Generics.:+: Return GHC.Generics.:+: Yield) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_805. + AST.Traversable1.Class.Traversable1 a_805 + ) + +instance AST.Unmarshal.SymbolMatching WhileModifier where + matchedSymbols _ = [175] + showFailure _ node_806 = + "expected " + GHC.Base.<> ( "while_modifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_806 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_806) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_807 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_808 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_809 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_810 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_807 + c1_808 = TreeSitter.Node.nodeStartPoint node_806 + TreeSitter.Node.TSPoint + r2_809 + c2_810 = TreeSitter.Node.nodeEndPoint node_806 + +deriving instance GHC.Classes.Eq a_811 => GHC.Classes.Eq (WhileModifier a_811) + +deriving instance GHC.Classes.Ord a_812 => GHC.Classes.Ord (WhileModifier a_812) + +deriving instance GHC.Show.Show a_813 => GHC.Show.Show (WhileModifier a_813) + +instance AST.Unmarshal.Unmarshal WhileModifier + +instance Data.Foldable.Foldable WhileModifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor WhileModifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable WhileModifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Yield a = Yield + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ArgumentList a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_814. + AST.Traversable1.Class.Traversable1 a_814 + ) + +instance AST.Unmarshal.SymbolMatching Yield where + matchedSymbols _ = [164, 168] + showFailure _ node_815 = + "expected " + GHC.Base.<> ( "yield, yield" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_815 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_815) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_816 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_817 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_818 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_819 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_816 + c1_817 = TreeSitter.Node.nodeStartPoint node_815 + TreeSitter.Node.TSPoint + r2_818 + c2_819 = TreeSitter.Node.nodeEndPoint node_815 + +deriving instance GHC.Classes.Eq a_820 => GHC.Classes.Eq (Yield a_820) + +deriving instance GHC.Classes.Ord a_821 => GHC.Classes.Ord (Yield a_821) + +deriving instance GHC.Show.Show a_822 => GHC.Show.Show (Yield a_822) + +instance AST.Unmarshal.Unmarshal Yield + +instance Data.Foldable.Foldable Yield where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Yield where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Yield where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousBang = AST.Token.Token "!" 90 + +type AnonymousBangEqual = AST.Token.Token "!=" 83 + +type AnonymousBangTilde = AST.Token.Token "!~" 87 + +type AnonymousDQuote = AST.Token.Token "\"" 122 + +type AnonymousHashLBrace = AST.Token.Token "#{" 115 + +type AnonymousPercent = AST.Token.Token "%" 81 + +type AnonymousPercentEqual = AST.Token.Token "%=" 61 + +type AnonymousPercentiLParen = AST.Token.Token "%i(" 127 + +type AnonymousPercentwLParen = AST.Token.Token "%w(" 126 + +type AnonymousAmpersand = AST.Token.Token "&" 18 + +type AnonymousAmpersandAmpersand = AST.Token.Token "&&" 72 + +type AnonymousAmpersandAmpersandEqual = AST.Token.Token "&&=" 59 + +type AnonymousAmpersandDot = AST.Token.Token "&." 50 + +type AnonymousAmpersandEqual = AST.Token.Token "&=" 60 + +type AnonymousLParen = AST.Token.Token "(" 9 + +type AnonymousRParen = AST.Token.Token ")" 10 + +type AnonymousStar = AST.Token.Token "*" 16 + +type AnonymousStarStar = AST.Token.Token "**" 17 + +type AnonymousStarStarEqual = AST.Token.Token "**=" 55 + +type AnonymousStarEqual = AST.Token.Token "*=" 54 + +type AnonymousPlus = AST.Token.Token "+" 79 + +type AnonymousPlusEqual = AST.Token.Token "+=" 52 + +type AnonymousPlusAt = AST.Token.Token "+@" 93 + +type AnonymousComma = AST.Token.Token "," 13 + +type AnonymousMinus = AST.Token.Token "-" 92 + +type AnonymousMinusEqual = AST.Token.Token "-=" 53 + +type AnonymousMinusRAngle = AST.Token.Token "->" 119 + +type AnonymousMinusAt = AST.Token.Token "-@" 94 + +type AnonymousDot = AST.Token.Token "." 11 + +type AnonymousDotDot = AST.Token.Token ".." 67 + +type AnonymousDotDotDot = AST.Token.Token "..." 68 + +type AnonymousSlash = AST.Token.Token "/" 80 + +type AnonymousSlashEqual = AST.Token.Token "/=" 56 + +type AnonymousColon = AST.Token.Token ":" 19 + +type AnonymousColonDQuote = AST.Token.Token ":\"" 123 + +type AnonymousColonColon = AST.Token.Token "::" 12 + +type AnonymousSemicolon = AST.Token.Token ";" 15 + +type AnonymousLAngle = AST.Token.Token "<" 22 + +type AnonymousLAngleLAngle = AST.Token.Token "<<" 73 + +type AnonymousLAngleLAngleEqual = AST.Token.Token "<<=" 63 + +type AnonymousLAngleEqual = AST.Token.Token "<=" 75 + +type AnonymousLAngleEqualRAngle = AST.Token.Token "<=>" 85 + +type AnonymousEqual = AST.Token.Token "=" 20 + +type AnonymousEqualEqual = AST.Token.Token "==" 82 + +type AnonymousEqualEqualEqual = AST.Token.Token "===" 84 + +type AnonymousEqualRAngle = AST.Token.Token "=>" 46 + +type AnonymousEqualTilde = AST.Token.Token "=~" 86 + +type AnonymousRAngle = AST.Token.Token ">" 76 + +type AnonymousRAngleEqual = AST.Token.Token ">=" 77 + +type AnonymousRAngleRAngle = AST.Token.Token ">>" 74 + +type AnonymousRAngleRAngleEqual = AST.Token.Token ">>=" 62 + +type AnonymousQuestion = AST.Token.Token "?" 65 + +type AnonymousBEGIN = AST.Token.Token "BEGIN" 4 + +type AnonymousEND = AST.Token.Token "END" 7 + +type AnonymousLBracket = AST.Token.Token "[" 47 + +type AnonymousLBracketRBracket = AST.Token.Token "[]" 95 + +type AnonymousLBracketRBracketEqual = AST.Token.Token "[]=" 96 + +type AnonymousRBracket = AST.Token.Token "]" 48 + +type AnonymousCaret = AST.Token.Token "^" 78 + +type AnonymousCaretEqual = AST.Token.Token "^=" 64 + +type AnonymousUnderscoreENDUnderscore = AST.Token.Token "__END__" 2 + +type AnonymousBacktick = AST.Token.Token "`" 97 + +type AnonymousAlias = AST.Token.Token "alias" 99 + +type AnonymousAnd = AST.Token.Token "and" 69 + +type AnonymousBegin = AST.Token.Token "begin" 44 + +type AnonymousBreak = AST.Token.Token "break" 27 + +type AnonymousCase = AST.Token.Token "case" 39 + +data Character a = Character {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_823. + AST.Traversable1.Class.Traversable1 a_823 + ) + +instance AST.Unmarshal.SymbolMatching Character where + matchedSymbols _ = [114] + showFailure _ node_824 = + "expected " + GHC.Base.<> ( "character" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_824 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_824) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_825 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_826 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_827 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_828 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_825 + c1_826 = TreeSitter.Node.nodeStartPoint node_824 + TreeSitter.Node.TSPoint + r2_827 + c2_828 = TreeSitter.Node.nodeEndPoint node_824 + +deriving instance GHC.Classes.Eq a_829 => GHC.Classes.Eq (Character a_829) + +deriving instance GHC.Classes.Ord a_830 => GHC.Classes.Ord (Character a_830) + +deriving instance GHC.Show.Show a_831 => GHC.Show.Show (Character a_831) + +instance AST.Unmarshal.Unmarshal Character + +instance Data.Foldable.Foldable Character where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Character where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Character where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousClass = AST.Token.Token "class" 21 + +data ClassVariable a = ClassVariable {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_832. + AST.Traversable1.Class.Traversable1 a_832 + ) + +instance AST.Unmarshal.SymbolMatching ClassVariable where + matchedSymbols _ = [112] + showFailure _ node_833 = + "expected " + GHC.Base.<> ( "class_variable" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_833 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_833) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_834 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_835 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_836 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_837 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_834 + c1_835 = TreeSitter.Node.nodeStartPoint node_833 + TreeSitter.Node.TSPoint + r2_836 + c2_837 = TreeSitter.Node.nodeEndPoint node_833 + +deriving instance GHC.Classes.Eq a_838 => GHC.Classes.Eq (ClassVariable a_838) + +deriving instance GHC.Classes.Ord a_839 => GHC.Classes.Ord (ClassVariable a_839) + +deriving instance GHC.Show.Show a_840 => GHC.Show.Show (ClassVariable a_840) + +instance AST.Unmarshal.Unmarshal ClassVariable + +instance Data.Foldable.Foldable ClassVariable where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassVariable where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassVariable where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Complex a = Complex {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_841. + AST.Traversable1.Class.Traversable1 a_841 + ) + +instance AST.Unmarshal.SymbolMatching Complex where + matchedSymbols _ = [103] + showFailure _ node_842 = + "expected " + GHC.Base.<> ( "complex" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_842 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_842) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_843 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_844 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_845 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_846 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_843 + c1_844 = TreeSitter.Node.nodeStartPoint node_842 + TreeSitter.Node.TSPoint + r2_845 + c2_846 = TreeSitter.Node.nodeEndPoint node_842 + +deriving instance GHC.Classes.Eq a_847 => GHC.Classes.Eq (Complex a_847) + +deriving instance GHC.Classes.Ord a_848 => GHC.Classes.Ord (Complex a_848) + +deriving instance GHC.Show.Show a_849 => GHC.Show.Show (Complex a_849) + +instance AST.Unmarshal.Unmarshal Complex + +instance Data.Foldable.Foldable Complex where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Complex where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Complex where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Constant a = Constant {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_850. + AST.Traversable1.Class.Traversable1 a_850 + ) + +instance AST.Unmarshal.SymbolMatching Constant where + matchedSymbols _ = [110] + showFailure _ node_851 = + "expected " + GHC.Base.<> ( "constant" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_851 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_851) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_852 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_853 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_854 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_855 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_852 + c1_853 = TreeSitter.Node.nodeStartPoint node_851 + TreeSitter.Node.TSPoint + r2_854 + c2_855 = TreeSitter.Node.nodeEndPoint node_851 + +deriving instance GHC.Classes.Eq a_856 => GHC.Classes.Eq (Constant a_856) + +deriving instance GHC.Classes.Ord a_857 => GHC.Classes.Ord (Constant a_857) + +deriving instance GHC.Show.Show a_858 => GHC.Show.Show (Constant a_858) + +instance AST.Unmarshal.Unmarshal Constant + +instance Data.Foldable.Foldable Constant where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Constant where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Constant where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousDef = AST.Token.Token "def" 8 + +type AnonymousDefinedQuestion = AST.Token.Token "defined?" 88 + +type AnonymousDo = AST.Token.Token "do" 38 + +type AnonymousElse = AST.Token.Token "else" 42 + +type AnonymousElsif = AST.Token.Token "elsif" 41 + +type AnonymousEnd = AST.Token.Token "end" 24 + +type AnonymousEnsure = AST.Token.Token "ensure" 45 + +data EscapeSequence a = EscapeSequence {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_859. + AST.Traversable1.Class.Traversable1 a_859 + ) + +instance AST.Unmarshal.SymbolMatching EscapeSequence where + matchedSymbols _ = [117] + showFailure _ node_860 = + "expected " + GHC.Base.<> ( "escape_sequence" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_860 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_860) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_861 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_862 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_863 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_864 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_861 + c1_862 = TreeSitter.Node.nodeStartPoint node_860 + TreeSitter.Node.TSPoint + r2_863 + c2_864 = TreeSitter.Node.nodeEndPoint node_860 + +deriving instance GHC.Classes.Eq a_865 => GHC.Classes.Eq (EscapeSequence a_865) + +deriving instance GHC.Classes.Ord a_866 => GHC.Classes.Ord (EscapeSequence a_866) + +deriving instance GHC.Show.Show a_867 => GHC.Show.Show (EscapeSequence a_867) + +instance AST.Unmarshal.Unmarshal EscapeSequence + +instance Data.Foldable.Foldable EscapeSequence where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EscapeSequence where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EscapeSequence where + traverse = AST.Traversable1.Class.traverseDefault1 + +data False a = False {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_868. + AST.Traversable1.Class.Traversable1 a_868 + ) + +instance AST.Unmarshal.SymbolMatching False where + matchedSymbols _ = [108] + showFailure _ node_869 = + "expected " + GHC.Base.<> ( "false" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_869 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_869) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_870 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_871 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_872 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_873 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_870 + c1_871 = TreeSitter.Node.nodeStartPoint node_869 + TreeSitter.Node.TSPoint + r2_872 + c2_873 = TreeSitter.Node.nodeEndPoint node_869 + +deriving instance GHC.Classes.Eq a_874 => GHC.Classes.Eq (False a_874) + +deriving instance GHC.Classes.Ord a_875 => GHC.Classes.Ord (False a_875) + +deriving instance GHC.Show.Show a_876 => GHC.Show.Show (False a_876) + +instance AST.Unmarshal.Unmarshal False + +instance Data.Foldable.Foldable False where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor False where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable False where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Float a = Float {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_877. + AST.Traversable1.Class.Traversable1 a_877 + ) + +instance AST.Unmarshal.SymbolMatching Float where + matchedSymbols _ = [102] + showFailure _ node_878 = + "expected " + GHC.Base.<> ( "float" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_878 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_878) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_879 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_880 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_881 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_882 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_879 + c1_880 = TreeSitter.Node.nodeStartPoint node_878 + TreeSitter.Node.TSPoint + r2_881 + c2_882 = TreeSitter.Node.nodeEndPoint node_878 + +deriving instance GHC.Classes.Eq a_883 => GHC.Classes.Eq (Float a_883) + +deriving instance GHC.Classes.Ord a_884 => GHC.Classes.Ord (Float a_884) + +deriving instance GHC.Show.Show a_885 => GHC.Show.Show (Float a_885) + +instance AST.Unmarshal.Unmarshal Float + +instance Data.Foldable.Foldable Float where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Float where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Float where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousFor = AST.Token.Token "for" 36 + +data GlobalVariable a = GlobalVariable {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_886. + AST.Traversable1.Class.Traversable1 a_886 + ) + +instance AST.Unmarshal.SymbolMatching GlobalVariable where + matchedSymbols _ = [113] + showFailure _ node_887 = + "expected " + GHC.Base.<> ( "global_variable" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_887 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_887) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_888 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_889 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_890 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_891 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_888 + c1_889 = TreeSitter.Node.nodeStartPoint node_887 + TreeSitter.Node.TSPoint + r2_890 + c2_891 = TreeSitter.Node.nodeEndPoint node_887 + +deriving instance GHC.Classes.Eq a_892 => GHC.Classes.Eq (GlobalVariable a_892) + +deriving instance GHC.Classes.Ord a_893 => GHC.Classes.Ord (GlobalVariable a_893) + +deriving instance GHC.Show.Show a_894 => GHC.Show.Show (GlobalVariable a_894) + +instance AST.Unmarshal.Unmarshal GlobalVariable + +instance Data.Foldable.Foldable GlobalVariable where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor GlobalVariable where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable GlobalVariable where + traverse = AST.Traversable1.Class.traverseDefault1 + +data HeredocBeginning a = HeredocBeginning {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_895. + AST.Traversable1.Class.Traversable1 a_895 + ) + +instance AST.Unmarshal.SymbolMatching HeredocBeginning where + matchedSymbols _ = [133] + showFailure _ node_896 = + "expected " + GHC.Base.<> ( "heredoc_beginning" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_896 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_896) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_897 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_898 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_899 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_900 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_897 + c1_898 = TreeSitter.Node.nodeStartPoint node_896 + TreeSitter.Node.TSPoint + r2_899 + c2_900 = TreeSitter.Node.nodeEndPoint node_896 + +deriving instance GHC.Classes.Eq a_901 => GHC.Classes.Eq (HeredocBeginning a_901) + +deriving instance GHC.Classes.Ord a_902 => GHC.Classes.Ord (HeredocBeginning a_902) + +deriving instance GHC.Show.Show a_903 => GHC.Show.Show (HeredocBeginning a_903) + +instance AST.Unmarshal.Unmarshal HeredocBeginning + +instance Data.Foldable.Foldable HeredocBeginning where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor HeredocBeginning where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable HeredocBeginning where + traverse = AST.Traversable1.Class.traverseDefault1 + +data HeredocEnd a = HeredocEnd {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_904. + AST.Traversable1.Class.Traversable1 a_904 + ) + +instance AST.Unmarshal.SymbolMatching HeredocEnd where + matchedSymbols _ = [132] + showFailure _ node_905 = + "expected " + GHC.Base.<> ( "heredoc_end" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_905 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_905) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_906 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_907 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_908 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_909 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_906 + c1_907 = TreeSitter.Node.nodeStartPoint node_905 + TreeSitter.Node.TSPoint + r2_908 + c2_909 = TreeSitter.Node.nodeEndPoint node_905 + +deriving instance GHC.Classes.Eq a_910 => GHC.Classes.Eq (HeredocEnd a_910) + +deriving instance GHC.Classes.Ord a_911 => GHC.Classes.Ord (HeredocEnd a_911) + +deriving instance GHC.Show.Show a_912 => GHC.Show.Show (HeredocEnd a_912) + +instance AST.Unmarshal.Unmarshal HeredocEnd + +instance Data.Foldable.Foldable HeredocEnd where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor HeredocEnd where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable HeredocEnd where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Identifier a = Identifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_913. + AST.Traversable1.Class.Traversable1 a_913 + ) + +instance AST.Unmarshal.SymbolMatching Identifier where + matchedSymbols _ = [1] + showFailure _ node_914 = + "expected " + GHC.Base.<> ( "identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_914 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_914) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_915 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_916 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_917 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_918 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_915 + c1_916 = TreeSitter.Node.nodeStartPoint node_914 + TreeSitter.Node.TSPoint + r2_917 + c2_918 = TreeSitter.Node.nodeEndPoint node_914 + +deriving instance GHC.Classes.Eq a_919 => GHC.Classes.Eq (Identifier a_919) + +deriving instance GHC.Classes.Ord a_920 => GHC.Classes.Ord (Identifier a_920) + +deriving instance GHC.Show.Show a_921 => GHC.Show.Show (Identifier a_921) + +instance AST.Unmarshal.Unmarshal Identifier + +instance Data.Foldable.Foldable Identifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Identifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Identifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousIf = AST.Token.Token "if" 31 + +type AnonymousIn = AST.Token.Token "in" 37 + +data InstanceVariable a = InstanceVariable {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_922. + AST.Traversable1.Class.Traversable1 a_922 + ) + +instance AST.Unmarshal.SymbolMatching InstanceVariable where + matchedSymbols _ = [111] + showFailure _ node_923 = + "expected " + GHC.Base.<> ( "instance_variable" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_923 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_923) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_924 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_925 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_926 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_927 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_924 + c1_925 = TreeSitter.Node.nodeStartPoint node_923 + TreeSitter.Node.TSPoint + r2_926 + c2_927 = TreeSitter.Node.nodeEndPoint node_923 + +deriving instance GHC.Classes.Eq a_928 => GHC.Classes.Eq (InstanceVariable a_928) + +deriving instance GHC.Classes.Ord a_929 => GHC.Classes.Ord (InstanceVariable a_929) + +deriving instance GHC.Show.Show a_930 => GHC.Show.Show (InstanceVariable a_930) + +instance AST.Unmarshal.Unmarshal InstanceVariable + +instance Data.Foldable.Foldable InstanceVariable where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor InstanceVariable where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable InstanceVariable where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Integer a = Integer {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_931. + AST.Traversable1.Class.Traversable1 a_931 + ) + +instance AST.Unmarshal.SymbolMatching Integer where + matchedSymbols _ = [101] + showFailure _ node_932 = + "expected " + GHC.Base.<> ( "integer" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_932 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_932) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_933 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_934 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_935 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_936 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_933 + c1_934 = TreeSitter.Node.nodeStartPoint node_932 + TreeSitter.Node.TSPoint + r2_935 + c2_936 = TreeSitter.Node.nodeEndPoint node_932 + +deriving instance GHC.Classes.Eq a_937 => GHC.Classes.Eq (Integer a_937) + +deriving instance GHC.Classes.Ord a_938 => GHC.Classes.Ord (Integer a_938) + +deriving instance GHC.Show.Show a_939 => GHC.Show.Show (Integer a_939) + +instance AST.Unmarshal.Unmarshal Integer + +instance Data.Foldable.Foldable Integer where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Integer where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Integer where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousModule = AST.Token.Token "module" 23 + +type AnonymousNext = AST.Token.Token "next" 28 + +data Nil a = Nil {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_940. + AST.Traversable1.Class.Traversable1 a_940 + ) + +instance AST.Unmarshal.SymbolMatching Nil where + matchedSymbols _ = [109] + showFailure _ node_941 = + "expected " + GHC.Base.<> ( "nil" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_941 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_941) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_942 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_943 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_944 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_945 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_942 + c1_943 = TreeSitter.Node.nodeStartPoint node_941 + TreeSitter.Node.TSPoint + r2_944 + c2_945 = TreeSitter.Node.nodeEndPoint node_941 + +deriving instance GHC.Classes.Eq a_946 => GHC.Classes.Eq (Nil a_946) + +deriving instance GHC.Classes.Ord a_947 => GHC.Classes.Ord (Nil a_947) + +deriving instance GHC.Show.Show a_948 => GHC.Show.Show (Nil a_948) + +instance AST.Unmarshal.Unmarshal Nil + +instance Data.Foldable.Foldable Nil where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Nil where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Nil where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousNot = AST.Token.Token "not" 89 + +type AnonymousOr = AST.Token.Token "or" 70 + +type AnonymousR = AST.Token.Token "r" 104 + +type AnonymousRedo = AST.Token.Token "redo" 29 + +type AnonymousRescue = AST.Token.Token "rescue" 35 + +type AnonymousRetry = AST.Token.Token "retry" 30 + +type AnonymousReturn = AST.Token.Token "return" 25 + +data Self a = Self {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_949. + AST.Traversable1.Class.Traversable1 a_949 + ) + +instance AST.Unmarshal.SymbolMatching Self where + matchedSymbols _ = [106] + showFailure _ node_950 = + "expected " + GHC.Base.<> ( "self" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_950 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_950) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_951 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_952 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_953 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_954 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_951 + c1_952 = TreeSitter.Node.nodeStartPoint node_950 + TreeSitter.Node.TSPoint + r2_953 + c2_954 = TreeSitter.Node.nodeEndPoint node_950 + +deriving instance GHC.Classes.Eq a_955 => GHC.Classes.Eq (Self a_955) + +deriving instance GHC.Classes.Ord a_956 => GHC.Classes.Ord (Self a_956) + +deriving instance GHC.Show.Show a_957 => GHC.Show.Show (Self a_957) + +instance AST.Unmarshal.Unmarshal Self + +instance Data.Foldable.Foldable Self where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Self where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Self where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Super a = Super {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_958. + AST.Traversable1.Class.Traversable1 a_958 + ) + +instance AST.Unmarshal.SymbolMatching Super where + matchedSymbols _ = [105] + showFailure _ node_959 = + "expected " + GHC.Base.<> ( "super" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_959 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_959) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_960 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_961 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_962 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_963 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_960 + c1_961 = TreeSitter.Node.nodeStartPoint node_959 + TreeSitter.Node.TSPoint + r2_962 + c2_963 = TreeSitter.Node.nodeEndPoint node_959 + +deriving instance GHC.Classes.Eq a_964 => GHC.Classes.Eq (Super a_964) + +deriving instance GHC.Classes.Ord a_965 => GHC.Classes.Ord (Super a_965) + +deriving instance GHC.Show.Show a_966 => GHC.Show.Show (Super a_966) + +instance AST.Unmarshal.Unmarshal Super + +instance Data.Foldable.Foldable Super where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Super where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Super where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousThen = AST.Token.Token "then" 43 + +data True a = True {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_967. + AST.Traversable1.Class.Traversable1 a_967 + ) + +instance AST.Unmarshal.SymbolMatching True where + matchedSymbols _ = [107] + showFailure _ node_968 = + "expected " + GHC.Base.<> ( "true" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_968 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_968) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_969 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_970 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_971 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_972 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_969 + c1_970 = TreeSitter.Node.nodeStartPoint node_968 + TreeSitter.Node.TSPoint + r2_971 + c2_972 = TreeSitter.Node.nodeEndPoint node_968 + +deriving instance GHC.Classes.Eq a_973 => GHC.Classes.Eq (True a_973) + +deriving instance GHC.Classes.Ord a_974 => GHC.Classes.Ord (True a_974) + +deriving instance GHC.Show.Show a_975 => GHC.Show.Show (True a_975) + +instance AST.Unmarshal.Unmarshal True + +instance Data.Foldable.Foldable True where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor True where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable True where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousUndef = AST.Token.Token "undef" 98 + +data Uninterpreted a = Uninterpreted {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_976. + AST.Traversable1.Class.Traversable1 a_976 + ) + +instance AST.Unmarshal.SymbolMatching Uninterpreted where + matchedSymbols _ = [3] + showFailure _ node_977 = + "expected " + GHC.Base.<> ( "uninterpreted" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_977 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_977) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_978 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_979 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_980 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_981 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_978 + c1_979 = TreeSitter.Node.nodeStartPoint node_977 + TreeSitter.Node.TSPoint + r2_980 + c2_981 = TreeSitter.Node.nodeEndPoint node_977 + +deriving instance GHC.Classes.Eq a_982 => GHC.Classes.Eq (Uninterpreted a_982) + +deriving instance GHC.Classes.Ord a_983 => GHC.Classes.Ord (Uninterpreted a_983) + +deriving instance GHC.Show.Show a_984 => GHC.Show.Show (Uninterpreted a_984) + +instance AST.Unmarshal.Unmarshal Uninterpreted + +instance Data.Foldable.Foldable Uninterpreted where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Uninterpreted where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Uninterpreted where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousUnless = AST.Token.Token "unless" 32 + +type AnonymousUntil = AST.Token.Token "until" 34 + +type AnonymousWhen = AST.Token.Token "when" 40 + +type AnonymousWhile = AST.Token.Token "while" 33 + +type AnonymousYield = AST.Token.Token "yield" 26 + +type AnonymousLBrace = AST.Token.Token "{" 5 + +type AnonymousPipe = AST.Token.Token "|" 14 + +type AnonymousPipeEqual = AST.Token.Token "|=" 58 + +type AnonymousPipePipe = AST.Token.Token "||" 71 + +type AnonymousPipePipeEqual = AST.Token.Token "||=" 57 + +type AnonymousRBrace = AST.Token.Token "}" 6 + +type AnonymousTilde = AST.Token.Token "~" 91 diff --git a/semantic-tsx/src/Language/TSX/AST.hs b/semantic-tsx/src/Language/TSX/AST.hs index 4041970c0..86333a5d3 100644 --- a/semantic-tsx/src/Language/TSX/AST.hs +++ b/semantic-tsx/src/Language/TSX/AST.hs @@ -1,3 +1,4 @@ +-- Language definition for TSX, generated by ast-generate. Do not edit! {-# LANGUAGE CPP #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveAnyClass #-} @@ -14,20 +15,7983 @@ {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeApplications #-} {-# LANGUAGE TypeOperators #-} +{-# LANGUAGE UndecidableInstances #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Language.TSX.AST -( module Language.TSX.AST -, TSX.getTestCorpusDir -) where +module Language.TSX.AST (module Language.TSX.AST, getTestCorpusDir) where -import Prelude hiding (False, Float, Integer, String, True) -import AST.GenerateSyntax -import Language.Haskell.TH.Syntax (runIO) -import qualified TreeSitter.TSX as TSX (getNodeTypesPath, getTestCorpusDir, tree_sitter_tsx) +import qualified AST.Parse +import qualified AST.Token +import qualified AST.Traversable1.Class +import qualified AST.Unmarshal +import qualified Data.Foldable +import qualified Data.List as Data.OldList +import qualified Data.Maybe as GHC.Maybe +import qualified Data.Text.Internal +import qualified Data.Traversable +import qualified GHC.Base +import qualified GHC.Generics +import qualified GHC.Records +import qualified GHC.Show +import qualified TreeSitter.Node +import TreeSitter.TSX (getTestCorpusDir) +import qualified Prelude as GHC.Classes -#ifdef NODE_TYPES_PATH -astDeclarationsForLanguage TSX.tree_sitter_tsx NODE_TYPES_PATH -#else -runIO TSX.getNodeTypesPath >>= astDeclarationsForLanguage TSX.tree_sitter_tsx -#endif +debugSymbolNames :: [GHC.Base.String] +debugSymbolNames = debugSymbolNames_0 + +debugSymbolNames_0 :: [GHC.Base.String] +debugSymbolNames_0 = + [ "end", + "identifier", + "hash_bang_line", + "_export", + "_*", + "_default", + "_=", + "_as", + "_namespace", + "_{", + "_,", + "_}", + "_type", + "_typeof", + "_import", + "_from", + "_var", + "_let", + "_const", + "_if", + "_else", + "_switch", + "_for", + "_(", + "_)", + "_await", + "_in", + "_of", + "_while", + "_do", + "_try", + "_with", + "_break", + "_continue", + "_debugger", + "_return", + "_throw", + "_;", + "_:", + "_case", + "_catch", + "_finally", + "_yield", + "_[", + "_]", + "_<", + "_>", + "_/", + "jsx_text", + "identifier", + "_.", + "_class", + "_async", + "_function", + "_=>", + "_new", + "_+=", + "_-=", + "_*=", + "_/=", + "_%=", + "_^=", + "_&=", + "_|=", + "_>>=", + "_>>>=", + "_<<=", + "_**=", + "_...", + "_?", + "_&&", + "_||", + "_>>", + "_>>>", + "_<<", + "_&", + "_^", + "_|", + "_+", + "_-", + "_%", + "_**", + "_<=", + "_==", + "_===", + "_!=", + "_!==", + "_>=", + "_??", + "_instanceof", + "_!", + "_~", + "_void", + "_delete", + "_++", + "_--", + "_\"", + "_string_token1", + "_'", + "_string_token2", + "escape_sequence", + "comment", + "_`", + "_${", + "_/", + "regex_pattern", + "regex_flags", + "number", + "_target", + "this", + "super", + "true", + "false", + "null", + "undefined", + "_@", + "_static", + "_abstract", + "_get", + "_set", + "_declare", + "_public", + "_private", + "_protected", + "_module", + "_any", + "_number", + "_boolean", + "_string", + "_symbol", + "_require", + "_implements", + "_global", + "_interface", + "_extends", + "_enum", + "readonly", + "_is", + "_keyof", + "_{|", + "_|}", + "_automatic_semicolon", + "_template_chars", + "program", + "export_statement", + "export_clause", + "_import_export_specifier", + "_declaration", + "import", + "import_statement", + "import_clause", + "_from_clause", + "namespace_import", + "named_imports", + "expression_statement", + "variable_declaration", + "lexical_declaration", + "variable_declarator", + "statement_block", + "if_statement", + "switch_statement", + "for_statement", + "for_in_statement", + "_for_header", + "while_statement", + "do_statement", + "try_statement", + "with_statement", + "break_statement", + "continue_statement", + "debugger_statement", + "return_statement", + "throw_statement", + "empty_statement", + "labeled_statement", + "switch_body", + "switch_case", + "switch_default", + "catch_clause", + "finally_clause", + "parenthesized_expression", + "_expression", + "yield_expression", + "object", + "assignment_pattern", + "array", + "jsx_element", + "jsx_fragment", + "jsx_expression", + "jsx_opening_element", + "nested_identifier", + "jsx_namespace_name", + "jsx_closing_element", + "jsx_self_closing_element", + "jsx_attribute", + "class", + "class_declaration", + "class_heritage", + "function", + "function_declaration", + "generator_function", + "generator_function_declaration", + "arrow_function", + "_call_signature", + "call_expression", + "new_expression", + "await_expression", + "member_expression", + "subscript_expression", + "assignment_expression", + "augmented_assignment_expression", + "_initializer", + "spread_element", + "ternary_expression", + "binary_expression", + "unary_expression", + "update_expression", + "sequence_expression", + "string", + "template_string", + "template_substitution", + "regex", + "meta_property", + "arguments", + "decorator", + "member_expression", + "call_expression", + "class_body", + "public_field_definition", + "formal_parameters", + "rest_parameter", + "method_definition", + "pair", + "_property_name", + "computed_property_name", + "non_null_expression", + "method_signature", + "abstract_method_signature", + "function_signature", + "as_expression", + "import_require_clause", + "implements_clause", + "ambient_declaration", + "abstract_class_declaration", + "module", + "internal_module", + "_module", + "import_alias", + "nested_type_identifier", + "interface_declaration", + "extends_clause", + "enum_declaration", + "enum_body", + "enum_assignment", + "type_alias_declaration", + "accessibility_modifier", + "required_parameter", + "optional_parameter", + "_parameter_name", + "type_annotation", + "_type", + "constructor_type", + "_primary_type", + "generic_type", + "type_predicate", + "type_query", + "index_type_query", + "lookup_type", + "mapped_type_clause", + "literal_type", + "unary_expression", + "existential_type", + "flow_maybe_type", + "parenthesized_type", + "predefined_type", + "type_arguments", + "object_type", + "call_signature", + "property_signature", + "type_parameters", + "type_parameter", + "default_type", + "constraint", + "construct_signature", + "index_signature", + "array_type", + "tuple_type", + "union_type", + "intersection_type", + "function_type", + "_program_repeat1", + "_export_statement_repeat1", + "_export_clause_repeat1", + "_named_imports_repeat1", + "_variable_declaration_repeat1", + "_switch_body_repeat1", + "_object_repeat1", + "_array_repeat1", + "_jsx_element_repeat1", + "_jsx_opening_element_repeat1", + "_string_repeat1", + "_string_repeat2", + "_template_string_repeat1", + "_class_body_repeat1", + "_formal_parameters_repeat1", + "_implements_clause_repeat1", + "_extends_clause_repeat1", + "_enum_body_repeat1", + "_object_type_repeat1", + "_type_parameters_repeat1", + "array_pattern", + "export_specifier", + "import_specifier", + "object_pattern", + "property_identifier", + "shorthand_property_identifier", + "statement_identifier", + "type_identifier" + ] + +newtype Declaration a = Declaration {getDeclaration :: ((AbstractClassDeclaration GHC.Generics.:+: AmbientDeclaration GHC.Generics.:+: ClassDeclaration GHC.Generics.:+: EnumDeclaration GHC.Generics.:+: FunctionDeclaration GHC.Generics.:+: FunctionSignature GHC.Generics.:+: GeneratorFunctionDeclaration GHC.Generics.:+: ImportAlias GHC.Generics.:+: InterfaceDeclaration GHC.Generics.:+: InternalModule GHC.Generics.:+: LexicalDeclaration GHC.Generics.:+: Module GHC.Generics.:+: TypeAliasDeclaration GHC.Generics.:+: VariableDeclaration) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1. + AST.Traversable1.Class.Traversable1 a_1 + ) + +instance GHC.Records.HasField "ann" (Declaration a_2) a_2 where + getField = AST.Unmarshal.gann GHC.Base.. getDeclaration + +deriving instance GHC.Classes.Eq a_3 => GHC.Classes.Eq (Declaration a_3) + +deriving instance GHC.Classes.Ord a_4 => GHC.Classes.Ord (Declaration a_4) + +deriving instance GHC.Show.Show a_5 => GHC.Show.Show (Declaration a_5) + +instance AST.Unmarshal.Unmarshal Declaration + +instance Data.Foldable.Foldable Declaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Declaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Declaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype DestructuringPattern a = DestructuringPattern {getDestructuringPattern :: ((ArrayPattern GHC.Generics.:+: ObjectPattern) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_6. + AST.Traversable1.Class.Traversable1 a_6 + ) + +instance GHC.Records.HasField "ann" (DestructuringPattern a_7) a_7 where + getField = AST.Unmarshal.gann GHC.Base.. getDestructuringPattern + +deriving instance GHC.Classes.Eq a_8 => GHC.Classes.Eq (DestructuringPattern a_8) + +deriving instance GHC.Classes.Ord a_9 => GHC.Classes.Ord (DestructuringPattern a_9) + +deriving instance GHC.Show.Show a_10 => GHC.Show.Show (DestructuringPattern a_10) + +instance AST.Unmarshal.Unmarshal DestructuringPattern + +instance Data.Foldable.Foldable DestructuringPattern where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DestructuringPattern where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DestructuringPattern where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Expression a = Expression {getExpression :: ((Array GHC.Generics.:+: ArrowFunction GHC.Generics.:+: AsExpression GHC.Generics.:+: AssignmentExpression GHC.Generics.:+: AugmentedAssignmentExpression GHC.Generics.:+: AwaitExpression GHC.Generics.:+: BinaryExpression GHC.Generics.:+: CallExpression GHC.Generics.:+: Class GHC.Generics.:+: False GHC.Generics.:+: Function GHC.Generics.:+: GeneratorFunction GHC.Generics.:+: Identifier GHC.Generics.:+: Import GHC.Generics.:+: InternalModule GHC.Generics.:+: JsxElement GHC.Generics.:+: JsxFragment GHC.Generics.:+: JsxSelfClosingElement GHC.Generics.:+: MemberExpression GHC.Generics.:+: MetaProperty GHC.Generics.:+: NewExpression GHC.Generics.:+: NonNullExpression GHC.Generics.:+: Null GHC.Generics.:+: Number GHC.Generics.:+: Object GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: Regex GHC.Generics.:+: String GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: Super GHC.Generics.:+: TemplateString GHC.Generics.:+: TernaryExpression GHC.Generics.:+: This GHC.Generics.:+: True GHC.Generics.:+: UnaryExpression GHC.Generics.:+: Undefined GHC.Generics.:+: UpdateExpression GHC.Generics.:+: YieldExpression) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_11. + AST.Traversable1.Class.Traversable1 a_11 + ) + +instance GHC.Records.HasField "ann" (Expression a_12) a_12 where + getField = AST.Unmarshal.gann GHC.Base.. getExpression + +deriving instance GHC.Classes.Eq a_13 => GHC.Classes.Eq (Expression a_13) + +deriving instance GHC.Classes.Ord a_14 => GHC.Classes.Ord (Expression a_14) + +deriving instance GHC.Show.Show a_15 => GHC.Show.Show (Expression a_15) + +instance AST.Unmarshal.Unmarshal Expression + +instance Data.Foldable.Foldable Expression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Expression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Expression where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Statement a = Statement {getStatement :: ((Declaration GHC.Generics.:+: BreakStatement GHC.Generics.:+: ContinueStatement GHC.Generics.:+: DebuggerStatement GHC.Generics.:+: DoStatement GHC.Generics.:+: EmptyStatement GHC.Generics.:+: ExportStatement GHC.Generics.:+: ExpressionStatement GHC.Generics.:+: ForInStatement GHC.Generics.:+: ForStatement GHC.Generics.:+: IfStatement GHC.Generics.:+: ImportStatement GHC.Generics.:+: LabeledStatement GHC.Generics.:+: ReturnStatement GHC.Generics.:+: StatementBlock GHC.Generics.:+: SwitchStatement GHC.Generics.:+: ThrowStatement GHC.Generics.:+: TryStatement GHC.Generics.:+: WhileStatement GHC.Generics.:+: WithStatement) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_16. + AST.Traversable1.Class.Traversable1 a_16 + ) + +instance GHC.Records.HasField "ann" (Statement a_17) a_17 where + getField = AST.Unmarshal.gann GHC.Base.. getStatement + +deriving instance GHC.Classes.Eq a_18 => GHC.Classes.Eq (Statement a_18) + +deriving instance GHC.Classes.Ord a_19 => GHC.Classes.Ord (Statement a_19) + +deriving instance GHC.Show.Show a_20 => GHC.Show.Show (Statement a_20) + +instance AST.Unmarshal.Unmarshal Statement + +instance Data.Foldable.Foldable Statement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Statement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Statement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AbstractClassDeclaration a = AbstractClassDeclaration + { ann :: a, + body :: (AST.Parse.Err (ClassBody a)), + name :: (AST.Parse.Err (TypeIdentifier a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ClassHeritage a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_21. + AST.Traversable1.Class.Traversable1 a_21 + ) + +instance AST.Unmarshal.SymbolMatching AbstractClassDeclaration where + matchedSymbols _ = [243] + showFailure _ node_22 = + "expected " + GHC.Base.<> ( "abstract_class_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_22 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_22) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_23 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_24 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_25 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_26 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_23 + c1_24 = TreeSitter.Node.nodeStartPoint node_22 + TreeSitter.Node.TSPoint + r2_25 + c2_26 = TreeSitter.Node.nodeEndPoint node_22 + +deriving instance GHC.Classes.Eq a_27 => GHC.Classes.Eq (AbstractClassDeclaration a_27) + +deriving instance GHC.Classes.Ord a_28 => GHC.Classes.Ord (AbstractClassDeclaration a_28) + +deriving instance GHC.Show.Show a_29 => GHC.Show.Show (AbstractClassDeclaration a_29) + +instance AST.Unmarshal.Unmarshal AbstractClassDeclaration + +instance Data.Foldable.Foldable AbstractClassDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AbstractClassDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AbstractClassDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AbstractMethodSignature a = AbstractMethodSignature + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + name :: (AST.Parse.Err ((ComputedPropertyName GHC.Generics.:+: Number GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a)), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (AccessibilityModifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_30. + AST.Traversable1.Class.Traversable1 a_30 + ) + +instance AST.Unmarshal.SymbolMatching AbstractMethodSignature where + matchedSymbols _ = [237] + showFailure _ node_31 = + "expected " + GHC.Base.<> ( "abstract_method_signature" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_31 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_31) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_32 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_33 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_34 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_35 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_32 + c1_33 = TreeSitter.Node.nodeStartPoint node_31 + TreeSitter.Node.TSPoint + r2_34 + c2_35 = TreeSitter.Node.nodeEndPoint node_31 + +deriving instance GHC.Classes.Eq a_36 => GHC.Classes.Eq (AbstractMethodSignature a_36) + +deriving instance GHC.Classes.Ord a_37 => GHC.Classes.Ord (AbstractMethodSignature a_37) + +deriving instance GHC.Show.Show a_38 => GHC.Show.Show (AbstractMethodSignature a_38) + +instance AST.Unmarshal.Unmarshal AbstractMethodSignature + +instance Data.Foldable.Foldable AbstractMethodSignature where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AbstractMethodSignature where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AbstractMethodSignature where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AccessibilityModifier a = AccessibilityModifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_39. + AST.Traversable1.Class.Traversable1 a_39 + ) + +instance AST.Unmarshal.SymbolMatching AccessibilityModifier where + matchedSymbols _ = [255] + showFailure _ node_40 = + "expected " + GHC.Base.<> ( "accessibility_modifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_40 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_40) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_41 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_42 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_43 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_44 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_41 + c1_42 = TreeSitter.Node.nodeStartPoint node_40 + TreeSitter.Node.TSPoint + r2_43 + c2_44 = TreeSitter.Node.nodeEndPoint node_40 + +deriving instance GHC.Classes.Eq a_45 => GHC.Classes.Eq (AccessibilityModifier a_45) + +deriving instance GHC.Classes.Ord a_46 => GHC.Classes.Ord (AccessibilityModifier a_46) + +deriving instance GHC.Show.Show a_47 => GHC.Show.Show (AccessibilityModifier a_47) + +instance AST.Unmarshal.Unmarshal AccessibilityModifier + +instance Data.Foldable.Foldable AccessibilityModifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AccessibilityModifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AccessibilityModifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AmbientDeclaration a = AmbientDeclaration + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Declaration GHC.Generics.:+: ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: StatementBlock GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_48. + AST.Traversable1.Class.Traversable1 a_48 + ) + +instance AST.Unmarshal.SymbolMatching AmbientDeclaration where + matchedSymbols _ = [242] + showFailure _ node_49 = + "expected " + GHC.Base.<> ( "ambient_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_49 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_49) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_50 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_51 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_52 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_53 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_50 + c1_51 = TreeSitter.Node.nodeStartPoint node_49 + TreeSitter.Node.TSPoint + r2_52 + c2_53 = TreeSitter.Node.nodeEndPoint node_49 + +deriving instance GHC.Classes.Eq a_54 => GHC.Classes.Eq (AmbientDeclaration a_54) + +deriving instance GHC.Classes.Ord a_55 => GHC.Classes.Ord (AmbientDeclaration a_55) + +deriving instance GHC.Show.Show a_56 => GHC.Show.Show (AmbientDeclaration a_56) + +instance AST.Unmarshal.Unmarshal AmbientDeclaration + +instance Data.Foldable.Foldable AmbientDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AmbientDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AmbientDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Arguments a = Arguments + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Expression GHC.Generics.:+: SpreadElement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_57. + AST.Traversable1.Class.Traversable1 a_57 + ) + +instance AST.Unmarshal.SymbolMatching Arguments where + matchedSymbols _ = [223] + showFailure _ node_58 = + "expected " + GHC.Base.<> ( "arguments" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_58 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_58) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_59 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_60 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_61 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_62 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_59 + c1_60 = TreeSitter.Node.nodeStartPoint node_58 + TreeSitter.Node.TSPoint + r2_61 + c2_62 = TreeSitter.Node.nodeEndPoint node_58 + +deriving instance GHC.Classes.Eq a_63 => GHC.Classes.Eq (Arguments a_63) + +deriving instance GHC.Classes.Ord a_64 => GHC.Classes.Ord (Arguments a_64) + +deriving instance GHC.Show.Show a_65 => GHC.Show.Show (Arguments a_65) + +instance AST.Unmarshal.Unmarshal Arguments + +instance Data.Foldable.Foldable Arguments where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Arguments where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Arguments where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Array a = Array + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Expression GHC.Generics.:+: SpreadElement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_66. + AST.Traversable1.Class.Traversable1 a_66 + ) + +instance AST.Unmarshal.SymbolMatching Array where + matchedSymbols _ = [185] + showFailure _ node_67 = + "expected " + GHC.Base.<> ( "array" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_67 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_67) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_68 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_69 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_70 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_71 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_68 + c1_69 = TreeSitter.Node.nodeStartPoint node_67 + TreeSitter.Node.TSPoint + r2_70 + c2_71 = TreeSitter.Node.nodeEndPoint node_67 + +deriving instance GHC.Classes.Eq a_72 => GHC.Classes.Eq (Array a_72) + +deriving instance GHC.Classes.Ord a_73 => GHC.Classes.Ord (Array a_73) + +deriving instance GHC.Show.Show a_74 => GHC.Show.Show (Array a_74) + +instance AST.Unmarshal.Unmarshal Array + +instance Data.Foldable.Foldable Array where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Array where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Array where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ArrayPattern a = ArrayPattern + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Expression GHC.Generics.:+: SpreadElement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_75. + AST.Traversable1.Class.Traversable1 a_75 + ) + +instance AST.Unmarshal.SymbolMatching ArrayPattern where + matchedSymbols _ = [310] + showFailure _ node_76 = + "expected " + GHC.Base.<> ( "array_pattern" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_76 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_76) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_77 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_78 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_79 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_80 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_77 + c1_78 = TreeSitter.Node.nodeStartPoint node_76 + TreeSitter.Node.TSPoint + r2_79 + c2_80 = TreeSitter.Node.nodeEndPoint node_76 + +deriving instance GHC.Classes.Eq a_81 => GHC.Classes.Eq (ArrayPattern a_81) + +deriving instance GHC.Classes.Ord a_82 => GHC.Classes.Ord (ArrayPattern a_82) + +deriving instance GHC.Show.Show a_83 => GHC.Show.Show (ArrayPattern a_83) + +instance AST.Unmarshal.Unmarshal ArrayPattern + +instance Data.Foldable.Foldable ArrayPattern where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ArrayPattern where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ArrayPattern where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ArrayType a = ArrayType + { ann :: a, + extraChildren :: (AST.Parse.Err ((ArrayType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_84. + AST.Traversable1.Class.Traversable1 a_84 + ) + +instance AST.Unmarshal.SymbolMatching ArrayType where + matchedSymbols _ = [285] + showFailure _ node_85 = + "expected " + GHC.Base.<> ( "array_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_85 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_85) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_86 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_87 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_88 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_89 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_86 + c1_87 = TreeSitter.Node.nodeStartPoint node_85 + TreeSitter.Node.TSPoint + r2_88 + c2_89 = TreeSitter.Node.nodeEndPoint node_85 + +deriving instance GHC.Classes.Eq a_90 => GHC.Classes.Eq (ArrayType a_90) + +deriving instance GHC.Classes.Ord a_91 => GHC.Classes.Ord (ArrayType a_91) + +deriving instance GHC.Show.Show a_92 => GHC.Show.Show (ArrayType a_92) + +instance AST.Unmarshal.Unmarshal ArrayType + +instance Data.Foldable.Foldable ArrayType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ArrayType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ArrayType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ArrowFunction a = ArrowFunction + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + body :: (AST.Parse.Err ((Expression GHC.Generics.:+: StatementBlock) a)), + parameters :: (GHC.Maybe.Maybe (AST.Parse.Err (FormalParameters a))), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + parameter :: (GHC.Maybe.Maybe (AST.Parse.Err (Identifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_93. + AST.Traversable1.Class.Traversable1 a_93 + ) + +instance AST.Unmarshal.SymbolMatching ArrowFunction where + matchedSymbols _ = [202] + showFailure _ node_94 = + "expected " + GHC.Base.<> ( "arrow_function" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_94 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_94) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_95 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_96 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_97 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_98 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_95 + c1_96 = TreeSitter.Node.nodeStartPoint node_94 + TreeSitter.Node.TSPoint + r2_97 + c2_98 = TreeSitter.Node.nodeEndPoint node_94 + +deriving instance GHC.Classes.Eq a_99 => GHC.Classes.Eq (ArrowFunction a_99) + +deriving instance GHC.Classes.Ord a_100 => GHC.Classes.Ord (ArrowFunction a_100) + +deriving instance GHC.Show.Show a_101 => GHC.Show.Show (ArrowFunction a_101) + +instance AST.Unmarshal.Unmarshal ArrowFunction + +instance Data.Foldable.Foldable ArrowFunction where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ArrowFunction where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ArrowFunction where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AsExpression a = AsExpression + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_102. + AST.Traversable1.Class.Traversable1 a_102 + ) + +instance AST.Unmarshal.SymbolMatching AsExpression where + matchedSymbols _ = [239] + showFailure _ node_103 = + "expected " + GHC.Base.<> ( "as_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_103 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_103) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_104 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_105 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_106 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_107 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_104 + c1_105 = TreeSitter.Node.nodeStartPoint node_103 + TreeSitter.Node.TSPoint + r2_106 + c2_107 = TreeSitter.Node.nodeEndPoint node_103 + +deriving instance GHC.Classes.Eq a_108 => GHC.Classes.Eq (AsExpression a_108) + +deriving instance GHC.Classes.Ord a_109 => GHC.Classes.Ord (AsExpression a_109) + +deriving instance GHC.Show.Show a_110 => GHC.Show.Show (AsExpression a_110) + +instance AST.Unmarshal.Unmarshal AsExpression + +instance Data.Foldable.Foldable AsExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AsExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AsExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AssignmentExpression a = AssignmentExpression + { ann :: a, + left :: (AST.Parse.Err ((DestructuringPattern GHC.Generics.:+: Identifier GHC.Generics.:+: MemberExpression GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: SubscriptExpression) a)), + right :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_111. + AST.Traversable1.Class.Traversable1 a_111 + ) + +instance AST.Unmarshal.SymbolMatching AssignmentExpression where + matchedSymbols _ = [209] + showFailure _ node_112 = + "expected " + GHC.Base.<> ( "assignment_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_112 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_112) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_113 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_114 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_115 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_116 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_113 + c1_114 = TreeSitter.Node.nodeStartPoint node_112 + TreeSitter.Node.TSPoint + r2_115 + c2_116 = TreeSitter.Node.nodeEndPoint node_112 + +deriving instance GHC.Classes.Eq a_117 => GHC.Classes.Eq (AssignmentExpression a_117) + +deriving instance GHC.Classes.Ord a_118 => GHC.Classes.Ord (AssignmentExpression a_118) + +deriving instance GHC.Show.Show a_119 => GHC.Show.Show (AssignmentExpression a_119) + +instance AST.Unmarshal.Unmarshal AssignmentExpression + +instance Data.Foldable.Foldable AssignmentExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AssignmentExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AssignmentExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AssignmentPattern a = AssignmentPattern + { ann :: a, + left :: (AST.Parse.Err ((DestructuringPattern GHC.Generics.:+: ShorthandPropertyIdentifier) a)), + right :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_120. + AST.Traversable1.Class.Traversable1 a_120 + ) + +instance AST.Unmarshal.SymbolMatching AssignmentPattern where + matchedSymbols _ = [184] + showFailure _ node_121 = + "expected " + GHC.Base.<> ( "assignment_pattern" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_121 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_121) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_122 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_123 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_124 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_125 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_122 + c1_123 = TreeSitter.Node.nodeStartPoint node_121 + TreeSitter.Node.TSPoint + r2_124 + c2_125 = TreeSitter.Node.nodeEndPoint node_121 + +deriving instance GHC.Classes.Eq a_126 => GHC.Classes.Eq (AssignmentPattern a_126) + +deriving instance GHC.Classes.Ord a_127 => GHC.Classes.Ord (AssignmentPattern a_127) + +deriving instance GHC.Show.Show a_128 => GHC.Show.Show (AssignmentPattern a_128) + +instance AST.Unmarshal.Unmarshal AssignmentPattern + +instance Data.Foldable.Foldable AssignmentPattern where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AssignmentPattern where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AssignmentPattern where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AugmentedAssignmentExpression a = AugmentedAssignmentExpression + { ann :: a, + left :: (AST.Parse.Err ((Identifier GHC.Generics.:+: MemberExpression GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: SubscriptExpression) a)), + right :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_129. + AST.Traversable1.Class.Traversable1 a_129 + ) + +instance AST.Unmarshal.SymbolMatching AugmentedAssignmentExpression where + matchedSymbols _ = [210] + showFailure _ node_130 = + "expected " + GHC.Base.<> ( "augmented_assignment_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_130 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_130) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_131 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_132 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_133 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_134 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_131 + c1_132 = TreeSitter.Node.nodeStartPoint node_130 + TreeSitter.Node.TSPoint + r2_133 + c2_134 = TreeSitter.Node.nodeEndPoint node_130 + +deriving instance GHC.Classes.Eq a_135 => GHC.Classes.Eq (AugmentedAssignmentExpression a_135) + +deriving instance GHC.Classes.Ord a_136 => GHC.Classes.Ord (AugmentedAssignmentExpression a_136) + +deriving instance GHC.Show.Show a_137 => GHC.Show.Show (AugmentedAssignmentExpression a_137) + +instance AST.Unmarshal.Unmarshal AugmentedAssignmentExpression + +instance Data.Foldable.Foldable AugmentedAssignmentExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AugmentedAssignmentExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AugmentedAssignmentExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AwaitExpression a = AwaitExpression + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_138. + AST.Traversable1.Class.Traversable1 a_138 + ) + +instance AST.Unmarshal.SymbolMatching AwaitExpression where + matchedSymbols _ = [206] + showFailure _ node_139 = + "expected " + GHC.Base.<> ( "await_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_139 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_139) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_140 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_141 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_142 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_143 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_140 + c1_141 = TreeSitter.Node.nodeStartPoint node_139 + TreeSitter.Node.TSPoint + r2_142 + c2_143 = TreeSitter.Node.nodeEndPoint node_139 + +deriving instance GHC.Classes.Eq a_144 => GHC.Classes.Eq (AwaitExpression a_144) + +deriving instance GHC.Classes.Ord a_145 => GHC.Classes.Ord (AwaitExpression a_145) + +deriving instance GHC.Show.Show a_146 => GHC.Show.Show (AwaitExpression a_146) + +instance AST.Unmarshal.Unmarshal AwaitExpression + +instance Data.Foldable.Foldable AwaitExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AwaitExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AwaitExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BinaryExpression a = BinaryExpression + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousBangEqual GHC.Generics.:+: AnonymousBangEqualEqual GHC.Generics.:+: AnonymousPercent GHC.Generics.:+: AnonymousAmpersand GHC.Generics.:+: AnonymousAmpersandAmpersand GHC.Generics.:+: AnonymousStar GHC.Generics.:+: AnonymousStarStar GHC.Generics.:+: AnonymousPlus GHC.Generics.:+: AnonymousMinus GHC.Generics.:+: AnonymousSlash GHC.Generics.:+: AnonymousLAngle GHC.Generics.:+: AnonymousLAngleLAngle GHC.Generics.:+: AnonymousLAngleEqual GHC.Generics.:+: AnonymousEqualEqual GHC.Generics.:+: AnonymousEqualEqualEqual GHC.Generics.:+: AnonymousRAngle GHC.Generics.:+: AnonymousRAngleEqual GHC.Generics.:+: AnonymousRAngleRAngle GHC.Generics.:+: AnonymousRAngleRAngleRAngle GHC.Generics.:+: AnonymousQuestionQuestion GHC.Generics.:+: AnonymousCaret GHC.Generics.:+: AnonymousIn GHC.Generics.:+: AnonymousInstanceof GHC.Generics.:+: AnonymousPipe GHC.Generics.:+: AnonymousPipePipe) a)), + left :: (AST.Parse.Err (Expression a)), + right :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_147. + AST.Traversable1.Class.Traversable1 a_147 + ) + +instance AST.Unmarshal.SymbolMatching BinaryExpression where + matchedSymbols _ = [214] + showFailure _ node_148 = + "expected " + GHC.Base.<> ( "binary_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_148 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_148) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_149 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_150 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_151 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_152 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_149 + c1_150 = TreeSitter.Node.nodeStartPoint node_148 + TreeSitter.Node.TSPoint + r2_151 + c2_152 = TreeSitter.Node.nodeEndPoint node_148 + +deriving instance GHC.Classes.Eq a_153 => GHC.Classes.Eq (BinaryExpression a_153) + +deriving instance GHC.Classes.Ord a_154 => GHC.Classes.Ord (BinaryExpression a_154) + +deriving instance GHC.Show.Show a_155 => GHC.Show.Show (BinaryExpression a_155) + +instance AST.Unmarshal.Unmarshal BinaryExpression + +instance Data.Foldable.Foldable BinaryExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BinaryExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BinaryExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BreakStatement a = BreakStatement + { ann :: a, + label :: (GHC.Maybe.Maybe (AST.Parse.Err (StatementIdentifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_156. + AST.Traversable1.Class.Traversable1 a_156 + ) + +instance AST.Unmarshal.SymbolMatching BreakStatement where + matchedSymbols _ = [168] + showFailure _ node_157 = + "expected " + GHC.Base.<> ( "break_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_157 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_157) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_158 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_159 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_160 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_161 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_158 + c1_159 = TreeSitter.Node.nodeStartPoint node_157 + TreeSitter.Node.TSPoint + r2_160 + c2_161 = TreeSitter.Node.nodeEndPoint node_157 + +deriving instance GHC.Classes.Eq a_162 => GHC.Classes.Eq (BreakStatement a_162) + +deriving instance GHC.Classes.Ord a_163 => GHC.Classes.Ord (BreakStatement a_163) + +deriving instance GHC.Show.Show a_164 => GHC.Show.Show (BreakStatement a_164) + +instance AST.Unmarshal.Unmarshal BreakStatement + +instance Data.Foldable.Foldable BreakStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BreakStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BreakStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CallExpression a = CallExpression + { ann :: a, + function :: (AST.Parse.Err (Expression a)), + arguments :: (AST.Parse.Err ((Arguments GHC.Generics.:+: TemplateString) a)), + typeArguments :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeArguments a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_165. + AST.Traversable1.Class.Traversable1 a_165 + ) + +instance AST.Unmarshal.SymbolMatching CallExpression where + matchedSymbols _ = [204, 226] + showFailure _ node_166 = + "expected " + GHC.Base.<> ( "call_expression, call_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_166 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_166) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_167 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_168 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_169 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_170 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_167 + c1_168 = TreeSitter.Node.nodeStartPoint node_166 + TreeSitter.Node.TSPoint + r2_169 + c2_170 = TreeSitter.Node.nodeEndPoint node_166 + +deriving instance GHC.Classes.Eq a_171 => GHC.Classes.Eq (CallExpression a_171) + +deriving instance GHC.Classes.Ord a_172 => GHC.Classes.Ord (CallExpression a_172) + +deriving instance GHC.Show.Show a_173 => GHC.Show.Show (CallExpression a_173) + +instance AST.Unmarshal.Unmarshal CallExpression + +instance Data.Foldable.Foldable CallExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CallExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CallExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CallSignature a = CallSignature + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_174. + AST.Traversable1.Class.Traversable1 a_174 + ) + +instance AST.Unmarshal.SymbolMatching CallSignature where + matchedSymbols _ = [277] + showFailure _ node_175 = + "expected " + GHC.Base.<> ( "call_signature" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_175 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_175) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_176 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_177 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_178 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_179 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_176 + c1_177 = TreeSitter.Node.nodeStartPoint node_175 + TreeSitter.Node.TSPoint + r2_178 + c2_179 = TreeSitter.Node.nodeEndPoint node_175 + +deriving instance GHC.Classes.Eq a_180 => GHC.Classes.Eq (CallSignature a_180) + +deriving instance GHC.Classes.Ord a_181 => GHC.Classes.Ord (CallSignature a_181) + +deriving instance GHC.Show.Show a_182 => GHC.Show.Show (CallSignature a_182) + +instance AST.Unmarshal.Unmarshal CallSignature + +instance Data.Foldable.Foldable CallSignature where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CallSignature where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CallSignature where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CatchClause a = CatchClause + { ann :: a, + body :: (AST.Parse.Err (StatementBlock a)), + parameter :: (GHC.Maybe.Maybe (AST.Parse.Err ((DestructuringPattern GHC.Generics.:+: Identifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_183. + AST.Traversable1.Class.Traversable1 a_183 + ) + +instance AST.Unmarshal.SymbolMatching CatchClause where + matchedSymbols _ = [178] + showFailure _ node_184 = + "expected " + GHC.Base.<> ( "catch_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_184 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_184) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_185 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_186 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_187 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_188 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_185 + c1_186 = TreeSitter.Node.nodeStartPoint node_184 + TreeSitter.Node.TSPoint + r2_187 + c2_188 = TreeSitter.Node.nodeEndPoint node_184 + +deriving instance GHC.Classes.Eq a_189 => GHC.Classes.Eq (CatchClause a_189) + +deriving instance GHC.Classes.Ord a_190 => GHC.Classes.Ord (CatchClause a_190) + +deriving instance GHC.Show.Show a_191 => GHC.Show.Show (CatchClause a_191) + +instance AST.Unmarshal.Unmarshal CatchClause + +instance Data.Foldable.Foldable CatchClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CatchClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CatchClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Class a = Class + { ann :: a, + decorator :: ([AST.Parse.Err (Decorator a)]), + body :: (AST.Parse.Err (ClassBody a)), + name :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeIdentifier a))), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ClassHeritage a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_192. + AST.Traversable1.Class.Traversable1 a_192 + ) + +instance AST.Unmarshal.SymbolMatching Class where + matchedSymbols _ = [195] + showFailure _ node_193 = + "expected " + GHC.Base.<> ( "class" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_193 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_193) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_194 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_195 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_196 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_197 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_194 + c1_195 = TreeSitter.Node.nodeStartPoint node_193 + TreeSitter.Node.TSPoint + r2_196 + c2_197 = TreeSitter.Node.nodeEndPoint node_193 + +deriving instance GHC.Classes.Eq a_198 => GHC.Classes.Eq (Class a_198) + +deriving instance GHC.Classes.Ord a_199 => GHC.Classes.Ord (Class a_199) + +deriving instance GHC.Show.Show a_200 => GHC.Show.Show (Class a_200) + +instance AST.Unmarshal.Unmarshal Class + +instance Data.Foldable.Foldable Class where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Class where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Class where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClassBody a = ClassBody + { ann :: a, + extraChildren :: ([AST.Parse.Err ((AbstractMethodSignature GHC.Generics.:+: Decorator GHC.Generics.:+: IndexSignature GHC.Generics.:+: MethodDefinition GHC.Generics.:+: MethodSignature GHC.Generics.:+: PublicFieldDefinition) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_201. + AST.Traversable1.Class.Traversable1 a_201 + ) + +instance AST.Unmarshal.SymbolMatching ClassBody where + matchedSymbols _ = [227] + showFailure _ node_202 = + "expected " + GHC.Base.<> ( "class_body" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_202 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_202) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_203 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_204 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_205 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_206 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_203 + c1_204 = TreeSitter.Node.nodeStartPoint node_202 + TreeSitter.Node.TSPoint + r2_205 + c2_206 = TreeSitter.Node.nodeEndPoint node_202 + +deriving instance GHC.Classes.Eq a_207 => GHC.Classes.Eq (ClassBody a_207) + +deriving instance GHC.Classes.Ord a_208 => GHC.Classes.Ord (ClassBody a_208) + +deriving instance GHC.Show.Show a_209 => GHC.Show.Show (ClassBody a_209) + +instance AST.Unmarshal.Unmarshal ClassBody + +instance Data.Foldable.Foldable ClassBody where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassBody where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassBody where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClassDeclaration a = ClassDeclaration + { ann :: a, + decorator :: ([AST.Parse.Err (Decorator a)]), + body :: (AST.Parse.Err (ClassBody a)), + name :: (AST.Parse.Err (TypeIdentifier a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ClassHeritage a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_210. + AST.Traversable1.Class.Traversable1 a_210 + ) + +instance AST.Unmarshal.SymbolMatching ClassDeclaration where + matchedSymbols _ = [196] + showFailure _ node_211 = + "expected " + GHC.Base.<> ( "class_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_211 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_211) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_212 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_213 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_214 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_215 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_212 + c1_213 = TreeSitter.Node.nodeStartPoint node_211 + TreeSitter.Node.TSPoint + r2_214 + c2_215 = TreeSitter.Node.nodeEndPoint node_211 + +deriving instance GHC.Classes.Eq a_216 => GHC.Classes.Eq (ClassDeclaration a_216) + +deriving instance GHC.Classes.Ord a_217 => GHC.Classes.Ord (ClassDeclaration a_217) + +deriving instance GHC.Show.Show a_218 => GHC.Show.Show (ClassDeclaration a_218) + +instance AST.Unmarshal.Unmarshal ClassDeclaration + +instance Data.Foldable.Foldable ClassDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClassHeritage a = ClassHeritage + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ExtendsClause GHC.Generics.:+: ImplementsClause) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_219. + AST.Traversable1.Class.Traversable1 a_219 + ) + +instance AST.Unmarshal.SymbolMatching ClassHeritage where + matchedSymbols _ = [197] + showFailure _ node_220 = + "expected " + GHC.Base.<> ( "class_heritage" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_220 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_220) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_221 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_222 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_223 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_224 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_221 + c1_222 = TreeSitter.Node.nodeStartPoint node_220 + TreeSitter.Node.TSPoint + r2_223 + c2_224 = TreeSitter.Node.nodeEndPoint node_220 + +deriving instance GHC.Classes.Eq a_225 => GHC.Classes.Eq (ClassHeritage a_225) + +deriving instance GHC.Classes.Ord a_226 => GHC.Classes.Ord (ClassHeritage a_226) + +deriving instance GHC.Show.Show a_227 => GHC.Show.Show (ClassHeritage a_227) + +instance AST.Unmarshal.Unmarshal ClassHeritage + +instance Data.Foldable.Foldable ClassHeritage where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassHeritage where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassHeritage where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ComputedPropertyName a = ComputedPropertyName + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_228. + AST.Traversable1.Class.Traversable1 a_228 + ) + +instance AST.Unmarshal.SymbolMatching ComputedPropertyName where + matchedSymbols _ = [234] + showFailure _ node_229 = + "expected " + GHC.Base.<> ( "computed_property_name" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_229 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_229) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_230 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_231 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_232 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_233 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_230 + c1_231 = TreeSitter.Node.nodeStartPoint node_229 + TreeSitter.Node.TSPoint + r2_232 + c2_233 = TreeSitter.Node.nodeEndPoint node_229 + +deriving instance GHC.Classes.Eq a_234 => GHC.Classes.Eq (ComputedPropertyName a_234) + +deriving instance GHC.Classes.Ord a_235 => GHC.Classes.Ord (ComputedPropertyName a_235) + +deriving instance GHC.Show.Show a_236 => GHC.Show.Show (ComputedPropertyName a_236) + +instance AST.Unmarshal.Unmarshal ComputedPropertyName + +instance Data.Foldable.Foldable ComputedPropertyName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ComputedPropertyName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ComputedPropertyName where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Constraint a = Constraint + { ann :: a, + extraChildren :: (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_237. + AST.Traversable1.Class.Traversable1 a_237 + ) + +instance AST.Unmarshal.SymbolMatching Constraint where + matchedSymbols _ = [282] + showFailure _ node_238 = + "expected " + GHC.Base.<> ( "constraint" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_238 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_238) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_239 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_240 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_241 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_242 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_239 + c1_240 = TreeSitter.Node.nodeStartPoint node_238 + TreeSitter.Node.TSPoint + r2_241 + c2_242 = TreeSitter.Node.nodeEndPoint node_238 + +deriving instance GHC.Classes.Eq a_243 => GHC.Classes.Eq (Constraint a_243) + +deriving instance GHC.Classes.Ord a_244 => GHC.Classes.Ord (Constraint a_244) + +deriving instance GHC.Show.Show a_245 => GHC.Show.Show (Constraint a_245) + +instance AST.Unmarshal.Unmarshal Constraint + +instance Data.Foldable.Foldable Constraint where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Constraint where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Constraint where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ConstructSignature a = ConstructSignature + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((FormalParameters GHC.Generics.:+: TypeAnnotation GHC.Generics.:+: TypeParameters) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_246. + AST.Traversable1.Class.Traversable1 a_246 + ) + +instance AST.Unmarshal.SymbolMatching ConstructSignature where + matchedSymbols _ = [283] + showFailure _ node_247 = + "expected " + GHC.Base.<> ( "construct_signature" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_247 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_247) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_248 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_249 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_250 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_251 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_248 + c1_249 = TreeSitter.Node.nodeStartPoint node_247 + TreeSitter.Node.TSPoint + r2_250 + c2_251 = TreeSitter.Node.nodeEndPoint node_247 + +deriving instance GHC.Classes.Eq a_252 => GHC.Classes.Eq (ConstructSignature a_252) + +deriving instance GHC.Classes.Ord a_253 => GHC.Classes.Ord (ConstructSignature a_253) + +deriving instance GHC.Show.Show a_254 => GHC.Show.Show (ConstructSignature a_254) + +instance AST.Unmarshal.Unmarshal ConstructSignature + +instance Data.Foldable.Foldable ConstructSignature where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ConstructSignature where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ConstructSignature where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ConstructorType a = ConstructorType + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FormalParameters GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypeParameters GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_255. + AST.Traversable1.Class.Traversable1 a_255 + ) + +instance AST.Unmarshal.SymbolMatching ConstructorType where + matchedSymbols _ = [261] + showFailure _ node_256 = + "expected " + GHC.Base.<> ( "constructor_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_256 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_256) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_257 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_258 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_259 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_260 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_257 + c1_258 = TreeSitter.Node.nodeStartPoint node_256 + TreeSitter.Node.TSPoint + r2_259 + c2_260 = TreeSitter.Node.nodeEndPoint node_256 + +deriving instance GHC.Classes.Eq a_261 => GHC.Classes.Eq (ConstructorType a_261) + +deriving instance GHC.Classes.Ord a_262 => GHC.Classes.Ord (ConstructorType a_262) + +deriving instance GHC.Show.Show a_263 => GHC.Show.Show (ConstructorType a_263) + +instance AST.Unmarshal.Unmarshal ConstructorType + +instance Data.Foldable.Foldable ConstructorType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ConstructorType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ConstructorType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ContinueStatement a = ContinueStatement + { ann :: a, + label :: (GHC.Maybe.Maybe (AST.Parse.Err (StatementIdentifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_264. + AST.Traversable1.Class.Traversable1 a_264 + ) + +instance AST.Unmarshal.SymbolMatching ContinueStatement where + matchedSymbols _ = [169] + showFailure _ node_265 = + "expected " + GHC.Base.<> ( "continue_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_265 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_265) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_266 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_267 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_268 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_269 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_266 + c1_267 = TreeSitter.Node.nodeStartPoint node_265 + TreeSitter.Node.TSPoint + r2_268 + c2_269 = TreeSitter.Node.nodeEndPoint node_265 + +deriving instance GHC.Classes.Eq a_270 => GHC.Classes.Eq (ContinueStatement a_270) + +deriving instance GHC.Classes.Ord a_271 => GHC.Classes.Ord (ContinueStatement a_271) + +deriving instance GHC.Show.Show a_272 => GHC.Show.Show (ContinueStatement a_272) + +instance AST.Unmarshal.Unmarshal ContinueStatement + +instance Data.Foldable.Foldable ContinueStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ContinueStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ContinueStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DebuggerStatement a = DebuggerStatement {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_273. + AST.Traversable1.Class.Traversable1 a_273 + ) + +instance AST.Unmarshal.SymbolMatching DebuggerStatement where + matchedSymbols _ = [170] + showFailure _ node_274 = + "expected " + GHC.Base.<> ( "debugger_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_274 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_274) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_275 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_276 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_277 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_278 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_275 + c1_276 = TreeSitter.Node.nodeStartPoint node_274 + TreeSitter.Node.TSPoint + r2_277 + c2_278 = TreeSitter.Node.nodeEndPoint node_274 + +deriving instance GHC.Classes.Eq a_279 => GHC.Classes.Eq (DebuggerStatement a_279) + +deriving instance GHC.Classes.Ord a_280 => GHC.Classes.Ord (DebuggerStatement a_280) + +deriving instance GHC.Show.Show a_281 => GHC.Show.Show (DebuggerStatement a_281) + +instance AST.Unmarshal.Unmarshal DebuggerStatement + +instance Data.Foldable.Foldable DebuggerStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DebuggerStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DebuggerStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Decorator a = Decorator + { ann :: a, + extraChildren :: (AST.Parse.Err ((CallExpression GHC.Generics.:+: Identifier GHC.Generics.:+: MemberExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_282. + AST.Traversable1.Class.Traversable1 a_282 + ) + +instance AST.Unmarshal.SymbolMatching Decorator where + matchedSymbols _ = [224] + showFailure _ node_283 = + "expected " + GHC.Base.<> ( "decorator" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_283 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_283) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_284 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_285 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_286 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_287 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_284 + c1_285 = TreeSitter.Node.nodeStartPoint node_283 + TreeSitter.Node.TSPoint + r2_286 + c2_287 = TreeSitter.Node.nodeEndPoint node_283 + +deriving instance GHC.Classes.Eq a_288 => GHC.Classes.Eq (Decorator a_288) + +deriving instance GHC.Classes.Ord a_289 => GHC.Classes.Ord (Decorator a_289) + +deriving instance GHC.Show.Show a_290 => GHC.Show.Show (Decorator a_290) + +instance AST.Unmarshal.Unmarshal Decorator + +instance Data.Foldable.Foldable Decorator where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Decorator where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Decorator where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DefaultType a = DefaultType + { ann :: a, + extraChildren :: (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_291. + AST.Traversable1.Class.Traversable1 a_291 + ) + +instance AST.Unmarshal.SymbolMatching DefaultType where + matchedSymbols _ = [281] + showFailure _ node_292 = + "expected " + GHC.Base.<> ( "default_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_292 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_292) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_293 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_294 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_295 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_296 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_293 + c1_294 = TreeSitter.Node.nodeStartPoint node_292 + TreeSitter.Node.TSPoint + r2_295 + c2_296 = TreeSitter.Node.nodeEndPoint node_292 + +deriving instance GHC.Classes.Eq a_297 => GHC.Classes.Eq (DefaultType a_297) + +deriving instance GHC.Classes.Ord a_298 => GHC.Classes.Ord (DefaultType a_298) + +deriving instance GHC.Show.Show a_299 => GHC.Show.Show (DefaultType a_299) + +instance AST.Unmarshal.Unmarshal DefaultType + +instance Data.Foldable.Foldable DefaultType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DefaultType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DefaultType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DoStatement a = DoStatement + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + condition :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_300. + AST.Traversable1.Class.Traversable1 a_300 + ) + +instance AST.Unmarshal.SymbolMatching DoStatement where + matchedSymbols _ = [165] + showFailure _ node_301 = + "expected " + GHC.Base.<> ( "do_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_301 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_301) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_302 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_303 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_304 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_305 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_302 + c1_303 = TreeSitter.Node.nodeStartPoint node_301 + TreeSitter.Node.TSPoint + r2_304 + c2_305 = TreeSitter.Node.nodeEndPoint node_301 + +deriving instance GHC.Classes.Eq a_306 => GHC.Classes.Eq (DoStatement a_306) + +deriving instance GHC.Classes.Ord a_307 => GHC.Classes.Ord (DoStatement a_307) + +deriving instance GHC.Show.Show a_308 => GHC.Show.Show (DoStatement a_308) + +instance AST.Unmarshal.Unmarshal DoStatement + +instance Data.Foldable.Foldable DoStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DoStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DoStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EmptyStatement a = EmptyStatement {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_309. + AST.Traversable1.Class.Traversable1 a_309 + ) + +instance AST.Unmarshal.SymbolMatching EmptyStatement where + matchedSymbols _ = [173] + showFailure _ node_310 = + "expected " + GHC.Base.<> ( "empty_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_310 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_310) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_311 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_312 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_313 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_314 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_311 + c1_312 = TreeSitter.Node.nodeStartPoint node_310 + TreeSitter.Node.TSPoint + r2_313 + c2_314 = TreeSitter.Node.nodeEndPoint node_310 + +deriving instance GHC.Classes.Eq a_315 => GHC.Classes.Eq (EmptyStatement a_315) + +deriving instance GHC.Classes.Ord a_316 => GHC.Classes.Ord (EmptyStatement a_316) + +deriving instance GHC.Show.Show a_317 => GHC.Show.Show (EmptyStatement a_317) + +instance AST.Unmarshal.Unmarshal EmptyStatement + +instance Data.Foldable.Foldable EmptyStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EmptyStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EmptyStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EnumAssignment a = EnumAssignment + { ann :: a, + value :: (AST.Parse.Err (Expression a)), + extraChildren :: (AST.Parse.Err ((ComputedPropertyName GHC.Generics.:+: Number GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_318. + AST.Traversable1.Class.Traversable1 a_318 + ) + +instance AST.Unmarshal.SymbolMatching EnumAssignment where + matchedSymbols _ = [253] + showFailure _ node_319 = + "expected " + GHC.Base.<> ( "enum_assignment" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_319 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_319) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_320 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_321 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_322 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_323 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_320 + c1_321 = TreeSitter.Node.nodeStartPoint node_319 + TreeSitter.Node.TSPoint + r2_322 + c2_323 = TreeSitter.Node.nodeEndPoint node_319 + +deriving instance GHC.Classes.Eq a_324 => GHC.Classes.Eq (EnumAssignment a_324) + +deriving instance GHC.Classes.Ord a_325 => GHC.Classes.Ord (EnumAssignment a_325) + +deriving instance GHC.Show.Show a_326 => GHC.Show.Show (EnumAssignment a_326) + +instance AST.Unmarshal.Unmarshal EnumAssignment + +instance Data.Foldable.Foldable EnumAssignment where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EnumAssignment where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EnumAssignment where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EnumBody a = EnumBody + { ann :: a, + extraChildren :: ([AST.Parse.Err ((ComputedPropertyName GHC.Generics.:+: EnumAssignment GHC.Generics.:+: Number GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_327. + AST.Traversable1.Class.Traversable1 a_327 + ) + +instance AST.Unmarshal.SymbolMatching EnumBody where + matchedSymbols _ = [252] + showFailure _ node_328 = + "expected " + GHC.Base.<> ( "enum_body" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_328 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_328) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_329 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_330 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_331 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_332 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_329 + c1_330 = TreeSitter.Node.nodeStartPoint node_328 + TreeSitter.Node.TSPoint + r2_331 + c2_332 = TreeSitter.Node.nodeEndPoint node_328 + +deriving instance GHC.Classes.Eq a_333 => GHC.Classes.Eq (EnumBody a_333) + +deriving instance GHC.Classes.Ord a_334 => GHC.Classes.Ord (EnumBody a_334) + +deriving instance GHC.Show.Show a_335 => GHC.Show.Show (EnumBody a_335) + +instance AST.Unmarshal.Unmarshal EnumBody + +instance Data.Foldable.Foldable EnumBody where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EnumBody where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EnumBody where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EnumDeclaration a = EnumDeclaration + { ann :: a, + body :: (AST.Parse.Err (EnumBody a)), + name :: (AST.Parse.Err (Identifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_336. + AST.Traversable1.Class.Traversable1 a_336 + ) + +instance AST.Unmarshal.SymbolMatching EnumDeclaration where + matchedSymbols _ = [251] + showFailure _ node_337 = + "expected " + GHC.Base.<> ( "enum_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_337 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_337) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_338 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_339 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_340 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_341 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_338 + c1_339 = TreeSitter.Node.nodeStartPoint node_337 + TreeSitter.Node.TSPoint + r2_340 + c2_341 = TreeSitter.Node.nodeEndPoint node_337 + +deriving instance GHC.Classes.Eq a_342 => GHC.Classes.Eq (EnumDeclaration a_342) + +deriving instance GHC.Classes.Ord a_343 => GHC.Classes.Ord (EnumDeclaration a_343) + +deriving instance GHC.Show.Show a_344 => GHC.Show.Show (EnumDeclaration a_344) + +instance AST.Unmarshal.Unmarshal EnumDeclaration + +instance Data.Foldable.Foldable EnumDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EnumDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EnumDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExistentialType a = ExistentialType {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_345. + AST.Traversable1.Class.Traversable1 a_345 + ) + +instance AST.Unmarshal.SymbolMatching ExistentialType where + matchedSymbols _ = [271] + showFailure _ node_346 = + "expected " + GHC.Base.<> ( "existential_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_346 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_346) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_347 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_348 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_349 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_350 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_347 + c1_348 = TreeSitter.Node.nodeStartPoint node_346 + TreeSitter.Node.TSPoint + r2_349 + c2_350 = TreeSitter.Node.nodeEndPoint node_346 + +deriving instance GHC.Classes.Eq a_351 => GHC.Classes.Eq (ExistentialType a_351) + +deriving instance GHC.Classes.Ord a_352 => GHC.Classes.Ord (ExistentialType a_352) + +deriving instance GHC.Show.Show a_353 => GHC.Show.Show (ExistentialType a_353) + +instance AST.Unmarshal.Unmarshal ExistentialType + +instance Data.Foldable.Foldable ExistentialType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExistentialType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExistentialType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExportClause a = ExportClause + { ann :: a, + extraChildren :: ([AST.Parse.Err (ExportSpecifier a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_354. + AST.Traversable1.Class.Traversable1 a_354 + ) + +instance AST.Unmarshal.SymbolMatching ExportClause where + matchedSymbols _ = [145] + showFailure _ node_355 = + "expected " + GHC.Base.<> ( "export_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_355 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_355) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_356 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_357 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_358 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_359 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_356 + c1_357 = TreeSitter.Node.nodeStartPoint node_355 + TreeSitter.Node.TSPoint + r2_358 + c2_359 = TreeSitter.Node.nodeEndPoint node_355 + +deriving instance GHC.Classes.Eq a_360 => GHC.Classes.Eq (ExportClause a_360) + +deriving instance GHC.Classes.Ord a_361 => GHC.Classes.Ord (ExportClause a_361) + +deriving instance GHC.Show.Show a_362 => GHC.Show.Show (ExportClause a_362) + +instance AST.Unmarshal.Unmarshal ExportClause + +instance Data.Foldable.Foldable ExportClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExportClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExportClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExportSpecifier a = ExportSpecifier + { ann :: a, + alias :: (GHC.Maybe.Maybe (AST.Parse.Err (Identifier a))), + name :: (AST.Parse.Err (Identifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_363. + AST.Traversable1.Class.Traversable1 a_363 + ) + +instance AST.Unmarshal.SymbolMatching ExportSpecifier where + matchedSymbols _ = [311] + showFailure _ node_364 = + "expected " + GHC.Base.<> ( "export_specifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_364 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_364) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_365 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_366 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_367 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_368 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_365 + c1_366 = TreeSitter.Node.nodeStartPoint node_364 + TreeSitter.Node.TSPoint + r2_367 + c2_368 = TreeSitter.Node.nodeEndPoint node_364 + +deriving instance GHC.Classes.Eq a_369 => GHC.Classes.Eq (ExportSpecifier a_369) + +deriving instance GHC.Classes.Ord a_370 => GHC.Classes.Ord (ExportSpecifier a_370) + +deriving instance GHC.Show.Show a_371 => GHC.Show.Show (ExportSpecifier a_371) + +instance AST.Unmarshal.Unmarshal ExportSpecifier + +instance Data.Foldable.Foldable ExportSpecifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExportSpecifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExportSpecifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExportStatement a = ExportStatement + { ann :: a, + decorator :: ([AST.Parse.Err (Decorator a)]), + declaration :: (GHC.Maybe.Maybe (AST.Parse.Err (Declaration a))), + value :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + source :: (GHC.Maybe.Maybe (AST.Parse.Err (String a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err ((ExportClause GHC.Generics.:+: Identifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_372. + AST.Traversable1.Class.Traversable1 a_372 + ) + +instance AST.Unmarshal.SymbolMatching ExportStatement where + matchedSymbols _ = [144] + showFailure _ node_373 = + "expected " + GHC.Base.<> ( "export_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_373 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_373) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_374 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_375 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_376 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_377 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_374 + c1_375 = TreeSitter.Node.nodeStartPoint node_373 + TreeSitter.Node.TSPoint + r2_376 + c2_377 = TreeSitter.Node.nodeEndPoint node_373 + +deriving instance GHC.Classes.Eq a_378 => GHC.Classes.Eq (ExportStatement a_378) + +deriving instance GHC.Classes.Ord a_379 => GHC.Classes.Ord (ExportStatement a_379) + +deriving instance GHC.Show.Show a_380 => GHC.Show.Show (ExportStatement a_380) + +instance AST.Unmarshal.Unmarshal ExportStatement + +instance Data.Foldable.Foldable ExportStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExportStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExportStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExpressionStatement a = ExpressionStatement + { ann :: a, + extraChildren :: (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_381. + AST.Traversable1.Class.Traversable1 a_381 + ) + +instance AST.Unmarshal.SymbolMatching ExpressionStatement where + matchedSymbols _ = [154] + showFailure _ node_382 = + "expected " + GHC.Base.<> ( "expression_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_382 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_382) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_383 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_384 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_385 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_386 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_383 + c1_384 = TreeSitter.Node.nodeStartPoint node_382 + TreeSitter.Node.TSPoint + r2_385 + c2_386 = TreeSitter.Node.nodeEndPoint node_382 + +deriving instance GHC.Classes.Eq a_387 => GHC.Classes.Eq (ExpressionStatement a_387) + +deriving instance GHC.Classes.Ord a_388 => GHC.Classes.Ord (ExpressionStatement a_388) + +deriving instance GHC.Show.Show a_389 => GHC.Show.Show (ExpressionStatement a_389) + +instance AST.Unmarshal.Unmarshal ExpressionStatement + +instance Data.Foldable.Foldable ExpressionStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExpressionStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExpressionStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExtendsClause a = ExtendsClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: GenericType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: TypeIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_390. + AST.Traversable1.Class.Traversable1 a_390 + ) + +instance AST.Unmarshal.SymbolMatching ExtendsClause where + matchedSymbols _ = [250] + showFailure _ node_391 = + "expected " + GHC.Base.<> ( "extends_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_391 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_391) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_392 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_393 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_394 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_395 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_392 + c1_393 = TreeSitter.Node.nodeStartPoint node_391 + TreeSitter.Node.TSPoint + r2_394 + c2_395 = TreeSitter.Node.nodeEndPoint node_391 + +deriving instance GHC.Classes.Eq a_396 => GHC.Classes.Eq (ExtendsClause a_396) + +deriving instance GHC.Classes.Ord a_397 => GHC.Classes.Ord (ExtendsClause a_397) + +deriving instance GHC.Show.Show a_398 => GHC.Show.Show (ExtendsClause a_398) + +instance AST.Unmarshal.Unmarshal ExtendsClause + +instance Data.Foldable.Foldable ExtendsClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExtendsClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExtendsClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FinallyClause a = FinallyClause + { ann :: a, + body :: (AST.Parse.Err (StatementBlock a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_399. + AST.Traversable1.Class.Traversable1 a_399 + ) + +instance AST.Unmarshal.SymbolMatching FinallyClause where + matchedSymbols _ = [179] + showFailure _ node_400 = + "expected " + GHC.Base.<> ( "finally_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_400 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_400) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_401 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_402 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_403 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_404 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_401 + c1_402 = TreeSitter.Node.nodeStartPoint node_400 + TreeSitter.Node.TSPoint + r2_403 + c2_404 = TreeSitter.Node.nodeEndPoint node_400 + +deriving instance GHC.Classes.Eq a_405 => GHC.Classes.Eq (FinallyClause a_405) + +deriving instance GHC.Classes.Ord a_406 => GHC.Classes.Ord (FinallyClause a_406) + +deriving instance GHC.Show.Show a_407 => GHC.Show.Show (FinallyClause a_407) + +instance AST.Unmarshal.Unmarshal FinallyClause + +instance Data.Foldable.Foldable FinallyClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FinallyClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FinallyClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FlowMaybeType a = FlowMaybeType + { ann :: a, + extraChildren :: (AST.Parse.Err ((ArrayType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_408. + AST.Traversable1.Class.Traversable1 a_408 + ) + +instance AST.Unmarshal.SymbolMatching FlowMaybeType where + matchedSymbols _ = [272] + showFailure _ node_409 = + "expected " + GHC.Base.<> ( "flow_maybe_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_409 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_409) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_410 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_411 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_412 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_413 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_410 + c1_411 = TreeSitter.Node.nodeStartPoint node_409 + TreeSitter.Node.TSPoint + r2_412 + c2_413 = TreeSitter.Node.nodeEndPoint node_409 + +deriving instance GHC.Classes.Eq a_414 => GHC.Classes.Eq (FlowMaybeType a_414) + +deriving instance GHC.Classes.Ord a_415 => GHC.Classes.Ord (FlowMaybeType a_415) + +deriving instance GHC.Show.Show a_416 => GHC.Show.Show (FlowMaybeType a_416) + +instance AST.Unmarshal.Unmarshal FlowMaybeType + +instance Data.Foldable.Foldable FlowMaybeType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FlowMaybeType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FlowMaybeType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ForInStatement a = ForInStatement + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + left :: (AST.Parse.Err ((DestructuringPattern GHC.Generics.:+: Identifier GHC.Generics.:+: MemberExpression GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: SubscriptExpression) a)), + right :: (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_417. + AST.Traversable1.Class.Traversable1 a_417 + ) + +instance AST.Unmarshal.SymbolMatching ForInStatement where + matchedSymbols _ = [162] + showFailure _ node_418 = + "expected " + GHC.Base.<> ( "for_in_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_418 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_418) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_419 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_420 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_421 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_422 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_419 + c1_420 = TreeSitter.Node.nodeStartPoint node_418 + TreeSitter.Node.TSPoint + r2_421 + c2_422 = TreeSitter.Node.nodeEndPoint node_418 + +deriving instance GHC.Classes.Eq a_423 => GHC.Classes.Eq (ForInStatement a_423) + +deriving instance GHC.Classes.Ord a_424 => GHC.Classes.Ord (ForInStatement a_424) + +deriving instance GHC.Show.Show a_425 => GHC.Show.Show (ForInStatement a_425) + +instance AST.Unmarshal.Unmarshal ForInStatement + +instance Data.Foldable.Foldable ForInStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ForInStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ForInStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ForStatement a = ForStatement + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + initializer :: (AST.Parse.Err ((EmptyStatement GHC.Generics.:+: ExpressionStatement GHC.Generics.:+: LexicalDeclaration GHC.Generics.:+: VariableDeclaration) a)), + condition :: (AST.Parse.Err ((EmptyStatement GHC.Generics.:+: ExpressionStatement) a)), + increment :: (GHC.Maybe.Maybe (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_426. + AST.Traversable1.Class.Traversable1 a_426 + ) + +instance AST.Unmarshal.SymbolMatching ForStatement where + matchedSymbols _ = [161] + showFailure _ node_427 = + "expected " + GHC.Base.<> ( "for_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_427 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_427) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_428 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_429 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_430 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_431 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_428 + c1_429 = TreeSitter.Node.nodeStartPoint node_427 + TreeSitter.Node.TSPoint + r2_430 + c2_431 = TreeSitter.Node.nodeEndPoint node_427 + +deriving instance GHC.Classes.Eq a_432 => GHC.Classes.Eq (ForStatement a_432) + +deriving instance GHC.Classes.Ord a_433 => GHC.Classes.Ord (ForStatement a_433) + +deriving instance GHC.Show.Show a_434 => GHC.Show.Show (ForStatement a_434) + +instance AST.Unmarshal.Unmarshal ForStatement + +instance Data.Foldable.Foldable ForStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ForStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ForStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FormalParameters a = FormalParameters + { ann :: a, + decorator :: ([AST.Parse.Err (Decorator a)]), + extraChildren :: ([AST.Parse.Err ((OptionalParameter GHC.Generics.:+: RequiredParameter GHC.Generics.:+: RestParameter) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_435. + AST.Traversable1.Class.Traversable1 a_435 + ) + +instance AST.Unmarshal.SymbolMatching FormalParameters where + matchedSymbols _ = [229] + showFailure _ node_436 = + "expected " + GHC.Base.<> ( "formal_parameters" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_436 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_436) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_437 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_438 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_439 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_440 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_437 + c1_438 = TreeSitter.Node.nodeStartPoint node_436 + TreeSitter.Node.TSPoint + r2_439 + c2_440 = TreeSitter.Node.nodeEndPoint node_436 + +deriving instance GHC.Classes.Eq a_441 => GHC.Classes.Eq (FormalParameters a_441) + +deriving instance GHC.Classes.Ord a_442 => GHC.Classes.Ord (FormalParameters a_442) + +deriving instance GHC.Show.Show a_443 => GHC.Show.Show (FormalParameters a_443) + +instance AST.Unmarshal.Unmarshal FormalParameters + +instance Data.Foldable.Foldable FormalParameters where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FormalParameters where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FormalParameters where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Function a = Function + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + body :: (AST.Parse.Err (StatementBlock a)), + name :: (GHC.Maybe.Maybe (AST.Parse.Err (Identifier a))), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_444. + AST.Traversable1.Class.Traversable1 a_444 + ) + +instance AST.Unmarshal.SymbolMatching Function where + matchedSymbols _ = [198] + showFailure _ node_445 = + "expected " + GHC.Base.<> ( "function" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_445 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_445) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_446 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_447 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_448 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_449 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_446 + c1_447 = TreeSitter.Node.nodeStartPoint node_445 + TreeSitter.Node.TSPoint + r2_448 + c2_449 = TreeSitter.Node.nodeEndPoint node_445 + +deriving instance GHC.Classes.Eq a_450 => GHC.Classes.Eq (Function a_450) + +deriving instance GHC.Classes.Ord a_451 => GHC.Classes.Ord (Function a_451) + +deriving instance GHC.Show.Show a_452 => GHC.Show.Show (Function a_452) + +instance AST.Unmarshal.Unmarshal Function + +instance Data.Foldable.Foldable Function where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Function where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Function where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FunctionDeclaration a = FunctionDeclaration + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + body :: (AST.Parse.Err (StatementBlock a)), + name :: (AST.Parse.Err (Identifier a)), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_453. + AST.Traversable1.Class.Traversable1 a_453 + ) + +instance AST.Unmarshal.SymbolMatching FunctionDeclaration where + matchedSymbols _ = [199] + showFailure _ node_454 = + "expected " + GHC.Base.<> ( "function_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_454 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_454) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_455 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_456 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_457 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_458 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_455 + c1_456 = TreeSitter.Node.nodeStartPoint node_454 + TreeSitter.Node.TSPoint + r2_457 + c2_458 = TreeSitter.Node.nodeEndPoint node_454 + +deriving instance GHC.Classes.Eq a_459 => GHC.Classes.Eq (FunctionDeclaration a_459) + +deriving instance GHC.Classes.Ord a_460 => GHC.Classes.Ord (FunctionDeclaration a_460) + +deriving instance GHC.Show.Show a_461 => GHC.Show.Show (FunctionDeclaration a_461) + +instance AST.Unmarshal.Unmarshal FunctionDeclaration + +instance Data.Foldable.Foldable FunctionDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FunctionDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FunctionDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FunctionSignature a = FunctionSignature + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + name :: (AST.Parse.Err (Identifier a)), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_462. + AST.Traversable1.Class.Traversable1 a_462 + ) + +instance AST.Unmarshal.SymbolMatching FunctionSignature where + matchedSymbols _ = [238] + showFailure _ node_463 = + "expected " + GHC.Base.<> ( "function_signature" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_463 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_463) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_464 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_465 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_466 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_467 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_464 + c1_465 = TreeSitter.Node.nodeStartPoint node_463 + TreeSitter.Node.TSPoint + r2_466 + c2_467 = TreeSitter.Node.nodeEndPoint node_463 + +deriving instance GHC.Classes.Eq a_468 => GHC.Classes.Eq (FunctionSignature a_468) + +deriving instance GHC.Classes.Ord a_469 => GHC.Classes.Ord (FunctionSignature a_469) + +deriving instance GHC.Show.Show a_470 => GHC.Show.Show (FunctionSignature a_470) + +instance AST.Unmarshal.Unmarshal FunctionSignature + +instance Data.Foldable.Foldable FunctionSignature where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FunctionSignature where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FunctionSignature where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FunctionType a = FunctionType + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FormalParameters GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypeParameters GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_471. + AST.Traversable1.Class.Traversable1 a_471 + ) + +instance AST.Unmarshal.SymbolMatching FunctionType where + matchedSymbols _ = [289] + showFailure _ node_472 = + "expected " + GHC.Base.<> ( "function_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_472 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_472) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_473 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_474 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_475 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_476 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_473 + c1_474 = TreeSitter.Node.nodeStartPoint node_472 + TreeSitter.Node.TSPoint + r2_475 + c2_476 = TreeSitter.Node.nodeEndPoint node_472 + +deriving instance GHC.Classes.Eq a_477 => GHC.Classes.Eq (FunctionType a_477) + +deriving instance GHC.Classes.Ord a_478 => GHC.Classes.Ord (FunctionType a_478) + +deriving instance GHC.Show.Show a_479 => GHC.Show.Show (FunctionType a_479) + +instance AST.Unmarshal.Unmarshal FunctionType + +instance Data.Foldable.Foldable FunctionType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FunctionType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FunctionType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data GeneratorFunction a = GeneratorFunction + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + body :: (AST.Parse.Err (StatementBlock a)), + name :: (GHC.Maybe.Maybe (AST.Parse.Err (Identifier a))), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_480. + AST.Traversable1.Class.Traversable1 a_480 + ) + +instance AST.Unmarshal.SymbolMatching GeneratorFunction where + matchedSymbols _ = [200] + showFailure _ node_481 = + "expected " + GHC.Base.<> ( "generator_function" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_481 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_481) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_482 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_483 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_484 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_485 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_482 + c1_483 = TreeSitter.Node.nodeStartPoint node_481 + TreeSitter.Node.TSPoint + r2_484 + c2_485 = TreeSitter.Node.nodeEndPoint node_481 + +deriving instance GHC.Classes.Eq a_486 => GHC.Classes.Eq (GeneratorFunction a_486) + +deriving instance GHC.Classes.Ord a_487 => GHC.Classes.Ord (GeneratorFunction a_487) + +deriving instance GHC.Show.Show a_488 => GHC.Show.Show (GeneratorFunction a_488) + +instance AST.Unmarshal.Unmarshal GeneratorFunction + +instance Data.Foldable.Foldable GeneratorFunction where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor GeneratorFunction where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable GeneratorFunction where + traverse = AST.Traversable1.Class.traverseDefault1 + +data GeneratorFunctionDeclaration a = GeneratorFunctionDeclaration + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + body :: (AST.Parse.Err (StatementBlock a)), + name :: (AST.Parse.Err (Identifier a)), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_489. + AST.Traversable1.Class.Traversable1 a_489 + ) + +instance AST.Unmarshal.SymbolMatching GeneratorFunctionDeclaration where + matchedSymbols _ = [201] + showFailure _ node_490 = + "expected " + GHC.Base.<> ( "generator_function_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_490 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_490) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_491 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_492 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_493 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_494 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_491 + c1_492 = TreeSitter.Node.nodeStartPoint node_490 + TreeSitter.Node.TSPoint + r2_493 + c2_494 = TreeSitter.Node.nodeEndPoint node_490 + +deriving instance GHC.Classes.Eq a_495 => GHC.Classes.Eq (GeneratorFunctionDeclaration a_495) + +deriving instance GHC.Classes.Ord a_496 => GHC.Classes.Ord (GeneratorFunctionDeclaration a_496) + +deriving instance GHC.Show.Show a_497 => GHC.Show.Show (GeneratorFunctionDeclaration a_497) + +instance AST.Unmarshal.Unmarshal GeneratorFunctionDeclaration + +instance Data.Foldable.Foldable GeneratorFunctionDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor GeneratorFunctionDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable GeneratorFunctionDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data GenericType a = GenericType + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((NestedTypeIdentifier GHC.Generics.:+: TypeArguments GHC.Generics.:+: TypeIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_498. + AST.Traversable1.Class.Traversable1 a_498 + ) + +instance AST.Unmarshal.SymbolMatching GenericType where + matchedSymbols _ = [263] + showFailure _ node_499 = + "expected " + GHC.Base.<> ( "generic_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_499 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_499) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_500 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_501 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_502 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_503 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_500 + c1_501 = TreeSitter.Node.nodeStartPoint node_499 + TreeSitter.Node.TSPoint + r2_502 + c2_503 = TreeSitter.Node.nodeEndPoint node_499 + +deriving instance GHC.Classes.Eq a_504 => GHC.Classes.Eq (GenericType a_504) + +deriving instance GHC.Classes.Ord a_505 => GHC.Classes.Ord (GenericType a_505) + +deriving instance GHC.Show.Show a_506 => GHC.Show.Show (GenericType a_506) + +instance AST.Unmarshal.Unmarshal GenericType + +instance Data.Foldable.Foldable GenericType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor GenericType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable GenericType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IfStatement a = IfStatement + { ann :: a, + alternative :: (GHC.Maybe.Maybe (AST.Parse.Err (Statement a))), + consequence :: (AST.Parse.Err (Statement a)), + condition :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_507. + AST.Traversable1.Class.Traversable1 a_507 + ) + +instance AST.Unmarshal.SymbolMatching IfStatement where + matchedSymbols _ = [159] + showFailure _ node_508 = + "expected " + GHC.Base.<> ( "if_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_508 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_508) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_509 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_510 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_511 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_512 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_509 + c1_510 = TreeSitter.Node.nodeStartPoint node_508 + TreeSitter.Node.TSPoint + r2_511 + c2_512 = TreeSitter.Node.nodeEndPoint node_508 + +deriving instance GHC.Classes.Eq a_513 => GHC.Classes.Eq (IfStatement a_513) + +deriving instance GHC.Classes.Ord a_514 => GHC.Classes.Ord (IfStatement a_514) + +deriving instance GHC.Show.Show a_515 => GHC.Show.Show (IfStatement a_515) + +instance AST.Unmarshal.Unmarshal IfStatement + +instance Data.Foldable.Foldable IfStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IfStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IfStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImplementsClause a = ImplementsClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_516. + AST.Traversable1.Class.Traversable1 a_516 + ) + +instance AST.Unmarshal.SymbolMatching ImplementsClause where + matchedSymbols _ = [241] + showFailure _ node_517 = + "expected " + GHC.Base.<> ( "implements_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_517 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_517) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_518 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_519 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_520 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_521 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_518 + c1_519 = TreeSitter.Node.nodeStartPoint node_517 + TreeSitter.Node.TSPoint + r2_520 + c2_521 = TreeSitter.Node.nodeEndPoint node_517 + +deriving instance GHC.Classes.Eq a_522 => GHC.Classes.Eq (ImplementsClause a_522) + +deriving instance GHC.Classes.Ord a_523 => GHC.Classes.Ord (ImplementsClause a_523) + +deriving instance GHC.Show.Show a_524 => GHC.Show.Show (ImplementsClause a_524) + +instance AST.Unmarshal.Unmarshal ImplementsClause + +instance Data.Foldable.Foldable ImplementsClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImplementsClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImplementsClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Import a = Import {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_525. + AST.Traversable1.Class.Traversable1 a_525 + ) + +instance AST.Unmarshal.SymbolMatching Import where + matchedSymbols _ = [148] + showFailure _ node_526 = + "expected " + GHC.Base.<> ( "import" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_526 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_526) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_527 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_528 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_529 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_530 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_527 + c1_528 = TreeSitter.Node.nodeStartPoint node_526 + TreeSitter.Node.TSPoint + r2_529 + c2_530 = TreeSitter.Node.nodeEndPoint node_526 + +deriving instance GHC.Classes.Eq a_531 => GHC.Classes.Eq (Import a_531) + +deriving instance GHC.Classes.Ord a_532 => GHC.Classes.Ord (Import a_532) + +deriving instance GHC.Show.Show a_533 => GHC.Show.Show (Import a_533) + +instance AST.Unmarshal.Unmarshal Import + +instance Data.Foldable.Foldable Import where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Import where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Import where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportAlias a = ImportAlias + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Identifier GHC.Generics.:+: NestedIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_534. + AST.Traversable1.Class.Traversable1 a_534 + ) + +instance AST.Unmarshal.SymbolMatching ImportAlias where + matchedSymbols _ = [247] + showFailure _ node_535 = + "expected " + GHC.Base.<> ( "import_alias" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_535 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_535) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_536 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_537 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_538 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_539 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_536 + c1_537 = TreeSitter.Node.nodeStartPoint node_535 + TreeSitter.Node.TSPoint + r2_538 + c2_539 = TreeSitter.Node.nodeEndPoint node_535 + +deriving instance GHC.Classes.Eq a_540 => GHC.Classes.Eq (ImportAlias a_540) + +deriving instance GHC.Classes.Ord a_541 => GHC.Classes.Ord (ImportAlias a_541) + +deriving instance GHC.Show.Show a_542 => GHC.Show.Show (ImportAlias a_542) + +instance AST.Unmarshal.Unmarshal ImportAlias + +instance Data.Foldable.Foldable ImportAlias where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportAlias where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportAlias where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportClause a = ImportClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Identifier GHC.Generics.:+: NamedImports GHC.Generics.:+: NamespaceImport) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_543. + AST.Traversable1.Class.Traversable1 a_543 + ) + +instance AST.Unmarshal.SymbolMatching ImportClause where + matchedSymbols _ = [150] + showFailure _ node_544 = + "expected " + GHC.Base.<> ( "import_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_544 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_544) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_545 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_546 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_547 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_548 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_545 + c1_546 = TreeSitter.Node.nodeStartPoint node_544 + TreeSitter.Node.TSPoint + r2_547 + c2_548 = TreeSitter.Node.nodeEndPoint node_544 + +deriving instance GHC.Classes.Eq a_549 => GHC.Classes.Eq (ImportClause a_549) + +deriving instance GHC.Classes.Ord a_550 => GHC.Classes.Ord (ImportClause a_550) + +deriving instance GHC.Show.Show a_551 => GHC.Show.Show (ImportClause a_551) + +instance AST.Unmarshal.Unmarshal ImportClause + +instance Data.Foldable.Foldable ImportClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportRequireClause a = ImportRequireClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Identifier GHC.Generics.:+: String) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_552. + AST.Traversable1.Class.Traversable1 a_552 + ) + +instance AST.Unmarshal.SymbolMatching ImportRequireClause where + matchedSymbols _ = [240] + showFailure _ node_553 = + "expected " + GHC.Base.<> ( "import_require_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_553 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_553) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_554 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_555 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_556 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_557 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_554 + c1_555 = TreeSitter.Node.nodeStartPoint node_553 + TreeSitter.Node.TSPoint + r2_556 + c2_557 = TreeSitter.Node.nodeEndPoint node_553 + +deriving instance GHC.Classes.Eq a_558 => GHC.Classes.Eq (ImportRequireClause a_558) + +deriving instance GHC.Classes.Ord a_559 => GHC.Classes.Ord (ImportRequireClause a_559) + +deriving instance GHC.Show.Show a_560 => GHC.Show.Show (ImportRequireClause a_560) + +instance AST.Unmarshal.Unmarshal ImportRequireClause + +instance Data.Foldable.Foldable ImportRequireClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportRequireClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportRequireClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportSpecifier a = ImportSpecifier + { ann :: a, + alias :: (GHC.Maybe.Maybe (AST.Parse.Err (Identifier a))), + name :: (AST.Parse.Err (Identifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_561. + AST.Traversable1.Class.Traversable1 a_561 + ) + +instance AST.Unmarshal.SymbolMatching ImportSpecifier where + matchedSymbols _ = [312] + showFailure _ node_562 = + "expected " + GHC.Base.<> ( "import_specifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_562 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_562) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_563 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_564 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_565 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_566 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_563 + c1_564 = TreeSitter.Node.nodeStartPoint node_562 + TreeSitter.Node.TSPoint + r2_565 + c2_566 = TreeSitter.Node.nodeEndPoint node_562 + +deriving instance GHC.Classes.Eq a_567 => GHC.Classes.Eq (ImportSpecifier a_567) + +deriving instance GHC.Classes.Ord a_568 => GHC.Classes.Ord (ImportSpecifier a_568) + +deriving instance GHC.Show.Show a_569 => GHC.Show.Show (ImportSpecifier a_569) + +instance AST.Unmarshal.Unmarshal ImportSpecifier + +instance Data.Foldable.Foldable ImportSpecifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportSpecifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportSpecifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportStatement a = ImportStatement + { ann :: a, + source :: (GHC.Maybe.Maybe (AST.Parse.Err (String a))), + extraChildren :: (AST.Parse.Err ((ImportClause GHC.Generics.:+: ImportRequireClause GHC.Generics.:+: String) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_570. + AST.Traversable1.Class.Traversable1 a_570 + ) + +instance AST.Unmarshal.SymbolMatching ImportStatement where + matchedSymbols _ = [149] + showFailure _ node_571 = + "expected " + GHC.Base.<> ( "import_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_571 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_571) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_572 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_573 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_574 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_575 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_572 + c1_573 = TreeSitter.Node.nodeStartPoint node_571 + TreeSitter.Node.TSPoint + r2_574 + c2_575 = TreeSitter.Node.nodeEndPoint node_571 + +deriving instance GHC.Classes.Eq a_576 => GHC.Classes.Eq (ImportStatement a_576) + +deriving instance GHC.Classes.Ord a_577 => GHC.Classes.Ord (ImportStatement a_577) + +deriving instance GHC.Show.Show a_578 => GHC.Show.Show (ImportStatement a_578) + +instance AST.Unmarshal.Unmarshal ImportStatement + +instance Data.Foldable.Foldable ImportStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IndexSignature a = IndexSignature + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Identifier GHC.Generics.:+: MappedTypeClause GHC.Generics.:+: PredefinedType GHC.Generics.:+: TypeAnnotation) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_579. + AST.Traversable1.Class.Traversable1 a_579 + ) + +instance AST.Unmarshal.SymbolMatching IndexSignature where + matchedSymbols _ = [284] + showFailure _ node_580 = + "expected " + GHC.Base.<> ( "index_signature" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_580 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_580) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_581 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_582 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_583 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_584 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_581 + c1_582 = TreeSitter.Node.nodeStartPoint node_580 + TreeSitter.Node.TSPoint + r2_583 + c2_584 = TreeSitter.Node.nodeEndPoint node_580 + +deriving instance GHC.Classes.Eq a_585 => GHC.Classes.Eq (IndexSignature a_585) + +deriving instance GHC.Classes.Ord a_586 => GHC.Classes.Ord (IndexSignature a_586) + +deriving instance GHC.Show.Show a_587 => GHC.Show.Show (IndexSignature a_587) + +instance AST.Unmarshal.Unmarshal IndexSignature + +instance Data.Foldable.Foldable IndexSignature where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IndexSignature where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IndexSignature where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IndexTypeQuery a = IndexTypeQuery + { ann :: a, + extraChildren :: (AST.Parse.Err ((NestedTypeIdentifier GHC.Generics.:+: TypeIdentifier) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_588. + AST.Traversable1.Class.Traversable1 a_588 + ) + +instance AST.Unmarshal.SymbolMatching IndexTypeQuery where + matchedSymbols _ = [266] + showFailure _ node_589 = + "expected " + GHC.Base.<> ( "index_type_query" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_589 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_589) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_590 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_591 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_592 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_593 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_590 + c1_591 = TreeSitter.Node.nodeStartPoint node_589 + TreeSitter.Node.TSPoint + r2_592 + c2_593 = TreeSitter.Node.nodeEndPoint node_589 + +deriving instance GHC.Classes.Eq a_594 => GHC.Classes.Eq (IndexTypeQuery a_594) + +deriving instance GHC.Classes.Ord a_595 => GHC.Classes.Ord (IndexTypeQuery a_595) + +deriving instance GHC.Show.Show a_596 => GHC.Show.Show (IndexTypeQuery a_596) + +instance AST.Unmarshal.Unmarshal IndexTypeQuery + +instance Data.Foldable.Foldable IndexTypeQuery where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IndexTypeQuery where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IndexTypeQuery where + traverse = AST.Traversable1.Class.traverseDefault1 + +data InterfaceDeclaration a = InterfaceDeclaration + { ann :: a, + body :: (AST.Parse.Err (ObjectType a)), + name :: (AST.Parse.Err (TypeIdentifier a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ExtendsClause a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_597. + AST.Traversable1.Class.Traversable1 a_597 + ) + +instance AST.Unmarshal.SymbolMatching InterfaceDeclaration where + matchedSymbols _ = [249] + showFailure _ node_598 = + "expected " + GHC.Base.<> ( "interface_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_598 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_598) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_599 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_600 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_601 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_602 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_599 + c1_600 = TreeSitter.Node.nodeStartPoint node_598 + TreeSitter.Node.TSPoint + r2_601 + c2_602 = TreeSitter.Node.nodeEndPoint node_598 + +deriving instance GHC.Classes.Eq a_603 => GHC.Classes.Eq (InterfaceDeclaration a_603) + +deriving instance GHC.Classes.Ord a_604 => GHC.Classes.Ord (InterfaceDeclaration a_604) + +deriving instance GHC.Show.Show a_605 => GHC.Show.Show (InterfaceDeclaration a_605) + +instance AST.Unmarshal.Unmarshal InterfaceDeclaration + +instance Data.Foldable.Foldable InterfaceDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor InterfaceDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable InterfaceDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data InternalModule a = InternalModule + { ann :: a, + body :: (GHC.Maybe.Maybe (AST.Parse.Err (StatementBlock a))), + name :: (AST.Parse.Err ((Identifier GHC.Generics.:+: NestedIdentifier GHC.Generics.:+: String) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_606. + AST.Traversable1.Class.Traversable1 a_606 + ) + +instance AST.Unmarshal.SymbolMatching InternalModule where + matchedSymbols _ = [245] + showFailure _ node_607 = + "expected " + GHC.Base.<> ( "internal_module" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_607 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_607) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_608 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_609 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_610 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_611 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_608 + c1_609 = TreeSitter.Node.nodeStartPoint node_607 + TreeSitter.Node.TSPoint + r2_610 + c2_611 = TreeSitter.Node.nodeEndPoint node_607 + +deriving instance GHC.Classes.Eq a_612 => GHC.Classes.Eq (InternalModule a_612) + +deriving instance GHC.Classes.Ord a_613 => GHC.Classes.Ord (InternalModule a_613) + +deriving instance GHC.Show.Show a_614 => GHC.Show.Show (InternalModule a_614) + +instance AST.Unmarshal.Unmarshal InternalModule + +instance Data.Foldable.Foldable InternalModule where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor InternalModule where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable InternalModule where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IntersectionType a = IntersectionType + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_615. + AST.Traversable1.Class.Traversable1 a_615 + ) + +instance AST.Unmarshal.SymbolMatching IntersectionType where + matchedSymbols _ = [288] + showFailure _ node_616 = + "expected " + GHC.Base.<> ( "intersection_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_616 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_616) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_617 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_618 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_619 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_620 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_617 + c1_618 = TreeSitter.Node.nodeStartPoint node_616 + TreeSitter.Node.TSPoint + r2_619 + c2_620 = TreeSitter.Node.nodeEndPoint node_616 + +deriving instance GHC.Classes.Eq a_621 => GHC.Classes.Eq (IntersectionType a_621) + +deriving instance GHC.Classes.Ord a_622 => GHC.Classes.Ord (IntersectionType a_622) + +deriving instance GHC.Show.Show a_623 => GHC.Show.Show (IntersectionType a_623) + +instance AST.Unmarshal.Unmarshal IntersectionType + +instance Data.Foldable.Foldable IntersectionType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IntersectionType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IntersectionType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data JsxAttribute a = JsxAttribute + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((JsxElement GHC.Generics.:+: JsxExpression GHC.Generics.:+: JsxFragment GHC.Generics.:+: JsxNamespaceName GHC.Generics.:+: JsxSelfClosingElement GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_624. + AST.Traversable1.Class.Traversable1 a_624 + ) + +instance AST.Unmarshal.SymbolMatching JsxAttribute where + matchedSymbols _ = [194] + showFailure _ node_625 = + "expected " + GHC.Base.<> ( "jsx_attribute" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_625 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_625) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_626 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_627 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_628 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_629 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_626 + c1_627 = TreeSitter.Node.nodeStartPoint node_625 + TreeSitter.Node.TSPoint + r2_628 + c2_629 = TreeSitter.Node.nodeEndPoint node_625 + +deriving instance GHC.Classes.Eq a_630 => GHC.Classes.Eq (JsxAttribute a_630) + +deriving instance GHC.Classes.Ord a_631 => GHC.Classes.Ord (JsxAttribute a_631) + +deriving instance GHC.Show.Show a_632 => GHC.Show.Show (JsxAttribute a_632) + +instance AST.Unmarshal.Unmarshal JsxAttribute + +instance Data.Foldable.Foldable JsxAttribute where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxAttribute where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxAttribute where + traverse = AST.Traversable1.Class.traverseDefault1 + +data JsxClosingElement a = JsxClosingElement + { ann :: a, + name :: (AST.Parse.Err ((Identifier GHC.Generics.:+: JsxNamespaceName GHC.Generics.:+: NestedIdentifier) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_633. + AST.Traversable1.Class.Traversable1 a_633 + ) + +instance AST.Unmarshal.SymbolMatching JsxClosingElement where + matchedSymbols _ = [192] + showFailure _ node_634 = + "expected " + GHC.Base.<> ( "jsx_closing_element" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_634 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_634) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_635 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_636 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_637 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_638 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_635 + c1_636 = TreeSitter.Node.nodeStartPoint node_634 + TreeSitter.Node.TSPoint + r2_637 + c2_638 = TreeSitter.Node.nodeEndPoint node_634 + +deriving instance GHC.Classes.Eq a_639 => GHC.Classes.Eq (JsxClosingElement a_639) + +deriving instance GHC.Classes.Ord a_640 => GHC.Classes.Ord (JsxClosingElement a_640) + +deriving instance GHC.Show.Show a_641 => GHC.Show.Show (JsxClosingElement a_641) + +instance AST.Unmarshal.Unmarshal JsxClosingElement + +instance Data.Foldable.Foldable JsxClosingElement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxClosingElement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxClosingElement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data JsxElement a = JsxElement + { ann :: a, + closeTag :: (AST.Parse.Err (JsxClosingElement a)), + openTag :: (AST.Parse.Err (JsxOpeningElement a)), + extraChildren :: ([AST.Parse.Err ((JsxElement GHC.Generics.:+: JsxExpression GHC.Generics.:+: JsxSelfClosingElement GHC.Generics.:+: JsxText) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_642. + AST.Traversable1.Class.Traversable1 a_642 + ) + +instance AST.Unmarshal.SymbolMatching JsxElement where + matchedSymbols _ = [186] + showFailure _ node_643 = + "expected " + GHC.Base.<> ( "jsx_element" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_643 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_643) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_644 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_645 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_646 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_647 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_644 + c1_645 = TreeSitter.Node.nodeStartPoint node_643 + TreeSitter.Node.TSPoint + r2_646 + c2_647 = TreeSitter.Node.nodeEndPoint node_643 + +deriving instance GHC.Classes.Eq a_648 => GHC.Classes.Eq (JsxElement a_648) + +deriving instance GHC.Classes.Ord a_649 => GHC.Classes.Ord (JsxElement a_649) + +deriving instance GHC.Show.Show a_650 => GHC.Show.Show (JsxElement a_650) + +instance AST.Unmarshal.Unmarshal JsxElement + +instance Data.Foldable.Foldable JsxElement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxElement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxElement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data JsxExpression a = JsxExpression + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression GHC.Generics.:+: SpreadElement) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_651. + AST.Traversable1.Class.Traversable1 a_651 + ) + +instance AST.Unmarshal.SymbolMatching JsxExpression where + matchedSymbols _ = [188] + showFailure _ node_652 = + "expected " + GHC.Base.<> ( "jsx_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_652 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_652) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_653 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_654 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_655 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_656 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_653 + c1_654 = TreeSitter.Node.nodeStartPoint node_652 + TreeSitter.Node.TSPoint + r2_655 + c2_656 = TreeSitter.Node.nodeEndPoint node_652 + +deriving instance GHC.Classes.Eq a_657 => GHC.Classes.Eq (JsxExpression a_657) + +deriving instance GHC.Classes.Ord a_658 => GHC.Classes.Ord (JsxExpression a_658) + +deriving instance GHC.Show.Show a_659 => GHC.Show.Show (JsxExpression a_659) + +instance AST.Unmarshal.Unmarshal JsxExpression + +instance Data.Foldable.Foldable JsxExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data JsxFragment a = JsxFragment + { ann :: a, + extraChildren :: ([AST.Parse.Err ((JsxElement GHC.Generics.:+: JsxExpression GHC.Generics.:+: JsxSelfClosingElement GHC.Generics.:+: JsxText) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_660. + AST.Traversable1.Class.Traversable1 a_660 + ) + +instance AST.Unmarshal.SymbolMatching JsxFragment where + matchedSymbols _ = [187] + showFailure _ node_661 = + "expected " + GHC.Base.<> ( "jsx_fragment" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_661 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_661) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_662 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_663 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_664 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_665 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_662 + c1_663 = TreeSitter.Node.nodeStartPoint node_661 + TreeSitter.Node.TSPoint + r2_664 + c2_665 = TreeSitter.Node.nodeEndPoint node_661 + +deriving instance GHC.Classes.Eq a_666 => GHC.Classes.Eq (JsxFragment a_666) + +deriving instance GHC.Classes.Ord a_667 => GHC.Classes.Ord (JsxFragment a_667) + +deriving instance GHC.Show.Show a_668 => GHC.Show.Show (JsxFragment a_668) + +instance AST.Unmarshal.Unmarshal JsxFragment + +instance Data.Foldable.Foldable JsxFragment where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxFragment where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxFragment where + traverse = AST.Traversable1.Class.traverseDefault1 + +data JsxNamespaceName a = JsxNamespaceName + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Identifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_669. + AST.Traversable1.Class.Traversable1 a_669 + ) + +instance AST.Unmarshal.SymbolMatching JsxNamespaceName where + matchedSymbols _ = [191] + showFailure _ node_670 = + "expected " + GHC.Base.<> ( "jsx_namespace_name" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_670 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_670) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_671 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_672 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_673 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_674 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_671 + c1_672 = TreeSitter.Node.nodeStartPoint node_670 + TreeSitter.Node.TSPoint + r2_673 + c2_674 = TreeSitter.Node.nodeEndPoint node_670 + +deriving instance GHC.Classes.Eq a_675 => GHC.Classes.Eq (JsxNamespaceName a_675) + +deriving instance GHC.Classes.Ord a_676 => GHC.Classes.Ord (JsxNamespaceName a_676) + +deriving instance GHC.Show.Show a_677 => GHC.Show.Show (JsxNamespaceName a_677) + +instance AST.Unmarshal.Unmarshal JsxNamespaceName + +instance Data.Foldable.Foldable JsxNamespaceName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxNamespaceName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxNamespaceName where + traverse = AST.Traversable1.Class.traverseDefault1 + +data JsxOpeningElement a = JsxOpeningElement + { ann :: a, + attribute :: ([AST.Parse.Err ((JsxAttribute GHC.Generics.:+: JsxExpression) a)]), + name :: (AST.Parse.Err ((Identifier GHC.Generics.:+: JsxNamespaceName GHC.Generics.:+: NestedIdentifier) a)), + typeArguments :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeArguments a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_678. + AST.Traversable1.Class.Traversable1 a_678 + ) + +instance AST.Unmarshal.SymbolMatching JsxOpeningElement where + matchedSymbols _ = [189] + showFailure _ node_679 = + "expected " + GHC.Base.<> ( "jsx_opening_element" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_679 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_679) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_680 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_681 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_682 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_683 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_680 + c1_681 = TreeSitter.Node.nodeStartPoint node_679 + TreeSitter.Node.TSPoint + r2_682 + c2_683 = TreeSitter.Node.nodeEndPoint node_679 + +deriving instance GHC.Classes.Eq a_684 => GHC.Classes.Eq (JsxOpeningElement a_684) + +deriving instance GHC.Classes.Ord a_685 => GHC.Classes.Ord (JsxOpeningElement a_685) + +deriving instance GHC.Show.Show a_686 => GHC.Show.Show (JsxOpeningElement a_686) + +instance AST.Unmarshal.Unmarshal JsxOpeningElement + +instance Data.Foldable.Foldable JsxOpeningElement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxOpeningElement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxOpeningElement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data JsxSelfClosingElement a = JsxSelfClosingElement + { ann :: a, + attribute :: ([AST.Parse.Err ((JsxAttribute GHC.Generics.:+: JsxExpression) a)]), + name :: (AST.Parse.Err ((Identifier GHC.Generics.:+: JsxNamespaceName GHC.Generics.:+: NestedIdentifier) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_687. + AST.Traversable1.Class.Traversable1 a_687 + ) + +instance AST.Unmarshal.SymbolMatching JsxSelfClosingElement where + matchedSymbols _ = [193] + showFailure _ node_688 = + "expected " + GHC.Base.<> ( "jsx_self_closing_element" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_688 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_688) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_689 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_690 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_691 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_692 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_689 + c1_690 = TreeSitter.Node.nodeStartPoint node_688 + TreeSitter.Node.TSPoint + r2_691 + c2_692 = TreeSitter.Node.nodeEndPoint node_688 + +deriving instance GHC.Classes.Eq a_693 => GHC.Classes.Eq (JsxSelfClosingElement a_693) + +deriving instance GHC.Classes.Ord a_694 => GHC.Classes.Ord (JsxSelfClosingElement a_694) + +deriving instance GHC.Show.Show a_695 => GHC.Show.Show (JsxSelfClosingElement a_695) + +instance AST.Unmarshal.Unmarshal JsxSelfClosingElement + +instance Data.Foldable.Foldable JsxSelfClosingElement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxSelfClosingElement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxSelfClosingElement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LabeledStatement a = LabeledStatement + { ann :: a, + label :: (AST.Parse.Err (StatementIdentifier a)), + extraChildren :: (AST.Parse.Err (Statement a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_696. + AST.Traversable1.Class.Traversable1 a_696 + ) + +instance AST.Unmarshal.SymbolMatching LabeledStatement where + matchedSymbols _ = [174] + showFailure _ node_697 = + "expected " + GHC.Base.<> ( "labeled_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_697 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_697) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_698 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_699 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_700 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_701 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_698 + c1_699 = TreeSitter.Node.nodeStartPoint node_697 + TreeSitter.Node.TSPoint + r2_700 + c2_701 = TreeSitter.Node.nodeEndPoint node_697 + +deriving instance GHC.Classes.Eq a_702 => GHC.Classes.Eq (LabeledStatement a_702) + +deriving instance GHC.Classes.Ord a_703 => GHC.Classes.Ord (LabeledStatement a_703) + +deriving instance GHC.Show.Show a_704 => GHC.Show.Show (LabeledStatement a_704) + +instance AST.Unmarshal.Unmarshal LabeledStatement + +instance Data.Foldable.Foldable LabeledStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LabeledStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LabeledStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LexicalDeclaration a = LexicalDeclaration + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (VariableDeclarator a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_705. + AST.Traversable1.Class.Traversable1 a_705 + ) + +instance AST.Unmarshal.SymbolMatching LexicalDeclaration where + matchedSymbols _ = [156] + showFailure _ node_706 = + "expected " + GHC.Base.<> ( "lexical_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_706 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_706) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_707 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_708 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_709 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_710 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_707 + c1_708 = TreeSitter.Node.nodeStartPoint node_706 + TreeSitter.Node.TSPoint + r2_709 + c2_710 = TreeSitter.Node.nodeEndPoint node_706 + +deriving instance GHC.Classes.Eq a_711 => GHC.Classes.Eq (LexicalDeclaration a_711) + +deriving instance GHC.Classes.Ord a_712 => GHC.Classes.Ord (LexicalDeclaration a_712) + +deriving instance GHC.Show.Show a_713 => GHC.Show.Show (LexicalDeclaration a_713) + +instance AST.Unmarshal.Unmarshal LexicalDeclaration + +instance Data.Foldable.Foldable LexicalDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LexicalDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LexicalDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LiteralType a = LiteralType + { ann :: a, + extraChildren :: (AST.Parse.Err ((False GHC.Generics.:+: Number GHC.Generics.:+: String GHC.Generics.:+: True GHC.Generics.:+: UnaryExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_714. + AST.Traversable1.Class.Traversable1 a_714 + ) + +instance AST.Unmarshal.SymbolMatching LiteralType where + matchedSymbols _ = [269] + showFailure _ node_715 = + "expected " + GHC.Base.<> ( "literal_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_715 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_715) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_716 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_717 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_718 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_719 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_716 + c1_717 = TreeSitter.Node.nodeStartPoint node_715 + TreeSitter.Node.TSPoint + r2_718 + c2_719 = TreeSitter.Node.nodeEndPoint node_715 + +deriving instance GHC.Classes.Eq a_720 => GHC.Classes.Eq (LiteralType a_720) + +deriving instance GHC.Classes.Ord a_721 => GHC.Classes.Ord (LiteralType a_721) + +deriving instance GHC.Show.Show a_722 => GHC.Show.Show (LiteralType a_722) + +instance AST.Unmarshal.Unmarshal LiteralType + +instance Data.Foldable.Foldable LiteralType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LiteralType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LiteralType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LookupType a = LookupType + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_723. + AST.Traversable1.Class.Traversable1 a_723 + ) + +instance AST.Unmarshal.SymbolMatching LookupType where + matchedSymbols _ = [267] + showFailure _ node_724 = + "expected " + GHC.Base.<> ( "lookup_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_724 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_724) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_725 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_726 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_727 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_728 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_725 + c1_726 = TreeSitter.Node.nodeStartPoint node_724 + TreeSitter.Node.TSPoint + r2_727 + c2_728 = TreeSitter.Node.nodeEndPoint node_724 + +deriving instance GHC.Classes.Eq a_729 => GHC.Classes.Eq (LookupType a_729) + +deriving instance GHC.Classes.Ord a_730 => GHC.Classes.Ord (LookupType a_730) + +deriving instance GHC.Show.Show a_731 => GHC.Show.Show (LookupType a_731) + +instance AST.Unmarshal.Unmarshal LookupType + +instance Data.Foldable.Foldable LookupType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LookupType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LookupType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MappedTypeClause a = MappedTypeClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_732. + AST.Traversable1.Class.Traversable1 a_732 + ) + +instance AST.Unmarshal.SymbolMatching MappedTypeClause where + matchedSymbols _ = [268] + showFailure _ node_733 = + "expected " + GHC.Base.<> ( "mapped_type_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_733 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_733) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_734 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_735 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_736 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_737 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_734 + c1_735 = TreeSitter.Node.nodeStartPoint node_733 + TreeSitter.Node.TSPoint + r2_736 + c2_737 = TreeSitter.Node.nodeEndPoint node_733 + +deriving instance GHC.Classes.Eq a_738 => GHC.Classes.Eq (MappedTypeClause a_738) + +deriving instance GHC.Classes.Ord a_739 => GHC.Classes.Ord (MappedTypeClause a_739) + +deriving instance GHC.Show.Show a_740 => GHC.Show.Show (MappedTypeClause a_740) + +instance AST.Unmarshal.Unmarshal MappedTypeClause + +instance Data.Foldable.Foldable MappedTypeClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MappedTypeClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MappedTypeClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MemberExpression a = MemberExpression + { ann :: a, + property :: (AST.Parse.Err (PropertyIdentifier a)), + object :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_741. + AST.Traversable1.Class.Traversable1 a_741 + ) + +instance AST.Unmarshal.SymbolMatching MemberExpression where + matchedSymbols _ = [207, 225] + showFailure _ node_742 = + "expected " + GHC.Base.<> ( "member_expression, member_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_742 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_742) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_743 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_744 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_745 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_746 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_743 + c1_744 = TreeSitter.Node.nodeStartPoint node_742 + TreeSitter.Node.TSPoint + r2_745 + c2_746 = TreeSitter.Node.nodeEndPoint node_742 + +deriving instance GHC.Classes.Eq a_747 => GHC.Classes.Eq (MemberExpression a_747) + +deriving instance GHC.Classes.Ord a_748 => GHC.Classes.Ord (MemberExpression a_748) + +deriving instance GHC.Show.Show a_749 => GHC.Show.Show (MemberExpression a_749) + +instance AST.Unmarshal.Unmarshal MemberExpression + +instance Data.Foldable.Foldable MemberExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MemberExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MemberExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MetaProperty a = MetaProperty {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_750. + AST.Traversable1.Class.Traversable1 a_750 + ) + +instance AST.Unmarshal.SymbolMatching MetaProperty where + matchedSymbols _ = [222] + showFailure _ node_751 = + "expected " + GHC.Base.<> ( "meta_property" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_751 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_751) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_752 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_753 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_754 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_755 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_752 + c1_753 = TreeSitter.Node.nodeStartPoint node_751 + TreeSitter.Node.TSPoint + r2_754 + c2_755 = TreeSitter.Node.nodeEndPoint node_751 + +deriving instance GHC.Classes.Eq a_756 => GHC.Classes.Eq (MetaProperty a_756) + +deriving instance GHC.Classes.Ord a_757 => GHC.Classes.Ord (MetaProperty a_757) + +deriving instance GHC.Show.Show a_758 => GHC.Show.Show (MetaProperty a_758) + +instance AST.Unmarshal.Unmarshal MetaProperty + +instance Data.Foldable.Foldable MetaProperty where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MetaProperty where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MetaProperty where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MethodDefinition a = MethodDefinition + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + body :: (AST.Parse.Err (StatementBlock a)), + name :: (AST.Parse.Err ((ComputedPropertyName GHC.Generics.:+: Number GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a)), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + extraChildren :: ([AST.Parse.Err ((AccessibilityModifier GHC.Generics.:+: Readonly) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_759. + AST.Traversable1.Class.Traversable1 a_759 + ) + +instance AST.Unmarshal.SymbolMatching MethodDefinition where + matchedSymbols _ = [231] + showFailure _ node_760 = + "expected " + GHC.Base.<> ( "method_definition" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_760 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_760) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_761 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_762 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_763 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_764 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_761 + c1_762 = TreeSitter.Node.nodeStartPoint node_760 + TreeSitter.Node.TSPoint + r2_763 + c2_764 = TreeSitter.Node.nodeEndPoint node_760 + +deriving instance GHC.Classes.Eq a_765 => GHC.Classes.Eq (MethodDefinition a_765) + +deriving instance GHC.Classes.Ord a_766 => GHC.Classes.Ord (MethodDefinition a_766) + +deriving instance GHC.Show.Show a_767 => GHC.Show.Show (MethodDefinition a_767) + +instance AST.Unmarshal.Unmarshal MethodDefinition + +instance Data.Foldable.Foldable MethodDefinition where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MethodDefinition where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MethodDefinition where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MethodSignature a = MethodSignature + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + name :: (AST.Parse.Err ((ComputedPropertyName GHC.Generics.:+: Number GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a)), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + extraChildren :: ([AST.Parse.Err ((AccessibilityModifier GHC.Generics.:+: Readonly) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_768. + AST.Traversable1.Class.Traversable1 a_768 + ) + +instance AST.Unmarshal.SymbolMatching MethodSignature where + matchedSymbols _ = [236] + showFailure _ node_769 = + "expected " + GHC.Base.<> ( "method_signature" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_769 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_769) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_770 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_771 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_772 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_773 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_770 + c1_771 = TreeSitter.Node.nodeStartPoint node_769 + TreeSitter.Node.TSPoint + r2_772 + c2_773 = TreeSitter.Node.nodeEndPoint node_769 + +deriving instance GHC.Classes.Eq a_774 => GHC.Classes.Eq (MethodSignature a_774) + +deriving instance GHC.Classes.Ord a_775 => GHC.Classes.Ord (MethodSignature a_775) + +deriving instance GHC.Show.Show a_776 => GHC.Show.Show (MethodSignature a_776) + +instance AST.Unmarshal.Unmarshal MethodSignature + +instance Data.Foldable.Foldable MethodSignature where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MethodSignature where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MethodSignature where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Module a = Module + { ann :: a, + body :: (GHC.Maybe.Maybe (AST.Parse.Err (StatementBlock a))), + name :: (AST.Parse.Err ((Identifier GHC.Generics.:+: NestedIdentifier GHC.Generics.:+: String) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_777. + AST.Traversable1.Class.Traversable1 a_777 + ) + +instance AST.Unmarshal.SymbolMatching Module where + matchedSymbols _ = [244] + showFailure _ node_778 = + "expected " + GHC.Base.<> ( "module" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_778 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_778) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_779 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_780 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_781 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_782 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_779 + c1_780 = TreeSitter.Node.nodeStartPoint node_778 + TreeSitter.Node.TSPoint + r2_781 + c2_782 = TreeSitter.Node.nodeEndPoint node_778 + +deriving instance GHC.Classes.Eq a_783 => GHC.Classes.Eq (Module a_783) + +deriving instance GHC.Classes.Ord a_784 => GHC.Classes.Ord (Module a_784) + +deriving instance GHC.Show.Show a_785 => GHC.Show.Show (Module a_785) + +instance AST.Unmarshal.Unmarshal Module + +instance Data.Foldable.Foldable Module where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Module where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Module where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NamedImports a = NamedImports + { ann :: a, + extraChildren :: ([AST.Parse.Err (ImportSpecifier a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_786. + AST.Traversable1.Class.Traversable1 a_786 + ) + +instance AST.Unmarshal.SymbolMatching NamedImports where + matchedSymbols _ = [153] + showFailure _ node_787 = + "expected " + GHC.Base.<> ( "named_imports" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_787 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_787) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_788 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_789 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_790 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_791 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_788 + c1_789 = TreeSitter.Node.nodeStartPoint node_787 + TreeSitter.Node.TSPoint + r2_790 + c2_791 = TreeSitter.Node.nodeEndPoint node_787 + +deriving instance GHC.Classes.Eq a_792 => GHC.Classes.Eq (NamedImports a_792) + +deriving instance GHC.Classes.Ord a_793 => GHC.Classes.Ord (NamedImports a_793) + +deriving instance GHC.Show.Show a_794 => GHC.Show.Show (NamedImports a_794) + +instance AST.Unmarshal.Unmarshal NamedImports + +instance Data.Foldable.Foldable NamedImports where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NamedImports where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NamedImports where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NamespaceImport a = NamespaceImport + { ann :: a, + extraChildren :: (AST.Parse.Err (Identifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_795. + AST.Traversable1.Class.Traversable1 a_795 + ) + +instance AST.Unmarshal.SymbolMatching NamespaceImport where + matchedSymbols _ = [152] + showFailure _ node_796 = + "expected " + GHC.Base.<> ( "namespace_import" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_796 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_796) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_797 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_798 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_799 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_800 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_797 + c1_798 = TreeSitter.Node.nodeStartPoint node_796 + TreeSitter.Node.TSPoint + r2_799 + c2_800 = TreeSitter.Node.nodeEndPoint node_796 + +deriving instance GHC.Classes.Eq a_801 => GHC.Classes.Eq (NamespaceImport a_801) + +deriving instance GHC.Classes.Ord a_802 => GHC.Classes.Ord (NamespaceImport a_802) + +deriving instance GHC.Show.Show a_803 => GHC.Show.Show (NamespaceImport a_803) + +instance AST.Unmarshal.Unmarshal NamespaceImport + +instance Data.Foldable.Foldable NamespaceImport where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NamespaceImport where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NamespaceImport where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NestedIdentifier a = NestedIdentifier + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Identifier GHC.Generics.:+: NestedIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_804. + AST.Traversable1.Class.Traversable1 a_804 + ) + +instance AST.Unmarshal.SymbolMatching NestedIdentifier where + matchedSymbols _ = [190] + showFailure _ node_805 = + "expected " + GHC.Base.<> ( "nested_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_805 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_805) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_806 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_807 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_808 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_809 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_806 + c1_807 = TreeSitter.Node.nodeStartPoint node_805 + TreeSitter.Node.TSPoint + r2_808 + c2_809 = TreeSitter.Node.nodeEndPoint node_805 + +deriving instance GHC.Classes.Eq a_810 => GHC.Classes.Eq (NestedIdentifier a_810) + +deriving instance GHC.Classes.Ord a_811 => GHC.Classes.Ord (NestedIdentifier a_811) + +deriving instance GHC.Show.Show a_812 => GHC.Show.Show (NestedIdentifier a_812) + +instance AST.Unmarshal.Unmarshal NestedIdentifier + +instance Data.Foldable.Foldable NestedIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NestedIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NestedIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NestedTypeIdentifier a = NestedTypeIdentifier + { ann :: a, + name :: (AST.Parse.Err (TypeIdentifier a)), + module' :: (AST.Parse.Err ((Identifier GHC.Generics.:+: NestedIdentifier) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_813. + AST.Traversable1.Class.Traversable1 a_813 + ) + +instance AST.Unmarshal.SymbolMatching NestedTypeIdentifier where + matchedSymbols _ = [248] + showFailure _ node_814 = + "expected " + GHC.Base.<> ( "nested_type_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_814 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_814) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_815 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_816 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_817 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_818 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_815 + c1_816 = TreeSitter.Node.nodeStartPoint node_814 + TreeSitter.Node.TSPoint + r2_817 + c2_818 = TreeSitter.Node.nodeEndPoint node_814 + +deriving instance GHC.Classes.Eq a_819 => GHC.Classes.Eq (NestedTypeIdentifier a_819) + +deriving instance GHC.Classes.Ord a_820 => GHC.Classes.Ord (NestedTypeIdentifier a_820) + +deriving instance GHC.Show.Show a_821 => GHC.Show.Show (NestedTypeIdentifier a_821) + +instance AST.Unmarshal.Unmarshal NestedTypeIdentifier + +instance Data.Foldable.Foldable NestedTypeIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NestedTypeIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NestedTypeIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NewExpression a = NewExpression + { ann :: a, + arguments :: (GHC.Maybe.Maybe (AST.Parse.Err (Arguments a))), + constructor :: (AST.Parse.Err ((Array GHC.Generics.:+: ArrowFunction GHC.Generics.:+: Class GHC.Generics.:+: False GHC.Generics.:+: Function GHC.Generics.:+: GeneratorFunction GHC.Generics.:+: Identifier GHC.Generics.:+: Import GHC.Generics.:+: MemberExpression GHC.Generics.:+: MetaProperty GHC.Generics.:+: NewExpression GHC.Generics.:+: Null GHC.Generics.:+: Number GHC.Generics.:+: Object GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: Regex GHC.Generics.:+: String GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: TemplateString GHC.Generics.:+: This GHC.Generics.:+: True GHC.Generics.:+: Undefined) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_822. + AST.Traversable1.Class.Traversable1 a_822 + ) + +instance AST.Unmarshal.SymbolMatching NewExpression where + matchedSymbols _ = [205] + showFailure _ node_823 = + "expected " + GHC.Base.<> ( "new_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_823 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_823) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_824 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_825 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_826 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_827 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_824 + c1_825 = TreeSitter.Node.nodeStartPoint node_823 + TreeSitter.Node.TSPoint + r2_826 + c2_827 = TreeSitter.Node.nodeEndPoint node_823 + +deriving instance GHC.Classes.Eq a_828 => GHC.Classes.Eq (NewExpression a_828) + +deriving instance GHC.Classes.Ord a_829 => GHC.Classes.Ord (NewExpression a_829) + +deriving instance GHC.Show.Show a_830 => GHC.Show.Show (NewExpression a_830) + +instance AST.Unmarshal.Unmarshal NewExpression + +instance Data.Foldable.Foldable NewExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NewExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NewExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NonNullExpression a = NonNullExpression + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_831. + AST.Traversable1.Class.Traversable1 a_831 + ) + +instance AST.Unmarshal.SymbolMatching NonNullExpression where + matchedSymbols _ = [235] + showFailure _ node_832 = + "expected " + GHC.Base.<> ( "non_null_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_832 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_832) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_833 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_834 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_835 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_836 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_833 + c1_834 = TreeSitter.Node.nodeStartPoint node_832 + TreeSitter.Node.TSPoint + r2_835 + c2_836 = TreeSitter.Node.nodeEndPoint node_832 + +deriving instance GHC.Classes.Eq a_837 => GHC.Classes.Eq (NonNullExpression a_837) + +deriving instance GHC.Classes.Ord a_838 => GHC.Classes.Ord (NonNullExpression a_838) + +deriving instance GHC.Show.Show a_839 => GHC.Show.Show (NonNullExpression a_839) + +instance AST.Unmarshal.Unmarshal NonNullExpression + +instance Data.Foldable.Foldable NonNullExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NonNullExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NonNullExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Object a = Object + { ann :: a, + extraChildren :: ([AST.Parse.Err ((AssignmentPattern GHC.Generics.:+: MethodDefinition GHC.Generics.:+: Pair GHC.Generics.:+: ShorthandPropertyIdentifier GHC.Generics.:+: SpreadElement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_840. + AST.Traversable1.Class.Traversable1 a_840 + ) + +instance AST.Unmarshal.SymbolMatching Object where + matchedSymbols _ = [183] + showFailure _ node_841 = + "expected " + GHC.Base.<> ( "object" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_841 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_841) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_842 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_843 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_844 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_845 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_842 + c1_843 = TreeSitter.Node.nodeStartPoint node_841 + TreeSitter.Node.TSPoint + r2_844 + c2_845 = TreeSitter.Node.nodeEndPoint node_841 + +deriving instance GHC.Classes.Eq a_846 => GHC.Classes.Eq (Object a_846) + +deriving instance GHC.Classes.Ord a_847 => GHC.Classes.Ord (Object a_847) + +deriving instance GHC.Show.Show a_848 => GHC.Show.Show (Object a_848) + +instance AST.Unmarshal.Unmarshal Object + +instance Data.Foldable.Foldable Object where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Object where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Object where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ObjectPattern a = ObjectPattern + { ann :: a, + extraChildren :: ([AST.Parse.Err ((AssignmentPattern GHC.Generics.:+: MethodDefinition GHC.Generics.:+: Pair GHC.Generics.:+: ShorthandPropertyIdentifier GHC.Generics.:+: SpreadElement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_849. + AST.Traversable1.Class.Traversable1 a_849 + ) + +instance AST.Unmarshal.SymbolMatching ObjectPattern where + matchedSymbols _ = [313] + showFailure _ node_850 = + "expected " + GHC.Base.<> ( "object_pattern" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_850 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_850) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_851 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_852 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_853 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_854 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_851 + c1_852 = TreeSitter.Node.nodeStartPoint node_850 + TreeSitter.Node.TSPoint + r2_853 + c2_854 = TreeSitter.Node.nodeEndPoint node_850 + +deriving instance GHC.Classes.Eq a_855 => GHC.Classes.Eq (ObjectPattern a_855) + +deriving instance GHC.Classes.Ord a_856 => GHC.Classes.Ord (ObjectPattern a_856) + +deriving instance GHC.Show.Show a_857 => GHC.Show.Show (ObjectPattern a_857) + +instance AST.Unmarshal.Unmarshal ObjectPattern + +instance Data.Foldable.Foldable ObjectPattern where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ObjectPattern where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ObjectPattern where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ObjectType a = ObjectType + { ann :: a, + extraChildren :: ([AST.Parse.Err ((CallSignature GHC.Generics.:+: ConstructSignature GHC.Generics.:+: ExportStatement GHC.Generics.:+: IndexSignature GHC.Generics.:+: MethodSignature GHC.Generics.:+: PropertySignature) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_858. + AST.Traversable1.Class.Traversable1 a_858 + ) + +instance AST.Unmarshal.SymbolMatching ObjectType where + matchedSymbols _ = [276] + showFailure _ node_859 = + "expected " + GHC.Base.<> ( "object_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_859 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_859) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_860 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_861 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_862 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_863 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_860 + c1_861 = TreeSitter.Node.nodeStartPoint node_859 + TreeSitter.Node.TSPoint + r2_862 + c2_863 = TreeSitter.Node.nodeEndPoint node_859 + +deriving instance GHC.Classes.Eq a_864 => GHC.Classes.Eq (ObjectType a_864) + +deriving instance GHC.Classes.Ord a_865 => GHC.Classes.Ord (ObjectType a_865) + +deriving instance GHC.Show.Show a_866 => GHC.Show.Show (ObjectType a_866) + +instance AST.Unmarshal.Unmarshal ObjectType + +instance Data.Foldable.Foldable ObjectType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ObjectType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ObjectType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data OptionalParameter a = OptionalParameter + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((DestructuringPattern GHC.Generics.:+: AccessibilityModifier GHC.Generics.:+: Identifier GHC.Generics.:+: Readonly GHC.Generics.:+: This GHC.Generics.:+: TypeAnnotation) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_867. + AST.Traversable1.Class.Traversable1 a_867 + ) + +instance AST.Unmarshal.SymbolMatching OptionalParameter where + matchedSymbols _ = [257] + showFailure _ node_868 = + "expected " + GHC.Base.<> ( "optional_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_868 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_868) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_869 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_870 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_871 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_872 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_869 + c1_870 = TreeSitter.Node.nodeStartPoint node_868 + TreeSitter.Node.TSPoint + r2_871 + c2_872 = TreeSitter.Node.nodeEndPoint node_868 + +deriving instance GHC.Classes.Eq a_873 => GHC.Classes.Eq (OptionalParameter a_873) + +deriving instance GHC.Classes.Ord a_874 => GHC.Classes.Ord (OptionalParameter a_874) + +deriving instance GHC.Show.Show a_875 => GHC.Show.Show (OptionalParameter a_875) + +instance AST.Unmarshal.Unmarshal OptionalParameter + +instance Data.Foldable.Foldable OptionalParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor OptionalParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable OptionalParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Pair a = Pair + { ann :: a, + value :: (AST.Parse.Err (Expression a)), + key :: (AST.Parse.Err ((ComputedPropertyName GHC.Generics.:+: Number GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_876. + AST.Traversable1.Class.Traversable1 a_876 + ) + +instance AST.Unmarshal.SymbolMatching Pair where + matchedSymbols _ = [232] + showFailure _ node_877 = + "expected " + GHC.Base.<> ( "pair" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_877 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_877) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_878 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_879 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_880 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_881 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_878 + c1_879 = TreeSitter.Node.nodeStartPoint node_877 + TreeSitter.Node.TSPoint + r2_880 + c2_881 = TreeSitter.Node.nodeEndPoint node_877 + +deriving instance GHC.Classes.Eq a_882 => GHC.Classes.Eq (Pair a_882) + +deriving instance GHC.Classes.Ord a_883 => GHC.Classes.Ord (Pair a_883) + +deriving instance GHC.Show.Show a_884 => GHC.Show.Show (Pair a_884) + +instance AST.Unmarshal.Unmarshal Pair + +instance Data.Foldable.Foldable Pair where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Pair where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Pair where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ParenthesizedExpression a = ParenthesizedExpression + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression GHC.Generics.:+: TypeAnnotation) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_885. + AST.Traversable1.Class.Traversable1 a_885 + ) + +instance AST.Unmarshal.SymbolMatching ParenthesizedExpression where + matchedSymbols _ = [180] + showFailure _ node_886 = + "expected " + GHC.Base.<> ( "parenthesized_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_886 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_886) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_887 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_888 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_889 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_890 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_887 + c1_888 = TreeSitter.Node.nodeStartPoint node_886 + TreeSitter.Node.TSPoint + r2_889 + c2_890 = TreeSitter.Node.nodeEndPoint node_886 + +deriving instance GHC.Classes.Eq a_891 => GHC.Classes.Eq (ParenthesizedExpression a_891) + +deriving instance GHC.Classes.Ord a_892 => GHC.Classes.Ord (ParenthesizedExpression a_892) + +deriving instance GHC.Show.Show a_893 => GHC.Show.Show (ParenthesizedExpression a_893) + +instance AST.Unmarshal.Unmarshal ParenthesizedExpression + +instance Data.Foldable.Foldable ParenthesizedExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ParenthesizedExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ParenthesizedExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ParenthesizedType a = ParenthesizedType + { ann :: a, + extraChildren :: (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_894. + AST.Traversable1.Class.Traversable1 a_894 + ) + +instance AST.Unmarshal.SymbolMatching ParenthesizedType where + matchedSymbols _ = [273] + showFailure _ node_895 = + "expected " + GHC.Base.<> ( "parenthesized_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_895 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_895) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_896 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_897 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_898 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_899 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_896 + c1_897 = TreeSitter.Node.nodeStartPoint node_895 + TreeSitter.Node.TSPoint + r2_898 + c2_899 = TreeSitter.Node.nodeEndPoint node_895 + +deriving instance GHC.Classes.Eq a_900 => GHC.Classes.Eq (ParenthesizedType a_900) + +deriving instance GHC.Classes.Ord a_901 => GHC.Classes.Ord (ParenthesizedType a_901) + +deriving instance GHC.Show.Show a_902 => GHC.Show.Show (ParenthesizedType a_902) + +instance AST.Unmarshal.Unmarshal ParenthesizedType + +instance Data.Foldable.Foldable ParenthesizedType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ParenthesizedType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ParenthesizedType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PredefinedType a = PredefinedType {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_903. + AST.Traversable1.Class.Traversable1 a_903 + ) + +instance AST.Unmarshal.SymbolMatching PredefinedType where + matchedSymbols _ = [274] + showFailure _ node_904 = + "expected " + GHC.Base.<> ( "predefined_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_904 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_904) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_905 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_906 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_907 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_908 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_905 + c1_906 = TreeSitter.Node.nodeStartPoint node_904 + TreeSitter.Node.TSPoint + r2_907 + c2_908 = TreeSitter.Node.nodeEndPoint node_904 + +deriving instance GHC.Classes.Eq a_909 => GHC.Classes.Eq (PredefinedType a_909) + +deriving instance GHC.Classes.Ord a_910 => GHC.Classes.Ord (PredefinedType a_910) + +deriving instance GHC.Show.Show a_911 => GHC.Show.Show (PredefinedType a_911) + +instance AST.Unmarshal.Unmarshal PredefinedType + +instance Data.Foldable.Foldable PredefinedType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PredefinedType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PredefinedType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Program a = Program + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: HashBangLine) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_912. + AST.Traversable1.Class.Traversable1 a_912 + ) + +instance AST.Unmarshal.SymbolMatching Program where + matchedSymbols _ = [143] + showFailure _ node_913 = + "expected " + GHC.Base.<> ( "program" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_913 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_913) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_914 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_915 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_916 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_917 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_914 + c1_915 = TreeSitter.Node.nodeStartPoint node_913 + TreeSitter.Node.TSPoint + r2_916 + c2_917 = TreeSitter.Node.nodeEndPoint node_913 + +deriving instance GHC.Classes.Eq a_918 => GHC.Classes.Eq (Program a_918) + +deriving instance GHC.Classes.Ord a_919 => GHC.Classes.Ord (Program a_919) + +deriving instance GHC.Show.Show a_920 => GHC.Show.Show (Program a_920) + +instance AST.Unmarshal.Unmarshal Program + +instance Data.Foldable.Foldable Program where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Program where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Program where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PropertySignature a = PropertySignature + { ann :: a, + name :: (AST.Parse.Err ((ComputedPropertyName GHC.Generics.:+: Number GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a)), + type' :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + extraChildren :: ([AST.Parse.Err ((AccessibilityModifier GHC.Generics.:+: Readonly) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_921. + AST.Traversable1.Class.Traversable1 a_921 + ) + +instance AST.Unmarshal.SymbolMatching PropertySignature where + matchedSymbols _ = [278] + showFailure _ node_922 = + "expected " + GHC.Base.<> ( "property_signature" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_922 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_922) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_923 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_924 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_925 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_926 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_923 + c1_924 = TreeSitter.Node.nodeStartPoint node_922 + TreeSitter.Node.TSPoint + r2_925 + c2_926 = TreeSitter.Node.nodeEndPoint node_922 + +deriving instance GHC.Classes.Eq a_927 => GHC.Classes.Eq (PropertySignature a_927) + +deriving instance GHC.Classes.Ord a_928 => GHC.Classes.Ord (PropertySignature a_928) + +deriving instance GHC.Show.Show a_929 => GHC.Show.Show (PropertySignature a_929) + +instance AST.Unmarshal.Unmarshal PropertySignature + +instance Data.Foldable.Foldable PropertySignature where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PropertySignature where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PropertySignature where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PublicFieldDefinition a = PublicFieldDefinition + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + name :: (AST.Parse.Err ((ComputedPropertyName GHC.Generics.:+: Number GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a)), + type' :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + extraChildren :: ([AST.Parse.Err ((AccessibilityModifier GHC.Generics.:+: Readonly) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_930. + AST.Traversable1.Class.Traversable1 a_930 + ) + +instance AST.Unmarshal.SymbolMatching PublicFieldDefinition where + matchedSymbols _ = [228] + showFailure _ node_931 = + "expected " + GHC.Base.<> ( "public_field_definition" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_931 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_931) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_932 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_933 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_934 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_935 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_932 + c1_933 = TreeSitter.Node.nodeStartPoint node_931 + TreeSitter.Node.TSPoint + r2_934 + c2_935 = TreeSitter.Node.nodeEndPoint node_931 + +deriving instance GHC.Classes.Eq a_936 => GHC.Classes.Eq (PublicFieldDefinition a_936) + +deriving instance GHC.Classes.Ord a_937 => GHC.Classes.Ord (PublicFieldDefinition a_937) + +deriving instance GHC.Show.Show a_938 => GHC.Show.Show (PublicFieldDefinition a_938) + +instance AST.Unmarshal.Unmarshal PublicFieldDefinition + +instance Data.Foldable.Foldable PublicFieldDefinition where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PublicFieldDefinition where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PublicFieldDefinition where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Regex a = Regex + { ann :: a, + flags :: (GHC.Maybe.Maybe (AST.Parse.Err (RegexFlags a))), + pattern :: (AST.Parse.Err (RegexPattern a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_939. + AST.Traversable1.Class.Traversable1 a_939 + ) + +instance AST.Unmarshal.SymbolMatching Regex where + matchedSymbols _ = [221] + showFailure _ node_940 = + "expected " + GHC.Base.<> ( "regex" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_940 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_940) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_941 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_942 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_943 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_944 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_941 + c1_942 = TreeSitter.Node.nodeStartPoint node_940 + TreeSitter.Node.TSPoint + r2_943 + c2_944 = TreeSitter.Node.nodeEndPoint node_940 + +deriving instance GHC.Classes.Eq a_945 => GHC.Classes.Eq (Regex a_945) + +deriving instance GHC.Classes.Ord a_946 => GHC.Classes.Ord (Regex a_946) + +deriving instance GHC.Show.Show a_947 => GHC.Show.Show (Regex a_947) + +instance AST.Unmarshal.Unmarshal Regex + +instance Data.Foldable.Foldable Regex where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Regex where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Regex where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RequiredParameter a = RequiredParameter + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((DestructuringPattern GHC.Generics.:+: AccessibilityModifier GHC.Generics.:+: Identifier GHC.Generics.:+: Readonly GHC.Generics.:+: This GHC.Generics.:+: TypeAnnotation) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_948. + AST.Traversable1.Class.Traversable1 a_948 + ) + +instance AST.Unmarshal.SymbolMatching RequiredParameter where + matchedSymbols _ = [256] + showFailure _ node_949 = + "expected " + GHC.Base.<> ( "required_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_949 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_949) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_950 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_951 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_952 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_953 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_950 + c1_951 = TreeSitter.Node.nodeStartPoint node_949 + TreeSitter.Node.TSPoint + r2_952 + c2_953 = TreeSitter.Node.nodeEndPoint node_949 + +deriving instance GHC.Classes.Eq a_954 => GHC.Classes.Eq (RequiredParameter a_954) + +deriving instance GHC.Classes.Ord a_955 => GHC.Classes.Ord (RequiredParameter a_955) + +deriving instance GHC.Show.Show a_956 => GHC.Show.Show (RequiredParameter a_956) + +instance AST.Unmarshal.Unmarshal RequiredParameter + +instance Data.Foldable.Foldable RequiredParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RequiredParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RequiredParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RestParameter a = RestParameter + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Identifier GHC.Generics.:+: TypeAnnotation) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_957. + AST.Traversable1.Class.Traversable1 a_957 + ) + +instance AST.Unmarshal.SymbolMatching RestParameter where + matchedSymbols _ = [230] + showFailure _ node_958 = + "expected " + GHC.Base.<> ( "rest_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_958 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_958) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_959 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_960 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_961 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_962 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_959 + c1_960 = TreeSitter.Node.nodeStartPoint node_958 + TreeSitter.Node.TSPoint + r2_961 + c2_962 = TreeSitter.Node.nodeEndPoint node_958 + +deriving instance GHC.Classes.Eq a_963 => GHC.Classes.Eq (RestParameter a_963) + +deriving instance GHC.Classes.Ord a_964 => GHC.Classes.Ord (RestParameter a_964) + +deriving instance GHC.Show.Show a_965 => GHC.Show.Show (RestParameter a_965) + +instance AST.Unmarshal.Unmarshal RestParameter + +instance Data.Foldable.Foldable RestParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RestParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RestParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ReturnStatement a = ReturnStatement + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_966. + AST.Traversable1.Class.Traversable1 a_966 + ) + +instance AST.Unmarshal.SymbolMatching ReturnStatement where + matchedSymbols _ = [171] + showFailure _ node_967 = + "expected " + GHC.Base.<> ( "return_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_967 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_967) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_968 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_969 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_970 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_971 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_968 + c1_969 = TreeSitter.Node.nodeStartPoint node_967 + TreeSitter.Node.TSPoint + r2_970 + c2_971 = TreeSitter.Node.nodeEndPoint node_967 + +deriving instance GHC.Classes.Eq a_972 => GHC.Classes.Eq (ReturnStatement a_972) + +deriving instance GHC.Classes.Ord a_973 => GHC.Classes.Ord (ReturnStatement a_973) + +deriving instance GHC.Show.Show a_974 => GHC.Show.Show (ReturnStatement a_974) + +instance AST.Unmarshal.Unmarshal ReturnStatement + +instance Data.Foldable.Foldable ReturnStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ReturnStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ReturnStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SequenceExpression a = SequenceExpression + { ann :: a, + left :: (AST.Parse.Err (Expression a)), + right :: (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_975. + AST.Traversable1.Class.Traversable1 a_975 + ) + +instance AST.Unmarshal.SymbolMatching SequenceExpression where + matchedSymbols _ = [217] + showFailure _ node_976 = + "expected " + GHC.Base.<> ( "sequence_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_976 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_976) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_977 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_978 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_979 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_980 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_977 + c1_978 = TreeSitter.Node.nodeStartPoint node_976 + TreeSitter.Node.TSPoint + r2_979 + c2_980 = TreeSitter.Node.nodeEndPoint node_976 + +deriving instance GHC.Classes.Eq a_981 => GHC.Classes.Eq (SequenceExpression a_981) + +deriving instance GHC.Classes.Ord a_982 => GHC.Classes.Ord (SequenceExpression a_982) + +deriving instance GHC.Show.Show a_983 => GHC.Show.Show (SequenceExpression a_983) + +instance AST.Unmarshal.Unmarshal SequenceExpression + +instance Data.Foldable.Foldable SequenceExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SequenceExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SequenceExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SpreadElement a = SpreadElement + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_984. + AST.Traversable1.Class.Traversable1 a_984 + ) + +instance AST.Unmarshal.SymbolMatching SpreadElement where + matchedSymbols _ = [212] + showFailure _ node_985 = + "expected " + GHC.Base.<> ( "spread_element" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_985 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_985) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_986 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_987 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_988 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_989 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_986 + c1_987 = TreeSitter.Node.nodeStartPoint node_985 + TreeSitter.Node.TSPoint + r2_988 + c2_989 = TreeSitter.Node.nodeEndPoint node_985 + +deriving instance GHC.Classes.Eq a_990 => GHC.Classes.Eq (SpreadElement a_990) + +deriving instance GHC.Classes.Ord a_991 => GHC.Classes.Ord (SpreadElement a_991) + +deriving instance GHC.Show.Show a_992 => GHC.Show.Show (SpreadElement a_992) + +instance AST.Unmarshal.Unmarshal SpreadElement + +instance Data.Foldable.Foldable SpreadElement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SpreadElement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SpreadElement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data StatementBlock a = StatementBlock + { ann :: a, + extraChildren :: ([AST.Parse.Err (Statement a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_993. + AST.Traversable1.Class.Traversable1 a_993 + ) + +instance AST.Unmarshal.SymbolMatching StatementBlock where + matchedSymbols _ = [158] + showFailure _ node_994 = + "expected " + GHC.Base.<> ( "statement_block" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_994 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_994) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_995 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_996 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_997 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_998 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_995 + c1_996 = TreeSitter.Node.nodeStartPoint node_994 + TreeSitter.Node.TSPoint + r2_997 + c2_998 = TreeSitter.Node.nodeEndPoint node_994 + +deriving instance GHC.Classes.Eq a_999 => GHC.Classes.Eq (StatementBlock a_999) + +deriving instance GHC.Classes.Ord a_1000 => GHC.Classes.Ord (StatementBlock a_1000) + +deriving instance GHC.Show.Show a_1001 => GHC.Show.Show (StatementBlock a_1001) + +instance AST.Unmarshal.Unmarshal StatementBlock + +instance Data.Foldable.Foldable StatementBlock where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor StatementBlock where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable StatementBlock where + traverse = AST.Traversable1.Class.traverseDefault1 + +data String a = String + { ann :: a, + extraChildren :: ([AST.Parse.Err (EscapeSequence a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1002. + AST.Traversable1.Class.Traversable1 a_1002 + ) + +instance AST.Unmarshal.SymbolMatching String where + matchedSymbols _ = [218] + showFailure _ node_1003 = + "expected " + GHC.Base.<> ( "string" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1003 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1003) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1004 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1005 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1006 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1007 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1004 + c1_1005 = TreeSitter.Node.nodeStartPoint node_1003 + TreeSitter.Node.TSPoint + r2_1006 + c2_1007 = TreeSitter.Node.nodeEndPoint node_1003 + +deriving instance GHC.Classes.Eq a_1008 => GHC.Classes.Eq (String a_1008) + +deriving instance GHC.Classes.Ord a_1009 => GHC.Classes.Ord (String a_1009) + +deriving instance GHC.Show.Show a_1010 => GHC.Show.Show (String a_1010) + +instance AST.Unmarshal.Unmarshal String + +instance Data.Foldable.Foldable String where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor String where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable String where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SubscriptExpression a = SubscriptExpression + { ann :: a, + object :: (AST.Parse.Err (Expression a)), + index :: (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1011. + AST.Traversable1.Class.Traversable1 a_1011 + ) + +instance AST.Unmarshal.SymbolMatching SubscriptExpression where + matchedSymbols _ = [208] + showFailure _ node_1012 = + "expected " + GHC.Base.<> ( "subscript_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1012 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1012) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1013 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1014 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1015 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1016 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1013 + c1_1014 = TreeSitter.Node.nodeStartPoint node_1012 + TreeSitter.Node.TSPoint + r2_1015 + c2_1016 = TreeSitter.Node.nodeEndPoint node_1012 + +deriving instance GHC.Classes.Eq a_1017 => GHC.Classes.Eq (SubscriptExpression a_1017) + +deriving instance GHC.Classes.Ord a_1018 => GHC.Classes.Ord (SubscriptExpression a_1018) + +deriving instance GHC.Show.Show a_1019 => GHC.Show.Show (SubscriptExpression a_1019) + +instance AST.Unmarshal.Unmarshal SubscriptExpression + +instance Data.Foldable.Foldable SubscriptExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SubscriptExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SubscriptExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SwitchBody a = SwitchBody + { ann :: a, + extraChildren :: ([AST.Parse.Err ((SwitchCase GHC.Generics.:+: SwitchDefault) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1020. + AST.Traversable1.Class.Traversable1 a_1020 + ) + +instance AST.Unmarshal.SymbolMatching SwitchBody where + matchedSymbols _ = [175] + showFailure _ node_1021 = + "expected " + GHC.Base.<> ( "switch_body" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1021 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1021) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1022 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1023 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1024 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1025 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1022 + c1_1023 = TreeSitter.Node.nodeStartPoint node_1021 + TreeSitter.Node.TSPoint + r2_1024 + c2_1025 = TreeSitter.Node.nodeEndPoint node_1021 + +deriving instance GHC.Classes.Eq a_1026 => GHC.Classes.Eq (SwitchBody a_1026) + +deriving instance GHC.Classes.Ord a_1027 => GHC.Classes.Ord (SwitchBody a_1027) + +deriving instance GHC.Show.Show a_1028 => GHC.Show.Show (SwitchBody a_1028) + +instance AST.Unmarshal.Unmarshal SwitchBody + +instance Data.Foldable.Foldable SwitchBody where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SwitchBody where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SwitchBody where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SwitchCase a = SwitchCase + { ann :: a, + value :: (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a)), + extraChildren :: ([AST.Parse.Err (Statement a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1029. + AST.Traversable1.Class.Traversable1 a_1029 + ) + +instance AST.Unmarshal.SymbolMatching SwitchCase where + matchedSymbols _ = [176] + showFailure _ node_1030 = + "expected " + GHC.Base.<> ( "switch_case" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1030 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1030) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1031 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1032 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1033 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1034 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1031 + c1_1032 = TreeSitter.Node.nodeStartPoint node_1030 + TreeSitter.Node.TSPoint + r2_1033 + c2_1034 = TreeSitter.Node.nodeEndPoint node_1030 + +deriving instance GHC.Classes.Eq a_1035 => GHC.Classes.Eq (SwitchCase a_1035) + +deriving instance GHC.Classes.Ord a_1036 => GHC.Classes.Ord (SwitchCase a_1036) + +deriving instance GHC.Show.Show a_1037 => GHC.Show.Show (SwitchCase a_1037) + +instance AST.Unmarshal.Unmarshal SwitchCase + +instance Data.Foldable.Foldable SwitchCase where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SwitchCase where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SwitchCase where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SwitchDefault a = SwitchDefault + { ann :: a, + extraChildren :: ([AST.Parse.Err (Statement a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1038. + AST.Traversable1.Class.Traversable1 a_1038 + ) + +instance AST.Unmarshal.SymbolMatching SwitchDefault where + matchedSymbols _ = [177] + showFailure _ node_1039 = + "expected " + GHC.Base.<> ( "switch_default" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1039 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1039) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1040 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1041 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1042 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1043 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1040 + c1_1041 = TreeSitter.Node.nodeStartPoint node_1039 + TreeSitter.Node.TSPoint + r2_1042 + c2_1043 = TreeSitter.Node.nodeEndPoint node_1039 + +deriving instance GHC.Classes.Eq a_1044 => GHC.Classes.Eq (SwitchDefault a_1044) + +deriving instance GHC.Classes.Ord a_1045 => GHC.Classes.Ord (SwitchDefault a_1045) + +deriving instance GHC.Show.Show a_1046 => GHC.Show.Show (SwitchDefault a_1046) + +instance AST.Unmarshal.Unmarshal SwitchDefault + +instance Data.Foldable.Foldable SwitchDefault where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SwitchDefault where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SwitchDefault where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SwitchStatement a = SwitchStatement + { ann :: a, + body :: (AST.Parse.Err (SwitchBody a)), + value :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1047. + AST.Traversable1.Class.Traversable1 a_1047 + ) + +instance AST.Unmarshal.SymbolMatching SwitchStatement where + matchedSymbols _ = [160] + showFailure _ node_1048 = + "expected " + GHC.Base.<> ( "switch_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1048 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1048) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1049 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1050 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1051 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1052 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1049 + c1_1050 = TreeSitter.Node.nodeStartPoint node_1048 + TreeSitter.Node.TSPoint + r2_1051 + c2_1052 = TreeSitter.Node.nodeEndPoint node_1048 + +deriving instance GHC.Classes.Eq a_1053 => GHC.Classes.Eq (SwitchStatement a_1053) + +deriving instance GHC.Classes.Ord a_1054 => GHC.Classes.Ord (SwitchStatement a_1054) + +deriving instance GHC.Show.Show a_1055 => GHC.Show.Show (SwitchStatement a_1055) + +instance AST.Unmarshal.Unmarshal SwitchStatement + +instance Data.Foldable.Foldable SwitchStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SwitchStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SwitchStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TemplateString a = TemplateString + { ann :: a, + extraChildren :: ([AST.Parse.Err ((EscapeSequence GHC.Generics.:+: TemplateSubstitution) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1056. + AST.Traversable1.Class.Traversable1 a_1056 + ) + +instance AST.Unmarshal.SymbolMatching TemplateString where + matchedSymbols _ = [219] + showFailure _ node_1057 = + "expected " + GHC.Base.<> ( "template_string" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1057 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1057) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1058 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1059 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1060 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1061 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1058 + c1_1059 = TreeSitter.Node.nodeStartPoint node_1057 + TreeSitter.Node.TSPoint + r2_1060 + c2_1061 = TreeSitter.Node.nodeEndPoint node_1057 + +deriving instance GHC.Classes.Eq a_1062 => GHC.Classes.Eq (TemplateString a_1062) + +deriving instance GHC.Classes.Ord a_1063 => GHC.Classes.Ord (TemplateString a_1063) + +deriving instance GHC.Show.Show a_1064 => GHC.Show.Show (TemplateString a_1064) + +instance AST.Unmarshal.Unmarshal TemplateString + +instance Data.Foldable.Foldable TemplateString where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TemplateString where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TemplateString where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TemplateSubstitution a = TemplateSubstitution + { ann :: a, + extraChildren :: (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1065. + AST.Traversable1.Class.Traversable1 a_1065 + ) + +instance AST.Unmarshal.SymbolMatching TemplateSubstitution where + matchedSymbols _ = [220] + showFailure _ node_1066 = + "expected " + GHC.Base.<> ( "template_substitution" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1066 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1066) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1067 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1068 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1069 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1070 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1067 + c1_1068 = TreeSitter.Node.nodeStartPoint node_1066 + TreeSitter.Node.TSPoint + r2_1069 + c2_1070 = TreeSitter.Node.nodeEndPoint node_1066 + +deriving instance GHC.Classes.Eq a_1071 => GHC.Classes.Eq (TemplateSubstitution a_1071) + +deriving instance GHC.Classes.Ord a_1072 => GHC.Classes.Ord (TemplateSubstitution a_1072) + +deriving instance GHC.Show.Show a_1073 => GHC.Show.Show (TemplateSubstitution a_1073) + +instance AST.Unmarshal.Unmarshal TemplateSubstitution + +instance Data.Foldable.Foldable TemplateSubstitution where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TemplateSubstitution where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TemplateSubstitution where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TernaryExpression a = TernaryExpression + { ann :: a, + alternative :: (AST.Parse.Err (Expression a)), + consequence :: (AST.Parse.Err (Expression a)), + condition :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1074. + AST.Traversable1.Class.Traversable1 a_1074 + ) + +instance AST.Unmarshal.SymbolMatching TernaryExpression where + matchedSymbols _ = [213] + showFailure _ node_1075 = + "expected " + GHC.Base.<> ( "ternary_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1075 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1075) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1076 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1077 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1078 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1079 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1076 + c1_1077 = TreeSitter.Node.nodeStartPoint node_1075 + TreeSitter.Node.TSPoint + r2_1078 + c2_1079 = TreeSitter.Node.nodeEndPoint node_1075 + +deriving instance GHC.Classes.Eq a_1080 => GHC.Classes.Eq (TernaryExpression a_1080) + +deriving instance GHC.Classes.Ord a_1081 => GHC.Classes.Ord (TernaryExpression a_1081) + +deriving instance GHC.Show.Show a_1082 => GHC.Show.Show (TernaryExpression a_1082) + +instance AST.Unmarshal.Unmarshal TernaryExpression + +instance Data.Foldable.Foldable TernaryExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TernaryExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TernaryExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ThrowStatement a = ThrowStatement + { ann :: a, + extraChildren :: (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1083. + AST.Traversable1.Class.Traversable1 a_1083 + ) + +instance AST.Unmarshal.SymbolMatching ThrowStatement where + matchedSymbols _ = [172] + showFailure _ node_1084 = + "expected " + GHC.Base.<> ( "throw_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1084 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1084) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1085 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1086 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1087 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1088 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1085 + c1_1086 = TreeSitter.Node.nodeStartPoint node_1084 + TreeSitter.Node.TSPoint + r2_1087 + c2_1088 = TreeSitter.Node.nodeEndPoint node_1084 + +deriving instance GHC.Classes.Eq a_1089 => GHC.Classes.Eq (ThrowStatement a_1089) + +deriving instance GHC.Classes.Ord a_1090 => GHC.Classes.Ord (ThrowStatement a_1090) + +deriving instance GHC.Show.Show a_1091 => GHC.Show.Show (ThrowStatement a_1091) + +instance AST.Unmarshal.Unmarshal ThrowStatement + +instance Data.Foldable.Foldable ThrowStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ThrowStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ThrowStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TryStatement a = TryStatement + { ann :: a, + body :: (AST.Parse.Err (StatementBlock a)), + handler :: (GHC.Maybe.Maybe (AST.Parse.Err (CatchClause a))), + finalizer :: (GHC.Maybe.Maybe (AST.Parse.Err (FinallyClause a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1092. + AST.Traversable1.Class.Traversable1 a_1092 + ) + +instance AST.Unmarshal.SymbolMatching TryStatement where + matchedSymbols _ = [166] + showFailure _ node_1093 = + "expected " + GHC.Base.<> ( "try_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1093 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1093) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1094 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1095 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1096 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1097 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1094 + c1_1095 = TreeSitter.Node.nodeStartPoint node_1093 + TreeSitter.Node.TSPoint + r2_1096 + c2_1097 = TreeSitter.Node.nodeEndPoint node_1093 + +deriving instance GHC.Classes.Eq a_1098 => GHC.Classes.Eq (TryStatement a_1098) + +deriving instance GHC.Classes.Ord a_1099 => GHC.Classes.Ord (TryStatement a_1099) + +deriving instance GHC.Show.Show a_1100 => GHC.Show.Show (TryStatement a_1100) + +instance AST.Unmarshal.Unmarshal TryStatement + +instance Data.Foldable.Foldable TryStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TryStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TryStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TupleType a = TupleType + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1101. + AST.Traversable1.Class.Traversable1 a_1101 + ) + +instance AST.Unmarshal.SymbolMatching TupleType where + matchedSymbols _ = [286] + showFailure _ node_1102 = + "expected " + GHC.Base.<> ( "tuple_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1102 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1102) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1103 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1104 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1105 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1106 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1103 + c1_1104 = TreeSitter.Node.nodeStartPoint node_1102 + TreeSitter.Node.TSPoint + r2_1105 + c2_1106 = TreeSitter.Node.nodeEndPoint node_1102 + +deriving instance GHC.Classes.Eq a_1107 => GHC.Classes.Eq (TupleType a_1107) + +deriving instance GHC.Classes.Ord a_1108 => GHC.Classes.Ord (TupleType a_1108) + +deriving instance GHC.Show.Show a_1109 => GHC.Show.Show (TupleType a_1109) + +instance AST.Unmarshal.Unmarshal TupleType + +instance Data.Foldable.Foldable TupleType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TupleType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TupleType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeAliasDeclaration a = TypeAliasDeclaration + { ann :: a, + value :: (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a)), + name :: (AST.Parse.Err (TypeIdentifier a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1110. + AST.Traversable1.Class.Traversable1 a_1110 + ) + +instance AST.Unmarshal.SymbolMatching TypeAliasDeclaration where + matchedSymbols _ = [254] + showFailure _ node_1111 = + "expected " + GHC.Base.<> ( "type_alias_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1111 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1111) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1112 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1113 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1114 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1115 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1112 + c1_1113 = TreeSitter.Node.nodeStartPoint node_1111 + TreeSitter.Node.TSPoint + r2_1114 + c2_1115 = TreeSitter.Node.nodeEndPoint node_1111 + +deriving instance GHC.Classes.Eq a_1116 => GHC.Classes.Eq (TypeAliasDeclaration a_1116) + +deriving instance GHC.Classes.Ord a_1117 => GHC.Classes.Ord (TypeAliasDeclaration a_1117) + +deriving instance GHC.Show.Show a_1118 => GHC.Show.Show (TypeAliasDeclaration a_1118) + +instance AST.Unmarshal.Unmarshal TypeAliasDeclaration + +instance Data.Foldable.Foldable TypeAliasDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeAliasDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeAliasDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeAnnotation a = TypeAnnotation + { ann :: a, + extraChildren :: (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1119. + AST.Traversable1.Class.Traversable1 a_1119 + ) + +instance AST.Unmarshal.SymbolMatching TypeAnnotation where + matchedSymbols _ = [259] + showFailure _ node_1120 = + "expected " + GHC.Base.<> ( "type_annotation" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1120 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1120) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1121 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1122 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1123 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1124 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1121 + c1_1122 = TreeSitter.Node.nodeStartPoint node_1120 + TreeSitter.Node.TSPoint + r2_1123 + c2_1124 = TreeSitter.Node.nodeEndPoint node_1120 + +deriving instance GHC.Classes.Eq a_1125 => GHC.Classes.Eq (TypeAnnotation a_1125) + +deriving instance GHC.Classes.Ord a_1126 => GHC.Classes.Ord (TypeAnnotation a_1126) + +deriving instance GHC.Show.Show a_1127 => GHC.Show.Show (TypeAnnotation a_1127) + +instance AST.Unmarshal.Unmarshal TypeAnnotation + +instance Data.Foldable.Foldable TypeAnnotation where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeAnnotation where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeAnnotation where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeArguments a = TypeArguments + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1128. + AST.Traversable1.Class.Traversable1 a_1128 + ) + +instance AST.Unmarshal.SymbolMatching TypeArguments where + matchedSymbols _ = [275] + showFailure _ node_1129 = + "expected " + GHC.Base.<> ( "type_arguments" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1129 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1129) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1130 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1131 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1132 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1133 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1130 + c1_1131 = TreeSitter.Node.nodeStartPoint node_1129 + TreeSitter.Node.TSPoint + r2_1132 + c2_1133 = TreeSitter.Node.nodeEndPoint node_1129 + +deriving instance GHC.Classes.Eq a_1134 => GHC.Classes.Eq (TypeArguments a_1134) + +deriving instance GHC.Classes.Ord a_1135 => GHC.Classes.Ord (TypeArguments a_1135) + +deriving instance GHC.Show.Show a_1136 => GHC.Show.Show (TypeArguments a_1136) + +instance AST.Unmarshal.Unmarshal TypeArguments + +instance Data.Foldable.Foldable TypeArguments where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeArguments where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeArguments where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeParameter a = TypeParameter + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Constraint GHC.Generics.:+: DefaultType GHC.Generics.:+: TypeIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1137. + AST.Traversable1.Class.Traversable1 a_1137 + ) + +instance AST.Unmarshal.SymbolMatching TypeParameter where + matchedSymbols _ = [280] + showFailure _ node_1138 = + "expected " + GHC.Base.<> ( "type_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1138 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1138) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1139 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1140 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1141 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1142 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1139 + c1_1140 = TreeSitter.Node.nodeStartPoint node_1138 + TreeSitter.Node.TSPoint + r2_1141 + c2_1142 = TreeSitter.Node.nodeEndPoint node_1138 + +deriving instance GHC.Classes.Eq a_1143 => GHC.Classes.Eq (TypeParameter a_1143) + +deriving instance GHC.Classes.Ord a_1144 => GHC.Classes.Ord (TypeParameter a_1144) + +deriving instance GHC.Show.Show a_1145 => GHC.Show.Show (TypeParameter a_1145) + +instance AST.Unmarshal.Unmarshal TypeParameter + +instance Data.Foldable.Foldable TypeParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeParameters a = TypeParameters + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (TypeParameter a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1146. + AST.Traversable1.Class.Traversable1 a_1146 + ) + +instance AST.Unmarshal.SymbolMatching TypeParameters where + matchedSymbols _ = [279] + showFailure _ node_1147 = + "expected " + GHC.Base.<> ( "type_parameters" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1147 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1147) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1148 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1149 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1150 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1151 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1148 + c1_1149 = TreeSitter.Node.nodeStartPoint node_1147 + TreeSitter.Node.TSPoint + r2_1150 + c2_1151 = TreeSitter.Node.nodeEndPoint node_1147 + +deriving instance GHC.Classes.Eq a_1152 => GHC.Classes.Eq (TypeParameters a_1152) + +deriving instance GHC.Classes.Ord a_1153 => GHC.Classes.Ord (TypeParameters a_1153) + +deriving instance GHC.Show.Show a_1154 => GHC.Show.Show (TypeParameters a_1154) + +instance AST.Unmarshal.Unmarshal TypeParameters + +instance Data.Foldable.Foldable TypeParameters where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeParameters where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeParameters where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypePredicate a = TypePredicate + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: Identifier GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1155. + AST.Traversable1.Class.Traversable1 a_1155 + ) + +instance AST.Unmarshal.SymbolMatching TypePredicate where + matchedSymbols _ = [264] + showFailure _ node_1156 = + "expected " + GHC.Base.<> ( "type_predicate" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1156 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1156) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1157 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1158 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1159 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1160 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1157 + c1_1158 = TreeSitter.Node.nodeStartPoint node_1156 + TreeSitter.Node.TSPoint + r2_1159 + c2_1160 = TreeSitter.Node.nodeEndPoint node_1156 + +deriving instance GHC.Classes.Eq a_1161 => GHC.Classes.Eq (TypePredicate a_1161) + +deriving instance GHC.Classes.Ord a_1162 => GHC.Classes.Ord (TypePredicate a_1162) + +deriving instance GHC.Show.Show a_1163 => GHC.Show.Show (TypePredicate a_1163) + +instance AST.Unmarshal.Unmarshal TypePredicate + +instance Data.Foldable.Foldable TypePredicate where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypePredicate where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypePredicate where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeQuery a = TypeQuery + { ann :: a, + extraChildren :: (AST.Parse.Err ((Identifier GHC.Generics.:+: NestedIdentifier) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1164. + AST.Traversable1.Class.Traversable1 a_1164 + ) + +instance AST.Unmarshal.SymbolMatching TypeQuery where + matchedSymbols _ = [265] + showFailure _ node_1165 = + "expected " + GHC.Base.<> ( "type_query" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1165 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1165) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1166 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1167 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1168 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1169 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1166 + c1_1167 = TreeSitter.Node.nodeStartPoint node_1165 + TreeSitter.Node.TSPoint + r2_1168 + c2_1169 = TreeSitter.Node.nodeEndPoint node_1165 + +deriving instance GHC.Classes.Eq a_1170 => GHC.Classes.Eq (TypeQuery a_1170) + +deriving instance GHC.Classes.Ord a_1171 => GHC.Classes.Ord (TypeQuery a_1171) + +deriving instance GHC.Show.Show a_1172 => GHC.Show.Show (TypeQuery a_1172) + +instance AST.Unmarshal.Unmarshal TypeQuery + +instance Data.Foldable.Foldable TypeQuery where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeQuery where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeQuery where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UnaryExpression a = UnaryExpression + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousBang GHC.Generics.:+: AnonymousPlus GHC.Generics.:+: AnonymousMinus GHC.Generics.:+: AnonymousDelete GHC.Generics.:+: AnonymousTypeof GHC.Generics.:+: AnonymousVoid GHC.Generics.:+: AnonymousTilde) a)), + argument :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1173. + AST.Traversable1.Class.Traversable1 a_1173 + ) + +instance AST.Unmarshal.SymbolMatching UnaryExpression where + matchedSymbols _ = [215, 270] + showFailure _ node_1174 = + "expected " + GHC.Base.<> ( "unary_expression, unary_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1174 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1174) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1175 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1176 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1177 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1178 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1175 + c1_1176 = TreeSitter.Node.nodeStartPoint node_1174 + TreeSitter.Node.TSPoint + r2_1177 + c2_1178 = TreeSitter.Node.nodeEndPoint node_1174 + +deriving instance GHC.Classes.Eq a_1179 => GHC.Classes.Eq (UnaryExpression a_1179) + +deriving instance GHC.Classes.Ord a_1180 => GHC.Classes.Ord (UnaryExpression a_1180) + +deriving instance GHC.Show.Show a_1181 => GHC.Show.Show (UnaryExpression a_1181) + +instance AST.Unmarshal.Unmarshal UnaryExpression + +instance Data.Foldable.Foldable UnaryExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UnaryExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UnaryExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UnionType a = UnionType + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1182. + AST.Traversable1.Class.Traversable1 a_1182 + ) + +instance AST.Unmarshal.SymbolMatching UnionType where + matchedSymbols _ = [287] + showFailure _ node_1183 = + "expected " + GHC.Base.<> ( "union_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1183 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1183) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1184 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1185 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1186 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1187 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1184 + c1_1185 = TreeSitter.Node.nodeStartPoint node_1183 + TreeSitter.Node.TSPoint + r2_1186 + c2_1187 = TreeSitter.Node.nodeEndPoint node_1183 + +deriving instance GHC.Classes.Eq a_1188 => GHC.Classes.Eq (UnionType a_1188) + +deriving instance GHC.Classes.Ord a_1189 => GHC.Classes.Ord (UnionType a_1189) + +deriving instance GHC.Show.Show a_1190 => GHC.Show.Show (UnionType a_1190) + +instance AST.Unmarshal.Unmarshal UnionType + +instance Data.Foldable.Foldable UnionType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UnionType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UnionType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UpdateExpression a = UpdateExpression + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousPlusPlus GHC.Generics.:+: AnonymousMinusMinus) a)), + argument :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1191. + AST.Traversable1.Class.Traversable1 a_1191 + ) + +instance AST.Unmarshal.SymbolMatching UpdateExpression where + matchedSymbols _ = [216] + showFailure _ node_1192 = + "expected " + GHC.Base.<> ( "update_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1192 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1192) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1193 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1194 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1195 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1196 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1193 + c1_1194 = TreeSitter.Node.nodeStartPoint node_1192 + TreeSitter.Node.TSPoint + r2_1195 + c2_1196 = TreeSitter.Node.nodeEndPoint node_1192 + +deriving instance GHC.Classes.Eq a_1197 => GHC.Classes.Eq (UpdateExpression a_1197) + +deriving instance GHC.Classes.Ord a_1198 => GHC.Classes.Ord (UpdateExpression a_1198) + +deriving instance GHC.Show.Show a_1199 => GHC.Show.Show (UpdateExpression a_1199) + +instance AST.Unmarshal.Unmarshal UpdateExpression + +instance Data.Foldable.Foldable UpdateExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UpdateExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UpdateExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data VariableDeclaration a = VariableDeclaration + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (VariableDeclarator a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1200. + AST.Traversable1.Class.Traversable1 a_1200 + ) + +instance AST.Unmarshal.SymbolMatching VariableDeclaration where + matchedSymbols _ = [155] + showFailure _ node_1201 = + "expected " + GHC.Base.<> ( "variable_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1201 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1201) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1202 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1203 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1204 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1205 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1202 + c1_1203 = TreeSitter.Node.nodeStartPoint node_1201 + TreeSitter.Node.TSPoint + r2_1204 + c2_1205 = TreeSitter.Node.nodeEndPoint node_1201 + +deriving instance GHC.Classes.Eq a_1206 => GHC.Classes.Eq (VariableDeclaration a_1206) + +deriving instance GHC.Classes.Ord a_1207 => GHC.Classes.Ord (VariableDeclaration a_1207) + +deriving instance GHC.Show.Show a_1208 => GHC.Show.Show (VariableDeclaration a_1208) + +instance AST.Unmarshal.Unmarshal VariableDeclaration + +instance Data.Foldable.Foldable VariableDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor VariableDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable VariableDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data VariableDeclarator a = VariableDeclarator + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + name :: (AST.Parse.Err ((DestructuringPattern GHC.Generics.:+: Identifier) a)), + type' :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1209. + AST.Traversable1.Class.Traversable1 a_1209 + ) + +instance AST.Unmarshal.SymbolMatching VariableDeclarator where + matchedSymbols _ = [157] + showFailure _ node_1210 = + "expected " + GHC.Base.<> ( "variable_declarator" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1210 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1210) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1211 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1212 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1213 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1214 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1211 + c1_1212 = TreeSitter.Node.nodeStartPoint node_1210 + TreeSitter.Node.TSPoint + r2_1213 + c2_1214 = TreeSitter.Node.nodeEndPoint node_1210 + +deriving instance GHC.Classes.Eq a_1215 => GHC.Classes.Eq (VariableDeclarator a_1215) + +deriving instance GHC.Classes.Ord a_1216 => GHC.Classes.Ord (VariableDeclarator a_1216) + +deriving instance GHC.Show.Show a_1217 => GHC.Show.Show (VariableDeclarator a_1217) + +instance AST.Unmarshal.Unmarshal VariableDeclarator + +instance Data.Foldable.Foldable VariableDeclarator where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor VariableDeclarator where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable VariableDeclarator where + traverse = AST.Traversable1.Class.traverseDefault1 + +data WhileStatement a = WhileStatement + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + condition :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1218. + AST.Traversable1.Class.Traversable1 a_1218 + ) + +instance AST.Unmarshal.SymbolMatching WhileStatement where + matchedSymbols _ = [164] + showFailure _ node_1219 = + "expected " + GHC.Base.<> ( "while_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1219 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1219) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1220 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1221 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1222 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1223 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1220 + c1_1221 = TreeSitter.Node.nodeStartPoint node_1219 + TreeSitter.Node.TSPoint + r2_1222 + c2_1223 = TreeSitter.Node.nodeEndPoint node_1219 + +deriving instance GHC.Classes.Eq a_1224 => GHC.Classes.Eq (WhileStatement a_1224) + +deriving instance GHC.Classes.Ord a_1225 => GHC.Classes.Ord (WhileStatement a_1225) + +deriving instance GHC.Show.Show a_1226 => GHC.Show.Show (WhileStatement a_1226) + +instance AST.Unmarshal.Unmarshal WhileStatement + +instance Data.Foldable.Foldable WhileStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor WhileStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable WhileStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data WithStatement a = WithStatement + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + object :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1227. + AST.Traversable1.Class.Traversable1 a_1227 + ) + +instance AST.Unmarshal.SymbolMatching WithStatement where + matchedSymbols _ = [167] + showFailure _ node_1228 = + "expected " + GHC.Base.<> ( "with_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1228 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1228) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1229 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1230 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1231 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1232 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1229 + c1_1230 = TreeSitter.Node.nodeStartPoint node_1228 + TreeSitter.Node.TSPoint + r2_1231 + c2_1232 = TreeSitter.Node.nodeEndPoint node_1228 + +deriving instance GHC.Classes.Eq a_1233 => GHC.Classes.Eq (WithStatement a_1233) + +deriving instance GHC.Classes.Ord a_1234 => GHC.Classes.Ord (WithStatement a_1234) + +deriving instance GHC.Show.Show a_1235 => GHC.Show.Show (WithStatement a_1235) + +instance AST.Unmarshal.Unmarshal WithStatement + +instance Data.Foldable.Foldable WithStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor WithStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable WithStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data YieldExpression a = YieldExpression + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1236. + AST.Traversable1.Class.Traversable1 a_1236 + ) + +instance AST.Unmarshal.SymbolMatching YieldExpression where + matchedSymbols _ = [182] + showFailure _ node_1237 = + "expected " + GHC.Base.<> ( "yield_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1237 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1237) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1238 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1239 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1240 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1241 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1238 + c1_1239 = TreeSitter.Node.nodeStartPoint node_1237 + TreeSitter.Node.TSPoint + r2_1240 + c2_1241 = TreeSitter.Node.nodeEndPoint node_1237 + +deriving instance GHC.Classes.Eq a_1242 => GHC.Classes.Eq (YieldExpression a_1242) + +deriving instance GHC.Classes.Ord a_1243 => GHC.Classes.Ord (YieldExpression a_1243) + +deriving instance GHC.Show.Show a_1244 => GHC.Show.Show (YieldExpression a_1244) + +instance AST.Unmarshal.Unmarshal YieldExpression + +instance Data.Foldable.Foldable YieldExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor YieldExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable YieldExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousBang = AST.Token.Token "!" 90 + +type AnonymousBangEqual = AST.Token.Token "!=" 85 + +type AnonymousBangEqualEqual = AST.Token.Token "!==" 86 + +type AnonymousDQuote = AST.Token.Token "\"" 96 + +type AnonymousDollarLBrace = AST.Token.Token "${" 103 + +type AnonymousPercent = AST.Token.Token "%" 80 + +type AnonymousPercentEqual = AST.Token.Token "%=" 60 + +type AnonymousAmpersand = AST.Token.Token "&" 75 + +type AnonymousAmpersandAmpersand = AST.Token.Token "&&" 70 + +type AnonymousAmpersandEqual = AST.Token.Token "&=" 62 + +type AnonymousSQuote = AST.Token.Token "'" 98 + +type AnonymousLParen = AST.Token.Token "(" 23 + +type AnonymousRParen = AST.Token.Token ")" 24 + +type AnonymousStar = AST.Token.Token "*" 4 + +type AnonymousStarStar = AST.Token.Token "**" 81 + +type AnonymousStarStarEqual = AST.Token.Token "**=" 67 + +type AnonymousStarEqual = AST.Token.Token "*=" 58 + +type AnonymousPlus = AST.Token.Token "+" 78 + +type AnonymousPlusPlus = AST.Token.Token "++" 94 + +type AnonymousPlusEqual = AST.Token.Token "+=" 56 + +type AnonymousComma = AST.Token.Token "," 10 + +type AnonymousMinus = AST.Token.Token "-" 79 + +type AnonymousMinusMinus = AST.Token.Token "--" 95 + +type AnonymousMinusEqual = AST.Token.Token "-=" 57 + +type AnonymousDot = AST.Token.Token "." 50 + +type AnonymousDotDotDot = AST.Token.Token "..." 68 + +type AnonymousSlash = AST.Token.Token "/" 47 + +type AnonymousSlashEqual = AST.Token.Token "/=" 59 + +type AnonymousColon = AST.Token.Token ":" 38 + +type AnonymousSemicolon = AST.Token.Token ";" 37 + +type AnonymousLAngle = AST.Token.Token "<" 45 + +type AnonymousLAngleLAngle = AST.Token.Token "<<" 74 + +type AnonymousLAngleLAngleEqual = AST.Token.Token "<<=" 66 + +type AnonymousLAngleEqual = AST.Token.Token "<=" 82 + +type AnonymousEqual = AST.Token.Token "=" 6 + +type AnonymousEqualEqual = AST.Token.Token "==" 83 + +type AnonymousEqualEqualEqual = AST.Token.Token "===" 84 + +type AnonymousEqualRAngle = AST.Token.Token "=>" 54 + +type AnonymousRAngle = AST.Token.Token ">" 46 + +type AnonymousRAngleEqual = AST.Token.Token ">=" 87 + +type AnonymousRAngleRAngle = AST.Token.Token ">>" 72 + +type AnonymousRAngleRAngleEqual = AST.Token.Token ">>=" 64 + +type AnonymousRAngleRAngleRAngle = AST.Token.Token ">>>" 73 + +type AnonymousRAngleRAngleRAngleEqual = AST.Token.Token ">>>=" 65 + +type AnonymousQuestion = AST.Token.Token "?" 69 + +type AnonymousQuestionQuestion = AST.Token.Token "??" 88 + +type AnonymousAt = AST.Token.Token "@" 115 + +type AnonymousLBracket = AST.Token.Token "[" 43 + +type AnonymousRBracket = AST.Token.Token "]" 44 + +type AnonymousCaret = AST.Token.Token "^" 76 + +type AnonymousCaretEqual = AST.Token.Token "^=" 61 + +type AnonymousBacktick = AST.Token.Token "`" 102 + +type AnonymousAbstract = AST.Token.Token "abstract" 117 + +type AnonymousAny = AST.Token.Token "any" 125 + +type AnonymousAs = AST.Token.Token "as" 7 + +type AnonymousAsync = AST.Token.Token "async" 52 + +type AnonymousAwait = AST.Token.Token "await" 25 + +type AnonymousBoolean = AST.Token.Token "boolean" 127 + +type AnonymousBreak = AST.Token.Token "break" 32 + +type AnonymousCase = AST.Token.Token "case" 39 + +type AnonymousCatch = AST.Token.Token "catch" 40 + +type AnonymousClass = AST.Token.Token "class" 51 + +type AnonymousConst = AST.Token.Token "const" 18 + +type AnonymousContinue = AST.Token.Token "continue" 33 + +type AnonymousDebugger = AST.Token.Token "debugger" 34 + +type AnonymousDeclare = AST.Token.Token "declare" 120 + +type AnonymousDefault = AST.Token.Token "default" 5 + +type AnonymousDelete = AST.Token.Token "delete" 93 + +type AnonymousDo = AST.Token.Token "do" 29 + +type AnonymousElse = AST.Token.Token "else" 20 + +type AnonymousEnum = AST.Token.Token "enum" 135 + +data EscapeSequence a = EscapeSequence {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1245. + AST.Traversable1.Class.Traversable1 a_1245 + ) + +instance AST.Unmarshal.SymbolMatching EscapeSequence where + matchedSymbols _ = [100] + showFailure _ node_1246 = + "expected " + GHC.Base.<> ( "escape_sequence" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1246 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1246) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1247 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1248 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1249 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1250 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1247 + c1_1248 = TreeSitter.Node.nodeStartPoint node_1246 + TreeSitter.Node.TSPoint + r2_1249 + c2_1250 = TreeSitter.Node.nodeEndPoint node_1246 + +deriving instance GHC.Classes.Eq a_1251 => GHC.Classes.Eq (EscapeSequence a_1251) + +deriving instance GHC.Classes.Ord a_1252 => GHC.Classes.Ord (EscapeSequence a_1252) + +deriving instance GHC.Show.Show a_1253 => GHC.Show.Show (EscapeSequence a_1253) + +instance AST.Unmarshal.Unmarshal EscapeSequence + +instance Data.Foldable.Foldable EscapeSequence where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EscapeSequence where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EscapeSequence where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousExport = AST.Token.Token "export" 3 + +type AnonymousExtends = AST.Token.Token "extends" 134 + +data False a = False {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1254. + AST.Traversable1.Class.Traversable1 a_1254 + ) + +instance AST.Unmarshal.SymbolMatching False where + matchedSymbols _ = [112] + showFailure _ node_1255 = + "expected " + GHC.Base.<> ( "false" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1255 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1255) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1256 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1257 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1258 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1259 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1256 + c1_1257 = TreeSitter.Node.nodeStartPoint node_1255 + TreeSitter.Node.TSPoint + r2_1258 + c2_1259 = TreeSitter.Node.nodeEndPoint node_1255 + +deriving instance GHC.Classes.Eq a_1260 => GHC.Classes.Eq (False a_1260) + +deriving instance GHC.Classes.Ord a_1261 => GHC.Classes.Ord (False a_1261) + +deriving instance GHC.Show.Show a_1262 => GHC.Show.Show (False a_1262) + +instance AST.Unmarshal.Unmarshal False + +instance Data.Foldable.Foldable False where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor False where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable False where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousFinally = AST.Token.Token "finally" 41 + +type AnonymousFor = AST.Token.Token "for" 22 + +type AnonymousFrom = AST.Token.Token "from" 15 + +type AnonymousFunction = AST.Token.Token "function" 53 + +type AnonymousGet = AST.Token.Token "get" 118 + +type AnonymousGlobal = AST.Token.Token "global" 132 + +data HashBangLine a = HashBangLine {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1263. + AST.Traversable1.Class.Traversable1 a_1263 + ) + +instance AST.Unmarshal.SymbolMatching HashBangLine where + matchedSymbols _ = [2] + showFailure _ node_1264 = + "expected " + GHC.Base.<> ( "hash_bang_line" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1264 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1264) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1265 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1266 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1267 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1268 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1265 + c1_1266 = TreeSitter.Node.nodeStartPoint node_1264 + TreeSitter.Node.TSPoint + r2_1267 + c2_1268 = TreeSitter.Node.nodeEndPoint node_1264 + +deriving instance GHC.Classes.Eq a_1269 => GHC.Classes.Eq (HashBangLine a_1269) + +deriving instance GHC.Classes.Ord a_1270 => GHC.Classes.Ord (HashBangLine a_1270) + +deriving instance GHC.Show.Show a_1271 => GHC.Show.Show (HashBangLine a_1271) + +instance AST.Unmarshal.Unmarshal HashBangLine + +instance Data.Foldable.Foldable HashBangLine where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor HashBangLine where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable HashBangLine where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Identifier a = Identifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1272. + AST.Traversable1.Class.Traversable1 a_1272 + ) + +instance AST.Unmarshal.SymbolMatching Identifier where + matchedSymbols _ = [1, 49] + showFailure _ node_1273 = + "expected " + GHC.Base.<> ( "identifier, identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1273 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1273) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1274 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1275 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1276 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1277 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1274 + c1_1275 = TreeSitter.Node.nodeStartPoint node_1273 + TreeSitter.Node.TSPoint + r2_1276 + c2_1277 = TreeSitter.Node.nodeEndPoint node_1273 + +deriving instance GHC.Classes.Eq a_1278 => GHC.Classes.Eq (Identifier a_1278) + +deriving instance GHC.Classes.Ord a_1279 => GHC.Classes.Ord (Identifier a_1279) + +deriving instance GHC.Show.Show a_1280 => GHC.Show.Show (Identifier a_1280) + +instance AST.Unmarshal.Unmarshal Identifier + +instance Data.Foldable.Foldable Identifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Identifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Identifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousIf = AST.Token.Token "if" 19 + +type AnonymousImplements = AST.Token.Token "implements" 131 + +type AnonymousImport = AST.Token.Token "import" 14 + +type AnonymousIn = AST.Token.Token "in" 26 + +type AnonymousInstanceof = AST.Token.Token "instanceof" 89 + +type AnonymousInterface = AST.Token.Token "interface" 133 + +type AnonymousIs = AST.Token.Token "is" 137 + +data JsxText a = JsxText {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1281. + AST.Traversable1.Class.Traversable1 a_1281 + ) + +instance AST.Unmarshal.SymbolMatching JsxText where + matchedSymbols _ = [48] + showFailure _ node_1282 = + "expected " + GHC.Base.<> ( "jsx_text" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1282 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1282) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1283 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1284 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1285 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1286 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1283 + c1_1284 = TreeSitter.Node.nodeStartPoint node_1282 + TreeSitter.Node.TSPoint + r2_1285 + c2_1286 = TreeSitter.Node.nodeEndPoint node_1282 + +deriving instance GHC.Classes.Eq a_1287 => GHC.Classes.Eq (JsxText a_1287) + +deriving instance GHC.Classes.Ord a_1288 => GHC.Classes.Ord (JsxText a_1288) + +deriving instance GHC.Show.Show a_1289 => GHC.Show.Show (JsxText a_1289) + +instance AST.Unmarshal.Unmarshal JsxText + +instance Data.Foldable.Foldable JsxText where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxText where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxText where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousKeyof = AST.Token.Token "keyof" 138 + +type AnonymousLet = AST.Token.Token "let" 17 + +type AnonymousModule = AST.Token.Token "module" 124 + +type AnonymousNamespace = AST.Token.Token "namespace" 8 + +type AnonymousNew = AST.Token.Token "new" 55 + +data Null a = Null {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1290. + AST.Traversable1.Class.Traversable1 a_1290 + ) + +instance AST.Unmarshal.SymbolMatching Null where + matchedSymbols _ = [113] + showFailure _ node_1291 = + "expected " + GHC.Base.<> ( "null" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1291 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1291) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1292 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1293 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1294 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1295 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1292 + c1_1293 = TreeSitter.Node.nodeStartPoint node_1291 + TreeSitter.Node.TSPoint + r2_1294 + c2_1295 = TreeSitter.Node.nodeEndPoint node_1291 + +deriving instance GHC.Classes.Eq a_1296 => GHC.Classes.Eq (Null a_1296) + +deriving instance GHC.Classes.Ord a_1297 => GHC.Classes.Ord (Null a_1297) + +deriving instance GHC.Show.Show a_1298 => GHC.Show.Show (Null a_1298) + +instance AST.Unmarshal.Unmarshal Null + +instance Data.Foldable.Foldable Null where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Null where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Null where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousNumber = AST.Token.Token "number" 126 + +data Number a = Number {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1299. + AST.Traversable1.Class.Traversable1 a_1299 + ) + +instance AST.Unmarshal.SymbolMatching Number where + matchedSymbols _ = [107] + showFailure _ node_1300 = + "expected " + GHC.Base.<> ( "number" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1300 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1300) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1301 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1302 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1303 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1304 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1301 + c1_1302 = TreeSitter.Node.nodeStartPoint node_1300 + TreeSitter.Node.TSPoint + r2_1303 + c2_1304 = TreeSitter.Node.nodeEndPoint node_1300 + +deriving instance GHC.Classes.Eq a_1305 => GHC.Classes.Eq (Number a_1305) + +deriving instance GHC.Classes.Ord a_1306 => GHC.Classes.Ord (Number a_1306) + +deriving instance GHC.Show.Show a_1307 => GHC.Show.Show (Number a_1307) + +instance AST.Unmarshal.Unmarshal Number + +instance Data.Foldable.Foldable Number where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Number where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Number where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousOf = AST.Token.Token "of" 27 + +type AnonymousPrivate = AST.Token.Token "private" 122 + +data PropertyIdentifier a = PropertyIdentifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1308. + AST.Traversable1.Class.Traversable1 a_1308 + ) + +instance AST.Unmarshal.SymbolMatching PropertyIdentifier where + matchedSymbols _ = [314] + showFailure _ node_1309 = + "expected " + GHC.Base.<> ( "property_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1309 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1309) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1310 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1311 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1312 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1313 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1310 + c1_1311 = TreeSitter.Node.nodeStartPoint node_1309 + TreeSitter.Node.TSPoint + r2_1312 + c2_1313 = TreeSitter.Node.nodeEndPoint node_1309 + +deriving instance GHC.Classes.Eq a_1314 => GHC.Classes.Eq (PropertyIdentifier a_1314) + +deriving instance GHC.Classes.Ord a_1315 => GHC.Classes.Ord (PropertyIdentifier a_1315) + +deriving instance GHC.Show.Show a_1316 => GHC.Show.Show (PropertyIdentifier a_1316) + +instance AST.Unmarshal.Unmarshal PropertyIdentifier + +instance Data.Foldable.Foldable PropertyIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PropertyIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PropertyIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousProtected = AST.Token.Token "protected" 123 + +type AnonymousPublic = AST.Token.Token "public" 121 + +data Readonly a = Readonly {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1317. + AST.Traversable1.Class.Traversable1 a_1317 + ) + +instance AST.Unmarshal.SymbolMatching Readonly where + matchedSymbols _ = [136] + showFailure _ node_1318 = + "expected " + GHC.Base.<> ( "readonly" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1318 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1318) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1319 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1320 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1321 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1322 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1319 + c1_1320 = TreeSitter.Node.nodeStartPoint node_1318 + TreeSitter.Node.TSPoint + r2_1321 + c2_1322 = TreeSitter.Node.nodeEndPoint node_1318 + +deriving instance GHC.Classes.Eq a_1323 => GHC.Classes.Eq (Readonly a_1323) + +deriving instance GHC.Classes.Ord a_1324 => GHC.Classes.Ord (Readonly a_1324) + +deriving instance GHC.Show.Show a_1325 => GHC.Show.Show (Readonly a_1325) + +instance AST.Unmarshal.Unmarshal Readonly + +instance Data.Foldable.Foldable Readonly where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Readonly where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Readonly where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RegexFlags a = RegexFlags {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1326. + AST.Traversable1.Class.Traversable1 a_1326 + ) + +instance AST.Unmarshal.SymbolMatching RegexFlags where + matchedSymbols _ = [106] + showFailure _ node_1327 = + "expected " + GHC.Base.<> ( "regex_flags" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1327 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1327) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1328 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1329 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1330 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1331 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1328 + c1_1329 = TreeSitter.Node.nodeStartPoint node_1327 + TreeSitter.Node.TSPoint + r2_1330 + c2_1331 = TreeSitter.Node.nodeEndPoint node_1327 + +deriving instance GHC.Classes.Eq a_1332 => GHC.Classes.Eq (RegexFlags a_1332) + +deriving instance GHC.Classes.Ord a_1333 => GHC.Classes.Ord (RegexFlags a_1333) + +deriving instance GHC.Show.Show a_1334 => GHC.Show.Show (RegexFlags a_1334) + +instance AST.Unmarshal.Unmarshal RegexFlags + +instance Data.Foldable.Foldable RegexFlags where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RegexFlags where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RegexFlags where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RegexPattern a = RegexPattern {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1335. + AST.Traversable1.Class.Traversable1 a_1335 + ) + +instance AST.Unmarshal.SymbolMatching RegexPattern where + matchedSymbols _ = [105] + showFailure _ node_1336 = + "expected " + GHC.Base.<> ( "regex_pattern" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1336 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1336) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1337 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1338 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1339 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1340 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1337 + c1_1338 = TreeSitter.Node.nodeStartPoint node_1336 + TreeSitter.Node.TSPoint + r2_1339 + c2_1340 = TreeSitter.Node.nodeEndPoint node_1336 + +deriving instance GHC.Classes.Eq a_1341 => GHC.Classes.Eq (RegexPattern a_1341) + +deriving instance GHC.Classes.Ord a_1342 => GHC.Classes.Ord (RegexPattern a_1342) + +deriving instance GHC.Show.Show a_1343 => GHC.Show.Show (RegexPattern a_1343) + +instance AST.Unmarshal.Unmarshal RegexPattern + +instance Data.Foldable.Foldable RegexPattern where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RegexPattern where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RegexPattern where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousRequire = AST.Token.Token "require" 130 + +type AnonymousReturn = AST.Token.Token "return" 35 + +type AnonymousSet = AST.Token.Token "set" 119 + +data ShorthandPropertyIdentifier a = ShorthandPropertyIdentifier + { ann :: a, + text :: Data.Text.Internal.Text + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1344. + AST.Traversable1.Class.Traversable1 a_1344 + ) + +instance AST.Unmarshal.SymbolMatching ShorthandPropertyIdentifier where + matchedSymbols _ = [315] + showFailure _ node_1345 = + "expected " + GHC.Base.<> ( "shorthand_property_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1345 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1345) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1346 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1347 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1348 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1349 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1346 + c1_1347 = TreeSitter.Node.nodeStartPoint node_1345 + TreeSitter.Node.TSPoint + r2_1348 + c2_1349 = TreeSitter.Node.nodeEndPoint node_1345 + +deriving instance GHC.Classes.Eq a_1350 => GHC.Classes.Eq (ShorthandPropertyIdentifier a_1350) + +deriving instance GHC.Classes.Ord a_1351 => GHC.Classes.Ord (ShorthandPropertyIdentifier a_1351) + +deriving instance GHC.Show.Show a_1352 => GHC.Show.Show (ShorthandPropertyIdentifier a_1352) + +instance AST.Unmarshal.Unmarshal ShorthandPropertyIdentifier + +instance Data.Foldable.Foldable ShorthandPropertyIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ShorthandPropertyIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ShorthandPropertyIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data StatementIdentifier a = StatementIdentifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1353. + AST.Traversable1.Class.Traversable1 a_1353 + ) + +instance AST.Unmarshal.SymbolMatching StatementIdentifier where + matchedSymbols _ = [316] + showFailure _ node_1354 = + "expected " + GHC.Base.<> ( "statement_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1354 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1354) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1355 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1356 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1357 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1358 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1355 + c1_1356 = TreeSitter.Node.nodeStartPoint node_1354 + TreeSitter.Node.TSPoint + r2_1357 + c2_1358 = TreeSitter.Node.nodeEndPoint node_1354 + +deriving instance GHC.Classes.Eq a_1359 => GHC.Classes.Eq (StatementIdentifier a_1359) + +deriving instance GHC.Classes.Ord a_1360 => GHC.Classes.Ord (StatementIdentifier a_1360) + +deriving instance GHC.Show.Show a_1361 => GHC.Show.Show (StatementIdentifier a_1361) + +instance AST.Unmarshal.Unmarshal StatementIdentifier + +instance Data.Foldable.Foldable StatementIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor StatementIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable StatementIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousStatic = AST.Token.Token "static" 116 + +type AnonymousString = AST.Token.Token "string" 128 + +data Super a = Super {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1362. + AST.Traversable1.Class.Traversable1 a_1362 + ) + +instance AST.Unmarshal.SymbolMatching Super where + matchedSymbols _ = [110] + showFailure _ node_1363 = + "expected " + GHC.Base.<> ( "super" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1363 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1363) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1364 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1365 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1366 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1367 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1364 + c1_1365 = TreeSitter.Node.nodeStartPoint node_1363 + TreeSitter.Node.TSPoint + r2_1366 + c2_1367 = TreeSitter.Node.nodeEndPoint node_1363 + +deriving instance GHC.Classes.Eq a_1368 => GHC.Classes.Eq (Super a_1368) + +deriving instance GHC.Classes.Ord a_1369 => GHC.Classes.Ord (Super a_1369) + +deriving instance GHC.Show.Show a_1370 => GHC.Show.Show (Super a_1370) + +instance AST.Unmarshal.Unmarshal Super + +instance Data.Foldable.Foldable Super where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Super where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Super where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousSwitch = AST.Token.Token "switch" 21 + +type AnonymousSymbol = AST.Token.Token "symbol" 129 + +type AnonymousTarget = AST.Token.Token "target" 108 + +data This a = This {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1371. + AST.Traversable1.Class.Traversable1 a_1371 + ) + +instance AST.Unmarshal.SymbolMatching This where + matchedSymbols _ = [109] + showFailure _ node_1372 = + "expected " + GHC.Base.<> ( "this" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1372 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1372) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1373 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1374 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1375 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1376 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1373 + c1_1374 = TreeSitter.Node.nodeStartPoint node_1372 + TreeSitter.Node.TSPoint + r2_1375 + c2_1376 = TreeSitter.Node.nodeEndPoint node_1372 + +deriving instance GHC.Classes.Eq a_1377 => GHC.Classes.Eq (This a_1377) + +deriving instance GHC.Classes.Ord a_1378 => GHC.Classes.Ord (This a_1378) + +deriving instance GHC.Show.Show a_1379 => GHC.Show.Show (This a_1379) + +instance AST.Unmarshal.Unmarshal This + +instance Data.Foldable.Foldable This where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor This where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable This where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousThrow = AST.Token.Token "throw" 36 + +data True a = True {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1380. + AST.Traversable1.Class.Traversable1 a_1380 + ) + +instance AST.Unmarshal.SymbolMatching True where + matchedSymbols _ = [111] + showFailure _ node_1381 = + "expected " + GHC.Base.<> ( "true" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1381 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1381) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1382 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1383 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1384 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1385 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1382 + c1_1383 = TreeSitter.Node.nodeStartPoint node_1381 + TreeSitter.Node.TSPoint + r2_1384 + c2_1385 = TreeSitter.Node.nodeEndPoint node_1381 + +deriving instance GHC.Classes.Eq a_1386 => GHC.Classes.Eq (True a_1386) + +deriving instance GHC.Classes.Ord a_1387 => GHC.Classes.Ord (True a_1387) + +deriving instance GHC.Show.Show a_1388 => GHC.Show.Show (True a_1388) + +instance AST.Unmarshal.Unmarshal True + +instance Data.Foldable.Foldable True where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor True where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable True where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousTry = AST.Token.Token "try" 30 + +type AnonymousType = AST.Token.Token "type" 12 + +data TypeIdentifier a = TypeIdentifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1389. + AST.Traversable1.Class.Traversable1 a_1389 + ) + +instance AST.Unmarshal.SymbolMatching TypeIdentifier where + matchedSymbols _ = [317] + showFailure _ node_1390 = + "expected " + GHC.Base.<> ( "type_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1390 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1390) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1391 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1392 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1393 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1394 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1391 + c1_1392 = TreeSitter.Node.nodeStartPoint node_1390 + TreeSitter.Node.TSPoint + r2_1393 + c2_1394 = TreeSitter.Node.nodeEndPoint node_1390 + +deriving instance GHC.Classes.Eq a_1395 => GHC.Classes.Eq (TypeIdentifier a_1395) + +deriving instance GHC.Classes.Ord a_1396 => GHC.Classes.Ord (TypeIdentifier a_1396) + +deriving instance GHC.Show.Show a_1397 => GHC.Show.Show (TypeIdentifier a_1397) + +instance AST.Unmarshal.Unmarshal TypeIdentifier + +instance Data.Foldable.Foldable TypeIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousTypeof = AST.Token.Token "typeof" 13 + +data Undefined a = Undefined {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1398. + AST.Traversable1.Class.Traversable1 a_1398 + ) + +instance AST.Unmarshal.SymbolMatching Undefined where + matchedSymbols _ = [114] + showFailure _ node_1399 = + "expected " + GHC.Base.<> ( "undefined" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1399 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1399) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1400 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1401 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1402 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1403 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1400 + c1_1401 = TreeSitter.Node.nodeStartPoint node_1399 + TreeSitter.Node.TSPoint + r2_1402 + c2_1403 = TreeSitter.Node.nodeEndPoint node_1399 + +deriving instance GHC.Classes.Eq a_1404 => GHC.Classes.Eq (Undefined a_1404) + +deriving instance GHC.Classes.Ord a_1405 => GHC.Classes.Ord (Undefined a_1405) + +deriving instance GHC.Show.Show a_1406 => GHC.Show.Show (Undefined a_1406) + +instance AST.Unmarshal.Unmarshal Undefined + +instance Data.Foldable.Foldable Undefined where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Undefined where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Undefined where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousVar = AST.Token.Token "var" 16 + +type AnonymousVoid = AST.Token.Token "void" 92 + +type AnonymousWhile = AST.Token.Token "while" 28 + +type AnonymousWith = AST.Token.Token "with" 31 + +type AnonymousYield = AST.Token.Token "yield" 42 + +type AnonymousLBrace = AST.Token.Token "{" 9 + +type AnonymousLBracePipe = AST.Token.Token "{|" 139 + +type AnonymousPipe = AST.Token.Token "|" 77 + +type AnonymousPipeEqual = AST.Token.Token "|=" 63 + +type AnonymousPipePipe = AST.Token.Token "||" 71 + +type AnonymousPipeRBrace = AST.Token.Token "|}" 140 + +type AnonymousRBrace = AST.Token.Token "}" 11 + +type AnonymousTilde = AST.Token.Token "~" 91 diff --git a/semantic-typescript/src/Language/TypeScript/AST.hs b/semantic-typescript/src/Language/TypeScript/AST.hs index f57b501cd..93d87230f 100644 --- a/semantic-typescript/src/Language/TypeScript/AST.hs +++ b/semantic-typescript/src/Language/TypeScript/AST.hs @@ -1,3 +1,4 @@ +-- Language definition for TypeScript, generated by ast-generate. Do not edit! {-# LANGUAGE CPP #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveAnyClass #-} @@ -14,20 +15,8019 @@ {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeApplications #-} {-# LANGUAGE TypeOperators #-} +{-# LANGUAGE UndecidableInstances #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Language.TypeScript.AST -( module Language.TypeScript.AST -, TypeScript.getTestCorpusDir -) where +module Language.TypeScript.AST (module Language.TypeScript.AST, getTestCorpusDir) where -import Prelude hiding (False, Float, Integer, String, True) -import AST.GenerateSyntax -import Language.Haskell.TH.Syntax (runIO) -import qualified TreeSitter.TypeScript as TypeScript (getNodeTypesPath, getTestCorpusDir, tree_sitter_typescript) +import qualified AST.Parse +import qualified AST.Token +import qualified AST.Traversable1.Class +import qualified AST.Unmarshal +import qualified Data.Foldable +import qualified Data.List as Data.OldList +import qualified Data.Maybe as GHC.Maybe +import qualified Data.Text.Internal +import qualified Data.Traversable +import qualified GHC.Base +import qualified GHC.Generics +import qualified GHC.Records +import qualified GHC.Show +import qualified TreeSitter.Node +import TreeSitter.TypeScript (getTestCorpusDir) +import qualified Prelude as GHC.Classes -#ifdef NODE_TYPES_PATH -astDeclarationsForLanguage TypeScript.tree_sitter_typescript NODE_TYPES_PATH -#else -runIO TypeScript.getNodeTypesPath >>= astDeclarationsForLanguage TypeScript.tree_sitter_typescript -#endif +debugSymbolNames :: [GHC.Base.String] +debugSymbolNames = debugSymbolNames_0 + +debugSymbolNames_0 :: [GHC.Base.String] +debugSymbolNames_0 = + [ "end", + "identifier", + "hash_bang_line", + "_export", + "_*", + "_default", + "_=", + "_as", + "_namespace", + "_{", + "_,", + "_}", + "_type", + "_typeof", + "_import", + "_from", + "_var", + "_let", + "_const", + "_if", + "_else", + "_switch", + "_for", + "_(", + "_)", + "_await", + "_in", + "_of", + "_while", + "_do", + "_try", + "_with", + "_break", + "_continue", + "_debugger", + "_return", + "_throw", + "_;", + "_:", + "_case", + "_catch", + "_finally", + "_yield", + "_[", + "_]", + "_<", + "_>", + "_/", + "_.", + "_class", + "_async", + "_function", + "_=>", + "_new", + "_+=", + "_-=", + "_*=", + "_/=", + "_%=", + "_^=", + "_&=", + "_|=", + "_>>=", + "_>>>=", + "_<<=", + "_**=", + "_...", + "_?", + "_&&", + "_||", + "_>>", + "_>>>", + "_<<", + "_&", + "_^", + "_|", + "_+", + "_-", + "_%", + "_**", + "_<=", + "_==", + "_===", + "_!=", + "_!==", + "_>=", + "_??", + "_instanceof", + "_!", + "_~", + "_void", + "_delete", + "_++", + "_--", + "_\"", + "_string_token1", + "_'", + "_string_token2", + "escape_sequence", + "comment", + "_`", + "_${", + "_/", + "regex_pattern", + "regex_flags", + "number", + "_target", + "this", + "super", + "true", + "false", + "null", + "undefined", + "_@", + "_static", + "_abstract", + "_get", + "_set", + "_declare", + "_public", + "_private", + "_protected", + "_module", + "_any", + "_number", + "_boolean", + "_string", + "_symbol", + "_require", + "_implements", + "_global", + "_interface", + "_extends", + "_enum", + "readonly", + "_is", + "_keyof", + "_{|", + "_|}", + "_automatic_semicolon", + "_template_chars", + "program", + "export_statement", + "export_clause", + "_import_export_specifier", + "_declaration", + "import", + "import_statement", + "import_clause", + "_from_clause", + "namespace_import", + "named_imports", + "expression_statement", + "variable_declaration", + "lexical_declaration", + "variable_declarator", + "statement_block", + "if_statement", + "switch_statement", + "for_statement", + "for_in_statement", + "_for_header", + "while_statement", + "do_statement", + "try_statement", + "with_statement", + "break_statement", + "continue_statement", + "debugger_statement", + "return_statement", + "throw_statement", + "empty_statement", + "labeled_statement", + "switch_body", + "switch_case", + "switch_default", + "catch_clause", + "finally_clause", + "parenthesized_expression", + "_expression", + "yield_expression", + "object", + "assignment_pattern", + "array", + "nested_identifier", + "class", + "class_declaration", + "class_heritage", + "function", + "function_declaration", + "generator_function", + "generator_function_declaration", + "arrow_function", + "_call_signature", + "call_expression", + "new_expression", + "await_expression", + "member_expression", + "subscript_expression", + "assignment_expression", + "augmented_assignment_expression", + "_initializer", + "spread_element", + "ternary_expression", + "binary_expression", + "unary_expression", + "update_expression", + "sequence_expression", + "string", + "template_string", + "template_substitution", + "regex", + "meta_property", + "arguments", + "decorator", + "member_expression", + "call_expression", + "class_body", + "public_field_definition", + "formal_parameters", + "rest_parameter", + "method_definition", + "pair", + "_property_name", + "computed_property_name", + "non_null_expression", + "method_signature", + "abstract_method_signature", + "function_signature", + "type_assertion", + "as_expression", + "import_require_clause", + "implements_clause", + "ambient_declaration", + "abstract_class_declaration", + "module", + "internal_module", + "_module", + "import_alias", + "nested_type_identifier", + "interface_declaration", + "extends_clause", + "enum_declaration", + "enum_body", + "enum_assignment", + "type_alias_declaration", + "accessibility_modifier", + "required_parameter", + "optional_parameter", + "_parameter_name", + "type_annotation", + "_type", + "constructor_type", + "_primary_type", + "generic_type", + "type_predicate", + "type_query", + "index_type_query", + "lookup_type", + "mapped_type_clause", + "literal_type", + "unary_expression", + "existential_type", + "flow_maybe_type", + "parenthesized_type", + "predefined_type", + "type_arguments", + "object_type", + "call_signature", + "property_signature", + "type_parameters", + "type_parameter", + "default_type", + "constraint", + "construct_signature", + "index_signature", + "array_type", + "tuple_type", + "union_type", + "intersection_type", + "function_type", + "_program_repeat1", + "_export_statement_repeat1", + "_export_clause_repeat1", + "_named_imports_repeat1", + "_variable_declaration_repeat1", + "_switch_body_repeat1", + "_object_repeat1", + "_array_repeat1", + "_string_repeat1", + "_string_repeat2", + "_template_string_repeat1", + "_class_body_repeat1", + "_formal_parameters_repeat1", + "_implements_clause_repeat1", + "_extends_clause_repeat1", + "_enum_body_repeat1", + "_object_type_repeat1", + "_type_parameters_repeat1", + "array_pattern", + "export_specifier", + "import_specifier", + "object_pattern", + "property_identifier", + "shorthand_property_identifier", + "statement_identifier", + "type_identifier" + ] + +newtype Declaration a = Declaration {getDeclaration :: ((AbstractClassDeclaration GHC.Generics.:+: AmbientDeclaration GHC.Generics.:+: ClassDeclaration GHC.Generics.:+: EnumDeclaration GHC.Generics.:+: FunctionDeclaration GHC.Generics.:+: FunctionSignature GHC.Generics.:+: GeneratorFunctionDeclaration GHC.Generics.:+: ImportAlias GHC.Generics.:+: InterfaceDeclaration GHC.Generics.:+: InternalModule GHC.Generics.:+: LexicalDeclaration GHC.Generics.:+: Module GHC.Generics.:+: TypeAliasDeclaration GHC.Generics.:+: VariableDeclaration) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1. + AST.Traversable1.Class.Traversable1 a_1 + ) + +instance GHC.Records.HasField "ann" (Declaration a_2) a_2 where + getField = AST.Unmarshal.gann GHC.Base.. getDeclaration + +deriving instance GHC.Classes.Eq a_3 => GHC.Classes.Eq (Declaration a_3) + +deriving instance GHC.Classes.Ord a_4 => GHC.Classes.Ord (Declaration a_4) + +deriving instance GHC.Show.Show a_5 => GHC.Show.Show (Declaration a_5) + +instance AST.Unmarshal.Unmarshal Declaration + +instance Data.Foldable.Foldable Declaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Declaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Declaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype DestructuringPattern a = DestructuringPattern {getDestructuringPattern :: ((ArrayPattern GHC.Generics.:+: ObjectPattern) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_6. + AST.Traversable1.Class.Traversable1 a_6 + ) + +instance GHC.Records.HasField "ann" (DestructuringPattern a_7) a_7 where + getField = AST.Unmarshal.gann GHC.Base.. getDestructuringPattern + +deriving instance GHC.Classes.Eq a_8 => GHC.Classes.Eq (DestructuringPattern a_8) + +deriving instance GHC.Classes.Ord a_9 => GHC.Classes.Ord (DestructuringPattern a_9) + +deriving instance GHC.Show.Show a_10 => GHC.Show.Show (DestructuringPattern a_10) + +instance AST.Unmarshal.Unmarshal DestructuringPattern + +instance Data.Foldable.Foldable DestructuringPattern where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DestructuringPattern where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DestructuringPattern where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Expression a = Expression {getExpression :: ((Array GHC.Generics.:+: ArrowFunction GHC.Generics.:+: AsExpression GHC.Generics.:+: AssignmentExpression GHC.Generics.:+: AugmentedAssignmentExpression GHC.Generics.:+: AwaitExpression GHC.Generics.:+: BinaryExpression GHC.Generics.:+: CallExpression GHC.Generics.:+: Class GHC.Generics.:+: False GHC.Generics.:+: Function GHC.Generics.:+: GeneratorFunction GHC.Generics.:+: Identifier GHC.Generics.:+: Import GHC.Generics.:+: InternalModule GHC.Generics.:+: MemberExpression GHC.Generics.:+: MetaProperty GHC.Generics.:+: NewExpression GHC.Generics.:+: NonNullExpression GHC.Generics.:+: Null GHC.Generics.:+: Number GHC.Generics.:+: Object GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: Regex GHC.Generics.:+: String GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: Super GHC.Generics.:+: TemplateString GHC.Generics.:+: TernaryExpression GHC.Generics.:+: This GHC.Generics.:+: True GHC.Generics.:+: TypeAssertion GHC.Generics.:+: UnaryExpression GHC.Generics.:+: Undefined GHC.Generics.:+: UpdateExpression GHC.Generics.:+: YieldExpression) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_11. + AST.Traversable1.Class.Traversable1 a_11 + ) + +instance GHC.Records.HasField "ann" (Expression a_12) a_12 where + getField = AST.Unmarshal.gann GHC.Base.. getExpression + +deriving instance GHC.Classes.Eq a_13 => GHC.Classes.Eq (Expression a_13) + +deriving instance GHC.Classes.Ord a_14 => GHC.Classes.Ord (Expression a_14) + +deriving instance GHC.Show.Show a_15 => GHC.Show.Show (Expression a_15) + +instance AST.Unmarshal.Unmarshal Expression + +instance Data.Foldable.Foldable Expression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Expression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Expression where + traverse = AST.Traversable1.Class.traverseDefault1 + +newtype Statement a = Statement {getStatement :: ((Declaration GHC.Generics.:+: BreakStatement GHC.Generics.:+: ContinueStatement GHC.Generics.:+: DebuggerStatement GHC.Generics.:+: DoStatement GHC.Generics.:+: EmptyStatement GHC.Generics.:+: ExportStatement GHC.Generics.:+: ExpressionStatement GHC.Generics.:+: ForInStatement GHC.Generics.:+: ForStatement GHC.Generics.:+: IfStatement GHC.Generics.:+: ImportStatement GHC.Generics.:+: LabeledStatement GHC.Generics.:+: ReturnStatement GHC.Generics.:+: StatementBlock GHC.Generics.:+: SwitchStatement GHC.Generics.:+: ThrowStatement GHC.Generics.:+: TryStatement GHC.Generics.:+: WhileStatement GHC.Generics.:+: WithStatement) a)} + deriving newtype (AST.Unmarshal.SymbolMatching) + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_16. + AST.Traversable1.Class.Traversable1 a_16 + ) + +instance GHC.Records.HasField "ann" (Statement a_17) a_17 where + getField = AST.Unmarshal.gann GHC.Base.. getStatement + +deriving instance GHC.Classes.Eq a_18 => GHC.Classes.Eq (Statement a_18) + +deriving instance GHC.Classes.Ord a_19 => GHC.Classes.Ord (Statement a_19) + +deriving instance GHC.Show.Show a_20 => GHC.Show.Show (Statement a_20) + +instance AST.Unmarshal.Unmarshal Statement + +instance Data.Foldable.Foldable Statement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Statement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Statement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AbstractClassDeclaration a = AbstractClassDeclaration + { ann :: a, + body :: (AST.Parse.Err (ClassBody a)), + name :: (AST.Parse.Err (TypeIdentifier a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ClassHeritage a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_21. + AST.Traversable1.Class.Traversable1 a_21 + ) + +instance AST.Unmarshal.SymbolMatching AbstractClassDeclaration where + matchedSymbols _ = [234] + showFailure _ node_22 = + "expected " + GHC.Base.<> ( "abstract_class_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_22 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_22) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_23 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_24 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_25 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_26 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_23 + c1_24 = TreeSitter.Node.nodeStartPoint node_22 + TreeSitter.Node.TSPoint + r2_25 + c2_26 = TreeSitter.Node.nodeEndPoint node_22 + +deriving instance GHC.Classes.Eq a_27 => GHC.Classes.Eq (AbstractClassDeclaration a_27) + +deriving instance GHC.Classes.Ord a_28 => GHC.Classes.Ord (AbstractClassDeclaration a_28) + +deriving instance GHC.Show.Show a_29 => GHC.Show.Show (AbstractClassDeclaration a_29) + +instance AST.Unmarshal.Unmarshal AbstractClassDeclaration + +instance Data.Foldable.Foldable AbstractClassDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AbstractClassDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AbstractClassDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AbstractMethodSignature a = AbstractMethodSignature + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + name :: (AST.Parse.Err ((ComputedPropertyName GHC.Generics.:+: Number GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a)), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (AccessibilityModifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_30. + AST.Traversable1.Class.Traversable1 a_30 + ) + +instance AST.Unmarshal.SymbolMatching AbstractMethodSignature where + matchedSymbols _ = [227] + showFailure _ node_31 = + "expected " + GHC.Base.<> ( "abstract_method_signature" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_31 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_31) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_32 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_33 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_34 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_35 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_32 + c1_33 = TreeSitter.Node.nodeStartPoint node_31 + TreeSitter.Node.TSPoint + r2_34 + c2_35 = TreeSitter.Node.nodeEndPoint node_31 + +deriving instance GHC.Classes.Eq a_36 => GHC.Classes.Eq (AbstractMethodSignature a_36) + +deriving instance GHC.Classes.Ord a_37 => GHC.Classes.Ord (AbstractMethodSignature a_37) + +deriving instance GHC.Show.Show a_38 => GHC.Show.Show (AbstractMethodSignature a_38) + +instance AST.Unmarshal.Unmarshal AbstractMethodSignature + +instance Data.Foldable.Foldable AbstractMethodSignature where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AbstractMethodSignature where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AbstractMethodSignature where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AccessibilityModifier a = AccessibilityModifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_39. + AST.Traversable1.Class.Traversable1 a_39 + ) + +instance AST.Unmarshal.SymbolMatching AccessibilityModifier where + matchedSymbols _ = [246] + showFailure _ node_40 = + "expected " + GHC.Base.<> ( "accessibility_modifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_40 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_40) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_41 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_42 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_43 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_44 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_41 + c1_42 = TreeSitter.Node.nodeStartPoint node_40 + TreeSitter.Node.TSPoint + r2_43 + c2_44 = TreeSitter.Node.nodeEndPoint node_40 + +deriving instance GHC.Classes.Eq a_45 => GHC.Classes.Eq (AccessibilityModifier a_45) + +deriving instance GHC.Classes.Ord a_46 => GHC.Classes.Ord (AccessibilityModifier a_46) + +deriving instance GHC.Show.Show a_47 => GHC.Show.Show (AccessibilityModifier a_47) + +instance AST.Unmarshal.Unmarshal AccessibilityModifier + +instance Data.Foldable.Foldable AccessibilityModifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AccessibilityModifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AccessibilityModifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AmbientDeclaration a = AmbientDeclaration + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Declaration GHC.Generics.:+: ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: StatementBlock GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_48. + AST.Traversable1.Class.Traversable1 a_48 + ) + +instance AST.Unmarshal.SymbolMatching AmbientDeclaration where + matchedSymbols _ = [233] + showFailure _ node_49 = + "expected " + GHC.Base.<> ( "ambient_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_49 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_49) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_50 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_51 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_52 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_53 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_50 + c1_51 = TreeSitter.Node.nodeStartPoint node_49 + TreeSitter.Node.TSPoint + r2_52 + c2_53 = TreeSitter.Node.nodeEndPoint node_49 + +deriving instance GHC.Classes.Eq a_54 => GHC.Classes.Eq (AmbientDeclaration a_54) + +deriving instance GHC.Classes.Ord a_55 => GHC.Classes.Ord (AmbientDeclaration a_55) + +deriving instance GHC.Show.Show a_56 => GHC.Show.Show (AmbientDeclaration a_56) + +instance AST.Unmarshal.Unmarshal AmbientDeclaration + +instance Data.Foldable.Foldable AmbientDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AmbientDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AmbientDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Arguments a = Arguments + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Expression GHC.Generics.:+: SpreadElement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_57. + AST.Traversable1.Class.Traversable1 a_57 + ) + +instance AST.Unmarshal.SymbolMatching Arguments where + matchedSymbols _ = [213] + showFailure _ node_58 = + "expected " + GHC.Base.<> ( "arguments" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_58 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_58) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_59 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_60 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_61 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_62 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_59 + c1_60 = TreeSitter.Node.nodeStartPoint node_58 + TreeSitter.Node.TSPoint + r2_61 + c2_62 = TreeSitter.Node.nodeEndPoint node_58 + +deriving instance GHC.Classes.Eq a_63 => GHC.Classes.Eq (Arguments a_63) + +deriving instance GHC.Classes.Ord a_64 => GHC.Classes.Ord (Arguments a_64) + +deriving instance GHC.Show.Show a_65 => GHC.Show.Show (Arguments a_65) + +instance AST.Unmarshal.Unmarshal Arguments + +instance Data.Foldable.Foldable Arguments where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Arguments where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Arguments where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Array a = Array + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Expression GHC.Generics.:+: SpreadElement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_66. + AST.Traversable1.Class.Traversable1 a_66 + ) + +instance AST.Unmarshal.SymbolMatching Array where + matchedSymbols _ = [183] + showFailure _ node_67 = + "expected " + GHC.Base.<> ( "array" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_67 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_67) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_68 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_69 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_70 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_71 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_68 + c1_69 = TreeSitter.Node.nodeStartPoint node_67 + TreeSitter.Node.TSPoint + r2_70 + c2_71 = TreeSitter.Node.nodeEndPoint node_67 + +deriving instance GHC.Classes.Eq a_72 => GHC.Classes.Eq (Array a_72) + +deriving instance GHC.Classes.Ord a_73 => GHC.Classes.Ord (Array a_73) + +deriving instance GHC.Show.Show a_74 => GHC.Show.Show (Array a_74) + +instance AST.Unmarshal.Unmarshal Array + +instance Data.Foldable.Foldable Array where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Array where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Array where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ArrayPattern a = ArrayPattern + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Expression GHC.Generics.:+: SpreadElement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_75. + AST.Traversable1.Class.Traversable1 a_75 + ) + +instance AST.Unmarshal.SymbolMatching ArrayPattern where + matchedSymbols _ = [299] + showFailure _ node_76 = + "expected " + GHC.Base.<> ( "array_pattern" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_76 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_76) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_77 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_78 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_79 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_80 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_77 + c1_78 = TreeSitter.Node.nodeStartPoint node_76 + TreeSitter.Node.TSPoint + r2_79 + c2_80 = TreeSitter.Node.nodeEndPoint node_76 + +deriving instance GHC.Classes.Eq a_81 => GHC.Classes.Eq (ArrayPattern a_81) + +deriving instance GHC.Classes.Ord a_82 => GHC.Classes.Ord (ArrayPattern a_82) + +deriving instance GHC.Show.Show a_83 => GHC.Show.Show (ArrayPattern a_83) + +instance AST.Unmarshal.Unmarshal ArrayPattern + +instance Data.Foldable.Foldable ArrayPattern where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ArrayPattern where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ArrayPattern where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ArrayType a = ArrayType + { ann :: a, + extraChildren :: (AST.Parse.Err ((ArrayType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_84. + AST.Traversable1.Class.Traversable1 a_84 + ) + +instance AST.Unmarshal.SymbolMatching ArrayType where + matchedSymbols _ = [276] + showFailure _ node_85 = + "expected " + GHC.Base.<> ( "array_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_85 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_85) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_86 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_87 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_88 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_89 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_86 + c1_87 = TreeSitter.Node.nodeStartPoint node_85 + TreeSitter.Node.TSPoint + r2_88 + c2_89 = TreeSitter.Node.nodeEndPoint node_85 + +deriving instance GHC.Classes.Eq a_90 => GHC.Classes.Eq (ArrayType a_90) + +deriving instance GHC.Classes.Ord a_91 => GHC.Classes.Ord (ArrayType a_91) + +deriving instance GHC.Show.Show a_92 => GHC.Show.Show (ArrayType a_92) + +instance AST.Unmarshal.Unmarshal ArrayType + +instance Data.Foldable.Foldable ArrayType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ArrayType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ArrayType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ArrowFunction a = ArrowFunction + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + body :: (AST.Parse.Err ((Expression GHC.Generics.:+: StatementBlock) a)), + parameters :: (GHC.Maybe.Maybe (AST.Parse.Err (FormalParameters a))), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + parameter :: (GHC.Maybe.Maybe (AST.Parse.Err (Identifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_93. + AST.Traversable1.Class.Traversable1 a_93 + ) + +instance AST.Unmarshal.SymbolMatching ArrowFunction where + matchedSymbols _ = [192] + showFailure _ node_94 = + "expected " + GHC.Base.<> ( "arrow_function" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_94 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_94) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_95 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_96 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_97 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_98 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_95 + c1_96 = TreeSitter.Node.nodeStartPoint node_94 + TreeSitter.Node.TSPoint + r2_97 + c2_98 = TreeSitter.Node.nodeEndPoint node_94 + +deriving instance GHC.Classes.Eq a_99 => GHC.Classes.Eq (ArrowFunction a_99) + +deriving instance GHC.Classes.Ord a_100 => GHC.Classes.Ord (ArrowFunction a_100) + +deriving instance GHC.Show.Show a_101 => GHC.Show.Show (ArrowFunction a_101) + +instance AST.Unmarshal.Unmarshal ArrowFunction + +instance Data.Foldable.Foldable ArrowFunction where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ArrowFunction where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ArrowFunction where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AsExpression a = AsExpression + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_102. + AST.Traversable1.Class.Traversable1 a_102 + ) + +instance AST.Unmarshal.SymbolMatching AsExpression where + matchedSymbols _ = [230] + showFailure _ node_103 = + "expected " + GHC.Base.<> ( "as_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_103 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_103) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_104 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_105 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_106 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_107 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_104 + c1_105 = TreeSitter.Node.nodeStartPoint node_103 + TreeSitter.Node.TSPoint + r2_106 + c2_107 = TreeSitter.Node.nodeEndPoint node_103 + +deriving instance GHC.Classes.Eq a_108 => GHC.Classes.Eq (AsExpression a_108) + +deriving instance GHC.Classes.Ord a_109 => GHC.Classes.Ord (AsExpression a_109) + +deriving instance GHC.Show.Show a_110 => GHC.Show.Show (AsExpression a_110) + +instance AST.Unmarshal.Unmarshal AsExpression + +instance Data.Foldable.Foldable AsExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AsExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AsExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AssignmentExpression a = AssignmentExpression + { ann :: a, + left :: (AST.Parse.Err ((DestructuringPattern GHC.Generics.:+: Identifier GHC.Generics.:+: MemberExpression GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: SubscriptExpression) a)), + right :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_111. + AST.Traversable1.Class.Traversable1 a_111 + ) + +instance AST.Unmarshal.SymbolMatching AssignmentExpression where + matchedSymbols _ = [199] + showFailure _ node_112 = + "expected " + GHC.Base.<> ( "assignment_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_112 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_112) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_113 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_114 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_115 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_116 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_113 + c1_114 = TreeSitter.Node.nodeStartPoint node_112 + TreeSitter.Node.TSPoint + r2_115 + c2_116 = TreeSitter.Node.nodeEndPoint node_112 + +deriving instance GHC.Classes.Eq a_117 => GHC.Classes.Eq (AssignmentExpression a_117) + +deriving instance GHC.Classes.Ord a_118 => GHC.Classes.Ord (AssignmentExpression a_118) + +deriving instance GHC.Show.Show a_119 => GHC.Show.Show (AssignmentExpression a_119) + +instance AST.Unmarshal.Unmarshal AssignmentExpression + +instance Data.Foldable.Foldable AssignmentExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AssignmentExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AssignmentExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AssignmentPattern a = AssignmentPattern + { ann :: a, + left :: (AST.Parse.Err ((DestructuringPattern GHC.Generics.:+: ShorthandPropertyIdentifier) a)), + right :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_120. + AST.Traversable1.Class.Traversable1 a_120 + ) + +instance AST.Unmarshal.SymbolMatching AssignmentPattern where + matchedSymbols _ = [182] + showFailure _ node_121 = + "expected " + GHC.Base.<> ( "assignment_pattern" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_121 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_121) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_122 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_123 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_124 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_125 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_122 + c1_123 = TreeSitter.Node.nodeStartPoint node_121 + TreeSitter.Node.TSPoint + r2_124 + c2_125 = TreeSitter.Node.nodeEndPoint node_121 + +deriving instance GHC.Classes.Eq a_126 => GHC.Classes.Eq (AssignmentPattern a_126) + +deriving instance GHC.Classes.Ord a_127 => GHC.Classes.Ord (AssignmentPattern a_127) + +deriving instance GHC.Show.Show a_128 => GHC.Show.Show (AssignmentPattern a_128) + +instance AST.Unmarshal.Unmarshal AssignmentPattern + +instance Data.Foldable.Foldable AssignmentPattern where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AssignmentPattern where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AssignmentPattern where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AugmentedAssignmentExpression a = AugmentedAssignmentExpression + { ann :: a, + left :: (AST.Parse.Err ((Identifier GHC.Generics.:+: MemberExpression GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: SubscriptExpression) a)), + right :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_129. + AST.Traversable1.Class.Traversable1 a_129 + ) + +instance AST.Unmarshal.SymbolMatching AugmentedAssignmentExpression where + matchedSymbols _ = [200] + showFailure _ node_130 = + "expected " + GHC.Base.<> ( "augmented_assignment_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_130 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_130) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_131 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_132 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_133 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_134 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_131 + c1_132 = TreeSitter.Node.nodeStartPoint node_130 + TreeSitter.Node.TSPoint + r2_133 + c2_134 = TreeSitter.Node.nodeEndPoint node_130 + +deriving instance GHC.Classes.Eq a_135 => GHC.Classes.Eq (AugmentedAssignmentExpression a_135) + +deriving instance GHC.Classes.Ord a_136 => GHC.Classes.Ord (AugmentedAssignmentExpression a_136) + +deriving instance GHC.Show.Show a_137 => GHC.Show.Show (AugmentedAssignmentExpression a_137) + +instance AST.Unmarshal.Unmarshal AugmentedAssignmentExpression + +instance Data.Foldable.Foldable AugmentedAssignmentExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AugmentedAssignmentExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AugmentedAssignmentExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data AwaitExpression a = AwaitExpression + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_138. + AST.Traversable1.Class.Traversable1 a_138 + ) + +instance AST.Unmarshal.SymbolMatching AwaitExpression where + matchedSymbols _ = [196] + showFailure _ node_139 = + "expected " + GHC.Base.<> ( "await_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_139 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_139) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_140 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_141 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_142 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_143 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_140 + c1_141 = TreeSitter.Node.nodeStartPoint node_139 + TreeSitter.Node.TSPoint + r2_142 + c2_143 = TreeSitter.Node.nodeEndPoint node_139 + +deriving instance GHC.Classes.Eq a_144 => GHC.Classes.Eq (AwaitExpression a_144) + +deriving instance GHC.Classes.Ord a_145 => GHC.Classes.Ord (AwaitExpression a_145) + +deriving instance GHC.Show.Show a_146 => GHC.Show.Show (AwaitExpression a_146) + +instance AST.Unmarshal.Unmarshal AwaitExpression + +instance Data.Foldable.Foldable AwaitExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor AwaitExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable AwaitExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BinaryExpression a = BinaryExpression + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousBangEqual GHC.Generics.:+: AnonymousBangEqualEqual GHC.Generics.:+: AnonymousPercent GHC.Generics.:+: AnonymousAmpersand GHC.Generics.:+: AnonymousAmpersandAmpersand GHC.Generics.:+: AnonymousStar GHC.Generics.:+: AnonymousStarStar GHC.Generics.:+: AnonymousPlus GHC.Generics.:+: AnonymousMinus GHC.Generics.:+: AnonymousSlash GHC.Generics.:+: AnonymousLAngle GHC.Generics.:+: AnonymousLAngleLAngle GHC.Generics.:+: AnonymousLAngleEqual GHC.Generics.:+: AnonymousEqualEqual GHC.Generics.:+: AnonymousEqualEqualEqual GHC.Generics.:+: AnonymousRAngle GHC.Generics.:+: AnonymousRAngleEqual GHC.Generics.:+: AnonymousRAngleRAngle GHC.Generics.:+: AnonymousRAngleRAngleRAngle GHC.Generics.:+: AnonymousQuestionQuestion GHC.Generics.:+: AnonymousCaret GHC.Generics.:+: AnonymousIn GHC.Generics.:+: AnonymousInstanceof GHC.Generics.:+: AnonymousPipe GHC.Generics.:+: AnonymousPipePipe) a)), + left :: (AST.Parse.Err (Expression a)), + right :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_147. + AST.Traversable1.Class.Traversable1 a_147 + ) + +instance AST.Unmarshal.SymbolMatching BinaryExpression where + matchedSymbols _ = [204] + showFailure _ node_148 = + "expected " + GHC.Base.<> ( "binary_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_148 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_148) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_149 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_150 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_151 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_152 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_149 + c1_150 = TreeSitter.Node.nodeStartPoint node_148 + TreeSitter.Node.TSPoint + r2_151 + c2_152 = TreeSitter.Node.nodeEndPoint node_148 + +deriving instance GHC.Classes.Eq a_153 => GHC.Classes.Eq (BinaryExpression a_153) + +deriving instance GHC.Classes.Ord a_154 => GHC.Classes.Ord (BinaryExpression a_154) + +deriving instance GHC.Show.Show a_155 => GHC.Show.Show (BinaryExpression a_155) + +instance AST.Unmarshal.Unmarshal BinaryExpression + +instance Data.Foldable.Foldable BinaryExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BinaryExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BinaryExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data BreakStatement a = BreakStatement + { ann :: a, + label :: (GHC.Maybe.Maybe (AST.Parse.Err (StatementIdentifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_156. + AST.Traversable1.Class.Traversable1 a_156 + ) + +instance AST.Unmarshal.SymbolMatching BreakStatement where + matchedSymbols _ = [166] + showFailure _ node_157 = + "expected " + GHC.Base.<> ( "break_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_157 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_157) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_158 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_159 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_160 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_161 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_158 + c1_159 = TreeSitter.Node.nodeStartPoint node_157 + TreeSitter.Node.TSPoint + r2_160 + c2_161 = TreeSitter.Node.nodeEndPoint node_157 + +deriving instance GHC.Classes.Eq a_162 => GHC.Classes.Eq (BreakStatement a_162) + +deriving instance GHC.Classes.Ord a_163 => GHC.Classes.Ord (BreakStatement a_163) + +deriving instance GHC.Show.Show a_164 => GHC.Show.Show (BreakStatement a_164) + +instance AST.Unmarshal.Unmarshal BreakStatement + +instance Data.Foldable.Foldable BreakStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor BreakStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable BreakStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CallExpression a = CallExpression + { ann :: a, + function :: (AST.Parse.Err (Expression a)), + arguments :: (AST.Parse.Err ((Arguments GHC.Generics.:+: TemplateString) a)), + typeArguments :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeArguments a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_165. + AST.Traversable1.Class.Traversable1 a_165 + ) + +instance AST.Unmarshal.SymbolMatching CallExpression where + matchedSymbols _ = [194, 216] + showFailure _ node_166 = + "expected " + GHC.Base.<> ( "call_expression, call_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_166 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_166) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_167 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_168 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_169 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_170 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_167 + c1_168 = TreeSitter.Node.nodeStartPoint node_166 + TreeSitter.Node.TSPoint + r2_169 + c2_170 = TreeSitter.Node.nodeEndPoint node_166 + +deriving instance GHC.Classes.Eq a_171 => GHC.Classes.Eq (CallExpression a_171) + +deriving instance GHC.Classes.Ord a_172 => GHC.Classes.Ord (CallExpression a_172) + +deriving instance GHC.Show.Show a_173 => GHC.Show.Show (CallExpression a_173) + +instance AST.Unmarshal.Unmarshal CallExpression + +instance Data.Foldable.Foldable CallExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CallExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CallExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CallSignature a = CallSignature + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_174. + AST.Traversable1.Class.Traversable1 a_174 + ) + +instance AST.Unmarshal.SymbolMatching CallSignature where + matchedSymbols _ = [268] + showFailure _ node_175 = + "expected " + GHC.Base.<> ( "call_signature" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_175 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_175) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_176 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_177 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_178 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_179 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_176 + c1_177 = TreeSitter.Node.nodeStartPoint node_175 + TreeSitter.Node.TSPoint + r2_178 + c2_179 = TreeSitter.Node.nodeEndPoint node_175 + +deriving instance GHC.Classes.Eq a_180 => GHC.Classes.Eq (CallSignature a_180) + +deriving instance GHC.Classes.Ord a_181 => GHC.Classes.Ord (CallSignature a_181) + +deriving instance GHC.Show.Show a_182 => GHC.Show.Show (CallSignature a_182) + +instance AST.Unmarshal.Unmarshal CallSignature + +instance Data.Foldable.Foldable CallSignature where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CallSignature where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CallSignature where + traverse = AST.Traversable1.Class.traverseDefault1 + +data CatchClause a = CatchClause + { ann :: a, + body :: (AST.Parse.Err (StatementBlock a)), + parameter :: (GHC.Maybe.Maybe (AST.Parse.Err ((DestructuringPattern GHC.Generics.:+: Identifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_183. + AST.Traversable1.Class.Traversable1 a_183 + ) + +instance AST.Unmarshal.SymbolMatching CatchClause where + matchedSymbols _ = [176] + showFailure _ node_184 = + "expected " + GHC.Base.<> ( "catch_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_184 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_184) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_185 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_186 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_187 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_188 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_185 + c1_186 = TreeSitter.Node.nodeStartPoint node_184 + TreeSitter.Node.TSPoint + r2_187 + c2_188 = TreeSitter.Node.nodeEndPoint node_184 + +deriving instance GHC.Classes.Eq a_189 => GHC.Classes.Eq (CatchClause a_189) + +deriving instance GHC.Classes.Ord a_190 => GHC.Classes.Ord (CatchClause a_190) + +deriving instance GHC.Show.Show a_191 => GHC.Show.Show (CatchClause a_191) + +instance AST.Unmarshal.Unmarshal CatchClause + +instance Data.Foldable.Foldable CatchClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor CatchClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable CatchClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Class a = Class + { ann :: a, + decorator :: ([AST.Parse.Err (Decorator a)]), + body :: (AST.Parse.Err (ClassBody a)), + name :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeIdentifier a))), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ClassHeritage a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_192. + AST.Traversable1.Class.Traversable1 a_192 + ) + +instance AST.Unmarshal.SymbolMatching Class where + matchedSymbols _ = [185] + showFailure _ node_193 = + "expected " + GHC.Base.<> ( "class" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_193 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_193) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_194 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_195 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_196 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_197 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_194 + c1_195 = TreeSitter.Node.nodeStartPoint node_193 + TreeSitter.Node.TSPoint + r2_196 + c2_197 = TreeSitter.Node.nodeEndPoint node_193 + +deriving instance GHC.Classes.Eq a_198 => GHC.Classes.Eq (Class a_198) + +deriving instance GHC.Classes.Ord a_199 => GHC.Classes.Ord (Class a_199) + +deriving instance GHC.Show.Show a_200 => GHC.Show.Show (Class a_200) + +instance AST.Unmarshal.Unmarshal Class + +instance Data.Foldable.Foldable Class where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Class where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Class where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClassBody a = ClassBody + { ann :: a, + extraChildren :: ([AST.Parse.Err ((AbstractMethodSignature GHC.Generics.:+: Decorator GHC.Generics.:+: IndexSignature GHC.Generics.:+: MethodDefinition GHC.Generics.:+: MethodSignature GHC.Generics.:+: PublicFieldDefinition) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_201. + AST.Traversable1.Class.Traversable1 a_201 + ) + +instance AST.Unmarshal.SymbolMatching ClassBody where + matchedSymbols _ = [217] + showFailure _ node_202 = + "expected " + GHC.Base.<> ( "class_body" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_202 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_202) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_203 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_204 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_205 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_206 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_203 + c1_204 = TreeSitter.Node.nodeStartPoint node_202 + TreeSitter.Node.TSPoint + r2_205 + c2_206 = TreeSitter.Node.nodeEndPoint node_202 + +deriving instance GHC.Classes.Eq a_207 => GHC.Classes.Eq (ClassBody a_207) + +deriving instance GHC.Classes.Ord a_208 => GHC.Classes.Ord (ClassBody a_208) + +deriving instance GHC.Show.Show a_209 => GHC.Show.Show (ClassBody a_209) + +instance AST.Unmarshal.Unmarshal ClassBody + +instance Data.Foldable.Foldable ClassBody where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassBody where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassBody where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClassDeclaration a = ClassDeclaration + { ann :: a, + decorator :: ([AST.Parse.Err (Decorator a)]), + body :: (AST.Parse.Err (ClassBody a)), + name :: (AST.Parse.Err (TypeIdentifier a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ClassHeritage a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_210. + AST.Traversable1.Class.Traversable1 a_210 + ) + +instance AST.Unmarshal.SymbolMatching ClassDeclaration where + matchedSymbols _ = [186] + showFailure _ node_211 = + "expected " + GHC.Base.<> ( "class_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_211 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_211) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_212 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_213 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_214 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_215 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_212 + c1_213 = TreeSitter.Node.nodeStartPoint node_211 + TreeSitter.Node.TSPoint + r2_214 + c2_215 = TreeSitter.Node.nodeEndPoint node_211 + +deriving instance GHC.Classes.Eq a_216 => GHC.Classes.Eq (ClassDeclaration a_216) + +deriving instance GHC.Classes.Ord a_217 => GHC.Classes.Ord (ClassDeclaration a_217) + +deriving instance GHC.Show.Show a_218 => GHC.Show.Show (ClassDeclaration a_218) + +instance AST.Unmarshal.Unmarshal ClassDeclaration + +instance Data.Foldable.Foldable ClassDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ClassHeritage a = ClassHeritage + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ExtendsClause GHC.Generics.:+: ImplementsClause) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_219. + AST.Traversable1.Class.Traversable1 a_219 + ) + +instance AST.Unmarshal.SymbolMatching ClassHeritage where + matchedSymbols _ = [187] + showFailure _ node_220 = + "expected " + GHC.Base.<> ( "class_heritage" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_220 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_220) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_221 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_222 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_223 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_224 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_221 + c1_222 = TreeSitter.Node.nodeStartPoint node_220 + TreeSitter.Node.TSPoint + r2_223 + c2_224 = TreeSitter.Node.nodeEndPoint node_220 + +deriving instance GHC.Classes.Eq a_225 => GHC.Classes.Eq (ClassHeritage a_225) + +deriving instance GHC.Classes.Ord a_226 => GHC.Classes.Ord (ClassHeritage a_226) + +deriving instance GHC.Show.Show a_227 => GHC.Show.Show (ClassHeritage a_227) + +instance AST.Unmarshal.Unmarshal ClassHeritage + +instance Data.Foldable.Foldable ClassHeritage where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ClassHeritage where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ClassHeritage where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ComputedPropertyName a = ComputedPropertyName + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_228. + AST.Traversable1.Class.Traversable1 a_228 + ) + +instance AST.Unmarshal.SymbolMatching ComputedPropertyName where + matchedSymbols _ = [224] + showFailure _ node_229 = + "expected " + GHC.Base.<> ( "computed_property_name" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_229 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_229) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_230 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_231 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_232 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_233 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_230 + c1_231 = TreeSitter.Node.nodeStartPoint node_229 + TreeSitter.Node.TSPoint + r2_232 + c2_233 = TreeSitter.Node.nodeEndPoint node_229 + +deriving instance GHC.Classes.Eq a_234 => GHC.Classes.Eq (ComputedPropertyName a_234) + +deriving instance GHC.Classes.Ord a_235 => GHC.Classes.Ord (ComputedPropertyName a_235) + +deriving instance GHC.Show.Show a_236 => GHC.Show.Show (ComputedPropertyName a_236) + +instance AST.Unmarshal.Unmarshal ComputedPropertyName + +instance Data.Foldable.Foldable ComputedPropertyName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ComputedPropertyName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ComputedPropertyName where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Constraint a = Constraint + { ann :: a, + extraChildren :: (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_237. + AST.Traversable1.Class.Traversable1 a_237 + ) + +instance AST.Unmarshal.SymbolMatching Constraint where + matchedSymbols _ = [273] + showFailure _ node_238 = + "expected " + GHC.Base.<> ( "constraint" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_238 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_238) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_239 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_240 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_241 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_242 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_239 + c1_240 = TreeSitter.Node.nodeStartPoint node_238 + TreeSitter.Node.TSPoint + r2_241 + c2_242 = TreeSitter.Node.nodeEndPoint node_238 + +deriving instance GHC.Classes.Eq a_243 => GHC.Classes.Eq (Constraint a_243) + +deriving instance GHC.Classes.Ord a_244 => GHC.Classes.Ord (Constraint a_244) + +deriving instance GHC.Show.Show a_245 => GHC.Show.Show (Constraint a_245) + +instance AST.Unmarshal.Unmarshal Constraint + +instance Data.Foldable.Foldable Constraint where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Constraint where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Constraint where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ConstructSignature a = ConstructSignature + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((FormalParameters GHC.Generics.:+: TypeAnnotation GHC.Generics.:+: TypeParameters) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_246. + AST.Traversable1.Class.Traversable1 a_246 + ) + +instance AST.Unmarshal.SymbolMatching ConstructSignature where + matchedSymbols _ = [274] + showFailure _ node_247 = + "expected " + GHC.Base.<> ( "construct_signature" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_247 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_247) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_248 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_249 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_250 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_251 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_248 + c1_249 = TreeSitter.Node.nodeStartPoint node_247 + TreeSitter.Node.TSPoint + r2_250 + c2_251 = TreeSitter.Node.nodeEndPoint node_247 + +deriving instance GHC.Classes.Eq a_252 => GHC.Classes.Eq (ConstructSignature a_252) + +deriving instance GHC.Classes.Ord a_253 => GHC.Classes.Ord (ConstructSignature a_253) + +deriving instance GHC.Show.Show a_254 => GHC.Show.Show (ConstructSignature a_254) + +instance AST.Unmarshal.Unmarshal ConstructSignature + +instance Data.Foldable.Foldable ConstructSignature where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ConstructSignature where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ConstructSignature where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ConstructorType a = ConstructorType + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FormalParameters GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypeParameters GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_255. + AST.Traversable1.Class.Traversable1 a_255 + ) + +instance AST.Unmarshal.SymbolMatching ConstructorType where + matchedSymbols _ = [252] + showFailure _ node_256 = + "expected " + GHC.Base.<> ( "constructor_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_256 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_256) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_257 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_258 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_259 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_260 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_257 + c1_258 = TreeSitter.Node.nodeStartPoint node_256 + TreeSitter.Node.TSPoint + r2_259 + c2_260 = TreeSitter.Node.nodeEndPoint node_256 + +deriving instance GHC.Classes.Eq a_261 => GHC.Classes.Eq (ConstructorType a_261) + +deriving instance GHC.Classes.Ord a_262 => GHC.Classes.Ord (ConstructorType a_262) + +deriving instance GHC.Show.Show a_263 => GHC.Show.Show (ConstructorType a_263) + +instance AST.Unmarshal.Unmarshal ConstructorType + +instance Data.Foldable.Foldable ConstructorType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ConstructorType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ConstructorType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ContinueStatement a = ContinueStatement + { ann :: a, + label :: (GHC.Maybe.Maybe (AST.Parse.Err (StatementIdentifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_264. + AST.Traversable1.Class.Traversable1 a_264 + ) + +instance AST.Unmarshal.SymbolMatching ContinueStatement where + matchedSymbols _ = [167] + showFailure _ node_265 = + "expected " + GHC.Base.<> ( "continue_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_265 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_265) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_266 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_267 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_268 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_269 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_266 + c1_267 = TreeSitter.Node.nodeStartPoint node_265 + TreeSitter.Node.TSPoint + r2_268 + c2_269 = TreeSitter.Node.nodeEndPoint node_265 + +deriving instance GHC.Classes.Eq a_270 => GHC.Classes.Eq (ContinueStatement a_270) + +deriving instance GHC.Classes.Ord a_271 => GHC.Classes.Ord (ContinueStatement a_271) + +deriving instance GHC.Show.Show a_272 => GHC.Show.Show (ContinueStatement a_272) + +instance AST.Unmarshal.Unmarshal ContinueStatement + +instance Data.Foldable.Foldable ContinueStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ContinueStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ContinueStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DebuggerStatement a = DebuggerStatement {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_273. + AST.Traversable1.Class.Traversable1 a_273 + ) + +instance AST.Unmarshal.SymbolMatching DebuggerStatement where + matchedSymbols _ = [168] + showFailure _ node_274 = + "expected " + GHC.Base.<> ( "debugger_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_274 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_274) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_275 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_276 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_277 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_278 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_275 + c1_276 = TreeSitter.Node.nodeStartPoint node_274 + TreeSitter.Node.TSPoint + r2_277 + c2_278 = TreeSitter.Node.nodeEndPoint node_274 + +deriving instance GHC.Classes.Eq a_279 => GHC.Classes.Eq (DebuggerStatement a_279) + +deriving instance GHC.Classes.Ord a_280 => GHC.Classes.Ord (DebuggerStatement a_280) + +deriving instance GHC.Show.Show a_281 => GHC.Show.Show (DebuggerStatement a_281) + +instance AST.Unmarshal.Unmarshal DebuggerStatement + +instance Data.Foldable.Foldable DebuggerStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DebuggerStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DebuggerStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Decorator a = Decorator + { ann :: a, + extraChildren :: (AST.Parse.Err ((CallExpression GHC.Generics.:+: Identifier GHC.Generics.:+: MemberExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_282. + AST.Traversable1.Class.Traversable1 a_282 + ) + +instance AST.Unmarshal.SymbolMatching Decorator where + matchedSymbols _ = [214] + showFailure _ node_283 = + "expected " + GHC.Base.<> ( "decorator" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_283 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_283) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_284 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_285 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_286 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_287 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_284 + c1_285 = TreeSitter.Node.nodeStartPoint node_283 + TreeSitter.Node.TSPoint + r2_286 + c2_287 = TreeSitter.Node.nodeEndPoint node_283 + +deriving instance GHC.Classes.Eq a_288 => GHC.Classes.Eq (Decorator a_288) + +deriving instance GHC.Classes.Ord a_289 => GHC.Classes.Ord (Decorator a_289) + +deriving instance GHC.Show.Show a_290 => GHC.Show.Show (Decorator a_290) + +instance AST.Unmarshal.Unmarshal Decorator + +instance Data.Foldable.Foldable Decorator where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Decorator where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Decorator where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DefaultType a = DefaultType + { ann :: a, + extraChildren :: (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_291. + AST.Traversable1.Class.Traversable1 a_291 + ) + +instance AST.Unmarshal.SymbolMatching DefaultType where + matchedSymbols _ = [272] + showFailure _ node_292 = + "expected " + GHC.Base.<> ( "default_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_292 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_292) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_293 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_294 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_295 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_296 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_293 + c1_294 = TreeSitter.Node.nodeStartPoint node_292 + TreeSitter.Node.TSPoint + r2_295 + c2_296 = TreeSitter.Node.nodeEndPoint node_292 + +deriving instance GHC.Classes.Eq a_297 => GHC.Classes.Eq (DefaultType a_297) + +deriving instance GHC.Classes.Ord a_298 => GHC.Classes.Ord (DefaultType a_298) + +deriving instance GHC.Show.Show a_299 => GHC.Show.Show (DefaultType a_299) + +instance AST.Unmarshal.Unmarshal DefaultType + +instance Data.Foldable.Foldable DefaultType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DefaultType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DefaultType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data DoStatement a = DoStatement + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + condition :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_300. + AST.Traversable1.Class.Traversable1 a_300 + ) + +instance AST.Unmarshal.SymbolMatching DoStatement where + matchedSymbols _ = [163] + showFailure _ node_301 = + "expected " + GHC.Base.<> ( "do_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_301 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_301) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_302 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_303 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_304 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_305 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_302 + c1_303 = TreeSitter.Node.nodeStartPoint node_301 + TreeSitter.Node.TSPoint + r2_304 + c2_305 = TreeSitter.Node.nodeEndPoint node_301 + +deriving instance GHC.Classes.Eq a_306 => GHC.Classes.Eq (DoStatement a_306) + +deriving instance GHC.Classes.Ord a_307 => GHC.Classes.Ord (DoStatement a_307) + +deriving instance GHC.Show.Show a_308 => GHC.Show.Show (DoStatement a_308) + +instance AST.Unmarshal.Unmarshal DoStatement + +instance Data.Foldable.Foldable DoStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor DoStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable DoStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EmptyStatement a = EmptyStatement {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_309. + AST.Traversable1.Class.Traversable1 a_309 + ) + +instance AST.Unmarshal.SymbolMatching EmptyStatement where + matchedSymbols _ = [171] + showFailure _ node_310 = + "expected " + GHC.Base.<> ( "empty_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_310 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_310) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_311 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_312 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_313 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_314 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_311 + c1_312 = TreeSitter.Node.nodeStartPoint node_310 + TreeSitter.Node.TSPoint + r2_313 + c2_314 = TreeSitter.Node.nodeEndPoint node_310 + +deriving instance GHC.Classes.Eq a_315 => GHC.Classes.Eq (EmptyStatement a_315) + +deriving instance GHC.Classes.Ord a_316 => GHC.Classes.Ord (EmptyStatement a_316) + +deriving instance GHC.Show.Show a_317 => GHC.Show.Show (EmptyStatement a_317) + +instance AST.Unmarshal.Unmarshal EmptyStatement + +instance Data.Foldable.Foldable EmptyStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EmptyStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EmptyStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EnumAssignment a = EnumAssignment + { ann :: a, + value :: (AST.Parse.Err (Expression a)), + extraChildren :: (AST.Parse.Err ((ComputedPropertyName GHC.Generics.:+: Number GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_318. + AST.Traversable1.Class.Traversable1 a_318 + ) + +instance AST.Unmarshal.SymbolMatching EnumAssignment where + matchedSymbols _ = [244] + showFailure _ node_319 = + "expected " + GHC.Base.<> ( "enum_assignment" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_319 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_319) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_320 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_321 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_322 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_323 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_320 + c1_321 = TreeSitter.Node.nodeStartPoint node_319 + TreeSitter.Node.TSPoint + r2_322 + c2_323 = TreeSitter.Node.nodeEndPoint node_319 + +deriving instance GHC.Classes.Eq a_324 => GHC.Classes.Eq (EnumAssignment a_324) + +deriving instance GHC.Classes.Ord a_325 => GHC.Classes.Ord (EnumAssignment a_325) + +deriving instance GHC.Show.Show a_326 => GHC.Show.Show (EnumAssignment a_326) + +instance AST.Unmarshal.Unmarshal EnumAssignment + +instance Data.Foldable.Foldable EnumAssignment where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EnumAssignment where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EnumAssignment where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EnumBody a = EnumBody + { ann :: a, + extraChildren :: ([AST.Parse.Err ((ComputedPropertyName GHC.Generics.:+: EnumAssignment GHC.Generics.:+: Number GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_327. + AST.Traversable1.Class.Traversable1 a_327 + ) + +instance AST.Unmarshal.SymbolMatching EnumBody where + matchedSymbols _ = [243] + showFailure _ node_328 = + "expected " + GHC.Base.<> ( "enum_body" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_328 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_328) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_329 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_330 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_331 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_332 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_329 + c1_330 = TreeSitter.Node.nodeStartPoint node_328 + TreeSitter.Node.TSPoint + r2_331 + c2_332 = TreeSitter.Node.nodeEndPoint node_328 + +deriving instance GHC.Classes.Eq a_333 => GHC.Classes.Eq (EnumBody a_333) + +deriving instance GHC.Classes.Ord a_334 => GHC.Classes.Ord (EnumBody a_334) + +deriving instance GHC.Show.Show a_335 => GHC.Show.Show (EnumBody a_335) + +instance AST.Unmarshal.Unmarshal EnumBody + +instance Data.Foldable.Foldable EnumBody where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EnumBody where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EnumBody where + traverse = AST.Traversable1.Class.traverseDefault1 + +data EnumDeclaration a = EnumDeclaration + { ann :: a, + body :: (AST.Parse.Err (EnumBody a)), + name :: (AST.Parse.Err (Identifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_336. + AST.Traversable1.Class.Traversable1 a_336 + ) + +instance AST.Unmarshal.SymbolMatching EnumDeclaration where + matchedSymbols _ = [242] + showFailure _ node_337 = + "expected " + GHC.Base.<> ( "enum_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_337 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_337) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_338 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_339 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_340 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_341 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_338 + c1_339 = TreeSitter.Node.nodeStartPoint node_337 + TreeSitter.Node.TSPoint + r2_340 + c2_341 = TreeSitter.Node.nodeEndPoint node_337 + +deriving instance GHC.Classes.Eq a_342 => GHC.Classes.Eq (EnumDeclaration a_342) + +deriving instance GHC.Classes.Ord a_343 => GHC.Classes.Ord (EnumDeclaration a_343) + +deriving instance GHC.Show.Show a_344 => GHC.Show.Show (EnumDeclaration a_344) + +instance AST.Unmarshal.Unmarshal EnumDeclaration + +instance Data.Foldable.Foldable EnumDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EnumDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EnumDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExistentialType a = ExistentialType {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_345. + AST.Traversable1.Class.Traversable1 a_345 + ) + +instance AST.Unmarshal.SymbolMatching ExistentialType where + matchedSymbols _ = [262] + showFailure _ node_346 = + "expected " + GHC.Base.<> ( "existential_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_346 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_346) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_347 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_348 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_349 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_350 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_347 + c1_348 = TreeSitter.Node.nodeStartPoint node_346 + TreeSitter.Node.TSPoint + r2_349 + c2_350 = TreeSitter.Node.nodeEndPoint node_346 + +deriving instance GHC.Classes.Eq a_351 => GHC.Classes.Eq (ExistentialType a_351) + +deriving instance GHC.Classes.Ord a_352 => GHC.Classes.Ord (ExistentialType a_352) + +deriving instance GHC.Show.Show a_353 => GHC.Show.Show (ExistentialType a_353) + +instance AST.Unmarshal.Unmarshal ExistentialType + +instance Data.Foldable.Foldable ExistentialType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExistentialType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExistentialType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExportClause a = ExportClause + { ann :: a, + extraChildren :: ([AST.Parse.Err (ExportSpecifier a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_354. + AST.Traversable1.Class.Traversable1 a_354 + ) + +instance AST.Unmarshal.SymbolMatching ExportClause where + matchedSymbols _ = [143] + showFailure _ node_355 = + "expected " + GHC.Base.<> ( "export_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_355 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_355) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_356 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_357 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_358 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_359 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_356 + c1_357 = TreeSitter.Node.nodeStartPoint node_355 + TreeSitter.Node.TSPoint + r2_358 + c2_359 = TreeSitter.Node.nodeEndPoint node_355 + +deriving instance GHC.Classes.Eq a_360 => GHC.Classes.Eq (ExportClause a_360) + +deriving instance GHC.Classes.Ord a_361 => GHC.Classes.Ord (ExportClause a_361) + +deriving instance GHC.Show.Show a_362 => GHC.Show.Show (ExportClause a_362) + +instance AST.Unmarshal.Unmarshal ExportClause + +instance Data.Foldable.Foldable ExportClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExportClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExportClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExportSpecifier a = ExportSpecifier + { ann :: a, + alias :: (GHC.Maybe.Maybe (AST.Parse.Err (Identifier a))), + name :: (AST.Parse.Err (Identifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_363. + AST.Traversable1.Class.Traversable1 a_363 + ) + +instance AST.Unmarshal.SymbolMatching ExportSpecifier where + matchedSymbols _ = [300] + showFailure _ node_364 = + "expected " + GHC.Base.<> ( "export_specifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_364 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_364) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_365 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_366 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_367 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_368 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_365 + c1_366 = TreeSitter.Node.nodeStartPoint node_364 + TreeSitter.Node.TSPoint + r2_367 + c2_368 = TreeSitter.Node.nodeEndPoint node_364 + +deriving instance GHC.Classes.Eq a_369 => GHC.Classes.Eq (ExportSpecifier a_369) + +deriving instance GHC.Classes.Ord a_370 => GHC.Classes.Ord (ExportSpecifier a_370) + +deriving instance GHC.Show.Show a_371 => GHC.Show.Show (ExportSpecifier a_371) + +instance AST.Unmarshal.Unmarshal ExportSpecifier + +instance Data.Foldable.Foldable ExportSpecifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExportSpecifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExportSpecifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExportStatement a = ExportStatement + { ann :: a, + decorator :: ([AST.Parse.Err (Decorator a)]), + declaration :: (GHC.Maybe.Maybe (AST.Parse.Err (Declaration a))), + value :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + source :: (GHC.Maybe.Maybe (AST.Parse.Err (String a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err ((ExportClause GHC.Generics.:+: Identifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_372. + AST.Traversable1.Class.Traversable1 a_372 + ) + +instance AST.Unmarshal.SymbolMatching ExportStatement where + matchedSymbols _ = [142] + showFailure _ node_373 = + "expected " + GHC.Base.<> ( "export_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_373 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_373) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_374 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_375 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_376 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_377 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_374 + c1_375 = TreeSitter.Node.nodeStartPoint node_373 + TreeSitter.Node.TSPoint + r2_376 + c2_377 = TreeSitter.Node.nodeEndPoint node_373 + +deriving instance GHC.Classes.Eq a_378 => GHC.Classes.Eq (ExportStatement a_378) + +deriving instance GHC.Classes.Ord a_379 => GHC.Classes.Ord (ExportStatement a_379) + +deriving instance GHC.Show.Show a_380 => GHC.Show.Show (ExportStatement a_380) + +instance AST.Unmarshal.Unmarshal ExportStatement + +instance Data.Foldable.Foldable ExportStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExportStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExportStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExpressionStatement a = ExpressionStatement + { ann :: a, + extraChildren :: (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_381. + AST.Traversable1.Class.Traversable1 a_381 + ) + +instance AST.Unmarshal.SymbolMatching ExpressionStatement where + matchedSymbols _ = [152] + showFailure _ node_382 = + "expected " + GHC.Base.<> ( "expression_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_382 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_382) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_383 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_384 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_385 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_386 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_383 + c1_384 = TreeSitter.Node.nodeStartPoint node_382 + TreeSitter.Node.TSPoint + r2_385 + c2_386 = TreeSitter.Node.nodeEndPoint node_382 + +deriving instance GHC.Classes.Eq a_387 => GHC.Classes.Eq (ExpressionStatement a_387) + +deriving instance GHC.Classes.Ord a_388 => GHC.Classes.Ord (ExpressionStatement a_388) + +deriving instance GHC.Show.Show a_389 => GHC.Show.Show (ExpressionStatement a_389) + +instance AST.Unmarshal.Unmarshal ExpressionStatement + +instance Data.Foldable.Foldable ExpressionStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExpressionStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExpressionStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ExtendsClause a = ExtendsClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: GenericType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: TypeIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_390. + AST.Traversable1.Class.Traversable1 a_390 + ) + +instance AST.Unmarshal.SymbolMatching ExtendsClause where + matchedSymbols _ = [241] + showFailure _ node_391 = + "expected " + GHC.Base.<> ( "extends_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_391 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_391) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_392 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_393 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_394 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_395 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_392 + c1_393 = TreeSitter.Node.nodeStartPoint node_391 + TreeSitter.Node.TSPoint + r2_394 + c2_395 = TreeSitter.Node.nodeEndPoint node_391 + +deriving instance GHC.Classes.Eq a_396 => GHC.Classes.Eq (ExtendsClause a_396) + +deriving instance GHC.Classes.Ord a_397 => GHC.Classes.Ord (ExtendsClause a_397) + +deriving instance GHC.Show.Show a_398 => GHC.Show.Show (ExtendsClause a_398) + +instance AST.Unmarshal.Unmarshal ExtendsClause + +instance Data.Foldable.Foldable ExtendsClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ExtendsClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ExtendsClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FinallyClause a = FinallyClause + { ann :: a, + body :: (AST.Parse.Err (StatementBlock a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_399. + AST.Traversable1.Class.Traversable1 a_399 + ) + +instance AST.Unmarshal.SymbolMatching FinallyClause where + matchedSymbols _ = [177] + showFailure _ node_400 = + "expected " + GHC.Base.<> ( "finally_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_400 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_400) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_401 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_402 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_403 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_404 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_401 + c1_402 = TreeSitter.Node.nodeStartPoint node_400 + TreeSitter.Node.TSPoint + r2_403 + c2_404 = TreeSitter.Node.nodeEndPoint node_400 + +deriving instance GHC.Classes.Eq a_405 => GHC.Classes.Eq (FinallyClause a_405) + +deriving instance GHC.Classes.Ord a_406 => GHC.Classes.Ord (FinallyClause a_406) + +deriving instance GHC.Show.Show a_407 => GHC.Show.Show (FinallyClause a_407) + +instance AST.Unmarshal.Unmarshal FinallyClause + +instance Data.Foldable.Foldable FinallyClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FinallyClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FinallyClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FlowMaybeType a = FlowMaybeType + { ann :: a, + extraChildren :: (AST.Parse.Err ((ArrayType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_408. + AST.Traversable1.Class.Traversable1 a_408 + ) + +instance AST.Unmarshal.SymbolMatching FlowMaybeType where + matchedSymbols _ = [263] + showFailure _ node_409 = + "expected " + GHC.Base.<> ( "flow_maybe_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_409 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_409) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_410 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_411 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_412 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_413 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_410 + c1_411 = TreeSitter.Node.nodeStartPoint node_409 + TreeSitter.Node.TSPoint + r2_412 + c2_413 = TreeSitter.Node.nodeEndPoint node_409 + +deriving instance GHC.Classes.Eq a_414 => GHC.Classes.Eq (FlowMaybeType a_414) + +deriving instance GHC.Classes.Ord a_415 => GHC.Classes.Ord (FlowMaybeType a_415) + +deriving instance GHC.Show.Show a_416 => GHC.Show.Show (FlowMaybeType a_416) + +instance AST.Unmarshal.Unmarshal FlowMaybeType + +instance Data.Foldable.Foldable FlowMaybeType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FlowMaybeType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FlowMaybeType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ForInStatement a = ForInStatement + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + left :: (AST.Parse.Err ((DestructuringPattern GHC.Generics.:+: Identifier GHC.Generics.:+: MemberExpression GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: SubscriptExpression) a)), + right :: (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_417. + AST.Traversable1.Class.Traversable1 a_417 + ) + +instance AST.Unmarshal.SymbolMatching ForInStatement where + matchedSymbols _ = [160] + showFailure _ node_418 = + "expected " + GHC.Base.<> ( "for_in_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_418 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_418) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_419 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_420 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_421 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_422 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_419 + c1_420 = TreeSitter.Node.nodeStartPoint node_418 + TreeSitter.Node.TSPoint + r2_421 + c2_422 = TreeSitter.Node.nodeEndPoint node_418 + +deriving instance GHC.Classes.Eq a_423 => GHC.Classes.Eq (ForInStatement a_423) + +deriving instance GHC.Classes.Ord a_424 => GHC.Classes.Ord (ForInStatement a_424) + +deriving instance GHC.Show.Show a_425 => GHC.Show.Show (ForInStatement a_425) + +instance AST.Unmarshal.Unmarshal ForInStatement + +instance Data.Foldable.Foldable ForInStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ForInStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ForInStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ForStatement a = ForStatement + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + initializer :: (AST.Parse.Err ((EmptyStatement GHC.Generics.:+: ExpressionStatement GHC.Generics.:+: LexicalDeclaration GHC.Generics.:+: VariableDeclaration) a)), + condition :: (AST.Parse.Err ((EmptyStatement GHC.Generics.:+: ExpressionStatement) a)), + increment :: (GHC.Maybe.Maybe (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_426. + AST.Traversable1.Class.Traversable1 a_426 + ) + +instance AST.Unmarshal.SymbolMatching ForStatement where + matchedSymbols _ = [159] + showFailure _ node_427 = + "expected " + GHC.Base.<> ( "for_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_427 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_427) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_428 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_429 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_430 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_431 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_428 + c1_429 = TreeSitter.Node.nodeStartPoint node_427 + TreeSitter.Node.TSPoint + r2_430 + c2_431 = TreeSitter.Node.nodeEndPoint node_427 + +deriving instance GHC.Classes.Eq a_432 => GHC.Classes.Eq (ForStatement a_432) + +deriving instance GHC.Classes.Ord a_433 => GHC.Classes.Ord (ForStatement a_433) + +deriving instance GHC.Show.Show a_434 => GHC.Show.Show (ForStatement a_434) + +instance AST.Unmarshal.Unmarshal ForStatement + +instance Data.Foldable.Foldable ForStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ForStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ForStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FormalParameters a = FormalParameters + { ann :: a, + decorator :: ([AST.Parse.Err (Decorator a)]), + extraChildren :: ([AST.Parse.Err ((OptionalParameter GHC.Generics.:+: RequiredParameter GHC.Generics.:+: RestParameter) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_435. + AST.Traversable1.Class.Traversable1 a_435 + ) + +instance AST.Unmarshal.SymbolMatching FormalParameters where + matchedSymbols _ = [219] + showFailure _ node_436 = + "expected " + GHC.Base.<> ( "formal_parameters" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_436 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_436) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_437 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_438 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_439 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_440 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_437 + c1_438 = TreeSitter.Node.nodeStartPoint node_436 + TreeSitter.Node.TSPoint + r2_439 + c2_440 = TreeSitter.Node.nodeEndPoint node_436 + +deriving instance GHC.Classes.Eq a_441 => GHC.Classes.Eq (FormalParameters a_441) + +deriving instance GHC.Classes.Ord a_442 => GHC.Classes.Ord (FormalParameters a_442) + +deriving instance GHC.Show.Show a_443 => GHC.Show.Show (FormalParameters a_443) + +instance AST.Unmarshal.Unmarshal FormalParameters + +instance Data.Foldable.Foldable FormalParameters where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FormalParameters where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FormalParameters where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Function a = Function + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + body :: (AST.Parse.Err (StatementBlock a)), + name :: (GHC.Maybe.Maybe (AST.Parse.Err (Identifier a))), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_444. + AST.Traversable1.Class.Traversable1 a_444 + ) + +instance AST.Unmarshal.SymbolMatching Function where + matchedSymbols _ = [188] + showFailure _ node_445 = + "expected " + GHC.Base.<> ( "function" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_445 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_445) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_446 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_447 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_448 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_449 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_446 + c1_447 = TreeSitter.Node.nodeStartPoint node_445 + TreeSitter.Node.TSPoint + r2_448 + c2_449 = TreeSitter.Node.nodeEndPoint node_445 + +deriving instance GHC.Classes.Eq a_450 => GHC.Classes.Eq (Function a_450) + +deriving instance GHC.Classes.Ord a_451 => GHC.Classes.Ord (Function a_451) + +deriving instance GHC.Show.Show a_452 => GHC.Show.Show (Function a_452) + +instance AST.Unmarshal.Unmarshal Function + +instance Data.Foldable.Foldable Function where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Function where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Function where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FunctionDeclaration a = FunctionDeclaration + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + body :: (AST.Parse.Err (StatementBlock a)), + name :: (AST.Parse.Err (Identifier a)), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_453. + AST.Traversable1.Class.Traversable1 a_453 + ) + +instance AST.Unmarshal.SymbolMatching FunctionDeclaration where + matchedSymbols _ = [189] + showFailure _ node_454 = + "expected " + GHC.Base.<> ( "function_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_454 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_454) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_455 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_456 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_457 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_458 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_455 + c1_456 = TreeSitter.Node.nodeStartPoint node_454 + TreeSitter.Node.TSPoint + r2_457 + c2_458 = TreeSitter.Node.nodeEndPoint node_454 + +deriving instance GHC.Classes.Eq a_459 => GHC.Classes.Eq (FunctionDeclaration a_459) + +deriving instance GHC.Classes.Ord a_460 => GHC.Classes.Ord (FunctionDeclaration a_460) + +deriving instance GHC.Show.Show a_461 => GHC.Show.Show (FunctionDeclaration a_461) + +instance AST.Unmarshal.Unmarshal FunctionDeclaration + +instance Data.Foldable.Foldable FunctionDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FunctionDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FunctionDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FunctionSignature a = FunctionSignature + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + name :: (AST.Parse.Err (Identifier a)), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_462. + AST.Traversable1.Class.Traversable1 a_462 + ) + +instance AST.Unmarshal.SymbolMatching FunctionSignature where + matchedSymbols _ = [228] + showFailure _ node_463 = + "expected " + GHC.Base.<> ( "function_signature" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_463 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_463) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_464 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_465 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_466 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_467 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_464 + c1_465 = TreeSitter.Node.nodeStartPoint node_463 + TreeSitter.Node.TSPoint + r2_466 + c2_467 = TreeSitter.Node.nodeEndPoint node_463 + +deriving instance GHC.Classes.Eq a_468 => GHC.Classes.Eq (FunctionSignature a_468) + +deriving instance GHC.Classes.Ord a_469 => GHC.Classes.Ord (FunctionSignature a_469) + +deriving instance GHC.Show.Show a_470 => GHC.Show.Show (FunctionSignature a_470) + +instance AST.Unmarshal.Unmarshal FunctionSignature + +instance Data.Foldable.Foldable FunctionSignature where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FunctionSignature where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FunctionSignature where + traverse = AST.Traversable1.Class.traverseDefault1 + +data FunctionType a = FunctionType + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FormalParameters GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypeParameters GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_471. + AST.Traversable1.Class.Traversable1 a_471 + ) + +instance AST.Unmarshal.SymbolMatching FunctionType where + matchedSymbols _ = [280] + showFailure _ node_472 = + "expected " + GHC.Base.<> ( "function_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_472 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_472) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_473 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_474 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_475 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_476 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_473 + c1_474 = TreeSitter.Node.nodeStartPoint node_472 + TreeSitter.Node.TSPoint + r2_475 + c2_476 = TreeSitter.Node.nodeEndPoint node_472 + +deriving instance GHC.Classes.Eq a_477 => GHC.Classes.Eq (FunctionType a_477) + +deriving instance GHC.Classes.Ord a_478 => GHC.Classes.Ord (FunctionType a_478) + +deriving instance GHC.Show.Show a_479 => GHC.Show.Show (FunctionType a_479) + +instance AST.Unmarshal.Unmarshal FunctionType + +instance Data.Foldable.Foldable FunctionType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor FunctionType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable FunctionType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data GeneratorFunction a = GeneratorFunction + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + body :: (AST.Parse.Err (StatementBlock a)), + name :: (GHC.Maybe.Maybe (AST.Parse.Err (Identifier a))), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_480. + AST.Traversable1.Class.Traversable1 a_480 + ) + +instance AST.Unmarshal.SymbolMatching GeneratorFunction where + matchedSymbols _ = [190] + showFailure _ node_481 = + "expected " + GHC.Base.<> ( "generator_function" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_481 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_481) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_482 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_483 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_484 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_485 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_482 + c1_483 = TreeSitter.Node.nodeStartPoint node_481 + TreeSitter.Node.TSPoint + r2_484 + c2_485 = TreeSitter.Node.nodeEndPoint node_481 + +deriving instance GHC.Classes.Eq a_486 => GHC.Classes.Eq (GeneratorFunction a_486) + +deriving instance GHC.Classes.Ord a_487 => GHC.Classes.Ord (GeneratorFunction a_487) + +deriving instance GHC.Show.Show a_488 => GHC.Show.Show (GeneratorFunction a_488) + +instance AST.Unmarshal.Unmarshal GeneratorFunction + +instance Data.Foldable.Foldable GeneratorFunction where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor GeneratorFunction where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable GeneratorFunction where + traverse = AST.Traversable1.Class.traverseDefault1 + +data GeneratorFunctionDeclaration a = GeneratorFunctionDeclaration + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + body :: (AST.Parse.Err (StatementBlock a)), + name :: (AST.Parse.Err (Identifier a)), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_489. + AST.Traversable1.Class.Traversable1 a_489 + ) + +instance AST.Unmarshal.SymbolMatching GeneratorFunctionDeclaration where + matchedSymbols _ = [191] + showFailure _ node_490 = + "expected " + GHC.Base.<> ( "generator_function_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_490 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_490) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_491 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_492 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_493 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_494 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_491 + c1_492 = TreeSitter.Node.nodeStartPoint node_490 + TreeSitter.Node.TSPoint + r2_493 + c2_494 = TreeSitter.Node.nodeEndPoint node_490 + +deriving instance GHC.Classes.Eq a_495 => GHC.Classes.Eq (GeneratorFunctionDeclaration a_495) + +deriving instance GHC.Classes.Ord a_496 => GHC.Classes.Ord (GeneratorFunctionDeclaration a_496) + +deriving instance GHC.Show.Show a_497 => GHC.Show.Show (GeneratorFunctionDeclaration a_497) + +instance AST.Unmarshal.Unmarshal GeneratorFunctionDeclaration + +instance Data.Foldable.Foldable GeneratorFunctionDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor GeneratorFunctionDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable GeneratorFunctionDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data GenericType a = GenericType + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((NestedTypeIdentifier GHC.Generics.:+: TypeArguments GHC.Generics.:+: TypeIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_498. + AST.Traversable1.Class.Traversable1 a_498 + ) + +instance AST.Unmarshal.SymbolMatching GenericType where + matchedSymbols _ = [254] + showFailure _ node_499 = + "expected " + GHC.Base.<> ( "generic_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_499 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_499) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_500 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_501 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_502 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_503 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_500 + c1_501 = TreeSitter.Node.nodeStartPoint node_499 + TreeSitter.Node.TSPoint + r2_502 + c2_503 = TreeSitter.Node.nodeEndPoint node_499 + +deriving instance GHC.Classes.Eq a_504 => GHC.Classes.Eq (GenericType a_504) + +deriving instance GHC.Classes.Ord a_505 => GHC.Classes.Ord (GenericType a_505) + +deriving instance GHC.Show.Show a_506 => GHC.Show.Show (GenericType a_506) + +instance AST.Unmarshal.Unmarshal GenericType + +instance Data.Foldable.Foldable GenericType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor GenericType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable GenericType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IfStatement a = IfStatement + { ann :: a, + alternative :: (GHC.Maybe.Maybe (AST.Parse.Err (Statement a))), + consequence :: (AST.Parse.Err (Statement a)), + condition :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_507. + AST.Traversable1.Class.Traversable1 a_507 + ) + +instance AST.Unmarshal.SymbolMatching IfStatement where + matchedSymbols _ = [157] + showFailure _ node_508 = + "expected " + GHC.Base.<> ( "if_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_508 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_508) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_509 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_510 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_511 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_512 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_509 + c1_510 = TreeSitter.Node.nodeStartPoint node_508 + TreeSitter.Node.TSPoint + r2_511 + c2_512 = TreeSitter.Node.nodeEndPoint node_508 + +deriving instance GHC.Classes.Eq a_513 => GHC.Classes.Eq (IfStatement a_513) + +deriving instance GHC.Classes.Ord a_514 => GHC.Classes.Ord (IfStatement a_514) + +deriving instance GHC.Show.Show a_515 => GHC.Show.Show (IfStatement a_515) + +instance AST.Unmarshal.Unmarshal IfStatement + +instance Data.Foldable.Foldable IfStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IfStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IfStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImplementsClause a = ImplementsClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_516. + AST.Traversable1.Class.Traversable1 a_516 + ) + +instance AST.Unmarshal.SymbolMatching ImplementsClause where + matchedSymbols _ = [232] + showFailure _ node_517 = + "expected " + GHC.Base.<> ( "implements_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_517 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_517) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_518 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_519 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_520 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_521 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_518 + c1_519 = TreeSitter.Node.nodeStartPoint node_517 + TreeSitter.Node.TSPoint + r2_520 + c2_521 = TreeSitter.Node.nodeEndPoint node_517 + +deriving instance GHC.Classes.Eq a_522 => GHC.Classes.Eq (ImplementsClause a_522) + +deriving instance GHC.Classes.Ord a_523 => GHC.Classes.Ord (ImplementsClause a_523) + +deriving instance GHC.Show.Show a_524 => GHC.Show.Show (ImplementsClause a_524) + +instance AST.Unmarshal.Unmarshal ImplementsClause + +instance Data.Foldable.Foldable ImplementsClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImplementsClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImplementsClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Import a = Import {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_525. + AST.Traversable1.Class.Traversable1 a_525 + ) + +instance AST.Unmarshal.SymbolMatching Import where + matchedSymbols _ = [146] + showFailure _ node_526 = + "expected " + GHC.Base.<> ( "import" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_526 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_526) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_527 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_528 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_529 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_530 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_527 + c1_528 = TreeSitter.Node.nodeStartPoint node_526 + TreeSitter.Node.TSPoint + r2_529 + c2_530 = TreeSitter.Node.nodeEndPoint node_526 + +deriving instance GHC.Classes.Eq a_531 => GHC.Classes.Eq (Import a_531) + +deriving instance GHC.Classes.Ord a_532 => GHC.Classes.Ord (Import a_532) + +deriving instance GHC.Show.Show a_533 => GHC.Show.Show (Import a_533) + +instance AST.Unmarshal.Unmarshal Import + +instance Data.Foldable.Foldable Import where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Import where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Import where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportAlias a = ImportAlias + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Identifier GHC.Generics.:+: NestedIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_534. + AST.Traversable1.Class.Traversable1 a_534 + ) + +instance AST.Unmarshal.SymbolMatching ImportAlias where + matchedSymbols _ = [238] + showFailure _ node_535 = + "expected " + GHC.Base.<> ( "import_alias" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_535 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_535) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_536 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_537 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_538 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_539 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_536 + c1_537 = TreeSitter.Node.nodeStartPoint node_535 + TreeSitter.Node.TSPoint + r2_538 + c2_539 = TreeSitter.Node.nodeEndPoint node_535 + +deriving instance GHC.Classes.Eq a_540 => GHC.Classes.Eq (ImportAlias a_540) + +deriving instance GHC.Classes.Ord a_541 => GHC.Classes.Ord (ImportAlias a_541) + +deriving instance GHC.Show.Show a_542 => GHC.Show.Show (ImportAlias a_542) + +instance AST.Unmarshal.Unmarshal ImportAlias + +instance Data.Foldable.Foldable ImportAlias where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportAlias where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportAlias where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportClause a = ImportClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Identifier GHC.Generics.:+: NamedImports GHC.Generics.:+: NamespaceImport) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_543. + AST.Traversable1.Class.Traversable1 a_543 + ) + +instance AST.Unmarshal.SymbolMatching ImportClause where + matchedSymbols _ = [148] + showFailure _ node_544 = + "expected " + GHC.Base.<> ( "import_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_544 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_544) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_545 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_546 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_547 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_548 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_545 + c1_546 = TreeSitter.Node.nodeStartPoint node_544 + TreeSitter.Node.TSPoint + r2_547 + c2_548 = TreeSitter.Node.nodeEndPoint node_544 + +deriving instance GHC.Classes.Eq a_549 => GHC.Classes.Eq (ImportClause a_549) + +deriving instance GHC.Classes.Ord a_550 => GHC.Classes.Ord (ImportClause a_550) + +deriving instance GHC.Show.Show a_551 => GHC.Show.Show (ImportClause a_551) + +instance AST.Unmarshal.Unmarshal ImportClause + +instance Data.Foldable.Foldable ImportClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportRequireClause a = ImportRequireClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Identifier GHC.Generics.:+: String) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_552. + AST.Traversable1.Class.Traversable1 a_552 + ) + +instance AST.Unmarshal.SymbolMatching ImportRequireClause where + matchedSymbols _ = [231] + showFailure _ node_553 = + "expected " + GHC.Base.<> ( "import_require_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_553 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_553) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_554 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_555 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_556 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_557 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_554 + c1_555 = TreeSitter.Node.nodeStartPoint node_553 + TreeSitter.Node.TSPoint + r2_556 + c2_557 = TreeSitter.Node.nodeEndPoint node_553 + +deriving instance GHC.Classes.Eq a_558 => GHC.Classes.Eq (ImportRequireClause a_558) + +deriving instance GHC.Classes.Ord a_559 => GHC.Classes.Ord (ImportRequireClause a_559) + +deriving instance GHC.Show.Show a_560 => GHC.Show.Show (ImportRequireClause a_560) + +instance AST.Unmarshal.Unmarshal ImportRequireClause + +instance Data.Foldable.Foldable ImportRequireClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportRequireClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportRequireClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportSpecifier a = ImportSpecifier + { ann :: a, + alias :: (GHC.Maybe.Maybe (AST.Parse.Err (Identifier a))), + name :: (AST.Parse.Err (Identifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_561. + AST.Traversable1.Class.Traversable1 a_561 + ) + +instance AST.Unmarshal.SymbolMatching ImportSpecifier where + matchedSymbols _ = [301] + showFailure _ node_562 = + "expected " + GHC.Base.<> ( "import_specifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_562 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_562) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_563 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_564 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_565 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_566 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_563 + c1_564 = TreeSitter.Node.nodeStartPoint node_562 + TreeSitter.Node.TSPoint + r2_565 + c2_566 = TreeSitter.Node.nodeEndPoint node_562 + +deriving instance GHC.Classes.Eq a_567 => GHC.Classes.Eq (ImportSpecifier a_567) + +deriving instance GHC.Classes.Ord a_568 => GHC.Classes.Ord (ImportSpecifier a_568) + +deriving instance GHC.Show.Show a_569 => GHC.Show.Show (ImportSpecifier a_569) + +instance AST.Unmarshal.Unmarshal ImportSpecifier + +instance Data.Foldable.Foldable ImportSpecifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportSpecifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportSpecifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ImportStatement a = ImportStatement + { ann :: a, + source :: (GHC.Maybe.Maybe (AST.Parse.Err (String a))), + extraChildren :: (AST.Parse.Err ((ImportClause GHC.Generics.:+: ImportRequireClause GHC.Generics.:+: String) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_570. + AST.Traversable1.Class.Traversable1 a_570 + ) + +instance AST.Unmarshal.SymbolMatching ImportStatement where + matchedSymbols _ = [147] + showFailure _ node_571 = + "expected " + GHC.Base.<> ( "import_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_571 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_571) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_572 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_573 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_574 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_575 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_572 + c1_573 = TreeSitter.Node.nodeStartPoint node_571 + TreeSitter.Node.TSPoint + r2_574 + c2_575 = TreeSitter.Node.nodeEndPoint node_571 + +deriving instance GHC.Classes.Eq a_576 => GHC.Classes.Eq (ImportStatement a_576) + +deriving instance GHC.Classes.Ord a_577 => GHC.Classes.Ord (ImportStatement a_577) + +deriving instance GHC.Show.Show a_578 => GHC.Show.Show (ImportStatement a_578) + +instance AST.Unmarshal.Unmarshal ImportStatement + +instance Data.Foldable.Foldable ImportStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ImportStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ImportStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IndexSignature a = IndexSignature + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Identifier GHC.Generics.:+: MappedTypeClause GHC.Generics.:+: PredefinedType GHC.Generics.:+: TypeAnnotation) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_579. + AST.Traversable1.Class.Traversable1 a_579 + ) + +instance AST.Unmarshal.SymbolMatching IndexSignature where + matchedSymbols _ = [275] + showFailure _ node_580 = + "expected " + GHC.Base.<> ( "index_signature" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_580 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_580) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_581 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_582 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_583 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_584 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_581 + c1_582 = TreeSitter.Node.nodeStartPoint node_580 + TreeSitter.Node.TSPoint + r2_583 + c2_584 = TreeSitter.Node.nodeEndPoint node_580 + +deriving instance GHC.Classes.Eq a_585 => GHC.Classes.Eq (IndexSignature a_585) + +deriving instance GHC.Classes.Ord a_586 => GHC.Classes.Ord (IndexSignature a_586) + +deriving instance GHC.Show.Show a_587 => GHC.Show.Show (IndexSignature a_587) + +instance AST.Unmarshal.Unmarshal IndexSignature + +instance Data.Foldable.Foldable IndexSignature where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IndexSignature where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IndexSignature where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IndexTypeQuery a = IndexTypeQuery + { ann :: a, + extraChildren :: (AST.Parse.Err ((NestedTypeIdentifier GHC.Generics.:+: TypeIdentifier) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_588. + AST.Traversable1.Class.Traversable1 a_588 + ) + +instance AST.Unmarshal.SymbolMatching IndexTypeQuery where + matchedSymbols _ = [257] + showFailure _ node_589 = + "expected " + GHC.Base.<> ( "index_type_query" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_589 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_589) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_590 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_591 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_592 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_593 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_590 + c1_591 = TreeSitter.Node.nodeStartPoint node_589 + TreeSitter.Node.TSPoint + r2_592 + c2_593 = TreeSitter.Node.nodeEndPoint node_589 + +deriving instance GHC.Classes.Eq a_594 => GHC.Classes.Eq (IndexTypeQuery a_594) + +deriving instance GHC.Classes.Ord a_595 => GHC.Classes.Ord (IndexTypeQuery a_595) + +deriving instance GHC.Show.Show a_596 => GHC.Show.Show (IndexTypeQuery a_596) + +instance AST.Unmarshal.Unmarshal IndexTypeQuery + +instance Data.Foldable.Foldable IndexTypeQuery where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IndexTypeQuery where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IndexTypeQuery where + traverse = AST.Traversable1.Class.traverseDefault1 + +data InterfaceDeclaration a = InterfaceDeclaration + { ann :: a, + body :: (AST.Parse.Err (ObjectType a)), + name :: (AST.Parse.Err (TypeIdentifier a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (ExtendsClause a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_597. + AST.Traversable1.Class.Traversable1 a_597 + ) + +instance AST.Unmarshal.SymbolMatching InterfaceDeclaration where + matchedSymbols _ = [240] + showFailure _ node_598 = + "expected " + GHC.Base.<> ( "interface_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_598 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_598) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_599 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_600 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_601 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_602 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_599 + c1_600 = TreeSitter.Node.nodeStartPoint node_598 + TreeSitter.Node.TSPoint + r2_601 + c2_602 = TreeSitter.Node.nodeEndPoint node_598 + +deriving instance GHC.Classes.Eq a_603 => GHC.Classes.Eq (InterfaceDeclaration a_603) + +deriving instance GHC.Classes.Ord a_604 => GHC.Classes.Ord (InterfaceDeclaration a_604) + +deriving instance GHC.Show.Show a_605 => GHC.Show.Show (InterfaceDeclaration a_605) + +instance AST.Unmarshal.Unmarshal InterfaceDeclaration + +instance Data.Foldable.Foldable InterfaceDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor InterfaceDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable InterfaceDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data InternalModule a = InternalModule + { ann :: a, + body :: (GHC.Maybe.Maybe (AST.Parse.Err (StatementBlock a))), + name :: (AST.Parse.Err ((Identifier GHC.Generics.:+: NestedIdentifier GHC.Generics.:+: String) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_606. + AST.Traversable1.Class.Traversable1 a_606 + ) + +instance AST.Unmarshal.SymbolMatching InternalModule where + matchedSymbols _ = [236] + showFailure _ node_607 = + "expected " + GHC.Base.<> ( "internal_module" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_607 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_607) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_608 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_609 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_610 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_611 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_608 + c1_609 = TreeSitter.Node.nodeStartPoint node_607 + TreeSitter.Node.TSPoint + r2_610 + c2_611 = TreeSitter.Node.nodeEndPoint node_607 + +deriving instance GHC.Classes.Eq a_612 => GHC.Classes.Eq (InternalModule a_612) + +deriving instance GHC.Classes.Ord a_613 => GHC.Classes.Ord (InternalModule a_613) + +deriving instance GHC.Show.Show a_614 => GHC.Show.Show (InternalModule a_614) + +instance AST.Unmarshal.Unmarshal InternalModule + +instance Data.Foldable.Foldable InternalModule where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor InternalModule where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable InternalModule where + traverse = AST.Traversable1.Class.traverseDefault1 + +data IntersectionType a = IntersectionType + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_615. + AST.Traversable1.Class.Traversable1 a_615 + ) + +instance AST.Unmarshal.SymbolMatching IntersectionType where + matchedSymbols _ = [279] + showFailure _ node_616 = + "expected " + GHC.Base.<> ( "intersection_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_616 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_616) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_617 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_618 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_619 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_620 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_617 + c1_618 = TreeSitter.Node.nodeStartPoint node_616 + TreeSitter.Node.TSPoint + r2_619 + c2_620 = TreeSitter.Node.nodeEndPoint node_616 + +deriving instance GHC.Classes.Eq a_621 => GHC.Classes.Eq (IntersectionType a_621) + +deriving instance GHC.Classes.Ord a_622 => GHC.Classes.Ord (IntersectionType a_622) + +deriving instance GHC.Show.Show a_623 => GHC.Show.Show (IntersectionType a_623) + +instance AST.Unmarshal.Unmarshal IntersectionType + +instance Data.Foldable.Foldable IntersectionType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor IntersectionType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable IntersectionType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data JsxAttribute a = JsxAttribute + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((JsxElement GHC.Generics.:+: JsxExpression GHC.Generics.:+: JsxFragment GHC.Generics.:+: JsxNamespaceName GHC.Generics.:+: JsxSelfClosingElement GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_624. + AST.Traversable1.Class.Traversable1 a_624 + ) + +instance AST.Unmarshal.SymbolMatching JsxAttribute where + matchedSymbols _ = [] + showFailure _ node_625 = + "expected " + GHC.Base.<> ( "" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_625 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_625) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_626 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_627 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_628 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_629 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_626 + c1_627 = TreeSitter.Node.nodeStartPoint node_625 + TreeSitter.Node.TSPoint + r2_628 + c2_629 = TreeSitter.Node.nodeEndPoint node_625 + +deriving instance GHC.Classes.Eq a_630 => GHC.Classes.Eq (JsxAttribute a_630) + +deriving instance GHC.Classes.Ord a_631 => GHC.Classes.Ord (JsxAttribute a_631) + +deriving instance GHC.Show.Show a_632 => GHC.Show.Show (JsxAttribute a_632) + +instance AST.Unmarshal.Unmarshal JsxAttribute + +instance Data.Foldable.Foldable JsxAttribute where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxAttribute where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxAttribute where + traverse = AST.Traversable1.Class.traverseDefault1 + +data JsxClosingElement a = JsxClosingElement + { ann :: a, + name :: (AST.Parse.Err ((Identifier GHC.Generics.:+: JsxNamespaceName GHC.Generics.:+: NestedIdentifier) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_633. + AST.Traversable1.Class.Traversable1 a_633 + ) + +instance AST.Unmarshal.SymbolMatching JsxClosingElement where + matchedSymbols _ = [] + showFailure _ node_634 = + "expected " + GHC.Base.<> ( "" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_634 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_634) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_635 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_636 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_637 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_638 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_635 + c1_636 = TreeSitter.Node.nodeStartPoint node_634 + TreeSitter.Node.TSPoint + r2_637 + c2_638 = TreeSitter.Node.nodeEndPoint node_634 + +deriving instance GHC.Classes.Eq a_639 => GHC.Classes.Eq (JsxClosingElement a_639) + +deriving instance GHC.Classes.Ord a_640 => GHC.Classes.Ord (JsxClosingElement a_640) + +deriving instance GHC.Show.Show a_641 => GHC.Show.Show (JsxClosingElement a_641) + +instance AST.Unmarshal.Unmarshal JsxClosingElement + +instance Data.Foldable.Foldable JsxClosingElement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxClosingElement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxClosingElement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data JsxElement a = JsxElement + { ann :: a, + closeTag :: (AST.Parse.Err (JsxClosingElement a)), + openTag :: (AST.Parse.Err (JsxOpeningElement a)), + extraChildren :: ([AST.Parse.Err ((JsxElement GHC.Generics.:+: JsxExpression GHC.Generics.:+: JsxSelfClosingElement GHC.Generics.:+: JsxText) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_642. + AST.Traversable1.Class.Traversable1 a_642 + ) + +instance AST.Unmarshal.SymbolMatching JsxElement where + matchedSymbols _ = [] + showFailure _ node_643 = + "expected " + GHC.Base.<> ( "" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_643 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_643) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_644 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_645 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_646 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_647 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_644 + c1_645 = TreeSitter.Node.nodeStartPoint node_643 + TreeSitter.Node.TSPoint + r2_646 + c2_647 = TreeSitter.Node.nodeEndPoint node_643 + +deriving instance GHC.Classes.Eq a_648 => GHC.Classes.Eq (JsxElement a_648) + +deriving instance GHC.Classes.Ord a_649 => GHC.Classes.Ord (JsxElement a_649) + +deriving instance GHC.Show.Show a_650 => GHC.Show.Show (JsxElement a_650) + +instance AST.Unmarshal.Unmarshal JsxElement + +instance Data.Foldable.Foldable JsxElement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxElement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxElement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data JsxExpression a = JsxExpression + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression GHC.Generics.:+: SpreadElement) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_651. + AST.Traversable1.Class.Traversable1 a_651 + ) + +instance AST.Unmarshal.SymbolMatching JsxExpression where + matchedSymbols _ = [] + showFailure _ node_652 = + "expected " + GHC.Base.<> ( "" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_652 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_652) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_653 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_654 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_655 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_656 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_653 + c1_654 = TreeSitter.Node.nodeStartPoint node_652 + TreeSitter.Node.TSPoint + r2_655 + c2_656 = TreeSitter.Node.nodeEndPoint node_652 + +deriving instance GHC.Classes.Eq a_657 => GHC.Classes.Eq (JsxExpression a_657) + +deriving instance GHC.Classes.Ord a_658 => GHC.Classes.Ord (JsxExpression a_658) + +deriving instance GHC.Show.Show a_659 => GHC.Show.Show (JsxExpression a_659) + +instance AST.Unmarshal.Unmarshal JsxExpression + +instance Data.Foldable.Foldable JsxExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data JsxFragment a = JsxFragment + { ann :: a, + extraChildren :: ([AST.Parse.Err ((JsxElement GHC.Generics.:+: JsxExpression GHC.Generics.:+: JsxSelfClosingElement GHC.Generics.:+: JsxText) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_660. + AST.Traversable1.Class.Traversable1 a_660 + ) + +instance AST.Unmarshal.SymbolMatching JsxFragment where + matchedSymbols _ = [] + showFailure _ node_661 = + "expected " + GHC.Base.<> ( "" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_661 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_661) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_662 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_663 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_664 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_665 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_662 + c1_663 = TreeSitter.Node.nodeStartPoint node_661 + TreeSitter.Node.TSPoint + r2_664 + c2_665 = TreeSitter.Node.nodeEndPoint node_661 + +deriving instance GHC.Classes.Eq a_666 => GHC.Classes.Eq (JsxFragment a_666) + +deriving instance GHC.Classes.Ord a_667 => GHC.Classes.Ord (JsxFragment a_667) + +deriving instance GHC.Show.Show a_668 => GHC.Show.Show (JsxFragment a_668) + +instance AST.Unmarshal.Unmarshal JsxFragment + +instance Data.Foldable.Foldable JsxFragment where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxFragment where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxFragment where + traverse = AST.Traversable1.Class.traverseDefault1 + +data JsxNamespaceName a = JsxNamespaceName + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (Identifier a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_669. + AST.Traversable1.Class.Traversable1 a_669 + ) + +instance AST.Unmarshal.SymbolMatching JsxNamespaceName where + matchedSymbols _ = [] + showFailure _ node_670 = + "expected " + GHC.Base.<> ( "" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_670 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_670) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_671 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_672 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_673 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_674 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_671 + c1_672 = TreeSitter.Node.nodeStartPoint node_670 + TreeSitter.Node.TSPoint + r2_673 + c2_674 = TreeSitter.Node.nodeEndPoint node_670 + +deriving instance GHC.Classes.Eq a_675 => GHC.Classes.Eq (JsxNamespaceName a_675) + +deriving instance GHC.Classes.Ord a_676 => GHC.Classes.Ord (JsxNamespaceName a_676) + +deriving instance GHC.Show.Show a_677 => GHC.Show.Show (JsxNamespaceName a_677) + +instance AST.Unmarshal.Unmarshal JsxNamespaceName + +instance Data.Foldable.Foldable JsxNamespaceName where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxNamespaceName where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxNamespaceName where + traverse = AST.Traversable1.Class.traverseDefault1 + +data JsxOpeningElement a = JsxOpeningElement + { ann :: a, + attribute :: ([AST.Parse.Err ((JsxAttribute GHC.Generics.:+: JsxExpression) a)]), + name :: (AST.Parse.Err ((Identifier GHC.Generics.:+: JsxNamespaceName GHC.Generics.:+: NestedIdentifier) a)), + typeArguments :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeArguments a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_678. + AST.Traversable1.Class.Traversable1 a_678 + ) + +instance AST.Unmarshal.SymbolMatching JsxOpeningElement where + matchedSymbols _ = [] + showFailure _ node_679 = + "expected " + GHC.Base.<> ( "" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_679 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_679) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_680 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_681 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_682 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_683 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_680 + c1_681 = TreeSitter.Node.nodeStartPoint node_679 + TreeSitter.Node.TSPoint + r2_682 + c2_683 = TreeSitter.Node.nodeEndPoint node_679 + +deriving instance GHC.Classes.Eq a_684 => GHC.Classes.Eq (JsxOpeningElement a_684) + +deriving instance GHC.Classes.Ord a_685 => GHC.Classes.Ord (JsxOpeningElement a_685) + +deriving instance GHC.Show.Show a_686 => GHC.Show.Show (JsxOpeningElement a_686) + +instance AST.Unmarshal.Unmarshal JsxOpeningElement + +instance Data.Foldable.Foldable JsxOpeningElement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxOpeningElement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxOpeningElement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data JsxSelfClosingElement a = JsxSelfClosingElement + { ann :: a, + attribute :: ([AST.Parse.Err ((JsxAttribute GHC.Generics.:+: JsxExpression) a)]), + name :: (AST.Parse.Err ((Identifier GHC.Generics.:+: JsxNamespaceName GHC.Generics.:+: NestedIdentifier) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_687. + AST.Traversable1.Class.Traversable1 a_687 + ) + +instance AST.Unmarshal.SymbolMatching JsxSelfClosingElement where + matchedSymbols _ = [] + showFailure _ node_688 = + "expected " + GHC.Base.<> ( "" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_688 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_688) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_689 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_690 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_691 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_692 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_689 + c1_690 = TreeSitter.Node.nodeStartPoint node_688 + TreeSitter.Node.TSPoint + r2_691 + c2_692 = TreeSitter.Node.nodeEndPoint node_688 + +deriving instance GHC.Classes.Eq a_693 => GHC.Classes.Eq (JsxSelfClosingElement a_693) + +deriving instance GHC.Classes.Ord a_694 => GHC.Classes.Ord (JsxSelfClosingElement a_694) + +deriving instance GHC.Show.Show a_695 => GHC.Show.Show (JsxSelfClosingElement a_695) + +instance AST.Unmarshal.Unmarshal JsxSelfClosingElement + +instance Data.Foldable.Foldable JsxSelfClosingElement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxSelfClosingElement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxSelfClosingElement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LabeledStatement a = LabeledStatement + { ann :: a, + label :: (AST.Parse.Err (StatementIdentifier a)), + extraChildren :: (AST.Parse.Err (Statement a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_696. + AST.Traversable1.Class.Traversable1 a_696 + ) + +instance AST.Unmarshal.SymbolMatching LabeledStatement where + matchedSymbols _ = [172] + showFailure _ node_697 = + "expected " + GHC.Base.<> ( "labeled_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_697 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_697) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_698 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_699 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_700 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_701 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_698 + c1_699 = TreeSitter.Node.nodeStartPoint node_697 + TreeSitter.Node.TSPoint + r2_700 + c2_701 = TreeSitter.Node.nodeEndPoint node_697 + +deriving instance GHC.Classes.Eq a_702 => GHC.Classes.Eq (LabeledStatement a_702) + +deriving instance GHC.Classes.Ord a_703 => GHC.Classes.Ord (LabeledStatement a_703) + +deriving instance GHC.Show.Show a_704 => GHC.Show.Show (LabeledStatement a_704) + +instance AST.Unmarshal.Unmarshal LabeledStatement + +instance Data.Foldable.Foldable LabeledStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LabeledStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LabeledStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LexicalDeclaration a = LexicalDeclaration + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (VariableDeclarator a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_705. + AST.Traversable1.Class.Traversable1 a_705 + ) + +instance AST.Unmarshal.SymbolMatching LexicalDeclaration where + matchedSymbols _ = [154] + showFailure _ node_706 = + "expected " + GHC.Base.<> ( "lexical_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_706 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_706) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_707 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_708 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_709 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_710 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_707 + c1_708 = TreeSitter.Node.nodeStartPoint node_706 + TreeSitter.Node.TSPoint + r2_709 + c2_710 = TreeSitter.Node.nodeEndPoint node_706 + +deriving instance GHC.Classes.Eq a_711 => GHC.Classes.Eq (LexicalDeclaration a_711) + +deriving instance GHC.Classes.Ord a_712 => GHC.Classes.Ord (LexicalDeclaration a_712) + +deriving instance GHC.Show.Show a_713 => GHC.Show.Show (LexicalDeclaration a_713) + +instance AST.Unmarshal.Unmarshal LexicalDeclaration + +instance Data.Foldable.Foldable LexicalDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LexicalDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LexicalDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LiteralType a = LiteralType + { ann :: a, + extraChildren :: (AST.Parse.Err ((False GHC.Generics.:+: Number GHC.Generics.:+: String GHC.Generics.:+: True GHC.Generics.:+: UnaryExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_714. + AST.Traversable1.Class.Traversable1 a_714 + ) + +instance AST.Unmarshal.SymbolMatching LiteralType where + matchedSymbols _ = [260] + showFailure _ node_715 = + "expected " + GHC.Base.<> ( "literal_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_715 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_715) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_716 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_717 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_718 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_719 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_716 + c1_717 = TreeSitter.Node.nodeStartPoint node_715 + TreeSitter.Node.TSPoint + r2_718 + c2_719 = TreeSitter.Node.nodeEndPoint node_715 + +deriving instance GHC.Classes.Eq a_720 => GHC.Classes.Eq (LiteralType a_720) + +deriving instance GHC.Classes.Ord a_721 => GHC.Classes.Ord (LiteralType a_721) + +deriving instance GHC.Show.Show a_722 => GHC.Show.Show (LiteralType a_722) + +instance AST.Unmarshal.Unmarshal LiteralType + +instance Data.Foldable.Foldable LiteralType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LiteralType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LiteralType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data LookupType a = LookupType + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_723. + AST.Traversable1.Class.Traversable1 a_723 + ) + +instance AST.Unmarshal.SymbolMatching LookupType where + matchedSymbols _ = [258] + showFailure _ node_724 = + "expected " + GHC.Base.<> ( "lookup_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_724 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_724) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_725 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_726 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_727 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_728 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_725 + c1_726 = TreeSitter.Node.nodeStartPoint node_724 + TreeSitter.Node.TSPoint + r2_727 + c2_728 = TreeSitter.Node.nodeEndPoint node_724 + +deriving instance GHC.Classes.Eq a_729 => GHC.Classes.Eq (LookupType a_729) + +deriving instance GHC.Classes.Ord a_730 => GHC.Classes.Ord (LookupType a_730) + +deriving instance GHC.Show.Show a_731 => GHC.Show.Show (LookupType a_731) + +instance AST.Unmarshal.Unmarshal LookupType + +instance Data.Foldable.Foldable LookupType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor LookupType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable LookupType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MappedTypeClause a = MappedTypeClause + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_732. + AST.Traversable1.Class.Traversable1 a_732 + ) + +instance AST.Unmarshal.SymbolMatching MappedTypeClause where + matchedSymbols _ = [259] + showFailure _ node_733 = + "expected " + GHC.Base.<> ( "mapped_type_clause" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_733 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_733) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_734 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_735 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_736 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_737 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_734 + c1_735 = TreeSitter.Node.nodeStartPoint node_733 + TreeSitter.Node.TSPoint + r2_736 + c2_737 = TreeSitter.Node.nodeEndPoint node_733 + +deriving instance GHC.Classes.Eq a_738 => GHC.Classes.Eq (MappedTypeClause a_738) + +deriving instance GHC.Classes.Ord a_739 => GHC.Classes.Ord (MappedTypeClause a_739) + +deriving instance GHC.Show.Show a_740 => GHC.Show.Show (MappedTypeClause a_740) + +instance AST.Unmarshal.Unmarshal MappedTypeClause + +instance Data.Foldable.Foldable MappedTypeClause where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MappedTypeClause where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MappedTypeClause where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MemberExpression a = MemberExpression + { ann :: a, + property :: (AST.Parse.Err (PropertyIdentifier a)), + object :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_741. + AST.Traversable1.Class.Traversable1 a_741 + ) + +instance AST.Unmarshal.SymbolMatching MemberExpression where + matchedSymbols _ = [197, 215] + showFailure _ node_742 = + "expected " + GHC.Base.<> ( "member_expression, member_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_742 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_742) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_743 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_744 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_745 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_746 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_743 + c1_744 = TreeSitter.Node.nodeStartPoint node_742 + TreeSitter.Node.TSPoint + r2_745 + c2_746 = TreeSitter.Node.nodeEndPoint node_742 + +deriving instance GHC.Classes.Eq a_747 => GHC.Classes.Eq (MemberExpression a_747) + +deriving instance GHC.Classes.Ord a_748 => GHC.Classes.Ord (MemberExpression a_748) + +deriving instance GHC.Show.Show a_749 => GHC.Show.Show (MemberExpression a_749) + +instance AST.Unmarshal.Unmarshal MemberExpression + +instance Data.Foldable.Foldable MemberExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MemberExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MemberExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MetaProperty a = MetaProperty {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_750. + AST.Traversable1.Class.Traversable1 a_750 + ) + +instance AST.Unmarshal.SymbolMatching MetaProperty where + matchedSymbols _ = [212] + showFailure _ node_751 = + "expected " + GHC.Base.<> ( "meta_property" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_751 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_751) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_752 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_753 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_754 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_755 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_752 + c1_753 = TreeSitter.Node.nodeStartPoint node_751 + TreeSitter.Node.TSPoint + r2_754 + c2_755 = TreeSitter.Node.nodeEndPoint node_751 + +deriving instance GHC.Classes.Eq a_756 => GHC.Classes.Eq (MetaProperty a_756) + +deriving instance GHC.Classes.Ord a_757 => GHC.Classes.Ord (MetaProperty a_757) + +deriving instance GHC.Show.Show a_758 => GHC.Show.Show (MetaProperty a_758) + +instance AST.Unmarshal.Unmarshal MetaProperty + +instance Data.Foldable.Foldable MetaProperty where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MetaProperty where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MetaProperty where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MethodDefinition a = MethodDefinition + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + body :: (AST.Parse.Err (StatementBlock a)), + name :: (AST.Parse.Err ((ComputedPropertyName GHC.Generics.:+: Number GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a)), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + extraChildren :: ([AST.Parse.Err ((AccessibilityModifier GHC.Generics.:+: Readonly) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_759. + AST.Traversable1.Class.Traversable1 a_759 + ) + +instance AST.Unmarshal.SymbolMatching MethodDefinition where + matchedSymbols _ = [221] + showFailure _ node_760 = + "expected " + GHC.Base.<> ( "method_definition" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_760 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_760) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_761 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_762 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_763 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_764 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_761 + c1_762 = TreeSitter.Node.nodeStartPoint node_760 + TreeSitter.Node.TSPoint + r2_763 + c2_764 = TreeSitter.Node.nodeEndPoint node_760 + +deriving instance GHC.Classes.Eq a_765 => GHC.Classes.Eq (MethodDefinition a_765) + +deriving instance GHC.Classes.Ord a_766 => GHC.Classes.Ord (MethodDefinition a_766) + +deriving instance GHC.Show.Show a_767 => GHC.Show.Show (MethodDefinition a_767) + +instance AST.Unmarshal.Unmarshal MethodDefinition + +instance Data.Foldable.Foldable MethodDefinition where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MethodDefinition where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MethodDefinition where + traverse = AST.Traversable1.Class.traverseDefault1 + +data MethodSignature a = MethodSignature + { ann :: a, + returnType :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + name :: (AST.Parse.Err ((ComputedPropertyName GHC.Generics.:+: Number GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a)), + parameters :: (AST.Parse.Err (FormalParameters a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))), + extraChildren :: ([AST.Parse.Err ((AccessibilityModifier GHC.Generics.:+: Readonly) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_768. + AST.Traversable1.Class.Traversable1 a_768 + ) + +instance AST.Unmarshal.SymbolMatching MethodSignature where + matchedSymbols _ = [226] + showFailure _ node_769 = + "expected " + GHC.Base.<> ( "method_signature" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_769 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_769) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_770 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_771 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_772 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_773 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_770 + c1_771 = TreeSitter.Node.nodeStartPoint node_769 + TreeSitter.Node.TSPoint + r2_772 + c2_773 = TreeSitter.Node.nodeEndPoint node_769 + +deriving instance GHC.Classes.Eq a_774 => GHC.Classes.Eq (MethodSignature a_774) + +deriving instance GHC.Classes.Ord a_775 => GHC.Classes.Ord (MethodSignature a_775) + +deriving instance GHC.Show.Show a_776 => GHC.Show.Show (MethodSignature a_776) + +instance AST.Unmarshal.Unmarshal MethodSignature + +instance Data.Foldable.Foldable MethodSignature where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor MethodSignature where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable MethodSignature where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Module a = Module + { ann :: a, + body :: (GHC.Maybe.Maybe (AST.Parse.Err (StatementBlock a))), + name :: (AST.Parse.Err ((Identifier GHC.Generics.:+: NestedIdentifier GHC.Generics.:+: String) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_777. + AST.Traversable1.Class.Traversable1 a_777 + ) + +instance AST.Unmarshal.SymbolMatching Module where + matchedSymbols _ = [235] + showFailure _ node_778 = + "expected " + GHC.Base.<> ( "module" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_778 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_778) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_779 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_780 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_781 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_782 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_779 + c1_780 = TreeSitter.Node.nodeStartPoint node_778 + TreeSitter.Node.TSPoint + r2_781 + c2_782 = TreeSitter.Node.nodeEndPoint node_778 + +deriving instance GHC.Classes.Eq a_783 => GHC.Classes.Eq (Module a_783) + +deriving instance GHC.Classes.Ord a_784 => GHC.Classes.Ord (Module a_784) + +deriving instance GHC.Show.Show a_785 => GHC.Show.Show (Module a_785) + +instance AST.Unmarshal.Unmarshal Module + +instance Data.Foldable.Foldable Module where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Module where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Module where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NamedImports a = NamedImports + { ann :: a, + extraChildren :: ([AST.Parse.Err (ImportSpecifier a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_786. + AST.Traversable1.Class.Traversable1 a_786 + ) + +instance AST.Unmarshal.SymbolMatching NamedImports where + matchedSymbols _ = [151] + showFailure _ node_787 = + "expected " + GHC.Base.<> ( "named_imports" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_787 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_787) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_788 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_789 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_790 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_791 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_788 + c1_789 = TreeSitter.Node.nodeStartPoint node_787 + TreeSitter.Node.TSPoint + r2_790 + c2_791 = TreeSitter.Node.nodeEndPoint node_787 + +deriving instance GHC.Classes.Eq a_792 => GHC.Classes.Eq (NamedImports a_792) + +deriving instance GHC.Classes.Ord a_793 => GHC.Classes.Ord (NamedImports a_793) + +deriving instance GHC.Show.Show a_794 => GHC.Show.Show (NamedImports a_794) + +instance AST.Unmarshal.Unmarshal NamedImports + +instance Data.Foldable.Foldable NamedImports where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NamedImports where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NamedImports where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NamespaceImport a = NamespaceImport + { ann :: a, + extraChildren :: (AST.Parse.Err (Identifier a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_795. + AST.Traversable1.Class.Traversable1 a_795 + ) + +instance AST.Unmarshal.SymbolMatching NamespaceImport where + matchedSymbols _ = [150] + showFailure _ node_796 = + "expected " + GHC.Base.<> ( "namespace_import" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_796 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_796) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_797 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_798 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_799 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_800 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_797 + c1_798 = TreeSitter.Node.nodeStartPoint node_796 + TreeSitter.Node.TSPoint + r2_799 + c2_800 = TreeSitter.Node.nodeEndPoint node_796 + +deriving instance GHC.Classes.Eq a_801 => GHC.Classes.Eq (NamespaceImport a_801) + +deriving instance GHC.Classes.Ord a_802 => GHC.Classes.Ord (NamespaceImport a_802) + +deriving instance GHC.Show.Show a_803 => GHC.Show.Show (NamespaceImport a_803) + +instance AST.Unmarshal.Unmarshal NamespaceImport + +instance Data.Foldable.Foldable NamespaceImport where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NamespaceImport where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NamespaceImport where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NestedIdentifier a = NestedIdentifier + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Identifier GHC.Generics.:+: NestedIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_804. + AST.Traversable1.Class.Traversable1 a_804 + ) + +instance AST.Unmarshal.SymbolMatching NestedIdentifier where + matchedSymbols _ = [184] + showFailure _ node_805 = + "expected " + GHC.Base.<> ( "nested_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_805 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_805) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_806 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_807 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_808 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_809 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_806 + c1_807 = TreeSitter.Node.nodeStartPoint node_805 + TreeSitter.Node.TSPoint + r2_808 + c2_809 = TreeSitter.Node.nodeEndPoint node_805 + +deriving instance GHC.Classes.Eq a_810 => GHC.Classes.Eq (NestedIdentifier a_810) + +deriving instance GHC.Classes.Ord a_811 => GHC.Classes.Ord (NestedIdentifier a_811) + +deriving instance GHC.Show.Show a_812 => GHC.Show.Show (NestedIdentifier a_812) + +instance AST.Unmarshal.Unmarshal NestedIdentifier + +instance Data.Foldable.Foldable NestedIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NestedIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NestedIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NestedTypeIdentifier a = NestedTypeIdentifier + { ann :: a, + name :: (AST.Parse.Err (TypeIdentifier a)), + module' :: (AST.Parse.Err ((Identifier GHC.Generics.:+: NestedIdentifier) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_813. + AST.Traversable1.Class.Traversable1 a_813 + ) + +instance AST.Unmarshal.SymbolMatching NestedTypeIdentifier where + matchedSymbols _ = [239] + showFailure _ node_814 = + "expected " + GHC.Base.<> ( "nested_type_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_814 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_814) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_815 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_816 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_817 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_818 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_815 + c1_816 = TreeSitter.Node.nodeStartPoint node_814 + TreeSitter.Node.TSPoint + r2_817 + c2_818 = TreeSitter.Node.nodeEndPoint node_814 + +deriving instance GHC.Classes.Eq a_819 => GHC.Classes.Eq (NestedTypeIdentifier a_819) + +deriving instance GHC.Classes.Ord a_820 => GHC.Classes.Ord (NestedTypeIdentifier a_820) + +deriving instance GHC.Show.Show a_821 => GHC.Show.Show (NestedTypeIdentifier a_821) + +instance AST.Unmarshal.Unmarshal NestedTypeIdentifier + +instance Data.Foldable.Foldable NestedTypeIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NestedTypeIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NestedTypeIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NewExpression a = NewExpression + { ann :: a, + arguments :: (GHC.Maybe.Maybe (AST.Parse.Err (Arguments a))), + constructor :: (AST.Parse.Err ((Array GHC.Generics.:+: ArrowFunction GHC.Generics.:+: Class GHC.Generics.:+: False GHC.Generics.:+: Function GHC.Generics.:+: GeneratorFunction GHC.Generics.:+: Identifier GHC.Generics.:+: Import GHC.Generics.:+: MemberExpression GHC.Generics.:+: MetaProperty GHC.Generics.:+: NewExpression GHC.Generics.:+: Null GHC.Generics.:+: Number GHC.Generics.:+: Object GHC.Generics.:+: ParenthesizedExpression GHC.Generics.:+: Regex GHC.Generics.:+: String GHC.Generics.:+: SubscriptExpression GHC.Generics.:+: TemplateString GHC.Generics.:+: This GHC.Generics.:+: True GHC.Generics.:+: Undefined) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_822. + AST.Traversable1.Class.Traversable1 a_822 + ) + +instance AST.Unmarshal.SymbolMatching NewExpression where + matchedSymbols _ = [195] + showFailure _ node_823 = + "expected " + GHC.Base.<> ( "new_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_823 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_823) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_824 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_825 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_826 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_827 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_824 + c1_825 = TreeSitter.Node.nodeStartPoint node_823 + TreeSitter.Node.TSPoint + r2_826 + c2_827 = TreeSitter.Node.nodeEndPoint node_823 + +deriving instance GHC.Classes.Eq a_828 => GHC.Classes.Eq (NewExpression a_828) + +deriving instance GHC.Classes.Ord a_829 => GHC.Classes.Ord (NewExpression a_829) + +deriving instance GHC.Show.Show a_830 => GHC.Show.Show (NewExpression a_830) + +instance AST.Unmarshal.Unmarshal NewExpression + +instance Data.Foldable.Foldable NewExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NewExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NewExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data NonNullExpression a = NonNullExpression + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_831. + AST.Traversable1.Class.Traversable1 a_831 + ) + +instance AST.Unmarshal.SymbolMatching NonNullExpression where + matchedSymbols _ = [225] + showFailure _ node_832 = + "expected " + GHC.Base.<> ( "non_null_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_832 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_832) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_833 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_834 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_835 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_836 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_833 + c1_834 = TreeSitter.Node.nodeStartPoint node_832 + TreeSitter.Node.TSPoint + r2_835 + c2_836 = TreeSitter.Node.nodeEndPoint node_832 + +deriving instance GHC.Classes.Eq a_837 => GHC.Classes.Eq (NonNullExpression a_837) + +deriving instance GHC.Classes.Ord a_838 => GHC.Classes.Ord (NonNullExpression a_838) + +deriving instance GHC.Show.Show a_839 => GHC.Show.Show (NonNullExpression a_839) + +instance AST.Unmarshal.Unmarshal NonNullExpression + +instance Data.Foldable.Foldable NonNullExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor NonNullExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable NonNullExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Object a = Object + { ann :: a, + extraChildren :: ([AST.Parse.Err ((AssignmentPattern GHC.Generics.:+: MethodDefinition GHC.Generics.:+: Pair GHC.Generics.:+: ShorthandPropertyIdentifier GHC.Generics.:+: SpreadElement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_840. + AST.Traversable1.Class.Traversable1 a_840 + ) + +instance AST.Unmarshal.SymbolMatching Object where + matchedSymbols _ = [181] + showFailure _ node_841 = + "expected " + GHC.Base.<> ( "object" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_841 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_841) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_842 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_843 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_844 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_845 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_842 + c1_843 = TreeSitter.Node.nodeStartPoint node_841 + TreeSitter.Node.TSPoint + r2_844 + c2_845 = TreeSitter.Node.nodeEndPoint node_841 + +deriving instance GHC.Classes.Eq a_846 => GHC.Classes.Eq (Object a_846) + +deriving instance GHC.Classes.Ord a_847 => GHC.Classes.Ord (Object a_847) + +deriving instance GHC.Show.Show a_848 => GHC.Show.Show (Object a_848) + +instance AST.Unmarshal.Unmarshal Object + +instance Data.Foldable.Foldable Object where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Object where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Object where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ObjectPattern a = ObjectPattern + { ann :: a, + extraChildren :: ([AST.Parse.Err ((AssignmentPattern GHC.Generics.:+: MethodDefinition GHC.Generics.:+: Pair GHC.Generics.:+: ShorthandPropertyIdentifier GHC.Generics.:+: SpreadElement) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_849. + AST.Traversable1.Class.Traversable1 a_849 + ) + +instance AST.Unmarshal.SymbolMatching ObjectPattern where + matchedSymbols _ = [302] + showFailure _ node_850 = + "expected " + GHC.Base.<> ( "object_pattern" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_850 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_850) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_851 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_852 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_853 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_854 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_851 + c1_852 = TreeSitter.Node.nodeStartPoint node_850 + TreeSitter.Node.TSPoint + r2_853 + c2_854 = TreeSitter.Node.nodeEndPoint node_850 + +deriving instance GHC.Classes.Eq a_855 => GHC.Classes.Eq (ObjectPattern a_855) + +deriving instance GHC.Classes.Ord a_856 => GHC.Classes.Ord (ObjectPattern a_856) + +deriving instance GHC.Show.Show a_857 => GHC.Show.Show (ObjectPattern a_857) + +instance AST.Unmarshal.Unmarshal ObjectPattern + +instance Data.Foldable.Foldable ObjectPattern where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ObjectPattern where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ObjectPattern where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ObjectType a = ObjectType + { ann :: a, + extraChildren :: ([AST.Parse.Err ((CallSignature GHC.Generics.:+: ConstructSignature GHC.Generics.:+: ExportStatement GHC.Generics.:+: IndexSignature GHC.Generics.:+: MethodSignature GHC.Generics.:+: PropertySignature) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_858. + AST.Traversable1.Class.Traversable1 a_858 + ) + +instance AST.Unmarshal.SymbolMatching ObjectType where + matchedSymbols _ = [267] + showFailure _ node_859 = + "expected " + GHC.Base.<> ( "object_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_859 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_859) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_860 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_861 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_862 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_863 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_860 + c1_861 = TreeSitter.Node.nodeStartPoint node_859 + TreeSitter.Node.TSPoint + r2_862 + c2_863 = TreeSitter.Node.nodeEndPoint node_859 + +deriving instance GHC.Classes.Eq a_864 => GHC.Classes.Eq (ObjectType a_864) + +deriving instance GHC.Classes.Ord a_865 => GHC.Classes.Ord (ObjectType a_865) + +deriving instance GHC.Show.Show a_866 => GHC.Show.Show (ObjectType a_866) + +instance AST.Unmarshal.Unmarshal ObjectType + +instance Data.Foldable.Foldable ObjectType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ObjectType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ObjectType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data OptionalParameter a = OptionalParameter + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((DestructuringPattern GHC.Generics.:+: AccessibilityModifier GHC.Generics.:+: Identifier GHC.Generics.:+: Readonly GHC.Generics.:+: This GHC.Generics.:+: TypeAnnotation) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_867. + AST.Traversable1.Class.Traversable1 a_867 + ) + +instance AST.Unmarshal.SymbolMatching OptionalParameter where + matchedSymbols _ = [248] + showFailure _ node_868 = + "expected " + GHC.Base.<> ( "optional_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_868 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_868) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_869 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_870 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_871 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_872 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_869 + c1_870 = TreeSitter.Node.nodeStartPoint node_868 + TreeSitter.Node.TSPoint + r2_871 + c2_872 = TreeSitter.Node.nodeEndPoint node_868 + +deriving instance GHC.Classes.Eq a_873 => GHC.Classes.Eq (OptionalParameter a_873) + +deriving instance GHC.Classes.Ord a_874 => GHC.Classes.Ord (OptionalParameter a_874) + +deriving instance GHC.Show.Show a_875 => GHC.Show.Show (OptionalParameter a_875) + +instance AST.Unmarshal.Unmarshal OptionalParameter + +instance Data.Foldable.Foldable OptionalParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor OptionalParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable OptionalParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Pair a = Pair + { ann :: a, + value :: (AST.Parse.Err (Expression a)), + key :: (AST.Parse.Err ((ComputedPropertyName GHC.Generics.:+: Number GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_876. + AST.Traversable1.Class.Traversable1 a_876 + ) + +instance AST.Unmarshal.SymbolMatching Pair where + matchedSymbols _ = [222] + showFailure _ node_877 = + "expected " + GHC.Base.<> ( "pair" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_877 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_877) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_878 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_879 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_880 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_881 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_878 + c1_879 = TreeSitter.Node.nodeStartPoint node_877 + TreeSitter.Node.TSPoint + r2_880 + c2_881 = TreeSitter.Node.nodeEndPoint node_877 + +deriving instance GHC.Classes.Eq a_882 => GHC.Classes.Eq (Pair a_882) + +deriving instance GHC.Classes.Ord a_883 => GHC.Classes.Ord (Pair a_883) + +deriving instance GHC.Show.Show a_884 => GHC.Show.Show (Pair a_884) + +instance AST.Unmarshal.Unmarshal Pair + +instance Data.Foldable.Foldable Pair where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Pair where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Pair where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ParenthesizedExpression a = ParenthesizedExpression + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression GHC.Generics.:+: TypeAnnotation) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_885. + AST.Traversable1.Class.Traversable1 a_885 + ) + +instance AST.Unmarshal.SymbolMatching ParenthesizedExpression where + matchedSymbols _ = [178] + showFailure _ node_886 = + "expected " + GHC.Base.<> ( "parenthesized_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_886 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_886) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_887 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_888 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_889 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_890 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_887 + c1_888 = TreeSitter.Node.nodeStartPoint node_886 + TreeSitter.Node.TSPoint + r2_889 + c2_890 = TreeSitter.Node.nodeEndPoint node_886 + +deriving instance GHC.Classes.Eq a_891 => GHC.Classes.Eq (ParenthesizedExpression a_891) + +deriving instance GHC.Classes.Ord a_892 => GHC.Classes.Ord (ParenthesizedExpression a_892) + +deriving instance GHC.Show.Show a_893 => GHC.Show.Show (ParenthesizedExpression a_893) + +instance AST.Unmarshal.Unmarshal ParenthesizedExpression + +instance Data.Foldable.Foldable ParenthesizedExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ParenthesizedExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ParenthesizedExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ParenthesizedType a = ParenthesizedType + { ann :: a, + extraChildren :: (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_894. + AST.Traversable1.Class.Traversable1 a_894 + ) + +instance AST.Unmarshal.SymbolMatching ParenthesizedType where + matchedSymbols _ = [264] + showFailure _ node_895 = + "expected " + GHC.Base.<> ( "parenthesized_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_895 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_895) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_896 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_897 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_898 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_899 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_896 + c1_897 = TreeSitter.Node.nodeStartPoint node_895 + TreeSitter.Node.TSPoint + r2_898 + c2_899 = TreeSitter.Node.nodeEndPoint node_895 + +deriving instance GHC.Classes.Eq a_900 => GHC.Classes.Eq (ParenthesizedType a_900) + +deriving instance GHC.Classes.Ord a_901 => GHC.Classes.Ord (ParenthesizedType a_901) + +deriving instance GHC.Show.Show a_902 => GHC.Show.Show (ParenthesizedType a_902) + +instance AST.Unmarshal.Unmarshal ParenthesizedType + +instance Data.Foldable.Foldable ParenthesizedType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ParenthesizedType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ParenthesizedType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PredefinedType a = PredefinedType {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_903. + AST.Traversable1.Class.Traversable1 a_903 + ) + +instance AST.Unmarshal.SymbolMatching PredefinedType where + matchedSymbols _ = [265] + showFailure _ node_904 = + "expected " + GHC.Base.<> ( "predefined_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_904 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_904) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_905 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_906 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_907 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_908 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_905 + c1_906 = TreeSitter.Node.nodeStartPoint node_904 + TreeSitter.Node.TSPoint + r2_907 + c2_908 = TreeSitter.Node.nodeEndPoint node_904 + +deriving instance GHC.Classes.Eq a_909 => GHC.Classes.Eq (PredefinedType a_909) + +deriving instance GHC.Classes.Ord a_910 => GHC.Classes.Ord (PredefinedType a_910) + +deriving instance GHC.Show.Show a_911 => GHC.Show.Show (PredefinedType a_911) + +instance AST.Unmarshal.Unmarshal PredefinedType + +instance Data.Foldable.Foldable PredefinedType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PredefinedType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PredefinedType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Program a = Program + { ann :: a, + extraChildren :: ([AST.Parse.Err ((Statement GHC.Generics.:+: HashBangLine) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_912. + AST.Traversable1.Class.Traversable1 a_912 + ) + +instance AST.Unmarshal.SymbolMatching Program where + matchedSymbols _ = [141] + showFailure _ node_913 = + "expected " + GHC.Base.<> ( "program" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_913 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_913) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_914 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_915 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_916 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_917 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_914 + c1_915 = TreeSitter.Node.nodeStartPoint node_913 + TreeSitter.Node.TSPoint + r2_916 + c2_917 = TreeSitter.Node.nodeEndPoint node_913 + +deriving instance GHC.Classes.Eq a_918 => GHC.Classes.Eq (Program a_918) + +deriving instance GHC.Classes.Ord a_919 => GHC.Classes.Ord (Program a_919) + +deriving instance GHC.Show.Show a_920 => GHC.Show.Show (Program a_920) + +instance AST.Unmarshal.Unmarshal Program + +instance Data.Foldable.Foldable Program where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Program where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Program where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PropertySignature a = PropertySignature + { ann :: a, + name :: (AST.Parse.Err ((ComputedPropertyName GHC.Generics.:+: Number GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a)), + type' :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + extraChildren :: ([AST.Parse.Err ((AccessibilityModifier GHC.Generics.:+: Readonly) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_921. + AST.Traversable1.Class.Traversable1 a_921 + ) + +instance AST.Unmarshal.SymbolMatching PropertySignature where + matchedSymbols _ = [269] + showFailure _ node_922 = + "expected " + GHC.Base.<> ( "property_signature" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_922 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_922) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_923 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_924 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_925 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_926 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_923 + c1_924 = TreeSitter.Node.nodeStartPoint node_922 + TreeSitter.Node.TSPoint + r2_925 + c2_926 = TreeSitter.Node.nodeEndPoint node_922 + +deriving instance GHC.Classes.Eq a_927 => GHC.Classes.Eq (PropertySignature a_927) + +deriving instance GHC.Classes.Ord a_928 => GHC.Classes.Ord (PropertySignature a_928) + +deriving instance GHC.Show.Show a_929 => GHC.Show.Show (PropertySignature a_929) + +instance AST.Unmarshal.Unmarshal PropertySignature + +instance Data.Foldable.Foldable PropertySignature where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PropertySignature where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PropertySignature where + traverse = AST.Traversable1.Class.traverseDefault1 + +data PublicFieldDefinition a = PublicFieldDefinition + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + name :: (AST.Parse.Err ((ComputedPropertyName GHC.Generics.:+: Number GHC.Generics.:+: PropertyIdentifier GHC.Generics.:+: String) a)), + type' :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))), + extraChildren :: ([AST.Parse.Err ((AccessibilityModifier GHC.Generics.:+: Readonly) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_930. + AST.Traversable1.Class.Traversable1 a_930 + ) + +instance AST.Unmarshal.SymbolMatching PublicFieldDefinition where + matchedSymbols _ = [218] + showFailure _ node_931 = + "expected " + GHC.Base.<> ( "public_field_definition" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_931 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_931) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_932 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_933 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_934 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_935 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_932 + c1_933 = TreeSitter.Node.nodeStartPoint node_931 + TreeSitter.Node.TSPoint + r2_934 + c2_935 = TreeSitter.Node.nodeEndPoint node_931 + +deriving instance GHC.Classes.Eq a_936 => GHC.Classes.Eq (PublicFieldDefinition a_936) + +deriving instance GHC.Classes.Ord a_937 => GHC.Classes.Ord (PublicFieldDefinition a_937) + +deriving instance GHC.Show.Show a_938 => GHC.Show.Show (PublicFieldDefinition a_938) + +instance AST.Unmarshal.Unmarshal PublicFieldDefinition + +instance Data.Foldable.Foldable PublicFieldDefinition where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PublicFieldDefinition where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PublicFieldDefinition where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Regex a = Regex + { ann :: a, + flags :: (GHC.Maybe.Maybe (AST.Parse.Err (RegexFlags a))), + pattern :: (AST.Parse.Err (RegexPattern a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_939. + AST.Traversable1.Class.Traversable1 a_939 + ) + +instance AST.Unmarshal.SymbolMatching Regex where + matchedSymbols _ = [211] + showFailure _ node_940 = + "expected " + GHC.Base.<> ( "regex" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_940 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_940) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_941 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_942 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_943 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_944 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_941 + c1_942 = TreeSitter.Node.nodeStartPoint node_940 + TreeSitter.Node.TSPoint + r2_943 + c2_944 = TreeSitter.Node.nodeEndPoint node_940 + +deriving instance GHC.Classes.Eq a_945 => GHC.Classes.Eq (Regex a_945) + +deriving instance GHC.Classes.Ord a_946 => GHC.Classes.Ord (Regex a_946) + +deriving instance GHC.Show.Show a_947 => GHC.Show.Show (Regex a_947) + +instance AST.Unmarshal.Unmarshal Regex + +instance Data.Foldable.Foldable Regex where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Regex where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Regex where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RequiredParameter a = RequiredParameter + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((DestructuringPattern GHC.Generics.:+: AccessibilityModifier GHC.Generics.:+: Identifier GHC.Generics.:+: Readonly GHC.Generics.:+: This GHC.Generics.:+: TypeAnnotation) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_948. + AST.Traversable1.Class.Traversable1 a_948 + ) + +instance AST.Unmarshal.SymbolMatching RequiredParameter where + matchedSymbols _ = [247] + showFailure _ node_949 = + "expected " + GHC.Base.<> ( "required_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_949 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_949) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_950 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_951 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_952 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_953 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_950 + c1_951 = TreeSitter.Node.nodeStartPoint node_949 + TreeSitter.Node.TSPoint + r2_952 + c2_953 = TreeSitter.Node.nodeEndPoint node_949 + +deriving instance GHC.Classes.Eq a_954 => GHC.Classes.Eq (RequiredParameter a_954) + +deriving instance GHC.Classes.Ord a_955 => GHC.Classes.Ord (RequiredParameter a_955) + +deriving instance GHC.Show.Show a_956 => GHC.Show.Show (RequiredParameter a_956) + +instance AST.Unmarshal.Unmarshal RequiredParameter + +instance Data.Foldable.Foldable RequiredParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RequiredParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RequiredParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RestParameter a = RestParameter + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Identifier GHC.Generics.:+: TypeAnnotation) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_957. + AST.Traversable1.Class.Traversable1 a_957 + ) + +instance AST.Unmarshal.SymbolMatching RestParameter where + matchedSymbols _ = [220] + showFailure _ node_958 = + "expected " + GHC.Base.<> ( "rest_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_958 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_958) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_959 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_960 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_961 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_962 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_959 + c1_960 = TreeSitter.Node.nodeStartPoint node_958 + TreeSitter.Node.TSPoint + r2_961 + c2_962 = TreeSitter.Node.nodeEndPoint node_958 + +deriving instance GHC.Classes.Eq a_963 => GHC.Classes.Eq (RestParameter a_963) + +deriving instance GHC.Classes.Ord a_964 => GHC.Classes.Ord (RestParameter a_964) + +deriving instance GHC.Show.Show a_965 => GHC.Show.Show (RestParameter a_965) + +instance AST.Unmarshal.Unmarshal RestParameter + +instance Data.Foldable.Foldable RestParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RestParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RestParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ReturnStatement a = ReturnStatement + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_966. + AST.Traversable1.Class.Traversable1 a_966 + ) + +instance AST.Unmarshal.SymbolMatching ReturnStatement where + matchedSymbols _ = [169] + showFailure _ node_967 = + "expected " + GHC.Base.<> ( "return_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_967 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_967) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_968 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_969 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_970 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_971 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_968 + c1_969 = TreeSitter.Node.nodeStartPoint node_967 + TreeSitter.Node.TSPoint + r2_970 + c2_971 = TreeSitter.Node.nodeEndPoint node_967 + +deriving instance GHC.Classes.Eq a_972 => GHC.Classes.Eq (ReturnStatement a_972) + +deriving instance GHC.Classes.Ord a_973 => GHC.Classes.Ord (ReturnStatement a_973) + +deriving instance GHC.Show.Show a_974 => GHC.Show.Show (ReturnStatement a_974) + +instance AST.Unmarshal.Unmarshal ReturnStatement + +instance Data.Foldable.Foldable ReturnStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ReturnStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ReturnStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SequenceExpression a = SequenceExpression + { ann :: a, + left :: (AST.Parse.Err (Expression a)), + right :: (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_975. + AST.Traversable1.Class.Traversable1 a_975 + ) + +instance AST.Unmarshal.SymbolMatching SequenceExpression where + matchedSymbols _ = [207] + showFailure _ node_976 = + "expected " + GHC.Base.<> ( "sequence_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_976 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_976) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_977 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_978 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_979 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_980 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_977 + c1_978 = TreeSitter.Node.nodeStartPoint node_976 + TreeSitter.Node.TSPoint + r2_979 + c2_980 = TreeSitter.Node.nodeEndPoint node_976 + +deriving instance GHC.Classes.Eq a_981 => GHC.Classes.Eq (SequenceExpression a_981) + +deriving instance GHC.Classes.Ord a_982 => GHC.Classes.Ord (SequenceExpression a_982) + +deriving instance GHC.Show.Show a_983 => GHC.Show.Show (SequenceExpression a_983) + +instance AST.Unmarshal.Unmarshal SequenceExpression + +instance Data.Foldable.Foldable SequenceExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SequenceExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SequenceExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SpreadElement a = SpreadElement + { ann :: a, + extraChildren :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_984. + AST.Traversable1.Class.Traversable1 a_984 + ) + +instance AST.Unmarshal.SymbolMatching SpreadElement where + matchedSymbols _ = [202] + showFailure _ node_985 = + "expected " + GHC.Base.<> ( "spread_element" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_985 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_985) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_986 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_987 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_988 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_989 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_986 + c1_987 = TreeSitter.Node.nodeStartPoint node_985 + TreeSitter.Node.TSPoint + r2_988 + c2_989 = TreeSitter.Node.nodeEndPoint node_985 + +deriving instance GHC.Classes.Eq a_990 => GHC.Classes.Eq (SpreadElement a_990) + +deriving instance GHC.Classes.Ord a_991 => GHC.Classes.Ord (SpreadElement a_991) + +deriving instance GHC.Show.Show a_992 => GHC.Show.Show (SpreadElement a_992) + +instance AST.Unmarshal.Unmarshal SpreadElement + +instance Data.Foldable.Foldable SpreadElement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SpreadElement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SpreadElement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data StatementBlock a = StatementBlock + { ann :: a, + extraChildren :: ([AST.Parse.Err (Statement a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_993. + AST.Traversable1.Class.Traversable1 a_993 + ) + +instance AST.Unmarshal.SymbolMatching StatementBlock where + matchedSymbols _ = [156] + showFailure _ node_994 = + "expected " + GHC.Base.<> ( "statement_block" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_994 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_994) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_995 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_996 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_997 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_998 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_995 + c1_996 = TreeSitter.Node.nodeStartPoint node_994 + TreeSitter.Node.TSPoint + r2_997 + c2_998 = TreeSitter.Node.nodeEndPoint node_994 + +deriving instance GHC.Classes.Eq a_999 => GHC.Classes.Eq (StatementBlock a_999) + +deriving instance GHC.Classes.Ord a_1000 => GHC.Classes.Ord (StatementBlock a_1000) + +deriving instance GHC.Show.Show a_1001 => GHC.Show.Show (StatementBlock a_1001) + +instance AST.Unmarshal.Unmarshal StatementBlock + +instance Data.Foldable.Foldable StatementBlock where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor StatementBlock where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable StatementBlock where + traverse = AST.Traversable1.Class.traverseDefault1 + +data String a = String + { ann :: a, + extraChildren :: ([AST.Parse.Err (EscapeSequence a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1002. + AST.Traversable1.Class.Traversable1 a_1002 + ) + +instance AST.Unmarshal.SymbolMatching String where + matchedSymbols _ = [208] + showFailure _ node_1003 = + "expected " + GHC.Base.<> ( "string" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1003 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1003) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1004 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1005 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1006 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1007 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1004 + c1_1005 = TreeSitter.Node.nodeStartPoint node_1003 + TreeSitter.Node.TSPoint + r2_1006 + c2_1007 = TreeSitter.Node.nodeEndPoint node_1003 + +deriving instance GHC.Classes.Eq a_1008 => GHC.Classes.Eq (String a_1008) + +deriving instance GHC.Classes.Ord a_1009 => GHC.Classes.Ord (String a_1009) + +deriving instance GHC.Show.Show a_1010 => GHC.Show.Show (String a_1010) + +instance AST.Unmarshal.Unmarshal String + +instance Data.Foldable.Foldable String where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor String where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable String where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SubscriptExpression a = SubscriptExpression + { ann :: a, + object :: (AST.Parse.Err (Expression a)), + index :: (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1011. + AST.Traversable1.Class.Traversable1 a_1011 + ) + +instance AST.Unmarshal.SymbolMatching SubscriptExpression where + matchedSymbols _ = [198] + showFailure _ node_1012 = + "expected " + GHC.Base.<> ( "subscript_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1012 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1012) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1013 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1014 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1015 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1016 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1013 + c1_1014 = TreeSitter.Node.nodeStartPoint node_1012 + TreeSitter.Node.TSPoint + r2_1015 + c2_1016 = TreeSitter.Node.nodeEndPoint node_1012 + +deriving instance GHC.Classes.Eq a_1017 => GHC.Classes.Eq (SubscriptExpression a_1017) + +deriving instance GHC.Classes.Ord a_1018 => GHC.Classes.Ord (SubscriptExpression a_1018) + +deriving instance GHC.Show.Show a_1019 => GHC.Show.Show (SubscriptExpression a_1019) + +instance AST.Unmarshal.Unmarshal SubscriptExpression + +instance Data.Foldable.Foldable SubscriptExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SubscriptExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SubscriptExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SwitchBody a = SwitchBody + { ann :: a, + extraChildren :: ([AST.Parse.Err ((SwitchCase GHC.Generics.:+: SwitchDefault) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1020. + AST.Traversable1.Class.Traversable1 a_1020 + ) + +instance AST.Unmarshal.SymbolMatching SwitchBody where + matchedSymbols _ = [173] + showFailure _ node_1021 = + "expected " + GHC.Base.<> ( "switch_body" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1021 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1021) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1022 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1023 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1024 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1025 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1022 + c1_1023 = TreeSitter.Node.nodeStartPoint node_1021 + TreeSitter.Node.TSPoint + r2_1024 + c2_1025 = TreeSitter.Node.nodeEndPoint node_1021 + +deriving instance GHC.Classes.Eq a_1026 => GHC.Classes.Eq (SwitchBody a_1026) + +deriving instance GHC.Classes.Ord a_1027 => GHC.Classes.Ord (SwitchBody a_1027) + +deriving instance GHC.Show.Show a_1028 => GHC.Show.Show (SwitchBody a_1028) + +instance AST.Unmarshal.Unmarshal SwitchBody + +instance Data.Foldable.Foldable SwitchBody where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SwitchBody where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SwitchBody where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SwitchCase a = SwitchCase + { ann :: a, + value :: (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a)), + extraChildren :: ([AST.Parse.Err (Statement a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1029. + AST.Traversable1.Class.Traversable1 a_1029 + ) + +instance AST.Unmarshal.SymbolMatching SwitchCase where + matchedSymbols _ = [174] + showFailure _ node_1030 = + "expected " + GHC.Base.<> ( "switch_case" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1030 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1030) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1031 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1032 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1033 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1034 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1031 + c1_1032 = TreeSitter.Node.nodeStartPoint node_1030 + TreeSitter.Node.TSPoint + r2_1033 + c2_1034 = TreeSitter.Node.nodeEndPoint node_1030 + +deriving instance GHC.Classes.Eq a_1035 => GHC.Classes.Eq (SwitchCase a_1035) + +deriving instance GHC.Classes.Ord a_1036 => GHC.Classes.Ord (SwitchCase a_1036) + +deriving instance GHC.Show.Show a_1037 => GHC.Show.Show (SwitchCase a_1037) + +instance AST.Unmarshal.Unmarshal SwitchCase + +instance Data.Foldable.Foldable SwitchCase where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SwitchCase where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SwitchCase where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SwitchDefault a = SwitchDefault + { ann :: a, + extraChildren :: ([AST.Parse.Err (Statement a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1038. + AST.Traversable1.Class.Traversable1 a_1038 + ) + +instance AST.Unmarshal.SymbolMatching SwitchDefault where + matchedSymbols _ = [175] + showFailure _ node_1039 = + "expected " + GHC.Base.<> ( "switch_default" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1039 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1039) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1040 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1041 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1042 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1043 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1040 + c1_1041 = TreeSitter.Node.nodeStartPoint node_1039 + TreeSitter.Node.TSPoint + r2_1042 + c2_1043 = TreeSitter.Node.nodeEndPoint node_1039 + +deriving instance GHC.Classes.Eq a_1044 => GHC.Classes.Eq (SwitchDefault a_1044) + +deriving instance GHC.Classes.Ord a_1045 => GHC.Classes.Ord (SwitchDefault a_1045) + +deriving instance GHC.Show.Show a_1046 => GHC.Show.Show (SwitchDefault a_1046) + +instance AST.Unmarshal.Unmarshal SwitchDefault + +instance Data.Foldable.Foldable SwitchDefault where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SwitchDefault where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SwitchDefault where + traverse = AST.Traversable1.Class.traverseDefault1 + +data SwitchStatement a = SwitchStatement + { ann :: a, + body :: (AST.Parse.Err (SwitchBody a)), + value :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1047. + AST.Traversable1.Class.Traversable1 a_1047 + ) + +instance AST.Unmarshal.SymbolMatching SwitchStatement where + matchedSymbols _ = [158] + showFailure _ node_1048 = + "expected " + GHC.Base.<> ( "switch_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1048 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1048) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1049 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1050 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1051 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1052 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1049 + c1_1050 = TreeSitter.Node.nodeStartPoint node_1048 + TreeSitter.Node.TSPoint + r2_1051 + c2_1052 = TreeSitter.Node.nodeEndPoint node_1048 + +deriving instance GHC.Classes.Eq a_1053 => GHC.Classes.Eq (SwitchStatement a_1053) + +deriving instance GHC.Classes.Ord a_1054 => GHC.Classes.Ord (SwitchStatement a_1054) + +deriving instance GHC.Show.Show a_1055 => GHC.Show.Show (SwitchStatement a_1055) + +instance AST.Unmarshal.Unmarshal SwitchStatement + +instance Data.Foldable.Foldable SwitchStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor SwitchStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable SwitchStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TemplateString a = TemplateString + { ann :: a, + extraChildren :: ([AST.Parse.Err ((EscapeSequence GHC.Generics.:+: TemplateSubstitution) a)]) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1056. + AST.Traversable1.Class.Traversable1 a_1056 + ) + +instance AST.Unmarshal.SymbolMatching TemplateString where + matchedSymbols _ = [209] + showFailure _ node_1057 = + "expected " + GHC.Base.<> ( "template_string" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1057 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1057) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1058 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1059 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1060 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1061 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1058 + c1_1059 = TreeSitter.Node.nodeStartPoint node_1057 + TreeSitter.Node.TSPoint + r2_1060 + c2_1061 = TreeSitter.Node.nodeEndPoint node_1057 + +deriving instance GHC.Classes.Eq a_1062 => GHC.Classes.Eq (TemplateString a_1062) + +deriving instance GHC.Classes.Ord a_1063 => GHC.Classes.Ord (TemplateString a_1063) + +deriving instance GHC.Show.Show a_1064 => GHC.Show.Show (TemplateString a_1064) + +instance AST.Unmarshal.Unmarshal TemplateString + +instance Data.Foldable.Foldable TemplateString where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TemplateString where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TemplateString where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TemplateSubstitution a = TemplateSubstitution + { ann :: a, + extraChildren :: (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1065. + AST.Traversable1.Class.Traversable1 a_1065 + ) + +instance AST.Unmarshal.SymbolMatching TemplateSubstitution where + matchedSymbols _ = [210] + showFailure _ node_1066 = + "expected " + GHC.Base.<> ( "template_substitution" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1066 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1066) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1067 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1068 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1069 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1070 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1067 + c1_1068 = TreeSitter.Node.nodeStartPoint node_1066 + TreeSitter.Node.TSPoint + r2_1069 + c2_1070 = TreeSitter.Node.nodeEndPoint node_1066 + +deriving instance GHC.Classes.Eq a_1071 => GHC.Classes.Eq (TemplateSubstitution a_1071) + +deriving instance GHC.Classes.Ord a_1072 => GHC.Classes.Ord (TemplateSubstitution a_1072) + +deriving instance GHC.Show.Show a_1073 => GHC.Show.Show (TemplateSubstitution a_1073) + +instance AST.Unmarshal.Unmarshal TemplateSubstitution + +instance Data.Foldable.Foldable TemplateSubstitution where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TemplateSubstitution where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TemplateSubstitution where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TernaryExpression a = TernaryExpression + { ann :: a, + alternative :: (AST.Parse.Err (Expression a)), + consequence :: (AST.Parse.Err (Expression a)), + condition :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1074. + AST.Traversable1.Class.Traversable1 a_1074 + ) + +instance AST.Unmarshal.SymbolMatching TernaryExpression where + matchedSymbols _ = [203] + showFailure _ node_1075 = + "expected " + GHC.Base.<> ( "ternary_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1075 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1075) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1076 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1077 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1078 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1079 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1076 + c1_1077 = TreeSitter.Node.nodeStartPoint node_1075 + TreeSitter.Node.TSPoint + r2_1078 + c2_1079 = TreeSitter.Node.nodeEndPoint node_1075 + +deriving instance GHC.Classes.Eq a_1080 => GHC.Classes.Eq (TernaryExpression a_1080) + +deriving instance GHC.Classes.Ord a_1081 => GHC.Classes.Ord (TernaryExpression a_1081) + +deriving instance GHC.Show.Show a_1082 => GHC.Show.Show (TernaryExpression a_1082) + +instance AST.Unmarshal.Unmarshal TernaryExpression + +instance Data.Foldable.Foldable TernaryExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TernaryExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TernaryExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data ThrowStatement a = ThrowStatement + { ann :: a, + extraChildren :: (AST.Parse.Err ((Expression GHC.Generics.:+: SequenceExpression) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1083. + AST.Traversable1.Class.Traversable1 a_1083 + ) + +instance AST.Unmarshal.SymbolMatching ThrowStatement where + matchedSymbols _ = [170] + showFailure _ node_1084 = + "expected " + GHC.Base.<> ( "throw_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1084 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1084) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1085 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1086 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1087 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1088 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1085 + c1_1086 = TreeSitter.Node.nodeStartPoint node_1084 + TreeSitter.Node.TSPoint + r2_1087 + c2_1088 = TreeSitter.Node.nodeEndPoint node_1084 + +deriving instance GHC.Classes.Eq a_1089 => GHC.Classes.Eq (ThrowStatement a_1089) + +deriving instance GHC.Classes.Ord a_1090 => GHC.Classes.Ord (ThrowStatement a_1090) + +deriving instance GHC.Show.Show a_1091 => GHC.Show.Show (ThrowStatement a_1091) + +instance AST.Unmarshal.Unmarshal ThrowStatement + +instance Data.Foldable.Foldable ThrowStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ThrowStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ThrowStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TryStatement a = TryStatement + { ann :: a, + body :: (AST.Parse.Err (StatementBlock a)), + handler :: (GHC.Maybe.Maybe (AST.Parse.Err (CatchClause a))), + finalizer :: (GHC.Maybe.Maybe (AST.Parse.Err (FinallyClause a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1092. + AST.Traversable1.Class.Traversable1 a_1092 + ) + +instance AST.Unmarshal.SymbolMatching TryStatement where + matchedSymbols _ = [164] + showFailure _ node_1093 = + "expected " + GHC.Base.<> ( "try_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1093 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1093) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1094 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1095 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1096 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1097 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1094 + c1_1095 = TreeSitter.Node.nodeStartPoint node_1093 + TreeSitter.Node.TSPoint + r2_1096 + c2_1097 = TreeSitter.Node.nodeEndPoint node_1093 + +deriving instance GHC.Classes.Eq a_1098 => GHC.Classes.Eq (TryStatement a_1098) + +deriving instance GHC.Classes.Ord a_1099 => GHC.Classes.Ord (TryStatement a_1099) + +deriving instance GHC.Show.Show a_1100 => GHC.Show.Show (TryStatement a_1100) + +instance AST.Unmarshal.Unmarshal TryStatement + +instance Data.Foldable.Foldable TryStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TryStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TryStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TupleType a = TupleType + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1101. + AST.Traversable1.Class.Traversable1 a_1101 + ) + +instance AST.Unmarshal.SymbolMatching TupleType where + matchedSymbols _ = [277] + showFailure _ node_1102 = + "expected " + GHC.Base.<> ( "tuple_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1102 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1102) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1103 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1104 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1105 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1106 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1103 + c1_1104 = TreeSitter.Node.nodeStartPoint node_1102 + TreeSitter.Node.TSPoint + r2_1105 + c2_1106 = TreeSitter.Node.nodeEndPoint node_1102 + +deriving instance GHC.Classes.Eq a_1107 => GHC.Classes.Eq (TupleType a_1107) + +deriving instance GHC.Classes.Ord a_1108 => GHC.Classes.Ord (TupleType a_1108) + +deriving instance GHC.Show.Show a_1109 => GHC.Show.Show (TupleType a_1109) + +instance AST.Unmarshal.Unmarshal TupleType + +instance Data.Foldable.Foldable TupleType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TupleType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TupleType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeAliasDeclaration a = TypeAliasDeclaration + { ann :: a, + value :: (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a)), + name :: (AST.Parse.Err (TypeIdentifier a)), + typeParameters :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeParameters a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1110. + AST.Traversable1.Class.Traversable1 a_1110 + ) + +instance AST.Unmarshal.SymbolMatching TypeAliasDeclaration where + matchedSymbols _ = [245] + showFailure _ node_1111 = + "expected " + GHC.Base.<> ( "type_alias_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1111 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1111) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1112 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1113 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1114 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1115 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1112 + c1_1113 = TreeSitter.Node.nodeStartPoint node_1111 + TreeSitter.Node.TSPoint + r2_1114 + c2_1115 = TreeSitter.Node.nodeEndPoint node_1111 + +deriving instance GHC.Classes.Eq a_1116 => GHC.Classes.Eq (TypeAliasDeclaration a_1116) + +deriving instance GHC.Classes.Ord a_1117 => GHC.Classes.Ord (TypeAliasDeclaration a_1117) + +deriving instance GHC.Show.Show a_1118 => GHC.Show.Show (TypeAliasDeclaration a_1118) + +instance AST.Unmarshal.Unmarshal TypeAliasDeclaration + +instance Data.Foldable.Foldable TypeAliasDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeAliasDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeAliasDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeAnnotation a = TypeAnnotation + { ann :: a, + extraChildren :: (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1119. + AST.Traversable1.Class.Traversable1 a_1119 + ) + +instance AST.Unmarshal.SymbolMatching TypeAnnotation where + matchedSymbols _ = [250] + showFailure _ node_1120 = + "expected " + GHC.Base.<> ( "type_annotation" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1120 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1120) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1121 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1122 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1123 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1124 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1121 + c1_1122 = TreeSitter.Node.nodeStartPoint node_1120 + TreeSitter.Node.TSPoint + r2_1123 + c2_1124 = TreeSitter.Node.nodeEndPoint node_1120 + +deriving instance GHC.Classes.Eq a_1125 => GHC.Classes.Eq (TypeAnnotation a_1125) + +deriving instance GHC.Classes.Ord a_1126 => GHC.Classes.Ord (TypeAnnotation a_1126) + +deriving instance GHC.Show.Show a_1127 => GHC.Show.Show (TypeAnnotation a_1127) + +instance AST.Unmarshal.Unmarshal TypeAnnotation + +instance Data.Foldable.Foldable TypeAnnotation where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeAnnotation where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeAnnotation where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeArguments a = TypeArguments + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1128. + AST.Traversable1.Class.Traversable1 a_1128 + ) + +instance AST.Unmarshal.SymbolMatching TypeArguments where + matchedSymbols _ = [266] + showFailure _ node_1129 = + "expected " + GHC.Base.<> ( "type_arguments" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1129 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1129) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1130 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1131 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1132 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1133 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1130 + c1_1131 = TreeSitter.Node.nodeStartPoint node_1129 + TreeSitter.Node.TSPoint + r2_1132 + c2_1133 = TreeSitter.Node.nodeEndPoint node_1129 + +deriving instance GHC.Classes.Eq a_1134 => GHC.Classes.Eq (TypeArguments a_1134) + +deriving instance GHC.Classes.Ord a_1135 => GHC.Classes.Ord (TypeArguments a_1135) + +deriving instance GHC.Show.Show a_1136 => GHC.Show.Show (TypeArguments a_1136) + +instance AST.Unmarshal.Unmarshal TypeArguments + +instance Data.Foldable.Foldable TypeArguments where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeArguments where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeArguments where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeAssertion a = TypeAssertion + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Expression GHC.Generics.:+: TypeArguments) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1137. + AST.Traversable1.Class.Traversable1 a_1137 + ) + +instance AST.Unmarshal.SymbolMatching TypeAssertion where + matchedSymbols _ = [229] + showFailure _ node_1138 = + "expected " + GHC.Base.<> ( "type_assertion" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1138 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1138) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1139 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1140 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1141 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1142 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1139 + c1_1140 = TreeSitter.Node.nodeStartPoint node_1138 + TreeSitter.Node.TSPoint + r2_1141 + c2_1142 = TreeSitter.Node.nodeEndPoint node_1138 + +deriving instance GHC.Classes.Eq a_1143 => GHC.Classes.Eq (TypeAssertion a_1143) + +deriving instance GHC.Classes.Ord a_1144 => GHC.Classes.Ord (TypeAssertion a_1144) + +deriving instance GHC.Show.Show a_1145 => GHC.Show.Show (TypeAssertion a_1145) + +instance AST.Unmarshal.Unmarshal TypeAssertion + +instance Data.Foldable.Foldable TypeAssertion where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeAssertion where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeAssertion where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeParameter a = TypeParameter + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((Constraint GHC.Generics.:+: DefaultType GHC.Generics.:+: TypeIdentifier) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1146. + AST.Traversable1.Class.Traversable1 a_1146 + ) + +instance AST.Unmarshal.SymbolMatching TypeParameter where + matchedSymbols _ = [271] + showFailure _ node_1147 = + "expected " + GHC.Base.<> ( "type_parameter" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1147 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1147) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1148 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1149 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1150 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1151 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1148 + c1_1149 = TreeSitter.Node.nodeStartPoint node_1147 + TreeSitter.Node.TSPoint + r2_1150 + c2_1151 = TreeSitter.Node.nodeEndPoint node_1147 + +deriving instance GHC.Classes.Eq a_1152 => GHC.Classes.Eq (TypeParameter a_1152) + +deriving instance GHC.Classes.Ord a_1153 => GHC.Classes.Ord (TypeParameter a_1153) + +deriving instance GHC.Show.Show a_1154 => GHC.Show.Show (TypeParameter a_1154) + +instance AST.Unmarshal.Unmarshal TypeParameter + +instance Data.Foldable.Foldable TypeParameter where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeParameter where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeParameter where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeParameters a = TypeParameters + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (TypeParameter a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1155. + AST.Traversable1.Class.Traversable1 a_1155 + ) + +instance AST.Unmarshal.SymbolMatching TypeParameters where + matchedSymbols _ = [270] + showFailure _ node_1156 = + "expected " + GHC.Base.<> ( "type_parameters" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1156 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1156) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1157 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1158 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1159 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1160 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1157 + c1_1158 = TreeSitter.Node.nodeStartPoint node_1156 + TreeSitter.Node.TSPoint + r2_1159 + c2_1160 = TreeSitter.Node.nodeEndPoint node_1156 + +deriving instance GHC.Classes.Eq a_1161 => GHC.Classes.Eq (TypeParameters a_1161) + +deriving instance GHC.Classes.Ord a_1162 => GHC.Classes.Ord (TypeParameters a_1162) + +deriving instance GHC.Show.Show a_1163 => GHC.Show.Show (TypeParameters a_1163) + +instance AST.Unmarshal.Unmarshal TypeParameters + +instance Data.Foldable.Foldable TypeParameters where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeParameters where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeParameters where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypePredicate a = TypePredicate + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: Identifier GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1164. + AST.Traversable1.Class.Traversable1 a_1164 + ) + +instance AST.Unmarshal.SymbolMatching TypePredicate where + matchedSymbols _ = [255] + showFailure _ node_1165 = + "expected " + GHC.Base.<> ( "type_predicate" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1165 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1165) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1166 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1167 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1168 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1169 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1166 + c1_1167 = TreeSitter.Node.nodeStartPoint node_1165 + TreeSitter.Node.TSPoint + r2_1168 + c2_1169 = TreeSitter.Node.nodeEndPoint node_1165 + +deriving instance GHC.Classes.Eq a_1170 => GHC.Classes.Eq (TypePredicate a_1170) + +deriving instance GHC.Classes.Ord a_1171 => GHC.Classes.Ord (TypePredicate a_1171) + +deriving instance GHC.Show.Show a_1172 => GHC.Show.Show (TypePredicate a_1172) + +instance AST.Unmarshal.Unmarshal TypePredicate + +instance Data.Foldable.Foldable TypePredicate where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypePredicate where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypePredicate where + traverse = AST.Traversable1.Class.traverseDefault1 + +data TypeQuery a = TypeQuery + { ann :: a, + extraChildren :: (AST.Parse.Err ((Identifier GHC.Generics.:+: NestedIdentifier) a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1173. + AST.Traversable1.Class.Traversable1 a_1173 + ) + +instance AST.Unmarshal.SymbolMatching TypeQuery where + matchedSymbols _ = [256] + showFailure _ node_1174 = + "expected " + GHC.Base.<> ( "type_query" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1174 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1174) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1175 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1176 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1177 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1178 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1175 + c1_1176 = TreeSitter.Node.nodeStartPoint node_1174 + TreeSitter.Node.TSPoint + r2_1177 + c2_1178 = TreeSitter.Node.nodeEndPoint node_1174 + +deriving instance GHC.Classes.Eq a_1179 => GHC.Classes.Eq (TypeQuery a_1179) + +deriving instance GHC.Classes.Ord a_1180 => GHC.Classes.Ord (TypeQuery a_1180) + +deriving instance GHC.Show.Show a_1181 => GHC.Show.Show (TypeQuery a_1181) + +instance AST.Unmarshal.Unmarshal TypeQuery + +instance Data.Foldable.Foldable TypeQuery where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeQuery where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeQuery where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UnaryExpression a = UnaryExpression + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousBang GHC.Generics.:+: AnonymousPlus GHC.Generics.:+: AnonymousMinus GHC.Generics.:+: AnonymousDelete GHC.Generics.:+: AnonymousTypeof GHC.Generics.:+: AnonymousVoid GHC.Generics.:+: AnonymousTilde) a)), + argument :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1182. + AST.Traversable1.Class.Traversable1 a_1182 + ) + +instance AST.Unmarshal.SymbolMatching UnaryExpression where + matchedSymbols _ = [205, 261] + showFailure _ node_1183 = + "expected " + GHC.Base.<> ( "unary_expression, unary_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1183 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1183) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1184 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1185 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1186 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1187 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1184 + c1_1185 = TreeSitter.Node.nodeStartPoint node_1183 + TreeSitter.Node.TSPoint + r2_1186 + c2_1187 = TreeSitter.Node.nodeEndPoint node_1183 + +deriving instance GHC.Classes.Eq a_1188 => GHC.Classes.Eq (UnaryExpression a_1188) + +deriving instance GHC.Classes.Ord a_1189 => GHC.Classes.Ord (UnaryExpression a_1189) + +deriving instance GHC.Show.Show a_1190 => GHC.Show.Show (UnaryExpression a_1190) + +instance AST.Unmarshal.Unmarshal UnaryExpression + +instance Data.Foldable.Foldable UnaryExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UnaryExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UnaryExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UnionType a = UnionType + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err ((ArrayType GHC.Generics.:+: ConstructorType GHC.Generics.:+: ExistentialType GHC.Generics.:+: FlowMaybeType GHC.Generics.:+: FunctionType GHC.Generics.:+: GenericType GHC.Generics.:+: IndexTypeQuery GHC.Generics.:+: IntersectionType GHC.Generics.:+: LiteralType GHC.Generics.:+: LookupType GHC.Generics.:+: NestedTypeIdentifier GHC.Generics.:+: ObjectType GHC.Generics.:+: ParenthesizedType GHC.Generics.:+: PredefinedType GHC.Generics.:+: This GHC.Generics.:+: TupleType GHC.Generics.:+: TypeIdentifier GHC.Generics.:+: TypePredicate GHC.Generics.:+: TypeQuery GHC.Generics.:+: UnionType) a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1191. + AST.Traversable1.Class.Traversable1 a_1191 + ) + +instance AST.Unmarshal.SymbolMatching UnionType where + matchedSymbols _ = [278] + showFailure _ node_1192 = + "expected " + GHC.Base.<> ( "union_type" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1192 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1192) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1193 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1194 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1195 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1196 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1193 + c1_1194 = TreeSitter.Node.nodeStartPoint node_1192 + TreeSitter.Node.TSPoint + r2_1195 + c2_1196 = TreeSitter.Node.nodeEndPoint node_1192 + +deriving instance GHC.Classes.Eq a_1197 => GHC.Classes.Eq (UnionType a_1197) + +deriving instance GHC.Classes.Ord a_1198 => GHC.Classes.Ord (UnionType a_1198) + +deriving instance GHC.Show.Show a_1199 => GHC.Show.Show (UnionType a_1199) + +instance AST.Unmarshal.Unmarshal UnionType + +instance Data.Foldable.Foldable UnionType where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UnionType where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UnionType where + traverse = AST.Traversable1.Class.traverseDefault1 + +data UpdateExpression a = UpdateExpression + { ann :: a, + operator :: (AST.Parse.Err ((AnonymousPlusPlus GHC.Generics.:+: AnonymousMinusMinus) a)), + argument :: (AST.Parse.Err (Expression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1200. + AST.Traversable1.Class.Traversable1 a_1200 + ) + +instance AST.Unmarshal.SymbolMatching UpdateExpression where + matchedSymbols _ = [206] + showFailure _ node_1201 = + "expected " + GHC.Base.<> ( "update_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1201 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1201) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1202 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1203 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1204 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1205 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1202 + c1_1203 = TreeSitter.Node.nodeStartPoint node_1201 + TreeSitter.Node.TSPoint + r2_1204 + c2_1205 = TreeSitter.Node.nodeEndPoint node_1201 + +deriving instance GHC.Classes.Eq a_1206 => GHC.Classes.Eq (UpdateExpression a_1206) + +deriving instance GHC.Classes.Ord a_1207 => GHC.Classes.Ord (UpdateExpression a_1207) + +deriving instance GHC.Show.Show a_1208 => GHC.Show.Show (UpdateExpression a_1208) + +instance AST.Unmarshal.Unmarshal UpdateExpression + +instance Data.Foldable.Foldable UpdateExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor UpdateExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable UpdateExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +data VariableDeclaration a = VariableDeclaration + { ann :: a, + extraChildren :: (GHC.Base.NonEmpty (AST.Parse.Err (VariableDeclarator a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1209. + AST.Traversable1.Class.Traversable1 a_1209 + ) + +instance AST.Unmarshal.SymbolMatching VariableDeclaration where + matchedSymbols _ = [153] + showFailure _ node_1210 = + "expected " + GHC.Base.<> ( "variable_declaration" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1210 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1210) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1211 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1212 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1213 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1214 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1211 + c1_1212 = TreeSitter.Node.nodeStartPoint node_1210 + TreeSitter.Node.TSPoint + r2_1213 + c2_1214 = TreeSitter.Node.nodeEndPoint node_1210 + +deriving instance GHC.Classes.Eq a_1215 => GHC.Classes.Eq (VariableDeclaration a_1215) + +deriving instance GHC.Classes.Ord a_1216 => GHC.Classes.Ord (VariableDeclaration a_1216) + +deriving instance GHC.Show.Show a_1217 => GHC.Show.Show (VariableDeclaration a_1217) + +instance AST.Unmarshal.Unmarshal VariableDeclaration + +instance Data.Foldable.Foldable VariableDeclaration where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor VariableDeclaration where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable VariableDeclaration where + traverse = AST.Traversable1.Class.traverseDefault1 + +data VariableDeclarator a = VariableDeclarator + { ann :: a, + value :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))), + name :: (AST.Parse.Err ((DestructuringPattern GHC.Generics.:+: Identifier) a)), + type' :: (GHC.Maybe.Maybe (AST.Parse.Err (TypeAnnotation a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1218. + AST.Traversable1.Class.Traversable1 a_1218 + ) + +instance AST.Unmarshal.SymbolMatching VariableDeclarator where + matchedSymbols _ = [155] + showFailure _ node_1219 = + "expected " + GHC.Base.<> ( "variable_declarator" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1219 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1219) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1220 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1221 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1222 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1223 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1220 + c1_1221 = TreeSitter.Node.nodeStartPoint node_1219 + TreeSitter.Node.TSPoint + r2_1222 + c2_1223 = TreeSitter.Node.nodeEndPoint node_1219 + +deriving instance GHC.Classes.Eq a_1224 => GHC.Classes.Eq (VariableDeclarator a_1224) + +deriving instance GHC.Classes.Ord a_1225 => GHC.Classes.Ord (VariableDeclarator a_1225) + +deriving instance GHC.Show.Show a_1226 => GHC.Show.Show (VariableDeclarator a_1226) + +instance AST.Unmarshal.Unmarshal VariableDeclarator + +instance Data.Foldable.Foldable VariableDeclarator where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor VariableDeclarator where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable VariableDeclarator where + traverse = AST.Traversable1.Class.traverseDefault1 + +data WhileStatement a = WhileStatement + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + condition :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1227. + AST.Traversable1.Class.Traversable1 a_1227 + ) + +instance AST.Unmarshal.SymbolMatching WhileStatement where + matchedSymbols _ = [162] + showFailure _ node_1228 = + "expected " + GHC.Base.<> ( "while_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1228 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1228) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1229 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1230 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1231 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1232 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1229 + c1_1230 = TreeSitter.Node.nodeStartPoint node_1228 + TreeSitter.Node.TSPoint + r2_1231 + c2_1232 = TreeSitter.Node.nodeEndPoint node_1228 + +deriving instance GHC.Classes.Eq a_1233 => GHC.Classes.Eq (WhileStatement a_1233) + +deriving instance GHC.Classes.Ord a_1234 => GHC.Classes.Ord (WhileStatement a_1234) + +deriving instance GHC.Show.Show a_1235 => GHC.Show.Show (WhileStatement a_1235) + +instance AST.Unmarshal.Unmarshal WhileStatement + +instance Data.Foldable.Foldable WhileStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor WhileStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable WhileStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data WithStatement a = WithStatement + { ann :: a, + body :: (AST.Parse.Err (Statement a)), + object :: (AST.Parse.Err (ParenthesizedExpression a)) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1236. + AST.Traversable1.Class.Traversable1 a_1236 + ) + +instance AST.Unmarshal.SymbolMatching WithStatement where + matchedSymbols _ = [165] + showFailure _ node_1237 = + "expected " + GHC.Base.<> ( "with_statement" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1237 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1237) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1238 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1239 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1240 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1241 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1238 + c1_1239 = TreeSitter.Node.nodeStartPoint node_1237 + TreeSitter.Node.TSPoint + r2_1240 + c2_1241 = TreeSitter.Node.nodeEndPoint node_1237 + +deriving instance GHC.Classes.Eq a_1242 => GHC.Classes.Eq (WithStatement a_1242) + +deriving instance GHC.Classes.Ord a_1243 => GHC.Classes.Ord (WithStatement a_1243) + +deriving instance GHC.Show.Show a_1244 => GHC.Show.Show (WithStatement a_1244) + +instance AST.Unmarshal.Unmarshal WithStatement + +instance Data.Foldable.Foldable WithStatement where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor WithStatement where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable WithStatement where + traverse = AST.Traversable1.Class.traverseDefault1 + +data YieldExpression a = YieldExpression + { ann :: a, + extraChildren :: (GHC.Maybe.Maybe (AST.Parse.Err (Expression a))) + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1245. + AST.Traversable1.Class.Traversable1 a_1245 + ) + +instance AST.Unmarshal.SymbolMatching YieldExpression where + matchedSymbols _ = [180] + showFailure _ node_1246 = + "expected " + GHC.Base.<> ( "yield_expression" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1246 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1246) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1247 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1248 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1249 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1250 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1247 + c1_1248 = TreeSitter.Node.nodeStartPoint node_1246 + TreeSitter.Node.TSPoint + r2_1249 + c2_1250 = TreeSitter.Node.nodeEndPoint node_1246 + +deriving instance GHC.Classes.Eq a_1251 => GHC.Classes.Eq (YieldExpression a_1251) + +deriving instance GHC.Classes.Ord a_1252 => GHC.Classes.Ord (YieldExpression a_1252) + +deriving instance GHC.Show.Show a_1253 => GHC.Show.Show (YieldExpression a_1253) + +instance AST.Unmarshal.Unmarshal YieldExpression + +instance Data.Foldable.Foldable YieldExpression where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor YieldExpression where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable YieldExpression where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousBang = AST.Token.Token "!" 88 + +type AnonymousBangEqual = AST.Token.Token "!=" 83 + +type AnonymousBangEqualEqual = AST.Token.Token "!==" 84 + +type AnonymousDQuote = AST.Token.Token "\"" 94 + +type AnonymousDollarLBrace = AST.Token.Token "${" 101 + +type AnonymousPercent = AST.Token.Token "%" 78 + +type AnonymousPercentEqual = AST.Token.Token "%=" 58 + +type AnonymousAmpersand = AST.Token.Token "&" 73 + +type AnonymousAmpersandAmpersand = AST.Token.Token "&&" 68 + +type AnonymousAmpersandEqual = AST.Token.Token "&=" 60 + +type AnonymousSQuote = AST.Token.Token "'" 96 + +type AnonymousLParen = AST.Token.Token "(" 23 + +type AnonymousRParen = AST.Token.Token ")" 24 + +type AnonymousStar = AST.Token.Token "*" 4 + +type AnonymousStarStar = AST.Token.Token "**" 79 + +type AnonymousStarStarEqual = AST.Token.Token "**=" 65 + +type AnonymousStarEqual = AST.Token.Token "*=" 56 + +type AnonymousPlus = AST.Token.Token "+" 76 + +type AnonymousPlusPlus = AST.Token.Token "++" 92 + +type AnonymousPlusEqual = AST.Token.Token "+=" 54 + +type AnonymousComma = AST.Token.Token "," 10 + +type AnonymousMinus = AST.Token.Token "-" 77 + +type AnonymousMinusMinus = AST.Token.Token "--" 93 + +type AnonymousMinusEqual = AST.Token.Token "-=" 55 + +type AnonymousDot = AST.Token.Token "." 48 + +type AnonymousDotDotDot = AST.Token.Token "..." 66 + +type AnonymousSlash = AST.Token.Token "/" 47 + +type AnonymousSlashEqual = AST.Token.Token "/=" 57 + +type AnonymousColon = AST.Token.Token ":" 38 + +type AnonymousSemicolon = AST.Token.Token ";" 37 + +type AnonymousLAngle = AST.Token.Token "<" 45 + +type AnonymousLAngleLAngle = AST.Token.Token "<<" 72 + +type AnonymousLAngleLAngleEqual = AST.Token.Token "<<=" 64 + +type AnonymousLAngleEqual = AST.Token.Token "<=" 80 + +type AnonymousEqual = AST.Token.Token "=" 6 + +type AnonymousEqualEqual = AST.Token.Token "==" 81 + +type AnonymousEqualEqualEqual = AST.Token.Token "===" 82 + +type AnonymousEqualRAngle = AST.Token.Token "=>" 52 + +type AnonymousRAngle = AST.Token.Token ">" 46 + +type AnonymousRAngleEqual = AST.Token.Token ">=" 85 + +type AnonymousRAngleRAngle = AST.Token.Token ">>" 70 + +type AnonymousRAngleRAngleEqual = AST.Token.Token ">>=" 62 + +type AnonymousRAngleRAngleRAngle = AST.Token.Token ">>>" 71 + +type AnonymousRAngleRAngleRAngleEqual = AST.Token.Token ">>>=" 63 + +type AnonymousQuestion = AST.Token.Token "?" 67 + +type AnonymousQuestionQuestion = AST.Token.Token "??" 86 + +type AnonymousAt = AST.Token.Token "@" 113 + +type AnonymousLBracket = AST.Token.Token "[" 43 + +type AnonymousRBracket = AST.Token.Token "]" 44 + +type AnonymousCaret = AST.Token.Token "^" 74 + +type AnonymousCaretEqual = AST.Token.Token "^=" 59 + +type AnonymousBacktick = AST.Token.Token "`" 100 + +type AnonymousAbstract = AST.Token.Token "abstract" 115 + +type AnonymousAny = AST.Token.Token "any" 123 + +type AnonymousAs = AST.Token.Token "as" 7 + +type AnonymousAsync = AST.Token.Token "async" 50 + +type AnonymousAwait = AST.Token.Token "await" 25 + +type AnonymousBoolean = AST.Token.Token "boolean" 125 + +type AnonymousBreak = AST.Token.Token "break" 32 + +type AnonymousCase = AST.Token.Token "case" 39 + +type AnonymousCatch = AST.Token.Token "catch" 40 + +type AnonymousClass = AST.Token.Token "class" 49 + +type AnonymousConst = AST.Token.Token "const" 18 + +type AnonymousContinue = AST.Token.Token "continue" 33 + +type AnonymousDebugger = AST.Token.Token "debugger" 34 + +type AnonymousDeclare = AST.Token.Token "declare" 118 + +type AnonymousDefault = AST.Token.Token "default" 5 + +type AnonymousDelete = AST.Token.Token "delete" 91 + +type AnonymousDo = AST.Token.Token "do" 29 + +type AnonymousElse = AST.Token.Token "else" 20 + +type AnonymousEnum = AST.Token.Token "enum" 133 + +data EscapeSequence a = EscapeSequence {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1254. + AST.Traversable1.Class.Traversable1 a_1254 + ) + +instance AST.Unmarshal.SymbolMatching EscapeSequence where + matchedSymbols _ = [98] + showFailure _ node_1255 = + "expected " + GHC.Base.<> ( "escape_sequence" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1255 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1255) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1256 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1257 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1258 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1259 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1256 + c1_1257 = TreeSitter.Node.nodeStartPoint node_1255 + TreeSitter.Node.TSPoint + r2_1258 + c2_1259 = TreeSitter.Node.nodeEndPoint node_1255 + +deriving instance GHC.Classes.Eq a_1260 => GHC.Classes.Eq (EscapeSequence a_1260) + +deriving instance GHC.Classes.Ord a_1261 => GHC.Classes.Ord (EscapeSequence a_1261) + +deriving instance GHC.Show.Show a_1262 => GHC.Show.Show (EscapeSequence a_1262) + +instance AST.Unmarshal.Unmarshal EscapeSequence + +instance Data.Foldable.Foldable EscapeSequence where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor EscapeSequence where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable EscapeSequence where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousExport = AST.Token.Token "export" 3 + +type AnonymousExtends = AST.Token.Token "extends" 132 + +data False a = False {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1263. + AST.Traversable1.Class.Traversable1 a_1263 + ) + +instance AST.Unmarshal.SymbolMatching False where + matchedSymbols _ = [110] + showFailure _ node_1264 = + "expected " + GHC.Base.<> ( "false" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1264 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1264) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1265 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1266 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1267 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1268 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1265 + c1_1266 = TreeSitter.Node.nodeStartPoint node_1264 + TreeSitter.Node.TSPoint + r2_1267 + c2_1268 = TreeSitter.Node.nodeEndPoint node_1264 + +deriving instance GHC.Classes.Eq a_1269 => GHC.Classes.Eq (False a_1269) + +deriving instance GHC.Classes.Ord a_1270 => GHC.Classes.Ord (False a_1270) + +deriving instance GHC.Show.Show a_1271 => GHC.Show.Show (False a_1271) + +instance AST.Unmarshal.Unmarshal False + +instance Data.Foldable.Foldable False where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor False where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable False where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousFinally = AST.Token.Token "finally" 41 + +type AnonymousFor = AST.Token.Token "for" 22 + +type AnonymousFrom = AST.Token.Token "from" 15 + +type AnonymousFunction = AST.Token.Token "function" 51 + +type AnonymousGet = AST.Token.Token "get" 116 + +type AnonymousGlobal = AST.Token.Token "global" 130 + +data HashBangLine a = HashBangLine {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1272. + AST.Traversable1.Class.Traversable1 a_1272 + ) + +instance AST.Unmarshal.SymbolMatching HashBangLine where + matchedSymbols _ = [2] + showFailure _ node_1273 = + "expected " + GHC.Base.<> ( "hash_bang_line" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1273 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1273) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1274 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1275 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1276 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1277 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1274 + c1_1275 = TreeSitter.Node.nodeStartPoint node_1273 + TreeSitter.Node.TSPoint + r2_1276 + c2_1277 = TreeSitter.Node.nodeEndPoint node_1273 + +deriving instance GHC.Classes.Eq a_1278 => GHC.Classes.Eq (HashBangLine a_1278) + +deriving instance GHC.Classes.Ord a_1279 => GHC.Classes.Ord (HashBangLine a_1279) + +deriving instance GHC.Show.Show a_1280 => GHC.Show.Show (HashBangLine a_1280) + +instance AST.Unmarshal.Unmarshal HashBangLine + +instance Data.Foldable.Foldable HashBangLine where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor HashBangLine where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable HashBangLine where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Identifier a = Identifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1281. + AST.Traversable1.Class.Traversable1 a_1281 + ) + +instance AST.Unmarshal.SymbolMatching Identifier where + matchedSymbols _ = [1] + showFailure _ node_1282 = + "expected " + GHC.Base.<> ( "identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1282 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1282) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1283 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1284 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1285 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1286 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1283 + c1_1284 = TreeSitter.Node.nodeStartPoint node_1282 + TreeSitter.Node.TSPoint + r2_1285 + c2_1286 = TreeSitter.Node.nodeEndPoint node_1282 + +deriving instance GHC.Classes.Eq a_1287 => GHC.Classes.Eq (Identifier a_1287) + +deriving instance GHC.Classes.Ord a_1288 => GHC.Classes.Ord (Identifier a_1288) + +deriving instance GHC.Show.Show a_1289 => GHC.Show.Show (Identifier a_1289) + +instance AST.Unmarshal.Unmarshal Identifier + +instance Data.Foldable.Foldable Identifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Identifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Identifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousIf = AST.Token.Token "if" 19 + +type AnonymousImplements = AST.Token.Token "implements" 129 + +type AnonymousImport = AST.Token.Token "import" 14 + +type AnonymousIn = AST.Token.Token "in" 26 + +type AnonymousInstanceof = AST.Token.Token "instanceof" 87 + +type AnonymousInterface = AST.Token.Token "interface" 131 + +type AnonymousIs = AST.Token.Token "is" 135 + +data JsxText a = JsxText {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1290. + AST.Traversable1.Class.Traversable1 a_1290 + ) + +instance AST.Unmarshal.SymbolMatching JsxText where + matchedSymbols _ = [] + showFailure _ node_1291 = + "expected " + GHC.Base.<> ( "" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1291 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1291) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1292 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1293 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1294 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1295 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1292 + c1_1293 = TreeSitter.Node.nodeStartPoint node_1291 + TreeSitter.Node.TSPoint + r2_1294 + c2_1295 = TreeSitter.Node.nodeEndPoint node_1291 + +deriving instance GHC.Classes.Eq a_1296 => GHC.Classes.Eq (JsxText a_1296) + +deriving instance GHC.Classes.Ord a_1297 => GHC.Classes.Ord (JsxText a_1297) + +deriving instance GHC.Show.Show a_1298 => GHC.Show.Show (JsxText a_1298) + +instance AST.Unmarshal.Unmarshal JsxText + +instance Data.Foldable.Foldable JsxText where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor JsxText where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable JsxText where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousKeyof = AST.Token.Token "keyof" 136 + +type AnonymousLet = AST.Token.Token "let" 17 + +type AnonymousModule = AST.Token.Token "module" 122 + +type AnonymousNamespace = AST.Token.Token "namespace" 8 + +type AnonymousNew = AST.Token.Token "new" 53 + +data Null a = Null {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1299. + AST.Traversable1.Class.Traversable1 a_1299 + ) + +instance AST.Unmarshal.SymbolMatching Null where + matchedSymbols _ = [111] + showFailure _ node_1300 = + "expected " + GHC.Base.<> ( "null" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1300 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1300) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1301 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1302 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1303 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1304 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1301 + c1_1302 = TreeSitter.Node.nodeStartPoint node_1300 + TreeSitter.Node.TSPoint + r2_1303 + c2_1304 = TreeSitter.Node.nodeEndPoint node_1300 + +deriving instance GHC.Classes.Eq a_1305 => GHC.Classes.Eq (Null a_1305) + +deriving instance GHC.Classes.Ord a_1306 => GHC.Classes.Ord (Null a_1306) + +deriving instance GHC.Show.Show a_1307 => GHC.Show.Show (Null a_1307) + +instance AST.Unmarshal.Unmarshal Null + +instance Data.Foldable.Foldable Null where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Null where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Null where + traverse = AST.Traversable1.Class.traverseDefault1 + +data Number a = Number {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1308. + AST.Traversable1.Class.Traversable1 a_1308 + ) + +instance AST.Unmarshal.SymbolMatching Number where + matchedSymbols _ = [105] + showFailure _ node_1309 = + "expected " + GHC.Base.<> ( "number" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1309 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1309) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1310 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1311 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1312 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1313 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1310 + c1_1311 = TreeSitter.Node.nodeStartPoint node_1309 + TreeSitter.Node.TSPoint + r2_1312 + c2_1313 = TreeSitter.Node.nodeEndPoint node_1309 + +deriving instance GHC.Classes.Eq a_1314 => GHC.Classes.Eq (Number a_1314) + +deriving instance GHC.Classes.Ord a_1315 => GHC.Classes.Ord (Number a_1315) + +deriving instance GHC.Show.Show a_1316 => GHC.Show.Show (Number a_1316) + +instance AST.Unmarshal.Unmarshal Number + +instance Data.Foldable.Foldable Number where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Number where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Number where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousNumber = AST.Token.Token "number" 124 + +type AnonymousOf = AST.Token.Token "of" 27 + +type AnonymousPrivate = AST.Token.Token "private" 120 + +data PropertyIdentifier a = PropertyIdentifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1317. + AST.Traversable1.Class.Traversable1 a_1317 + ) + +instance AST.Unmarshal.SymbolMatching PropertyIdentifier where + matchedSymbols _ = [303] + showFailure _ node_1318 = + "expected " + GHC.Base.<> ( "property_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1318 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1318) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1319 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1320 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1321 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1322 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1319 + c1_1320 = TreeSitter.Node.nodeStartPoint node_1318 + TreeSitter.Node.TSPoint + r2_1321 + c2_1322 = TreeSitter.Node.nodeEndPoint node_1318 + +deriving instance GHC.Classes.Eq a_1323 => GHC.Classes.Eq (PropertyIdentifier a_1323) + +deriving instance GHC.Classes.Ord a_1324 => GHC.Classes.Ord (PropertyIdentifier a_1324) + +deriving instance GHC.Show.Show a_1325 => GHC.Show.Show (PropertyIdentifier a_1325) + +instance AST.Unmarshal.Unmarshal PropertyIdentifier + +instance Data.Foldable.Foldable PropertyIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor PropertyIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable PropertyIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousProtected = AST.Token.Token "protected" 121 + +type AnonymousPublic = AST.Token.Token "public" 119 + +data Readonly a = Readonly {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1326. + AST.Traversable1.Class.Traversable1 a_1326 + ) + +instance AST.Unmarshal.SymbolMatching Readonly where + matchedSymbols _ = [134] + showFailure _ node_1327 = + "expected " + GHC.Base.<> ( "readonly" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1327 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1327) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1328 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1329 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1330 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1331 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1328 + c1_1329 = TreeSitter.Node.nodeStartPoint node_1327 + TreeSitter.Node.TSPoint + r2_1330 + c2_1331 = TreeSitter.Node.nodeEndPoint node_1327 + +deriving instance GHC.Classes.Eq a_1332 => GHC.Classes.Eq (Readonly a_1332) + +deriving instance GHC.Classes.Ord a_1333 => GHC.Classes.Ord (Readonly a_1333) + +deriving instance GHC.Show.Show a_1334 => GHC.Show.Show (Readonly a_1334) + +instance AST.Unmarshal.Unmarshal Readonly + +instance Data.Foldable.Foldable Readonly where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Readonly where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Readonly where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RegexFlags a = RegexFlags {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1335. + AST.Traversable1.Class.Traversable1 a_1335 + ) + +instance AST.Unmarshal.SymbolMatching RegexFlags where + matchedSymbols _ = [104] + showFailure _ node_1336 = + "expected " + GHC.Base.<> ( "regex_flags" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1336 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1336) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1337 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1338 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1339 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1340 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1337 + c1_1338 = TreeSitter.Node.nodeStartPoint node_1336 + TreeSitter.Node.TSPoint + r2_1339 + c2_1340 = TreeSitter.Node.nodeEndPoint node_1336 + +deriving instance GHC.Classes.Eq a_1341 => GHC.Classes.Eq (RegexFlags a_1341) + +deriving instance GHC.Classes.Ord a_1342 => GHC.Classes.Ord (RegexFlags a_1342) + +deriving instance GHC.Show.Show a_1343 => GHC.Show.Show (RegexFlags a_1343) + +instance AST.Unmarshal.Unmarshal RegexFlags + +instance Data.Foldable.Foldable RegexFlags where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RegexFlags where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RegexFlags where + traverse = AST.Traversable1.Class.traverseDefault1 + +data RegexPattern a = RegexPattern {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1344. + AST.Traversable1.Class.Traversable1 a_1344 + ) + +instance AST.Unmarshal.SymbolMatching RegexPattern where + matchedSymbols _ = [103] + showFailure _ node_1345 = + "expected " + GHC.Base.<> ( "regex_pattern" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1345 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1345) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1346 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1347 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1348 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1349 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1346 + c1_1347 = TreeSitter.Node.nodeStartPoint node_1345 + TreeSitter.Node.TSPoint + r2_1348 + c2_1349 = TreeSitter.Node.nodeEndPoint node_1345 + +deriving instance GHC.Classes.Eq a_1350 => GHC.Classes.Eq (RegexPattern a_1350) + +deriving instance GHC.Classes.Ord a_1351 => GHC.Classes.Ord (RegexPattern a_1351) + +deriving instance GHC.Show.Show a_1352 => GHC.Show.Show (RegexPattern a_1352) + +instance AST.Unmarshal.Unmarshal RegexPattern + +instance Data.Foldable.Foldable RegexPattern where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor RegexPattern where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable RegexPattern where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousRequire = AST.Token.Token "require" 128 + +type AnonymousReturn = AST.Token.Token "return" 35 + +type AnonymousSet = AST.Token.Token "set" 117 + +data ShorthandPropertyIdentifier a = ShorthandPropertyIdentifier + { ann :: a, + text :: Data.Text.Internal.Text + } + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1353. + AST.Traversable1.Class.Traversable1 a_1353 + ) + +instance AST.Unmarshal.SymbolMatching ShorthandPropertyIdentifier where + matchedSymbols _ = [304] + showFailure _ node_1354 = + "expected " + GHC.Base.<> ( "shorthand_property_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1354 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1354) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1355 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1356 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1357 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1358 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1355 + c1_1356 = TreeSitter.Node.nodeStartPoint node_1354 + TreeSitter.Node.TSPoint + r2_1357 + c2_1358 = TreeSitter.Node.nodeEndPoint node_1354 + +deriving instance GHC.Classes.Eq a_1359 => GHC.Classes.Eq (ShorthandPropertyIdentifier a_1359) + +deriving instance GHC.Classes.Ord a_1360 => GHC.Classes.Ord (ShorthandPropertyIdentifier a_1360) + +deriving instance GHC.Show.Show a_1361 => GHC.Show.Show (ShorthandPropertyIdentifier a_1361) + +instance AST.Unmarshal.Unmarshal ShorthandPropertyIdentifier + +instance Data.Foldable.Foldable ShorthandPropertyIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor ShorthandPropertyIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable ShorthandPropertyIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +data StatementIdentifier a = StatementIdentifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1362. + AST.Traversable1.Class.Traversable1 a_1362 + ) + +instance AST.Unmarshal.SymbolMatching StatementIdentifier where + matchedSymbols _ = [305] + showFailure _ node_1363 = + "expected " + GHC.Base.<> ( "statement_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1363 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1363) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1364 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1365 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1366 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1367 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1364 + c1_1365 = TreeSitter.Node.nodeStartPoint node_1363 + TreeSitter.Node.TSPoint + r2_1366 + c2_1367 = TreeSitter.Node.nodeEndPoint node_1363 + +deriving instance GHC.Classes.Eq a_1368 => GHC.Classes.Eq (StatementIdentifier a_1368) + +deriving instance GHC.Classes.Ord a_1369 => GHC.Classes.Ord (StatementIdentifier a_1369) + +deriving instance GHC.Show.Show a_1370 => GHC.Show.Show (StatementIdentifier a_1370) + +instance AST.Unmarshal.Unmarshal StatementIdentifier + +instance Data.Foldable.Foldable StatementIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor StatementIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable StatementIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousStatic = AST.Token.Token "static" 114 + +type AnonymousString = AST.Token.Token "string" 126 + +data Super a = Super {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1371. + AST.Traversable1.Class.Traversable1 a_1371 + ) + +instance AST.Unmarshal.SymbolMatching Super where + matchedSymbols _ = [108] + showFailure _ node_1372 = + "expected " + GHC.Base.<> ( "super" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1372 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1372) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1373 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1374 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1375 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1376 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1373 + c1_1374 = TreeSitter.Node.nodeStartPoint node_1372 + TreeSitter.Node.TSPoint + r2_1375 + c2_1376 = TreeSitter.Node.nodeEndPoint node_1372 + +deriving instance GHC.Classes.Eq a_1377 => GHC.Classes.Eq (Super a_1377) + +deriving instance GHC.Classes.Ord a_1378 => GHC.Classes.Ord (Super a_1378) + +deriving instance GHC.Show.Show a_1379 => GHC.Show.Show (Super a_1379) + +instance AST.Unmarshal.Unmarshal Super + +instance Data.Foldable.Foldable Super where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Super where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Super where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousSwitch = AST.Token.Token "switch" 21 + +type AnonymousSymbol = AST.Token.Token "symbol" 127 + +type AnonymousTarget = AST.Token.Token "target" 106 + +data This a = This {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1380. + AST.Traversable1.Class.Traversable1 a_1380 + ) + +instance AST.Unmarshal.SymbolMatching This where + matchedSymbols _ = [107] + showFailure _ node_1381 = + "expected " + GHC.Base.<> ( "this" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1381 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1381) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1382 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1383 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1384 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1385 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1382 + c1_1383 = TreeSitter.Node.nodeStartPoint node_1381 + TreeSitter.Node.TSPoint + r2_1384 + c2_1385 = TreeSitter.Node.nodeEndPoint node_1381 + +deriving instance GHC.Classes.Eq a_1386 => GHC.Classes.Eq (This a_1386) + +deriving instance GHC.Classes.Ord a_1387 => GHC.Classes.Ord (This a_1387) + +deriving instance GHC.Show.Show a_1388 => GHC.Show.Show (This a_1388) + +instance AST.Unmarshal.Unmarshal This + +instance Data.Foldable.Foldable This where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor This where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable This where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousThrow = AST.Token.Token "throw" 36 + +data True a = True {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1389. + AST.Traversable1.Class.Traversable1 a_1389 + ) + +instance AST.Unmarshal.SymbolMatching True where + matchedSymbols _ = [109] + showFailure _ node_1390 = + "expected " + GHC.Base.<> ( "true" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1390 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1390) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1391 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1392 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1393 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1394 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1391 + c1_1392 = TreeSitter.Node.nodeStartPoint node_1390 + TreeSitter.Node.TSPoint + r2_1393 + c2_1394 = TreeSitter.Node.nodeEndPoint node_1390 + +deriving instance GHC.Classes.Eq a_1395 => GHC.Classes.Eq (True a_1395) + +deriving instance GHC.Classes.Ord a_1396 => GHC.Classes.Ord (True a_1396) + +deriving instance GHC.Show.Show a_1397 => GHC.Show.Show (True a_1397) + +instance AST.Unmarshal.Unmarshal True + +instance Data.Foldable.Foldable True where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor True where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable True where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousTry = AST.Token.Token "try" 30 + +type AnonymousType = AST.Token.Token "type" 12 + +data TypeIdentifier a = TypeIdentifier {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1398. + AST.Traversable1.Class.Traversable1 a_1398 + ) + +instance AST.Unmarshal.SymbolMatching TypeIdentifier where + matchedSymbols _ = [306] + showFailure _ node_1399 = + "expected " + GHC.Base.<> ( "type_identifier" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1399 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1399) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1400 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1401 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1402 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1403 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1400 + c1_1401 = TreeSitter.Node.nodeStartPoint node_1399 + TreeSitter.Node.TSPoint + r2_1402 + c2_1403 = TreeSitter.Node.nodeEndPoint node_1399 + +deriving instance GHC.Classes.Eq a_1404 => GHC.Classes.Eq (TypeIdentifier a_1404) + +deriving instance GHC.Classes.Ord a_1405 => GHC.Classes.Ord (TypeIdentifier a_1405) + +deriving instance GHC.Show.Show a_1406 => GHC.Show.Show (TypeIdentifier a_1406) + +instance AST.Unmarshal.Unmarshal TypeIdentifier + +instance Data.Foldable.Foldable TypeIdentifier where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor TypeIdentifier where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable TypeIdentifier where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousTypeof = AST.Token.Token "typeof" 13 + +data Undefined a = Undefined {ann :: a, text :: Data.Text.Internal.Text} + deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1) + deriving anyclass + ( forall a_1407. + AST.Traversable1.Class.Traversable1 a_1407 + ) + +instance AST.Unmarshal.SymbolMatching Undefined where + matchedSymbols _ = [112] + showFailure _ node_1408 = + "expected " + GHC.Base.<> ( "undefined" + GHC.Base.<> ( " but got " + GHC.Base.<> ( if TreeSitter.Node.nodeSymbol node_1408 GHC.Classes.== 65535 + then "ERROR" + else Data.OldList.genericIndex debugSymbolNames (TreeSitter.Node.nodeSymbol node_1408) GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r1_1409 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c1_1410 GHC.Base.<> ("] -" GHC.Base.<> (" [" GHC.Base.<> (GHC.Show.show r2_1411 GHC.Base.<> (", " GHC.Base.<> (GHC.Show.show c2_1412 GHC.Base.<> "]"))))))))) + ) + ) + ) + where + TreeSitter.Node.TSPoint + r1_1409 + c1_1410 = TreeSitter.Node.nodeStartPoint node_1408 + TreeSitter.Node.TSPoint + r2_1411 + c2_1412 = TreeSitter.Node.nodeEndPoint node_1408 + +deriving instance GHC.Classes.Eq a_1413 => GHC.Classes.Eq (Undefined a_1413) + +deriving instance GHC.Classes.Ord a_1414 => GHC.Classes.Ord (Undefined a_1414) + +deriving instance GHC.Show.Show a_1415 => GHC.Show.Show (Undefined a_1415) + +instance AST.Unmarshal.Unmarshal Undefined + +instance Data.Foldable.Foldable Undefined where + foldMap = AST.Traversable1.Class.foldMapDefault1 + +instance GHC.Base.Functor Undefined where + fmap = AST.Traversable1.Class.fmapDefault1 + +instance Data.Traversable.Traversable Undefined where + traverse = AST.Traversable1.Class.traverseDefault1 + +type AnonymousVar = AST.Token.Token "var" 16 + +type AnonymousVoid = AST.Token.Token "void" 90 + +type AnonymousWhile = AST.Token.Token "while" 28 + +type AnonymousWith = AST.Token.Token "with" 31 + +type AnonymousYield = AST.Token.Token "yield" 42 + +type AnonymousLBrace = AST.Token.Token "{" 9 + +type AnonymousLBracePipe = AST.Token.Token "{|" 137 + +type AnonymousPipe = AST.Token.Token "|" 75 + +type AnonymousPipeEqual = AST.Token.Token "|=" 61 + +type AnonymousPipePipe = AST.Token.Token "||" 69 + +type AnonymousPipeRBrace = AST.Token.Token "|}" 138 + +type AnonymousRBrace = AST.Token.Token "}" 11 + +type AnonymousTilde = AST.Token.Token "~" 89 From 0a44f71e001c37108003adc8381536366bacdc96 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 16 Sep 2020 18:38:36 -0400 Subject: [PATCH 24/30] work around quirks --- semantic-ast/app/Main.hs | 5 ++++- semantic-codeql/src/Language/CodeQL/AST.hs | 2 +- semantic-php/src/Language/PHP/AST.hs | 3 +-- 3 files changed, 6 insertions(+), 4 deletions(-) diff --git a/semantic-ast/app/Main.hs b/semantic-ast/app/Main.hs index 6318088dc..f5b52baf8 100644 --- a/semantic-ast/app/Main.hs +++ b/semantic-ast/app/Main.hs @@ -127,6 +127,9 @@ emit :: FilePath -> Language -> IO () emit root lang = do rf <- Bazel.create let language = languageToText lang + let languageHack = case lang of + CodeQL -> "QL" + _ -> language let path = pathForLanguage rf lang decls <- T.pack . pprint . fmap adjust <$> astDeclarationsIO (parserForLanguage lang) path @@ -170,7 +173,7 @@ import qualified GHC.Show import qualified Prelude as GHC.Classes import qualified TreeSitter.Node -import TreeSitter.$language (getTestCorpusDir) +import TreeSitter.$languageHack (getTestCorpusDir) debugSymbolNames :: [GHC.Base.String] debugSymbolNames = debugSymbolNames_0 diff --git a/semantic-codeql/src/Language/CodeQL/AST.hs b/semantic-codeql/src/Language/CodeQL/AST.hs index 82e3d1f9f..2ea3fc192 100644 --- a/semantic-codeql/src/Language/CodeQL/AST.hs +++ b/semantic-codeql/src/Language/CodeQL/AST.hs @@ -33,8 +33,8 @@ import qualified GHC.Base import qualified GHC.Generics import qualified GHC.Records import qualified GHC.Show -import TreeSitter.CodeQL (getTestCorpusDir) import qualified TreeSitter.Node +import TreeSitter.QL (getTestCorpusDir) import qualified Prelude as GHC.Classes debugSymbolNames :: [GHC.Base.String] diff --git a/semantic-php/src/Language/PHP/AST.hs b/semantic-php/src/Language/PHP/AST.hs index 4da19f0e9..84aecb509 100644 --- a/semantic-php/src/Language/PHP/AST.hs +++ b/semantic-php/src/Language/PHP/AST.hs @@ -18,7 +18,7 @@ {-# LANGUAGE UndecidableInstances #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Language.PHP.AST (module Language.PHP.AST, getTestCorpusDir) where +module Language.PHP.AST (module Language.PHP.AST) where import qualified AST.Parse import qualified AST.Token @@ -34,7 +34,6 @@ import qualified GHC.Generics import qualified GHC.Records import qualified GHC.Show import qualified TreeSitter.Node -import TreeSitter.PHP (getTestCorpusDir) import qualified Prelude as GHC.Classes debugSymbolNames :: [GHC.Base.String] From b549b387e14567776be9c45a7d1de1ed117cbfb6 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 16 Sep 2020 18:47:22 -0400 Subject: [PATCH 25/30] turn bazel back on and add a script --- .github/workflows/{bazel.yml.disabled => bazel.yml} | 0 script/astgen | 2 ++ semantic-php/src/Language/PHP/AST.hs | 3 ++- 3 files changed, 4 insertions(+), 1 deletion(-) rename .github/workflows/{bazel.yml.disabled => bazel.yml} (100%) create mode 100755 script/astgen diff --git a/.github/workflows/bazel.yml.disabled b/.github/workflows/bazel.yml similarity index 100% rename from .github/workflows/bazel.yml.disabled rename to .github/workflows/bazel.yml diff --git a/script/astgen b/script/astgen new file mode 100755 index 000000000..fc33ac88f --- /dev/null +++ b/script/astgen @@ -0,0 +1,2 @@ +#!/bin/bash +bazel run //semantic-ast:generate-ast -- --language=all --rootdir=$PWD diff --git a/semantic-php/src/Language/PHP/AST.hs b/semantic-php/src/Language/PHP/AST.hs index 84aecb509..4da19f0e9 100644 --- a/semantic-php/src/Language/PHP/AST.hs +++ b/semantic-php/src/Language/PHP/AST.hs @@ -18,7 +18,7 @@ {-# LANGUAGE UndecidableInstances #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Language.PHP.AST (module Language.PHP.AST) where +module Language.PHP.AST (module Language.PHP.AST, getTestCorpusDir) where import qualified AST.Parse import qualified AST.Token @@ -34,6 +34,7 @@ import qualified GHC.Generics import qualified GHC.Records import qualified GHC.Show import qualified TreeSitter.Node +import TreeSitter.PHP (getTestCorpusDir) import qualified Prelude as GHC.Classes debugSymbolNames :: [GHC.Base.String] From 9b461b9a28a55df82ebabd8f459f4d0b011ba886 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 16 Sep 2020 18:55:09 -0400 Subject: [PATCH 26/30] oops. need to hack around this --- semantic-php/src/Language/PHP/AST.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/semantic-php/src/Language/PHP/AST.hs b/semantic-php/src/Language/PHP/AST.hs index 4da19f0e9..84aecb509 100644 --- a/semantic-php/src/Language/PHP/AST.hs +++ b/semantic-php/src/Language/PHP/AST.hs @@ -18,7 +18,7 @@ {-# LANGUAGE UndecidableInstances #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Language.PHP.AST (module Language.PHP.AST, getTestCorpusDir) where +module Language.PHP.AST (module Language.PHP.AST) where import qualified AST.Parse import qualified AST.Token @@ -34,7 +34,6 @@ import qualified GHC.Generics import qualified GHC.Records import qualified GHC.Show import qualified TreeSitter.Node -import TreeSitter.PHP (getTestCorpusDir) import qualified Prelude as GHC.Classes debugSymbolNames :: [GHC.Base.String] From ebf3337bc381b666715bf88765f207e6db422c17 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 16 Sep 2020 19:05:33 -0400 Subject: [PATCH 27/30] Put a stackage snapshot in here while we're at it. The other one is out of date anyway. --- WORKSPACE | 1 + stackage_snapshot.json | 198 +++++++++++++++++++++++++++++++++++++++++ 2 files changed, 199 insertions(+) create mode 100644 stackage_snapshot.json diff --git a/WORKSPACE b/WORKSPACE index a1432bef2..64d4681e4 100644 --- a/WORKSPACE +++ b/WORKSPACE @@ -140,6 +140,7 @@ stack_snapshot( "vector", "yaml", ], + stack_snapshot_json = "//:stackage_snapshot.json", tools = ["@happy"], vendored_packages = { "tree-sitter-{}".format(name): "@tree-sitter-{name}//:tree-sitter-{name}".format(name = name) diff --git a/stackage_snapshot.json b/stackage_snapshot.json new file mode 100644 index 000000000..41dd2cbe4 --- /dev/null +++ b/stackage_snapshot.json @@ -0,0 +1,198 @@ +{ + "__GENERATED_FILE_DO_NOT_MODIFY_MANUALLY": -274529831, + "all-cabal-hashes": "https://raw.githubusercontent.com/commercialhaskell/all-cabal-hashes/a43da66660b6aa52432dc7fc34835ff9b347921b", + "resolved": { + "Cabal": {"dependencies":[],"location":{"type":"core"},"name":"Cabal","version":"3.2.0.0"}, + "Glob": {"dependencies":["base","containers","directory","dlist","filepath","transformers","transformers-compat"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/Glob-0.10.1/Glob-0.10.1.tar.gz"},"name":"Glob","pinned":{"url":["https://hackage.haskell.org/package/Glob-0.10.1/Glob-0.10.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/Glob-0.10.1.tar.gz"],"sha256":"cae4476d944947010705e0b00cf3e36c90ef407f968861f6771b931056b6d315","cabal-sha256":"424bf82768d0471562b34ffcac6b73e658f655aac957dfbcbb945603899a40fd"},"version":"0.10.1"}, + "HUnit": {"dependencies":["base","call-stack","deepseq"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/HUnit-1.6.0.0/HUnit-1.6.0.0.tar.gz"},"name":"HUnit","pinned":{"url":["https://hackage.haskell.org/package/HUnit-1.6.0.0/HUnit-1.6.0.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/HUnit-1.6.0.0.tar.gz"],"sha256":"7448e6b966e98e84b7627deba23f71b508e9a61e7bc571d74304a25d30e6d0de","cabal-sha256":"8014b27c884becd8041214a1ab263fa92244ca62700a911aff604a1047869298"},"version":"1.6.0.0"}, + "Only": {"dependencies":["base","deepseq"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/Only-0.1/Only-0.1.tar.gz"},"name":"Only","pinned":{"url":["https://hackage.haskell.org/package/Only-0.1/Only-0.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/Only-0.1.tar.gz"],"sha256":"ab7aa193e8c257d3bda6b0b3c1cbcf74cdaa85ab08cb20c2dd62ba248c1ab265","cabal-sha256":"f92f5da97e647451f1ee7f5bf44914fb75062d08ccd3f36b2000d649c63d13aa"},"version":"0.1"}, + "QuickCheck": {"dependencies":["base","containers","deepseq","random","splitmix","template-haskell","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/QuickCheck-2.13.2/QuickCheck-2.13.2.tar.gz"},"name":"QuickCheck","pinned":{"url":["https://hackage.haskell.org/package/QuickCheck-2.13.2/QuickCheck-2.13.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/QuickCheck-2.13.2.tar.gz"],"sha256":"7b560baa5853de777702dc23a6f2126ae4adbfdab163295bc56323a706914610","cabal-sha256":"636e7265bf75122e7e2f97627c47aad3b772ee3b35b134cafb6095116ce8d07a"},"version":"2.13.2"}, + "StateVar": {"dependencies":["base","stm","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/StateVar-1.2/StateVar-1.2.tar.gz"},"name":"StateVar","pinned":{"url":["https://hackage.haskell.org/package/StateVar-1.2/StateVar-1.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/StateVar-1.2.tar.gz"],"sha256":"afc036021fcd38f15fcc4af392a3e57017d5ddcc926e99391dbfc8c4e6375f8b","cabal-sha256":"9ab3e4a0e252d28bc2f799c83e0725c3e23e8d3b722cff0fdb9822e64b6c16ac"},"version":"1.2"}, + "adjunctions": {"dependencies":["array","base","comonad","containers","contravariant","distributive","free","mtl","profunctors","semigroupoids","semigroups","tagged","transformers","transformers-compat","void"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/adjunctions-4.4/adjunctions-4.4.tar.gz"},"name":"adjunctions","pinned":{"url":["https://hackage.haskell.org/package/adjunctions-4.4/adjunctions-4.4.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/adjunctions-4.4.tar.gz"],"sha256":"507c2ef55337ae61c805f8cbc1213dfd7d2b85187342675d662254b8d8a16ae9","cabal-sha256":"2738dd5f5d5e93749adb14a05472e58a96a75d0f299e46371c6f46dc4e97daf9"},"version":"4.4"}, + "aeson": {"dependencies":["attoparsec","base","base-compat-batteries","bytestring","containers","data-fix","deepseq","dlist","ghc-prim","hashable","primitive","scientific","strict","tagged","template-haskell","text","th-abstraction","these","time","time-compat","unordered-containers","uuid-types","vector"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/aeson-1.5.3.0/aeson-1.5.3.0.tar.gz"},"name":"aeson","pinned":{"url":["https://hackage.haskell.org/package/aeson-1.5.3.0/aeson-1.5.3.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/aeson-1.5.3.0.tar.gz"],"sha256":"958ef96a31ad0807e307f92d61a2b51827f7b06afed52cf06f76c64c6aed986a","cabal-sha256":"05496710de6ae694e55dc77dbdaf7503f56c24e4aecc06045e42e75a02df8bc4"},"version":"1.5.3.0"}, + "aeson-pretty": {"dependencies":["aeson","attoparsec","base","base-compat","bytestring","cmdargs","scientific","text","unordered-containers","vector"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/aeson-pretty-0.8.8/aeson-pretty-0.8.8.tar.gz"},"name":"aeson-pretty","pinned":{"url":["https://hackage.haskell.org/package/aeson-pretty-0.8.8/aeson-pretty-0.8.8.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/aeson-pretty-0.8.8.tar.gz"],"sha256":"81cea61cb6dcf32c3f0529ea5cfc98dbea3894152d7f2d9fe1cb051f927ec726","cabal-sha256":"9924a16d0c362ff59dd6d5b875749ff5d599d2688f89d080388a0014714441ef"},"version":"0.8.8"}, + "algebraic-graphs": {"dependencies":["array","base","containers","deepseq","mtl","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/algebraic-graphs-0.5/algebraic-graphs-0.5.tar.gz"},"name":"algebraic-graphs","pinned":{"url":["https://hackage.haskell.org/package/algebraic-graphs-0.5/algebraic-graphs-0.5.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/algebraic-graphs-0.5.tar.gz"],"sha256":"89b9fecf8245476ec823355125fcb95decf41fd9784e807d7bd0d09f0a79c50b","cabal-sha256":"6eeec5ed1687ff7aa916e7bf9f02f51aaabde6f314dc0b7b1a84156974d7da73"},"version":"0.5"}, + "ansi-terminal": {"dependencies":["base","colour"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/ansi-terminal-0.10.3/ansi-terminal-0.10.3.tar.gz"},"name":"ansi-terminal","pinned":{"url":["https://hackage.haskell.org/package/ansi-terminal-0.10.3/ansi-terminal-0.10.3.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/ansi-terminal-0.10.3.tar.gz"],"sha256":"fa2e2e32dfad29835aa7fd442bbe233e07d97e933223a001fe5efa562535b57c","cabal-sha256":"e2fbcef5f980dc234c7ad8e2fa433b0e8109132c9e643bc40ea5608cd5697797"},"version":"0.10.3"}, + "ansi-wl-pprint": {"dependencies":["ansi-terminal","base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/ansi-wl-pprint-0.6.9/ansi-wl-pprint-0.6.9.tar.gz"},"name":"ansi-wl-pprint","pinned":{"url":["https://hackage.haskell.org/package/ansi-wl-pprint-0.6.9/ansi-wl-pprint-0.6.9.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/ansi-wl-pprint-0.6.9.tar.gz"],"sha256":"a7b2e8e7cd3f02f2954e8b17dc60a0ccd889f49e2068ebb15abfa1d42f7a4eac","cabal-sha256":"20d30674f137d43aa0279c2c2cc5e45a5f1c3c57e301852494906158b6313bf7"},"version":"0.6.9"}, + "array": {"dependencies":[],"location":{"type":"core"},"name":"array","version":"0.5.4.0"}, + "assoc": {"dependencies":["base","bifunctors","tagged"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/assoc-1.0.2/assoc-1.0.2.tar.gz"},"name":"assoc","pinned":{"url":["https://hackage.haskell.org/package/assoc-1.0.2/assoc-1.0.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/assoc-1.0.2.tar.gz"],"sha256":"d8988dc6e8718c7a3456515b769c9336aeeec730cf86fc5175247969ff8f144f","cabal-sha256":"0be532f389dcaf4969c9e1066e1dca41b08ca4272d1b88450f552281d93106cb"},"version":"1.0.2"}, + "async": {"dependencies":["base","hashable","stm"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/async-2.2.2/async-2.2.2.tar.gz"},"name":"async","pinned":{"url":["https://hackage.haskell.org/package/async-2.2.2/async-2.2.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/async-2.2.2.tar.gz"],"sha256":"4b4ab1ac82c45144d82c6daf6cb6ba45eab9957dad44787fa5e869e23d73bbff","cabal-sha256":"a178c166856da7ff22fe4500337b54812e94fd2059409452187d72e057ede9cd"},"version":"2.2.2"}, + "attoparsec": {"dependencies":["array","base","bytestring","containers","deepseq","scientific","text","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/attoparsec-0.13.2.4/attoparsec-0.13.2.4.tar.gz"},"name":"attoparsec","pinned":{"url":["https://hackage.haskell.org/package/attoparsec-0.13.2.4/attoparsec-0.13.2.4.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/attoparsec-0.13.2.4.tar.gz"],"sha256":"ba66cd6de1749ec92568db1b9c905b43a849f0ad918d45d7b594407a02ebefb2","cabal-sha256":"e10c2a5070a344a0973e6f9486d148c690b6955468cfd61ee09a41b5adc48873"},"version":"0.13.2.4"}, + "base": {"dependencies":[],"location":{"type":"core"},"name":"base","version":"4.14.0.0"}, + "base-compat": {"dependencies":["base","unix"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/base-compat-0.11.1/base-compat-0.11.1.tar.gz"},"name":"base-compat","pinned":{"url":["https://hackage.haskell.org/package/base-compat-0.11.1/base-compat-0.11.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/base-compat-0.11.1.tar.gz"],"sha256":"356f1542ec93e7192a9073d32a8ef1e48194275495dcec7fb0d241f4baaf6d36","cabal-sha256":"e49c1ce84f556621ef1142a169e4349049c516f5b3e3c3ec6830be503e7d4a93"},"version":"0.11.1"}, + "base-compat-batteries": {"dependencies":["base","base-compat"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/base-compat-batteries-0.11.1/base-compat-batteries-0.11.1.tar.gz"},"name":"base-compat-batteries","pinned":{"url":["https://hackage.haskell.org/package/base-compat-batteries-0.11.1/base-compat-batteries-0.11.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/base-compat-batteries-0.11.1.tar.gz"],"sha256":"caf66fed3c0a3b0437692cad18c93a7074e8524a86b8be1ce04d0a18cbf6aed8","cabal-sha256":"2763af26f6bd118dc278b805988acc792443f08bd77da03ac5c438c2b1ab4aab"},"version":"0.11.1"}, + "base-orphans": {"dependencies":["base","ghc-prim"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/base-orphans-0.8.2/base-orphans-0.8.2.tar.gz"},"name":"base-orphans","pinned":{"url":["https://hackage.haskell.org/package/base-orphans-0.8.2/base-orphans-0.8.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/base-orphans-0.8.2.tar.gz"],"sha256":"2a8062385e5d5dee418428a22c72b9391557bc1fe2f93bd643f7754b36b9eb01","cabal-sha256":"40ef37ed043aac2cbb6c538fdebfc62e601ee65ee161e4a6327452133b574d7e"},"version":"0.8.2"}, + "base-prelude": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/base-prelude-1.4/base-prelude-1.4.tar.gz"},"name":"base-prelude","pinned":{"url":["https://hackage.haskell.org/package/base-prelude-1.4/base-prelude-1.4.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/base-prelude-1.4.tar.gz"],"sha256":"3a7fc639f3e5293509369d0b217f9d9b9662373b151411841df1d099bcd8c55a","cabal-sha256":"feea99326853023fa9f908308383a7f9802e40f2d241b83dac57b266b202bda6"},"version":"1.4"}, + "base64-bytestring": {"dependencies":["base","bytestring"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/base64-bytestring-1.1.0.0/base64-bytestring-1.1.0.0.tar.gz"},"name":"base64-bytestring","pinned":{"url":["https://hackage.haskell.org/package/base64-bytestring-1.1.0.0/base64-bytestring-1.1.0.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/base64-bytestring-1.1.0.0.tar.gz"],"sha256":"210d6c9042241ca52ee5d89cf221dbeb4d0e64b37391345369035ad2d9b4aca9","cabal-sha256":"190264fef9e65d9085f00ccda419137096d1dc94777c58272bc96821dc7f37c3"},"version":"1.1.0.0"}, + "basement": {"dependencies":["base","ghc-prim"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/basement-0.0.11/basement-0.0.11.tar.gz"},"name":"basement","pinned":{"url":["https://hackage.haskell.org/package/basement-0.0.11/basement-0.0.11.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/basement-0.0.11.tar.gz"],"sha256":"67582b3475a5547925399f719df21f8bbbd0ca4d4db27795c22a474f8ee6346b","cabal-sha256":"af43e2e334e515b52ca309919b135c51b5e9411e6d4c68d0e8950d61eb5f25d1"},"version":"0.0.11"}, + "bazel-runfiles": {"dependencies":["base","directory","filepath","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/bazel-runfiles-0.12/bazel-runfiles-0.12.tar.gz"},"name":"bazel-runfiles","pinned":{"url":["https://hackage.haskell.org/package/bazel-runfiles-0.12/bazel-runfiles-0.12.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/bazel-runfiles-0.12.tar.gz"],"sha256":"758abec4b6d9256dd17a3d9d3de1279e01f04a8662ef5fbd523d83e58b343cf5","cabal-sha256":"ea0e555a0c3fa67b0009a5f97d72cb1a0e9f03fe20ee2f6025b49a8117537298"},"version":"0.12"}, + "bifunctors": {"dependencies":["base","base-orphans","comonad","containers","tagged","template-haskell","th-abstraction","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/bifunctors-5.5.7/bifunctors-5.5.7.tar.gz"},"name":"bifunctors","pinned":{"url":["https://hackage.haskell.org/package/bifunctors-5.5.7/bifunctors-5.5.7.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/bifunctors-5.5.7.tar.gz"],"sha256":"88b3a2d4504e1139a3aef7027913faa0870631477d0a2ebb6fa67d494cdb3532","cabal-sha256":"179970d8cabaa760df74d40e1f81b3633c78b569f2d058e24dac31b5a1865406"},"version":"5.5.7"}, + "binary": {"dependencies":[],"location":{"type":"core"},"name":"binary","version":"0.8.8.0"}, + "blaze-builder": {"dependencies":["base","bytestring","deepseq","text"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/blaze-builder-0.4.1.0/blaze-builder-0.4.1.0.tar.gz"},"name":"blaze-builder","pinned":{"url":["https://hackage.haskell.org/package/blaze-builder-0.4.1.0/blaze-builder-0.4.1.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/blaze-builder-0.4.1.0.tar.gz"],"sha256":"91fc8b966f3e9dc9461e1675c7566b881740f99abc906495491a3501630bc814","cabal-sha256":"fa992674ea28f6ea6569d93388d757aef928af1e2f0ce80a35c29fb782252a2d"},"version":"0.4.1.0"}, + "blaze-html": {"dependencies":["base","blaze-builder","blaze-markup","bytestring","text"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/blaze-html-0.9.1.2/blaze-html-0.9.1.2.tar.gz"},"name":"blaze-html","pinned":{"url":["https://hackage.haskell.org/package/blaze-html-0.9.1.2/blaze-html-0.9.1.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/blaze-html-0.9.1.2.tar.gz"],"sha256":"60503f42546c6c1b954014d188ea137e43d74dcffd2bf6157c113fd91a0c394c","cabal-sha256":"5cd99ebdbf18e096f548f49ccabad0ec1338a1e7dd5165ab304b25e2efb1cb54"},"version":"0.9.1.2"}, + "blaze-markup": {"dependencies":["base","blaze-builder","bytestring","text"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/blaze-markup-0.8.2.7/blaze-markup-0.8.2.7.tar.gz"},"name":"blaze-markup","pinned":{"url":["https://hackage.haskell.org/package/blaze-markup-0.8.2.7/blaze-markup-0.8.2.7.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/blaze-markup-0.8.2.7.tar.gz"],"sha256":"8b6489ed422d98e4372f41be1f40f772b8d4ed925f3203b36be4078d918c8ee4","cabal-sha256":"66a4a250ef6597e3d147256ee3f3123d3b4848f2d2494f676ec293267e286f63"},"version":"0.8.2.7"}, + "bytestring": {"dependencies":[],"location":{"type":"core"},"name":"bytestring","version":"0.10.10.0"}, + "cabal-doctest": {"dependencies":["Cabal","base","directory","filepath"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/cabal-doctest-1.0.8/cabal-doctest-1.0.8.tar.gz"},"name":"cabal-doctest","pinned":{"url":["https://hackage.haskell.org/package/cabal-doctest-1.0.8/cabal-doctest-1.0.8.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/cabal-doctest-1.0.8.tar.gz"],"sha256":"2026a6a87d410202ce091412ca6bc33c5aca787025326b4a3d13425a23392e0e","cabal-sha256":"8bd1d614fb65f0d52609da30bf8e5ec71a4b6adf8ff5610edb3cb4d114576117"},"version":"1.0.8"}, + "call-stack": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/call-stack-0.2.0/call-stack-0.2.0.tar.gz"},"name":"call-stack","pinned":{"url":["https://hackage.haskell.org/package/call-stack-0.2.0/call-stack-0.2.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/call-stack-0.2.0.tar.gz"],"sha256":"95c693c93958758d714dee22edc56d4ebb2dcefa4412264e941e32ccd6e4e0c7","cabal-sha256":"5ce796b78d5f964468ec6fe0717b4e7d0430817f37370c47b3e6b38e345b6643"},"version":"0.2.0"}, + "case-insensitive": {"dependencies":["base","bytestring","deepseq","hashable","text"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/case-insensitive-1.2.1.0/case-insensitive-1.2.1.0.tar.gz"},"name":"case-insensitive","pinned":{"url":["https://hackage.haskell.org/package/case-insensitive-1.2.1.0/case-insensitive-1.2.1.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/case-insensitive-1.2.1.0.tar.gz"],"sha256":"296dc17e0c5f3dfb3d82ced83e4c9c44c338ecde749b278b6eae512f1d04e406","cabal-sha256":"9dfd3171fc7698cf8d931727d3af3a7b389135b583e46b5adac1f9d2026fff61"},"version":"1.2.1.0"}, + "charset": {"dependencies":["array","base","bytestring","containers","semigroups","unordered-containers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/charset-0.3.7.1/charset-0.3.7.1.tar.gz"},"name":"charset","pinned":{"url":["https://hackage.haskell.org/package/charset-0.3.7.1/charset-0.3.7.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/charset-0.3.7.1.tar.gz"],"sha256":"3d415d2883bd7bf0cc9f038e8323f19c71e07dd12a3c712f449ccb8b4daac0be","cabal-sha256":"feeb8e992c080205ad2f3b96f8fbe71419c92b9a3a95f00096faedf404efd6fc"},"version":"0.3.7.1"}, + "clock": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/clock-0.8/clock-0.8.tar.gz"},"name":"clock","pinned":{"url":["https://hackage.haskell.org/package/clock-0.8/clock-0.8.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/clock-0.8.tar.gz"],"sha256":"08a35c5294009040f1e5eb721a21b60df7af6584092bb3d376ab1b2e57e26914","cabal-sha256":"b4ae207e2d3761450060a0d0feb873269233898039c76fceef9cc1a544067767"},"version":"0.8"}, + "cmdargs": {"dependencies":["base","filepath","process","template-haskell","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/cmdargs-0.10.20/cmdargs-0.10.20.tar.gz"},"name":"cmdargs","pinned":{"url":["https://hackage.haskell.org/package/cmdargs-0.10.20/cmdargs-0.10.20.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/cmdargs-0.10.20.tar.gz"],"sha256":"0e269dc48c3d4c0447c96ffd772a6fe69dfa1260c323f4cd7bf171cbf2ab7331","cabal-sha256":"76cf238367e669833929dd264b4fc2278145ddf5b743624f2d5558cca16a08a9"},"version":"0.10.20"}, + "code-page": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/code-page-0.2/code-page-0.2.tar.gz"},"name":"code-page","pinned":{"url":["https://hackage.haskell.org/package/code-page-0.2/code-page-0.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/code-page-0.2.tar.gz"],"sha256":"bfe32a8c4be9cf0d5a088267bf3fdf4adda8ba3f109e85675c93e70d575e1844","cabal-sha256":"f701393cb1ff7b3ec7880816abc44387647811be31670e884e02d6a20c4aa508"},"version":"0.2"}, + "colour": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/colour-2.3.5/colour-2.3.5.tar.gz"},"name":"colour","pinned":{"url":["https://hackage.haskell.org/package/colour-2.3.5/colour-2.3.5.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/colour-2.3.5.tar.gz"],"sha256":"3b8d471979617dce7c193523743c9782df63433d8e87e3ef6d97922e0da104e7","cabal-sha256":"b27db0a3ad40d70bdbd8510a104269f8707592e80757a1abc66a22ba25e5a42f"},"version":"2.3.5"}, + "comonad": {"dependencies":["Cabal","base","cabal-doctest","containers","distributive","tagged","transformers","transformers-compat"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/comonad-5.0.6/comonad-5.0.6.tar.gz"},"name":"comonad","pinned":{"url":["https://hackage.haskell.org/package/comonad-5.0.6/comonad-5.0.6.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/comonad-5.0.6.tar.gz"],"sha256":"77cfb016acd1747b892c31b82daf0de93f508ba775d62562d376b354adb88fae","cabal-sha256":"fdf1b529a79765a8549ac7e9d439b769cca852778742db8702a9d9b2dc27e4a4"},"version":"5.0.6"}, + "concurrent-output": {"dependencies":["ansi-terminal","async","base","directory","exceptions","process","stm","terminal-size","text","transformers","unix"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/concurrent-output-1.10.12/concurrent-output-1.10.12.tar.gz"},"name":"concurrent-output","pinned":{"url":["https://hackage.haskell.org/package/concurrent-output-1.10.12/concurrent-output-1.10.12.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/concurrent-output-1.10.12.tar.gz"],"sha256":"87f8a1cf54e6eaf146750fa6bf11aa2620da496073cb6c3dc8f697169eba3c20","cabal-sha256":"50e14131c486611055e2fa4f01a2ed03e63051e6d6707650f0a8f2f4ca618477"},"version":"1.10.12"}, + "conduit": {"dependencies":["base","bytestring","directory","exceptions","filepath","mono-traversable","mtl","primitive","resourcet","text","transformers","unix","unliftio-core","vector"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/conduit-1.3.2/conduit-1.3.2.tar.gz"},"name":"conduit","pinned":{"url":["https://hackage.haskell.org/package/conduit-1.3.2/conduit-1.3.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/conduit-1.3.2.tar.gz"],"sha256":"e3d97970f9bdead7e9e5a71b6f6c32d5d08c1551d5b36b28350b20e146f4ac6e","cabal-sha256":"f85b5dc1d7d30e9122ac15975e7f59fe846b42ef952e2beddd32520a753c2fc4"},"version":"1.3.2"}, + "constraints": {"dependencies":["base","binary","deepseq","ghc-prim","hashable","mtl","semigroups","transformers","transformers-compat","type-equality"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/constraints-0.12/constraints-0.12.tar.gz"},"name":"constraints","pinned":{"url":["https://hackage.haskell.org/package/constraints-0.12/constraints-0.12.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/constraints-0.12.tar.gz"],"sha256":"f26b531a15f013f15b4b5df46c4f89b13927253a4195494c50320adf05760223","cabal-sha256":"71c7999d7fa01d8941f08d37d4c107c6b1bcbd0306e234157557b9b096b7f1be"},"version":"0.12"}, + "containers": {"dependencies":[],"location":{"type":"core"},"name":"containers","version":"0.6.2.1"}, + "contravariant": {"dependencies":["StateVar","base","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/contravariant-1.5.2/contravariant-1.5.2.tar.gz"},"name":"contravariant","pinned":{"url":["https://hackage.haskell.org/package/contravariant-1.5.2/contravariant-1.5.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/contravariant-1.5.2.tar.gz"],"sha256":"c4262c24e3dcc2ba8ca221ed52a6390818a715301e4f13135d8d732e0c7dc60c","cabal-sha256":"853259271870000c007a281f0bf0bf6e1aaa97c5fd5cd5734d7b0d79b9de2af5"},"version":"1.5.2"}, + "data-default-class": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/data-default-class-0.1.2.0/data-default-class-0.1.2.0.tar.gz"},"name":"data-default-class","pinned":{"url":["https://hackage.haskell.org/package/data-default-class-0.1.2.0/data-default-class-0.1.2.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/data-default-class-0.1.2.0.tar.gz"],"sha256":"4f01b423f000c3e069aaf52a348564a6536797f31498bb85c3db4bd2d0973e56","cabal-sha256":"63e62120b7efd733a5a17cf59ceb43268e9a929c748127172d7d42f4a336e327"},"version":"0.1.2.0"}, + "data-fix": {"dependencies":["base","deepseq","hashable"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/data-fix-0.3.0/data-fix-0.3.0.tar.gz"},"name":"data-fix","pinned":{"url":["https://hackage.haskell.org/package/data-fix-0.3.0/data-fix-0.3.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/data-fix-0.3.0.tar.gz"],"sha256":"9e59b3ed694b5139316093b3767842e60ad4821858459e7cd763e5773dfa99a0","cabal-sha256":"058a266d1e658500e0ffb8babe68195b0ce06a081dcfc3814afc784b083fd9a5"},"version":"0.3.0"}, + "deepseq": {"dependencies":[],"location":{"type":"core"},"name":"deepseq","version":"1.4.4.0"}, + "directory": {"dependencies":[],"location":{"type":"core"},"name":"directory","version":"1.3.6.0"}, + "directory-tree": {"dependencies":["base","directory","filepath"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/directory-tree-0.12.1/directory-tree-0.12.1.tar.gz"},"name":"directory-tree","pinned":{"url":["https://hackage.haskell.org/package/directory-tree-0.12.1/directory-tree-0.12.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/directory-tree-0.12.1.tar.gz"],"sha256":"e2084495b3a226cf54d949635c86fc14e89daa09d86cce39e3c3cf898ae6e517","cabal-sha256":"6f24ee1eca965a199a96f853582e61a338f1a529c87bc02c7f1451e2f2ed03fe"},"version":"0.12.1"}, + "distributive": {"dependencies":["Cabal","base","base-orphans","cabal-doctest","tagged","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/distributive-0.6.2/distributive-0.6.2.tar.gz"},"name":"distributive","pinned":{"url":["https://hackage.haskell.org/package/distributive-0.6.2/distributive-0.6.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/distributive-0.6.2.tar.gz"],"sha256":"824ee271ded433ce6c61fe890c784642b7e20ffa4082fca609da54e7dcfc23c9","cabal-sha256":"2ace9babcdbd1c2db28638c200405fb85e3660fe19ceae4f03082590adc2c487"},"version":"0.6.2"}, + "dlist": {"dependencies":["base","deepseq"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/dlist-0.8.0.8/dlist-0.8.0.8.tar.gz"},"name":"dlist","pinned":{"url":["https://hackage.haskell.org/package/dlist-0.8.0.8/dlist-0.8.0.8.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/dlist-0.8.0.8.tar.gz"],"sha256":"7129cf18068d3384e305708a10426ab8f573bee1030b023a114f45f1d0ec496d","cabal-sha256":"90ca348bffdc62d7070bcf0e97c728f8d01b24fbc7ea08d2909157d0da76534c"},"version":"0.8.0.8"}, + "doctest": {"dependencies":["base","base-compat","code-page","deepseq","directory","filepath","ghc","ghc-paths","process","syb","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/doctest-0.16.3/doctest-0.16.3.tar.gz"},"name":"doctest","pinned":{"url":["https://hackage.haskell.org/package/doctest-0.16.3/doctest-0.16.3.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/doctest-0.16.3.tar.gz"],"sha256":"cfe9629f9c4d0aa24a11b5c4dd216fb5b9ebce7b3f6a8a7e58716280943a34f8","cabal-sha256":"a4d5e71440a95034ad206eb9f3a27b2f5253896a15124574a00fea98c5b2f5c1"},"version":"0.16.3"}, + "erf": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/erf-2.0.0.0/erf-2.0.0.0.tar.gz"},"name":"erf","pinned":{"url":["https://hackage.haskell.org/package/erf-2.0.0.0/erf-2.0.0.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/erf-2.0.0.0.tar.gz"],"sha256":"24f0b79c7e1d25cb2cd44c2258d7a464bf6db8079775b50b60b54a254616b337","cabal-sha256":"11c5d3747d17b589009cbe9656ca792e4b5b2560d4aa44f6f1e80044794b1a8b"},"version":"2.0.0.0"}, + "exceptions": {"dependencies":["base","mtl","stm","template-haskell","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/exceptions-0.10.4/exceptions-0.10.4.tar.gz"},"name":"exceptions","pinned":{"url":["https://hackage.haskell.org/package/exceptions-0.10.4/exceptions-0.10.4.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/exceptions-0.10.4.tar.gz"],"sha256":"4d0bfb4355cffcd67d300811df9d5fe44ea3594ed63750795bfc1f797abd84cf","cabal-sha256":"1729ef26a611ae78aa58cdd34192aff710cbaa6d631dd042ddfb63556d00b52c"},"version":"0.10.4"}, + "fail": {"dependencies":[],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/fail-4.9.0.0/fail-4.9.0.0.tar.gz"},"name":"fail","pinned":{"url":["https://hackage.haskell.org/package/fail-4.9.0.0/fail-4.9.0.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/fail-4.9.0.0.tar.gz"],"sha256":"6d5cdb1a5c539425a9665f740e364722e1d9d6ae37fbc55f30fe3dbbbb91d4a2","cabal-sha256":"35d1ee29364447c1b7d616bb1ee31f162b73e85fea91d7ca6441cf901398f572"},"version":"4.9.0.0"}, + "filepath": {"dependencies":[],"location":{"type":"core"},"name":"filepath","version":"1.4.2.1"}, + "fingertree": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/fingertree-0.1.4.2/fingertree-0.1.4.2.tar.gz"},"name":"fingertree","pinned":{"url":["https://hackage.haskell.org/package/fingertree-0.1.4.2/fingertree-0.1.4.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/fingertree-0.1.4.2.tar.gz"],"sha256":"95a948341570bad5a9b2468c388c0eb2c20c57e10dd8fbfc994c7b8764b36a7f","cabal-sha256":"b368fda61b14073bd798f45c8fa91e1c5331628193a8b88d93fb5a4341849c64"},"version":"0.1.4.2"}, + "foldl": {"dependencies":["base","bytestring","comonad","containers","contravariant","hashable","mwc-random","primitive","profunctors","semigroupoids","text","transformers","unordered-containers","vector","vector-builder"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/foldl-1.4.8/foldl-1.4.8.tar.gz"},"name":"foldl","pinned":{"url":["https://hackage.haskell.org/package/foldl-1.4.8/foldl-1.4.8.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/foldl-1.4.8.tar.gz"],"sha256":"ed1a59f210d4e732dc5b0a0dbe7e60348ea87e74df196f75a6bc236c936499ca","cabal-sha256":"2f6611b3a2ce92d2279c93a60cd8ef3bed98c17bd814e5b943ede53578005f26"},"version":"1.4.8"}, + "free": {"dependencies":["base","comonad","containers","distributive","exceptions","mtl","profunctors","semigroupoids","template-haskell","transformers","transformers-base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/free-5.1.3/free-5.1.3.tar.gz"},"name":"free","pinned":{"url":["https://hackage.haskell.org/package/free-5.1.3/free-5.1.3.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/free-5.1.3.tar.gz"],"sha256":"2c70d66e3a1ad52ce4b22d5510ffc6d7b3db950bd7f43bc61801cfe7b24c2e2d","cabal-sha256":"604c27b6ba0a560c8a1377ad76e5bbb8528e924d6b0590215d815faddbec0b70"},"version":"5.1.3"}, + "fused-effects": {"dependencies":["base","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/fused-effects-1.1.0.0/fused-effects-1.1.0.0.tar.gz"},"name":"fused-effects","pinned":{"url":["https://hackage.haskell.org/package/fused-effects-1.1.0.0/fused-effects-1.1.0.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/fused-effects-1.1.0.0.tar.gz"],"sha256":"9de604f9bbae418ff81767c173933945d1dd61c2889c124775dcbfa90780415b","cabal-sha256":"29d03c73b585920c0999a18b73c9a0bf9e61e1fa58c5c2bed3f89423c8078f4a"},"version":"1.1.0.0"}, + "fused-effects-exceptions": {"dependencies":["base","fused-effects","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/fused-effects-exceptions-1.1.0.0/fused-effects-exceptions-1.1.0.0.tar.gz"},"name":"fused-effects-exceptions","pinned":{"url":["https://hackage.haskell.org/package/fused-effects-exceptions-1.1.0.0/fused-effects-exceptions-1.1.0.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/fused-effects-exceptions-1.1.0.0.tar.gz"],"sha256":"51d67c952b4d0799fe99f6b82d6e534b9fd26447ea321c7710bfdbc9ca76bd64","cabal-sha256":"c1880f55360deaa4441bda9ff09a4ce6dbd63df8c175c7ada16a5d67a3717bee"},"version":"1.1.0.0"}, + "fused-effects-readline": {"dependencies":["base","directory","exceptions","filepath","fused-effects","haskeline","prettyprinter","prettyprinter-ansi-terminal","terminal-size","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/fused-effects-readline-0.1.0.0/fused-effects-readline-0.1.0.0.tar.gz"},"name":"fused-effects-readline","pinned":{"url":["https://hackage.haskell.org/package/fused-effects-readline-0.1.0.0/fused-effects-readline-0.1.0.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/fused-effects-readline-0.1.0.0.tar.gz"],"sha256":"5514b7022231fc2e040bbdc7550cb080a03ebdf567e16719f0443f20572b3ae9","cabal-sha256":"668b390d418baf0e4f611a021e92a12b9bdebbab2e6a75a8b6c7434cfd019856"},"version":"0.1.0.0"}, + "fused-syntax": {"dependencies":["base","transformers"],"location":{"type":"archive","url":"https://github.com/antitypical/fused-syntax/archive/4a383d57c8fd7592f54a33f43eb9666314a6e80e.tar.gz"},"name":"fused-syntax","pinned":{"sha256":"aa345f8f04a12beaf8f07620467dee06370b72c763cf2d1c60556878b226fafc","strip-prefix":"fused-syntax-4a383d57c8fd7592f54a33f43eb9666314a6e80e"},"version":"0.0.0.0"}, + "gauge": {"dependencies":["base","basement","deepseq","directory","process","vector"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/gauge-0.2.5/gauge-0.2.5.tar.gz"},"name":"gauge","pinned":{"url":["https://hackage.haskell.org/package/gauge-0.2.5/gauge-0.2.5.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/gauge-0.2.5.tar.gz"],"sha256":"d520fd677890c1bf2b1601331d003f976d85420811c3db4a72cff4d3bdb7f5a7","cabal-sha256":"8d60450bdec985c146d5632d4f5a8d60cec27d71ba6787ed1ee64d945d4c7c33"},"version":"0.2.5"}, + "generic-lens": {"dependencies":["base","generic-lens-core","profunctors","text"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/generic-lens-2.0.0.0/generic-lens-2.0.0.0.tar.gz"},"name":"generic-lens","pinned":{"url":["https://hackage.haskell.org/package/generic-lens-2.0.0.0/generic-lens-2.0.0.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/generic-lens-2.0.0.0.tar.gz"],"sha256":"b816e55dbdf96ed04b7ad01193fce3dec36397aff3036e34a89ee2884b02093a","cabal-sha256":"7409fa0ce540d0bd41acf596edd1c5d0c0ab1cd1294d514cf19c5c24e8ef2550"},"version":"2.0.0.0"}, + "generic-lens-core": {"dependencies":["base","indexed-profunctors","text"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/generic-lens-core-2.0.0.0/generic-lens-core-2.0.0.0.tar.gz"},"name":"generic-lens-core","pinned":{"url":["https://hackage.haskell.org/package/generic-lens-core-2.0.0.0/generic-lens-core-2.0.0.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/generic-lens-core-2.0.0.0.tar.gz"],"sha256":"51628204350380be7d46a53a9e3e47d9d6f5c4797cf0215b9d93a2f90794ee40","cabal-sha256":"40b063c4a1399b3cdb19f2df1fae5a1a82f3313015c7c3e47fc23b8ef1b3e443"},"version":"2.0.0.0"}, + "generic-monoid": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/generic-monoid-0.1.0.1/generic-monoid-0.1.0.1.tar.gz"},"name":"generic-monoid","pinned":{"url":["https://hackage.haskell.org/package/generic-monoid-0.1.0.1/generic-monoid-0.1.0.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/generic-monoid-0.1.0.1.tar.gz"],"sha256":"cfd072ad70af41c1b94ac24e42e2635f37ed2a54e8f4be871be78b18b66b2adf","cabal-sha256":"d2ddcb359d05156e5654a309759dbf1de887e591d9afdabfb343b2e66403890c"},"version":"0.1.0.1"}, + "ghc": {"dependencies":[],"location":{"type":"core"},"name":"ghc","version":"8.10.1"}, + "ghc-paths": {"dependencies":["Cabal","base","directory"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/ghc-paths-0.1.0.12/ghc-paths-0.1.0.12.tar.gz"},"name":"ghc-paths","pinned":{"url":["https://hackage.haskell.org/package/ghc-paths-0.1.0.12/ghc-paths-0.1.0.12.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/ghc-paths-0.1.0.12.tar.gz"],"sha256":"6ecbe676d073cb07989c61ce4c5709c4e67cbefdd2d55a4095f9388b6fe2c484","cabal-sha256":"85370fdc615d4be5e09d9269eebb9a3fc7017c40b1a9e0050b121d75908564bd"},"version":"0.1.0.12"}, + "ghc-prim": {"dependencies":[],"location":{"type":"core"},"name":"ghc-prim","version":"0.6.1"}, + "happy": {"dependencies":["array","base","containers","mtl"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/happy-1.19.12/happy-1.19.12.tar.gz"},"name":"happy","pinned":{"url":["https://hackage.haskell.org/package/happy-1.19.12/happy-1.19.12.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/happy-1.19.12.tar.gz"],"sha256":"fb9a23e41401711a3b288f93cf0a66db9f97da1ce32ec4fffea4b78a0daeb40f","cabal-sha256":"acc67bfbf3af87892766781dd064c9447181ea81269a7a1e5fc9ace4a8fa4768"},"version":"1.19.12"}, + "hashable": {"dependencies":["base","bytestring","deepseq","ghc-prim","integer-gmp","text"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/hashable-1.3.0.0/hashable-1.3.0.0.tar.gz"},"name":"hashable","pinned":{"url":["https://hackage.haskell.org/package/hashable-1.3.0.0/hashable-1.3.0.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/hashable-1.3.0.0.tar.gz"],"sha256":"822e5413fbccca6ae884d3aba4066422c8b5d58d23d18b9ecb5c03273bb19ab4","cabal-sha256":"4c70f1407881059e93550d3742191254296b2737b793a742bd901348fb3e1fb1"},"version":"1.3.0.0"}, + "haskeline": {"dependencies":["base","bytestring","containers","directory","exceptions","filepath","process","stm","terminfo","transformers","unix"],"location":{"type":"core"},"name":"haskeline","version":"0.8.0.0"}, + "haskell-lexer": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/haskell-lexer-1.1/haskell-lexer-1.1.tar.gz"},"name":"haskell-lexer","pinned":{"url":["https://hackage.haskell.org/package/haskell-lexer-1.1/haskell-lexer-1.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/haskell-lexer-1.1.tar.gz"],"sha256":"313a15cc643322c8badd148867ce25ca1ffc191df9e7eeec5b10bc08c4b563d5","cabal-sha256":"9e0a7633f6bdb59004c6f3144ebfad1edb9e440fc6a94215c3a1d11bcd8656ef"},"version":"1.1"}, + "hedgehog": {"dependencies":["ansi-terminal","async","base","bytestring","concurrent-output","containers","deepseq","directory","erf","exceptions","fail","lifted-async","mmorph","monad-control","mtl","pretty-show","primitive","random","resourcet","semigroups","stm","template-haskell","text","time","transformers","transformers-base","wl-pprint-annotated"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/hedgehog-1.0.3/hedgehog-1.0.3.tar.gz"},"name":"hedgehog","pinned":{"url":["https://hackage.haskell.org/package/hedgehog-1.0.3/hedgehog-1.0.3.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/hedgehog-1.0.3.tar.gz"],"sha256":"35f9e96578c09734243a4e423d367083e08937f863101b3f6ef48744c8299b82","cabal-sha256":"dd9a25bf904fe444d5de471d0933261ef2c9a1110330460e037e0fef86fac89e"},"version":"1.0.3"}, + "hostname": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/hostname-1.0/hostname-1.0.tar.gz"},"name":"hostname","pinned":{"url":["https://hackage.haskell.org/package/hostname-1.0/hostname-1.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/hostname-1.0.tar.gz"],"sha256":"9b43dab1b6da521f35685b20555da00738c8e136eb972458c786242406a9cf5c","cabal-sha256":"8203b6ecd14ca1ef12f73a471b0a6a4be3ad4568d8b84f2bc4bc9e0abb8c4153"},"version":"1.0"}, + "hscolour": {"dependencies":["base","containers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/hscolour-1.24.4/hscolour-1.24.4.tar.gz"},"name":"hscolour","pinned":{"url":["https://hackage.haskell.org/package/hscolour-1.24.4/hscolour-1.24.4.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/hscolour-1.24.4.tar.gz"],"sha256":"243332b082294117f37b2c2c68079fa61af68b36223b3fc07594f245e0e5321d","cabal-sha256":"3a329fa0ea9138f651088f1fa25522aabeab0eb591932d3fd56c66736bbe78be"},"version":"1.24.4"}, + "hspec": {"dependencies":["QuickCheck","base","hspec-core","hspec-discover","hspec-expectations"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/hspec-2.7.2/hspec-2.7.2.tar.gz"},"name":"hspec","pinned":{"url":["https://hackage.haskell.org/package/hspec-2.7.2/hspec-2.7.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/hspec-2.7.2.tar.gz"],"sha256":"a97ebd050d5667d78dbe83348b8b1b4f579c2ea71ccfcc3eea9e9fbe0b5a697d","cabal-sha256":"4758e1af9cf534429cde9f5f6495e5922ad1c05ca5b8344a0a459d320cd1cd28"},"version":"2.7.2"}, + "hspec-core": {"dependencies":["HUnit","QuickCheck","ansi-terminal","array","base","call-stack","clock","deepseq","directory","filepath","hspec-expectations","quickcheck-io","random","setenv","stm","tf-random","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/hspec-core-2.7.2/hspec-core-2.7.2.tar.gz"},"name":"hspec-core","pinned":{"url":["https://hackage.haskell.org/package/hspec-core-2.7.2/hspec-core-2.7.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/hspec-core-2.7.2.tar.gz"],"sha256":"d33afadc5602545c832bf5a7d73815ee9cc6c50e4b17847b35d7e5f11eeffa6f","cabal-sha256":"4302aeeaafd24309b8c32dace6b6c1a32124a721c0be10ab0f23ec40db38333e"},"version":"2.7.2"}, + "hspec-discover": {"dependencies":["base","directory","filepath"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/hspec-discover-2.7.2/hspec-discover-2.7.2.tar.gz"},"name":"hspec-discover","pinned":{"url":["https://hackage.haskell.org/package/hspec-discover-2.7.2/hspec-discover-2.7.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/hspec-discover-2.7.2.tar.gz"],"sha256":"888604783e48c6a5f49f3de5eb8c4f83841119b13d99144283f9e56a7fdb7458","cabal-sha256":"9b21f4211c0553f2f50e50b2231dbdc89e37acb0fbb60b91b890cc2ec81e7bf7"},"version":"2.7.2"}, + "hspec-expectations": {"dependencies":["HUnit","base","call-stack"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/hspec-expectations-0.8.2/hspec-expectations-0.8.2.tar.gz"},"name":"hspec-expectations","pinned":{"url":["https://hackage.haskell.org/package/hspec-expectations-0.8.2/hspec-expectations-0.8.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/hspec-expectations-0.8.2.tar.gz"],"sha256":"819607ea1faf35ce5be34be61c6f50f3389ea43892d56fb28c57a9f5d54fb4ef","cabal-sha256":"e2db24881baadc2d9d23b03cb629e80dcbda89a6b04ace9adb5f4d02ef8b31aa"},"version":"0.8.2"}, + "indexed-profunctors": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/indexed-profunctors-0.1/indexed-profunctors-0.1.tar.gz"},"name":"indexed-profunctors","pinned":{"url":["https://hackage.haskell.org/package/indexed-profunctors-0.1/indexed-profunctors-0.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/indexed-profunctors-0.1.tar.gz"],"sha256":"31dfb4319dff84199344000b1efad75158eeac17ddcbb27f91735e958591bb65","cabal-sha256":"ddf618d0d4c58319c1e735e746bc69a1021f13b6f475dc9614b80af03432e6d4"},"version":"0.1"}, + "integer-gmp": {"dependencies":[],"location":{"type":"core"},"name":"integer-gmp","version":"1.0.3.0"}, + "integer-logarithms": {"dependencies":["array","base","ghc-prim","integer-gmp"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/integer-logarithms-1.0.3/integer-logarithms-1.0.3.tar.gz"},"name":"integer-logarithms","pinned":{"url":["https://hackage.haskell.org/package/integer-logarithms-1.0.3/integer-logarithms-1.0.3.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/integer-logarithms-1.0.3.tar.gz"],"sha256":"5ae262018698af35bb74916fad170d96d3eb44669c72ed36db9a19a3392cec16","cabal-sha256":"63d42595ec92b71ac98a07b984b0a2eb3d4956f4ad2d856c3bf6fc3dc218d228"},"version":"1.0.3"}, + "invariant": {"dependencies":["StateVar","array","base","bifunctors","comonad","containers","contravariant","ghc-prim","profunctors","stm","tagged","template-haskell","th-abstraction","transformers","transformers-compat","unordered-containers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/invariant-0.5.3/invariant-0.5.3.tar.gz"},"name":"invariant","pinned":{"url":["https://hackage.haskell.org/package/invariant-0.5.3/invariant-0.5.3.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/invariant-0.5.3.tar.gz"],"sha256":"d73e5def38da9fdd85def073857aa5f4b1d3b0c2df05c43d58a677cca02d440c","cabal-sha256":"e430340b5f4248159f9fd217c506946887b4ff8f2c7a3819c3d4f06bcb195e6a"},"version":"0.5.3"}, + "kan-extensions": {"dependencies":["adjunctions","array","base","comonad","containers","contravariant","distributive","free","invariant","mtl","profunctors","semigroupoids","tagged","transformers","transformers-compat"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/kan-extensions-5.2/kan-extensions-5.2.tar.gz"},"name":"kan-extensions","pinned":{"url":["https://hackage.haskell.org/package/kan-extensions-5.2/kan-extensions-5.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/kan-extensions-5.2.tar.gz"],"sha256":"6b727e586f744b96529415eeabc745dfe05feea61f6b6bad90c224c879f4dbd3","cabal-sha256":"2407501562039dad6a3d19aacd0bbcca07aa28497cbd1cdaaf5aabc30146899d"},"version":"5.2"}, + "lens": {"dependencies":["Cabal","array","base","base-orphans","bifunctors","bytestring","cabal-doctest","call-stack","comonad","containers","contravariant","distributive","exceptions","filepath","free","ghc-prim","hashable","kan-extensions","mtl","parallel","profunctors","reflection","semigroupoids","tagged","template-haskell","text","th-abstraction","transformers","transformers-compat","unordered-containers","vector"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/lens-4.19.2/lens-4.19.2.tar.gz"},"name":"lens","pinned":{"url":["https://hackage.haskell.org/package/lens-4.19.2/lens-4.19.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/lens-4.19.2.tar.gz"],"sha256":"52f858ae3971a5104cdba5e81a27d154fda11fe65a54a4ac328c85904bdec23b","cabal-sha256":"f0570ca0e4624d9daa57256f00f514e87be155401583fa1665faba47376c63a7"},"version":"4.19.2"}, + "lens-family": {"dependencies":["base","containers","lens-family-core","mtl","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/lens-family-2.0.0/lens-family-2.0.0.tar.gz"},"name":"lens-family","pinned":{"url":["https://hackage.haskell.org/package/lens-family-2.0.0/lens-family-2.0.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/lens-family-2.0.0.tar.gz"],"sha256":"6793f2a5c5030f02258532043d57eac42318cd7f9cef47f6720a7b99276f03db","cabal-sha256":"b915001e862bda2ad5e0e5c17ba59f4483d02a02cbac020fd35f58e6736bc9a7"},"version":"2.0.0"}, + "lens-family-core": {"dependencies":["base","containers","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/lens-family-core-2.0.0/lens-family-core-2.0.0.tar.gz"},"name":"lens-family-core","pinned":{"url":["https://hackage.haskell.org/package/lens-family-core-2.0.0/lens-family-core-2.0.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/lens-family-core-2.0.0.tar.gz"],"sha256":"19b4fcd3bd37dd0056c112a9b16cf405644fabd6652013c61a5078380ed2265a","cabal-sha256":"645b0553e16a3857b08fa44f11f0664296e1db5d6494a83634711c7f4f1707a7"},"version":"2.0.0"}, + "libyaml": {"dependencies":["base","bytestring","conduit","resourcet"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/libyaml-0.1.2/libyaml-0.1.2.tar.gz"},"name":"libyaml","pinned":{"url":["https://hackage.haskell.org/package/libyaml-0.1.2/libyaml-0.1.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/libyaml-0.1.2.tar.gz"],"sha256":"8f42d66f199fcaee255326f8f770d88b0670df56b5eb78002d6058f3a45e97b5","cabal-sha256":"7f14f69ceb14659699974e8e47e1ea6f226ea21ff42a802db03e721c319d201d"},"version":"0.1.2"}, + "lifted-async": {"dependencies":["async","base","constraints","lifted-base","monad-control","transformers-base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/lifted-async-0.10.1.2/lifted-async-0.10.1.2.tar.gz"},"name":"lifted-async","pinned":{"url":["https://hackage.haskell.org/package/lifted-async-0.10.1.2/lifted-async-0.10.1.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/lifted-async-0.10.1.2.tar.gz"],"sha256":"bd24cb197953701507680893b84df505eb58d1c31e1d45f9a0edae43cd965713","cabal-sha256":"525946f7f54feca4cf5207aaf56452be08a2b0d12e04e5fb5770a98b5a56b9fc"},"version":"0.10.1.2"}, + "lifted-base": {"dependencies":["base","monad-control","transformers-base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/lifted-base-0.2.3.12/lifted-base-0.2.3.12.tar.gz"},"name":"lifted-base","pinned":{"url":["https://hackage.haskell.org/package/lifted-base-0.2.3.12/lifted-base-0.2.3.12.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/lifted-base-0.2.3.12.tar.gz"],"sha256":"c134a95f56750aae806e38957bb03c59627cda16034af9e00a02b699474317c5","cabal-sha256":"e94ad0692c9c5d85c373e508f23654f2da8ac8c3e475c2b65ffbc04fb165ad69"},"version":"0.2.3.12"}, + "lingo": {"dependencies":["base","bytestring","containers","directory","filepath","raw-strings-qq","text","yaml"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/lingo-0.5.0.1/lingo-0.5.0.1.tar.gz"},"name":"lingo","pinned":{"url":["https://hackage.haskell.org/package/lingo-0.5.0.1/lingo-0.5.0.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/lingo-0.5.0.1.tar.gz"],"sha256":"1a354e753c18ee5c6fceed0acfd0b5b80c5bcb4536df32ba5608272bb279a740","cabal-sha256":"e57deaf3353725bbb84d5e7426d9b7039f191e46779c590f236851c75e94751a"},"version":"0.5.0.1"}, + "logict": {"dependencies":["base","mtl"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/logict-0.7.0.2/logict-0.7.0.2.tar.gz"},"name":"logict","pinned":{"url":["https://hackage.haskell.org/package/logict-0.7.0.2/logict-0.7.0.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/logict-0.7.0.2.tar.gz"],"sha256":"ccc198a05563a4d8fc145ecde8b43a83599b3bcb032d2614a8e852f0ba6ecff5","cabal-sha256":"7edbddead124fb266f62f208ed56c4dbfdd8f20ce15be73b4fe1d2fc758f6e9d"},"version":"0.7.0.2"}, + "math-functions": {"dependencies":["base","data-default-class","deepseq","primitive","vector"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/math-functions-0.3.4.1/math-functions-0.3.4.1.tar.gz"},"name":"math-functions","pinned":{"url":["https://hackage.haskell.org/package/math-functions-0.3.4.1/math-functions-0.3.4.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/math-functions-0.3.4.1.tar.gz"],"sha256":"e20a0afc03d3431610d5f4e57ec3a71822bf6cb1c598e8f2ad1b336533e4a48f","cabal-sha256":"a6e458d2a78f03e83440062e8803c0baf7c1474dc2687489661690f4c6d46416"},"version":"0.3.4.1"}, + "megaparsec": {"dependencies":["base","bytestring","case-insensitive","containers","deepseq","mtl","parser-combinators","scientific","text","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/megaparsec-8.0.0/megaparsec-8.0.0.tar.gz"},"name":"megaparsec","pinned":{"url":["https://hackage.haskell.org/package/megaparsec-8.0.0/megaparsec-8.0.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/megaparsec-8.0.0.tar.gz"],"sha256":"b5d7c64646016d12f540a6948396a86e0cd39865569d68fe2018fe9e3fce6318","cabal-sha256":"362f85e243ecbcb550e1de6e5c74ba5a50c09edaa1208c99bc5b9fd242227fc6"},"version":"8.0.0"}, + "mmorph": {"dependencies":["base","mtl","transformers","transformers-compat"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/mmorph-1.1.3/mmorph-1.1.3.tar.gz"},"name":"mmorph","pinned":{"url":["https://hackage.haskell.org/package/mmorph-1.1.3/mmorph-1.1.3.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/mmorph-1.1.3.tar.gz"],"sha256":"7923f7ad6260a05aaa8175b9f2a250f5bb63187427681171bd36d29a6cf2da65","cabal-sha256":"abfc95648fef0008f984b94137ce8e1635fb071c7bfaaa7393ba175a1b3bb12f"},"version":"1.1.3"}, + "monad-control": {"dependencies":["base","stm","transformers","transformers-base","transformers-compat"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/monad-control-1.0.2.3/monad-control-1.0.2.3.tar.gz"},"name":"monad-control","pinned":{"url":["https://hackage.haskell.org/package/monad-control-1.0.2.3/monad-control-1.0.2.3.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/monad-control-1.0.2.3.tar.gz"],"sha256":"6c1034189d237ae45368c70f0e68f714dd3beda715dd265b6c8a99fcc64022b1","cabal-sha256":"a3ae888d2fed2e2a0ca33ae11e2480219e07312bccf1a02ffe2ba2e3ec5913ee"},"version":"1.0.2.3"}, + "mono-traversable": {"dependencies":["base","bytestring","containers","hashable","split","text","transformers","unordered-containers","vector","vector-algorithms"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/mono-traversable-1.0.15.1/mono-traversable-1.0.15.1.tar.gz"},"name":"mono-traversable","pinned":{"url":["https://hackage.haskell.org/package/mono-traversable-1.0.15.1/mono-traversable-1.0.15.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/mono-traversable-1.0.15.1.tar.gz"],"sha256":"c2df5b79ed2f88f2ee313e57c1d591d4463788e20d39e439297eec5ba5835ddf","cabal-sha256":"cad0e8681cd6c96d3303867fc68c80e2f5d55c2c4bf5277c06ca74402fda61c8"},"version":"1.0.15.1"}, + "mtl": {"dependencies":[],"location":{"type":"core"},"name":"mtl","version":"2.2.2"}, + "mwc-random": {"dependencies":["base","math-functions","primitive","time","vector"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/mwc-random-0.14.0.0/mwc-random-0.14.0.0.tar.gz"},"name":"mwc-random","pinned":{"url":["https://hackage.haskell.org/package/mwc-random-0.14.0.0/mwc-random-0.14.0.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/mwc-random-0.14.0.0.tar.gz"],"sha256":"00370edaa60a51c86663868ecc2b1995824970001875cec458e9acc13511efa2","cabal-sha256":"6ae33e246e91f66f621caabb2323b431c8dab57427a417a98f5cac3d82eb7b21"},"version":"0.14.0.0"}, + "neat-interpolation": {"dependencies":["base","megaparsec","template-haskell","text"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/neat-interpolation-0.5.1.1/neat-interpolation-0.5.1.1.tar.gz"},"name":"neat-interpolation","pinned":{"url":["https://hackage.haskell.org/package/neat-interpolation-0.5.1.1/neat-interpolation-0.5.1.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/neat-interpolation-0.5.1.1.tar.gz"],"sha256":"a4af35abf3f31168f7478eb334592b90e9a658efd26a5702e6780ab2c61454ae","cabal-sha256":"55f45d1737bcdf57dc9753996dd61819df335a542d8bad61b72b3700261c5b70"},"version":"0.5.1.1"}, + "network": {"dependencies":["base","bytestring","deepseq"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/network-3.1.1.1/network-3.1.1.1.tar.gz"},"name":"network","pinned":{"url":["https://hackage.haskell.org/package/network-3.1.1.1/network-3.1.1.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/network-3.1.1.1.tar.gz"],"sha256":"d7ef590173fff2ab522fbc167f3fafb867e4ecfca279eb3ef0d137b51f142c9a","cabal-sha256":"b704cb6676c03e98267190df797497587576a2e96094550ea143415239bbe66e"},"version":"3.1.1.1"}, + "network-uri": {"dependencies":["base","deepseq","parsec","template-haskell"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/network-uri-2.6.3.0/network-uri-2.6.3.0.tar.gz"},"name":"network-uri","pinned":{"url":["https://hackage.haskell.org/package/network-uri-2.6.3.0/network-uri-2.6.3.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/network-uri-2.6.3.0.tar.gz"],"sha256":"a01c1389f15d2cc2e847914737f706133bb11f0c5f8ee89711a36a25b7afa723","cabal-sha256":"d2d9ff3a80d9b2d1ff317a354bc0c56cc109c69a4c2449e5fc712d3ddce83ede"},"version":"2.6.3.0"}, + "optparse-applicative": {"dependencies":["ansi-wl-pprint","base","process","transformers","transformers-compat"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/optparse-applicative-0.15.1.0/optparse-applicative-0.15.1.0.tar.gz"},"name":"optparse-applicative","pinned":{"url":["https://hackage.haskell.org/package/optparse-applicative-0.15.1.0/optparse-applicative-0.15.1.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/optparse-applicative-0.15.1.0.tar.gz"],"sha256":"4db3675fd1e0594afdf079db46f4cd412d483835d703e7c07e1a1a37d6f046f3","cabal-sha256":"29ff6146aabf54d46c4c8788e8d1eadaea27c94f6d360c690c5f6c93dac4b07e"},"version":"0.15.1.0"}, + "optparse-generic": {"dependencies":["Only","base","bytestring","optparse-applicative","system-filepath","text","time","transformers","void"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/optparse-generic-1.4.2/optparse-generic-1.4.2.tar.gz"},"name":"optparse-generic","pinned":{"url":["https://hackage.haskell.org/package/optparse-generic-1.4.2/optparse-generic-1.4.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/optparse-generic-1.4.2.tar.gz"],"sha256":"26fb7261cef593dd7c9534614dc858894e9f29148975a1505f13c43aec356401","cabal-sha256":"c019eb6dfc83476b8afb520afae6b3a6f95c8061a745fbe272a8e043cc7b3dc9"},"version":"1.4.2"}, + "parallel": {"dependencies":["array","base","containers","deepseq","ghc-prim"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/parallel-3.2.2.0/parallel-3.2.2.0.tar.gz"},"name":"parallel","pinned":{"url":["https://hackage.haskell.org/package/parallel-3.2.2.0/parallel-3.2.2.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/parallel-3.2.2.0.tar.gz"],"sha256":"170453a71a2a8b31cca63125533f7771d7debeb639700bdabdd779c34d8a6ef6","cabal-sha256":"c69372af9a39a06739e1d0eaa1f2d8be6b86493a53dbbc455e7b30479c491c6a"},"version":"3.2.2.0"}, + "parsec": {"dependencies":[],"location":{"type":"core"},"name":"parsec","version":"3.1.14.0"}, + "parser-combinators": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/parser-combinators-1.2.1/parser-combinators-1.2.1.tar.gz"},"name":"parser-combinators","pinned":{"url":["https://hackage.haskell.org/package/parser-combinators-1.2.1/parser-combinators-1.2.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/parser-combinators-1.2.1.tar.gz"],"sha256":"03162e40cde50253529fa452165b681d5064d03ad07992800702156adfb6254d","cabal-sha256":"16c3490e007ec10b1255a2b36fb483d000156d555269107131241d9e0fa96412"},"version":"1.2.1"}, + "parsers": {"dependencies":["attoparsec","base","base-orphans","binary","charset","containers","mtl","parsec","scientific","semigroups","text","transformers","unordered-containers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/parsers-0.12.10/parsers-0.12.10.tar.gz"},"name":"parsers","pinned":{"url":["https://hackage.haskell.org/package/parsers-0.12.10/parsers-0.12.10.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/parsers-0.12.10.tar.gz"],"sha256":"17b91f1318ca54679395b382a056df633fdb44fbb962eca66b1787f957af1a6c","cabal-sha256":"3b0d9f15a64cb9a0c66b79b8653e9074e21a1c96d96cfad63ef2984219323499"},"version":"0.12.10"}, + "pathtype": {"dependencies":["QuickCheck","base","deepseq","directory","semigroups","tagged","time","transformers","utility-ht"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/pathtype-0.8.1.1/pathtype-0.8.1.1.tar.gz"},"name":"pathtype","pinned":{"url":["https://hackage.haskell.org/package/pathtype-0.8.1.1/pathtype-0.8.1.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/pathtype-0.8.1.1.tar.gz"],"sha256":"c7dce1871e65c6447bbe138d6ccecd5abcde84aba6fac7003e7755d238c2420c","cabal-sha256":"8561fa48933c1ebd53b48a37806e4d72de31fee0bca4794cb1cd486468987a30"},"version":"0.8.1.1"}, + "pretty": {"dependencies":[],"location":{"type":"core"},"name":"pretty","version":"1.1.3.6"}, + "pretty-show": {"dependencies":["array","base","filepath","ghc-prim","happy","haskell-lexer","pretty","text"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/pretty-show-1.10/pretty-show-1.10.tar.gz"},"name":"pretty-show","pinned":{"url":["https://hackage.haskell.org/package/pretty-show-1.10/pretty-show-1.10.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/pretty-show-1.10.tar.gz"],"sha256":"307f9086e0b063d439dc4f513e36a145e8a57f23de448aefae2a6c00f6da6fd2","cabal-sha256":"bfef8da0ac4db4fc7f41edfec9e9a701ac206418d70702bff1e40f20d6a2b1f1"},"version":"1.10"}, + "pretty-simple": {"dependencies":["Cabal","ansi-terminal","base","cabal-doctest","containers","mtl","text","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/pretty-simple-3.3.0.0/pretty-simple-3.3.0.0.tar.gz"},"name":"pretty-simple","pinned":{"url":["https://hackage.haskell.org/package/pretty-simple-3.3.0.0/pretty-simple-3.3.0.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/pretty-simple-3.3.0.0.tar.gz"],"sha256":"d01637fcfb61911bdd7e85127d79a3e862634c05b5402a3ec64ce36b5149033d","cabal-sha256":"c74f9c3c7234daddddfe2f0567adaced9c40e7c72c24abc3224fc2dcb5a350a2"},"version":"3.3.0.0"}, + "prettyprinter": {"dependencies":["base","text"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/prettyprinter-1.6.2/prettyprinter-1.6.2.tar.gz"},"name":"prettyprinter","pinned":{"url":["https://hackage.haskell.org/package/prettyprinter-1.6.2/prettyprinter-1.6.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/prettyprinter-1.6.2.tar.gz"],"sha256":"d193f1902630d0a652a7043aa37069224ea56a3ff0fa1b57f57ebf5ece777008","cabal-sha256":"d9fa76aebce33c5c179a66128dfb5639e9257325d11c68569c6574dd8e112cde"},"version":"1.6.2"}, + "prettyprinter-ansi-terminal": {"dependencies":["ansi-terminal","base","prettyprinter","text"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/prettyprinter-ansi-terminal-1.1.2/prettyprinter-ansi-terminal-1.1.2.tar.gz"},"name":"prettyprinter-ansi-terminal","pinned":{"url":["https://hackage.haskell.org/package/prettyprinter-ansi-terminal-1.1.2/prettyprinter-ansi-terminal-1.1.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/prettyprinter-ansi-terminal-1.1.2.tar.gz"],"sha256":"e26b7338b90830a126e210ec164426bd3da7d099a319d1287a40e3efce2a1799","cabal-sha256":"90b3b7650bc5b9f0e58da43621d23c817acfc0cf5ce71244b9bd11b8c9f95e3a"},"version":"1.1.2"}, + "primitive": {"dependencies":["base","deepseq","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/primitive-0.7.1.0/primitive-0.7.1.0.tar.gz"},"name":"primitive","pinned":{"url":["https://hackage.haskell.org/package/primitive-0.7.1.0/primitive-0.7.1.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/primitive-0.7.1.0.tar.gz"],"sha256":"6bebecfdf2a57787d9fd5231bfd612b65a92edd7b33a973b2a0f11312b89a3f0","cabal-sha256":"6a237bb338bcc43193077ff8e8c0f0ce2de14c652231496a15672e8b563a07e2"},"version":"0.7.1.0"}, + "process": {"dependencies":[],"location":{"type":"core"},"name":"process","version":"1.6.8.2"}, + "profunctors": {"dependencies":["base","base-orphans","bifunctors","comonad","contravariant","distributive","tagged","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/profunctors-5.5.2/profunctors-5.5.2.tar.gz"},"name":"profunctors","pinned":{"url":["https://hackage.haskell.org/package/profunctors-5.5.2/profunctors-5.5.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/profunctors-5.5.2.tar.gz"],"sha256":"5f1579aab8afae377c7c7c0d0ed95b0bc58003b6dad2d494045f7472a398af7c","cabal-sha256":"55132b7e8a5461e8f7fdc4e06839109fe42ad581225cd151342753fddb824aa8"},"version":"5.5.2"}, + "proto-lens": {"dependencies":["base","bytestring","containers","deepseq","ghc-prim","lens-family","parsec","pretty","primitive","profunctors","tagged","text","transformers","vector"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/proto-lens-0.7.0.0/proto-lens-0.7.0.0.tar.gz"},"name":"proto-lens","pinned":{"url":["https://hackage.haskell.org/package/proto-lens-0.7.0.0/proto-lens-0.7.0.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/proto-lens-0.7.0.0.tar.gz"],"sha256":"3aa3b6aa1a1fa51cc2b7a60dde79112a7d87d6846cc8d65f3c3ad6c4b81ce7b5","cabal-sha256":"2c44a62375f7712f9381f84b1d30cee2f94384f1c98801db2f4450359a8e5036"},"version":"0.7.0.0"}, + "proto-lens-jsonpb": {"dependencies":["aeson","attoparsec","base","base64-bytestring","bytestring","proto-lens-runtime","text","vector"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/proto-lens-jsonpb-0.2.0.2/proto-lens-jsonpb-0.2.0.2.tar.gz"},"name":"proto-lens-jsonpb","pinned":{"url":["https://hackage.haskell.org/package/proto-lens-jsonpb-0.2.0.2/proto-lens-jsonpb-0.2.0.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/proto-lens-jsonpb-0.2.0.2.tar.gz"],"sha256":"a2b6085c73d1315ee34a62be9131321d44536c093c4b1f482a6f76bf024128e5","cabal-sha256":"a361759d615e54a58a2f92eecd991ec8ad563dfdf0169bef2ea02054cf581da1"},"version":"0.2.0.2"}, + "proto-lens-runtime": {"dependencies":["base","bytestring","containers","deepseq","filepath","lens-family","proto-lens","text","vector"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/proto-lens-runtime-0.7.0.0/proto-lens-runtime-0.7.0.0.tar.gz"},"name":"proto-lens-runtime","pinned":{"url":["https://hackage.haskell.org/package/proto-lens-runtime-0.7.0.0/proto-lens-runtime-0.7.0.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/proto-lens-runtime-0.7.0.0.tar.gz"],"sha256":"4dc1aebe1755c0b831d3cb029c7bfea04f252d0b1cee8653dded37baeab3aa63","cabal-sha256":"d6cfab159a63f5c42a1a507638c674a714dfa5f69a06f559e8da840eaafde3ab"},"version":"0.7.0.0"}, + "quickcheck-io": {"dependencies":["HUnit","QuickCheck","base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/quickcheck-io-0.2.0/quickcheck-io-0.2.0.tar.gz"},"name":"quickcheck-io","pinned":{"url":["https://hackage.haskell.org/package/quickcheck-io-0.2.0/quickcheck-io-0.2.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/quickcheck-io-0.2.0.tar.gz"],"sha256":"fb779119d79fe08ff4d502fb6869a70c9a8d5fd8ae0959f605c3c937efd96422","cabal-sha256":"7bf0b68fb90873825eb2e5e958c1b76126dcf984debb998e81673e6d837e0b2d"},"version":"0.2.0"}, + "random": {"dependencies":["base","time"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/random-1.1/random-1.1.tar.gz"},"name":"random","pinned":{"url":["https://hackage.haskell.org/package/random-1.1/random-1.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/random-1.1.tar.gz"],"sha256":"b718a41057e25a3a71df693ab0fe2263d492e759679b3c2fea6ea33b171d3a5a","cabal-sha256":"7b67624fd76ddf97c206de0801dc7e888097e9d572974be9b9ea6551d76965df"},"version":"1.1"}, + "raw-strings-qq": {"dependencies":["base","template-haskell"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/raw-strings-qq-1.1/raw-strings-qq-1.1.tar.gz"},"name":"raw-strings-qq","pinned":{"url":["https://hackage.haskell.org/package/raw-strings-qq-1.1/raw-strings-qq-1.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/raw-strings-qq-1.1.tar.gz"],"sha256":"2e011ec26aeaa53ab43c30b7d9b5b0f661f24b4ebef8884c12c571353c0fbed3","cabal-sha256":"3ea0f14f036649e3576749aef0db4dd0b1102c5331f2e0e2551250e2030ce669"},"version":"1.1"}, + "recursion-schemes": {"dependencies":["base","base-orphans","comonad","free","template-haskell","th-abstraction","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/recursion-schemes-5.1.3/recursion-schemes-5.1.3.tar.gz"},"name":"recursion-schemes","pinned":{"url":["https://hackage.haskell.org/package/recursion-schemes-5.1.3/recursion-schemes-5.1.3.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/recursion-schemes-5.1.3.tar.gz"],"sha256":"b21736e54b1d5fb0149624e95f2d8d8fd3413bb0972eda6a70e5753d3c9f1528","cabal-sha256":"cbcf3c36e1733a83fb8cda305bde2de18a2fbab53692e3301263964def430107"},"version":"5.1.3"}, + "reducers": {"dependencies":["array","base","bytestring","containers","fingertree","hashable","semigroupoids","semigroups","text","transformers","unordered-containers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/reducers-3.12.3/reducers-3.12.3.tar.gz"},"name":"reducers","pinned":{"url":["https://hackage.haskell.org/package/reducers-3.12.3/reducers-3.12.3.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/reducers-3.12.3.tar.gz"],"sha256":"7186733767405984c1eda96b18908f458b379f116a1589cd66f4319fe8458e27","cabal-sha256":"8ba7676deae4059bca9c162927c28fd5f3b767640f6be0c96e1d2a35793919ec"},"version":"3.12.3"}, + "reflection": {"dependencies":["base","template-haskell"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/reflection-2.1.6/reflection-2.1.6.tar.gz"},"name":"reflection","pinned":{"url":["https://hackage.haskell.org/package/reflection-2.1.6/reflection-2.1.6.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/reflection-2.1.6.tar.gz"],"sha256":"bf3e14917ebb329a53701a3cce0afe670f20037a0148dbfa5cbfa574ed6ba6cd","cabal-sha256":"044acb7caf41a9d8246878f849baed2dffbc4582d0a1e5c7c079d4287239e970"},"version":"2.1.6"}, + "resourcet": {"dependencies":["base","containers","exceptions","mtl","primitive","transformers","unliftio-core"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/resourcet-1.2.4.2/resourcet-1.2.4.2.tar.gz"},"name":"resourcet","pinned":{"url":["https://hackage.haskell.org/package/resourcet-1.2.4.2/resourcet-1.2.4.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/resourcet-1.2.4.2.tar.gz"],"sha256":"17f20842043ad199961a801b6efb1233b9098eb3537f8395844268f6a223eb87","cabal-sha256":"d57516781d1721f70aa0b9ec8ea9200ab02bf76349cb76d73ad57729302289cc"},"version":"1.2.4.2"}, + "safe-exceptions": {"dependencies":["base","deepseq","exceptions","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/safe-exceptions-0.1.7.0/safe-exceptions-0.1.7.0.tar.gz"},"name":"safe-exceptions","pinned":{"url":["https://hackage.haskell.org/package/safe-exceptions-0.1.7.0/safe-exceptions-0.1.7.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/safe-exceptions-0.1.7.0.tar.gz"],"sha256":"18cddc587b52b6faa0287fb6ad6c964d1562571ea2c8ff57a194dd54b5fba069","cabal-sha256":"416cad3470889813fbffd9dce83c7610268a4a52acadeb87a66e388e09a90275"},"version":"0.1.7.0"}, + "scientific": {"dependencies":["base","binary","bytestring","containers","deepseq","hashable","integer-gmp","integer-logarithms","primitive","text"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/scientific-0.3.6.2/scientific-0.3.6.2.tar.gz"},"name":"scientific","pinned":{"url":["https://hackage.haskell.org/package/scientific-0.3.6.2/scientific-0.3.6.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/scientific-0.3.6.2.tar.gz"],"sha256":"278d0afc87450254f8a76eab21b5583af63954efc9b74844a17a21a68013140f","cabal-sha256":"dd49abc76bd8e2b57e7a057dc2bb742a00527b4bf9350f9374be03b5934e55d8"},"version":"0.3.6.2"}, + "semigroupoids": {"dependencies":["Cabal","base","base-orphans","bifunctors","cabal-doctest","comonad","containers","contravariant","distributive","hashable","tagged","template-haskell","transformers","transformers-compat","unordered-containers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/semigroupoids-5.3.4/semigroupoids-5.3.4.tar.gz"},"name":"semigroupoids","pinned":{"url":["https://hackage.haskell.org/package/semigroupoids-5.3.4/semigroupoids-5.3.4.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/semigroupoids-5.3.4.tar.gz"],"sha256":"00d2e48973c3ab0a5d52616728ed63d0509454c8328148f698720014d7c58964","cabal-sha256":"3a6445a6105348d01c71aa608e1a8644ad78c01ec17dc70b87cf161cac92a100"},"version":"5.3.4"}, + "semigroups": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/semigroups-0.19.1/semigroups-0.19.1.tar.gz"},"name":"semigroups","pinned":{"url":["https://hackage.haskell.org/package/semigroups-0.19.1/semigroups-0.19.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/semigroups-0.19.1.tar.gz"],"sha256":"79e761e64b862564a3470d5d356cb6b060b14452d675859aed3b2d1e14646648","cabal-sha256":"ecae129621e0d2f77bef2f01e4458c2e0567ab6e1f39579c61d7cec8058ebb0e"},"version":"0.19.1"}, + "semilattices": {"dependencies":["base","containers","hashable","unordered-containers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/semilattices-0.0.0.4/semilattices-0.0.0.4.tar.gz"},"name":"semilattices","pinned":{"url":["https://hackage.haskell.org/package/semilattices-0.0.0.4/semilattices-0.0.0.4.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/semilattices-0.0.0.4.tar.gz"],"sha256":"f2a2a40ea0ef2e0f0aebcb64c74897c5060a74234988535266d98dd79f406191","cabal-sha256":"333707e460923711d1edbdd02ebe1c3957d4e0808eab9886747b52ee3e443639"},"version":"0.0.0.4"}, + "setenv": {"dependencies":["base","unix"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/setenv-0.1.1.3/setenv-0.1.1.3.tar.gz"},"name":"setenv","pinned":{"url":["https://hackage.haskell.org/package/setenv-0.1.1.3/setenv-0.1.1.3.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/setenv-0.1.1.3.tar.gz"],"sha256":"e358df39afc03d5a39e2ec650652d845c85c80cc98fe331654deafb4767ecb32","cabal-sha256":"c5916ac0d2a828473cd171261328a290afe0abd799db1ac8c310682fe778c45b"},"version":"0.1.1.3"}, + "smallcheck": {"dependencies":["base","logict","mtl","pretty"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/smallcheck-1.2.0/smallcheck-1.2.0.tar.gz"},"name":"smallcheck","pinned":{"url":["https://hackage.haskell.org/package/smallcheck-1.2.0/smallcheck-1.2.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/smallcheck-1.2.0.tar.gz"],"sha256":"d6c79227c6138b287ee8113d2cb95b15a6487d3abb7531309629c57b5e80d9f8","cabal-sha256":"8b431572e6a0503223e0e52014d41084c1b01f2aeea3bd499f6f529b3f6dfa89"},"version":"1.2.0"}, + "split": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/split-0.2.3.4/split-0.2.3.4.tar.gz"},"name":"split","pinned":{"url":["https://hackage.haskell.org/package/split-0.2.3.4/split-0.2.3.4.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/split-0.2.3.4.tar.gz"],"sha256":"271fe5104c9f40034aa9a1aad6269bcecc9454bc5a57c247e69e17de996c1f2a","cabal-sha256":"bad9bfc9e8e0aca4ac1f7b3a2767ee6b1c199d4a1b6960db5cc3d7674aee5d73"},"version":"0.2.3.4"}, + "splitmix": {"dependencies":["base","deepseq","random","time"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/splitmix-0.0.5/splitmix-0.0.5.tar.gz"},"name":"splitmix","pinned":{"url":["https://hackage.haskell.org/package/splitmix-0.0.5/splitmix-0.0.5.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/splitmix-0.0.5.tar.gz"],"sha256":"19f2987ba707c935656371776639588c3252cbb44b66cae16107b13e73b4cd52","cabal-sha256":"4a49661be63f5aea0e132e9ab51be918789bb4dceb4ab9b15b85ba9cbbef5999"},"version":"0.0.5"}, + "stm": {"dependencies":[],"location":{"type":"core"},"name":"stm","version":"2.5.0.0"}, + "stm-chans": {"dependencies":["Cabal","base","stm"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/stm-chans-3.0.0.4/stm-chans-3.0.0.4.tar.gz"},"name":"stm-chans","pinned":{"url":["https://hackage.haskell.org/package/stm-chans-3.0.0.4/stm-chans-3.0.0.4.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/stm-chans-3.0.0.4.tar.gz"],"sha256":"2344fc5bfa33d565bad7b009fc0e2c5a7a595060ba149c661f44419fc0d54738","cabal-sha256":"e2eef3cea5251628f7b2ad22c24a1e5d08b83c19be4bd886ab0d7fed58ef2a6d"},"version":"3.0.0.4"}, + "streaming": {"dependencies":["base","containers","ghc-prim","mmorph","mtl","transformers","transformers-base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/streaming-0.2.3.0/streaming-0.2.3.0.tar.gz"},"name":"streaming","pinned":{"url":["https://hackage.haskell.org/package/streaming-0.2.3.0/streaming-0.2.3.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/streaming-0.2.3.0.tar.gz"],"sha256":"b4008eee1fcee6a9f63d0d31eebefd6cf72731fab65d943831338c3961fafd62","cabal-sha256":"26638a19039b2f447fdbeb430de1f7084c68b6ccd21eff288f5e45cf83670e47"},"version":"0.2.3.0"}, + "strict": {"dependencies":["assoc","base","binary","bytestring","deepseq","ghc-prim","hashable","text","these","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/strict-0.4/strict-0.4.tar.gz"},"name":"strict","pinned":{"url":["https://hackage.haskell.org/package/strict-0.4/strict-0.4.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/strict-0.4.tar.gz"],"sha256":"279fee78690409ce0878beead4a620f0c0975dba215d6778f183699e3576453f","cabal-sha256":"1b50c7c9c636c3a1bbc7f8873b9be48f6ca0faca4df6eec6a014de6208fb1c0e"},"version":"0.4"}, + "syb": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/syb-0.7.1/syb-0.7.1.tar.gz"},"name":"syb","pinned":{"url":["https://hackage.haskell.org/package/syb-0.7.1/syb-0.7.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/syb-0.7.1.tar.gz"],"sha256":"e04a9c7ae48d9fe25e9b7a064f7122d39c710753544511e15df7a6e87fdfe700","cabal-sha256":"8d37b1e4d04a9aa8512dc6c2a06e02afc015a2fd3e735bdfeeacb5e2e853323c"},"version":"0.7.1"}, + "system-filepath": {"dependencies":["Cabal","base","bytestring","deepseq","text"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/system-filepath-0.4.14/system-filepath-0.4.14.tar.gz"},"name":"system-filepath","pinned":{"url":["https://hackage.haskell.org/package/system-filepath-0.4.14/system-filepath-0.4.14.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/system-filepath-0.4.14.tar.gz"],"sha256":"1656ce3c0d585650784ceb3f794748286e19fb635f557e7b29b0897f8956d993","cabal-sha256":"e8ce7d24d7008a825e5d03aa672950a0e8178ac54c3de7134f36c3a7e37694a2"},"version":"0.4.14"}, + "tagged": {"dependencies":["base","deepseq","template-haskell","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/tagged-0.8.6/tagged-0.8.6.tar.gz"},"name":"tagged","pinned":{"url":["https://hackage.haskell.org/package/tagged-0.8.6/tagged-0.8.6.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/tagged-0.8.6.tar.gz"],"sha256":"ad16def0884cf6f05ae1ae8e90192cf9d8d9673fa264b249499bd9e4fac791dd","cabal-sha256":"1f7ca84e6c88cbb923641c60041c9f56c34f1a889759cc073cdf10542b441ff9"},"version":"0.8.6"}, + "tasty": {"dependencies":["ansi-terminal","async","base","clock","containers","mtl","optparse-applicative","stm","tagged","unbounded-delays","unix","wcwidth"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/tasty-1.2.3/tasty-1.2.3.tar.gz"},"name":"tasty","pinned":{"url":["https://hackage.haskell.org/package/tasty-1.2.3/tasty-1.2.3.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/tasty-1.2.3.tar.gz"],"sha256":"8ca107abc12a476cfbc84f516f30a614c81be315903f910bc681137eb702f662","cabal-sha256":"bba67074e5326d57e8f53fc1dabcb6841daa4dc51b053506eb7f40a6f49a0497"},"version":"1.2.3"}, + "tasty-golden": {"dependencies":["async","base","bytestring","containers","deepseq","directory","filepath","mtl","optparse-applicative","process","tagged","tasty","temporary","text"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/tasty-golden-2.3.3.2/tasty-golden-2.3.3.2.tar.gz"},"name":"tasty-golden","pinned":{"url":["https://hackage.haskell.org/package/tasty-golden-2.3.3.2/tasty-golden-2.3.3.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/tasty-golden-2.3.3.2.tar.gz"],"sha256":"a936183e57da934c593d715ae0f122e36beaa935cea9fa19d21386730972b1a5","cabal-sha256":"2aa053398a20f9890702d910e6aade8971f9f1281817a72e74fc67eebe6cba4e"},"version":"2.3.3.2"}, + "tasty-hedgehog": {"dependencies":["base","hedgehog","tagged","tasty"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/tasty-hedgehog-1.0.0.2/tasty-hedgehog-1.0.0.2.tar.gz"},"name":"tasty-hedgehog","pinned":{"url":["https://hackage.haskell.org/package/tasty-hedgehog-1.0.0.2/tasty-hedgehog-1.0.0.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/tasty-hedgehog-1.0.0.2.tar.gz"],"sha256":"65538f7371f5ccf52c232a4723d931dd0278ea49bf478c2abe50c3bc4c1d5bef","cabal-sha256":"f491beff9461e849f5008e5a65b2c9d7f97365e170c7ae03ea170c90b6d6877c"},"version":"1.0.0.2"}, + "tasty-hspec": {"dependencies":["QuickCheck","base","hspec","hspec-core","tasty","tasty-quickcheck","tasty-smallcheck"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/tasty-hspec-1.1.5.1/tasty-hspec-1.1.5.1.tar.gz"},"name":"tasty-hspec","pinned":{"url":["https://hackage.haskell.org/package/tasty-hspec-1.1.5.1/tasty-hspec-1.1.5.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/tasty-hspec-1.1.5.1.tar.gz"],"sha256":"fe889ec0f7b3991c46a07d9ff9cf09608a73a18f434a7480d2a09c79e56f3345","cabal-sha256":"7f2e21d2f2a235401d661b93f53e374ab0456a7d2fe542871235905c2e804775"},"version":"1.1.5.1"}, + "tasty-hunit": {"dependencies":["base","call-stack","tasty"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/tasty-hunit-0.10.0.2/tasty-hunit-0.10.0.2.tar.gz"},"name":"tasty-hunit","pinned":{"url":["https://hackage.haskell.org/package/tasty-hunit-0.10.0.2/tasty-hunit-0.10.0.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/tasty-hunit-0.10.0.2.tar.gz"],"sha256":"4823c85efe15f36e1d71867aaa6cdcdff3ef39f97492321e9bb8a30c742f6ef7","cabal-sha256":"8e8bd5807cec650f5aebc5ada07b57620c863e69145e65249651c1b48d97bd70"},"version":"0.10.0.2"}, + "tasty-quickcheck": {"dependencies":["QuickCheck","base","optparse-applicative","random","tagged","tasty"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/tasty-quickcheck-0.10.1.1/tasty-quickcheck-0.10.1.1.tar.gz"},"name":"tasty-quickcheck","pinned":{"url":["https://hackage.haskell.org/package/tasty-quickcheck-0.10.1.1/tasty-quickcheck-0.10.1.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/tasty-quickcheck-0.10.1.1.tar.gz"],"sha256":"f8326014c975ad31cac9e3da55f4bc86d0b26139557987d58c1f9554a8f31f25","cabal-sha256":"b0a751bbe706447fd11cac21a7bbcf919631813aafaba3ce460a421348f6935c"},"version":"0.10.1.1"}, + "tasty-smallcheck": {"dependencies":["async","base","smallcheck","tagged","tasty"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/tasty-smallcheck-0.8.1/tasty-smallcheck-0.8.1.tar.gz"},"name":"tasty-smallcheck","pinned":{"url":["https://hackage.haskell.org/package/tasty-smallcheck-0.8.1/tasty-smallcheck-0.8.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/tasty-smallcheck-0.8.1.tar.gz"],"sha256":"314ba7acdb7793730e7677f553a72dd6a4a8f9a45ff3e931cd7d384affb3c6d8","cabal-sha256":"37728da9451a857c7410353267c995abea92f8f395fcabd9fe7bf732cc2e3e2e"},"version":"0.8.1"}, + "template-haskell": {"dependencies":[],"location":{"type":"core"},"name":"template-haskell","version":"2.16.0.0"}, + "temporary": {"dependencies":["base","directory","exceptions","filepath","random","transformers","unix"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/temporary-1.3/temporary-1.3.tar.gz"},"name":"temporary","pinned":{"url":["https://hackage.haskell.org/package/temporary-1.3/temporary-1.3.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/temporary-1.3.tar.gz"],"sha256":"8c442993694b5ffca823ce864af95bd2841fb5264ee511c61cf48cc71d879890","cabal-sha256":"3a66c136f700dbf42f3c5000ca93e80b26dead51e54322c83272b236c1ec8ef1"},"version":"1.3"}, + "terminal-size": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/terminal-size-0.3.2.1/terminal-size-0.3.2.1.tar.gz"},"name":"terminal-size","pinned":{"url":["https://hackage.haskell.org/package/terminal-size-0.3.2.1/terminal-size-0.3.2.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/terminal-size-0.3.2.1.tar.gz"],"sha256":"b5c23e964756bc13914649a67d63233f59ad0a813abe7cadeb2fc9d586dc9658","cabal-sha256":"7b2d8e0475a46961d07ddfb91dee618de70eff55d9ba0402ebeac1f9dcf9b18b"},"version":"0.3.2.1"}, + "terminfo": {"dependencies":[],"location":{"type":"core"},"name":"terminfo","version":"0.4.1.4"}, + "text": {"dependencies":[],"location":{"type":"core"},"name":"text","version":"1.2.3.2"}, + "tf-random": {"dependencies":["base","primitive","random","time"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/tf-random-0.5/tf-random-0.5.tar.gz"},"name":"tf-random","pinned":{"url":["https://hackage.haskell.org/package/tf-random-0.5/tf-random-0.5.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/tf-random-0.5.tar.gz"],"sha256":"2e30cec027b313c9e1794d326635d8fc5f79b6bf6e7580ab4b00186dadc88510","cabal-sha256":"14012837d0f0e18fdbbe3d56e67da8622ee5e20b180abce952dd50bd9f36b326"},"version":"0.5"}, + "th-abstraction": {"dependencies":["base","containers","ghc-prim","template-haskell"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/th-abstraction-0.3.2.0/th-abstraction-0.3.2.0.tar.gz"},"name":"th-abstraction","pinned":{"url":["https://hackage.haskell.org/package/th-abstraction-0.3.2.0/th-abstraction-0.3.2.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/th-abstraction-0.3.2.0.tar.gz"],"sha256":"36fef33ad0f34b9b8fb5552fe6187579a00d5f90d938e9bc24d382a9919feb79","cabal-sha256":"9b5b4e6e2bbff9b075ad7751ee98e2107090bd17b51d5442695b8990e4db6521"},"version":"0.3.2.0"}, + "these": {"dependencies":["assoc","base","binary","deepseq","hashable"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/these-1.1.1.1/these-1.1.1.1.tar.gz"},"name":"these","pinned":{"url":["https://hackage.haskell.org/package/these-1.1.1.1/these-1.1.1.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/these-1.1.1.1.tar.gz"],"sha256":"d798c9f56e17def441e8f51e54cc11afdb3e76c6a9d1e9ee154e9a78da0bf508","cabal-sha256":"3b63a3942f1da4ff97786221e3c654b969b54d570fef2cf4db97da4ea26a36cc"},"version":"1.1.1.1"}, + "time": {"dependencies":[],"location":{"type":"core"},"name":"time","version":"1.9.3"}, + "time-compat": {"dependencies":["base","base-orphans","deepseq","time"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/time-compat-1.9.3/time-compat-1.9.3.tar.gz"},"name":"time-compat","pinned":{"url":["https://hackage.haskell.org/package/time-compat-1.9.3/time-compat-1.9.3.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/time-compat-1.9.3.tar.gz"],"sha256":"bb6a44e667945ddca8ded93e041ee91986a4a19f59e149a5dd21fdb1bfa3db88","cabal-sha256":"a1a0a8b088be6a7be50c7c0bf156ce876151b1cbe14261736965e361c8073b2a"},"version":"1.9.3"}, + "transformers": {"dependencies":[],"location":{"type":"core"},"name":"transformers","version":"0.5.6.2"}, + "transformers-base": {"dependencies":["base","base-orphans","stm","transformers","transformers-compat"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/transformers-base-0.4.5.2/transformers-base-0.4.5.2.tar.gz"},"name":"transformers-base","pinned":{"url":["https://hackage.haskell.org/package/transformers-base-0.4.5.2/transformers-base-0.4.5.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/transformers-base-0.4.5.2.tar.gz"],"sha256":"d0c80c63fdce6a077dd8eda4f1ff289b85578703a3f1272e141d400fe23245e8","cabal-sha256":"e4d8155470905ba2942033a1537fc4cf91927d1c9b34693fd57ddf3bc02334af"},"version":"0.4.5.2"}, + "transformers-compat": {"dependencies":["base","ghc-prim","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/transformers-compat-0.6.5/transformers-compat-0.6.5.tar.gz"},"name":"transformers-compat","pinned":{"url":["https://hackage.haskell.org/package/transformers-compat-0.6.5/transformers-compat-0.6.5.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/transformers-compat-0.6.5.tar.gz"],"sha256":"da67cf11515da751b32a8ce6e96549f7268f7c435769ad19dc9766b69774620b","cabal-sha256":"50b00c57bf3fc379ec2477bfc261a2aebc983084488478adb29854f193af4696"},"version":"0.6.5"}, + "tree-sitter": {"dependencies":["base","bytestring","containers","directory","filepath","split","template-haskell","unordered-containers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/tree-sitter-0.9.0.2/tree-sitter-0.9.0.2.tar.gz"},"name":"tree-sitter","pinned":{"url":["https://hackage.haskell.org/package/tree-sitter-0.9.0.2/tree-sitter-0.9.0.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/tree-sitter-0.9.0.2.tar.gz"],"sha256":"ae9edfd5415e8f243b14010491d149add962cf47d0fab7a36844faf34f0587cb","cabal-sha256":"a8e9821575a1bf90455cc164619f5a59f6cc01d66a870944ece84a755b6450d9"},"version":"0.9.0.2"}, + "tree-sitter-go": {"dependencies":["base","tree-sitter"],"location":{"type":"vendored"},"name":"tree-sitter-go","version":"0.5.0.2"}, + "tree-sitter-java": {"dependencies":["base","tree-sitter"],"location":{"type":"vendored"},"name":"tree-sitter-java","version":"0.7.0.2"}, + "tree-sitter-json": {"dependencies":["base","tree-sitter"],"location":{"type":"vendored"},"name":"tree-sitter-json","version":"0.7.0.2"}, + "tree-sitter-php": {"dependencies":["base","tree-sitter"],"location":{"type":"vendored"},"name":"tree-sitter-php","version":"0.5.0.1"}, + "tree-sitter-python": {"dependencies":["base","tree-sitter"],"location":{"type":"vendored"},"name":"tree-sitter-python","version":"0.9.0.3"}, + "tree-sitter-ql": {"dependencies":["base","tree-sitter"],"location":{"type":"vendored"},"name":"tree-sitter-ql","version":"0.1.0.4"}, + "tree-sitter-ruby": {"dependencies":["base","tree-sitter"],"location":{"type":"vendored"},"name":"tree-sitter-ruby","version":"0.5.0.3"}, + "tree-sitter-rust": {"dependencies":["base","tree-sitter"],"location":{"type":"vendored"},"name":"tree-sitter-rust","version":"0.1.0.1"}, + "tree-sitter-tsx": {"dependencies":["base","tree-sitter"],"location":{"type":"vendored"},"name":"tree-sitter-tsx","version":"0.5.0.2"}, + "tree-sitter-typescript": {"dependencies":["base","tree-sitter"],"location":{"type":"vendored"},"name":"tree-sitter-typescript","version":"0.5.0.2"}, + "trifecta": {"dependencies":["Cabal","ansi-terminal","array","base","blaze-builder","blaze-html","blaze-markup","bytestring","cabal-doctest","charset","comonad","containers","deepseq","fingertree","ghc-prim","hashable","lens","mtl","parsers","prettyprinter","prettyprinter-ansi-terminal","profunctors","reducers","semigroups","transformers","unordered-containers","utf8-string"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/trifecta-2.1/trifecta-2.1.tar.gz"},"name":"trifecta","pinned":{"url":["https://hackage.haskell.org/package/trifecta-2.1/trifecta-2.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/trifecta-2.1.tar.gz"],"sha256":"7a25c6b07b6ca4c6465b9f888444183cd1eab54d2890272010150df7a911233b","cabal-sha256":"2a087ff4b1a6ea9e506a578a4161743b7bf1025e1ef4934a6d5d14f778e7609d"},"version":"2.1"}, + "type-equality": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/type-equality-1/type-equality-1.tar.gz"},"name":"type-equality","pinned":{"url":["https://hackage.haskell.org/package/type-equality-1/type-equality-1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/type-equality-1.tar.gz"],"sha256":"4728b502a211454ef682a10d7a3e817c22d06ba509df114bb267ef9d43a08ce8","cabal-sha256":"d36324583fbafc5698c3f898ccf7cf041cbf42435fc2559c28e8f77682739a8e"},"version":"1"}, + "unbounded-delays": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/unbounded-delays-0.1.1.0/unbounded-delays-0.1.1.0.tar.gz"},"name":"unbounded-delays","pinned":{"url":["https://hackage.haskell.org/package/unbounded-delays-0.1.1.0/unbounded-delays-0.1.1.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/unbounded-delays-0.1.1.0.tar.gz"],"sha256":"8aa7f7d10a8d0073518804db76c3ef4c313359994ef175122341b0bce07329c7","cabal-sha256":"8e57c6ffb72ed605b85c69d3b3a7ebbbbb70bfb5e9b9816309f1f733240838f2"},"version":"0.1.1.0"}, + "unix": {"dependencies":[],"location":{"type":"core"},"name":"unix","version":"2.7.2.2"}, + "unliftio-core": {"dependencies":["base","transformers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/unliftio-core-0.2.0.1/unliftio-core-0.2.0.1.tar.gz"},"name":"unliftio-core","pinned":{"url":["https://hackage.haskell.org/package/unliftio-core-0.2.0.1/unliftio-core-0.2.0.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/unliftio-core-0.2.0.1.tar.gz"],"sha256":"919f0d1297ea2f5373118553c1df2a9405d8b9e31a8307e829da67d4953c299a","cabal-sha256":"9b3e44ea9aacacbfc35b3b54015af450091916ac3618a41868ebf6546977659a"},"version":"0.2.0.1"}, + "unordered-containers": {"dependencies":["base","deepseq","hashable"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/unordered-containers-0.2.12.0/unordered-containers-0.2.12.0.tar.gz"},"name":"unordered-containers","pinned":{"url":["https://hackage.haskell.org/package/unordered-containers-0.2.12.0/unordered-containers-0.2.12.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/unordered-containers-0.2.12.0.tar.gz"],"sha256":"481dab4ea59f10feaa7d65ecb8ae5d136d130bdbacf2356d414b3926d638bd20","cabal-sha256":"164a47850c4536c8b7cc12f74578588cf3b6c331f04e671306d2dcb806284bb1"},"version":"0.2.12.0"}, + "utf8-string": {"dependencies":["base","bytestring"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/utf8-string-1.0.1.1/utf8-string-1.0.1.1.tar.gz"},"name":"utf8-string","pinned":{"url":["https://hackage.haskell.org/package/utf8-string-1.0.1.1/utf8-string-1.0.1.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/utf8-string-1.0.1.1.tar.gz"],"sha256":"fb0b9e3acbe0605bcd1c63e51f290a7bbbe6628dfa3294ff453e4235fbaef140","cabal-sha256":"68cc6cf665e7212334a51b63d6936daeaca023b2cfe8637d130acfe95f91700b"},"version":"1.0.1.1"}, + "utility-ht": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/utility-ht-0.0.15/utility-ht-0.0.15.tar.gz"},"name":"utility-ht","pinned":{"url":["https://hackage.haskell.org/package/utility-ht-0.0.15/utility-ht-0.0.15.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/utility-ht-0.0.15.tar.gz"],"sha256":"845c79cdf0925997ec190a761460b50a9577cd290567b9252e31d075cd6f0f91","cabal-sha256":"940b35a19ce392c4fd86d96fecd0efb3c3b8a598af31fe5aca7e9f3b172e284b"},"version":"0.0.15"}, + "uuid-types": {"dependencies":["base","binary","bytestring","deepseq","hashable","random","text"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/uuid-types-1.0.3/uuid-types-1.0.3.tar.gz"},"name":"uuid-types","pinned":{"url":["https://hackage.haskell.org/package/uuid-types-1.0.3/uuid-types-1.0.3.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/uuid-types-1.0.3.tar.gz"],"sha256":"9276517ab24a9b06f39d6e3c33c6c2b4ace1fc2126dbc1cd9806866a6551b3fd","cabal-sha256":"4e27aa142cb37f391e78f36d13139ba0a907675429a21e8f2cfae9223202dd7e"},"version":"1.0.3"}, + "vector": {"dependencies":["base","deepseq","ghc-prim","primitive"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/vector-0.12.1.2/vector-0.12.1.2.tar.gz"},"name":"vector","pinned":{"url":["https://hackage.haskell.org/package/vector-0.12.1.2/vector-0.12.1.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/vector-0.12.1.2.tar.gz"],"sha256":"3b6e27683f6f20b37b8a35d0fab9e34b57dad72ac64cb16f428726780d4011bd","cabal-sha256":"9291bc581f36e51d5bda9fce57cb980fbec3dd292996896f285fef39eb80a9a0"},"version":"0.12.1.2"}, + "vector-algorithms": {"dependencies":["base","bytestring","primitive","vector"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/vector-algorithms-0.8.0.3/vector-algorithms-0.8.0.3.tar.gz"},"name":"vector-algorithms","pinned":{"url":["https://hackage.haskell.org/package/vector-algorithms-0.8.0.3/vector-algorithms-0.8.0.3.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/vector-algorithms-0.8.0.3.tar.gz"],"sha256":"1ac41f014663fd318b34a76b80e6d8f32f1629ef4996ae7304f31597a0d07387","cabal-sha256":"477ef5ac82fdd28a39536ed0a767faec3425802827abee485be31db5bc6f5e90"},"version":"0.8.0.3"}, + "vector-builder": {"dependencies":["base","base-prelude","semigroups","vector"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/vector-builder-0.3.8/vector-builder-0.3.8.tar.gz"},"name":"vector-builder","pinned":{"url":["https://hackage.haskell.org/package/vector-builder-0.3.8/vector-builder-0.3.8.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/vector-builder-0.3.8.tar.gz"],"sha256":"a39afd7ac50c42de77660d235017be38ef50f792b6a98212accf687445a18073","cabal-sha256":"184ed15a76025943ccaf556887cf60bca21359e3ccf4d7735def394ab76b76f1"},"version":"0.3.8"}, + "void": {"dependencies":["base"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/void-0.7.3/void-0.7.3.tar.gz"},"name":"void","pinned":{"url":["https://hackage.haskell.org/package/void-0.7.3/void-0.7.3.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/void-0.7.3.tar.gz"],"sha256":"53af758ddc37dc63981671e503438d02c6f64a2d8744e9bec557a894431f7317","cabal-sha256":"13d30f62fcdf065e595d679d4ac8b4b0c1bb1a1b73db7b5b5a8f857cb5c8a546"},"version":"0.7.3"}, + "wcwidth": {"dependencies":["base","containers"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/wcwidth-0.0.2/wcwidth-0.0.2.tar.gz"},"name":"wcwidth","pinned":{"url":["https://hackage.haskell.org/package/wcwidth-0.0.2/wcwidth-0.0.2.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/wcwidth-0.0.2.tar.gz"],"sha256":"ffc68736a3bbde3e8157710f29f4a99c0ca593c41194579c54a92c62f6c12ed8","cabal-sha256":"77531eb6683c505c22ab3fa11bbc43d3ce1e7dac21401d4d5a19677d348bb5f3"},"version":"0.0.2"}, + "wl-pprint-annotated": {"dependencies":["base","containers","deepseq","text"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/wl-pprint-annotated-0.1.0.1/wl-pprint-annotated-0.1.0.1.tar.gz"},"name":"wl-pprint-annotated","pinned":{"url":["https://hackage.haskell.org/package/wl-pprint-annotated-0.1.0.1/wl-pprint-annotated-0.1.0.1.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/wl-pprint-annotated-0.1.0.1.tar.gz"],"sha256":"6b662b244b2e318a2923dc7057d707369a29ea4a0e721b4710eac7239cc727af","cabal-sha256":"0b8fd3649bfe72d155a4379e4c88b7ef00408f6f4973f63333787fd2e1b5ba1e"},"version":"0.1.0.1"}, + "yaml": {"dependencies":["aeson","attoparsec","base","bytestring","conduit","containers","directory","filepath","libyaml","mtl","resourcet","scientific","template-haskell","text","transformers","unordered-containers","vector"],"location":{"type":"hackage","url":"https://hackage.haskell.org/package/yaml-0.11.4.0/yaml-0.11.4.0.tar.gz"},"name":"yaml","pinned":{"url":["https://hackage.haskell.org/package/yaml-0.11.4.0/yaml-0.11.4.0.tar.gz","https://s3.amazonaws.com/hackage.fpcomplete.com/package/yaml-0.11.4.0.tar.gz"],"sha256":"da4ec8469bb5cc43d131ffee90e89a430a65baad4caa611e91cd9b684168c96c","cabal-sha256":"2583bfc6ea297290fa1bae47242627898896e2647aaaf7662d6d7df9a2dac0b2"},"version":"0.11.4.0"} + } +} \ No newline at end of file From 802632b823519309a95eaf5627f355b3827a72f1 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 16 Sep 2020 19:49:38 -0400 Subject: [PATCH 28/30] we need 8.8.3 for downstream stuff --- .github/workflows/haskell.yml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.github/workflows/haskell.yml b/.github/workflows/haskell.yml index 2eb08a236..763305485 100644 --- a/.github/workflows/haskell.yml +++ b/.github/workflows/haskell.yml @@ -14,7 +14,7 @@ jobs: runs-on: ubuntu-latest strategy: matrix: - ghc: ["8.10.1"] + ghc: ["8.8.3", "8.10.1"] cabal: ["3.2.0.0"] steps: From 98c5bb5b2c2d3de334d3bbd0388deb97284995c7 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Wed, 16 Sep 2020 19:59:30 -0400 Subject: [PATCH 29/30] try caching less aggressively --- .github/workflows/bazel.yml | 1 - 1 file changed, 1 deletion(-) diff --git a/.github/workflows/bazel.yml b/.github/workflows/bazel.yml index 698764d75..0185d2b47 100644 --- a/.github/workflows/bazel.yml +++ b/.github/workflows/bazel.yml @@ -24,7 +24,6 @@ jobs: path: | .bazel-cache bin - /home/runner/.cache key: ${{ runner.os }}-bazel-${{ github.run_id }} restore-keys: | ${{ runner.os }}-bazel- From f1e22be19208af2e1fe7724e2eaa0ea679bbd18c Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Thu, 17 Sep 2020 11:30:39 -0400 Subject: [PATCH 30/30] wait, I'm foolish: downstream uses 8.10.1, so just that for CI is fine. --- .github/workflows/haskell.yml | 2 +- README.md | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/.github/workflows/haskell.yml b/.github/workflows/haskell.yml index 763305485..2eb08a236 100644 --- a/.github/workflows/haskell.yml +++ b/.github/workflows/haskell.yml @@ -14,7 +14,7 @@ jobs: runs-on: ubuntu-latest strategy: matrix: - ghc: ["8.8.3", "8.10.1"] + ghc: ["8.10.1"] cabal: ["3.2.0.0"] steps: diff --git a/README.md b/README.md index 6b4325913..c468f6966 100644 --- a/README.md +++ b/README.md @@ -58,7 +58,7 @@ Available options: ## Development -`semantic` requires at least GHC 8.8.3 and Cabal 3.0. We strongly recommend using [`ghcup`][ghcup] to sandbox GHC versions, as GHC packages installed through your OS's package manager may not install statically-linked versions of the GHC boot libraries. `semantic` currently builds only on Unix systems; users of other operating systems may wish to use the [Docker images](https://github.com/github/semantic/packages/11609). +`semantic` requires at least GHC 8.10.1 and Cabal 3.0. We strongly recommend using [`ghcup`][ghcup] to sandbox GHC versions, as GHC packages installed through your OS's package manager may not install statically-linked versions of the GHC boot libraries. `semantic` currently builds only on Unix systems; users of other operating systems may wish to use the [Docker images](https://github.com/github/semantic/packages/11609). We use `cabal's` [Nix-style local builds][nix] for development. To get started quickly: