Commits

Bryan O'Sullivan committed e1b96a2

Tweaklet

Comments (0)

Files changed (1)

Data/Aeson/Types/Internal.hs

 -- | Run a 'Parser' with an 'Either' result type.
 parseEither :: (a -> Parser b) -> a -> Either String b
 parseEither m v = runParser (m v) Left Right
+{-# INLINE parseEither #-}
 
 -- | A key\/value pair for an 'Object'.
 type Pair = (Text, Value)
 
-{-# INLINE parseEither #-}
 -- | Create a 'Value' from a list of name\/value 'Pair's.  If duplicate
 -- keys arise, earlier keys and their associated values win.
 object :: [Pair] -> Value