ttuegel

#!/usr/bin/env bash
cabal configure && cabal build && cabal haddock --hyperlink-source \
                                    --html-location='/package/$pkg-$version/docs' \
                                    --contents-location='/package/$pkg'
S=$?
if [ "${S}" -eq "0" ]; then
    cd "dist/doc/html"
    DDIR="${1}-${2}-docs"
    cp -r "${1}" "${DDIR}" && tar -c -v -z --format=ustar -f "${DDIR}.tar.gz" "${DDIR}"
    CS=$?

ttuegel

pkgs:

{
  packageOverrides = pkgs: with pkgs; rec {
    hsDevTools = hsPkgs: [
      hsPkgs.cabalInstall
      hsPkgs.ghcMod
    ];
  };
}

ttuegel

{ pkgs }:

{
  packageOverrides = self: rec {
    haskellPackages_ghcHEAD = self.haskell.packages {
      ghcPath = /home/shana/programming/ghc;
      ghcBinary = self.haskellPackages.ghcPlain;
      prefFun = self.haskell.ghcHEADPrefs;
      extraArgs = {
        happy = self.haskellPackages.happy_1_19_2;

ttuegel

module Tee where

import Control.Concurrent (forkIO)
import Control.Exception (handle, throw)
import Control.Monad (forever, void)
import System.IO (Handle, hGetChar, hPutChar)
import System.IO.Error (isEOFError)

-- This implementation is actually worse than the lazy one! The lazy
-- implementation would lock up if all of the output handles became full;

ttuegel

module Data.Unfold where

import Control.Applicative
import Data.Foldable
import Data.Maybe (fromMaybe)
import Prelude hiding (foldl, foldr, repeat)

-- This is a useful abstraction that I haven't found on Hackage, but that
-- doesn't mean it's not there by some other name.

ttuegel

{-# LANGUAGE TypeOperators #-}

-- Ignore the names, these are just tuples, not type lists
data major :. minor = major :. minor -- Row major shapes
data minor .: major = minor .: major -- Col major shapes

class Shape sh where
    type Index sh
    index :: sh -> Index sh -> Int
    inRange :: sh -> Index sh -> Bool