nojaf

module greengiraffe.App

open System
open System.IO
open System.Collections.Generic
open Microsoft.AspNetCore.Builder
open Microsoft.AspNetCore.Hosting
open Microsoft.AspNetCore.Http
open Microsoft.Extensions.Logging
open Microsoft.Extensions.DependencyInjection

nojaf

const $ = (selector) => {
	return Array.prototype.slice.call(document.querySelectorAll(selector));
}

nojaf

open Giraffe.HttpHandlers
open Microsoft.AspNetCore.WebUtilities
open System.IO
open System

let isMultipartContentType (contentType:string) =
       not(String.IsNullOrEmpty(contentType)) &&
        contentType.IndexOf("multipart/", StringComparison.OrdinalIgnoreCase) >= 0

let getBoundary (contentType : string) =

nojaf

let getXsd id =
    query {
        for messageItem in ctx.ProtoType.MessageType do
        for originalMessage in messageItem.``ProtoType.OriginalMessage by Id`` do
        for messageType in originalMessage.``ProtoType.MessageType by Id`` do
        where (messageItem.Id = id)
        select (messageType.Xsd)
    } |> Seq.head

nojaf

declare module "react-throttle" {
  export interface DebounceProps extends React.Props<Debounce> {
    time: number;
    handler: string;
  }
  export class Debounce extends React.Component<DebounceProps> {}
}

nojaf

export function flatten<T>(array: T[][]): T[] {
  return [].concat.apply([], array);
}

export function chunk<T>(
  array: T[],
  chunkSize: number,
  acc: T[][] = []
): T[][] {
  return array.length > chunkSize

nojaf

type MayBeBuilder() =
    member x.Bind(v,f) = Option.bind f v
    member x.Return v = Some v
    member x.ReturnFrom o = o

let maybe = OptionBuilder()

nojaf

module Result =
  type Result<'TResult, 'TError> =
    | Ok of 'TResult
    | Error of 'TError

  let ifNone (error : 'TError) = function
    | Some (o) -> Ok o
    | None -> Error error

  let map f = function

nojaf

open System

let divideBy bottom top =
    if bottom = 0
    then None
    else Some(top/bottom)

type MaybeBuilder() =

    member this.Bind(x, f) = 

nojaf

// Learn more about F# at http://fsharp.org
// See the 'F# Tutorial' project for more help.
open System

let toInt a =
    match (Int32.TryParse(a)) with
    | (true, x) -> Some x
    | (false, _) -> None

type MaybeBuilder() =