beerendlauwers

#!/usr/bin/env stack
-- stack --resolver lts-6.10 runghc --package sqlite-simple --package text --package time

{-# LANGUAGE OverloadedStrings #-}

import Control.Applicative
import Control.Monad
import Data.Monoid
import Data.Foldable
import Data.Maybe

beerendlauwers

// This doesn't seem to work. The browser only noticed the CSS file if it completely replaced  <link type="text/css" rel="stylesheet" href="res-min/themes/default.css">.
// So, in a worst-case scenario, you can just copy that CSS file, add your changes to it, host it on Github and do the replacement with a UserCustom extension (https://github.com/benweet/stackedit/wiki/UserCustom-extensions).
// Also tried onReady https://github.com/benweet/stackedit/wiki/userCustom.onReady

$(document).ready( function() {
var loadCSS = function(href) {
     var cssLink = $("<link rel='stylesheet' type='text/css' href='"+href+"'>");
     $("head").append(cssLink); 
 };
 

beerendlauwers

flags: {}
packages:
- '.'
extra-deps:
- Win32-notify-0.3.0.1
- reddit-0.1.1.0
resolver: lts-2.13

beerendlauwers

{-# LANGUAGE QuasiQuotes     #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies    #-}
{-# LANGUAGE FlexibleContexts    #-}
module Yesod.DataSource.Data where

import Yesod
import Data.Text (Text)

-- Subsites have foundations just like master sites.

beerendlauwers

<?php

// Some newtypes that allow for richer type hinting in Matt Pryor's Lazy\Sequence library. https://bitbucket.org/mkjpryor/lazy-sequence/wiki/Home 

interface ArrayInterface extends Traversable {

}

class Finite implements IteratorAggregate, ArrayInterface {

beerendlauwers

<?php

class Test {

  private $f = NULL;

  public function addFunction( callable $f ) {
    if ($this->f === NULL) {
      $this->f = $f;
    }