hesselink

alert("boom")

hesselink

#!/bin/bash

echo "After installing a new version of GHC the system wide executable symbolic"
echo "links will be pointed directly to the installed version instead of the"
echo "very useful 'Current' link in /Library/Frameworks/GHC.framework/Versions."
echo "This is a problem because the 'switch-ghc' script will no longer work."
echo
echo "To fix this this script deletes the GHC related symlinks in both /usr/bin"
echo "(default installs) and /usr/local/bin (snapshot installs)."
echo

hesselink

#!/usr/bin/env python2

"""
Uploads haddocks to Hackage.
Use it when Hackage can't build your documentation (e.g. missing libraries).
Inspired by:
  http://fuuzetsu.co.uk/blog/posts/2014-01-06-Fix-your-Hackage-documentation.html
"""

import getpass

hesselink

{-# LANGUAGE TypeFamilies, FlexibleInstances #-}
import Control.Monad.Error
import Control.Monad.Reader

type family   MappedMonad (m :: * -> *) e' :: * -> *
type instance MappedMonad (ErrorT e m)  e' = ErrorT e' m
type instance MappedMonad (ReaderT r m) e' = ReaderT r (MappedMonad m e')

class MapError m where
  type ErrorType m :: *

hesselink

{-# LANGUAGE Rank2Types #-}

import Control.Applicative
import Control.Arrow
import Control.Monad
import Control.Monad.Trans.Maybe
import Control.Monad.Trans.Reader
import Control.Monad.Trans.State
import Control.Monad.Trans.Writer
import Data.Monoid

hesselink

{-# LANGUAGE
    GADTs
  , KindSignatures
  , DataKinds
  , PolyKinds
  , TypeOperators
  , TypeFamilies
  , MultiParamTypeClasses
  , FlexibleInstances
  , UndecidableInstances

hesselink

{-# LANGUAGE GADTs, KindSignatures #-}

import Prelude hiding (length, sum)

import Control.Applicative
import Control.Arrow

newtype Fix f = In { out :: f (Fix f) }

data Alg :: (* -> *) -> * -> * -> * where

hesselink

{-# LANGUAGE EmptyDataDecls
           , TypeFamilies
           , MultiParamTypeClasses
           , FlexibleContexts
           , FlexibleInstances
           , UndecidableInstances
           , ScopedTypeVariables
           #-}

import Control.Applicative

hesselink

function f (x)
{
  var y = x;
  Array.prototype.shift.call(arguments);
  return x + y;
}

f(1, 2); // Returns 3, not 2.