nmattia

shell -${SHELL}

# Bind F11 and F12 (NOT F1 and F2) to previous and next screen window
bindkey -k F1 prev
bindkey -k F2 next

startup_message off

# Window list at the bottom.
hardstatus alwayslastline

nmattia

{- stack
  --resolver lts-4.2
  --install-ghc
  runghc
  --package network
-}
{-# LANGUAGE OverloadedStrings #-}
import Control.Concurrent.Async (concurrently)
import Control.Monad (forever)
import Network.Socket

nmattia

#!/bin/sh
#
# Fetches SSH keys from a github user
# Big kudos to @zimbatm for inspiration: https://gist.github.com/zimbatm/3166cc0bbb46551fe67e
# 
# Usage:
#   curl -L https://goo.gl/Jj330b | user=<github username> sh
#

if [ -z "$user" ]; then

nmattia

integer/serialise/small positive -14%
integer/serialise/small negative -10%
integer/serialise/large positive -10%
integer/serialise/large negative -8%
integer/deserialise/small positive -62%
integer/deserialise/small negative -61%
integer/deserialise/large positive -27%
integer/deserialise/large negative -33%
time/serialise UTCTime -18%
time/deserialise UTCTime -21%

nmattia

#!/usr/bin/env stack
-- stack --install-ghc runghc --package cassava --package vector

{-|
 Compare two criterion outputs. Results are displayed in percent. Takes two
 filepaths: original csv and new csv.

 To generate csvs:
 stack bench my-project:my-bench --benchmark-arguments "--csv out.csv"

nmattia

{-# LANGUAGE FlexibleContexts       #-}
{-# LANGUAGE ConstraintKinds       #-}
{-# LANGUAGE ScopedTypeVariables    #-}
{-# LANGUAGE TypeApplications       #-}
{-# LANGUAGE AllowAmbiguousTypes    #-}
{-# LANGUAGE RankNTypes             #-}
{-# LANGUAGE FlexibleInstances      #-}
{-# LANGUAGE GADTs                  #-}
{-# LANGUAGE MultiParamTypeClasses  #-}
{-# LANGUAGE TypeInType             #-}

nmattia

CREATE (:Value {value_ref: 42})

CREATE (:Value {value_ref: 1789})

CREATE (:Function)

MATCH (f:Function) WHERE id(f) = 33 SET f.function_name = "inc"

nmattia

{anyPkgs ? import <nixpkgs> { }}:
let
  pkgs = import (anyPkgs.fetchFromGitHub {
      owner = "NixOS";
      repo = "nixpkgs";
      rev = "deec3c1dae62e8345451cd8c4ad41134ab95e88d";
      sha256 = "1l951xzklxfi2c161mcrps9dfsq76sj8fgq8d60y093bry66d3yc";
    }) {};
  ghc = pkgs.haskell.compiler.ghc7103;
  # tweak haskellSrc2nix to disable (failing) tests

nmattia

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE InstanceSigs #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE NoMonomorphismRestriction #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE RebindableSyntax #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TupleSections #-}

nmattia

#!/usr/env/bin bash

# vim: set ft=bash

ROOT=$PWD

read -r -d '' ADJECTIVES <<'EOF'
agreeable
brave
calm