aeson-toolkit 0.0.0 → 0.0.1

raw patch · 2 files changed

+9/−2 lines, 2 files

Files

• aeson-toolkit.cabal +1/−1
• src/Data/Aeson/Toolkit.hs +8/−1

@@ -1,5 +1,5 @@ name:             aeson-toolkit-version:          0.0.0+version:          0.0.1 license:          MIT license-file:     LICENSE copyright:        (c) 2013 Simon Hengel

@@ -1,4 +1,5 @@-{-# LANGUAGE FlexibleContexts #-}+{-# LANGUAGE FlexibleContexts, FlexibleInstances, MultiParamTypeClasses #-}+{-# OPTIONS_GHC -fno-warn-orphans #-} module Data.Aeson.Toolkit where  import           Data.Text (Text)@@ -6,6 +7,12 @@ import           Control.Failure import           Data.Aeson as Aeson import           Data.Aeson.Types++instance Failure String Parser where+  failure = fail++instance Failure String Result where+  failure = Error  decode :: (FromJSON a, Failure String m) => L.ByteString -> m a decode = either failure return . eitherDecode