Skip to content

Instantly share code, notes, and snippets.

View kunjee17's full-sized avatar
💭
Functional Programmer for hire. F#, Scala, Rust. For web, mobile, cloud etc.

Kunjan Dalal kunjee17

💭
Functional Programmer for hire. F#, Scala, Rust. For web, mobile, cloud etc.
View GitHub Profile
@kunjee17
kunjee17 / sdk-stable.cmd
Last active June 28, 2017 09:29
reset dot net core sdk while trying different version of it.
@echo off
echo was:
dotnet --version
REM 1.0.1
REM pushd C:\dotnetcli\dotnet-1.1.1-sdk-win-x64
REM 1.0.4
pushd C:\dotnetcli\dotnet-dev-win-x64.1.0.4
@kunjee17
kunjee17 / CurrentIziToastFile.fs
Last active November 1, 2017 05:42
Interface problem with Fable
namespace Fable.Import
open Fable.Core
open Fable.Import.Browser
type [<StringEnum>] IziToastPosition =
BottomRight | BottomLeft | TopRight | TopLeft | TopCenter | BottomCenter | Center
and [<StringEnum>] IziToastTransitionIn =
BounceInLeft | BounceInRight | BounceInUp | BounceInDown | FadeIn | FadeInDown | FadeInUp | FadeInLeft | FadeInRight | FlipInX
@kunjee17
kunjee17 / Flatpickr.index.d.ts
Created November 1, 2017 05:45
Flatpickr typescript files
import { FlatpickrFn } from "./src/types/instance";
export { Instance } from "./src/types/instance";
export * from "./src/types/options";
declare var flatpickr: FlatpickrFn;
export default flatpickr;
module rec Fable.Import.ServicestackClient
open System
open Fable.Core
open Fable.Import.JS
open Fable.Import.Browser
open Fable.PowerPack.Fetch
type [<AllowNullLiteral>] IExports =
abstract IEventSource: IEventSourceStaticStatic with get, set
abstract ServerEventsClient: ServerEventsClientStatic with get, set
@kunjee17
kunjee17 / websharper.fs
Created July 24, 2018 11:06
WebSharper example
open WebSharper
open WebSharper.JavaScript
open WebSharper.JQuery
open WebSharper.UI
open WebSharper.UI.Client
[<JavaScript>]
module Code =
// This creates a typed access to the HTML template (see the Markup tab)
type IndexTemplate = Templating.Template<Snippet.IndexHtml>
@kunjee17
kunjee17 / servicestack.fs
Created July 24, 2018 11:11
Sample with service stack and F#
namespace Todos
open System;
open System.IO;
open Microsoft.AspNetCore.Builder;
open Microsoft.AspNetCore.Hosting;
open Microsoft.Extensions.Logging;
open Funq;
open ServiceStack;
open ServiceStack.Configuration;
module viewfiles.Main
open System
open Nancy.Hosting
type DemoApp () =
inherit NancyModule()
do
let Get = base.Get
Get.["/"] <- fun parameters -> "Hello from Nancy" :> obj
open System
open System.Threading
open Suave
[<EntryPoint>]
let main argv =
let cts = new CancellationTokenSource()
let conf = { defaultConfig with cancellationToken = cts.Token }
let listening, server = startWebServerAsync conf (Successful.OK "Hello World")
open Giraffe
let webApp =
choose [
route "/ping" >=> text "pong"
route "/" >=> htmlFile "/pages/index.html" ]
type Startup() =
member __.ConfigureServices (services : IServiceCollection) =
// Register default Giraffe dependencies
let users =
freyaMachine {
methods [ GET; OPTIONS; POST ]
availableMediaTypes MediaType.json
doPost createUser
handleOk listUsers }