json_template_haskell_example_1.hs

module Meetup.Types.Event where
 
import Data.Text
import Data.Aeson
import Control.Applicative  ((<$>), (<*>))
import Control.Monad        (mzero)
import Data.ByteString.Lazy
 
data Event = Event { name        :: Text
		   , created     :: Int
		   , event_url   :: Text
		   } deriving (Show, Eq)
 
instance FromJSON Event where
  parseJSON (Object v) = Event
                          <$> v .: "name"
                          <*> v .: "created"
                          <*> v .: "event_url"
  parseJSON _          = mzero
 
 
-- Sample
sampleEvent = do
	sample_event_json <- Data.ByteString.Lazy.readFile "responses/event.json"
	let event = decode sample_event_json :: Maybe Event
	return event