ekmett

{-# LANGUAGE RankNTypes, GADTs, PolyKinds #-}
module Tarjan where

import Control.Applicative
import Control.Category
import Data.Monoid
import Prelude hiding ((.),id)

-- Radu Mihaesau and Robert Tarjan's Catenable Deque

copumpkin

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE LiberalTypeSynonyms #-}
{-# LANGUAGE ImplicitParams #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE RebindableSyntax #-}
module Resource where

copumpkin

{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, RankNTypes, GADTs, ImplicitParams, TypeFamilies, DataKinds, TypeOperators, DeriveGeneric, PolyKinds #-}
module Format where

import Prelude hiding (read)
import Data.Either
import Data.Binary.Get
import Data.Binary.Builder
import Data.Monoid
import Data.Foldable
import Control.Applicative

lkuper

%====Set up Listings===============================================================

\definecolor{darkgreen}{rgb}{0,0.5,0}
\definecolor{darkred}{rgb}{0.5,0,0}
\lstloadlanguages{Haskell}
\lstnewenvironment{code}
    { % \centering
      \lstset{}%
      \csname lst@SetFirstLabel\endcsname}
    { %\centering

lelandbatey

Description

This simple script will take a picture of a whiteboard and use parts of the ImageMagick library with sane defaults to clean it up tremendously.

The script is here:

#!/bin/bash
convert "$1" -morphology Convolve DoG:15,100,0 -negate -normalize -blur 0x1 -channel RBG -level 60%,91%,0.1 "$2"

Results

Fuuzetsu

#!/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=$?

mxswd

{-# LANGUAGE TemplateHaskell #-}
import System.Environment (getArgs)
import Control.Monad (mapM)
import Text.PrettyPrint.Mainland
import qualified Data.ByteString.Char8 as B
import qualified Language.C.Syntax as C
import qualified Language.C.Parser as P
import Data.Loc
import Language.Haskell.TH
import Foreign.Ptr

co-dan

#
# This simple script displays whether you are in a cabal sandbox
# the the result of checking for a sandbox is cached, but now that I
# actually think about it, it was probably an unnecessary step.
# Don't forget to customize the PROMPT variable at the bottom 
#
# Looks like this with my prompt: https://files.app.net/rjphjAG9.png
#

function update_cabal_sandbox_info () {

eddyb

    pub unsafe fn allocMegaGroup(mblocks: nat) -> ~Block {
        let n = MBLOCK_GROUP_BLOCKS(mblocks);
        enum SearchResult<'a> {
            PerfectMatch(~Block),
            BestMatch(&'a mut BlockData, &'a mut BlockMeta),
            NoMatch
        }
        fn go<'a>(n: uint,
                  prev_link: &'a mut Option<~Block>,
                  best: Option<(&'a mut BlockData, &'a mut BlockMeta)>)

ezyang

    pub unsafe fn alloc_mega_group(mblocks: nat) -> ~Block {
        let n = MBLOCK_GROUP_BLOCKS(mblocks);
        let mut prev_link = &mut free_mblock_list.p;
        let mut best: Option<(&mut BlockData, &mut BlockMeta)> = None;
        loop {
            match prev_link {
                &None => break,
                // NB: need to match it out, so we don't take out a
                // reference on prev_link that will interfere with the
                // take()