@@ -216,11 +216,11 @@ parseMaybe m v = runParser (m v) (const Nothing) Just
216-- | Run a 'Parser' with an 'Either' result type.
216-- | Run a 'Parser' with an 'Either' result type.
217parseEither :: (a -> Parser b) -> a -> Either String b
217parseEither :: (a -> Parser b) -> a -> Either String b
218parseEither m v = runParser (m v) Left Right
218parseEither m v = runParser (m v) Left Right
219+{-# INLINE parseEither #-}
220-- | A key\/value pair for an 'Object'.
221-- | A key\/value pair for an 'Object'.
221type Pair = (Text, Value)
222type Pair = (Text, Value)
223−{-# INLINE parseEither #-}
224-- | Create a 'Value' from a list of name\/value 'Pair's. If duplicate
224-- | Create a 'Value' from a list of name\/value 'Pair's. If duplicate
225-- keys arise, earlier keys and their associated values win.
225-- keys arise, earlier keys and their associated values win.
226object :: [Pair] -> Value
226object :: [Pair] -> Value