Skip to content

Instantly share code, notes, and snippets.

@tonyday567

tonyday567/json.hs

Last active August 29, 2015 13:57
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save tonyday567/9750114 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save tonyday567/9750114 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. tonyday567 revised this gist Mar 24, 2014. 1 changed file with 0 additions and 1 deletion.
    1 change: 0 additions & 1 deletion json.hs
    View file
    Original file line number Diff line number Diff line change
    @@ -5,7 +5,6 @@ import GHC.Generics
    import Control.Applicative
    import Data.Text.Encoding
    import Data.Aeson
    import Data.Aeson.Generic
    import Data.Aeson.Types
    import qualified Data.ByteString as B
    import qualified Data.ByteString.Lazy as LB
  2. tonyday567 created this gist Mar 24, 2014.
    18 changes: 18 additions & 0 deletions json.hs
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,18 @@
    {-# LANGUAGE DeriveGeneric #-}
    {-# LANGUAGE DefaultSignatures #-}

    import GHC.Generics
    import Control.Applicative
    import Data.Text.Encoding
    import Data.Aeson
    import Data.Aeson.Generic
    import Data.Aeson.Types
    import qualified Data.ByteString as B
    import qualified Data.ByteString.Lazy as LB

    main = undefined

    data A = A { x :: B.ByteString} deriving Generic

    instance ToJSON A
    instance FromJSON A