Skip to content

Instantly share code, notes, and snippets.

#r @"C:\Users\bsermons\.nuget\packages\microsoft.netcore.app\2.0.0\ref\netcoreapp2.0\netstandard.dll"
module SqlGraph =
open System
open System.Data
open System.Data.SqlClient
let connStr = "Server=<<server>>;Database=<<database>>;Trusted_Connection=True;"
public static Expression<Func<IEnumerable<T>, IEnumerable<T>>> Inner<T, F, I>(
this Expression<Func<T, F>> relationship
, Expression<Func<I, bool>> inner
, Func<T, T> cloner)
where F : IEnumerable<I>
{
var relationshipMember = relationship.Body as MemberExpression;
var sourceParam = Expression.Parameter(typeof(IEnumerable<T>), "source");
var selectParam = Expression.Parameter(typeof(T), "selectcParam");
var copyVar = Expression.Variable(typeof(T), "copy");
@bsermons
bsermons / gist:ff11bf2fdd2f3a02642d
Last active December 8, 2016 16:11
Elm login example
module Login where
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (on, onClick, targetValue)
import Http
import Json.Encode as Encode exposing (encode)
import Json.Decode as Decode
import String
import Task exposing (Task, andThen, onError)