Skip to content

Instantly share code, notes, and snippets.

@nionita
nionita / gist:2898128
Created June 8, 2012 21:07
I still get the errors: Couldn't match type `s' with `PrimState (ST s)'
{-# LANGUAGE BangPatterns
#-}
module WhatsWrong (
genCMoves
) where
import Control.Monad (when, liftM)
import Control.Monad.ST.Lazy
import Control.Monad.Primitive