Permalink
Browse files

Tweaklet

  • Loading branch information...
1 parent 5f308dc commit 61dab8f0c1d7275edee5b155c2c99560caadcd7c @bos committed Feb 12, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 Data/Aeson/Types/Internal.hs
@@ -216,11 +216,11 @@ parseMaybe m v = runParser (m v) (const Nothing) Just
-- | 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

0 comments on commit 61dab8f

Please sign in to comment.