mavnn

(* Get the files in the right places relative to the script by running:

    path\to\NuGet.exe install NuGetPlus.Core -ExcludeVersion -Prerelease
*)

#r "FSharp.Core"
#r "Microsoft.Build"
#r "Microsoft.Build.Framework"
#r "System.Xml"
#r "System.Xml.Linq"

mavnn

open System.Diagnostics

let code =
  [
    "src/Board.fs"
    "src/WordSearch.fs"
  ]

let refs = []

mavnn

module RiemannStore =

    open System
    open System.Configuration
    open Riemann

    let client = new Client(riemannServer, riemannPort)

    let state entry =
        match entry.Level with

mavnn

let ones =
    seq {
        while true do
            yield 1
    }
// seq [1; 1; 1; 1; ...]

mavnn

// Let's send an email!

mavnn

using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Reflection;
using System.Runtime.Versioning;
using Microsoft.Build.Evaluation;

namespace NuGet.Common
{

mavnn

open System
open System.Runtime.InteropServices
open System.ComponentModel

[<DllImport("kernel32")>]
extern int AddDllDirectory(string NewDirectory)

[<EntryPoint>]
let main argv = 
    let result = AddDllDirectory("c:\\")

mavnn

module DevEd.FsCheck
open System.Xml
open System.Xml.Linq

let AddEnhancement (xDoc : XDocument) (input : string) =
    xDoc.Root.Add(XElement(XName.Get "Enhancement", input))
    xDoc

mavnn

#r "System.Xml.Linq"
#r "tools\FAKE\FakeLib.dll"
open System.IO
open System.Xml
open System.Xml.Linq
open System.Xml.XPath
open Fake

// You'll want to replace these values...
let nugetId = "my.package.id"

mavnn

open FsCheck

type XmlTree =
    | NodeName of string
    | Container of string * List<XmlTree>

let nodeNames = ["myNode";"myOtherNode";"someDifferentNode"]

let tree =
    let rec tree' s =