module Test.Last where

import Prelude hiding ((.),id)
import Control.Category
import Control.Applicative
import Control.Monad.Error
import Data.Partial

import Web.Last
import Web.Last.Types
import qualified Web.Last.Parsing as P
import Web.Last.Request

import qualified Web.Last.Artist as Artist
import qualified Web.Last.Album as Album
import qualified Web.Last.Event as Event
import qualified Web.Last.Group as Group
import qualified Web.Last.Geo as Geo
import qualified Web.Last.Library as Library
import qualified Web.Last.Playlist as Playlist
import qualified Web.Last.Tag as Tag
import qualified Web.Last.Tasteometer as Tasteometer
import qualified Web.Last.Venue as Venue

import Text.JSON
import Text.JSON.Pretty
import Text.JSON.String
import Text.JSON.Combinators

import Network.Curl

eitherToIO (Right a) = return a
eitherToIO (Left e) = throwError (strMsg e)

prettyFetchJSON url = print . pp_value =<< eitherToIO =<< fetchJSON url

testAnon l = eitherToIO =<< runLast l (LastState "b25b959554ed76058ac220b7b2e0a026" undefined Nothing)
testPages l = testAnon $ (fmap concat . sequence . pages) =<< l

-- ### Venue ###