ion1

#!/bin/sh
set -e

# This is a nasty kluge, but it seems to work. Better check the output when
# upgrading to a new release of the nvidia driver, though.

if [ "$#" -ne 4 ]; then
  printf 'USAGE: %s modulename packagename README.txt nv-kernel.o\n' "$0"
  exit 1
fi

ion1

#!/bin/sh
set -e

if [ "$#" -ne 2 ]; then
  >&2 printf 'USAGE: %s device0 device1\n' "$0"
  exit 1
fi

device0="$1"; shift
device1="$1"; shift

ion1

http://github.com/ion1/mischacks
http://rubygems.org/gems/mischacks

ion1

start on filesystem
task

exec /usr/bin/setpci -s 00:02.0 f4.b=ff

ion1

{-# LANGUAGE TemplateHaskell #-}

import Data.Record.Label

data Foo = Foo { _foo :: Integer, _bar :: Integer, _baz :: Integer }
  deriving Show
$(mkLabels [''Foo])

main = print $ modL bar (42+) (Foo 1 2 3)

ion1

Moved here.

ion1

module Break
( breakEnd
, breakSep
, prop_breakEnd_sepPred
, prop_breakEnd_constPred
, prop_breakSep_firstSep
, prop_breakSep_falsePred
, prop_breakSep_truePred
, prop_breakSep_generalizesBreak
)

ion1

module SuccGroups where

import Control.Arrow ((&&&), first)
import Data.Function (on)
import Data.List

-- | Given two enumerable values, test whether the latter is the successor of
-- the former.

enumSucc :: (Enum a, Eq a) => a -> a -> Bool

ion1

{-# LANGUAGE ViewPatterns #-}

module SpiralArray where

import Control.Arrow

-- | Fill an array (a list of lists of integrals) with `indexFor`.
--
-- indices 7 returns:
--

ion1

-- | The minimum and maximum positive, finite floats.

module FloatMinMax
( floatMin
, floatMaxDenorm
, floatMinNorm
, floatMax
)
where