One small victory for monadic thinking.

adept · Jun 10, 2011 · 199e76a · 199e76a
1 parent b076175
commit 199e76a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 ->