module Web.Last.Event where

import Control.Applicative
import Control.Arrow

import Web.Last.Types
import Web.Last.Request
import qualified Web.Last.Parsing as P
import Text.JSON.Combinators

-- attend needs auth

getInfo :: String -> Last Event
getInfo event = anonRequest "event.getinfo" [("event",event)] [] pa
    where pa = objOf $ ll "event" P.event

getShouts :: String -> Last [Shout]
getShouts event = anonRequest "event.getshouts" [("event",event)] [] pa
    where pa = objOf $ inObj "shouts" $ llArr "shout" P.shout

-- share needs auth