getStationList pw@(PandoraWorld {..}) = do
    let target = endpoint
        slIncludeStationArtUrl = True
    resp <- postIt' pw "user.getStationList" $ StationList {..}

    let Just (Right resp') = fmap J.eitherDecode $ resp ^? responseBody :: Maybe (Either String (PandoraReply StationListReply))

    return $ slrStations $ prResult $ resp'
getStationList pw@(PandoraWorld {..}) = do
    let target = endpoint
        slIncludeStationArtUrl = True
    resp <- postIt' pw "user.getStationList" $ StationList {..}

    let Just (Right resp') = fmap J.eitherDecode $ resp ^? responseBody :: Maybe (Either String (PandoraReply StationListReply))

    return $ slrStations $ prResult $ resp'
getStationList pw@(PandoraWorld {..}) = do
    let target = endpoint
        slIncludeStationArtUrl = True
    resp <- postIt' pw "user.getStationList" $ StationList {..}

    let Just (Right resp') = fmap J.eitherDecode $ resp ^? responseBody :: Maybe (Either String (PandoraReply StationListReply))

    return $ slrStations $ prResult $ resp'