| // Microsoft.VisualStudio.Setup.Configuration.Interop.dll | |
| module VsInstances = | |
| open System.Runtime.InteropServices | |
| [<Guid("B41463C3-8866-43B5-BC33-2B0676F7F42E")>] | |
| [<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>] | |
| [<ComImport>] | |
| [<AllowNullLiteral>] | |
| type private ISetupInstance = |
| // dynamic x = "Foo"; | |
| // Console.WriteLine(x.ToString()); | |
| open System | |
| open System.Runtime.CompilerServices | |
| open Microsoft.CSharp.RuntimeBinder | |
| let mutable toStringSite: CallSite<Func<CallSite, obj, obj>> option = None | |
| let mutable writelineSite: CallSite<Action<CallSite, Type, obj>> option = None |
If the Elmish state should be updated by the event but not the view a wrapper component might do:
[<Import("cloneElement", from="react")>]
let cloneElement(element: ReactElement, props: obj, [<ParamList>] children: obj) = jsNative
type RequestAnimationFrameState<'a> = {
props: 'a
}
| module AsyncIO | |
| let private readdir (dir: string): Promise<ResizeArray<string>> = | |
| Promise.Create(fun resolve fail -> | |
| Fs.readdir(U2.Case1 dir, fun err files -> | |
| if isDefined err then fail.Invoke(err) else resolve.Invoke(U2.Case1 files))) | |
| let private unlink (path: string): Promise<unit> = | |
| Promise.Create(fun resolve fail -> | |
| Fs.unlink(U2.Case1 path, fun err -> | |
| if isDefined err then fail.Invoke(err) else resolve.Invoke(U2.Case1 ()))) |
| REM When TC Agent is using a dedicated account that isn't admin it can update itself | |
| REM To solve it it's enough to give the user full control of the service account | |
| REM Install SubInAcl from https://www.microsoft.com/en-us/download/details.aspx?id=23510 | |
| REM For service TCBuildAgent | |
| REM And user Domain\User | |
| "c:\Program Files (x86)\Windows Resource Kits\Tools\subinacl" /service TCBuildAgent /GRANT=Domain\User=F |
| /// Allow to define FAKE tasks with a syntax similar to Gulp tasks and using instances instead of strings | |
| /// https://gist.github.com/vbfox/2eee346524d688af55ccc467e154e1b4 | |
| module BlackFox.TypedTaskDefinitionHelper | |
| open Fake | |
| open System | |
| type TaskMetadata = { | |
| name: string | |
| dependencies: TaskInfo list |
| { | |
| "FSharp.lineLens.enabled": "replaceCodeLens", | |
| "workbench.colorCustomizations": { | |
| "editorCodeLens.foreground": "#4C4B4B" | |
| }, | |
| "[fsharp]": { | |
| "editor.codeLens": false | |
| } | |
| } |
| import { List } from "immutable"; | |
| import * as React from "react"; | |
| import { connect } from "react-redux"; | |
| import { Action, Dispatch } from "redux"; | |
| export enum ActionKind { | |
| AddTodo = "ADD_TODO", | |
| RemoveTodo = "REMOVE_TODO" | |
| } |
| { | |
| "editor.folding": false, | |
| "editor.lineNumbers": "off", | |
| "editor.renderWhitespace": "none", | |
| "editor.codeLens": false, | |
| "editor.minimap.enabled": false, | |
| "editor.dragAndDrop": false, | |
| "editor.renderIndentGuides": false | |
| } |
| get-wmiobject Win32_Product | Where-Object { $_.Name -like "*foo*" } | Format-Table Name, LocalPackage, PackageCache, PackageName, InstallSource |