vbfox

using Microsoft.FSharp.Core;
using NFluent;
using NFluent.Extensibility;

namespace UnitTests
{
    public static class FSharOptionCheckExtensions
    {  
        public static void IsNone<T>(this ICheck<FSharpOption<T>> check)
        {

vbfox

using System;
using Nancy;
using Nancy.Hosting.Self;
using Nancy.Responses;

namespace NancyRedirect
{
    public class Program : NancyModule
    {
        static void Main()

vbfox

//
// getline.fs: A command line editor
//
// Authors:
//   Miguel de Icaza (miguel@novell.com)
//   Julien Roncaglia (julien@roncaglia.fr)
//
// Copyright 2008 Novell, Inc.
// Copyright 2015 Julien Roncaglia <julien@roncaglia.fr>
//

vbfox

module Queue 
    // "Purely Functional Data Structures" by Chris Okasaki, Page 18 (Figure 3.2)
    open System

    type queue<'a> = { F : 'a list; R : 'a list }
    let empty = { queue.F = []; R = [] }
    let isEmpty queue = List.isEmpty queue.F
    let private makeQueue = function
        | ([], r) -> { F = List.rev r; R = [] }
        | (f, r) -> { F = f; R = r }

vbfox

using System;
using System.IO;
using System.Security;
using Microsoft.Win32;

static class UrlProtocol
{
    public static bool IsSupported(string protocol)
    {
        if (protocol == null) throw new ArgumentNullException("protocol");

vbfox

#r @"../packages/WinSCP/lib/WinSCPnet.dll"

open WinSCP
open System
open System.IO

type FtpServer =
    {
        HostName : string
        UserName : string

vbfox

// Variant of MoreLinq Batch implementation
// https://code.google.com/p/morelinq/source/browse/MoreLinq/Batch.cs

public static IEnumerable<IEnumerable<T>> Batch<T>(IEnumerable<T> source, int size)
{
    T[] bucket = null;
    var count = 0;

    foreach (var item in source)
    {

vbfox

static class EwsExtensions
{
	public static string GetFullPath(this Folder folder, string separator = "/")
	{
		var folderPathProperty = new ExtendedPropertyDefinition(26293, MapiPropertyType.String);
		var folderPathPropertySet = new PropertySet(BasePropertySet.FirstClassProperties) { folderPathProperty };
		var folderWithFullnameProperty = Folder.Bind(folder.Service, folder.Id, folderPathPropertySet);
		
		object pathObj = null;
		if (!folderWithFullnameProperty.TryGetProperty(folderPathProperty, out pathObj))

vbfox

Using ElasticSerarchshield to secure inter-node communications

All is from a cygwin console like Babun under windows.

CA certificate creation

openssl genrsa -des3 -out root-ca.key 2048

vbfox

void Main()
{
	var dir = "C:\\Code\\Repo\\";
	var onlyChanged = true;
	
	if (onlyChanged)
	{
		Console.WriteLine("Getting files from SVN... ");
		var changed = GetSvnStatus(dir)
			.Where(t => t.Item1 == 'A' || t.Item1 == 'M')