Json encoding

gistfile1.hs

{-# LANGUAGE OverloadedStrings #-}

module Test where

import Data.Aeson
import Data.ByteString.Lazy.Char8 as B

data Auto = Auto {firm :: String, year :: Int, price :: Int, sellers :: [String]}
     deriving (Show)

instance ToJSON Auto where
    toJSON (Auto firm year price sellers) = object [ "firm"  .= firm, 
                                                     "year"  .= year, 
                                                     "price" .= price,
                                                     "sellers" .= sellers
                                                   ]

main = do
   let test = encode $ Auto "Audi" 2000 100000 ["Firm1", "Firm2"]
   B.putStrLn test