createStation pw@(PandoraWorld {..}) t = do
    let target = endpoint
        csToken = t
    resp <- postIt' pw "station.createStation" $ CreateStation {..}

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

    return $ prResult $ resp'
createStation pw@(PandoraWorld {..}) t = do
    let target = endpoint
        csToken = t
    resp <- postIt' pw "station.createStation" $ CreateStation {..}

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

    return $ prResult $ resp'
createStation pw@(PandoraWorld {..}) t = do
    let target = endpoint
        csToken = t
    resp <- postIt' pw "station.createStation" $ CreateStation {..}

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

    return $ prResult $ resp'