panesofglass

(*

Copyright (c) 2008-2011 IntelliFactory

GNU Affero General Public License Usage The code
is free software: you can redistribute it and/or
modify it under the terms of the GNU Affero
General Public License, version 3, as published by
the Free Software Foundation.

panesofglass

(*

Copyright (c) 2008-2011 IntelliFactory

GNU Affero General Public License Usage The code
is free software: you can redistribute it and/or
modify it under the terms of the GNU Affero
General Public License, version 3, as published by
the Free Software Foundation.

panesofglass

type Json =
    | Array of list<Json>
    | Double of double
    | False
    | Integer of int64
    | Null
    | Object of list<string*Json>
    | String of string
    | True

panesofglass

/*
   Contains the file manager implementation of ServiceStack's REST /files Web Service:
   Demo: http://www.servicestack.net/RestFiles/ 
   GitHub: https://github.com/ServiceStack/ServiceStack.Examples/
*/

using System;
using System.IO;
using System.Net;
using RestFiles.ServiceInterface.Support;

panesofglass

#r "System.Xml.Linq"

open System
open System.IO
open System.Xml.Linq

let mutable script = seq {

    //TODO: this currently loads fsproj's in alphabeticall order, we should instead

panesofglass

    public class SimpleObjectContent<T> : HttpContent
    {
        private readonly T _outboundInstance;
        private readonly HttpContent _inboundContent;
        private readonly MediaTypeFormatter _formatter;

        // Outbound constructor
        public SimpleObjectContent(T outboundInstance, MediaTypeFormatter formatter)
        {
            _outboundInstance = outboundInstance;

panesofglass

Originally:
https://gist.github.com/7565976a89d5da1511ce

Hi Donald (and Martin),

Thanks for pinging me; it's nice to know Typesafe is keeping tabs on this, and I
appreciate the tone. This is a Yegge-long response, but given that you and
Martin are the two people best-situated to do anything about this, I'd rather
err on the side of giving you too much to think about. I realize I'm being very
critical of something in which you've invested a great deal (both financially

panesofglass

    let rec loop : Async<unit> =
        async {
            let! req = HttpRequestParser.Parse buf read
            let! resp = app.Handle req
            let kA = isKeepAlive req
            do! respond socket buf (setKeepAlive kA resp)
            if isKeepAlive req then
                return! loop
            else
                return ()

panesofglass

using System;
using System.Collections.Generic;
using System.Configuration;
using System.IO;
using System.Linq;
using System.Net;
using System.Net.Http;
using System.ServiceModel;
using System.ServiceModel.Web;
using System.Threading;

panesofglass

/// Converts structural encodings to proper FSCGI.* types.
module FSCGI.Structural.Converter

type private Encodings<'R,'W> =
    ('W -> Writer<'W>) *
    ('R -> Response<'R,'W>)

let private ConvertRequest (r : FSCGI.Request) : Request =
    (
        r.Headers,