searchStation pw@(PandoraWorld {..}) t = do
    let target = endpoint
        msSearchText = t
    resp <- postIt' pw "music.search" $ MusicSearch {..}

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

    return $ prResult $ resp'
searchStation pw@(PandoraWorld {..}) t = do
    let target = endpoint
        msSearchText = t
    resp <- postIt' pw "music.search" $ MusicSearch {..}

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

    return $ prResult $ resp'
searchStation pw@(PandoraWorld {..}) t = do
    let target = endpoint
        msSearchText = t
    resp <- postIt' pw "music.search" $ MusicSearch {..}

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

    return $ prResult $ resp'