rflechner

nuget install canopy -Version 2.0.1 -OutputDirectory packages -ExcludeVersion -Prerelease
nuget install Selenium.Chrome.WebDriver -Version 2.38.0 -OutputDirectory packages -ExcludeVersion

rflechner

printfn "hello world"
open System.Runtime.InteropServices

let mutable name = "toto"
name <- "tata"

let display text =
  printfn "%s" text

rflechner

#I @"../../packages/Newtonsoft.Json/lib/net45/"
#I @"../../packages/Lucene.Net/lib/NET40/"

#r "Lucene.Net.dll"

open System
open System.IO
open System.Globalization
open Lucene
open Lucene.Net

rflechner

let suffixedBy (suffix : string) baseSt = baseSt + suffix
let sayHello name = "Hello " + name
let toNode = // ?
let toBold = toNode "b"
let toBody= toNode "body"
let toParagraph= toNode "p"
let toHtml = toNode "html"

// Imperative style

rflechner

#I @"packages/SQLProvider/lib/"
#r "FSharp.Data.SqlProvider.dll"

open FSharp.Data.Sql

let [<Literal>] connectionString = "..."
let [<Literal>] resolutionPath = ""

type sql = SqlDataProvider<Common.DatabaseProviderTypes.MSSQLSERVER,
                           connectionString,

rflechner

mkdir C:\mongodb
mkdir C:\mongodb\log
mkdir C:\mongodb\db
cd C:\mongodb
mongod.exe --install --config C:\mongodb\mongod.cfg
net start MongoDb

rflechner

<!-- fix some build bugs -->

<Choose>
    <When Condition="'$(VisualStudioVersion)' == '11.0'">
      <PropertyGroup Condition=" '$(FSharpTargetsPath)' == '' AND Exists('$(MSBuildExtensionsPath32)\..\Microsoft SDKs\F#\3.0\Framework\v4.0\Microsoft.FSharp.Targets') ">
        <FSharpTargetsPath>$(MSBuildExtensionsPath32)\..\Microsoft SDKs\F#\3.0\Framework\v4.0\Microsoft.FSharp.Targets</FSharpTargetsPath>
      </PropertyGroup>
    </When>
    <When Condition="'$(VisualStudioVersion)' == '15.0'">
      <PropertyGroup Condition=" '$(FSharpTargetsPath)' == '' AND Exists('$(MSBuildProgramFiles32)\Microsoft SDKs\F#\4.1\Framework\v4.0\Microsoft.FSharp.Targets') ">

rflechner

namespace Finexkap.MicroServices.Salesforce.Models.Railway
{
    public abstract class Result<T>
    {

    }
    
    public class Success<T> : Result<T>
    {
        public Success(T model)

rflechner

module BCM2835Interop
    open System.Runtime.InteropServices

    type FselMode = 
        | InputMode = 0us
        | OutputMode = 1us
        | BCM2835_GPIO_FSEL_ALT0 = 0x04us
        | BCM2835_GPIO_FSEL_ALT1 = 0x05us
        | BCM2835_GPIO_FSEL_ALT2 = 0x06us
        | BCM2835_GPIO_FSEL_ALT3 = 0x07us

rflechner

-- this file Embedded resource
SELECT * FROM "Sellers"