Skip to content

Instantly share code, notes, and snippets.


Christian Takle christiantakle

  • Moixa
  • London
View GitHub Profile
View Expr.hs
{-# LANGUAGE TupleSections #-}
import Control.Lens
data Expr
= Var String
| App Expr Expr
| Lam String Expr
deriving Show
View postgres_cheat_sheet
Postgres Cheat Sheet
Source: Postgresql Documentation
### shell commands
creatuser <user>
deletesuer <user>
createdb -O <user> -E utf8 -T <template> <db_name>
dropdb <db_name>
View fix-free-cofree.hs
{-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE UndecidableInstances #-}
import Prelude hiding (succ)
newtype Fix f = Fix (f (Fix f))
deriving instance (Show (f (Fix f))) => Show (Fix f)
christiantakle / leaf.hs
Created Mar 22, 2016 — forked from ali-abrar/index.html
Setting up Leaflet.js with Reflex.Dom
View leaf.hs
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
import Reflex.Dom
import Data.Monoid
import GHCJS.Types
import GHCJS.Foreign
import GHCJS.DOM.Element
import GHCJS.DOM.Types
import Control.Monad.IO.Class
newtype LeafletMap = LeafletMap { unLeafletMap :: JSRef LeafletMap }
View git_tag.rb
#!/usr/bin/env ruby
tagname = ARGV.pop
def prompt(*args)
if tagname.nil?
View private.xml
<?xml version="1.0"?>
<name>Programmer's Shift Keys</name>
Author: Carwin Young (@carwin)
Last Updated: 2013.02.10
Programmer's Shift Keys
View 1.js
// fade out
function fade(el) {
var op = 1;
var timer = setInterval(function () {
if (op <= 0.1){
clearInterval(timer); = 'none';
} = op;
View package.json
"dependencies": {
"jshint": "latest",
"uglifyjs": "latest",
"watch": "latest"
"config": {
"github_url": "",
"maps_url": "",
# Generates the text of asetniop.vim
singles =
a: "a"
s: "s"
e: "d"
t: "f"
n: "j"
i: "k"
o: "l"
p: ";"
You can’t perform that action at this time.