@@ -114,7 +114,7 @@ data JSONPathElement = Key Text
114114 | Index {-# UNPACK #-} !Int
115115 -- ^ JSON path element of an index into an
116116 -- array, \"array[index]\".
117− deriving (Eq, Show, Typeable)
117+ deriving (Eq, Show, Typeable, Ord)
118118type JSONPath = [JSONPathElement]
119119
120120-- | The internal result of running a 'Parser'.