diff --git a/src/Map/Creation.hs b/src/Map/Creation.hs
index d677cdd..da0a12b 100644
--- a/src/Map/Creation.hs
+++ b/src/Map/Creation.hs
@@ -31,7 +31,7 @@ aplByNode :: (Node -> Node) -> (Node -> Bool) -> PlayMap -> PlayMap
 aplByNode f g mp = array (bounds mp) (map (\(ab,c) -> (if g c then (ab, f c) else (ab,c))) (assocs mp)) 
 
 aplAll :: [a -> a] -> a -> a
-aplAll fs m = foldl (\ m f -> f m) m fs
+aplAll fs m = foldl (\ n f -> f n) m fs
 
 -- general 3D-Gaussian
 gauss3Dgeneral :: Floating q =>