git.iko.soy/elk
on master help sign in
Switch to N.Name in more cases
6aa367fEvan Czaplicki
src/AST/Expression/Source.hs+6−6
compare with master
unifiedsplit
@@ -61,8 +61,8 @@ data Expr_
61
61
62
62
63data Def
63data Def
64− = Annotate Text Type.Raw
64+ = Annotate N.Name Type.Raw
65− | Define Text [Ptrn.Raw] Expr
65+ | Define N.Name [Ptrn.Raw] Expr
66 | Destruct Ptrn.Raw Expr
66 | Destruct Ptrn.Raw Expr
67
67
68
68
@@ -74,7 +74,7 @@ type Decl = A.Located Decl_
74
74
75
75
76data Decl_
76data Decl_
77− = Union (A.Located N.Name) [A.Located N.Name] [(A.Located Text, [Type.Raw])]
77+ = Union (A.Located N.Name) [A.Located N.Name] [(A.Located N.Name, [Type.Raw])]
78 | Alias (A.Located N.Name) [A.Located N.Name] Type.Raw
78 | Alias (A.Located N.Name) [A.Located N.Name] Type.Raw
79 | Binop (A.Located N.Name) Binop.Associativity Binop.Precedence N.Name
79 | Binop (A.Located N.Name) Binop.Associativity Binop.Precedence N.Name
80 | Port (A.Located N.Name) Type.Raw
80 | Port (A.Located N.Name) Type.Raw
@@ -141,9 +141,9 @@ data Exposing
141
141
142
142
143data Exposed
143data Exposed
144− = Lower !Text
144+ = Lower !N.Name
145− | Upper !Text !Privacy
145+ | Upper !N.Name !Privacy
146− | Operator !Text
146+ | Operator !N.Name
147
147
148
148
149data Privacy
149data Privacy