michaelt

{-# OPTIONS_GHC -F -pgmF she #-}
module Minecraft 
( ClientToServerPacket(..)
, ServerToClientPacket(..)
, MCInventoryItem
, MCInventoryUpdate
, MCBlockChange
, MCMultiBlockChange
, MCExplosionRecords
) where

michaelt

import System.IO
import Network
import Minecraft
import Control.Monad
import Control.Monad.Fix
import Control.Monad.Trans
import Control.Monad.BinaryProtocol
import Control.Concurrent
import Control.Concurrent.STM
import Control.Concurrent.STM.TChan

michaelt

%!TEX TS-program = xelatex
\documentclass[12pt]{scrartcl}  

% The declaration of the document class:

% The second line here, i.e.
% \documentclass[12pt]{scrartcl} 
% is a standard LaTeX document class declaration: 
% we say what kind of document we are making in curly brackets, 
% and specify any options in square brackets.

michaelt

%!TEX TS-program = xelatex
\documentclass[12pt]{scrartcl}  

% This ^^^ is a standard LaTeX document class declaration
% (the previous line is a pseudo-comment, declaring that we will
% use the special XeTeX machinery for its more extensive font list
% and its use of unicode.)
% If you made this line more akin to the one in the default 
% latex.template file, say:
% \documentclass$if(fontsize)$[$fontsize$]$endif${scrartcl}

michaelt

@article{nordstrom1993,
title={A prospective study},
author={Nordstr{\"o}m, M.},
journal={Journal of internal medicine},
volume={232},
number={2},
pages={155--160},
year={1992},
publisher={Wiley Online Library}
}

michaelt

---
$if(date)$
Date: $date$
$endif$
$if(title)$
Title: $title$
$endif$
--- 

<div>

michaelt

-- http://www.reddit.com/r/haskell/comments/rbgvz/conduits_vs_pipes_using_void_as_an_input_or

import Control.Monad
import Control.Applicative
import Data.Void
import System.IO

data Pipe m i o r =
  Finished (Maybe i) r
  | PipeM (m (Pipe m i o r)) (m r)

michaelt

{-#LANGUAGE OverloadedStrings#-}
module Jade where

import Text.Parsec
import qualified Text.Parsec.Token as L
import Text.Parsec.Language (emptyDef)
import Text.Parsec.Text (Parser)
import Data.Text (Text)
import Control.Monad (mzero)
import Control.Applicative ((<$>),(*>), (<*))

michaelt

(☃) :: Int -> Int -> Int 
x  ☃ y = x + y

main = print $ 0 ☃ 1 ☃ 2

michaelt

{-# LANGUAGE GADTs #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE DataKinds#-}
{-# LANGUAGE KindSignatures#-}
module RedBlackTree where

data Nat = Zero | Succ Nat deriving (Eq, Ord, Show)
type One = Succ Zero