FoleyAxel
This file contains hidden or 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 | |
| type Example = | |
| { | |
| Name: string | |
| EventReceiver: IEvent<string> option | |
| } | |
| let rec loop examples = | |
| examples |
This file contains hidden or 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 | |
| type resultMsg = | |
| | Add of string | |
| | Fetch of AsyncReplyChannel<Set<string>> | |
| | Clear | |
| type Cache = | |
| { | |
| Add: string -> unit |
This file contains hidden or 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
| type resultMsg = | |
| | Add of string | |
| | Fetch of AsyncReplyChannel<Set<string>> | |
| type resultContainer() = | |
| let innerContainer = | |
| MailboxProcessor.Start(fun inbox -> | |
| let rec loop (n:Set<string>) = | |
| async { let! msg = inbox.Receive() | |
| match msg with |
This file contains hidden or 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.Diagnostics | |
| open System.IO | |
| open System.Diagnostics | |
| open System.Security.Cryptography | |
| open System.Text.RegularExpressions | |
| open System.Windows.Forms | |
| let args = Environment.GetCommandLineArgs() |
FoleyAxel
/ gist:2563853
Created
May 1, 2012 00:08
This file contains hidden or 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 filelist = pasvRead src_site resp | |
| let sitelist = deserialize "sites" | |
| sitelist |> Seq.filter (fun x -> x <> src_site) |> Seq.iter (fun x -> distribute src_site rls filelist x) |