Kunle Arewa noxecane

I was trying to build haddock using stack so I can generate docs for hoogle.

$ stack haddock --haddock-deps

# fails with

2018-05-23 09:50:28.287257: [debug] Run process within /tmp/stack32381/haskell-src-exts-1.20.2/: /home/tester/.stack/setup-exe-cache/x86_64-linux/Cabal-simple_mPHDZzAJ_2.2.0.1_ghc-8.4.2 --builddir=.stack-work/dist/x86_64-linux/Cabal-2.2.0.1 haddock --html --hoogle --html-location=../$pkg-$version/ --haddock-option=--hyperlinked-source
@(src/Stack/Build/Execute.hs:1133:29)
Progress 1/2

	{-# LANGUAGE DataKinds, PolyKinds, TypeOperators #-}
	{-# LANGUAGE TypeFamilies, FlexibleInstances, ScopedTypeVariables #-}
	{-# LANGUAGE InstanceSigs #-}

	module TinyServant where

	import Control.Applicative
	import GHC.TypeLits
	import Text.Read
	import Data.Time

	package gis

	import (
	"bytes"
	"database/sql/driver"
	"encoding/binary"
	"encoding/hex"
	"fmt"
	)

	server {
	listen [::]:443 ssl http2; # and this
	listen 443 ssl http2; # change this

	# The host name to respond to
	server_name localhost;

	location /api/v1/account/ {
	proxy_pass http://localhost:3008;
	proxy_set_header Host $http_host;

	{-# LANGUAGE FlexibleContexts #-}
	{-# LANGUAGE NamedFieldPuns #-}
	{-# LANGUAGE OverloadedStrings #-}
	module OpaleyeExt
	( MonadDB(..)
	, ConstraintError(..)
	, safeInsertOne
	, safeInsertOneReturningId
	, safeInsertOneReturningId'
	, select_

	var argsToArr = function (args) {
	return Array.prototype.slice.call(args, 0);
	};

	var argFn = function (fn) {
	return function () {
	return fn(argsToArr(arguments));
	};
	};

	(ns tools.events
	(:require [clojure.core.async :as a]))


	(defn new-emitter
	"Creates a map to hold configuration of an emitter"
	([]
	(new-emitter 10))
	([buff]
	(let [in (a/chan 10)

	'use strict';

	export const isNothing = x => x === null \|\| x === undefined;

	// iterations
	export const repeat = (num, fn) => (num > 0) ?
	(repeat(num - 1, fn), fn(num - 1)) :
	(void 0);

	// Decorators

	```bash
	$ mv a.js b.js
	```