From 00205c3d2686f3d2a35beb17950be12b1ba42a88 Mon Sep 17 00:00:00 2001 From: joshvera Date: Thu, 20 Jul 2017 11:04:13 -0400 Subject: [PATCH] Sort Syntax in JSON parser --- src/Language/JSON/Syntax.hs | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) 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