Skip to content

Instantly share code, notes, and snippets.

<?xml version="1.0" encoding="utf-8"?>
<ServiceMetadataFiles>
<ServiceMetadataFile name="developer.atlassian.com.rpc.soap-axis.confluenceservice-v2.wsdl">
<wsdl:definitions xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:intf="https://developer.atlassian.com/rpc/soap-axis/confluenceservice-v2" xmlns:apachesoap="http://xml.apache.org/xml-soap" xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:tns1="http://rpc.confluence.atlassian.com" xmlns:tns2="http://beans.soap.rpc.confluence.atlassian.com" xmlns:impl="https://developer.atlassian.com/rpc/soap-axis/confluenceservice-v2" targetNamespace="https://developer.atlassian.com/rpc/soap-axis/confluenceservice-v2" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
<wsdl:types>
<schema xmlns="http://www.w3.org/2001/XMLSchema" targetNamespace="https://developer.atlassian.com/rpc/soap-axis/confluenceservice-v2">
<import namespace="http://beans.soap.rpc.confluence.atlassian.co
type System.Net.WebClient with
member inline internal this.DownloadWithWebClient(addHandler, removeHandler, extract, start) =
let downloadAsync =
Async.FromContinuations (fun (cont, econt, ccont) ->
let userToken = new obj()
let rec handler (_: obj) (args: 'T :> ComponentModel.AsyncCompletedEventArgs) =
if userToken = args.UserState then
removeHandler handle
if args.Cancelled then
ccont (new OperationCanceledException())
function foo(v) {
var x;
var y;
function bar() {
return x + y;
}
if (v) {
x = 5;
return bar();
let rec takeFreshConsTail cons n l =
match l with
| [] ->
if n <> 0 then failwith "insufficient length"
setFreshConsTail cons []
| x::xs ->
if n > 0 then
let cons2 = freshConsNoTail x
setFreshConsTail cons cons2
takeFreshConsTail cons2 (n - 1) xs
let rec takeWhileFreshConsTail cons p l =
match l with
| [] ->
setFreshConsTail cons []
| x::xs ->
if p x then
let cons2 = freshConsNoTail x
setFreshConsTail cons cons2
takeWhileFreshConsTail cons2 p xs
else
@v2m
v2m / list.fs
Last active August 29, 2015 14:03
[<CompiledName("SplitAt")>]
let splitAt (n: int) (list: 'T list) = Microsoft.FSharp.Primitives.Basics.List.splitAt n list