{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE DeriveGeneric #-}

import Data.Aeson
import GHC.Generics
import qualified Data.ByteString.Lazy as B

data  Tweet  =  Tweet {
                        id_str :: String,
                        text   :: String
                      }deriving Generic


instance FromJSON Tweet 


main = do
  input <- B.readFile "1.json"
  let mm = decode input :: Maybe Tweet
  case mm of
    Nothing -> print "error parsing JSON"
    Just m -> (putStrLn.greet) m
   
greet m = (show.id_str) m