From 777c868de0aee39f58d272c7f5ebdb2abddfdc83 Mon Sep 17 00:00:00 2001 From: Jonas Betzendahl Date: Mon, 28 Apr 2014 10:37:31 +0200 Subject: [PATCH] Fixed shadowing in aplAll --- src/Map/Creation.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 =>