aeson-utils (empty) → 0.2.1

raw patch · 4 files changed

+117/−0 lines, 4 filesdep +aesondep +attoparsecdep +basesetup-changed

Dependencies added: aeson, attoparsec, base, bytestring, scientific, text

Files

LICENSE +30/−0
Setup.hs +2/−0
aeson-utils.cabal +30/−0
src/Data/Aeson/Utils.hs +55/−0

+ LICENSE view

@@ -0,0 +1,30 @@+Copyright (c) 2014, Silk B.V.++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright+      notice, this list of conditions and the following disclaimer.++    * Redistributions in binary form must reproduce the above+      copyright notice, this list of conditions and the following+      disclaimer in the documentation and/or other materials provided+      with the distribution.++    * Neither the name of Silk nor the names of other+      contributors may be used to endorse or promote products derived+      from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

+ Setup.hs view

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

+ aeson-utils.cabal view

@@ -0,0 +1,30 @@+name:                aeson-utils+version:             0.2.1+synopsis:            Utilities for working with Aeson.+description:         Utilities for working with Aeson.+license:             BSD3+license-file:        LICENSE+author:              Silk. B.V.+maintainer:          code@silk.co+copyright:           2014, Silk B.V+category:            Data+build-type:          Simple+cabal-version:       >=1.10++library+  hs-source-dirs:   src+  default-language: Haskell2010+  ghc-options:      -Wall+  exposed-modules:+    Data.Aeson.Utils+  build-depends:+      base                 == 4.*+    , aeson                >= 0.6  && < 0.8+    , attoparsec           >= 0.10 && < 0.12+    , bytestring           >= 0.9 && < 0.11+    , scientific           == 0.2.*+    , text                 >= 0.11 && < 1.2++source-repository head+  type:              Git+  location:          https://github.com/silkapp/aeson-utils.git

+ src/Data/Aeson/Utils.hs view

@@ -0,0 +1,55 @@+{-# LANGUAGE CPP #-}++-- | This module provides a few small functions to make working with+-- aeson easier. Hopefully at some point they won't be needed anymore.+module Data.Aeson.Utils+  ( module Data.Aeson+  , module Data.Aeson.Types+  -- * Parsing values+  , decodeV+  , eitherDecodeV+  -- * Utilities+  , fromFloatDigits+  , (.=?)+  , parseNumber+  ) where++import Data.Aeson+import Data.Aeson.Parser (value)+import Data.Aeson.Types+import Data.Scientific+import Data.Text            (Text)+import Data.Attoparsec.Lazy (Result (..))+import qualified Data.Attoparsec.Lazy as Atto+import qualified Data.ByteString.Lazy as L++-- * Parsing values++-- | Like 'decodeV', but returns an error message when decoding fails.+eitherDecodeV :: FromJSON a => L.ByteString -> Either String a+eitherDecodeV v = case Atto.parse value v of+  Fail _ _ err -> Left err+  Done _ r     -> case fromJSON r of+    Error e   -> Left e+    Success a -> Right a++-- | Deserialize any JSON value. Allows atomic values on the top level+decodeV :: FromJSON a => L.ByteString -> Maybe a+decodeV = either (const Nothing) Just . eitherDecodeV++-- * Utilities++-- | Optionally create a Pair.+(.=?) :: ToJSON a => Text -> Maybe a -> Maybe Pair+k .=? v = fmap (k .=) v+{-# INLINE (.=?) #-}++-- | Convert a Scientific into an Integer if it doesn't have decimal points,+-- otherwise to a Double.+parseNumber :: Scientific -> Either Integer Double+parseNumber n+    | e >= 0    = Left $ c * 10 ^ e+    | otherwise = Right $ realToFrac n+  where+    e = base10Exponent n+    c = coefficient n