@@ -68,11 +68,14 @@ import Data.Vector (Vector)
6868import qualified Data.HashMap.Strict as H
6969import qualified Data.Vector as V
7070
71−-- | Elements of JSON path used to describe error location
72−data JSONPathElement = -- ^ "object.key" JSON path element
73− Key Text
74− -- ^ "array[index]" JSON path element
75− | Index {-# UNPACK #-} !Int
71+-- | Elements of a JSON path used to describe the location of an
72+-- error.
73+data JSONPathElement = Key Text
74+ -- ^ JSON path element of a key into an object,
75+ -- \"object.key\".
76+ | Index {-# UNPACK #-} !Int
77+ -- ^ JSON path element of an index into an
78+ -- array, \"array[index]\".
7679 deriving (Eq, Show, Typeable)
7780type JSONPath = [JSONPathElement]
7881