diff --git a/src/Language/JSON/Syntax.hs b/src/Language/JSON/Syntax.hs index b51bbf4a9..fa207365e 100644 --- a/src/Language/JSON/Syntax.hs +++ b/src/Language/JSON/Syntax.hs @@ -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