@@ -216,11 +216,11 @@ parseMaybe m v = runParser (m v) (const Nothing) Just
216216-- | Run a 'Parser' with an 'Either' result type.
217217parseEither :: (a -> Parser b) -> a -> Either String b
218218parseEither m v = runParser (m v) Left Right
219+{-# INLINE parseEither #-}
219220
220221-- | A key\/value pair for an 'Object'.
221222type Pair = (Text, Value)
222223
223−{-# INLINE parseEither #-}
224224-- | Create a 'Value' from a list of name\/value 'Pair's. If duplicate
225225-- keys arise, earlier keys and their associated values win.
226226object :: [Pair] -> Value