hodzanassredin

using System;
using System.Collections.Generic;

namespace Kinded
{

	class HList<TLower>
	{

		public virtual System.Collections.Generic.IEnumerable<TLower> All ()

hodzanassredin

using System;
using System.Threading.Tasks;

namespace GenericMonad
{
	public class Async
	{
		Async ()
		{

hodzanassredin

using System;
using System.Threading.Tasks;
using System.Net;

namespace GenericMonad
{

	public interface IMonad<T, TMI>
	{
		IMonad<TB,TMI> Return<TB> (TB val);

hodzanassredin

let! results = todo |> Seq.map (fun (name, param, sql) -> (name, db.ExecuteAsync conn param sql))
                    |> Seq.fold (fun (asyncAcc:Async<seq<string*Result<int>>>) (name,asyncTask) -> async{
                                                    let! acc = asyncAcc
                                                    let! taskRes = asyncTask
                                                    return seq {yield! acc; yield (name, taskRes)} 
                                                }) (async {return Seq.empty})

hodzanassredin

;; User behaviors
;; -----------------------------
;; Behaviors are stored as a set of diffs that are merged together
;; to create the final set of functionality that makes up Light Table. You can
;; modify these diffs to either add or subtract functionality.
;;
;; Behaviors are added to tags, objects with those tags then automatically gain
;; whatever logic the behavior imparts. To see a list of user-level behaviors,
;; start typing a word related to the functionality you want in between the square
;; brackets (e.g. "theme").

hodzanassredin

using System;

namespace Test
{
	public class TestTrait{//this class is not required but it reduces loc
		public readonly Test Self;
		public TestTrait (Test self){Self = self;}
	}

	public class A : TestTrait

hodzanassredin

using System;

namespace Traits
{
	public interface Has<T>{T Trait {get;}}

	public static class HasExt{
		public static TRAIT GetTrait<TRAIT, SELF>(this SELF self) where SELF : Has<TRAIT>{
			return self.Trait;
		}

hodzanassredin

docker images | grep '<none>' |  awk '{print $3}'  | xargs docker rmi

hodzanassredin

from PIL import Image
from PIL import ImageFilter
from PIL import ImageOps
from PIL import ImageDraw
from PIL import ImageFont
from PIL import ImageColor
from django.conf import settings

class TextWatermark(object):
    def __init__(self, text):

hodzanassredin

type getter = string->seq<string * string> -> Async<string>
type ResponseWallGet = JsonProvider<"./wall.get.json">

type Api(acess_token : string) = class
    let create (acess_token:string) : getter = 
        fun method_name parameters ->
                async { 
                    let url = sprintf "https://api.vkontakte.ru/method/%s" method_name
                    let query = seq {
                        yield ("acess_token", acess_token)