aeson-json-ast (empty) → 0.1

raw patch · 4 files changed

+106/−0 lines, 4 filesdep +aesondep +basedep +json-astsetup-changed

Dependencies added: aeson, base, json-ast

Files

• LICENSE +22/−0
• Setup.hs +2/−0
• aeson-json-ast.cabal +46/−0
• library/Data/Aeson/JSONAST.hs +36/−0

@@ -0,0 +1,22 @@+Copyright (c) 2016, Sannsyn AS++Permission is hereby granted, free of charge, to any person+obtaining a copy of this software and associated documentation+files (the "Software"), to deal in the Software without+restriction, including without limitation the rights to use,+copy, modify, merge, publish, distribute, sublicense, and/or sell+copies of the Software, and to permit persons to whom the+Software is furnished to do so, subject to the following+conditions:++The above copyright notice and this permission notice shall be+included in all copies or substantial portions of the Software.++THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES+OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT+HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,+WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING+FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR+OTHER DEALINGS IN THE SOFTWARE.

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

@@ -0,0 +1,46 @@+name:+  aeson-json-ast+version:+  0.1+synopsis:+  Integration layer for "json-ast" and "aeson"+description:+homepage:+  https://github.com/sannsyn/aeson-json-ast +bug-reports:+  https://github.com/sannsyn/aeson-json-ast/issues +author:+  Nikita Volkov <nikita.y.volkov@mail.ru>+maintainer:+  Nikita Volkov <nikita.y.volkov@mail.ru>+copyright:+  (c) 2016, Sannsyn AS+license:+  MIT+license-file:+  LICENSE+build-type:+  Simple+cabal-version:+  >=1.10+++source-repository head+  type:+    git+  location:+    git://github.com/sannsyn/aeson-json-ast.git+++library+  hs-source-dirs:+    library+  default-language:+    Haskell2010+  other-modules:+  exposed-modules:+    Data.Aeson.JSONAST+  build-depends:+    json-ast >= 0.2 && < 0.4,+    aeson >= 0.8 && < 0.12,+    base >= 4.6 && < 5

@@ -0,0 +1,36 @@+-- |+-- This module exports 'FromJSON' and 'ToJSON' instance for 'JSONAST.JSON',+-- as well as the conversion utilities.+-- All of them bear zero runtime overhead compared to+-- the native Aeson 'Value',+-- because they are implemented using type coersion.+module Data.Aeson.JSONAST where++import Unsafe.Coerce+import Data.Aeson+import qualified JSONAST+++{-# INLINE jsonToValue #-}+jsonToValue :: JSONAST.JSON -> Value+jsonToValue =+  unsafeCoerce++{-# INLINE valueToJSON #-}+valueToJSON :: Value -> JSONAST.JSON+valueToJSON =+  unsafeCoerce++instance ToJSON JSONAST.JSON where+  {-# INLINE toJSON #-}+  toJSON =+    jsonToValue+  {-# INLINE toEncoding #-}+  toEncoding =+    toEncoding . jsonToValue++instance FromJSON JSONAST.JSON where+  {-# INLINE parseJSON #-}+  parseJSON =+    fmap valueToJSON .+    parseJSON