anchor.diff:  open System
   open System.IO
   
  -let core = !!"src/**/*.fsproj" ++ "src/**/*.csproj";
  -
  -printfn "%A" (core |> Seq.toList)
  +let core = ["src/Aardvark.Rendering.sln"];
  +
  +module Std =
  +    open System.Runtime.InteropServices
  +
  +
  +    module private Kernel32 =
  +        let StdOutputHandle = 0xFFFFFFF5u
  +
  +        [<DllImport("kernel32.dll")>]
  +        extern IntPtr GetStdHandle(UInt32 nStdHandle)
  +
  +        [<DllImport("kernel32.dll")>]
  +        extern void SetStdHandle(UInt32 nStdHandle, IntPtr handle)
  +
  +        let getstdout() = GetStdHandle(StdOutputHandle)
  +        let setstdout(h) = SetStdHandle(StdOutputHandle, h)
  +
  +    module private Libc =
  +//        let STDOUT_FILENO = 1
  +//
  +//        [<DllImport("libc")>]
  +//        extern int dup(int oldfd)
  +//
  +//        [<DllImport("libc")>]
  +//        extern int dup2(int oldfd, int newfd)
  +
  +        let getstdout() = 0n; //dup(STDOUT_FILENO) |> nativeint
  +        let setstdout(h : nativeint) = () //dup2(int h, STDOUT_FILENO) |> ignore
  +
  +    let getstdout =
  +        match Environment.OSVersion.Platform with
  +            | PlatformID.Unix -> Libc.getstdout
  +            | _ -> Kernel32.getstdout
  +
  +    let setstdout =
  +        match Environment.OSVersion.Platform with
  +            | PlatformID.Unix -> Libc.setstdout
  +            | _ -> Kernel32.setstdout
  +
  +    let noOut (f : unit -> 'a) =
  +        let outHandle = getstdout()
  +        let out = Console.Out
  +
  +        let success = 
  +            try
  +                setstdout(0n)
  +                Console.SetOut TextWriter.Null
  +                true
  +            with e ->
  +                false
  +
  +        let res = f()
  +
  +        if success then
  +            Console.SetOut out
  +            setstdout(outHandle)
  +
  +        res
   
   Target "Restore" (fun () ->
   
  
positive.code:     "Compile" ==>
      "Default"
  
  let knownPackages = 
      Set.ofList [
          "Aardvark.Rendering"
      ]
  
  
  Target "CreatePackage" (fun () ->
      let branch = Fake.Git.Information.getBranchName "."
  
negative.code:                                 Version = tag; 
                                  ReleaseNotes = releaseNotes; 
                                  WorkingDir = "bin"
                                  Dependencies = p.Dependencies |> List.map (fun (id,version) -> if Set.contains id ownPackages then (id, tag) else (id,version)) 
                                  AccessKey = accessKey
                                  Publish = true
                              })
  