watcher F#

gistfile1.fs

open System;
open System.IO;
open Microsoft.FSharp.Collections;

//setup the watcher and events
let watcher = new FileSystemWatcher(@"C:\Users\brians\Python")
let logFileInfo (args:FileSystemEventArgs) = Console.WriteLine(args.Name)
let events = [watcher.Changed; watcher.Created; watcher.Deleted] |> List.iter(fun e -> e.Add(logFileInfo))

//read from console
let readlines = Seq.initInfinite (fun _ -> Console.ReadLine())
let readline line = if line = "q" then Some(line) else None

//run that stuff
watcher.EnableRaisingEvents <- true;
Console.WriteLine(@"Press 'q' to quit listening")
Seq.pick readline readlines |> ignore