mchakravarty

data PreExp exp = Val Int
                | Add exp exp

newtype Exp = Exp (PreExp Exp)  -- this is just a normal expression

data AttrExp = AttrExp Attr (PreExp AttrExp)   -- an attributed expression

data Attr = ...

anaisbetts

// Only let input Observable fire every 'n' seconds at most
// but unlike Throttle, items fire immediately when they aren't
// rate-limited.
public IObservable<T> RateLimit<T>(this IObservable<T> This, TimeSpan interval, IScheduler scheduler)
{
    var slot = default(IObservable<Unit>);
    var input = This.Publish().RefCount();

    return input.Window(input, _ => {
            if (slot != null) return slot;

zwaldowski

// "Semantic issue - Unsequences modification and access to '_cmd'"
// Expanded from macro 'NSParameterAssert'
// Expanded from macro 'NSAssert'
// Expanded from macro 'self'

@implementation _ModelClass

+ (id)insertInManagedObjectContext:(NSManagedObjectContext*)moc_ {
	NSParameterAssert(moc_);
	return [NSEntityDescription insertNewObjectForEntityForName:@"Model" inManagedObjectContext:moc_];

ashfurrow

CGFloat max = [[numbersArray.rac_sequence foldLeftWithStart:@(FLT_MIN) combine:^id(id accumulator, id value) {
    if (value == [NSNull null]) return accumulator;
    if ([accumulator floatValue] < [value floatValue]) return value;
    else return accumulator;
}] floatValue];

jcmoyer

-- implements an option type as a tagged union

local option = {}
local mt = { __index = option }

local function isoption(t)
  return getmetatable(t) == mt
end

function option.some(a)

indragiek

//
//  FGOManagedObjectContextStack.h
//
//  Created by Indragie Karunaratne on 2012-12-23.
//

#import <Foundation/Foundation.h>

typedef void (^FGOConfigurationBlock)(id);

joshaber

// The basics
[[self.connection fetch:@"the-answer"] subscribeNext:^(NSNumber *x) {
    NSLog(@"The answer is %@", x);
}];

[[self.connection writeObject:@42 forKey:@"the-answer"] subscribeCompleted:^{
    NSLog(@"Wrote it.");
}];

// Signal for changes to the object at a key

technoweenie

API Existential Crisis

One bit of feedback we've heard from some heavy users of the API is that they want to access user and repository data by ID, and not name.

GET /users/technoweenie
GET /repos/technoweenie/faraday

If you're tracking user or repository data, using a URL with a unique and unchanging ID means the application won't break if the user or repository is

mchakravarty

{-# LANGUAGE TemplateHaskell, QuasiQuotes #-}

module TestInlineObjC (objc_initialise, dumpURL) where

import Language.C.Quote.ObjC
import InlineObjC

objc_import ["<Foundation/Foundation.h>"]

anaisbetts

public DashboardHostTileView()
{
    InitializeComponent();

    this.OneWayBind(ViewModel, x => x.Model.Title, x => x.Title.Text);
    this.OneWayBind(ViewModel, x => x.UserAndOrgTiles, x => x.UserAndOrgTiles.ItemsSource);
    this.BindCommand(ViewModel, x => x.ShowLoginCommand, x => x.ShowLoginCommand);

    // Bind SelectedItem of ListBox to the ViewModel
    this.WhenAny(x => x.UserAndOrgTiles.SelectedItem, x => x.Value)