mirror of
https://github.com/github/semantic.git
synced 2024-12-20 21:31:48 +03:00
Sort Syntax in JSON parser
This commit is contained in:
parent
83e816b04f
commit
00205c3d26
@ -18,17 +18,17 @@ import GHC.Stack
|
||||
import Prologue hiding (Location)
|
||||
|
||||
type Syntax =
|
||||
'[ Literal.Hash
|
||||
, Literal.KeyValue
|
||||
, Literal.Null
|
||||
, Literal.String
|
||||
, Literal.TextElement
|
||||
, Syntax.Error
|
||||
, Literal.Array
|
||||
, Literal.Boolean
|
||||
, Literal.Float
|
||||
, []
|
||||
]
|
||||
[ Literal.Array
|
||||
, Literal.Boolean
|
||||
, Literal.Hash
|
||||
, Literal.Float
|
||||
, Literal.KeyValue
|
||||
, Literal.Null
|
||||
, Literal.String
|
||||
, Literal.TextElement
|
||||
, Syntax.Error
|
||||
, []
|
||||
]
|
||||
|
||||
type Term = Term.Term (Union Syntax) (Record Location)
|
||||
type Assignment = HasCallStack => Assignment.Assignment (AST Grammar) Grammar Term
|
||||
|
Loading…
Reference in New Issue
Block a user