This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env fsharpi --exec | |
#I "packages/Hopac/lib/net45" | |
#r "Hopac.Core.dll" | |
#r "Hopac.dll" | |
#r "Hopac.Platform.dll" | |
open System | |
open Hopac | |
open Hopac.Infixes | |
type Policy = |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module Logary.Obnoxious | |
open Logary | |
open Logary.Configuration | |
open Logary.Targets | |
open Hopac | |
open Hopac.Infixes | |
open Hopac.Job.Global | |
open Hopac.Extensions.Async | |
open Hopac.Extensions.Async.Global |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module Mavnn.Blog.TypeProvider | |
open ProviderImplementation.ProvidedTypes | |
open Microsoft.FSharp.Core.CompilerServices | |
[<TypeProvider>] | |
type MavnnProvider (config : TypeProviderConfig) as this = | |
inherit TypeProviderForNamespaces () | |
[<assembly:TypeProviderAssembly>] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
open System.Diagnostics | |
let code = | |
[ | |
"src/Board.fs" | |
"src/WordSearch.fs" | |
] | |
let refs = [] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module RiemannStore = | |
open System | |
open System.Configuration | |
open Riemann | |
let client = new Client(riemannServer, riemannPort) | |
let state entry = | |
match entry.Level with |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
let ones = | |
seq { | |
while true do | |
yield 1 | |
} | |
// seq [1; 1; 1; 1; ...] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
open System | |
open System.Runtime.InteropServices | |
open System.ComponentModel | |
[<DllImport("kernel32")>] | |
extern int AddDllDirectory(string NewDirectory) | |
[<EntryPoint>] | |
let main argv = | |
let result = AddDllDirectory("c:\\") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
let (assemblyReferencesToDelete, frameworkReferencesToDelete, contentFilesToDelete, buildFilesToDelete) = | |
let assemblyReferencesToDelete, frameworkReferencesToDelete, contentFilesToDelete, buildFilesToDelete = | |
1, 2, 3, 4 | |
1, 2, 3, 4 | |