[Haskell-beginners] Problem building monte-carlo package.

[Libor Wagner]

Hi,

I have problem building the monte-carlo package (http://hackage.haskell.org/package/monte-carlo/). Using both the hackage and github (https://github.com/patperry/hs-monte-carlo) version, I have got the following error:

lib/Control/Monad/MC/Base.hs:23:24:
Expecting one more argument to `m'
In the class declaration for `MonadMC'

I'm using ghc 7.4.2.

Can someone see the what parameter is missing, because I can't.

Thanks,
Libor

Here is the Base.hs:

{-# LANGUAGE TypeFamilies #-}
-----------------------------------------------------------------------------
-- |
-- Module : Control.Monad.MC.Base
-- Copyright : Copyright (c) 2010, Patrick Perry <patperry at gmail.com>
-- License : BSD3
-- Maintainer : Patrick Perry <patperry at gmail.com>
-- Stability : experimental
--

module Control.Monad.MC.Base
where

import Control.Monad
import qualified Control.Monad.MC.GSLBase as GSL

import qualified Data.Vector.Storable as VS

class HasRNG m where
-- | The random number generator type for the monad.
type RNG m

class (Monad m, HasRNG m) => MonadMC m where
-- | Get the current random number generator.
getRNG :: m (RNG m)

-- | Set the current random number generator.
setRNG :: RNG m -> m ()

-- | @uniform a b@ generates a value uniformly distributed in @[a,b)@.
uniform :: Double -> Double -> m Double

-- | @uniformInt n@ generates an integer uniformly in the range @[0,n-1]@.
-- It is an error to call this function with a non-positive value.
uniformInt :: Int -> m Int

-- | @normal mu sigma@ generates a Normal random variable with mean
-- @mu@ and standard deviation @sigma at .
normal :: Double -> Double -> m Double

-- | @exponential mu@ generates an Exponential variate with mean @mu at .
exponential :: Double -> m Double

-- | @levy c alpha@ gets a Levy alpha-stable variate with scale @c@ and
-- exponent @alpha at . The algorithm only works for @0 < alpha <= 2 at .
levy :: Double -> Double -> m Double

-- | @levySkew c alpha beta @ gets a skew Levy alpha-stable variate
-- with scale @c@, exponent @alpha@, and skewness @beta at . The skew
-- parameter must lie in the range @[-1,1]@. The algorithm only works
-- for @0 < alpha <= 2 at .
levySkew :: Double -> Double -> Double -> m Double

-- | @poisson mu@ generates a Poisson random variable with mean @mu at .
poisson :: Double -> m Int

-- | @cauchy a@ generates a Cauchy random variable with scale
-- parameter @a at .
cauchy :: Double -> m Double

-- | @beta a b@ generates a beta random variable with
-- parameters @a@ and @b at .
beta :: Double -> Double -> m Double

-- | @logistic a@ generates a logistic random variable with
-- parameter @a at .
logistic :: Double -> m Double

-- | @pareto a b@ generates a Pareto random variable with
-- exponent @a@ and scale @b at .
pareto :: Double -> Double -> m Double

-- | @weibull a b@ generates a Weibull random variable with
-- scale @a@ and exponent @b at .
weibull :: Double -> Double -> m Double

-- | @gamma a b@ generates a gamma random variable with
-- parameters @a@ and @b at .
gamma :: Double -> Double -> m Double

-- | @multinomial n ps@ generates a multinomial random
-- variable with parameters @ps@ formed by @n@ trials.
multinomial :: Int -> VS.Vector Double -> m (VS.Vector Int)

-- | @dirichlet alphas@ generates a Dirichlet random variable
-- with parameters @alphas at .
dirichlet :: VS.Vector Double -> m (VS.Vector Double)

-- | Get the baton from the Monte Carlo monad without performing any
-- computations. Useful but dangerous.
unsafeInterleaveMC :: m a -> m a


-- | Generate 'True' events with the given probability
bernoulli :: (MonadMC m) => Double -> m Bool
bernoulli p = liftM (< p) $ uniform 0 1
{-# INLINE bernoulli #-}

------------------------------- Instances -----------------------------------

instance HasRNG GSL.MC where
type RNG GSL.MC = GSL.RNG

instance MonadMC GSL.MC where
getRNG = GSL.getRNG
{-# INLINE getRNG #-}
setRNG = GSL.setRNG
{-# INLINE setRNG #-}
uniform = GSL.uniform
{-# INLINE uniform #-}
uniformInt = GSL.uniformInt
{-# INLINE uniformInt #-}
normal = GSL.normal
{-# INLINE normal #-}
exponential = GSL.exponential
{-# INLINE exponential #-}
levy = GSL.levy
{-# INLINE levy #-}
levySkew = GSL.levySkew
{-# INLINE levySkew #-}
poisson = GSL.poisson
{-# INLINE poisson #-}
cauchy = GSL.cauchy
{-# INLINE cauchy #-}
beta = GSL.beta
{-# INLINE beta #-}
logistic = GSL.logistic
{-# INLINE logistic #-}
pareto = GSL.pareto
{-# INLINE pareto #-}
weibull = GSL.weibull
{-# INLINE weibull #-}
gamma = GSL.gamma
{-# INLINE gamma #-}
multinomial = GSL.multinomial
{-# INLINE multinomial #-}
dirichlet = GSL.dirichlet
{-# INLINE dirichlet #-}
unsafeInterleaveMC = GSL.unsafeInterleaveMC
{-# INLINE unsafeInterleaveMC #-}

instance (Monad m) => HasRNG (GSL.MCT m) where
type RNG (GSL.MCT m) = GSL.RNG

instance (Monad m) => MonadMC (GSL.MCT m) where
getRNG = GSL.liftMCT GSL.getRNG
{-# INLINE getRNG #-}
setRNG r = GSL.liftMCT $ GSL.setRNG r
{-# INLINE setRNG #-}
uniform a b = GSL.liftMCT $ GSL.uniform a b
{-# INLINE uniform #-}
uniformInt n = GSL.liftMCT $ GSL.uniformInt n
{-# INLINE uniformInt #-}
normal mu sigma = GSL.liftMCT $ GSL.normal mu sigma
{-# INLINE normal #-}
exponential mu = GSL.liftMCT $ GSL.exponential mu
{-# INLINE exponential #-}
levy c alpha = GSL.liftMCT $ GSL.levy c alpha
{-# INLINE levy #-}
levySkew c alpha beta_ = GSL.liftMCT $ GSL.levySkew c alpha beta_
{-# INLINE levySkew #-}
poisson mu = GSL.liftMCT $ GSL.poisson mu
{-# INLINE poisson #-}
cauchy a = GSL.liftMCT $ GSL.cauchy a
{-# INLINE cauchy #-}
beta a b = GSL.liftMCT $ GSL.beta a b
{-# INLINE beta #-}
logistic a = GSL.liftMCT $ GSL.logistic a
{-# INLINE logistic #-}
pareto a b = GSL.liftMCT $ GSL.pareto a b
{-# INLINE pareto #-}
weibull a b = GSL.liftMCT $ GSL.weibull a b
{-# INLINE weibull #-}
gamma a b = GSL.liftMCT $ GSL.gamma a b
{-# INLINE gamma #-}
multinomial n ps = GSL.liftMCT $ GSL.multinomial n ps
{-# INLINE multinomial #-}
dirichlet alphas = GSL.liftMCT $ GSL.dirichlet alphas
{-# INLINE dirichlet #-}
unsafeInterleaveMC = GSL.unsafeInterleaveMCT
{-# INLINE unsafeInterleaveMC #-}