Merge branch 'master' into abstract-abstract-semantics

.licenses/semantic/cabal/wl-pprint.txt

@@ -0,0 +1,33 @@
+---
+type: cabal
+name: wl-pprint
+version: 1.2.1
+summary: The Wadler/Leijen Pretty Printer
+homepage:
+license: bsd-2-clause
+---
+Copyright 2000, Daan Leijen. All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are
+met:
+
+  * Redistributions of source code must retain the above copyright
+    notice, this list of conditions and the following disclaimer.
+
+  * Redistributions in binary form must reproduce the above copyright
+    notice, this list of conditions and the following disclaimer in
+    the documentation and/or other materials provided with the
+    distribution.
+
+This software is provided by the copyright holders "as is" and any
+express or implied warranties, including, but not limited to, the
+implied warranties of merchantability and fitness for a particular
+purpose are disclaimed. In no event shall the copyright holders be
+liable for any direct, indirect, incidental, special, exemplary, or
+consequential damages (including, but not limited to, procurement of
+substitute goods or services; loss of use, data, or profits; or
+business interruption) however caused and on any theory of liability,
+whether in contract, strict liability, or tort (including negligence
+or otherwise) arising in any way out of the use of this software, even
+if advised of the possibility of such damage.

proto/code_analysis.proto

@@ -1,10 +1,16 @@
 syntax = "proto3";
+
+package github.semantic;
+
+import "ruby.proto";
+import "json.proto";
+import "typescript.proto";
 import "types.proto";
 import "error_details.proto";
 
 option java_package = "com.github.semantic.analysis";
 option go_package = "github.com/semantic/analysis/;analysis";
-package github.semantic;
+
 
 // Semantic's CodeAnalysis service provides endpoints for parsing, analyzing, and
 // comparing source code.
@@ -12,8 +18,7 @@ service CodeAnalysis {
   // Parsing
   //
   // Parse source code blobs and return abstract syntax trees.
-  rpc ParseTree(ParseTreeRequest) returns (ParseTreeResponse);
+  rpc ParseTree (ParseTreeRequest) returns (ParseTreeResponse);
-  rpc ParseRaw (ParseTreeRequest) returns (RawParseTreeResponse);
 
   // Diffing
   //
@@ -38,12 +43,23 @@ message ParseTreeRequest {
 }
 
 message ParseTreeResponse {
-  bytes json_tree = 1;
+  oneof response_type {
-  repeated ParseError errors = 2;
+    RubyResponse ruby = 1;
+    JSONResponse json = 2;
+    TypeScriptResponse typescript = 3;
+  }
 }
 
-message RawParseTreeResponse {
+message RubyResponse {
-  repeated Term terms = 1;
+  repeated ruby.RubyTerm terms = 1;
+}
+
+message JSONResponse {
+  repeated json.JSONTerm terms = 1;
+}
+
+message TypeScriptResponse {
+  repeated typescript.TypeScriptTerm terms = 1;
 }
 
 message SummarizeDiffRequest  {

proto/json.proto

@@ -0,0 +1,59 @@
+syntax = "proto3";
+
+package github.semantic;
+
+import "types.proto";
+
+option java_package = "com.github.semantic.json";
+option go_package = "github.com/semantic/json;json";
+
+message JSONTerm {
+  JSONSyntax syntax = 1;
+}
+
+message JSONSyntax {
+  oneof syntax {
+    Null null = 1;
+    Array array = 2;
+    Boolean boolean = 3;
+    Hash hash = 4;
+    Float float = 5;
+    KeyValue keyValue = 6;
+    TextElement textElement = 7;
+    Error error = 8;
+  }
+}
+
+message Null { }
+
+message Array {
+  repeated JSONTerm arrayElements = 1;
+}
+
+message Boolean {
+  bool booleanContent = 1;
+}
+
+message Hash {
+  repeated JSONTerm hashElements = 1;
+}
+
+message Float {
+  string floatContent = 1;
+}
+
+message KeyValue {
+  JSONTerm key = 1;
+  JSONTerm value = 2;
+}
+
+message TextElement {
+  string textElementContent = 1;
+}
+
+message Error {
+  repeated ErrorSite errorCallStack = 1;
+  repeated string errorExpected = 2;
+  string errorActual = 3;
+  repeated JSONTerm errorChildren = 4;
+}

proto/ruby.proto

@@ -0,0 +1,480 @@
+syntax = "proto3";
+
+package github.semantic;
+
+import "types.proto";
+
+option java_package = "com.github.semantic.ruby";
+option go_package = "github.com/semantic/ruby;ruby";
+
+message RubyTerm {
+  RubySyntax syntax = 1;
+}
+
+message Comment {
+  string commentContent = 1;
+}
+
+message Function {
+  repeated RubyTerm functionContext = 1;
+  RubyTerm functionName = 2;
+  repeated RubyTerm functionParameters = 3;
+  RubyTerm functionBody = 4;
+}
+
+message Method {
+  repeated RubyTerm methodContext = 1;
+  RubyTerm methodReceiver = 2;
+  RubyTerm methodName = 3;
+  repeated RubyTerm methodParameters = 4;
+  RubyTerm methodBody = 5;
+}
+
+message File { }
+
+message Line { }
+
+message Error {
+  repeated ErrorSite errorCallStack = 1;
+  repeated string errorExpected = 2;
+  string errorActual = 3;
+  repeated RubyTerm errorChildren = 4;
+}
+
+message And {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message BAnd {
+  RubyTerm left = 1;
+  RubyTerm right = 2;
+}
+
+message BOr {
+  RubyTerm left = 1;
+  RubyTerm right = 2;
+}
+
+message BXOr {
+  RubyTerm left = 1;
+  RubyTerm right = 2;
+}
+
+message Call {
+  repeated RubyTerm callContext = 1;
+  RubyTerm callFunction = 2;
+  repeated RubyTerm callParams = 3;
+  RubyTerm callBlock = 4;
+}
+
+message Comparison {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message Complement {
+  RubyTerm value = 1;
+}
+
+message DividedBy {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message Enumeration {
+  RubyTerm enumerationStart = 1;
+  RubyTerm enumerationEnd = 2;
+  RubyTerm enumerationStep = 3;
+}
+
+message Equal {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message FloorDivision {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message GreaterThan {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message GreaterThanEqual {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message LShift {
+  RubyTerm left = 1;
+  RubyTerm right = 2;
+}
+
+message LessThan {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message LessThanEqual {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message Matches {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message Member {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message MemberAccess {
+  RubyTerm lhs = 1;
+  bytes rhs = 2;
+}
+
+message Minus {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message Modulo {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message Negate {
+  RubyTerm term = 1;
+}
+
+message Not {
+  RubyTerm term = 1;
+}
+
+message NotMatches {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message Or {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message Plus {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message Power {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message RShift {
+  RubyTerm left = 1;
+  RubyTerm right = 2;
+}
+
+message ScopeResolution {
+  repeated RubyTerm scopes = 1;
+}
+
+message StrictEqual {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message Subscript {
+  RubyTerm lhs = 1;
+  repeated RubyTerm rhs = 2;
+}
+
+message Times {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message XOr {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message Array {
+  repeated RubyTerm arrayElements = 1;
+}
+
+message Boolean {
+  bool booleanContent = 1;
+}
+
+message Complex {
+  string value = 1;
+}
+
+message Float {
+  string floatContent = 1;
+}
+
+message Hash {
+  repeated RubyTerm hashElements = 1;
+}
+
+message Integer {
+  string integerContent = 1;
+}
+
+message KeyValue {
+  RubyTerm key = 1;
+  RubyTerm value = 2;
+}
+
+message Null { }
+
+message Rational {
+  string value = 1;
+}
+
+message Regex {
+  string regexContent = 1;
+}
+
+message String {
+  repeated RubyTerm stringElements = 1;
+}
+
+message Symbol {
+  string symbolContent = 1;
+}
+
+message TextElement {
+  string textElementContent = 1;
+}
+
+message Class {
+  RubyTerm classIdentifier = 1;
+  repeated RubyTerm classSuperClass = 2;
+  RubyTerm classBody = 3;
+}
+
+message Load {
+  RubyTerm loadPath = 1;
+  repeated RubyTerm loadWrap = 2;
+}
+
+message LowPrecedenceAnd {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message LowPrecedenceOr {
+  RubyTerm lhs = 1;
+  RubyTerm rhs = 2;
+}
+
+message Module {
+  RubyTerm moduleIdentifier = 1;
+  repeated RubyTerm moduleStatements = 2;
+}
+
+message Require {
+  bool requireRelative = 1;
+  RubyTerm requirePath = 2;
+}
+
+message Send {
+  repeated RubyTerm sendReceiver = 1;
+  repeated RubyTerm sendSelector = 2;
+  repeated RubyTerm sendArgs = 3;
+  repeated RubyTerm sendBlock = 4;
+}
+
+message Assignment {
+  repeated RubyTerm assignmentContext = 1;
+  RubyTerm assignmentTarget = 2;
+  RubyTerm assignmentValue = 3;
+}
+
+message Break {
+  RubyTerm term = 1;
+}
+
+message Catch {
+  RubyTerm catchException = 1;
+  RubyTerm catchBody = 2;
+}
+
+message Continue {
+  RubyTerm term = 1;
+}
+
+message Else {
+  RubyTerm elseCondition = 1;
+  RubyTerm elseBody = 2;
+}
+
+message Finally {
+  RubyTerm term = 1;
+}
+
+message ForEach {
+  RubyTerm forEachBinding = 1;
+  RubyTerm forEachSubject = 2;
+  RubyTerm forEachBody = 3;
+}
+
+message If {
+  RubyTerm ifCondition = 1;
+  RubyTerm ifThenBody = 2;
+  RubyTerm ifElseBody = 3;
+}
+
+message Match {
+  RubyTerm matchSubject = 1;
+  RubyTerm matchPatterns = 2;
+}
+
+message Pattern {
+  RubyTerm value = 1;
+  RubyTerm patternBody = 2;
+}
+
+message Retry {
+  RubyTerm term = 1;
+}
+
+message Return {
+  RubyTerm term = 1;
+}
+
+message ScopeEntry {
+  repeated RubyTerm terms = 1;
+}
+
+message ScopeExit {
+  repeated RubyTerm terms = 1;
+}
+
+message Statements {
+  repeated RubyTerm statements = 1;
+}
+
+message Try {
+  RubyTerm tryBody = 1;
+  repeated RubyTerm tryCatch = 2;
+}
+
+message While {
+  RubyTerm whileCondition = 1;
+  RubyTerm whileBody = 2;
+}
+
+message Yield {
+  RubyTerm term = 1;
+}
+
+message RubySyntax {
+  oneof syntax {
+    Comment comment = 1;
+    Function function = 2;
+    Boolean boolean = 3;
+    Method method = 4;
+    File file = 5;
+    Line line = 6;
+    Plus plus = 7;
+    Minus minus = 8;
+    Times times = 9;
+    DividedBy dividedBy = 10;
+    Modulo modulo = 11;
+    Power power = 12;
+    Negate negate = 13;
+    FloorDivision floorDivision = 14;
+    BAnd bAnd = 15;
+    BOr bOr = 16;
+    BXOr bXOr = 17;
+    LShift lShift = 18;
+    RShift rShift = 19;
+    Complement complement = 20;
+    And and = 21;
+    Not not = 22;
+    Or or = 23;
+    XOr xOr = 24;
+    Call call = 25;
+    LessThan lessThan = 26;
+    LessThanEqual lessThanEqual = 27;
+    GreaterThan greaterThan = 28;
+    GreaterThanEqual greaterThanEqual = 29;
+    Equal equal = 30;
+    StrictEqual strictEqual = 31;
+    Comparison comparison = 32;
+    Enumeration enumeration = 33;
+    Matches matches = 34;
+    NotMatches notMatches = 35;
+    MemberAccess memberAccess = 36;
+    ScopeResolution scopeResolution = 37;
+    Subscript subscript = 38;
+    Member member = 39;
+    Array array = 40;
+    Complex complex = 41;
+    Float float = 42;
+    Hash hash = 43;
+    Integer integer = 44;
+    KeyValue keyValue = 45;
+    Null null = 46;
+    Rational rational = 47;
+    Regex regex = 48;
+    String string = 49;
+    Symbol symbol = 50;
+    TextElement textElement = 51;
+    Assignment assignment = 52;
+    Break break = 53;
+    Catch catch = 54;
+    Continue continue = 55;
+    Else else = 56;
+    Finally finally = 57;
+    ForEach forEach = 58;
+    If if = 59;
+    Match match = 60;
+    Pattern pattern = 61;
+    Retry retry = 62;
+    Return return = 63;
+    ScopeEntry scopeEntry = 64;
+    ScopeExit scopeExit = 65;
+    Statements statements = 66;
+    Try try = 67;
+    While while = 68;
+    Yield yield = 69;
+    Context context = 70;
+    Empty empty = 71;
+    Error error = 72;
+    Identifier identifier = 73;
+    Class class = 74;
+    Load load = 75;
+    LowPrecedenceAnd lowPrecedenceAnd = 76;
+    LowPrecedenceOr lowPrecedenceOr = 77;
+    Module module = 78;
+    Require require = 79;
+    Send send = 80;
+    List list = 81;
+  }
+}
+
+message Context {
+  repeated RubyTerm contextTerms = 1;
+  RubyTerm contextSubject = 2;
+}
+
+message Empty { }
+
+message Identifier {
+  bytes name = 1;
+}
+
+message List {
+  repeated RubyTerm listContent = 1;
+}

proto/types.proto

@@ -1,8 +1,12 @@
 syntax = "proto3";
+
 package github.semantic;
+
 option java_package = "com.github.semantic.types";
 option go_package = "github.com/semantic/types;types";
-enum Language {UNKNOWN = 0;
+
+enum Language {
+  UNKNOWN = 0;
   GO = 1;
   HASKELL = 2;
   JAVA = 3;
@@ -13,355 +17,65 @@ enum Language {UNKNOWN = 0;
   PYTHON = 8;
   RUBY = 9;
   TYPESCRIPT = 10;
-               PHP = 11;}
+  PHP = 11;
-enum VertexType {PACKAGE = 0;
+}
+
+enum VertexType {
+  PACKAGE = 0;
   MODULE = 1;
-                 VARIABLE = 2;}
+  VARIABLE = 2;
-message Term { Syntax syntax = 1;
+}
-             }
+
-message Blob { bytes blobSource = 1;
+message Blob {
+  bytes blobSource = 1;
   string blobPath = 2;
   Language blobLanguage = 3;
-             }
+}
-message Edge { uint64 edgeFrom = 1;
+
+message Edge {
+  uint64 edgeFrom = 1;
   uint64 edgeTo = 2;
-             }
+}
-message ErrorSite { string errorMessage = 1;
+
+message ErrorSite {
+  string errorMessage = 1;
   SrcLoc errorLocation = 2;
-                  }
+}
-message ImportGraph { repeated Vertex graphVertices = 1;
+
+message ImportGraph {
+  repeated Vertex graphVertices = 1;
   repeated Edge graphEdges = 2;
-                    }
+}
-message Pos { int64 posLine = 1;
+
+message Pos {
+  int64 posLine = 1;
   int64 posColumn = 2;
-            }
+}
-message Project { string projectRootDir = 1;
+
+message Project {
+  string projectRootDir = 1;
   repeated Blob projectBlobs = 2;
   Language projectLanguage = 3;
-                  repeated string projectExcludeDirs = 4 [packed = false];
+  repeated string projectExcludeDirs = 4[packed = false] ;
-                }
+}
-message Span { Pos spanStart = 1;
+
+message Span {
+  Pos spanStart = 1;
   Pos spanEnd = 2;
-             }
+}
-message SrcLoc { string srcLocPackage = 1;
+
+message SrcLoc {
+  string srcLocPackage = 1;
   string srcLocModule = 2;
   string srcLocFile = 3;
   int64 srcLocStartLine = 4;
   int64 srcLocStartCol = 5;
   int64 srcLocEndLine = 6;
   int64 srcLocEndCol = 7;
-               }
+}
-message Vertex { VertexType vertexType = 1;
+
+message Vertex {
+  VertexType vertexType = 1;
   string vertexContents = 2;
   uint64 vertexTag = 3;
-               }
+}
-message Comment { string commentContent = 1;
-                }
-message Function { repeated Term functionContext = 1;
-                   Term functionName = 2;
-                   repeated Term functionParameters = 3;
-                   Term functionBody = 4;
-                 }
-message Method { repeated Term methodContext = 1;
-                 Term methodReceiver = 2;
-                 Term methodName = 3;
-                 repeated Term methodParameters = 4;
-                 Term methodBody = 5;
-               }
-message File {
-             }
-message Line {
-             }
-message Error { repeated ErrorSite errorCallStack = 1;
-                repeated string errorExpected = 2;
-                string errorActual = 3;
-                repeated Term errorChildren = 4;
-              }
-message And { Term lhs = 1;
-              Term rhs = 2;
-            }
-message BAnd { Term left = 1;
-               Term right = 2;
-             }
-message BOr { Term left = 1;
-              Term right = 2;
-            }
-message BXOr { Term left = 1;
-               Term right = 2;
-             }
-message Call { repeated Term callContext = 1;
-               Term callFunction = 2;
-               repeated Term callParams = 3;
-               Term callBlock = 4;
-             }
-message Comparison { Term lhs = 1;
-                     Term rhs = 2;
-                   }
-message Complement { Term value = 1;
-                   }
-message DividedBy { Term lhs = 1;
-                    Term rhs = 2;
-                  }
-message Enumeration { Term enumerationStart = 1;
-                      Term enumerationEnd = 2;
-                      Term enumerationStep = 3;
-                    }
-message Equal { Term lhs = 1;
-                Term rhs = 2;
-              }
-message FloorDivision { Term lhs = 1;
-                        Term rhs = 2;
-                      }
-message GreaterThan { Term lhs = 1;
-                      Term rhs = 2;
-                    }
-message GreaterThanEqual { Term lhs = 1;
-                           Term rhs = 2;
-                         }
-message LShift { Term left = 1;
-                 Term right = 2;
-               }
-message LessThan { Term lhs = 1;
-                   Term rhs = 2;
-                 }
-message LessThanEqual { Term lhs = 1;
-                        Term rhs = 2;
-                      }
-message Matches { Term lhs = 1;
-                  Term rhs = 2;
-                }
-message Member { Term lhs = 1;
-                 Term rhs = 2;
-               }
-message MemberAccess { Term lhs = 1;
-                       bytes rhs = 2;
-                     }
-message Minus { Term lhs = 1;
-                Term rhs = 2;
-              }
-message Modulo { Term lhs = 1;
-                 Term rhs = 2;
-               }
-message Negate { Term term = 1;
-               }
-message Not { Term term = 1;
-            }
-message NotMatches { Term lhs = 1;
-                     Term rhs = 2;
-                   }
-message Or { Term lhs = 1;
-             Term rhs = 2;
-           }
-message Plus { Term lhs = 1;
-               Term rhs = 2;
-             }
-message Power { Term lhs = 1;
-                Term rhs = 2;
-              }
-message RShift { Term left = 1;
-                 Term right = 2;
-               }
-message ScopeResolution { repeated Term scopes = 1;
-                        }
-message StrictEqual { Term lhs = 1;
-                      Term rhs = 2;
-                    }
-message Subscript { Term lhs = 1;
-                    repeated Term rhs = 2;
-                  }
-message Times { Term lhs = 1;
-                Term rhs = 2;
-              }
-message XOr { Term lhs = 1;
-              Term rhs = 2;
-            }
-message Array { repeated Term arrayElements = 1;
-              }
-message Boolean { bool booleanContent = 1;
-                }
-message Complex { string value = 1;
-                }
-message Float { string floatContent = 1;
-              }
-message Hash { repeated Term hashElements = 1;
-             }
-message Integer { string integerContent = 1;
-                }
-message KeyValue { Term key = 1;
-                   Term value = 2;
-                 }
-message Null {
-             }
-message Rational { string value = 1;
-                 }
-message Regex { string regexContent = 1;
-              }
-message String { repeated Term stringElements = 1;
-               }
-message Symbol { string symbolContent = 1;
-               }
-message TextElement { string textElementContent = 1;
-                    }
-message Class { Term classIdentifier = 1;
-                repeated Term classSuperClass = 2;
-                Term classBody = 3;
-              }
-message Load { Term loadPath = 1;
-               repeated Term loadWrap = 2;
-             }
-message LowPrecedenceAnd { Term lhs = 1;
-                           Term rhs = 2;
-                         }
-message LowPrecedenceOr { Term lhs = 1;
-                          Term rhs = 2;
-                        }
-message Module { Term moduleIdentifier = 1;
-                 repeated Term moduleStatements = 2;
-               }
-message Require { bool requireRelative = 1;
-                  Term requirePath = 2;
-                }
-message Send { repeated Term sendReceiver = 1;
-               repeated Term sendSelector = 2;
-               repeated Term sendArgs = 3;
-               repeated Term sendBlock = 4;
-             }
-message Assignment { repeated Term assignmentContext = 1;
-                     Term assignmentTarget = 2;
-                     Term assignmentValue = 3;
-                   }
-message Break { Term term = 1;
-              }
-message Catch { Term catchException = 1;
-                Term catchBody = 2;
-              }
-message Continue { Term term = 1;
-                 }
-message Else { Term elseCondition = 1;
-               Term elseBody = 2;
-             }
-message Finally { Term term = 1;
-                }
-message ForEach { Term forEachBinding = 1;
-                  Term forEachSubject = 2;
-                  Term forEachBody = 3;
-                }
-message If { Term ifCondition = 1;
-             Term ifThenBody = 2;
-             Term ifElseBody = 3;
-           }
-message Match { Term matchSubject = 1;
-                Term matchPatterns = 2;
-              }
-message Pattern { Term value = 1;
-                  Term patternBody = 2;
-                }
-message Retry { Term term = 1;
-              }
-message Return { Term term = 1;
-               }
-message ScopeEntry { repeated Term terms = 1;
-                   }
-message ScopeExit { repeated Term terms = 1;
-                  }
-message Statements { repeated Term statements = 1;
-                   }
-message Try { Term tryBody = 1;
-              repeated Term tryCatch = 2;
-            }
-message While { Term whileCondition = 1;
-                Term whileBody = 2;
-              }
-message Yield { Term term = 1;
-              }
-message Syntax { oneof syntax {Comment comment = 1;
-                               Function function = 2;
-                               Boolean boolean = 3;
-                               Method method = 4;
-                               File file = 5;
-                               Line line = 6;
-                               Plus plus = 7;
-                               Minus minus = 8;
-                               Times times = 9;
-                               DividedBy dividedBy = 10;
-                               Modulo modulo = 11;
-                               Power power = 12;
-                               Negate negate = 13;
-                               FloorDivision floorDivision = 14;
-                               BAnd bAnd = 15;
-                               BOr bOr = 16;
-                               BXOr bXOr = 17;
-                               LShift lShift = 18;
-                               RShift rShift = 19;
-                               Complement complement = 20;
-                               And and = 21;
-                               Not not = 22;
-                               Or or = 23;
-                               XOr xOr = 24;
-                               Call call = 25;
-                               LessThan lessThan = 26;
-                               LessThanEqual lessThanEqual = 27;
-                               GreaterThan greaterThan = 28;
-                               GreaterThanEqual greaterThanEqual = 29;
-                               Equal equal = 30;
-                               StrictEqual strictEqual = 31;
-                               Comparison comparison = 32;
-                               Enumeration enumeration = 33;
-                               Matches matches = 34;
-                               NotMatches notMatches = 35;
-                               MemberAccess memberAccess = 36;
-                               ScopeResolution scopeResolution = 37;
-                               Subscript subscript = 38;
-                               Member member = 39;
-                               Array array = 40;
-                               Complex complex = 41;
-                               Float float = 42;
-                               Hash hash = 43;
-                               Integer integer = 44;
-                               KeyValue keyValue = 45;
-                               Null null = 46;
-                               Rational rational = 47;
-                               Regex regex = 48;
-                               String string = 49;
-                               Symbol symbol = 50;
-                               TextElement textElement = 51;
-                               Assignment assignment = 52;
-                               Break break = 53;
-                               Catch catch = 54;
-                               Continue continue = 55;
-                               Else else = 56;
-                               Finally finally = 57;
-                               ForEach forEach = 58;
-                               If if = 59;
-                               Match match = 60;
-                               Pattern pattern = 61;
-                               Retry retry = 62;
-                               Return return = 63;
-                               ScopeEntry scopeEntry = 64;
-                               ScopeExit scopeExit = 65;
-                               Statements statements = 66;
-                               Try try = 67;
-                               While while = 68;
-                               Yield yield = 69;
-                               Context context = 70;
-                               Empty empty = 71;
-                               Error error = 72;
-                               Identifier identifier = 73;
-                               Class class = 74;
-                               Load load = 75;
-                               LowPrecedenceAnd lowPrecedenceAnd = 76;
-                               LowPrecedenceOr lowPrecedenceOr = 77;
-                               Module module = 78;
-                               Require require = 79;
-                               Send send = 80;
-                               List list = 81;}
-               }
-message Context { repeated Term contextTerms = 1;
-                  Term contextSubject = 2;
-                }
-message Empty {
-              }
-message Identifier { bytes name = 1;
-                   }
-message List { repeated Term listContent = 1;
-             }

proto/typescript.proto

@@ -0,0 +1,962 @@
+syntax = "proto3";
+
+package github.semantic;
+
+import "types.proto";
+
+option java_package = "com.github.semantic.typescript";
+option go_package = "github.com/semantic/typescript;typescript";
+
+message TypeScriptTerm {
+  TypeScriptSyntax syntax = 1;
+}
+
+message Alias {
+  bytes aliasValue = 1;
+  bytes aliasName = 2;
+}
+
+message ImportPath {
+  string unPath = 1;
+  Relative pathIsRelative = 2;
+}
+
+enum Relative {
+  Unknown = 0;
+  Relative = 1;
+  NonRelative = 2;
+}
+
+message TypeScriptSyntax {
+  oneof syntax {
+    Comment comment = 1;
+    HashBang hashBang = 2;
+    Class class = 3;
+    Function function = 4;
+    Method method = 5;
+    MethodSignature methodSignature = 6;
+    InterfaceDeclaration interfaceDeclaration = 7;
+    PublicFieldDefinition publicFieldDefinition = 8;
+    VariableDeclaration variableDeclaration = 9;
+    TypeAlias typeAlias = 10;
+    Plus plus = 11;
+    Minus minus = 12;
+    Times times = 13;
+    DividedBy dividedBy = 14;
+    Modulo modulo = 15;
+    Power power = 16;
+    Negate negate = 17;
+    FloorDivision floorDivision = 18;
+    BAnd bAnd = 19;
+    BOr bOr = 20;
+    BXOr bXOr = 21;
+    LShift lShift = 22;
+    RShift rShift = 23;
+    UnsignedRShift unsignedRShift = 24;
+    Complement complement = 25;
+    And and = 26;
+    Not not = 27;
+    Or or = 28;
+    XOr xOr = 29;
+    Call call = 30;
+    Cast cast = 31;
+    LessThan lessThan = 32;
+    LessThanEqual lessThanEqual = 33;
+    GreaterThan greaterThan = 34;
+    GreaterThanEqual greaterThanEqual = 35;
+    Equal equal = 36;
+    StrictEqual strictEqual = 37;
+    Comparison comparison = 38;
+    Enumeration enumeration = 39;
+    MemberAccess memberAccess = 40;
+    NonNullExpression nonNullExpression = 41;
+    ScopeResolution scopeResolution = 42;
+    SequenceExpression sequenceExpression = 43;
+    Subscript subscript = 44;
+    Member member = 45;
+    Delete delete = 46;
+    Void void = 47;
+    Typeof typeof = 48;
+    InstanceOf instanceOf = 49;
+    New new = 50;
+    Await await = 51;
+    Array array = 52;
+    Boolean boolean = 53;
+    Float float = 54;
+    Hash hash = 55;
+    Integer integer = 56;
+    KeyValue keyValue = 57;
+    Null null = 58;
+    String string = 59;
+    TextElement textElement = 60;
+    Regex regex = 61;
+    Assignment assignment = 62;
+    Break break = 63;
+    Catch catch = 64;
+    Continue continue = 65;
+    DoWhile doWhile = 66;
+    Else else = 67;
+    Finally finally = 68;
+    For for = 69;
+    ForEach forEach = 70;
+    If if = 71;
+    Match match = 72;
+    Pattern pattern = 73;
+    Retry retry = 74;
+    Return return = 75;
+    ScopeEntry scopeEntry = 76;
+    ScopeExit scopeExit = 77;
+    Statements statements = 78;
+    Throw throw = 79;
+    Try try = 80;
+    While while = 81;
+    Yield yield = 82;
+    AccessibilityModifier accessibilityModifier = 83;
+    Empty empty = 84;
+    Error error = 85;
+    Identifier identifier = 86;
+    Context context = 87;
+    Readonly readonly = 88;
+    TypeParameters typeParameters = 89;
+    TypeParameter typeParameter = 90;
+    Constraint constraint = 91;
+    ParenthesizedType parenthesizedType = 92;
+    DefaultType defaultType = 93;
+    PredefinedType predefinedType = 94;
+    TypeIdentifier typeIdentifier = 95;
+    NestedIdentifier nestedIdentifier = 96;
+    NestedTypeIdentifier nestedTypeIdentifier = 97;
+    GenericType genericType = 98;
+    TypeArguments typeArguments = 99;
+    TypePredicate typePredicate = 100;
+    CallSignature callSignature = 101;
+    ConstructSignature constructSignature = 102;
+    ArrayType arrayType = 103;
+    LookupType lookupType = 104;
+    FlowMaybeType flowMaybeType = 105;
+    TypeQuery typeQuery = 106;
+    IndexTypeQuery indexTypeQuery = 107;
+    ThisType thisType = 108;
+    ExistentialType existentialType = 109;
+    AbstractMethodSignature abstractMethodSignature = 110;
+    IndexSignature indexSignature = 111;
+    ObjectType objectType = 112;
+    LiteralType literalType = 113;
+    Union union = 114;
+    Intersection intersection = 115;
+    Module module = 116;
+    InternalModule internalModule = 117;
+    FunctionType functionType = 118;
+    Tuple tuple = 119;
+    Constructor constructor = 120;
+    TypeAssertion typeAssertion = 121;
+    ImportAlias importAlias = 122;
+    Debugger debugger = 123;
+    ShorthandPropertyIdentifier shorthandPropertyIdentifier = 124;
+    Super super = 125;
+    Undefined undefined = 126;
+    ClassHeritage classHeritage = 127;
+    AbstractClass abstractClass = 128;
+    ImplementsClause implementsClause = 129;
+    JsxElement jsxElement = 130;
+    JsxSelfClosingElement jsxSelfClosingElement = 131;
+    JsxOpeningElement jsxOpeningElement = 132;
+    JsxText jsxText = 133;
+    JsxClosingElement jsxClosingElement = 134;
+    JsxExpression jsxExpression = 135;
+    JsxAttribute jsxAttribute = 136;
+    JsxFragment jsxFragment = 137;
+    JsxNamespaceName jsxNamespaceName = 138;
+    OptionalParameter optionalParameter = 139;
+    RequiredParameter requiredParameter = 140;
+    RestParameter restParameter = 141;
+    PropertySignature propertySignature = 142;
+    AmbientDeclaration ambientDeclaration = 143;
+    EnumDeclaration enumDeclaration = 144;
+    ExtendsClause extendsClause = 145;
+    AmbientFunction ambientFunction = 146;
+    ImportRequireClause importRequireClause = 147;
+    ImportClause importClause = 148;
+    LabeledStatement labeledStatement = 149;
+    Annotation annotation = 150;
+    With with = 151;
+    ForOf forOf = 152;
+    This this = 153;
+    Update update = 154;
+    ComputedPropertyName computedPropertyName = 155;
+    Decorator decorator = 156;
+    Import import = 157;
+    QualifiedAliasedImport qualifiedAliasedImport = 158;
+    SideEffectImport sideEffectImport = 159;
+    DefaultExport defaultExport = 160;
+    QualifiedExport qualifiedExport = 161;
+    QualifiedExportFrom qualifiedExportFrom = 162;
+    JavaScriptRequire javaScriptRequire = 163;
+    List list = 164;
+  }
+}
+
+message Comment {
+  string commentContent = 1;
+}
+
+message HashBang {
+  string value = 1;
+}
+
+message Class {
+  repeated TypeScriptTerm classContext = 1;
+  TypeScriptTerm classIdentifier = 2;
+  repeated TypeScriptTerm classSuperclasses = 3;
+  TypeScriptTerm classBody = 4;
+}
+
+message Function {
+  repeated TypeScriptTerm functionContext = 1;
+  TypeScriptTerm functionName = 2;
+  repeated TypeScriptTerm functionParameters = 3;
+  TypeScriptTerm functionBody = 4;
+}
+
+message Method {
+  repeated TypeScriptTerm methodContext = 1;
+  TypeScriptTerm methodReceiver = 2;
+  TypeScriptTerm methodName = 3;
+  repeated TypeScriptTerm methodParameters = 4;
+  TypeScriptTerm methodBody = 5;
+}
+
+message MethodSignature {
+  repeated TypeScriptTerm methodSignatureContext = 1;
+  TypeScriptTerm methodSignatureName = 2;
+  repeated TypeScriptTerm methodSignatureParameters = 3;
+}
+
+message InterfaceDeclaration {
+  repeated TypeScriptTerm interfaceDeclarationContext = 1;
+  TypeScriptTerm interfaceDeclarationIdentifier = 2;
+  TypeScriptTerm interfaceDeclarationBody = 3;
+}
+
+message PublicFieldDefinition {
+  repeated TypeScriptTerm publicFieldContext = 1;
+  TypeScriptTerm publicFieldPropertyName = 2;
+  TypeScriptTerm publicFieldValue = 3;
+}
+
+message VariableDeclaration {
+  repeated TypeScriptTerm variableDeclarations = 1;
+}
+
+message TypeAlias {
+  repeated TypeScriptTerm typeAliasContext = 1;
+  TypeScriptTerm typeAliasIdentifier = 2;
+  TypeScriptTerm typeAliasKind = 3;
+}
+
+message Plus {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message Minus {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message Times {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message DividedBy {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message Modulo {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message Power {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message Negate {
+  TypeScriptTerm term = 1;
+}
+
+message FloorDivision {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message BAnd {
+  TypeScriptTerm left = 1;
+  TypeScriptTerm right = 2;
+}
+
+message BOr {
+  TypeScriptTerm left = 1;
+  TypeScriptTerm right = 2;
+}
+
+message BXOr {
+  TypeScriptTerm left = 1;
+  TypeScriptTerm right = 2;
+}
+
+message LShift {
+  TypeScriptTerm left = 1;
+  TypeScriptTerm right = 2;
+}
+
+message RShift {
+  TypeScriptTerm left = 1;
+  TypeScriptTerm right = 2;
+}
+
+message UnsignedRShift {
+  TypeScriptTerm left = 1;
+  TypeScriptTerm right = 2;
+}
+
+message Complement {
+  TypeScriptTerm value = 1;
+}
+
+message And {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message Not {
+  TypeScriptTerm term = 1;
+}
+
+message Or {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message XOr {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message Call {
+  repeated TypeScriptTerm callContext = 1;
+  TypeScriptTerm callFunction = 2;
+  repeated TypeScriptTerm callParams = 3;
+  TypeScriptTerm callBlock = 4;
+}
+
+message Cast {
+  TypeScriptTerm castSubject = 1;
+  TypeScriptTerm castType = 2;
+}
+
+message LessThan {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message LessThanEqual {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message GreaterThan {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message GreaterThanEqual {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message Equal {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message StrictEqual {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message Comparison {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message Enumeration {
+  TypeScriptTerm enumerationStart = 1;
+  TypeScriptTerm enumerationEnd = 2;
+  TypeScriptTerm enumerationStep = 3;
+}
+
+message MemberAccess {
+  TypeScriptTerm lhs = 1;
+  bytes rhs = 2;
+}
+
+message NonNullExpression {
+  TypeScriptTerm nonNullExpression = 1;
+}
+
+message ScopeResolution {
+  repeated TypeScriptTerm scopes = 1;
+}
+
+message SequenceExpression {
+  TypeScriptTerm firstExpression = 1;
+  TypeScriptTerm secondExpression = 2;
+}
+
+message Subscript {
+  TypeScriptTerm lhs = 1;
+  repeated TypeScriptTerm rhs = 2;
+}
+
+message Member {
+  TypeScriptTerm lhs = 1;
+  TypeScriptTerm rhs = 2;
+}
+
+message Delete {
+  TypeScriptTerm value = 1;
+}
+
+message Void {
+  TypeScriptTerm value = 1;
+}
+
+message Typeof {
+  TypeScriptTerm value = 1;
+}
+
+message InstanceOf {
+  TypeScriptTerm instanceOfSubject = 1;
+  TypeScriptTerm instanceOfObject = 2;
+}
+
+message New {
+  repeated TypeScriptTerm newSubject = 1;
+}
+
+message Await {
+  TypeScriptTerm awaitSubject = 1;
+}
+
+message Array {
+  repeated TypeScriptTerm arrayElements = 1;
+}
+
+message Boolean {
+  bool booleanContent = 1;
+}
+
+message Float {
+  string floatContent = 1;
+}
+
+message Hash {
+  repeated TypeScriptTerm hashElements = 1;
+}
+
+message Integer {
+  string integerContent = 1;
+}
+
+message KeyValue {
+  TypeScriptTerm key = 1;
+  TypeScriptTerm value = 2;
+}
+
+message Null { }
+
+message String {
+  repeated TypeScriptTerm stringElements = 1;
+}
+
+message TextElement {
+  string textElementContent = 1;
+}
+
+message Regex {
+  string regexContent = 1;
+}
+
+message Assignment {
+  repeated TypeScriptTerm assignmentContext = 1;
+  TypeScriptTerm assignmentTarget = 2;
+  TypeScriptTerm assignmentValue = 3;
+}
+
+message Break {
+  TypeScriptTerm term = 1;
+}
+
+message Catch {
+  TypeScriptTerm catchException = 1;
+  TypeScriptTerm catchBody = 2;
+}
+
+message Continue {
+  TypeScriptTerm term = 1;
+}
+
+message DoWhile {
+  TypeScriptTerm doWhileCondition = 1;
+  TypeScriptTerm doWhileBody = 2;
+}
+
+message Else {
+  TypeScriptTerm elseCondition = 1;
+  TypeScriptTerm elseBody = 2;
+}
+
+message Finally {
+  TypeScriptTerm term = 1;
+}
+
+message For {
+  TypeScriptTerm forBefore = 1;
+  TypeScriptTerm forCondition = 2;
+  TypeScriptTerm forStep = 3;
+  TypeScriptTerm forBody = 4;
+}
+
+message ForEach {
+  TypeScriptTerm forEachBinding = 1;
+  TypeScriptTerm forEachSubject = 2;
+  TypeScriptTerm forEachBody = 3;
+}
+
+message If {
+  TypeScriptTerm ifCondition = 1;
+  TypeScriptTerm ifThenBody = 2;
+  TypeScriptTerm ifElseBody = 3;
+}
+
+message Match {
+  TypeScriptTerm matchSubject = 1;
+  TypeScriptTerm matchPatterns = 2;
+}
+
+message Pattern {
+  TypeScriptTerm value = 1;
+  TypeScriptTerm patternBody = 2;
+}
+
+message Retry {
+  TypeScriptTerm term = 1;
+}
+
+message Return {
+  TypeScriptTerm term = 1;
+}
+
+message ScopeEntry {
+  repeated TypeScriptTerm terms = 1;
+}
+
+message ScopeExit {
+  repeated TypeScriptTerm terms = 1;
+}
+
+message Statements {
+  repeated TypeScriptTerm statements = 1;
+}
+
+message Throw {
+  TypeScriptTerm value = 1;
+}
+
+message Try {
+  TypeScriptTerm tryBody = 1;
+  repeated TypeScriptTerm tryCatch = 2;
+}
+
+message While {
+  TypeScriptTerm whileCondition = 1;
+  TypeScriptTerm whileBody = 2;
+}
+
+message Yield {
+  TypeScriptTerm term = 1;
+}
+
+message AccessibilityModifier {
+  string contents = 1;
+}
+
+message Empty { }
+
+message Error {
+  repeated ErrorSite errorCallStack = 1;
+  repeated string errorExpected = 2;
+  string errorActual = 3;
+  repeated TypeScriptTerm errorChildren = 4;
+}
+
+message Identifier {
+  bytes name = 1;
+}
+
+message Context {
+  repeated TypeScriptTerm contextTerms = 1;
+  TypeScriptTerm contextSubject = 2;
+}
+
+message Readonly { }
+
+message TypeParameters {
+  repeated TypeScriptTerm terms = 1;
+}
+
+message TypeParameter {
+  TypeScriptTerm typeParameter = 1;
+  TypeScriptTerm typeParameterConstraint = 2;
+  TypeScriptTerm typeParameterDefaultType = 3;
+}
+
+message Constraint {
+  TypeScriptTerm constraintType = 1;
+}
+
+message ParenthesizedType {
+  TypeScriptTerm parenthesizedType = 1;
+}
+
+message DefaultType {
+  TypeScriptTerm defaultType = 1;
+}
+
+message PredefinedType {
+  string predefinedType = 1;
+}
+
+message TypeIdentifier {
+  string contents = 1;
+}
+
+message NestedIdentifier {
+  TypeScriptTerm left = 1;
+  TypeScriptTerm right = 2;
+}
+
+message NestedTypeIdentifier {
+  TypeScriptTerm left = 1;
+  TypeScriptTerm right = 2;
+}
+
+message GenericType {
+  TypeScriptTerm genericTypeIdentifier = 1;
+  TypeScriptTerm genericTypeArguments = 2;
+}
+
+message TypeArguments {
+  repeated TypeScriptTerm typeArguments = 1;
+}
+
+message TypePredicate {
+  TypeScriptTerm typePredicateIdentifier = 1;
+  TypeScriptTerm typePredicateType = 2;
+}
+
+message CallSignature {
+  TypeScriptTerm callSignatureTypeParameters = 1;
+  repeated TypeScriptTerm callSignatureParameters = 2;
+  TypeScriptTerm callSignatureType = 3;
+}
+
+message ConstructSignature {
+  TypeScriptTerm constructSignatureTypeParameters = 1;
+  repeated TypeScriptTerm constructSignatureParameters = 2;
+  TypeScriptTerm constructSignatureType = 3;
+}
+
+message ArrayType {
+  TypeScriptTerm arrayType = 1;
+}
+
+message LookupType {
+  TypeScriptTerm lookupTypeIdentifier = 1;
+  TypeScriptTerm lookupTypeKey = 2;
+}
+
+message FlowMaybeType {
+  TypeScriptTerm flowMaybeType = 1;
+}
+
+message TypeQuery {
+  TypeScriptTerm typeQuerySubject = 1;
+}
+
+message IndexTypeQuery {
+  TypeScriptTerm indexTypeQuerySubject = 1;
+}
+
+message ThisType {
+  string contents = 1;
+}
+
+message ExistentialType {
+  string contents = 1;
+}
+
+message AbstractMethodSignature {
+  repeated TypeScriptTerm abstractMethodSignatureContext = 1;
+  TypeScriptTerm abstractMethodSignatureName = 2;
+  repeated TypeScriptTerm abstractMethodSignatureParameters = 3;
+}
+
+message IndexSignature {
+  TypeScriptTerm indexSignatureSubject = 1;
+  TypeScriptTerm indexSignatureType = 2;
+}
+
+message ObjectType {
+  repeated TypeScriptTerm objectTypeElements = 1;
+}
+
+message LiteralType {
+  TypeScriptTerm literalTypeSubject = 1;
+}
+
+message Union {
+  TypeScriptTerm unionLeft = 1;
+  TypeScriptTerm unionRight = 2;
+}
+
+message Intersection {
+  TypeScriptTerm intersectionLeft = 1;
+  TypeScriptTerm intersectionRight = 2;
+}
+
+message Module {
+  TypeScriptTerm moduleIdentifier = 1;
+  repeated TypeScriptTerm moduleStatements = 2;
+}
+
+message InternalModule {
+  TypeScriptTerm internalModuleIdentifier = 1;
+  repeated TypeScriptTerm internalModuleStatements = 2;
+}
+
+message FunctionType {
+  TypeScriptTerm functionTypeParameters = 1;
+  repeated TypeScriptTerm functionFormalParameters = 2;
+  TypeScriptTerm functionType = 3;
+}
+
+message Tuple {
+  repeated TypeScriptTerm tupleElements = 1;
+}
+
+message Constructor {
+  TypeScriptTerm constructorTypeParameters = 1;
+  repeated TypeScriptTerm constructorFormalParameters = 2;
+  TypeScriptTerm constructorType = 3;
+}
+
+message TypeAssertion {
+  TypeScriptTerm typeAssertionParameters = 1;
+  TypeScriptTerm typeAssertionExpression = 2;
+}
+
+message ImportAlias {
+  TypeScriptTerm importAliasSubject = 1;
+  TypeScriptTerm importAlias = 2;
+}
+
+message Debugger { }
+
+message ShorthandPropertyIdentifier {
+  string contents = 1;
+}
+
+message Super { }
+
+message Undefined { }
+
+message ClassHeritage {
+  TypeScriptTerm classHeritageExtendsClause = 1;
+  TypeScriptTerm implementsClause = 2;
+}
+
+message AbstractClass {
+  TypeScriptTerm abstractClassIdentifier = 1;
+  TypeScriptTerm abstractClassTypeParameters = 2;
+  repeated TypeScriptTerm classHeritage = 3;
+  TypeScriptTerm classBody = 4;
+}
+
+message ExtendsClause {
+  repeated TypeScriptTerm extendsClauses = 1;
+}
+
+message ImplementsClause {
+  repeated TypeScriptTerm implementsClauseTypes = 1;
+}
+
+message JsxElement {
+  TypeScriptTerm jsxOpeningElement = 1;
+  repeated TypeScriptTerm jsxElements = 2;
+  TypeScriptTerm jsxClosingElement = 3;
+}
+
+message JsxSelfClosingElement {
+  TypeScriptTerm jsxSelfClosingElementIdentifier = 1;
+  repeated TypeScriptTerm jsxSelfClosingElementAttributes = 2;
+}
+
+message JsxOpeningElement {
+  TypeScriptTerm jsxOpeningElementIdentifier = 1;
+  repeated TypeScriptTerm jsxAttributes = 2;
+}
+
+message JsxText {
+  string contents = 1;
+}
+
+message JsxClosingElement {
+  TypeScriptTerm jsxClosingElementIdentifier = 1;
+}
+
+message JsxExpression {
+  TypeScriptTerm jsxExpression = 1;
+}
+
+message JsxAttribute {
+  TypeScriptTerm jsxAttributeTarget = 1;
+  TypeScriptTerm jsxAttributeValue = 2;
+}
+
+message JsxFragment {
+  repeated TypeScriptTerm terms = 1;
+}
+
+message JsxNamespaceName {
+  TypeScriptTerm left = 1;
+  TypeScriptTerm right = 2;
+}
+
+message OptionalParameter {
+  repeated TypeScriptTerm optionalParameterContext = 1;
+  TypeScriptTerm optionalParameterSubject = 2;
+}
+
+message RequiredParameter {
+  repeated TypeScriptTerm requiredParameterContext = 1;
+  TypeScriptTerm requiredParameterSubject = 2;
+}
+
+message RestParameter {
+  repeated TypeScriptTerm restParameterContext = 1;
+  TypeScriptTerm restParameterSubject = 2;
+}
+
+message PropertySignature {
+  repeated TypeScriptTerm modifiers = 1;
+  TypeScriptTerm propertySignaturePropertyName = 2;
+}
+
+message AmbientDeclaration {
+  TypeScriptTerm ambientDeclarationBody = 1;
+}
+
+message EnumDeclaration {
+  TypeScriptTerm enumDeclarationIdentifier = 1;
+  repeated TypeScriptTerm enumDeclarationBody = 2;
+}
+
+message AmbientFunction {
+  repeated TypeScriptTerm ambientFunctionContext = 1;
+  TypeScriptTerm ambientFunctionIdentifier = 2;
+  repeated TypeScriptTerm ambientFunctionParameters = 3;
+}
+
+message ImportRequireClause {
+  TypeScriptTerm importRequireIdentifier = 1;
+  TypeScriptTerm importRequireSubject = 2;
+}
+
+message ImportClause {
+  repeated TypeScriptTerm importClauseElements = 1;
+}
+
+message LabeledStatement {
+  TypeScriptTerm labeledStatementIdentifier = 1;
+  TypeScriptTerm labeledStatementSubject = 2;
+}
+
+message Annotation {
+  TypeScriptTerm annotationType = 1;
+}
+
+message With {
+  TypeScriptTerm withExpression = 1;
+  TypeScriptTerm withBody = 2;
+}
+
+message ForOf {
+  TypeScriptTerm forOfBinding = 1;
+  TypeScriptTerm forOfSubject = 2;
+  TypeScriptTerm forOfBody = 3;
+}
+
+message This { }
+
+message Update {
+  TypeScriptTerm updateSubject = 1;
+}
+
+message ComputedPropertyName {
+  TypeScriptTerm propertyName = 1;
+}
+
+message Decorator {
+  TypeScriptTerm decoratorTerm = 1;
+}
+
+message Import {
+  repeated Alias importSymbols = 1;
+  ImportPath importFrom = 2;
+}
+
+message QualifiedAliasedImport {
+  TypeScriptTerm qualifiedAliasedImportAlias = 1;
+  ImportPath qualifiedAliasedImportFrom = 2;
+}
+
+message SideEffectImport {
+  ImportPath sideEffectImportFrom = 1;
+}
+
+message DefaultExport {
+  TypeScriptTerm defaultExport = 1;
+}
+
+message QualifiedExport {
+  repeated Alias qualifiedExportSymbols = 1;
+}
+
+message QualifiedExportFrom {
+  ImportPath qualifiedExportFrom = 1;
+  repeated Alias qualifiedExportFromSymbols = 2;
+}
+
+message JavaScriptRequire {
+  TypeScriptTerm javascriptRequireIden = 1;
+  ImportPath javascriptRequireFrom = 2;
+}
+
+message List {
+  repeated TypeScriptTerm listContent = 1;
+}

src/Assigning/Assignment/Deterministic.hs

@@ -123,8 +123,8 @@ instance (Enum symbol, Ord symbol, Show symbol) => Assigning symbol (Assignment
       Right (state', syntax) -> Right (state', termIn (stateLocation state) (inject syntax)))) (choices a))
 
 
-assign :: (Enum symbol, Show symbol) => Assignment symbol a -> Source -> AST [] symbol -> Either (Error String) a
+assign :: (Enum symbol, Show symbol) => Source -> Assignment symbol a -> AST [] symbol -> Either (Error String) a
-assign assignment src = bimap (fmap (either id show)) snd . runAssignment assignment src . State 0 lowerBound . pure
+assign src assignment = bimap (fmap (either id show)) snd . runAssignment assignment src . State 0 lowerBound . pure
 
 runAssignment :: Enum symbol => Assignment symbol a -> Source -> State symbol -> Either (Error (Either String symbol)) (State symbol, a)
 runAssignment (Assignment nullable firstSet table) src input

src/Data/Syntax.hs

@@ -172,7 +172,7 @@ instance Declarations1 Identifier where
   liftDeclaredName _ (Identifier x) = pure x
 
 -- | An accessibility modifier, e.g. private, public, protected, etc.
-newtype AccessibilityModifier a = AccessibilityModifier Text
+newtype AccessibilityModifier a = AccessibilityModifier { contents :: Text }
   deriving newtype (Eq, Ord, Show)
   deriving stock (Foldable, Functor, Generic1, Traversable)
   deriving anyclass (Declarations1, Diffable, FreeVariables1, Hashable1, Mergeable, Message1, Named1, ToJSONFields1)

src/Data/Syntax/Comment.hs

@@ -24,7 +24,7 @@ instance Evaluatable Comment where
 -- TODO: Differentiate between line/block comments?
 
 -- | HashBang line (e.g. `#!/usr/bin/env node`)
-newtype HashBang a = HashBang Text
+newtype HashBang a = HashBang { value :: Text }
   deriving (Diffable, Eq, Foldable, Functor, Generic1, Hashable1, Mergeable, Ord, Show, Traversable, FreeVariables1, Declarations1, ToJSONFields1, Named1, Message1)
 
 instance Eq1 HashBang where liftEq = genericLiftEq

src/Data/Syntax/Declaration.hs

@@ -56,7 +56,7 @@ instance Evaluatable Method where
 
 
 -- | A method signature in TypeScript or a method spec in Go.
-data MethodSignature a = MethodSignature { _methodSignatureContext :: ![a], _methodSignatureName :: !a, _methodSignatureParameters :: ![a] }
+data MethodSignature a = MethodSignature { methodSignatureContext :: ![a], methodSignatureName :: !a, methodSignatureParameters :: ![a] }
   deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable, Named1, Message1)
 
 instance Eq1 MethodSignature where liftEq = genericLiftEq

src/Data/Syntax/Expression.hs

@@ -264,7 +264,7 @@ instance Evaluatable XOr where
     go (XOr a b) = boolean <$> liftA2 (/=) (a >>= asBool) (b >>= asBool)
 
 -- | Javascript delete operator
-newtype Delete a = Delete a
+newtype Delete a = Delete { value :: a }
   deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable, Named1, Message1)
 
 instance Eq1 Delete where liftEq = genericLiftEq
@@ -276,7 +276,7 @@ instance Evaluatable Delete
 
 
 -- | A sequence expression such as Javascript or C's comma operator.
-data SequenceExpression a = SequenceExpression { _firstExpression :: !a, _secondExpression :: !a }
+data SequenceExpression a = SequenceExpression { firstExpression :: !a, secondExpression :: !a }
   deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable, Named1, Message1)
 
 instance Eq1 SequenceExpression where liftEq = genericLiftEq
@@ -288,7 +288,7 @@ instance Evaluatable SequenceExpression
 
 
 -- | Javascript void operator
-newtype Void a = Void a
+newtype Void a = Void { value :: a }
   deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable, Named1, Message1)
 
 instance Eq1 Void where liftEq = genericLiftEq
@@ -300,7 +300,7 @@ instance Evaluatable Void
 
 
 -- | Javascript typeof operator
-newtype Typeof a = Typeof a
+newtype Typeof a = Typeof { value :: a }
   deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable, Named1, Message1)
 
 instance Eq1 Typeof where liftEq = genericLiftEq

src/Data/Syntax/Statement.hs

@@ -290,7 +290,7 @@ instance Evaluatable DoWhile where
 
 -- Exception handling
 
-newtype Throw a = Throw a
+newtype Throw a = Throw { value :: a }
   deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable, Named1, Message1)
 
 instance Eq1 Throw where liftEq = genericLiftEq

src/Data/Syntax/Type.hs

@@ -4,7 +4,7 @@ module Data.Syntax.Type where
 import Data.Abstract.Evaluatable
 import Data.JSON.Fields
 import Diffing.Algorithm
-import Prelude hiding (Bool, Float, Int)
+import Prelude hiding (Bool, Float, Int, Double)
 import Prologue hiding (Map)
 import Proto3.Suite.Class
 
@@ -109,7 +109,7 @@ instance Show1 Readonly where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable Readonly
 
 
-newtype Slice a = Slice a
+newtype Slice a = Slice { value :: a }
   deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable, Named1, Message1)
 
 instance Eq1 Slice where liftEq = genericLiftEq
@@ -120,7 +120,7 @@ instance Show1 Slice where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable Slice
 
 
-newtype TypeParameters a = TypeParameters [a]
+newtype TypeParameters a = TypeParameters { terms :: [a] }
   deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable, Named1, Message1)
 
 instance Eq1 TypeParameters where liftEq = genericLiftEq
@@ -152,7 +152,7 @@ instance Show1 Int where liftShowsPrec = genericLiftShowsPrec
 -- TODO: Implement Eval instance for Int
 instance Evaluatable Int
 
-data Float a = Float | Double
+data Float a = Float
   deriving (Diffable, Eq, Foldable, Functor,  Generic1, Mergeable, Ord, Show, Traversable, FreeVariables1, Declarations1, ToJSONFields1, Hashable1)
 
 instance Eq1 Float where liftEq = genericLiftEq
@@ -162,6 +162,16 @@ instance Show1 Float where liftShowsPrec = genericLiftShowsPrec
 -- TODO: Implement Eval instance for Float
 instance Evaluatable Float
 
+data Double a = Double
+  deriving (Diffable, Eq, Foldable, Functor,  Generic1, Mergeable, Ord, Show, Traversable, FreeVariables1, Declarations1, ToJSONFields1, Hashable1)
+
+instance Eq1 Double where liftEq = genericLiftEq
+instance Ord1 Double where liftCompare = genericLiftCompare
+instance Show1 Double where liftShowsPrec = genericLiftShowsPrec
+
+-- TODO: Implement Eval instance for Double
+instance Evaluatable Double
+
 data Bool a = Bool
   deriving (Diffable, Eq, Foldable, Functor,  Generic1, Mergeable, Ord, Show, Traversable, FreeVariables1, Declarations1, ToJSONFields1, Hashable1)
 

src/Data/Term.hs

@@ -82,13 +82,10 @@ instance Show1 f => Show1 (Term f) where
 instance (Show1 f, Show a) => Show (Term f a) where
   showsPrec = showsPrec1
 
-instance Message1 f => Message (Term f ()) where
+instance (Named1 f, Message1 f) => Message (Term f ()) where
   encodeMessage num (Term (In _ f)) = Encode.embedded num (liftEncodeMessage encodeMessage 1 f)
   decodeMessage num = termIn () . fromMaybe undefined <$> Decode.at (Decode.embedded (liftDecodeMessage decodeMessage 1)) num
-  dotProto _ = [ DotProtoMessageField (DotProtoField 1 (Prim (Named (Single "Syntax"))) (Single "syntax") [] Nothing) ]
+  dotProto (_ :: Proxy (Term f ())) = [ DotProtoMessageField (DotProtoField 1 (Prim . Named $ Single (nameOf1 (Proxy @f))) (Single "syntax") [] Nothing) ]
-
-instance Named (Term f a) where
-  nameOf _ = "Term"
 
 instance Ord1 f => Ord1 (Term f) where
   liftCompare comp = go where go t1 t2 = liftCompare2 comp go (unTerm t1) (unTerm t2)

src/Language/JSON/Assignment.hs

@@ -1,3 +1,4 @@
+{-# OPTIONS_GHC -fno-warn-orphans #-} -- FIXME
 module Language.JSON.Assignment
 ( assignment
 , Syntax
@@ -14,6 +15,7 @@ import qualified Data.Syntax as Syntax
 import qualified Data.Syntax.Literal as Literal
 import qualified Data.Term as Term
 import Language.JSON.Grammar as Grammar
+import Proto3.Suite (Named1(..), Named(..))
 import Prologue
 import Text.Parser.Combinators
 
@@ -31,6 +33,12 @@ type Syntax =
 type Term = Term.Term (Sum Syntax) (Record Location)
 type Assignment = Deterministic.Assignment Grammar
 
+instance Named1 (Sum Syntax) where
+  nameOf1 _ = "JSONSyntax"
+
+instance Named (Term.Term (Sum Syntax) ()) where
+  nameOf _ = "JSONTerm"
+
 
 assignment :: Assignment Term
 assignment = value <|> parseError

src/Language/Ruby/Assignment.hs

@@ -1,4 +1,5 @@
 {-# LANGUAGE DataKinds, RankNTypes, TypeOperators #-}
+{-# OPTIONS_GHC -fno-warn-orphans #-} -- FIXME
 module Language.Ruby.Assignment
 ( assignment
 , Syntax
@@ -35,6 +36,7 @@ import qualified Data.Syntax.Statement as Statement
 import qualified Data.Term as Term
 import qualified Language.Ruby.Syntax as Ruby.Syntax
 import Prologue hiding (for)
+import Proto3.Suite (Named1(..), Named(..))
 
 -- | The type of Ruby syntax.
 type Syntax = '[
@@ -124,6 +126,12 @@ type Syntax = '[
 type Term = Term.Term (Sum Syntax) (Record Location)
 type Assignment = Assignment.Assignment [] Grammar
 
+instance Named1 (Sum Syntax) where
+  nameOf1 _ = "RubySyntax"
+
+instance Named (Term.Term (Sum Syntax) ()) where
+  nameOf _ = "RubyTerm"
+
 -- | Assignment from AST in Ruby’s grammar onto a program in Ruby’s syntax.
 assignment :: Assignment Term
 assignment = handleError $ makeTerm <$> symbol Program <*> children (Statement.Statements <$> many expression) <|> parseError

src/Language/TypeScript/Assignment.hs

@@ -1,4 +1,5 @@
 {-# LANGUAGE DataKinds, RankNTypes, TypeOperators #-}
+{-# OPTIONS_GHC -fno-warn-orphans #-} -- FIXME
 module Language.TypeScript.Assignment
 ( assignment
 , Syntax
@@ -34,6 +35,7 @@ import qualified Data.Term as Term
 import Language.TypeScript.Grammar as Grammar
 import qualified Language.TypeScript.Syntax as TypeScript.Syntax
 import Prologue
+import Proto3.Suite (Named1(..), Named(..))
 
 -- | The type of TypeScript syntax.
 type Syntax = '[
@@ -165,7 +167,6 @@ type Syntax = '[
   , TypeScript.Syntax.Undefined
   , TypeScript.Syntax.ClassHeritage
   , TypeScript.Syntax.AbstractClass
-  , TypeScript.Syntax.ExtendsClause
   , TypeScript.Syntax.ImplementsClause
   , TypeScript.Syntax.JsxElement
   , TypeScript.Syntax.JsxSelfClosingElement
@@ -207,6 +208,12 @@ type Syntax = '[
 type Term = Term.Term (Sum Syntax) (Record Location)
 type Assignment = Assignment.Assignment [] Grammar
 
+instance Named1 (Sum Syntax) where
+  nameOf1 _ = "TypeScriptSyntax"
+
+instance Named (Term.Term (Sum Syntax) ()) where
+  nameOf _ = "TypeScriptTerm"
+
 -- | Assignment from AST in TypeScript’s grammar onto a program in TypeScript’s syntax.
 assignment :: Assignment Term
 assignment = handleError $ makeTerm <$> symbol Program <*> children (Statement.Statements <$> manyTerm statement) <|> parseError
@@ -694,7 +701,7 @@ importStatement =   makeImportTerm <$> symbol Grammar.ImportStatement <*> childr
         <|> (pure <$> defaultImport))
 
     makeImportTerm1 loc from (Just alias, _) = makeTerm loc (TypeScript.Syntax.QualifiedAliasedImport alias from)
-    makeImportTerm1 loc from (Nothing, symbols) = makeTerm loc (TypeScript.Syntax.Import symbols from)
+    makeImportTerm1 loc from (Nothing, symbols) = makeTerm loc (TypeScript.Syntax.Import (uncurry TypeScript.Syntax.Alias <$> symbols) from)
     makeImportTerm loc ([x], from) = makeImportTerm1 loc from x
     makeImportTerm loc (xs, from) = makeTerm loc $ fmap (makeImportTerm1 loc from) xs
     importSymbol = symbol Grammar.ImportSpecifier *> children (makeNameAliasPair <$> rawIdentifier <*> ((Just <$> rawIdentifier) <|> pure Nothing))
@@ -755,8 +762,8 @@ exportStatement = makeTerm <$> symbol Grammar.ExportStatement <*> children (flip
     exportClause = symbol Grammar.ExportClause *> children (many exportSymbol)
     exportSymbol = symbol Grammar.ExportSpecifier *> children (makeNameAliasPair <$> rawIdentifier <*> (Just <$> rawIdentifier))
                  <|> symbol Grammar.ExportSpecifier *> children (makeNameAliasPair <$> rawIdentifier <*> pure Nothing)
-    makeNameAliasPair from (Just alias) = (from, alias)
+    makeNameAliasPair from (Just alias) = TypeScript.Syntax.Alias from alias
-    makeNameAliasPair from Nothing = (from, from)
+    makeNameAliasPair from Nothing = TypeScript.Syntax.Alias from from
     rawIdentifier = (symbol Identifier <|> symbol Identifier') *> (name <$> source)
     -- TODO: Need to validate that inline comments are still handled with this change in assigning to Path and not a Term.
     fromClause = symbol Grammar.String *> (TypeScript.Syntax.importPath <$> source)

src/Language/TypeScript/Syntax.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveAnyClass, DuplicateRecordFields #-}
 module Language.TypeScript.Syntax where
 
 import qualified Data.Abstract.Environment as Env
@@ -14,12 +14,31 @@ import qualified Data.Text as T
 import           Diffing.Algorithm
 import           Prologue
 import           System.FilePath.Posix
+import Proto3.Suite
+import qualified Proto3.Wire.Encode as Encode
+import qualified Proto3.Wire.Decode as Decode
 
-data Relative = Relative | NonRelative
+data Relative = Unknown | Relative | NonRelative
-  deriving (Eq, Generic, Hashable, Ord, Show, ToJSON)
+  deriving (Bounded, Enum, Finite, MessageField, Named, Eq, Generic, Hashable, Ord, Show, ToJSON)
+
+instance Primitive Relative where
+  encodePrimitive = Encode.enum
+  decodePrimitive = either (const def) id <$> Decode.enum
+  primType _ = Named (Single (nameOf (Proxy @Relative)))
+
+instance HasDefault Relative where
+  def = Unknown
 
 data ImportPath = ImportPath { unPath :: FilePath, pathIsRelative :: Relative }
-  deriving (Eq, Generic, Hashable, Ord, Show, ToJSON)
+  deriving (Eq, Generic, Hashable, Message, Named, Ord, Show, ToJSON)
+
+instance MessageField ImportPath where
+  encodeMessageField num = Encode.embedded num . encodeMessage (fieldNumber 1)
+  decodeMessageField = fromMaybe def <$> Decode.embedded (decodeMessage (fieldNumber 1))
+  protoType _ = messageField (Prim $ Named (Single (nameOf (Proxy @ImportPath)))) Nothing
+
+instance HasDefault ImportPath where
+  def = ImportPath mempty Relative
 
 -- TODO: fix the duplication present in this and Python
 importPath :: Text -> ImportPath
@@ -44,8 +63,8 @@ resolveWithNodejsStrategy :: ( Member (Modules address) effects
                           => ImportPath
                           -> [String]
                           -> Evaluator address value effects M.ModulePath
-resolveWithNodejsStrategy (ImportPath path Relative)    exts = resolveRelativePath path exts
 resolveWithNodejsStrategy (ImportPath path NonRelative) exts = resolveNonRelativePath path exts
+resolveWithNodejsStrategy (ImportPath path _)    exts = resolveRelativePath path exts
 
 -- | Resolve a relative TypeScript import to a known 'ModuleName' or fail.
 --
@@ -143,8 +162,8 @@ evalRequire modulePath alias = letrec' alias $ \addr -> do
   bindAll importedEnv
   unit <$ makeNamespace alias addr Nothing
 
-data Import a = Import { importSymbols :: ![(Name, Name)], importFrom :: ImportPath }
+data Import a = Import { importSymbols :: ![Alias], importFrom :: ImportPath }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 Import where liftEq = genericLiftEq
 instance Ord1 Import where liftCompare = genericLiftCompare
@@ -160,10 +179,10 @@ instance Evaluatable Import where
     where
       renamed importedEnv
         | Prologue.null symbols = importedEnv
-        | otherwise = Env.overwrite symbols importedEnv
+        | otherwise = Env.overwrite (toTuple <$> symbols) importedEnv
 
 data JavaScriptRequire a = JavaScriptRequire { javascriptRequireIden :: !a, javascriptRequireFrom :: ImportPath }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 JavaScriptRequire where liftEq = genericLiftEq
 instance Ord1 JavaScriptRequire where liftCompare = genericLiftCompare
@@ -177,7 +196,7 @@ instance Evaluatable JavaScriptRequire where
 
 
 data QualifiedAliasedImport a = QualifiedAliasedImport { qualifiedAliasedImportAlias :: !a, qualifiedAliasedImportFrom :: ImportPath }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 QualifiedAliasedImport where liftEq = genericLiftEq
 instance Ord1 QualifiedAliasedImport where liftCompare = genericLiftCompare
@@ -190,7 +209,7 @@ instance Evaluatable QualifiedAliasedImport where
     rvalBox =<< evalRequire modulePath alias
 
 newtype SideEffectImport a = SideEffectImport { sideEffectImportFrom :: ImportPath }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 SideEffectImport where liftEq = genericLiftEq
 instance Ord1 SideEffectImport where liftCompare = genericLiftCompare
@@ -204,8 +223,8 @@ instance Evaluatable SideEffectImport where
 
 
 -- | Qualified Export declarations
-newtype QualifiedExport a = QualifiedExport { qualifiedExportSymbols :: [(Name, Name)] }
+newtype QualifiedExport a = QualifiedExport { qualifiedExportSymbols :: [Alias] }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 QualifiedExport where liftEq = genericLiftEq
 instance Ord1 QualifiedExport where liftCompare = genericLiftCompare
@@ -214,14 +233,19 @@ instance Show1 QualifiedExport where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable QualifiedExport where
   eval (QualifiedExport exportSymbols) = do
     -- Insert the aliases with no addresses.
-    for_ exportSymbols $ \(name, alias) ->
+    for_ exportSymbols $ \Alias{..} ->
-      export name alias Nothing
+      export aliasValue aliasName Nothing
     rvalBox unit
 
+data Alias = Alias { aliasValue :: Name, aliasName :: Name }
+  deriving (Eq, Generic, Hashable, Ord, Show, Message, Named, ToJSON)
+
+toTuple :: Alias -> (Name, Name)
+toTuple Alias{..} = (aliasValue, aliasName)
 
 -- | Qualified Export declarations that export from another module.
-data QualifiedExportFrom a = QualifiedExportFrom { qualifiedExportFrom :: ImportPath, qualifiedExportFromSymbols :: ![(Name, Name)]}
+data QualifiedExportFrom a = QualifiedExportFrom { qualifiedExportFrom :: ImportPath, qualifiedExportFromSymbols :: ![Alias]}
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 QualifiedExportFrom where liftEq = genericLiftEq
 instance Ord1 QualifiedExportFrom where liftCompare = genericLiftCompare
@@ -232,13 +256,13 @@ instance Evaluatable QualifiedExportFrom where
     modulePath <- resolveWithNodejsStrategy importPath typescriptExtensions
     importedEnv <- snd <$> require modulePath
     -- Look up addresses in importedEnv and insert the aliases with addresses into the exports.
-    for_ exportSymbols $ \(name, alias) -> do
+    for_ exportSymbols $ \Alias{..} -> do
-      let address = Env.lookup name importedEnv
+      let address = Env.lookup aliasValue importedEnv
-      maybe (throwEvalError $ ExportError modulePath name) (export name alias . Just) address
+      maybe (throwEvalError $ ExportError modulePath aliasValue) (export aliasValue aliasName . Just) address
     rvalBox unit
 
 newtype DefaultExport a = DefaultExport { defaultExport :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 DefaultExport where liftEq = genericLiftEq
 instance Ord1 DefaultExport where liftCompare = genericLiftCompare
@@ -259,7 +283,7 @@ instance Evaluatable DefaultExport where
 
 -- | Lookup type for a type-level key in a typescript map.
 data LookupType a = LookupType { lookupTypeIdentifier :: a, lookupTypeKey :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 LookupType where liftEq = genericLiftEq
 instance Ord1 LookupType where liftCompare = genericLiftCompare
@@ -267,64 +291,64 @@ instance Show1 LookupType where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable LookupType
 
 -- | ShorthandPropertyIdentifier used in object patterns such as var baz = { foo } to mean var baz = { foo: foo }
-newtype ShorthandPropertyIdentifier a = ShorthandPropertyIdentifier T.Text
+newtype ShorthandPropertyIdentifier a = ShorthandPropertyIdentifier { contents :: T.Text }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 ShorthandPropertyIdentifier where liftEq = genericLiftEq
 instance Ord1 ShorthandPropertyIdentifier where liftCompare = genericLiftCompare
 instance Show1 ShorthandPropertyIdentifier where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable ShorthandPropertyIdentifier
 
-data Union a = Union { _unionLeft :: !a, _unionRight :: !a }
+data Union a = Union { unionLeft :: !a, unionRight :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 Language.TypeScript.Syntax.Union where liftEq = genericLiftEq
 instance Ord1 Language.TypeScript.Syntax.Union where liftCompare = genericLiftCompare
 instance Show1 Language.TypeScript.Syntax.Union where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable Language.TypeScript.Syntax.Union
 
-data Intersection a = Intersection { _intersectionLeft :: !a, _intersectionRight :: !a }
+data Intersection a = Intersection { intersectionLeft :: !a, intersectionRight :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 Intersection where liftEq = genericLiftEq
 instance Ord1 Intersection where liftCompare = genericLiftCompare
 instance Show1 Intersection where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable Intersection
 
-data FunctionType a = FunctionType { _functionTypeParameters :: !a, _functionFormalParameters :: ![a], _functionType :: !a }
+data FunctionType a = FunctionType { functionTypeParameters :: !a, functionFormalParameters :: ![a], functionType :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 FunctionType where liftEq = genericLiftEq
 instance Ord1 FunctionType where liftCompare = genericLiftCompare
 instance Show1 FunctionType where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable FunctionType
 
-data AmbientFunction a = AmbientFunction { _ambientFunctionContext :: ![a], _ambientFunctionIdentifier :: !a, _ambientFunctionParameters :: ![a] }
+data AmbientFunction a = AmbientFunction { ambientFunctionContext :: ![a], ambientFunctionIdentifier :: !a, ambientFunctionParameters :: ![a] }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 AmbientFunction where liftEq = genericLiftEq
 instance Ord1 AmbientFunction where liftCompare = genericLiftCompare
 instance Show1 AmbientFunction where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable AmbientFunction
 
-data ImportRequireClause a = ImportRequireClause { _importRequireIdentifier :: !a, _importRequireSubject :: !a }
+data ImportRequireClause a = ImportRequireClause { importRequireIdentifier :: !a, importRequireSubject :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 ImportRequireClause where liftEq = genericLiftEq
 instance Ord1 ImportRequireClause where liftCompare = genericLiftCompare
 instance Show1 ImportRequireClause where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable ImportRequireClause
 
-newtype ImportClause a = ImportClause { _importClauseElements :: [a] }
+newtype ImportClause a = ImportClause { importClauseElements :: [a] }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 ImportClause where liftEq = genericLiftEq
 instance Ord1 ImportClause where liftCompare = genericLiftCompare
 instance Show1 ImportClause where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable ImportClause
 
-newtype Tuple a = Tuple { _tupleElements :: [a] }
+newtype Tuple a = Tuple { tupleElements :: [a] }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 Tuple where liftEq = genericLiftEq
 instance Ord1 Tuple where liftCompare = genericLiftCompare
@@ -333,144 +357,144 @@ instance Show1 Tuple where liftShowsPrec = genericLiftShowsPrec
 -- This is a tuple type, not a tuple value, so we can't lean on the shared Tuple value
 instance Evaluatable Tuple
 
-data Constructor a = Constructor { _constructorTypeParameters :: !a, _constructorFormalParameters :: ![a], _constructorType :: !a }
+data Constructor a = Constructor { constructorTypeParameters :: !a, constructorFormalParameters :: ![a], constructorType :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 Language.TypeScript.Syntax.Constructor where liftEq = genericLiftEq
 instance Ord1 Language.TypeScript.Syntax.Constructor where liftCompare = genericLiftCompare
 instance Show1 Language.TypeScript.Syntax.Constructor where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable Language.TypeScript.Syntax.Constructor
 
-data TypeParameter a = TypeParameter { _typeParameter :: !a, _typeParameterConstraint :: !a, _typeParameterDefaultType :: !a }
+data TypeParameter a = TypeParameter { typeParameter :: !a, typeParameterConstraint :: !a, typeParameterDefaultType :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 TypeParameter where liftEq = genericLiftEq
 instance Ord1 TypeParameter where liftCompare = genericLiftCompare
 instance Show1 TypeParameter where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable TypeParameter
 
-data TypeAssertion a = TypeAssertion { _typeAssertionParameters :: !a, _typeAssertionExpression :: !a }
+data TypeAssertion a = TypeAssertion { typeAssertionParameters :: !a, typeAssertionExpression :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 TypeAssertion where liftEq = genericLiftEq
 instance Ord1 TypeAssertion where liftCompare = genericLiftCompare
 instance Show1 TypeAssertion where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable TypeAssertion
 
-newtype Annotation a = Annotation { _annotationType :: a }
+newtype Annotation a = Annotation { annotationType :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 Annotation where liftEq = genericLiftEq
 instance Ord1 Annotation where liftCompare = genericLiftCompare
 instance Show1 Annotation where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable Annotation
 
-newtype Decorator a = Decorator { _decoratorTerm :: a }
+newtype Decorator a = Decorator { decoratorTerm :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 Decorator where liftEq = genericLiftEq
 instance Ord1 Decorator where liftCompare = genericLiftCompare
 instance Show1 Decorator where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable Decorator
 
-newtype ComputedPropertyName a = ComputedPropertyName a
+newtype ComputedPropertyName a = ComputedPropertyName { propertyName :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 ComputedPropertyName where liftEq = genericLiftEq
 instance Ord1 ComputedPropertyName where liftCompare = genericLiftCompare
 instance Show1 ComputedPropertyName where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable ComputedPropertyName
 
-newtype Constraint a = Constraint { _constraintType :: a }
+newtype Constraint a = Constraint { constraintType :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 Constraint where liftEq = genericLiftEq
 instance Ord1 Constraint where liftCompare = genericLiftCompare
 instance Show1 Constraint where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable Constraint
 
-newtype DefaultType a = DefaultType { _defaultType :: a }
+newtype DefaultType a = DefaultType { defaultType :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 DefaultType where liftEq = genericLiftEq
 instance Ord1 DefaultType where liftCompare = genericLiftCompare
 instance Show1 DefaultType where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable DefaultType
 
-newtype ParenthesizedType a = ParenthesizedType { _parenthesizedType :: a }
+newtype ParenthesizedType a = ParenthesizedType { parenthesizedType :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 ParenthesizedType where liftEq = genericLiftEq
 instance Ord1 ParenthesizedType where liftCompare = genericLiftCompare
 instance Show1 ParenthesizedType where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable ParenthesizedType
 
-newtype PredefinedType a = PredefinedType { _predefinedType :: T.Text }
+newtype PredefinedType a = PredefinedType { predefinedType :: T.Text }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 PredefinedType where liftEq = genericLiftEq
 instance Ord1 PredefinedType where liftCompare = genericLiftCompare
 instance Show1 PredefinedType where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable PredefinedType
 
-newtype TypeIdentifier a = TypeIdentifier T.Text
+newtype TypeIdentifier a = TypeIdentifier { contents :: T.Text }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 TypeIdentifier where liftEq = genericLiftEq
 instance Ord1 TypeIdentifier where liftCompare = genericLiftCompare
 instance Show1 TypeIdentifier where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable TypeIdentifier
 
-data NestedIdentifier a = NestedIdentifier !a !a
+data NestedIdentifier a = NestedIdentifier { left :: !a, right :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 NestedIdentifier where liftEq = genericLiftEq
 instance Ord1 NestedIdentifier where liftCompare = genericLiftCompare
 instance Show1 NestedIdentifier where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable NestedIdentifier
 
-data NestedTypeIdentifier a = NestedTypeIdentifier !a !a
+data NestedTypeIdentifier a = NestedTypeIdentifier { left :: !a, right :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 NestedTypeIdentifier where liftEq = genericLiftEq
 instance Ord1 NestedTypeIdentifier where liftCompare = genericLiftCompare
 instance Show1 NestedTypeIdentifier where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable NestedTypeIdentifier
 
-data GenericType a = GenericType { _genericTypeIdentifier :: !a, _genericTypeArguments :: !a }
+data GenericType a = GenericType { genericTypeIdentifier :: !a, genericTypeArguments :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 GenericType where liftEq = genericLiftEq
 instance Ord1 GenericType where liftCompare = genericLiftCompare
 instance Show1 GenericType where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable GenericType
 
-data TypePredicate a = TypePredicate { _typePredicateIdentifier :: !a, _typePredicateType :: !a }
+data TypePredicate a = TypePredicate { typePredicateIdentifier :: !a, typePredicateType :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 TypePredicate where liftEq = genericLiftEq
 instance Ord1 TypePredicate where liftCompare = genericLiftCompare
 instance Show1 TypePredicate where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable TypePredicate
 
-newtype ObjectType a = ObjectType { _objectTypeElements :: [a] }
+newtype ObjectType a = ObjectType { objectTypeElements :: [a] }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 ObjectType where liftEq = genericLiftEq
 instance Ord1 ObjectType where liftCompare = genericLiftCompare
 instance Show1 ObjectType where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable ObjectType
 
-data With a = With { _withExpression :: !a, _withBody :: !a }
+data With a = With { withExpression :: !a, withBody :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 With where liftEq = genericLiftEq
 instance Ord1 With where liftCompare = genericLiftCompare
 instance Show1 With where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable With
 
-newtype AmbientDeclaration a = AmbientDeclaration { _ambientDeclarationBody :: a }
+newtype AmbientDeclaration a = AmbientDeclaration { ambientDeclarationBody :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 AmbientDeclaration where liftEq = genericLiftEq
 instance Ord1 AmbientDeclaration where liftCompare = genericLiftCompare
@@ -479,8 +503,8 @@ instance Show1 AmbientDeclaration where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable AmbientDeclaration where
   eval (AmbientDeclaration body) = subtermRef body
 
-data EnumDeclaration a = EnumDeclaration { enumDeclarationIdentifier :: !a, _enumDeclarationBody :: ![a] }
+data EnumDeclaration a = EnumDeclaration { enumDeclarationIdentifier :: !a, enumDeclarationBody :: ![a] }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 EnumDeclaration where liftEq = genericLiftEq
 instance Ord1 EnumDeclaration where liftCompare = genericLiftCompare
@@ -490,88 +514,88 @@ instance Evaluatable EnumDeclaration
 instance Declarations a => Declarations (EnumDeclaration a) where
   declaredName EnumDeclaration{..} = declaredName enumDeclarationIdentifier
 
-newtype ExtendsClause a = ExtendsClause { _extendsClauses :: [a] }
+newtype ExtendsClause a = ExtendsClause { extendsClauses :: [a] }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 ExtendsClause where liftEq = genericLiftEq
 instance Ord1 ExtendsClause where liftCompare = genericLiftCompare
 instance Show1 ExtendsClause where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable ExtendsClause
 
-newtype ArrayType a = ArrayType { _arrayType :: a }
+newtype ArrayType a = ArrayType { arrayType :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 ArrayType where liftEq = genericLiftEq
 instance Ord1 ArrayType where liftCompare = genericLiftCompare
 instance Show1 ArrayType where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable ArrayType
 
-newtype FlowMaybeType a = FlowMaybeType { _flowMaybeType :: a }
+newtype FlowMaybeType a = FlowMaybeType { flowMaybeType :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 FlowMaybeType where liftEq = genericLiftEq
 instance Ord1 FlowMaybeType where liftCompare = genericLiftCompare
 instance Show1 FlowMaybeType where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable FlowMaybeType
 
-newtype TypeQuery a = TypeQuery { _typeQuerySubject :: a }
+newtype TypeQuery a = TypeQuery { typeQuerySubject :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 TypeQuery where liftEq = genericLiftEq
 instance Ord1 TypeQuery where liftCompare = genericLiftCompare
 instance Show1 TypeQuery where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable TypeQuery
 
-newtype IndexTypeQuery a = IndexTypeQuery { _indexTypeQuerySubject :: a }
+newtype IndexTypeQuery a = IndexTypeQuery { indexTypeQuerySubject :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 IndexTypeQuery where liftEq = genericLiftEq
 instance Ord1 IndexTypeQuery where liftCompare = genericLiftCompare
 instance Show1 IndexTypeQuery where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable IndexTypeQuery
 
-newtype TypeArguments a = TypeArguments { _typeArguments :: [a] }
+newtype TypeArguments a = TypeArguments { typeArguments :: [a] }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 TypeArguments where liftEq = genericLiftEq
 instance Ord1 TypeArguments where liftCompare = genericLiftCompare
 instance Show1 TypeArguments where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable TypeArguments
 
-newtype ThisType a = ThisType T.Text
+newtype ThisType a = ThisType { contents :: T.Text }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 ThisType where liftEq = genericLiftEq
 instance Ord1 ThisType where liftCompare = genericLiftCompare
 instance Show1 ThisType where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable ThisType
 
-newtype ExistentialType a = ExistentialType T.Text
+newtype ExistentialType a = ExistentialType { contents :: T.Text }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 ExistentialType where liftEq = genericLiftEq
 instance Ord1 ExistentialType where liftCompare = genericLiftCompare
 instance Show1 ExistentialType where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable ExistentialType
 
-newtype LiteralType a = LiteralType { _literalTypeSubject :: a }
+newtype LiteralType a = LiteralType { literalTypeSubject :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 LiteralType where liftEq = genericLiftEq
 instance Ord1 LiteralType where liftCompare = genericLiftCompare
 instance Show1 LiteralType where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable LiteralType
 
-data PropertySignature a = PropertySignature { _modifiers :: ![a], _propertySignaturePropertyName :: !a }
+data PropertySignature a = PropertySignature { modifiers :: ![a], propertySignaturePropertyName :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 PropertySignature where liftEq = genericLiftEq
 instance Ord1 PropertySignature where liftCompare = genericLiftCompare
 instance Show1 PropertySignature where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable PropertySignature
 
-data CallSignature a = CallSignature { _callSignatureTypeParameters :: !a, _callSignatureParameters :: ![a], _callSignatureType :: !a }
+data CallSignature a = CallSignature { callSignatureTypeParameters :: !a, callSignatureParameters :: ![a], callSignatureType :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 CallSignature where liftEq = genericLiftEq
 instance Ord1 CallSignature where liftCompare = genericLiftCompare
@@ -579,24 +603,24 @@ instance Show1 CallSignature where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable CallSignature
 
 -- | Todo: Move type params and type to context
-data ConstructSignature a = ConstructSignature { _constructSignatureTypeParameters :: !a, _constructSignatureParameters :: ![a], _constructSignatureType :: !a }
+data ConstructSignature a = ConstructSignature { constructSignatureTypeParameters :: !a, constructSignatureParameters :: ![a], constructSignatureType :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 ConstructSignature where liftEq = genericLiftEq
 instance Ord1 ConstructSignature where liftCompare = genericLiftCompare
 instance Show1 ConstructSignature where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable ConstructSignature
 
-data IndexSignature a = IndexSignature { _indexSignatureSubject :: a, _indexSignatureType :: a }
+data IndexSignature a = IndexSignature { indexSignatureSubject :: a, indexSignatureType :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 IndexSignature where liftEq = genericLiftEq
 instance Ord1 IndexSignature where liftCompare = genericLiftCompare
 instance Show1 IndexSignature where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable IndexSignature
 
-data AbstractMethodSignature a = AbstractMethodSignature { _abstractMethodSignatureContext :: ![a], _abstractMethodSignatureName :: !a, _abstractMethodSignatureParameters :: ![a] }
+data AbstractMethodSignature a = AbstractMethodSignature { abstractMethodSignatureContext :: ![a], abstractMethodSignatureName :: !a, abstractMethodSignatureParameters :: ![a] }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 AbstractMethodSignature where liftEq = genericLiftEq
 instance Ord1 AbstractMethodSignature where liftCompare = genericLiftCompare
@@ -604,15 +628,15 @@ instance Show1 AbstractMethodSignature where liftShowsPrec = genericLiftShowsPre
 instance Evaluatable AbstractMethodSignature
 
 data Debugger a = Debugger
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 Debugger where liftEq = genericLiftEq
 instance Ord1 Debugger where liftCompare = genericLiftCompare
 instance Show1 Debugger where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable Debugger
 
-data ForOf a = ForOf { _forOfBinding :: !a, _forOfSubject :: !a, _forOfBody :: !a }
+data ForOf a = ForOf { forOfBinding :: !a, forOfSubject :: !a, forOfBody :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 ForOf where liftEq = genericLiftEq
 instance Ord1 ForOf where liftCompare = genericLiftCompare
@@ -620,23 +644,23 @@ instance Show1 ForOf where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable ForOf
 
 data This a = This
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 This where liftEq = genericLiftEq
 instance Ord1 This where liftCompare = genericLiftCompare
 instance Show1 This where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable This
 
-data LabeledStatement a = LabeledStatement { _labeledStatementIdentifier :: !a, _labeledStatementSubject :: !a }
+data LabeledStatement a = LabeledStatement { labeledStatementIdentifier :: !a, labeledStatementSubject :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 LabeledStatement where liftEq = genericLiftEq
 instance Ord1 LabeledStatement where liftCompare = genericLiftCompare
 instance Show1 LabeledStatement where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable LabeledStatement
 
-newtype Update a = Update { _updateSubject :: a }
+newtype Update a = Update { updateSubject :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 Update where liftEq = genericLiftEq
 instance Ord1 Update where liftCompare = genericLiftCompare
@@ -644,7 +668,7 @@ instance Show1 Update where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable Update
 
 data Module a = Module { moduleIdentifier :: !a, moduleStatements :: ![a] }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 Module where liftEq = genericLiftEq
 instance Ord1 Module where liftCompare = genericLiftCompare
@@ -657,9 +681,8 @@ instance Evaluatable Module where
       value =<< (eval xs <* makeNamespace name addr Nothing))
 
 
-
 data InternalModule a = InternalModule { internalModuleIdentifier :: !a, internalModuleStatements :: ![a] }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 InternalModule where liftEq = genericLiftEq
 instance Ord1 InternalModule where liftCompare = genericLiftCompare
@@ -675,8 +698,8 @@ instance Declarations a => Declarations (InternalModule a) where
   declaredName InternalModule{..} = declaredName internalModuleIdentifier
 
 
-data ImportAlias a = ImportAlias { _importAliasSubject :: !a, _importAlias :: !a }
+data ImportAlias a = ImportAlias { importAliasSubject :: !a, importAlias :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 ImportAlias where liftEq = genericLiftEq
 instance Ord1 ImportAlias where liftCompare = genericLiftCompare
@@ -684,7 +707,7 @@ instance Show1 ImportAlias where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable ImportAlias
 
 data Super a = Super
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 Super where liftEq = genericLiftEq
 instance Ord1 Super where liftCompare = genericLiftCompare
@@ -692,23 +715,23 @@ instance Show1 Super where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable Super
 
 data Undefined a = Undefined
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 Undefined where liftEq = genericLiftEq
 instance Ord1 Undefined where liftCompare = genericLiftCompare
 instance Show1 Undefined where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable Undefined
 
-data ClassHeritage a = ClassHeritage { _classHeritageExtendsClause :: !a, _implementsClause :: !a }
+data ClassHeritage a = ClassHeritage { classHeritageExtendsClause :: !a, implementsClause :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 ClassHeritage where liftEq = genericLiftEq
 instance Ord1 ClassHeritage where liftCompare = genericLiftCompare
 instance Show1 ClassHeritage where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable ClassHeritage
 
-data AbstractClass a = AbstractClass { abstractClassIdentifier :: !a,  _abstractClassTypeParameters :: !a, classHeritage :: ![a], classBody :: !a }
+data AbstractClass a = AbstractClass { abstractClassIdentifier :: !a,  abstractClassTypeParameters :: !a, classHeritage :: ![a], classBody :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 AbstractClass where liftEq = genericLiftEq
 instance Ord1 AbstractClass where liftCompare = genericLiftCompare
@@ -727,104 +750,104 @@ instance Evaluatable AbstractClass where
     rvalBox =<< (v <$ bind name addr)
 
 
-data JsxElement a = JsxElement { _jsxOpeningElement :: !a,  _jsxElements :: ![a], _jsxClosingElement :: !a }
+data JsxElement a = JsxElement { jsxOpeningElement :: !a,  jsxElements :: ![a], jsxClosingElement :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 JsxElement where liftEq = genericLiftEq
 instance Ord1 JsxElement where liftCompare = genericLiftCompare
 instance Show1 JsxElement where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable JsxElement
 
-newtype JsxText a = JsxText T.Text
+newtype JsxText a = JsxText { contents :: T.Text }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 JsxText where liftEq = genericLiftEq
 instance Ord1 JsxText where liftCompare = genericLiftCompare
 instance Show1 JsxText where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable JsxText
 
-newtype JsxExpression a = JsxExpression { _jsxExpression :: a }
+newtype JsxExpression a = JsxExpression { jsxExpression :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 JsxExpression where liftEq = genericLiftEq
 instance Ord1 JsxExpression where liftCompare = genericLiftCompare
 instance Show1 JsxExpression where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable JsxExpression
 
-data JsxOpeningElement a = JsxOpeningElement { _jsxOpeningElementIdentifier :: !a,  _jsxAttributes :: ![a] }
+data JsxOpeningElement a = JsxOpeningElement { jsxOpeningElementIdentifier :: !a,  jsxAttributes :: ![a] }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 JsxOpeningElement where liftEq = genericLiftEq
 instance Ord1 JsxOpeningElement where liftCompare = genericLiftCompare
 instance Show1 JsxOpeningElement where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable JsxOpeningElement
 
-newtype JsxClosingElement a = JsxClosingElement { _jsxClosingElementIdentifier :: a }
+newtype JsxClosingElement a = JsxClosingElement { jsxClosingElementIdentifier :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 JsxClosingElement where liftEq = genericLiftEq
 instance Ord1 JsxClosingElement where liftCompare = genericLiftCompare
 instance Show1 JsxClosingElement where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable JsxClosingElement
 
-data JsxSelfClosingElement a = JsxSelfClosingElement { _jsxSelfClosingElementIdentifier :: !a, _jsxSelfClosingElementAttributes :: ![a] }
+data JsxSelfClosingElement a = JsxSelfClosingElement { jsxSelfClosingElementIdentifier :: !a, jsxSelfClosingElementAttributes :: ![a] }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 JsxSelfClosingElement where liftEq = genericLiftEq
 instance Ord1 JsxSelfClosingElement where liftCompare = genericLiftCompare
 instance Show1 JsxSelfClosingElement where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable JsxSelfClosingElement
 
-data JsxAttribute a = JsxAttribute { _jsxAttributeTarget :: !a, _jsxAttributeValue :: !a }
+data JsxAttribute a = JsxAttribute { jsxAttributeTarget :: !a, jsxAttributeValue :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 JsxAttribute where liftEq = genericLiftEq
 instance Ord1 JsxAttribute where liftCompare = genericLiftCompare
 instance Show1 JsxAttribute where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable JsxAttribute
 
-newtype ImplementsClause a = ImplementsClause { _implementsClauseTypes :: [a] }
+newtype ImplementsClause a = ImplementsClause { implementsClauseTypes :: [a] }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 ImplementsClause where liftEq = genericLiftEq
 instance Ord1 ImplementsClause where liftCompare = genericLiftCompare
 instance Show1 ImplementsClause where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable ImplementsClause
 
-data OptionalParameter a = OptionalParameter { _optionalParameterContext :: ![a], _optionalParameterSubject :: !a }
+data OptionalParameter a = OptionalParameter { optionalParameterContext :: ![a], optionalParameterSubject :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 OptionalParameter where liftEq = genericLiftEq
 instance Ord1 OptionalParameter where liftCompare = genericLiftCompare
 instance Show1 OptionalParameter where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable OptionalParameter
 
-data RequiredParameter a = RequiredParameter { _requiredParameterContext :: ![a], _requiredParameterSubject :: !a }
+data RequiredParameter a = RequiredParameter { requiredParameterContext :: ![a], requiredParameterSubject :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 RequiredParameter where liftEq = genericLiftEq
 instance Ord1 RequiredParameter where liftCompare = genericLiftCompare
 instance Show1 RequiredParameter where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable RequiredParameter
 
-data RestParameter a = RestParameter { _restParameterContext :: ![a], _restParameterSubject :: !a }
+data RestParameter a = RestParameter { restParameterContext :: ![a], restParameterSubject :: !a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 RestParameter where liftEq = genericLiftEq
 instance Ord1 RestParameter where liftCompare = genericLiftCompare
 instance Show1 RestParameter where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable RestParameter
 
-newtype JsxFragment a = JsxFragment [a]
+newtype JsxFragment a = JsxFragment { terms :: [a] }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 JsxFragment where liftEq = genericLiftEq
 instance Ord1 JsxFragment where liftCompare = genericLiftCompare
 instance Show1 JsxFragment where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable JsxFragment
 
-data JsxNamespaceName a = JsxNamespaceName a a
+data JsxNamespaceName a = JsxNamespaceName { left :: a, right :: a }
-  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
+  deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Message1, Named1, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 JsxNamespaceName where liftEq = genericLiftEq
 instance Ord1 JsxNamespaceName where liftCompare = genericLiftCompare

src/Parsing/Parser.hs

@@ -3,6 +3,8 @@ module Parsing.Parser
 ( Parser(..)
 , SomeTerm(..)
 , withSomeTerm
+, SomeSyntaxTerm
+, withSomeSyntaxTerm
 , SomeAnalysisParser(..)
 , SomeASTParser(..)
 , someParser
@@ -188,6 +190,11 @@ data SomeTerm typeclasses ann where
 withSomeTerm :: (forall syntax . ApplyAll typeclasses syntax => Term syntax ann -> a) -> SomeTerm typeclasses ann -> a
 withSomeTerm with (SomeTerm term) = with term
 
+data SomeSyntaxTerm syntax ann where
+  SomeSyntaxTerm :: Term syntax ann -> SomeSyntaxTerm syntax ann
+
+withSomeSyntaxTerm :: (forall syntax . Term syntax ann -> a) -> SomeSyntaxTerm syntax ann -> a
+withSomeSyntaxTerm with (SomeSyntaxTerm term) = with term
 
 -- | A parser for producing specialized (tree-sitter) ASTs.
 data SomeASTParser where

src/Semantic/Parse.hs

@@ -17,6 +17,8 @@ import Semantic.IO (noLanguageForBlob)
 import Semantic.Task
 import Serializing.Format
 import qualified Language.Ruby.Assignment as Ruby
+import qualified Language.TypeScript.Assignment as TypeScript
+import qualified Language.JSON.Assignment as JSON
 
 runParse :: (Member (Distribute WrappedTask) effs, Member Task effs) => TermRenderer output -> [Blob] -> Eff effs Builder
 runParse JSONTermRenderer             = withParsedBlobs (render . renderJSONTerm) >=> serialize JSON
@@ -25,11 +27,21 @@ runParse ShowTermRenderer             = withParsedBlobs (const (serialize Show))
 runParse (SymbolsTermRenderer fields) = withParsedBlobs (\ blob -> decorate (declarationAlgebra blob) >=> render (renderSymbolTerms . renderToSymbols fields blob)) >=> serialize JSON
 runParse DOTTermRenderer              = withParsedBlobs (const (render renderTreeGraph)) >=> serialize (DOT (termStyle "terms"))
 
-runRawParse :: Member (Distribute WrappedTask) effs => [Blob] -> Eff effs [Term (Sum Ruby.Syntax) ()]
+runRubyParse :: Member (Distribute WrappedTask) effs => [Blob] -> Eff effs [Term (Sum Ruby.Syntax) ()]
-runRawParse = flip distributeFor (\ blob -> WrapTask (do
+runRubyParse = flip distributeFor (\ blob -> WrapTask (do
     term <- parse rubyParser blob
     pure (() <$ term)))
 
+runTypeScriptParse :: Member (Distribute WrappedTask) effs => [Blob] -> Eff effs [Term (Sum TypeScript.Syntax) ()]
+runTypeScriptParse = flip distributeFor (\ blob -> WrapTask (do
+    term <- parse typescriptParser blob
+    pure (() <$ term)))
+
+runJSONParse :: Member (Distribute WrappedTask) effs => [Blob] -> Eff effs [Term (Sum JSON.Syntax) ()]
+runJSONParse = flip distributeFor (\ blob -> WrapTask (do
+    term <- parse jsonParser blob
+    pure (() <$ term)))
+
 withParsedBlobs :: (Member (Distribute WrappedTask) effs, Monoid output) => (forall syntax . (ConstructorName syntax, Foldable syntax, Functor syntax, HasDeclaration syntax, HasPackageDef syntax, Show1 syntax, ToJSONFields1 syntax) => Blob -> Term syntax (Record Location) -> TaskEff output) -> [Blob] -> Eff effs output
 withParsedBlobs render = distributeFoldMap (\ blob -> WrapTask (parseSomeBlob blob >>= withSomeTerm (render blob)))
 

src/Semantic/Task.hs

@@ -63,6 +63,7 @@ import           Data.ByteString.Builder
 import           Data.Diff
 import qualified Data.Error as Error
 import           Data.Record
+import           Data.Source (Source)
 import           Data.Sum
 import qualified Data.Syntax as Syntax
 import           Data.Term
@@ -195,14 +196,41 @@ runParser blob@Blob{..} parser = case parser of
       parseToAST (configTreeSitterParseTimeout config) language blob
         >>= maybeM (throwError (SomeException ParserTimedOut))
 
-  AssignmentParser parser assignment -> do
+  AssignmentParser    parser assignment -> runAssignment Assignment.assign    parser assignment
+  DeterministicParser parser assignment -> runAssignment Deterministic.assign parser assignment
+
+  MarkdownParser ->
+    time "parse.cmark_parse" languageTag $
+      let term = cmarkParser blobSource
+      in length term `seq` pure term
+  SomeParser parser -> SomeTerm <$> runParser blob parser
+  where blobFields = ("path", blobPath) : languageTag
+        languageTag = pure . (,) ("language" :: String) . show $ blobLanguage
+        errors :: (Syntax.Error :< fs, Apply Foldable fs, Apply Functor fs) => Term (Sum fs) (Record Assignment.Location) -> [Error.Error String]
+        errors = cata $ \ (In a syntax) -> case syntax of
+          _ | Just err@Syntax.Error{} <- project syntax -> [Syntax.unError (getField a) err]
+          _ -> fold syntax
+        runAssignment :: ( Apply Foldable syntaxes
+                         , Apply Functor syntaxes
+                         , Element Syntax.Error syntaxes
+                         , Member (Exc SomeException) effs
+                         , Member IO effs
+                         , Member (Reader Config) effs
+                         , Member Telemetry effs
+                         , Member Trace effs
+                         )
+                      => (Source -> assignment (Term (Sum syntaxes) (Record Assignment.Location)) -> ast -> Either (Error.Error String) (Term (Sum syntaxes) (Record Assignment.Location)))
+                      -> Parser ast
+                      -> assignment (Term (Sum syntaxes) (Record Assignment.Location))
+                      -> Eff effs (Term (Sum syntaxes) (Record Assignment.Location))
+        runAssignment assign parser assignment = do
           ast <- runParser blob parser `catchError` \ (SomeException err) -> do
             writeStat (increment "parse.parse_failures" languageTag)
             writeLog Error "failed parsing" (("task", "parse") : blobFields)
             throwError (toException err)
           config <- ask
           time "parse.assign" languageTag $
-      case Assignment.assign blobSource assignment ast of
+            case assign blobSource assignment ast of
               Left err -> do
                 writeStat (increment "parse.assign_errors" languageTag)
                 logError config Error blob err (("task", "assign") : blobFields)
@@ -216,41 +244,4 @@ runParser blob@Blob{..} parser = case parser of
                     writeStat (increment "parse.assign_warnings" languageTag)
                     logError config Warning blob err (("task", "assign") : blobFields)
                     when (optionsFailOnWarning (configOptions config)) $ throwError (toException err)
-          writeStat (count "parse.nodes" (length term) languageTag)
+                term <$ writeStat (count "parse.nodes" (length term) languageTag)
-          pure term
-
-  DeterministicParser parser assignment -> do
-    ast <- runParser blob parser `catchError` \ (SomeException err) -> do
-      writeStat (increment "parse.parse_failures" languageTag)
-      writeLog Error "failed parsing" (("task", "parse") : blobFields)
-      throwError (toException err)
-    config <- ask
-    time "parse.assign_deterministic" languageTag $
-      case Deterministic.assign assignment blobSource ast of
-        Left err -> do
-          writeStat (increment "parse.assign_deterministic_errors" languageTag)
-          logError config Error blob err (("task", "assign") : blobFields)
-          throwError (toException err)
-        Right term -> do
-          for_ (errors term) $ \ err -> case Error.errorActual err of
-              Just "ParseError" -> do
-                writeStat (increment "parse.parse_errors" languageTag)
-                logError config Warning blob err (("task", "parse") : blobFields)
-              _ -> do
-                writeStat (increment "parse.assign_deterministic_warnings" languageTag)
-                logError config Warning blob err (("task", "assign") : blobFields)
-                when (optionsFailOnWarning (configOptions config)) $ throwError (toException err)
-          writeStat (count "parse.nodes" (length term) languageTag)
-          pure term
-
-  MarkdownParser ->
-    time "parse.cmark_parse" languageTag $
-      let term = cmarkParser blobSource
-      in length term `seq` pure term
-  SomeParser parser -> SomeTerm <$> runParser blob parser
-  where blobFields = ("path", blobPath) : languageTag
-        languageTag = pure . (,) ("language" :: String) . show $ blobLanguage
-        errors :: (Syntax.Error :< fs, Apply Foldable fs, Apply Functor fs) => Term (Sum fs) (Record Assignment.Location) -> [Error.Error String]
-        errors = cata $ \ (In a syntax) -> case syntax of
-          _ | Just err@Syntax.Error{} <- project syntax -> [Syntax.unError (getField a) err]
-          _ -> fold syntax

test/Proto3/Roundtrip.hs

@@ -21,8 +21,8 @@ shouldRoundtrip :: (Eq a, Show a, Message a) => a -> Expectation
 shouldRoundtrip a = go a `shouldBe` Right a
   where go = fromByteString . L.toStrict . toLazyByteString
 
-shouldRoundtrip' :: forall f a. (Show (f a), Eq (f a), Show1 f, Eq1 f, Eq a, Show a, Message1 f, Message a) => f a -> Expectation
+shouldRoundtrip1 :: forall f a. (Show (f a), Eq (f a), Show1 f, Eq1 f, Eq a, Show a, Message1 f, Message a) => f a -> Expectation
-shouldRoundtrip' a = go a `shouldBe` Right a
+shouldRoundtrip1 a = go a `shouldBe` Right a
   where go = fromByteString1 . L.toStrict . toLazyByteString1
 
 spec :: Spec
@@ -33,19 +33,19 @@ spec = parallel $ do
 
   describe "nulls" $
     prop "roundtrips" $
-      \sp -> shouldRoundtrip' @Literal.Null @(Term (Sum Syntax) ()) (unListableF sp)
+      \sp -> shouldRoundtrip1 @Literal.Null @(Term (Sum Syntax) ()) (unListableF sp)
 
   describe "text elements" $
     prop "roundtrips" $
-      \sp -> shouldRoundtrip' @Literal.TextElement @(Term (Sum Syntax) ()) (unListableF sp)
+      \sp -> shouldRoundtrip1 @Literal.TextElement @(Term (Sum Syntax) ()) (unListableF sp)
 
   describe "floats" $
     prop "roundtrips" $
-      \sp -> shouldRoundtrip' @Literal.Float @(Term (Sum Syntax) ()) (unListableF sp)
+      \sp -> shouldRoundtrip1 @Literal.Float @(Term (Sum Syntax) ()) (unListableF sp)
 
   describe "booleans" $
     prop "roundtrips" $
-      \sp -> shouldRoundtrip' @Literal.Boolean @(Term (Sum Syntax) ()) (unListableF sp)
+      \sp -> shouldRoundtrip1 @Literal.Boolean @(Term (Sum Syntax) ()) (unListableF sp)
 
   describe "terms of syntax" $
     prop "roundtrips" $
@@ -53,19 +53,19 @@ spec = parallel $ do
 
   describe "arrays" $
     prop "roundtrips" $
-      \sp -> shouldRoundtrip' @Literal.Array @(Term (Sum Syntax) ()) (unListableF sp)
+      \sp -> shouldRoundtrip1 @Literal.Array @(Term (Sum Syntax) ()) (unListableF sp)
 
   describe "key values" $
     prop "roundtrips" $
-      \sp -> shouldRoundtrip' @Literal.KeyValue @(Term (Sum Syntax) ()) (unListableF sp)
+      \sp -> shouldRoundtrip1 @Literal.KeyValue @(Term (Sum Syntax) ()) (unListableF sp)
 
   describe "statements" $
     prop "roundtrips" $
-      \sp -> shouldRoundtrip @(Term (Sum '[Statement.Statements, Literal.Null]) ()) (unListableF sp)
+      \sp -> shouldRoundtrip @(Term (Sum Syntax) ()) (unListableF sp)
 
   describe "statements1" $
     prop "roundtrips" $
-      \sp -> shouldRoundtrip' @Statement.Statements @(Term (Sum '[Statement.Statements, Literal.Null]) ()) (unListableF sp)
+      \sp -> shouldRoundtrip1 @Statement.Statements @(Term (Sum Syntax) ()) (unListableF sp)
 
   describe "blobs" $ do
     it "should roundtrip given a Message instance" $ do

test/fixtures/javascript/corpus/import.diffB-A.txt

@@ -3,8 +3,7 @@
 {+(QualifiedAliasedImport
   {+(Identifier)+})+}
 {+(Import)+}
-{ (Import)
+{+(Import)+}
-->(Import) }
 {+(Import)+}
 {+(Statements
   {+(Import)+}
@@ -14,6 +13,7 @@
   {+(QualifiedAliasedImport
     {+(Identifier)+})+})+}
 {+(SideEffectImport)+}
+{-(Import)-}
 {-(QualifiedAliasedImport
   {-(Identifier)-})-}
 {-(Import)-}

test/fixtures/typescript/corpus/import.diffB-A.txt

@@ -3,8 +3,7 @@
 {+(QualifiedAliasedImport
   {+(Identifier)+})+}
 {+(Import)+}
-{ (Import)
+{+(Import)+}
-->(Import) }
 {+(Import)+}
 {+(Statements
   {+(Import)+}
@@ -14,10 +13,9 @@
   {+(QualifiedAliasedImport
     {+(Identifier)+})+})+}
 {+(SideEffectImport)+}
-{+(QualifiedAliasedImport
+{+(QualifiedAliasedImport{+(Identifier)+})+}
-  {+(Identifier)+})+}
+{-(Import)-}
-{-(QualifiedAliasedImport
+{-(QualifiedAliasedImport{-(Identifier)-})-}
-  {-(Identifier)-})-}
 {-(Import)-}
 {-(Import)-}
 {-(Import)-}

vendor/grpc-haskell

@@ -1 +1 @@
-Subproject commit 9cf03f1f54d912ac21e8d45b5fcc03d9de957414
+Subproject commit 2e6c99bb2512548b59505631b6c89e489b92e638