From 199e76a7cb5501046d5f2e2697ed80148ed41ee2 Mon Sep 17 00:00:00 2001 From: Timothy Kelley Date: Fri, 10 Jun 2011 13:33:47 -0600 Subject: [PATCH] One small victory for monadic thinking. --- basic/src/Source.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basic/src/Source.hs b/basic/src/Source.hs index b5eaf47..a24f126 100644 --- a/basic/src/Source.hs +++ b/basic/src/Source.hs @@ -20,7 +20,7 @@ genParticlesInCells :: Mesh m => m -> RNG -> [(CellIdx,Int)] -> FP -> -- ^ e' [Particle] genParticlesInCells msh rng nPerCell a e' = - join $ map (genParticlesInCell msh rng a e') nPerCell + nPerCell >>= (genParticlesInCell msh rng a e') -- | generate a given number of particles in one cell genParticlesInCell :: Mesh m => m -> RNG ->